[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 40 Column Editor
- Subject: Re: 40 Column Editor
- From: mmphosis <mmphosis@yahoo.com>
- Date: Mon, 15 Aug 2011 20:27:42 -0700 (PDT)
- Complaints-to: groups-abuse@google.com
- Injection-info: bl1g2000vbb.googlegroups.com; posting-host=70.66.85.157; posting-account=HoRxjgoAAAAmbxlMGNrVe90TImvVwH6k
- Newsgroups: comp.sys.apple2
- Organization: http://groups.google.com
- References: <j293dk$1fi$1@dont-email.me>
- User-agent: G2/1.0
- Xref: g2news1.google.com comp.sys.apple2:22725
0 GOSUB 32: FOR Q = 0 TO 1 STEP 0: GET A$: ON A$ < " " GOSUB 1:
PRINT A$;: NEXT
1 ON ASC (A$) GOTO
2,3,2,2,5,6,2,2,2,2,11,12,2,14,15,2,17,18,19,20,21
2 RETURN
3 INVERSE : RETURN
5 CALL - 868: RETURN
6 FLASH : RETURN
11 CALL - 998: RETURN
12 VTAB 1: HTAB 1: RETURN
14 HOME : RETURN
15 LET C = 0: GOTO 40
17 VTAB 23: END
18 POKE 2039, PEEK ( PEEK (40) + 256 * PEEK (41) + PEEK (36)):
RETURN
19 LET C = 1: GOTO 40
20 NORMAL : RETURN
21 CALL - 1036: RETURN
32 F$ = "SCREEN"
34 B$(0) = "BLOAD"
35 B$(1) = "BSAVE"
36 E$(1) = ",A$400,L$3F8"
37 D$ = CHR$ (4): RETURN
40 V = PEEK (37) + 1:H = PEEK (36) + 1: GOSUB 12: PRINT : PRINT D$B$
(C)F$E$(C): VTAB V: HTAB H: RETURN