10 REM Simon Game 20 REM An attempt at 10-minute 30 REM programming on a bad day 40 REM (C) 1991 Bazzasoft 50 *FX11,0 60 PROCsetup 70 REPEAT:MODE7:PROCinit 80 MODE2:FORI=11TO14:VDU19,I,0;0;0; 90 NEXT:GCOL0,11 100 VDU23;8202;0;0;0; 110 MOVE0,1024:MOVE640,1024:PLOT85,0,524:PLOT85,640,524 120 MOVE640,1024:GCOL0,12:PLOT85,1280,1024:MOVE640,524:PLOT85,1280,524:GCOL0,13:MOVE640,524:PLOT85,1280,24:PLOT85,640,24:GCOL0,14:MOVE640,524:PLOT85,0,524:MOVE640,24:PLOT85,0,24 130 PRINTTAB(4,7);"A"TAB(15,7);"*"TAB(4,23);"Z"TAB(15,23);"?" 140 NS%=1:M%=&BFF 150 M%?NS%=RND(4):PROCdel(50):PROCshow:IF FNguess=0 PROClost ELSE NS%=NS%+1:GOTO150 160 UNTIL0 170 DEFPROCinit:*FX21 180 PRINTCHR$141;"‚Simple Simon - a quick game..."'CHR$141;"‚Simple Simon - a quick game..."''"Please choose a difficulty level from 50 (possible) to 1 (impossible)..." 190 REPEAT:INPUTLINE"ƒLevel="SP%:SP%=INTSP%:UNTILSP%<51 AND SP%>0:ENDPROC 200 DEFPROCsetup:ENVELOPE1,2,1,1,-2,1,1,1,100,-120,0,-1,126,0:ENDPROC 210 DEFPROCshow 220 FORI%=1TONS%:PROCflash(M%?I%):NEXT:ENDPROC 230 DEFPROCflash(N%):SOUND1,-15,50+20*N%,1:VDU19,N%+10,N%,0;0;0;:PROCdel(SP%):VDU19,N%+10,0;0;0;:ENDPROC 240 DEFPROCdel(SP%):T%=TIME+SP%:REPEATUNTILTIME>T%:ENDPROC 250 DEFFNguess:XZ%=0:REPEAT:XZ%=XZ%+1:T%=TIME+100+SP%*4:REPEAT:Z%=FNkey:UNTIL Z%>0 OR TIME>T% 260 IFTIME>T% AND Z%=0 THENUNTIL1:=0 270 RT%=SP%:SP%=20:PROCflash(Z%):SP%=RT%:IFZ%<>M%?XZ% UNTIL1:=0 280 UNTILXZ%=NS% 290 =-1 300 DEFFNkey 310 IFINKEY-66 THEN =1 320 IFINKEY-73 THEN =2 330 IFINKEY-105 THEN =3 340 IFINKEY-98 THEN =4 350 =0 360 DEFPROClost:SOUND1,1,25,1:SP%=10:PROCdel(100):PROCshow:ENDPROC