home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94b.d64 / game-demo2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 POKE53280,0:POKE53281,0:POKE53270,216:FORT=0TO7:READX:POKE832+T*3,X:POKE12288+T,X:NEXT
  2. 2 V=53248:POKEV+21,0:POKE2040,13:POKEV+37,9:POKEV+38,7:DATA20,113,65,65,85,90,111,44
  3. 3 X=167:Y=50:PRINT"[147]"TAB(255)" BUBBLE !":PRINTTAB(48)"(C) BY [158]SVEN FORSTMANN":FORT=0TO7
  4. 4 POKE12544+T,0:NEXT:PRINTTAB(254)"[159]PRESS FIRE":WAIT56320,127,127:PRINT"[147][155]"TAB(255)TAB(255)TAB(255)
  5. 5 POKE53270,216:POKE53272,29:POKE53283,14:POKEV+39,14:POKEV+21,1:POKE53282,6:POKEV+28,1
  6. 6 POKEV+16,0:POKEV,0:FORG=80TO0STEP-.1:PRINT"@"SPC(INT(RND(1)*G+G));:P=P+1:GOSUB7:NEXTG:GOTO16
  7. 7 WAIT653,1,1:J=PEEK(56320):IF(JAND1)=.THENY=Y-4:IFY<50THENY=Y+4
  8. 8 IF(JAND2)=.THENY=Y+4:IFY>230THENY=Y-4
  9. 9 IF(JAND4)=.THENX=X-4:IFX<0ANDPEEK(V+16)=1THENPOKEV+16,.:X=255
  10. 10 IF(JAND8)=.THENX=X+4:IFX>80ANDPEEK(V+16)=1THENX=X-4
  11. 11 IFX>255THENX=.:POKEV+16,1
  12. 12 IFX<24ANDPEEK(V+16)=.THENX=X+4
  13. 13 IFPEEK(V+31)=1THENPOKE53272,21:PRINT"[147]"SPC(95)"GAME OVER":POKEV+31,.:GOTO15
  14. 14 POKEV,X:POKEV+1,Y:RETURN
  15. 15 FORT=0TO99:POKEV+37,T:NEXT:POKEV,0:PRINT""SPC(254)"POINTS :";P:FORT=0TO2000:NEXT:RUN
  16. 16 FORT=8TO15:POKE12288+T,85:NEXT:FORT=1984TO2023:POKET,1:NEXT:FORT=YTO255STEP.1:POKEV+1,T:NEXT
  17. 17 PRINT"[147][159]";TAB(255)"THE [158]END":PRINTTAB(253)"POINTS:[156]";P+INT(RND(1)*100):POKE53272,21
  18. 18 PRINTTAB(246)"[155]PRESS SPACE TO PLAY AGAIN !":POKE198,0:POKEV+16,0
  19. 19 POKEV,RND(1)*231+24:FORT=0TO255STEP2:POKEV+1,T:IFPEEK(198)=1THENPOKEV,0:RUN
  20. 20 NEXT:GOTO19
  21.