1 REM GRAPH2 FROM SCOTT SMITH
2 REM I.D. #73340,2270
5 CLS
10 PRINT"GRAPHICS PROGRAM,HIT BREAK TO STOP SEL."
20 PRINT"ENTER 1 FOR LINES"
21 PRINT"ENTER 2 FOR BOXES"
22 PRINT"ENTER 3 FOR GRAPHS"
23 PRINT"ENTER 4 FOR PIXELS"
24 PRINT"ENTER 5 FOR SOUND"
25 PRINT"ENTER 6 FOR SCOPE"
26 PRINT @60,"ENTER 7 KALIDISCOPE"
27 PRINT @100,"ENTER 8 FOR FLYING"
28 PRINT @140,"ENTER 9 FOR CHARS."
29 PRINT @180,"ENTER 10 LIGHTING"
30 PRINT @220,"ENTER 11 FOR STAR"
32 PRINT @260,"ENTER 12 FOR MENU"
34 INPUT A
35 IF A=1 THEN 48
36 IF A=2 THEN 90
37 IF A=3 THEN 149
38 IF A=4 THEN 200
39 IF A=5 THEN 249
40 IF A=6 THEN 300
41 IF A=7 THEN 350
42 IF A=8 THEN 500
43 IF A=9 THEN 600
44 IF A=10 THEN 700
45 IF A=11 THEN 725
46 IF A=12 THEN 1000
48 CLS
49 FOR G=1 TO 35
50 X=INT(RND(1)*239)+1
54 Y=INT(RND(1)*63)+1
59 LINE-(X,Y)
60 NEXT G
65 GOTO 48
90 CLS
100 FOR H=1 TO 35
101 D=INT(RND(1)*239)+1
104 E=INT(RND(1)*63)+1
108 LINE-(D,E),1,B
110 NEXT H
112 GOTO 90
149 CLS
150 PRINT"ENTER SCAN RATE (1 TO 240):"
151 INPUT A
152 PRINT "ENTER SOUND DURATION (1 TO 250):"
153 INPUT B
154 CLS
155 LINE-(1,63)
156 FOR F=1 TO 239 STEP A
157 T=INT(RND(1)*16000)+1
160 P=T/250
162 LINE-(F,P)
165 SOUND T,B
166 NEXT F
167 LINE-(239,63)
168 CLS
170 GOTO 154
200 CLS
205 A=INT(RND(1)*239)+1
208 B=INT(RND(1)*63)+1
215 PSET(A,B)
220 GOTO 205
249 CLS
250 PRINT"ENTER #1 FOR RANDOM TONES"
251 PRINT"ENTER #2 FOR SCALE TONES"
254 INPUT A
255 IF A=2 THEN 280
256 PRINT"ENTER DURATION (1 TO 255):"
257 INPUT B
258 IF A=1 THEN 260
260 S=INT(RND(1)*16000)+1
264 SOUND S,B
265 GOTO 260
280 PRINT"ENTER DURATION (1 TO 250):"
281 INPUT D
282 FOR Q=16000 TO 1 STEP -20
284 SOUND Q,D
286 NEXT Q
290 GOTO 5
300 CLS
302 PRINT"ENTER SCAN FREQ.(1 TO 240)"
305 INPUT F
308 CLS
310 LINE-(1,63)
315 LINE-(1,63)
320 FOR W=0 TO 239 STEP F
325 LINE-(W,1)
330 LINE-(W,63)
335 NEXT W
340 GOTO 308
345 REM KALIDISCOPE PROGRAM FROM 74240.311 MOD BY 73340,2270 FOR FOUR FIGURES
350 POKE 61634, PEEK(63791)
355 CLS:Y=31
360 N=1-(N=1)
365 FOR X=29 TO 209 STEP 60
370 A=INT(RND(1)*29)+1
375 B=INT(RND(1)*29)+1
380 C=INT(RND(1)*3)+1
385 FOR I=0 TO A STEP C
390 FOR J=-B TO B STEP 2*B
395 PSET (X+I,Y+J,N)
400 PSET (X+J,Y+I,N)
402 PSET (X-I,Y+J,N)
405 PSET (X+J,Y-I,N)
410 NEXT J,I,X
415 GOTO 360
495 REM FLYING PROGRAM FROM 71665,2013  
496 REM MOD. FOR 100/102 BY 73340,2270
500 CLS
510 DIM XH(9),XL(9),YH(9),YL(9)
520 X1=2:X2=3:Y1=1.5:Y2=2.5
530 XH=10:XL=20:YH=10:YL=20
540 A=1
550 LINE(XH,YH)-(XL,YL)
560 LINE(XH(A),YH(A))-(XL(A),YL(A)),0
561 XL=XL+X1:IF XL<0 OR XL>239 THEN XL=XL-X1:X1=-SGN(X1)*(RND(1)*3+2)
562 XH=XH+X2:IF XH<0 OR XH>239 THEN XH=XH -X2:X2=-SGN(X2)*(RND(1)*3+2)
563 YL=YL+Y1:IF YL<0 OR YL>63 THEN YL=YL-Y1:Y1=-SGN(Y1)*(RND(1)*3+2)
564 YH=YH+Y2:IF YH<0 OR YH>63 THEN YH=YH-Y2:Y2=-SGN(Y2)*(RND(1)*3+2)
565 XH(A)=XH:XL(A)=XL:YH(A)=YH:YL(A)=YL
570 A=A+1:IF A=10 THEN A=0
590 GOTO 550
600 CLS
605 PRINT "ENTER #1 FOR RANDOM CHARATORS"
610 PRINT "ENTER #2 FOR SEQUENTAL CHARATORS"
612 PRINT "ENTER #3 FOR RAMDOM CHARS.(1 ONLY)"
613 PRINT "ENTER #4 FOR RANDOM CHARS.(1 LINE)
615 INPUT B
620 IF B=1 THEN 625
622 IF B=2 THEN 640
623 IF B=3 THEN 660
624 IF B=4 THEN 680
625 R=INT(RND(1)*233)+1
627 FOR T=1 TO 320
630 PRINT CHR$(R);
632 NEXT T
635 GOTO 625
640 CLS
645 FOR A=33 TO 233
650 FOR B=1 TO 320
655 PRINT CHR$(A);
656 NEXT B
657 NEXT A
660 CLS
665 F=INT(RND(1)*201)+32
670 PRINT CHR$(F);
675 GOTO 665
680 CLS
685 G=INT(RND(1)*201)+32
687 FOR K=1 TO 40
690 PRINT CHR$(G);
692 NEXT K
695 GOTO 685
700 CLS
701 B=INT(RND(1)*239)+1
702 C=INT(RND(1)*63)+1
703 LINE-(B,C)
704 GOTO 700
725 CLS
730 B=INT(RND(1)*239)+1
732 C=INT(RND(1)*63)+1
734 LINE (120,32)-(B,C)
735 GOTO 730
1000 MENU