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