8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Software/WHOOZITS

Commodore BASIC | 2019-04-13 | 1.1 KB | 22 lines

0 REM       FROM PD DISK # T-41                       AND  JG PD # 48          .
1 REM      WHOOZITS - IMPROVEMENTS                     BY -  JIM GREEN         .
8 PRINT"[147]":X=0
10 POKE53280,0:POKE53281,0:POKE646,5:A$="[183][197][196][192][198][210][175]":GOSUB110
12 PRINT"[158]    I THINK THIS IS SLINKYS BROTHER!":FORD=1TO1E3:NEXT
20 FORI=1TO7:A$(I)="  ":FORJ=1TO5:A$(I)=A$(I)+MID$(A$,I,1):NEXTJ,I
30 FORT=1TO30:FORI=1TO7:POKE646,X:PRINTA$(I),A$(I),A$(I),A$(I):NEXT
32 IFT=15THENGOSUB110
40 FORI=7TO1STEP-1:PRINTA$(I),A$(I),A$(I),A$(I):NEXT:X=X+1:IFX=16THENX=1
50 NEXT
60 POKE53280,2 :POKE53281,2 :PRINT"[147]":GOSUB110
70 PRINT"[159]       DID YOU ENJOY THE WHOOZIT?
75 [153]"PRINT      DO YA WANNA SEE IT AGAIN Y/N
80 GETG$:IFG$<>"Y"ANDG$<>"N"THEN80
85 IFG$="Y"THENPRINT"[150]        WATCH OUT! HERE IT COMES!":FORD=1TO1E3:NEXT:RUN
90 PRINT"[150]     DON'T BLAME YOU. I'M DIZZY TOO!":END
110 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
120 [153]" (null)  SYS  WAITTHENTHEN   WAITTHEN   WAIT(null)   WAIT(null) (null)  WAIT   WAIT (null)  WAIT(null)   WAIT(null)  (null)
130 PRINT" [221]  [150]  [146][167][167]   [146][186]   [146][167]   [146][167] [169] [146][169]   [146]    [146]  [223] [223][146][160][160][221]
140 [153]" (null)  SYS  WAITSQRSQR   WAITTHEN   WAITSQR   WAITSQR   WAITSQR   WAIT    WAIT  (null)  WAIT CLOSE(null)
150 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN