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 9 added 312 lines
!!Source Code
{{{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\\
\\
}}}
This page (revision-8) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg  Top