home *** CD-ROM | disk | FTP | other *** search
- 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
-