home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / TIME-WASTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  15 lines
  1. 0 REM    CHARACTER 'TIME WASTER'              CONCOCTED BY JIM GREEN  9/88     .
  2. 1 REM        WHY, YOU ASK?                       CAUSE NO ONE ELSE WOULD.      .
  3. 8 POKE53280,0:POKE53281,0:P=2:PRINT"[147]":DX=1:DY=1:A=7:B=214:C=54272
  4. 20 G=1024+X+40*Y:POKEG,219:POKEG+C,P:POKE54296,6:POKE54296,0
  5. 22 IFG=1984ANDA=7THENA=2:P=15:GOSUB80:GOTO26
  6. 25 IFG=1024ANDA=2THENA=0:GOSUB80
  7. 26 IFG=1984ANDA=0THENGOSUB80:GOTO60
  8. 28 POKEG,214:POKEG+C,A:Y=Y+DY:IFY<1ORY>23THENDY=-DY
  9. 40 X=X+DX:IFX<1ORX>38THENDX=-DX
  10. 50 GOTO20
  11. 60 FORD=1TO2E3:NEXT:PRINT"[147]     [158][219][146] [157][152][205]"
  12. 70 PRINT"       WHEW![157][157]I'M TIRED!![157][157][158]BRING ME[157][157][155]A COKE!![151]"
  13. 71 FORJ=1TO8:GOSUB80:FORD=1TO1E3:NEXT:NEXT:END
  14. 80 FORT=15TO0STEP-1:POKE54296,T:POKE54296,0:NEXT:RETURN
  15.