This page (revision-8) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg 

This page was created on 13-Mar-2019 07:41 by Roland B. Wassenberg

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
8 03-Feb-2023 15:21 8 KB Roland B. Wassenberg to previous
7 13-Mar-2019 08:09 8 KB Roland B. Wassenberg to previous | to last
6 13-Mar-2019 08:01 8 KB Roland B. Wassenberg to previous | to last
5 13-Mar-2019 07:59 8 KB Roland B. Wassenberg to previous | to last
4 13-Mar-2019 07:48 304 bytes Roland B. Wassenberg to previous | to last
3 13-Mar-2019 07:47 301 bytes Roland B. Wassenberg to previous | to last
2 13-Mar-2019 07:45 295 bytes Roland B. Wassenberg to previous | to last
1 13-Mar-2019 07:41 145 bytes Roland B. Wassenberg to last

Page References

Incoming links Outgoing links
Frog
Frog

Version management

Difference between version and

At line 8 changed one line
* [Antic Vol. 6 #10 February 1988|https://archive.org/details/a8b_antic_88_feb_a]
* [Antic Vol. 6 #10 February 1988|https://archive.org/details/a8b_antic_88_feb_a] ; Thanks to Jason Scott for uploading to archive.org!
At line 10 added 3 lines
!!Ad
* [Antic_Feb_88_Reardoor.pdf] ; size: 1.4 MB ; Thank you very much GoodByteXL!
At line 11 changed 308 lines
{{{Listing
; FROG\\
; BY GREG KNAUSS\\
; (c)1987, ANTIC PUBLISHING\\
\\
BYTE TIME,SEC,PIC,JMP,SCR,DEL,FLY,FS,\\
PM,DX,DY,EX,EY,OY,S,T,W,U,D,M\\
BYTE ARRAY FY(4)\\
INT DIR,TN,OX\\
INT ARRAY FD(4)\\
CARD DRB,CH,DL,X,Y,I,J,K\\
CARD ARRAY FX(4)\\
\\
PROC PLRVBI()\\
[162 3 189 244 6 240 89 56 221 240 6\\
240 83 141 254 6 106 141 255 6 142\\
253 6 24 169 0 109 253 6 24 109 252\\
6 133 204 133 206 189 240 6 133 203\\
173 254 6 133 205 189 248 6 170 232\\
46 255 6 144 16 168 177 203 145 205\\
169 0 145 203 136 202 208 244 76 87\\
6 160 0 177 203 145 205 169 0 145\\
203 200 202 208 244 174 253 6 173\\
254 6 157 240 6 189 236 6 240 48 133\\
203 24 138 141 253 6 109 235 6 133\\
204 24 173 253 6 109 252 6 133 206\\
189 240 6 133 205 189 248 6 170 160\\
0 177 203 145 205 200 202 208 248 \\
174 253 6 169 0 157 236 6 202 48 3\\
76 2 6 76 98 228 0 0]\\
\\
PROC MYVBI()\\
TIME==+1 [76 $E45F]\\
\\
PROC DLI()\\
[72 238 0 5 173 0 5 141 10 212 201 1\\
208 12 169 99 141 9 212 169 198 141 23\\
208 104 64 201 2 208 7 169 40 141 26\\
208 104 64 201 3 208 15 169 130 141\\
26 208 141 24 208 169 9 141 25 208\\
104 64 169 224 141 9 212 169 15 141\\
23 208 169 0 141 0 5 104 64]\\
\\
PROC DLIST()\\
[112 112 112 66 0 0 5 5 7 6 130 5\\
5 5 132 132 5 5 4 132 2 65]\\
\\
PROC FROG1()\\
[0 0 0 0 0 0 0 0\\
0 0 0 0 0 0 0 0\\
0 0 0 0 54 108 255 227\\
126 128 252 252 238 118 54 59\\
108 216 254 130 198 252 0 252\\
220 204 238 102 116 160 208 240\\
240 240 240 224 224 224 224 192\\
128 192 224 192 128 0 0 0\\
0 128 192 192 192 224 224 224\\
224 240 240 240 240 240 240 240\\
248 248 248 248 192 54 108 255\\
193 99 190 128 206 198 231 198\\
0 0 0 0 0 0 0 0\\
0 0 0 0 0 0 0 0 \\
0 0 0 0 0 240 124 126 \\
255 199 187 127 127 119 250 124 \\
0 0 128 128 128 64 224 224\\
224 96 96 240 240 240 240 240 \\
240 240 120 120 120 56 188 188 \\
140 156 188 156 8 0 0 0 \\
128 196 238 223 158 188 184 184\\
56 120 120 248 240 240 240 240\\
240 224 224 224 224 224 192 64\\
64 192 128 128 128 0 0 0]\\
\\
PROC FROG2()\\
[0 0 0 0 0 0 0 0\\
0 0 0 0 0 0 0 0\\
0 0 0 0 0 15 62 126\\
255 227 221 254 254 238 95 62\\
0 0 1 1 1 2 7 7\\
7 6 6 15 15 15 15 15\\
15 15 30 30 30 28 61 61\\
49 57 61 57 16 0 0 0\\
1 35 119 251 121 61 29 29\\
28 30 30 31 15 15 15 15\\
15 7 7 7 7 7 3 2\\
2 3 1 1 1 0 0 0\\
0 0 0 0 0 0 0 0 \\
0 0 0 0 0 0 0 0 \\
0 0 0 0 108 54 255 199 \\
126 1 63 63 119 110 108 220 \\
54 27 127 65 99 63 0 63 \\
59 51 119 102 46 5 11 15\\
15 15 15 7 7 7 7 3 \\
1 3 7 3 1 0 0 0 \\
0 1 3 3 3 7 7 7 \\
7 15 15 15 15 15 15 15 \\
31 31 31 31 3 108 54 255 \\
131 198 125 1 115 99 231 99]\\
\\
PROC TOUNGE()\\
[0 255 127 63 31 15 7 3 1 0\\
128 192 224 240 248 252 254 255]\\
\\
PROC DRAGON()\\
[66 165 153 126 24 0 0 0\\
0 0 0 24 126 153 165 66]\\
\\
PROC CHRS()\\
[0 0 0 0 0 0 0 0\\
0 0 10 42 10 0 0 0\\
0 0 0 0 0 0 0 0\\
0 42 170 170 170 170 0 0\\
2 170 85 170 170 170 170 0\\
170 165 90 170 170 170 170 0\\
170 85 170 170 170 169 170 170\\
170 85 170 169 150 106 170 170\\
165 90 165 90 170 170 170 170\\
85 89 169 169 170 170 170 170\\
85 165 170 170 106 106 106 170\\
90 85 165 170 170 170 170 170\\
170 85 90 165 170 170 170 170\\
170 85 170 90 165 170 170 170\\
170 170 85 170 90 165 170 170\\
170 170 85 170 170 106 170 170\\
170 170 90 165 170 170 170 170\\
170 170 170 85 170 170 170 170\\
170 170 170 85 170 170 170 170\\
170 170 170 170 85 170 170 170\\
170 170 170 170 85 170 170 170\\
170 170 170 170 90 170 170 160\\
170 170 170 170 170 170 170 0\\
0 170 170 170 170 170 160 0\\
0 0 170 170 170 160 0 0\\
0 0 0 128 0 0 0 0\\
16 156 216 156 216 156 16 16\\
16 16 16 16 0 0 0 0\\
16 16 16 16 16 16 0 0\\
16 16 16 16 16 16 16 16]\\
\\
PROC FLIES()\\
[3 12 48 192]\\
\\
PROC CLRS()\\
[66 202 202 4 196 15 134 0 134]\\
\\
PROC PAUSE()\\
SNDRST() POSITION(15,0)\\
PRINT("* Paused *") POKE(764,255)\\
WHILE PEEK(764)=255 DO OD\\
POSITION(15,0) PRINT(" ")\\
POKE(764,255) RETURN\\
\\
PROC SHOOT()\\
T==+TN IF T=10 OR T=95 THEN TN=-TN FI\\
IF T=50 THEN TN=0 FI POKE(53248,X+OX)\\
POKE(1780,Y+OY) POKE(1772,T/5)\\
IF TN<>0 THEN FOR M=0 TO 3 DO\\
IF PEEK(53256+M)=1 THEN FX(M)=3000\\
SOUND(1,50,10,10) SCR==+1\\
POSITION(9,14) PRINTC(SCR)\\
SOUND(1,0,0,0) FI OD IF PEEK(53263)=1\\
THEN SOUND(1,100,10,10) DY=0SEC==+30\\
SCR==+5 POKE(53251,0) POSITION(9,14)\\
PRINTC(SCR) SOUND(1,0,0,0) FI FI\\
POKE(53278,0) RETURN\\
\\
PROC PLACE()\\
SHOOT() OX=-28 IF DIR=1 THEN OX=11 FI\\
OY=23 IF PIC MOD 3=1 THEN OY=4 FI\\
IF PIC MOD 3=2 THEN OY=25 FI RETURN\\
\\
PROC MOVE()\\
POKE(16,112) POKE(53774,112)\\
IF PEEK(764)=33 THEN PAUSE() FI\\
POKE(53250,X) POKE(53249,X+8)\\
POKE(1782,Y) POKE(1781,Y)\\
IF STRIG(0)=0 AND TN=0 AND JMP=2\\
THEN TN=DIR T=50 PLACE() FI\\
IF DY<4 THEN FOR DEL=1 TO 50 DO OD FI\\
IF DX>3 AND DY>3 THEN DX==+1\\
IF DX>EX THEN DX==-2 FI DY==+1\\
IF DY>EY THEN DY==-2 FI\\
IF EX=DX OR EY=DY THEN\\
EX=RAND(240)+10 EY=RAND(70)+20 FI\\
POKE(53251,DX) POKE(1783,DY)\\
POKE(1775,(DX MOD 2)*8+1) FI\\
IF SEC MOD 20=0 THEN DX=250+RAND(2)*10\\
DY=5 EX=RAND(255) EY=RAND(100)+50 FI\\
IF SEC MOD 20=15 AND DX>3 AND DY>3\\
THEN EX=125+RAND(10) EY=0 FI\\
IF TIME>58 AND SEC>0 THEN TIME=0\\
SEC==-1 POSITION(35,14) PRINTB(SEC)\\
PRINT(" ") FI\\
SHOOT() FLY==+1 IF FLY=4 THEN FLY=0\\
FI FX(FLY)==+FD(FLY)*FS\\
IF FX(FLY)>2450 OR FD(FLY)=0 THEN\\
FOR M=0 TO 1 DO U=PEEK(FLIES+FLY)\\
D=FY(FLY) W=PEEK(DRB+768+D+M)-U\\
POKE(DRB+768+D+M,W) OD FD(FLY)=1\\
IF RAND(10)>5 THEN FD(FLY)=-1 FI\\
FX(FLY)=RAND(400) IF FD(FLY)=-1 THEN\\
FX(FLY)=2150+RAND(400) FI\\
FY(FLY)=50+RAND(100) FOR M=0 TO 1 DO\\
U=PEEK(FLIES+FLY) D=FY(FLY)\\
W=PEEK(DRB+768+D+M)+U\\
POKE(DRB+768+D+M,W) OD FI\\
D=FX(FLY)/10 POKE(53252+FLY,D)\\
RETURN\\
\\
PROC ANIMATE()\\
POKE(1773,PIC*32+1)\\
POKE(1774,PIC*32+1) RETURN\\
\\
PROC SPLASH()\\
T=50 TN=0 FOR I=0 TO 31 DO Y==+1\\
POKE(1785,32-I) POKE(1786,32-I)\\
MOVE() OD X=0 MOVE() POKEC(548,$E462)\\
I=SEC DO SEC==-1 POSITION(35,14)\\
PRINTB(SEC) PRINT(" ")\\
SOUND(0,200,10,10) FOR DEL=1 TO 5 DO\\
MOVE() OD SOUND(0,0,0,0)\\
FOR DEL=1 TO 5 DO MOVE() OD\\
IF SEC=I-30 OR SEC=0 THEN EXIT FI OD\\
POKEC(548,PLRVBI) PIC=1 X=50 DIR=1\\
JMP=2 FOR I=1 TO 32 DO Y==-1\\
POKE(1785,I) POKE(1786,I) ANIMATE()\\
MOVE() OD PIC=0 RETURN\\
\\
PROC SETUP()\\
DO GRAPHICS(0) POKE(559,0)\\
POKE(752,1) DL=PEEKC(88)\\
POKE(16,112) POKE(53774,112) \\
POKEC(DLIST+4,DL) FOR I=0 TO 1 DO\\
POKE(82,I*34+1) POSITION(I*34+1,5)\\
PRINTE(": :") PRINTE("= :=")\\
PRINTE("=:==") PRINTE("====")\\
PRINTE("====") PRINTE("====")\\
PRINTE("<=;<") OD POSITION(8,11)\\
PRINT("!#$%&'()*+,-./0123456789")\\
POSITION(2,14) PRINT("Score: 0")\\
POSITION(29,14) PRINT("Time: 120")\\
CH=(PEEK(106)-8)*256\\
MOVEBLOCK(CH,CHRS,1024)\\
POKE(DLI+15,CH/256)\\
MOVEBLOCK(1536,PLRVBI,160)\\
PM=PEEK(106)-24 DRB=PM*256+1\\
POKE(1788,PM+4) POKE(53277,3)\\
POKE(54279,PM) POKE(1771,PM-1)\\
POKE(53256,3) POKE(623,17)\\
MOVEBLOCK(DRB-256,TOUNGE,20)\\
MOVEBLOCK(DRB,FROG1,192)\\
MOVEBLOCK(DRB+256,FROG2,192)\\
MOVEBLOCK(DRB+512,DRAGON,16)\\
ZERO(DRB+768,1280)\\
MOVEBLOCK(704,CLRS,9)\\
T=50 SETBLOCK(1773,3,1)\\
POKE(1784,1) POKE(1785,32)\\
POKE(1786,32) POKE(1787,8)\\
POKE(1280,0) POKEC(548,PLRVBI)\\
POKEC(546,MYVBI) POKEC(560,DLIST)\\
POKEC(512,DLI) POKE(54286,192)\\
\\
FOR I=0 TO 3 DO FX(I)=0 FY(I)=0\\
FD(I)=0 OD SEC=121 SCR=0 FS=5 FLY=0\\
DY=0 X=120 Y=160 DIR=1 PIC=0 TN=0\\
ANIMATE() MOVE() POSITION(8,3)\\
PRINT("FROG") POSITION(13,4)\\
PRINT("By Greg Knauss") POSITION(7,0)\\
PRINT("(c)1987 Antic Publishing")\\
POKE(559,62) WHILE PEEK(53279)<>6 AND\\
STRIG(0)=1 DO OD POSITION(8,3)\\
PRINT(" ") POSITION(13,4)\\
PRINT(" ") POSITION(7,0)\\
PRINT(" ")\\
\\
DO IF SEC=0 THEN EXIT FI\\
JMP=0 S=STICK(0)\\
IF S=7 THEN PIC=1 DIR=1 JMP=1 FI\\
IF S=11 THEN PIC=4 DIR=-1 JMP=1 FI\\
IF S=14 THEN JMP=2 FI\\
IF S=13 THEN DIR=-DIR PIC=3-PIC FI\\
IF X<80 OR X>167 THEN SPLASH() FI\\
IF JMP=1 THEN ANIMATE() PLACE()\\
FOR I=0 TO 9 DO X==+DIR Y==-1 MOVE()\\
SOUND(0,Y-90,10,4) OD FOR I=0 TO 9 DO\\
X==+DIR Y==+1 MOVE()\\
SOUND(0,Y-90,10,4) OD PIC==-1 PLACE()\\
SOUND(0,0,0,0) FI\\
IF JMP=2 THEN PIC==+1 ANIMATE()\\
PLACE() FOR I=0 TO 126 DO\\
SOUND(0,Y,10,6-I/20) IF I MOD 9=0 THEN\\
X==+DIR FI Y==-1 MOVE() OD PIC==+1\\
ANIMATE() PLACE() SOUND(0,0,0,0)\\
FOR I=0 TO 126 DO IF I MOD 9=0 THEN\\
X==+DIR FI Y==+1 MOVE() OD PIC==-2\\
PLACE() FI IF S<>15 AND X>79\\
AND X<168 THEN FOR I=1 TO 70 DO\\
ANIMATE() MOVE() OD FI IF S=15 THEN\\
ANIMATE() MOVE() FI FS=SCR/2+5\\
POKE(77,0) FOR DEL=1 TO 20 DO OD OD\\
\\
POSITION(5,3) PRINT("GAME OVER!")\\
POSITION(9,14) PRINTB(SCR)\\
FOR I=1 TO 500 DO MOVE() OD\\
POSITION(10,0)\\
PRINT("Press the trigger...")\\
WHILE STRIG(0)=1 DO MOVE() OD OD\\
\\
{{{
; FROG
; BY GREG KNAUSS
; (c)1987, ANTIC PUBLISHING
At line 19 added 302 lines
BYTE TIME,SEC,PIC,JMP,SCR,DEL,FLY,FS,
PM,DX,DY,EX,EY,OY,S,T,W,U,D,M
BYTE ARRAY FY(4)
INT DIR,TN,OX
INT ARRAY FD(4)
CARD DRB,CH,DL,X,Y,I,J,K
CARD ARRAY FX(4)
PROC PLRVBI()
[162 3 189 244 6 240 89 56 221 240 6
240 83 141 254 6 106 141 255 6 142
253 6 24 169 0 109 253 6 24 109 252
6 133 204 133 206 189 240 6 133 203
173 254 6 133 205 189 248 6 170 232
46 255 6 144 16 168 177 203 145 205
169 0 145 203 136 202 208 244 76 87
6 160 0 177 203 145 205 169 0 145
203 200 202 208 244 174 253 6 173
254 6 157 240 6 189 236 6 240 48 133
203 24 138 141 253 6 109 235 6 133
204 24 173 253 6 109 252 6 133 206
189 240 6 133 205 189 248 6 170 160
0 177 203 145 205 200 202 208 248
174 253 6 169 0 157 236 6 202 48 3
76 2 6 76 98 228 0 0]
PROC MYVBI()
TIME==+1 [76 $E45F]
PROC DLI()
[72 238 0 5 173 0 5 141 10 212 201 1
208 12 169 99 141 9 212 169 198 141 23
208 104 64 201 2 208 7 169 40 141 26
208 104 64 201 3 208 15 169 130 141
26 208 141 24 208 169 9 141 25 208
104 64 169 224 141 9 212 169 15 141
23 208 169 0 141 0 5 104 64]
PROC DLIST()
[112 112 112 66 0 0 5 5 7 6 130 5
5 5 132 132 5 5 4 132 2 65]
PROC FROG1()
[0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 54 108 255 227
126 128 252 252 238 118 54 59
108 216 254 130 198 252 0 252
220 204 238 102 116 160 208 240
240 240 240 224 224 224 224 192
128 192 224 192 128 0 0 0
0 128 192 192 192 224 224 224
224 240 240 240 240 240 240 240
248 248 248 248 192 54 108 255
193 99 190 128 206 198 231 198
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 240 124 126
255 199 187 127 127 119 250 124
0 0 128 128 128 64 224 224
224 96 96 240 240 240 240 240
240 240 120 120 120 56 188 188
140 156 188 156 8 0 0 0
128 196 238 223 158 188 184 184
56 120 120 248 240 240 240 240
240 224 224 224 224 224 192 64
64 192 128 128 128 0 0 0]
PROC FROG2()
[0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 15 62 126
255 227 221 254 254 238 95 62
0 0 1 1 1 2 7 7
7 6 6 15 15 15 15 15
15 15 30 30 30 28 61 61
49 57 61 57 16 0 0 0
1 35 119 251 121 61 29 29
28 30 30 31 15 15 15 15
15 7 7 7 7 7 3 2
2 3 1 1 1 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 108 54 255 199
126 1 63 63 119 110 108 220
54 27 127 65 99 63 0 63
59 51 119 102 46 5 11 15
15 15 15 7 7 7 7 3
1 3 7 3 1 0 0 0
0 1 3 3 3 7 7 7
7 15 15 15 15 15 15 15
31 31 31 31 3 108 54 255
131 198 125 1 115 99 231 99]
PROC TOUNGE()
[0 255 127 63 31 15 7 3 1 0
128 192 224 240 248 252 254 255]
PROC DRAGON()
[66 165 153 126 24 0 0 0
0 0 0 24 126 153 165 66]
PROC CHRS()
[0 0 0 0 0 0 0 0
0 0 10 42 10 0 0 0
0 0 0 0 0 0 0 0
0 42 170 170 170 170 0 0
2 170 85 170 170 170 170 0
170 165 90 170 170 170 170 0
170 85 170 170 170 169 170 170
170 85 170 169 150 106 170 170
165 90 165 90 170 170 170 170
85 89 169 169 170 170 170 170
85 165 170 170 106 106 106 170
90 85 165 170 170 170 170 170
170 85 90 165 170 170 170 170
170 85 170 90 165 170 170 170
170 170 85 170 90 165 170 170
170 170 85 170 170 106 170 170
170 170 90 165 170 170 170 170
170 170 170 85 170 170 170 170
170 170 170 85 170 170 170 170
170 170 170 170 85 170 170 170
170 170 170 170 85 170 170 170
170 170 170 170 90 170 170 160
170 170 170 170 170 170 170 0
0 170 170 170 170 170 160 0
0 0 170 170 170 160 0 0
0 0 0 128 0 0 0 0
16 156 216 156 216 156 16 16
16 16 16 16 0 0 0 0
16 16 16 16 16 16 0 0
16 16 16 16 16 16 16 16]
PROC FLIES()
[3 12 48 192]
PROC CLRS()
[66 202 202 4 196 15 134 0 134]
PROC PAUSE()
SNDRST() POSITION(15,0)
PRINT("* Paused *") POKE(764,255)
WHILE PEEK(764)=255 DO OD
POSITION(15,0) PRINT(" ")
POKE(764,255) RETURN
PROC SHOOT()
T==+TN IF T=10 OR T=95 THEN TN=-TN FI
IF T=50 THEN TN=0 FI POKE(53248,X+OX)
POKE(1780,Y+OY) POKE(1772,T/5)
IF TN<>0 THEN FOR M=0 TO 3 DO
IF PEEK(53256+M)=1 THEN FX(M)=3000
SOUND(1,50,10,10) SCR==+1
POSITION(9,14) PRINTC(SCR)
SOUND(1,0,0,0) FI OD IF PEEK(53263)=1
THEN SOUND(1,100,10,10) DY=0SEC==+30
SCR==+5 POKE(53251,0) POSITION(9,14)
PRINTC(SCR) SOUND(1,0,0,0) FI FI
POKE(53278,0) RETURN
PROC PLACE()
SHOOT() OX=-28 IF DIR=1 THEN OX=11 FI
OY=23 IF PIC MOD 3=1 THEN OY=4 FI
IF PIC MOD 3=2 THEN OY=25 FI RETURN
PROC MOVE()
POKE(16,112) POKE(53774,112)
IF PEEK(764)=33 THEN PAUSE() FI
POKE(53250,X) POKE(53249,X+8)
POKE(1782,Y) POKE(1781,Y)
IF STRIG(0)=0 AND TN=0 AND JMP=2
THEN TN=DIR T=50 PLACE() FI
IF DY<4 THEN FOR DEL=1 TO 50 DO OD FI
IF DX>3 AND DY>3 THEN DX==+1
IF DX>EX THEN DX==-2 FI DY==+1
IF DY>EY THEN DY==-2 FI
IF EX=DX OR EY=DY THEN
EX=RAND(240)+10 EY=RAND(70)+20 FI
POKE(53251,DX) POKE(1783,DY)
POKE(1775,(DX MOD 2)*8+1) FI
IF SEC MOD 20=0 THEN DX=250+RAND(2)*10
DY=5 EX=RAND(255) EY=RAND(100)+50 FI
IF SEC MOD 20=15 AND DX>3 AND DY>3
THEN EX=125+RAND(10) EY=0 FI
IF TIME>58 AND SEC>0 THEN TIME=0
SEC==-1 POSITION(35,14) PRINTB(SEC)
PRINT(" ") FI
SHOOT() FLY==+1 IF FLY=4 THEN FLY=0
FI FX(FLY)==+FD(FLY)*FS
IF FX(FLY)>2450 OR FD(FLY)=0 THEN
FOR M=0 TO 1 DO U=PEEK(FLIES+FLY)
D=FY(FLY) W=PEEK(DRB+768+D+M)-U
POKE(DRB+768+D+M,W) OD FD(FLY)=1
IF RAND(10)>5 THEN FD(FLY)=-1 FI
FX(FLY)=RAND(400) IF FD(FLY)=-1 THEN
FX(FLY)=2150+RAND(400) FI
FY(FLY)=50+RAND(100) FOR M=0 TO 1 DO
U=PEEK(FLIES+FLY) D=FY(FLY)
W=PEEK(DRB+768+D+M)+U
POKE(DRB+768+D+M,W) OD FI
D=FX(FLY)/10 POKE(53252+FLY,D)
RETURN
PROC ANIMATE()
POKE(1773,PIC*32+1)
POKE(1774,PIC*32+1) RETURN
PROC SPLASH()
T=50 TN=0 FOR I=0 TO 31 DO Y==+1
POKE(1785,32-I) POKE(1786,32-I)
MOVE() OD X=0 MOVE() POKEC(548,$E462)
I=SEC DO SEC==-1 POSITION(35,14)
PRINTB(SEC) PRINT(" ")
SOUND(0,200,10,10) FOR DEL=1 TO 5 DO
MOVE() OD SOUND(0,0,0,0)
FOR DEL=1 TO 5 DO MOVE() OD
IF SEC=I-30 OR SEC=0 THEN EXIT FI OD
POKEC(548,PLRVBI) PIC=1 X=50 DIR=1
JMP=2 FOR I=1 TO 32 DO Y==-1
POKE(1785,I) POKE(1786,I) ANIMATE()
MOVE() OD PIC=0 RETURN
PROC SETUP()
DO GRAPHICS(0) POKE(559,0)
POKE(752,1) DL=PEEKC(88)
POKE(16,112) POKE(53774,112)
POKEC(DLIST+4,DL) FOR I=0 TO 1 DO
POKE(82,I*34+1) POSITION(I*34+1,5)
PRINTE(": :") PRINTE("= :=")
PRINTE("=:==") PRINTE("====")
PRINTE("====") PRINTE("====")
PRINTE("<=;<") OD POSITION(8,11)
PRINT("!#$%&'()*+,-./0123456789")
POSITION(2,14) PRINT("Score: 0")
POSITION(29,14) PRINT("Time: 120")
CH=(PEEK(106)-8)*256
MOVEBLOCK(CH,CHRS,1024)
POKE(DLI+15,CH/256)
MOVEBLOCK(1536,PLRVBI,160)
PM=PEEK(106)-24 DRB=PM*256+1
POKE(1788,PM+4) POKE(53277,3)
POKE(54279,PM) POKE(1771,PM-1)
POKE(53256,3) POKE(623,17)
MOVEBLOCK(DRB-256,TOUNGE,20)
MOVEBLOCK(DRB,FROG1,192)
MOVEBLOCK(DRB+256,FROG2,192)
MOVEBLOCK(DRB+512,DRAGON,16)
ZERO(DRB+768,1280)
MOVEBLOCK(704,CLRS,9)
T=50 SETBLOCK(1773,3,1)
POKE(1784,1) POKE(1785,32)
POKE(1786,32) POKE(1787,8)
POKE(1280,0) POKEC(548,PLRVBI)
POKEC(546,MYVBI) POKEC(560,DLIST)
POKEC(512,DLI) POKE(54286,192)
FOR I=0 TO 3 DO FX(I)=0 FY(I)=0
FD(I)=0 OD SEC=121 SCR=0 FS=5 FLY=0
DY=0 X=120 Y=160 DIR=1 PIC=0 TN=0
ANIMATE() MOVE() POSITION(8,3)
PRINT("FROG") POSITION(13,4)
PRINT("By Greg Knauss") POSITION(7,0)
PRINT("(c)1987 Antic Publishing")
POKE(559,62) WHILE PEEK(53279)<>6 AND
STRIG(0)=1 DO OD POSITION(8,3)
PRINT(" ") POSITION(13,4)
PRINT(" ") POSITION(7,0)
PRINT(" ")
DO IF SEC=0 THEN EXIT FI
JMP=0 S=STICK(0)
IF S=7 THEN PIC=1 DIR=1 JMP=1 FI
IF S=11 THEN PIC=4 DIR=-1 JMP=1 FI
IF S=14 THEN JMP=2 FI
IF S=13 THEN DIR=-DIR PIC=3-PIC FI
IF X<80 OR X>167 THEN SPLASH() FI
IF JMP=1 THEN ANIMATE() PLACE()
FOR I=0 TO 9 DO X==+DIR Y==-1 MOVE()
SOUND(0,Y-90,10,4) OD FOR I=0 TO 9 DO
X==+DIR Y==+1 MOVE()
SOUND(0,Y-90,10,4) OD PIC==-1 PLACE()
SOUND(0,0,0,0) FI
IF JMP=2 THEN PIC==+1 ANIMATE()
PLACE() FOR I=0 TO 126 DO
SOUND(0,Y,10,6-I/20) IF I MOD 9=0 THEN
X==+DIR FI Y==-1 MOVE() OD PIC==+1
ANIMATE() PLACE() SOUND(0,0,0,0)
FOR I=0 TO 126 DO IF I MOD 9=0 THEN
X==+DIR FI Y==+1 MOVE() OD PIC==-2
PLACE() FI IF S<>15 AND X>79
AND X<168 THEN FOR I=1 TO 70 DO
ANIMATE() MOVE() OD FI IF S=15 THEN
ANIMATE() MOVE() FI FS=SCR/2+5
POKE(77,0) FOR DEL=1 TO 20 DO OD OD
POSITION(5,3) PRINT("GAME OVER!")
POSITION(9,14) PRINTB(SCR)
FOR I=1 TO 500 DO MOVE() OD
POSITION(10,0)
PRINT("Press the trigger...")
WHILE STRIG(0)=1 DO MOVE() OD OD
This page (revision-8) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg  Top