10 !"SYSTEM TESTS":!:!
15 OUT 195,128
20 !"<P>ULSE"
30 !"<R>AMP"
49 !"<E>XIT"
50 !"SELECT ";:INPUT A$
60 IF A$="P" THEN 100
70 IF A$="R" THEN 185
80 IF A$="E" THEN 260
90 GOTO 20
100 !"OUTPUT LEVEL (0-255) ";:INPUT B
110 IF B>255 THEN 100
125 OUT 194,1
130 OUT 193,B
140 FOR I=1 TO 3000
150 NEXT I
160 OUT 193,0
165 OUT 194,0
170 GOTO 10
185 OUT 194,1
190 FOR N=1 TO 75
200 FOR I=0 TO 255
210 OUT 193,I
220 NEXT I
230 NEXT N
240 OUT 193,0
245 OUT 194,0
250 GOTO 10
260 END