Listing of file='PRISM.BAS;01' on disk='vmedia/ncc_14-sector.ccvf'
50 IF PEEK (9700)= 54 AND PEEK (9703)= 56 THEN V= 1:GOTO 100
60 V= 2
100 IF PEEK (33224)= 239 THEN POKE 33224,0:S= 2:GOTO 262
150 PLOT 15,27,24,12,27,4:PRINT "LOA LOGO3.DSP 6000":PLOT 27,27
200 PLOT 6,4,3,27,10:PRINT "PRESENTS"
250 X= 15:Y= 12:GOSUB 300
255 Y= 18:GOSUB 400
257 Y= 27:GOSUB 463
258 PLOT 29,3,X+ 10,Y+ 2:INPUT "SELECTION? ";S
259 IF S< 0 OR S> 2 THEN PLOT 3,X+ 10,Y+ 2,11:GOTO 258
260 IF S= 0THEN GOSUB 600
262 GOSUB 500
265 X= 15:Y= 24:ON S GOSUB 300,400:PLOT 3,64,0
270 ON S GOTO 700,800
300 PLOT 6,6,3,X,Y,30
305 PRINT " a tu pb tf ab tu tf {e tu pb {e"
310 PLOT 6,6,3,X,Y+ 1
315 PRINT "l no as vd vw no vd l vw as {"
320 PLOT 6,3,3,X+ 5,Y+ 3:PRINT "INITIAL SOUNDS RECOGNITION"
325 RETURN
400 PLOT 6,6,3,X,Y,30
405 PRINT " a tu pb tf ab tu tf {e oe ab tu"
410 PLOT 6,6,3,X,Y+ 1
415 PRINT "l no as vd vw no vd l b rs vw"
420 PLOT 6,3,3,X,Y+ 3:PRINT "CHOOSE THE DIFFERENT SOUND - DEMO"
425 RETURN
463 PLOT 3,1,Y:PRINT " TYPE IN SELECTION (1 OR 2) AND RETURN, OR JUST RETURN FOR BOTH"
465 RETURN
500 PLOT 12,3,64,0,6,6,29:FOR IT= 0 TO 23:PLOT 2,63,IT+ 63,242,IT+ 63,63- IT,63- IT,63- IT,62,IT+ 63,255:NEXT
510 PLOT 6,52,3,25,18:PRINT " td td acf pq"
520 PLOT 3,25,19:PRINT "n n| agd ab":PLOT 3,64,0:RETURN
600 POKE 33224,239:S= 1:RETURN
700 LOAD "LA1":RUN
800 POKE 33224,0:LOAD "LA3":RUN