Apple Grr - Manual (Page 6)

The following programs allow you to test the graphics
capability of the Grappler.
For Applesoft Basic Users:
5
t o
20
30
50
60
70
80
90
t o o
110
120
130
140
150
160
TEXT
HOME
PRINT "ENTER THE SLOT YOUR GRAPPLER IS IN AND"
INPUT "HIT THE RETURN KEY: ";S
HGR
HCOLOR=3
POKE 49234,01
HPLOT (2,0 TO 279,(2 TO 279,19(2 TO (2,19(2 TO (2,(2
FOR X = TO 279 STEP 9: HPLOT X,(2T0 X,19(2
NEXT
FOR Y = (2 TO 19(2 STEP 5:
NEXT
PRINT CHRS(4);"PR*";S
PRINT CHRS(9];"G"
PRINT CHRS(4);"PR#(2''
TEXT:HOME
HPLOT 279, Y TO (2, Y
For Integer Basic Users:
Line 6 should be typed 6 D$ = ''CTRL-D'' (The CTRL-D
won't show on the screen]
Line 7 should be typed 7 IS="CTRL-1''
5 B=1
6 DS = ""
7 IS=""
10 CALL-936
20 PRINT "ENTER THE SLOT YOUR GRAPPLER IS IN"
30 PRINT "AND HIT THE RETURN KEY:"
40 INPUTS
50 POKE 8192,(2: POKE 8193,(2: POKE 66,1: POKE 67,32:
POKE 6(2,(2: POKE 61,32: POKE 62,255: POKE 63,63: CALL-46E
55 POKE-16297,(2: POKE-163(2(2,(2: POKE-163(22,(2: POKE-163(24,(2
60 FOR A = 8192 TO 92(27
70 POKE A,255: FOR C = (A-r 1(224) TO (A-r 7168) STEP 1(224:
POKE C, B: NEXT C
80 NEXT A
130 PRINT DS;"PFT*":S
140 PRINT IS: "G"
150 PRINT DS;"PR'*'(2"
160 TEXT:CALL-936
999 END
NOTES ON BOTH PROGRAIVtS:
11 you are not using DOS (Disk Operating System), type line 13(2 os
follows: 13(2 PR*S and line 15(2 as 15(2 PR*(2
10
To experiment with the different options, try changing line 13(2. You
don't have to retype the whole program, just type a new lirie 14(2.
For example: 14(2 PRINT CHRS(9);"GI" or 14(2 PRiNG CHRS(9); "GDR”
14(2 PRINT 1S;"GI" or 14(2 PRINT IS:"GDR"
For Pascal Users:
PROGRAM DEMO:
USES TURTLEGRAPHICS, APPLESTUFF:
VAR ANGLE, DISTANCE: INTEGER,
PRINT: TEXT:
BEGIN
ANGLE: = 8(2;
INinURTLE:
PENCOLOR(WHITE);
FOR DISTANCE: = 1 TO 99 DO
BEGIN
MOVE (2'DISTANCE);
TURN (ANGLE);
END;
REWRITE (PRINT,'PRINTER:');
WRITELN (PRlNT,CHR(25),'G');('USE CHR(25) [CTRL-Y]lN PASCAL');
END.
The following program will allow you to print a graph
that has been previously saved to the disk. For example,
after saving the graph created by one of the popular
graphing programs for the Apple, run this program to
print it on your printer.
Note: If your Grappler is not in slot -
the slot number of your Grappler.
'1 change line 5 so that S equals
For Applesoft Basic Users:
5 S=1
1(2 HOME
2(2 DS-CHRS(4)
3(2 IS = CHRS(9)
4(2 PRINT "ENTER THE NAME OF THE GRAPH:"
5(2 INPUT NS
6(2 HGR
7(2 PRINT DS;"BLOAD".NS;",AS2(2(2(r
8(2 VTAB22
9(2 PRINT "ENTER OPTIONS (D,l,R,L,E,NORMAL):'
1(2(2 INPUT AS
1(25 IF LEFTS (AS,1) = "N" THEN AS = ""
11(2 PRINT DS;"PR»";S
12(2 PRINT IS;"G";AS
13(2 PRINT DS;"PR*(2"
14(2 TEXT:HOME
11