Advertisement
The following prograas allow you to rest the graphics capability of
the Grappler.
For Applesoft basic users:
5 TEXT
1Ø HOME
2Ø PRINT 'ENTER THE SLOT YOUR GRAPPLER IS IN AND"
3Ø INPUT "HIT THE RETURN KEY: ":S
5Ø HGR
6Ø HCOLOR=3
7Ø POKE 49234,!6
6Ø HPLOT Ø,Ø TO 279,Ø TO 279,19Ø TO Ø,19Ø TO Ø,Ø
9Ø FOR X=Ø TO 279 STEP 9: HPLOT X,Ø TO X,19Ø
1ØØ NEXT
11Ø SOP y=Ø TO 19Ø STEP 5: HPLOT 279,Y TO Ø,Y
12Ø NEXT
13Ø FEINT CHR$(4):"PR#":S
14Ø PRINT CHR$(9):"G"
15Ø PRINT CHR$(4):PR#Ø"
16Ø TEXT:HOME
For Integer Basic Users:
Line 6 should be typed 6 D$="CTRL-D" (The CTRL—D won't show on the screen)
Line 7 shoold be typed 7 I$='CTRL—I"
5 B=1
6 D$=""
7 I$=""
1Ø CALL—936
2Ø PRINT "ENTER THE SLOT YOUR GRAPPLER IN IN"
3Ø PRINT "AND HIT THE RETUEN KEY:"
4Ø INPUT S
5Ø POKE 8192,Ø: POKE 8193,Ø: POKE 66,1: POKE 67,32: POKE 6Ø,Ø:
POKE 61,32: POKE 62,255: POKE 63,63: CALL—466
55 POKE—16297,9: POKE—16390,9: POKE—163Ø2,Ø: POKE—162Ø4,Ø
6Ø FOR A=6192 TO 92Ø7
7Ø POKE A,255: FOE C(A*1Ø24) TO (A+7168) STEP 1Ø24: POKE C,B, NEXT C
6Ø NEXT A
13Ø PRINT D$;"PR#";S
14Ø FEINT I$;"G"
15Ø PRINT D$;"PR#Ø"
16Ø TEXT:CALL—936
999 END
NOTES ON BOTH PEOGRANS:
If YOU are not using DOS (Disk Operating Systee), type line 13Ø as
follows: 13Ø PR#S and line 15Ø as 15Ø PR#Ø.
To experiment with the different options, try changing line 149. You
don't have to retype the whole program, just type a new line 149.
For example: 14Ø PRINT CNR$(9):"GI" or 14Ø PRINT CNRS(9),"GDR"
14Ø FEINT I$;"GI" or 14Ø FEINT I$;"GDR"
—12—
Advertisement
