home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / WHOOZITS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  22 lines

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