DIM WORD$(5) WORD$(3)="APEBATCARDOGELFFARGALHOGINKJARKINLADMAPNODODDPIGQUERATSUNTANURLVANWONXIAUESZOO" WORD$(4)="ABLEBEETCAREDOOREARLFARMGOATHEATIRONJEERKEEPLAMBMOONNEAROPENPEARQUAYRESTSHOPTEAMUMARVOIDWASHXTRAYALLZEAL" WORD$(5)="APPLEBEASTCRESTDRIVEEARTHFRESHGREENHARSHIRISHJUMPSKNOWNLEASHMARSHNEATOOTHERPRUNEQUEENRIVERSHEEPTHEREUNDERVINYLWRATHXCESSYEESHZEROS" REM WASHAW GAMES RANDOMIZE TIMER GAMEPAD 1 GLOBAL IRESET IRESET=0 GLOBAL ILEVEL ILEVEL=3 GLOBAL IROUND IROUND=0 GLOBAL ALPHAROM ALPHAROM=225 DIM TSCROLL(19) GLOBAL TIMESTART TIMESTART=TIMER RESET: CLS ATTR(0,,,,) LOCATE 0,0 PRINT PRINT PRINT " HAVEN'T YOU HEARD?" PRINT PRINT " ==================" PRINT PRINT PRINT " LENGTH: "+STR$(ILEVEL) PRINT PRINT PRINT " LETTER: "+CHR$(65+IROUND) PLAY 0,49+IROUND,30 WAIT 30 PLAY 0,54+IROUND,60 WAIT 120 IRESET=0 CLS 1 BG 1 ATTR(0,,,,) FOR IX=0 TO 19 CELL IX,0,1 NEXT IX FOR II=0 TO 1 FOR I=0 TO 25 C=999 WHILE C>0 X=INT(RND*20) Y=INT(RND*15)+1 C=CELL.C(X,Y) WEND CELL X,Y,ALPHAROM+I NEXT I NEXT II CLS 0 BG 0 WPICK$=MID$(WORD$(ILEVEL),1+IROUND*ILEVEL,ILEVEL) ATTR(1,,,,) LOCATE 0,0 PRINT WPICK$ C=999 WHILE C>0 X=INT(RND*20) Y=INT(RND*15)+1 C=CELL.C(X,Y) WEND BG 1 CELL X,Y,2 DO CALL SHOWTIME BG 1 UD=UP(0) OR DOWN(0) LR=LEFT(0) OR RIGHT(0) IF LEFT(0) AND NOT UD THEN X=X-1 IF X<0 THEN X=19 FOR I=0 TO 19 TSCROLL(I)=CELL.C(I,Y) NEXT I FOR I=1 TO 19 IF TSCROLL(I)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL I-1,Y,TSCROLL(I) NEXT I IF TSCROLL(0)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL 19,Y,TSCROLL(0) PLAY 0,40,5 WAIT 10 CALL FINDIT(WPICK$) END IF IF RIGHT(0) AND NOT UD THEN X=(X+1) MOD 20 FOR I=0 TO 19 TSCROLL(I)=CELL.C(I,Y) NEXT I FOR I=0 TO 18 IF TSCROLL(I)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL I+1,Y,TSCROLL(I) NEXT I IF TSCROLL(19)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL 0,Y,TSCROLL(19) PLAY 0,40,5 WAIT 10 CALL FINDIT(WPICK$) END IF IF UP(0) AND NOT LR THEN Y=Y-1 IF Y<1 THEN Y=15 FOR I=1 TO 15 TSCROLL(I)=CELL.C(X,I) NEXT I FOR I=2 TO 15 IF TSCROLL(I)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL X,I-1,TSCROLL(I) NEXT I IF TSCROLL(1)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL X,15,TSCROLL(1) PLAY 0,40,5 WAIT 10 CALL FINDIT(WPICK$) END IF IF DOWN(0) AND NOT LR THEN Y=Y+1 IF Y>15 THEN Y=1 FOR I=1 TO 15 TSCROLL(I)=CELL.C(X,I) NEXT I FOR I=1 TO 14 IF TSCROLL(I)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL X,I+1,TSCROLL(I) NEXT I IF TSCROLL(15)=2 THEN ATTR(1,,,,) ELSE ATTR(0,,,,) CELL X,1,TSCROLL(15) PLAY 0,40,5 WAIT 10 CALL FINDIT(WPICK$) END IF IF IRESET=1 THEN GOTO RESET WAIT 1 LOOP SUB SHOWTIME CURRENT=TIMER-TIMESTART TOTSEC=INT(CURRENT/60) TOTMIN=INT(TOTSEC/60) TOTHOUR=INT(TOTMIN/60) SHOWHOUR=TOTHOUR SHOWMIN=TOTMIN-(60*SHOWHOUR) SHOWSEC=TOTSEC-(60*SHOWHOUR)-(60*SHOWMIN) SHOWHOUR$=STR$(SHOWHOUR) SHOWMIN$=STR$(SHOWMIN) SHOWSEC$=STR$(SHOWSEC) IF LEN(SHOWHOUR$)<2 THEN SHOWHOUR$="0"+SHOWHOUR$ IF LEN(SHOWMIN$)<2 THEN SHOWMIN$="0"+SHOWMIN$ IF LEN(SHOWSEC$)<2 THEN SHOWSEC$="0"+SHOWSEC$ BG 0 TEXT 12,0,SHOWHOUR$+":"+SHOWMIN$+":"+SHOWSEC$ END SUB SUB FINDIT(T$) F$=LEFT$(T$,1) FOR Y=1 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) IF C>=ALPHAROM THEN C$=CHR$(C-ALPHAROM+65) ELSE C$="" IF C$=F$ THEN ATTR(1,,,,) CELL X,Y, FOR I=2 TO ILEVEL C=CELL.C(X+I-1,Y) IF C>=ALPHAROM THEN C$=CHR$(C-ALPHAROM+65) ELSE C$="" IF C$=MID$(T$,I,1) THEN PLAY 0,70,1 WAIT 1 PLAY 0,71,1 ATTR(1,,,,) CELL X+I-1,Y, ELSE GOTO CONT END IF NEXT I FOR SI=10 TO 70 STEP 5 PLAY 0,SI,1 WAIT 1 NEXT SI PLAY 0,90,6 IROUND=IROUND+1 IF IROUND=26 THEN IROUND=0 ILEVEL=ILEVEL+1 IF ILEVEL=6 THEN FOR SI=0 TO 95 PLAY 0,SI,1 WAIT 1 NEXT SI END END IF END IF IRESET=1 END IF CONT: NEXT X NEXT Y END SUB #1:MAIN PALETTES 053F2F0000302420003C2814003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000FF0000000000000000 817E7E7E7E7E7E817EBDDBE7E7DBBD7E 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C464A52663C000000000000000000 0018080808081C000000000000000000 003C420418207E000000000000000000 003C420C02423C000000000000000000 004242427E0202000000000000000000 007E407C02027C000000000000000000 001C207C42423C000000000000000000 007E020C102020000000000000000000 003C423C42423C000000000000000000 003C423E02423C000000000000000000 00280028002800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 001824427E4242000000000000000000 007C427C42427C000000000000000000 003C464040463C000000000000000000 00784442424478000000000000000000 007E407840407E000000000000000000 007E4078404040000000000000000000 003C404E42423C000000000000000000 0042427E424242000000000000000000 00381010101038000000000000000000 001E020202423C000000000000000000 00464C78784C46000000000000000000 0040404040407E000000000000000000 0042665A424242000000000000000000 0062725A4E4646000000000000000000 003C424242423C000000000000000000 007C427C404040000000000000000000 003C42424A443A000000000000000000 007C4244784442000000000000000000 003E403C02027C000000000000000000 007C1010101010000000000000000000 0042424242423C000000000000000000 00424242663C18000000000000000000 004242425A6642000000000000000000 00422418244242000000000000000000 00444438101010000000000000000000 007E041820407E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000