57 lines
931 B
Text
57 lines
931 B
Text
REM APPLE II GS ?
|
|
100 DATA56,32,31,254,160,0
|
|
110 DATA176,1,136,140,13,3,96
|
|
120 FOR I = 768 TO 780
|
|
130 READ B: POKE I,B
|
|
140 NEXT : CALL 768
|
|
150 IF PEEK (781) THEN 190
|
|
|
|
160 B = PEEK (64435) : T4 = 1
|
|
|
|
REM APPLE II ?
|
|
170 IF B = 56 THEN 200
|
|
|
|
REM APPLE II PLUS ?
|
|
180 IF B = 234 THEN 200
|
|
|
|
REM NOT 80 COLUMN MODE ?
|
|
190 T4 = PEEK (49183) < 128
|
|
|
|
REM START HERE
|
|
200 VTAB 12: HTAB 21
|
|
210 PRINT ">"; : UP = -998
|
|
|
|
REM LEFT
|
|
220 PRINT CHR$(8); : GET A$
|
|
|
|
REM RIGHT
|
|
230 IF T4 THEN CALL -1036
|
|
240 IF NOT T4 THEN PRINT CHR$(28);
|
|
250 GET A$
|
|
|
|
REM UP
|
|
260 CALL UP : GET A$
|
|
|
|
REM DOWN / LINE FEED
|
|
270 PRINT CHR$(10); : GET A$
|
|
|
|
REM BEGINNING OF LINE
|
|
300 HTAB 1 : ON T4 GOTO 350
|
|
310 IT = PEEK(37)
|
|
320 IF IT THEN CALL UP
|
|
330 PRINT
|
|
340 IF NOT IT THEN CALL UP
|
|
350 GET A$
|
|
|
|
REM END OF LINE
|
|
370 HTAB PEEK(33)
|
|
380 GET A$
|
|
|
|
REM TOP LEFT
|
|
400 IF T4 THEN VTAB 1 : HTAB 1
|
|
410 PRINT CHR$(25); : GET A$
|
|
|
|
REM BOTTOM RIGHT
|
|
420 CALL -1233
|
|
430 HTAB PEEK(33)
|
|
440 GET A$
|