10 DATA '3D DEMO #1','3D DEMO #2','3D DEMO #3','3D DEMO #4','ELITE DEMO','QSPEC','PICTURE SHOW'
15 zmem=RESPR(15200)
20 MODE 8:WINDOW 512,256,0,0:PAPER 0:CLS:WINDOW 448,200,32,16:OVER 1:PAPER 2:BORDER 2,5:CLS:INK 0:FILL 1:ELLIPSE 84,50,50,1.7,0:FILL 0:INK 3:CSIZE 3,1:CURSOR 170,0:PRINT 'SELECT':CURSOR 172,0:PRINT 'SELECT':CSIZE 3,0:INK 4:RESTORE :m=0
30 REPeat lp:IF EOF:EXIT lp:ELSE READ a$:CURSOR 220-(LEN(a$)*8),26+m*10:PRINT a$:CURSOR 222-(LEN(a$)*8),26+m*10:PRINT a$:m=m+1
40 OVER -1:BLOCK 440,10,0,26,5:s=0
45 REPeat lp2
50 k=KEYROW(1):IF k&&8:OVER 0:STOP
60 IF k&&132:BLOCK 440,10,0,s*10+26,5
70 IF k&&128:s=s+1:IF s=m:s=0
80 IF k&&4:s=s-1:IF s<0:s=m-1
90 IF k&&132:BLOCK 440,10,0,s*10+26,5:BEEP 2500,50-s*2,0,200,1,15,9,7
100 IF k&&65:BEEP 9000,0,50,200,1,8,9,8:OVER 0:EXIT lp2
105 k$=INKEY$(#2,20)
110 END REPeat lp2
120 SELect ON s
130 =0:LBYTES flp1_3d1_mc,zmem:CALL zmem:GO TO 20
131 =1:LBYTES flp1_3d2_mc,zmem:CALL zmem:GO TO 20
132 =2:LBYTES flp1_3d3_mc,zmem:CALL zmem:GO TO 20
133 =3:LBYTES flp1_3d4_mc,zmem:CALL zmem:GO TO 20
134 =4:LBYTES flp1_elite_mc,zmem:CALL zmem:GO TO 20
135 =5:qs=RESPR(3360):LBYTES flp1_qspec_mc,qs:CALL qs
136 =6:EXEC_W flp1_picshow:GO TO 20
900 END SELect :OVER -1:GO TO 45
1000 DEFine PROCedure store:DELETE flp1_boot:SAVE flp1_boot:DELETE flp1_boot_bak:SAVE flp1_boot_bak:END DEFine
