Table of Contents
Advertisement
Apple II Computers
199
380 RETURN
390 GOSUB 1000:Y = Y - 2:H = H - 1: IF Y ( 1 THEN
PRINT CHR$ (7);:Y = 1:H = 1
400 GOSUB
1050:
RETURN
410 GOSUB 1000:Y = Y + 2:H = H + 1: IF Y ) 21 THEN
PRINT CHR$ (7);:Y = 21:H = 11
420 GOSUB 1050: RETURN
430 GOSUB 1000:X = X + 2:G = G + 1: IF X ) 13 THEN
PRINT CHR$ (7);:X = 13:G = 7
440 GOSUB 1050: RETURN
450 GOSUB 1000:X = X - 2:G = G - 1: IF X ( 1 THEN
PRINT CHR$ (7);:X = 1:G = 1
460 GOSUB 1050: RETURN
470 IF Z(G,H - 1) = 1 OR Z(G,H + 1) = 1 THEN PRINT
CHR$ (7);: RETURN
480 Z(G,H) = 1: INVERSE : VTAB X + 2: HTAB Y + 5: PRINT
SC$; : NORMAL: GOSUB 4000: RETURN
490 Z(G,H) = 0: NORMAL : VTAB X + 2: HTAB Y + 5: PRINT
CS$; : GOSUB 4000: RETURN
900 X = 1:Y = 1:G = 1:H = 1
901 HOME
902 FOR I = 2 TO 16 STEP 2: VTAB I: HTAB 5: FOR J = 1
TO 23: PRINT "-";: NEXT J: PRINT : NEXT I
904 FOR J = 3 TO 16 STEP 2: VTAB J: FOR I = 5 TO 27
STEP 2: HTAB I: PRINT "!";: NEXT I: PRINT : NEXT J
905
K = 1: VTAB 1: HTAB 5
906 FOR K = 1 TO 11: PRINT K;" "j: NEXT K
907 K = 0
908 FOR V = 3 TO 15 STEP 2: VTAB V: HTAB 2: PRINT 2 A
K:K = K + 1: NEXT V
909 VTAB 17: FOR I = 1 TO 11: HTAB 4 + I * 2: PRINT
rl 0 ";: NEXT I
910
VTAB 1: HTAB 30: PRINT "CURSOR"
912 VTAB 2: HTAB 29: PRINT "MOVEMENT"
914 VTAB 3: HTAB 29: PRINT "(I) UP"
916 VTAB 4: HTAB 29: PRINT "(M) DOWN"
918 VTAB 5: HTAB 29: PRINT "(J) LEFT"
920 VTAB 6: HTAB 29: PRINT "(K) RIGHT"
922 VTAB 7: HTAB 29: PRINT "(RET) INSERT"
924 VTAB 8: HTAB 29: PRINT "(SPACE) DEL"
926 VTAB 9: HTAB 29: PRINT "(A) ASCII"
928 VTAB 10: HTAB 29: PRINT "(P) PRINT"
930 VTAB 11: HTAB 29: PRINT "(C) CLEAR"
932 VTAB 12: HTAB 29: PRINT "(R) COPY ROM"
Advertisement
Table of Contents
