1 REM GRFIC.100 BY SCOTT SMITH  73340,2270
2 REM TESTED ON TANDY MOD 102, USE MERGE STATEMENT TO LOAD INTO BASIC FROM TEXT
5 CLS
10 PRINT"GRAFFICS AND SOUND: BREAK STOPS SEL.#"
20 PRINT"ENTER #1 FOR LINES"
21 PRINT"ENTER #2 FOR BOXES"
22 PRINT"ENTER #3 FOR GRAFFICS"
23 PRINT"ENTER #4 FOR PIXELS"
24 PRINT"ENTER #5 FOR SOUND"
25 PRINT"ENTER #6 FOR SCOPE"
30 INPUT A
31 IF A=1 THEN 38
32 IF A=2 THEN 90
33 IF A=3 THEN 150
34 IF A=4 THEN 200
36 IF A=5 THEN 249
37 IF A=6 THEN 300
38 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 38
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
150 CLS: 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 TONE"
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