Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF » G/FROGLIN

G/FROGLIN

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF
Filename: G/FROGLIN
Read OK:
File size: 0DB5 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10OSCLI("FX 200 1"):IFPAGE<>&E00 THEN PROCloc
   20REM   Frogling v1.2 By The Dave
   30REM From The Elk Gamesmaster Book
   40REM    Granada Publishing 1984
   50REM  --- Published In EUG#50 ---
   60REM
   70MODE2:VDU23;8202;0;0;0;:FORcount=1TO7:VDU19,count,0;0;:NEXTcount
   80PROCtitle
   90MODE5:VDU23;8202;0;0;0;:FORcount=1TO3:VDU19,count,0;0;:NEXTcount
  100frogshome%=0:FOR FROG=1 TO 3
  110PROCinit
  120COLOUR128
  130PRINTTAB(16,2)"FROG"TAB(18,3);FROG
  140TIME=0
  150REPEAT
  160PROCscroll
  170PROCmove_f
  180COLOUR128
  190IF TIME-500>0 THEN PRINTTAB(16,5)"TIME"TAB(17,6);TIME DIV 100-5
  200UNTIL TIME-500>MAX OR GAME_END
  210PROCdeath
  220FORcount=1TO3:VDU19,count,0;0;:NEXTcount
  230NEXT FROG
  240PROCend_game
  250IF AGAIN THEN RUN
  260END
  270DEFPROCinit
  280VDU23,224,&3C,&7E,&7E,&7E,&7E,&FF,&FF,&FF,23,225,&7E,&7E,&7E,&7E,&7E,&7E,&7E,&7E,23,226,&7E,&7E,&FF,&FF,&FF,&7E,&7E,&7E,23,227,&B9,&52,&1C,&1E,&1C,&52,&B9,&00,23,228,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
  290A%=32:B%=32:C%=32:D%=32
  300VDU23;8202;0;0;0;
  310X%=2
  320Y%=15
  330VDU26:CLS
  340FORI=0TO31
  350COLOUR128+I
  360PRINTTAB(3,I);SPC(5);
  370COLOUR130
  380PRINTTAB(11,I);SPC(5);
  390NEXTI
  400COLOUR129:VDU28,4,31,4,0:CLS:VDU28,6,31,6,0:CLS:VDU28,0,31,19,0
  410VDU19,0,0;0;19,1,1;0;19,2,6;0;19,3,2;0;
  420GAME_END=FALSE
  430MAX=1000
  440ENVELOPE 1,1,1,-2,1,2,2,2,126,0,0,-126,126,1
  450ENDPROC
  460:
  470DEFFNgen_car(PSTART,PEND,OB%)
  480LOCAL T%
  490T%=OB%
  500IF OB%=32 AND RND(1)<PSTART THEN T%=224
  510IF OB%=224 THEN T%=225
  520IF OB%=226 THEN T%=32
  530IF T%=225 AND RND(1)<PEND THEN T%=226
  540=T%
  550:
  560DEFPROCscroll
  570A%=FNgen_car(.4,.5,A%)
  580PROCp_wind(1,A%)
  590B%=FNgen_car(.16,.5,B%)
  600PROCp_wind(2,B%)
  610B%=FNgen_car(.2,.5,B%)
  620PROCp_wind(5,B%)
  630C%=FNgen_log(.16,.2,C%)
  640PROCp_wind(3,C%)
  650C%=FNgen_log(.1,.2,C%)
  660PROCp_wind(5,C%)
  670D%=FNgen_log(.1,.2,D%)
  680PROCp_wind(4,D%)
  690PROCp_wind(6,0)
  700ENDPROC
  710:
  720DEFPROCp_wind(N%,C%)
  730IF N%=1 THEN VDU28,4,31,4,0:VDU17,2,17,129
  740IF N%=2 THEN VDU28,6,31,6,0
  750IF N%=3 THEN VDU28,12,31,12,0:VDU17,1,17,130
  760IF N%=4 THEN VDU28,14,31,14,0:VDU17,1
  770IF N%=6 THEN VDU28,0,31,19,0:ENDPROC
  780PRINTTAB(0,31);CHR$(C%);
  790ENDPROC
  800:
  810DEFFNgen_log(PSTART,PEND,OB%)
  820IF OB%=32 AND RND(1)<PSTART THEN =228
  830IF OB%=228 AND RND(1)<PEND THEN =32
  840=OB%
  850:
  860DEFPROCmove_f
  870IF TIME<500 THEN ENDPROC
  880COLOUR3
  890IF X%=4 OR X%=6 THEN K%=X% DIV 2-1 ELSE K%=0
  900COLOUR 128+FNC(X%,Y%-K%)
  910PRINTTAB(X%,Y%-K%);" ";
  920IF INKEY(-73) AND Y%>0 THEN Y%=Y%-1
  930IF INKEY(-105) AND Y%<31 THEN Y%=Y%+1
  940IF INKEY(-67) THEN SOUND 1,1,30,2:SOUND 1,1,40,2:X%=X%+2
  950IF X%=8 OR X%=16 THEN X%=X%+2
  960Z%=FNC(X%,Y%)
  970IF Z%=2 THEN GAME_END=TRUE
  980COLOUR128+Z%
  990PRINTTAB(X%,Y%);CHR$(227);
 1000IF X%=12 OR X%=14 THEN PROCover
 1010IF X%=12 THEN PROCover
 1020IF X%>14 THEN GAME_END=TRUE
 1030ENDPROC
 1040:
 1050DEFPROCover
 1060IF Y%=0 THEN GAME_END=TRUE:ENDPROC
 1070Y%=Y%-1
 1080ENDPROC
 1090:
 1100DEFPROCdeath
 1110IFX%=12 OR X%=14 THEN SOUND 0,-15,4,5
 1120IFX%=4 OR X%=6 THEN SOUND 1,1,10,20
 1130IFX%<15 THEN GOTO 1170
 1140FORI=50TO100 STEP 8
 1150SOUND 1,1,I,4
 1160NEXTI:frogshome%=frogshome%+1
 1170TIME=0
 1180REPEAT
 1190UNTIL TIME>100
 1200ENDPROC
 1210:
 1220DEFPROCend_game
 1230CLS:COLOUR2:*FX 21
 1240IFfrogshome%=0 THEN PRINTTAB(1,5)"All frogs squished!" ELSE IFfrogshome%=1 THEN PRINTTAB(1,5)"Success for one!" ELSE IFfrogshome%=2 THEN PRINTTAB(1,5)"Two out of three!" ELSE IFfrogshome%=3 THEN PRINTTAB(1,5)"Congratulations!"
 1250PRINTTAB(1,10)"Another game? ";:VDU19,2,2;0;:g=GET:VDU8,g
 1260IFg=89 OR g=121 THEN AGAIN=TRUE ELSE AGAIN=FALSE
 1270ENDPROC
 1280:
 1290DEFFNC(X%,Y%)
 1300X%=16+64*X%
 1310Y%=1011-32*Y%
 1320=POINT(X%,Y%)
 1330DEFPROCtitle
 1340COLOUR132:COLOUR5:VDU28,0,5,19,0:CLS
 1350VDU28,0,31,19,0
 1360COLOUR2:PRINTTAB(2,1)"___""FROGLING""___"
 1370COLOUR1:PRINTTAB(2,4)"For BBC/Electron"
 1380COLOUR128:COLOUR3
 1390PRINTTAB(0,9)"You must guide three"'"  frogs across two"''"  busy roads and a"''"swift flowing river!"
 1400COLOUR5:PRINT'"  Use keys * and /"''"to move frogs up and"'"down and X to cross!"
 1410COLOUR6:PRINT'"Don't go under a car"'" or fall off a log!"
 1420VDU5:GCOL0,1:MOVE0,30:PRINT"Hit any key to start";:VDU4
 1430VDU19,1,1;0;19,2,2;0;19,3,3;0;19,4,4;0;19,5,5;0;19,6,6;0;19,7,7;0;
 1440OSCLI("FX 21"):FORI=1TO7:VDU19,I,I;0;:NEXTI:GCOL0,0:REPEATUNTILGET
 1450ENDPROC
 1460:
 1470DEFPROCloc:COLOUR0
 1480*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
 1490*FX138,0,128
 1500END
 1510ENDPROC

!�("FX 200 1"):�<>&E00 � �loc
!�   Frogling v1.2 By The Dave
#� From The Elk Gamesmaster Book
( �    Granada Publishing 1984
2"�  --- Published In EUG#50 ---
<�
F7�2:�23;8202;0;0;0;:�count=1�7:�19,count,0;0;:�count
P
�title
Z7�5:�23;8202;0;0;0;:�count=1�3:�19,count,0;0;:�count
dfrogshome%=0:� FROG=1 � 3
n	�init
x�128
��16,2)"FROG"�18,3);FROG
��=0
��
��scroll
��move_f
��128
�-� �-500>0 � �16,5)"TIME"�17,6);� � 100-5
�� �-500>MAX � GAME_END
�
�death
�$�count=1�3:�19,count,0;0;:�count
�
� FROG
�
�end_game
�� AGAIN � �
�

��init
��23,224,&3C,&7E,&7E,&7E,&7E,&FF,&FF,&FF,23,225,&7E,&7E,&7E,&7E,&7E,&7E,&7E,&7E,23,226,&7E,&7E,&FF,&FF,&FF,&7E,&7E,&7E,23,227,&B9,&52,&1C,&1E,&1C,&52,&B9,&00,23,228,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
"A%=32:B%=32:C%=32:D%=32
,�23;8202;0;0;0;
6X%=2
@	Y%=15
J	�26:�
T�I=0�31
^
�128+I
h�3,I);�(5);
r�130
|�11,I);�(5);
��I
�4�129:�28,4,31,4,0:�:�28,6,31,6,0:�:�28,0,31,19,0
�)�19,0,0;0;19,1,1;0;19,2,6;0;19,3,2;0;
�GAME_END=�
�MAX=1000
�)� 1,1,1,-2,1,2,2,2,126,0,0,-126,126,1
��
�:
�ݤgen_car(PSTART,PEND,OB%)
�� T%
�
T%=OB%
�#� OB%=32 � �(1)<PSTART � T%=224
�� OB%=224 � T%=225
� OB%=226 � T%=32
!� T%=225 � �(1)<PEND � T%=226
=T%
&:
0��scroll
:A%=�gen_car(.4,.5,A%)
D�p_wind(1,A%)
NB%=�gen_car(.16,.5,B%)
X�p_wind(2,B%)
bB%=�gen_car(.2,.5,B%)
l�p_wind(5,B%)
vC%=�gen_log(.16,.2,C%)
��p_wind(3,C%)
�C%=�gen_log(.1,.2,C%)
��p_wind(5,C%)
�D%=�gen_log(.1,.2,D%)
��p_wind(4,D%)
��p_wind(6,0)
��
�:
���p_wind(N%,C%)
�&� N%=1 � �28,4,31,4,0:�17,2,17,129
�� N%=2 � �28,6,31,6,0
�(� N%=3 � �28,12,31,12,0:�17,1,17,130
�!� N%=4 � �28,14,31,14,0:�17,1
� N%=6 � �28,0,31,19,0:�
�0,31);�(C%);
�
 :
*ݤgen_log(PSTART,PEND,OB%)
4!� OB%=32 � �(1)<PSTART � =228
>� OB%=228 � �(1)<PEND � =32
H=OB%
R:
\��move_f
f� �<500 � �
p�3
z&� X%=4 � X%=6 � K%=X% � 2-1 � K%=0
�� 128+�C(X%,Y%-K%)
��X%,Y%-K%);" ";
�� �(-73) � Y%>0 � Y%=Y%-1
�� �(-105) � Y%<31 � Y%=Y%+1
�,� �(-67) � � 1,1,30,2:� 1,1,40,2:X%=X%+2
�� X%=8 � X%=16 � X%=X%+2
�Z%=�C(X%,Y%)
�� Z%=2 � GAME_END=�
��128+Z%
��X%,Y%);�(227);
�� X%=12 � X%=14 � �over
�� X%=12 � �over
�� X%>14 � GAME_END=�
�
:

��over
$� Y%=0 � GAME_END=�:�
.Y%=Y%-1
8�
B:
L��death
V �X%=12 � X%=14 � � 0,-15,4,5
`�X%=4 � X%=6 � � 1,1,10,20
j�X%<15 � � �tRD
t�I=50�100 � 8
~
� 1,1,I,4
��I:frogshome%=frogshome%+1
��=0
��
�� �>100
��
�:
���end_game
��:�2:*FX 21
ر�frogshome%=0 � �1,5)"All frogs squished!" � �frogshome%=1 � �1,5)"Success for one!" � �frogshome%=2 � �1,5)"Two out of three!" � �frogshome%=3 � �1,5)"Congratulations!"
�0�1,10)"Another game? ";:�19,2,2;0;:g=�:�8,g
�%�g=89 � g=121 � AGAIN=� � AGAIN=�
��
:

ݤC(X%,Y%)
X%=16+64*X%
Y%=1011-32*Y%
(=�X%,Y%)
2��title
<�132:�5:�28,0,5,19,0:�
F�28,0,31,19,0
P!�2:�2,1)"___""FROGLING""___"
Z�1:�2,4)"For BBC/Electron"
d�128:�3
nc�0,9)"You must guide three"'"  frogs across two"''"  busy roads and a"''"swift flowing river!"
xL�5:�'"  Use keys * and /"''"to move frogs up and"'"down and X to cross!"
�5�6:�'"Don't go under a car"'" or fall off a log!"
�-�5:�0,1:�0,30:�"Hit any key to start";:�4
�D�19,1,1;0;19,2,2;0;19,3,3;0;19,4,4;0;19,5,5;0;19,6,6;0;19,7,7;0;
�,�("FX 21"):�I=1�7:�19,I,I;0;:�I:�0,0:���
��
�:
���loc:�0
�R*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
��
��
�
00000000  0d 00 0a 21 ff 28 22 46  58 20 32 30 30 20 31 22  |...!.("FX 200 1"|
00000010  29 3a e7 90 3c 3e 26 45  30 30 20 8c 20 f2 6c 6f  |):..<>&E00 . .lo|
00000020  63 0d 00 14 21 f4 20 20  20 46 72 6f 67 6c 69 6e  |c...!.   Froglin|
00000030  67 20 76 31 2e 32 20 42  79 20 54 68 65 20 44 61  |g v1.2 By The Da|
00000040  76 65 0d 00 1e 23 f4 20  46 72 6f 6d 20 54 68 65  |ve...#. From The|
00000050  20 45 6c 6b 20 47 61 6d  65 73 6d 61 73 74 65 72  | Elk Gamesmaster|
00000060  20 42 6f 6f 6b 0d 00 28  20 f4 20 20 20 20 47 72  | Book..( .    Gr|
00000070  61 6e 61 64 61 20 50 75  62 6c 69 73 68 69 6e 67  |anada Publishing|
00000080  20 31 39 38 34 0d 00 32  22 f4 20 20 2d 2d 2d 20  | 1984..2".  --- |
00000090  50 75 62 6c 69 73 68 65  64 20 49 6e 20 45 55 47  |Published In EUG|
000000a0  23 35 30 20 2d 2d 2d 0d  00 3c 05 f4 0d 00 46 37  |#50 ---..<....F7|
000000b0  eb 32 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.2:.23;8202;0;0;|
000000c0  30 3b 3a e3 63 6f 75 6e  74 3d 31 b8 37 3a ef 31  |0;:.count=1.7:.1|
000000d0  39 2c 63 6f 75 6e 74 2c  30 3b 30 3b 3a ed 63 6f  |9,count,0;0;:.co|
000000e0  75 6e 74 0d 00 50 0a f2  74 69 74 6c 65 0d 00 5a  |unt..P..title..Z|
000000f0  37 eb 35 3a ef 32 33 3b  38 32 30 32 3b 30 3b 30  |7.5:.23;8202;0;0|
00000100  3b 30 3b 3a e3 63 6f 75  6e 74 3d 31 b8 33 3a ef  |;0;:.count=1.3:.|
00000110  31 39 2c 63 6f 75 6e 74  2c 30 3b 30 3b 3a ed 63  |19,count,0;0;:.c|
00000120  6f 75 6e 74 0d 00 64 1d  66 72 6f 67 73 68 6f 6d  |ount..d.frogshom|
00000130  65 25 3d 30 3a e3 20 46  52 4f 47 3d 31 20 b8 20  |e%=0:. FROG=1 . |
00000140  33 0d 00 6e 09 f2 69 6e  69 74 0d 00 78 08 fb 31  |3..n..init..x..1|
00000150  32 38 0d 00 82 1c f1 8a  31 36 2c 32 29 22 46 52  |28......16,2)"FR|
00000160  4f 47 22 8a 31 38 2c 33  29 3b 46 52 4f 47 0d 00  |OG".18,3);FROG..|
00000170  8c 07 d1 3d 30 0d 00 96  05 f5 0d 00 a0 0b f2 73  |...=0..........s|
00000180  63 72 6f 6c 6c 0d 00 aa  0b f2 6d 6f 76 65 5f 66  |croll.....move_f|
00000190  0d 00 b4 08 fb 31 32 38  0d 00 be 2d e7 20 91 2d  |.....128...-. .-|
000001a0  35 30 30 3e 30 20 8c 20  f1 8a 31 36 2c 35 29 22  |500>0 . ..16,5)"|
000001b0  54 49 4d 45 22 8a 31 37  2c 36 29 3b 91 20 81 20  |TIME".17,6);. . |
000001c0  31 30 30 2d 35 0d 00 c8  1a fd 20 91 2d 35 30 30  |100-5..... .-500|
000001d0  3e 4d 41 58 20 84 20 47  41 4d 45 5f 45 4e 44 0d  |>MAX . GAME_END.|
000001e0  00 d2 0a f2 64 65 61 74  68 0d 00 dc 24 e3 63 6f  |....death...$.co|
000001f0  75 6e 74 3d 31 b8 33 3a  ef 31 39 2c 63 6f 75 6e  |unt=1.3:.19,coun|
00000200  74 2c 30 3b 30 3b 3a ed  63 6f 75 6e 74 0d 00 e6  |t,0;0;:.count...|
00000210  0a ed 20 46 52 4f 47 0d  00 f0 0d f2 65 6e 64 5f  |.. FROG.....end_|
00000220  67 61 6d 65 0d 00 fa 0f  e7 20 41 47 41 49 4e 20  |game..... AGAIN |
00000230  8c 20 f9 0d 01 04 05 e0  0d 01 0e 0a dd f2 69 6e  |. ............in|
00000240  69 74 0d 01 18 c7 ef 32  33 2c 32 32 34 2c 26 33  |it.....23,224,&3|
00000250  43 2c 26 37 45 2c 26 37  45 2c 26 37 45 2c 26 37  |C,&7E,&7E,&7E,&7|
00000260  45 2c 26 46 46 2c 26 46  46 2c 26 46 46 2c 32 33  |E,&FF,&FF,&FF,23|
00000270  2c 32 32 35 2c 26 37 45  2c 26 37 45 2c 26 37 45  |,225,&7E,&7E,&7E|
00000280  2c 26 37 45 2c 26 37 45  2c 26 37 45 2c 26 37 45  |,&7E,&7E,&7E,&7E|
00000290  2c 26 37 45 2c 32 33 2c  32 32 36 2c 26 37 45 2c  |,&7E,23,226,&7E,|
000002a0  26 37 45 2c 26 46 46 2c  26 46 46 2c 26 46 46 2c  |&7E,&FF,&FF,&FF,|
000002b0  26 37 45 2c 26 37 45 2c  26 37 45 2c 32 33 2c 32  |&7E,&7E,&7E,23,2|
000002c0  32 37 2c 26 42 39 2c 26  35 32 2c 26 31 43 2c 26  |27,&B9,&52,&1C,&|
000002d0  31 45 2c 26 31 43 2c 26  35 32 2c 26 42 39 2c 26  |1E,&1C,&52,&B9,&|
000002e0  30 30 2c 32 33 2c 32 32  38 2c 26 46 46 2c 26 46  |00,23,228,&FF,&F|
000002f0  46 2c 26 46 46 2c 26 46  46 2c 26 46 46 2c 26 46  |F,&FF,&FF,&FF,&F|
00000300  46 2c 26 46 46 2c 26 46  46 0d 01 22 1b 41 25 3d  |F,&FF,&FF..".A%=|
00000310  33 32 3a 42 25 3d 33 32  3a 43 25 3d 33 32 3a 44  |32:B%=32:C%=32:D|
00000320  25 3d 33 32 0d 01 2c 13  ef 32 33 3b 38 32 30 32  |%=32..,..23;8202|
00000330  3b 30 3b 30 3b 30 3b 0d  01 36 08 58 25 3d 32 0d  |;0;0;0;..6.X%=2.|
00000340  01 40 09 59 25 3d 31 35  0d 01 4a 09 ef 32 36 3a  |.@.Y%=15..J..26:|
00000350  db 0d 01 54 0b e3 49 3d  30 b8 33 31 0d 01 5e 0a  |...T..I=0.31..^.|
00000360  fb 31 32 38 2b 49 0d 01  68 10 f1 8a 33 2c 49 29  |.128+I..h...3,I)|
00000370  3b 89 28 35 29 3b 0d 01  72 08 fb 31 33 30 0d 01  |;.(5);..r..130..|
00000380  7c 11 f1 8a 31 31 2c 49  29 3b 89 28 35 29 3b 0d  ||...11,I);.(5);.|
00000390  01 86 06 ed 49 0d 01 90  34 fb 31 32 39 3a ef 32  |....I...4.129:.2|
000003a0  38 2c 34 2c 33 31 2c 34  2c 30 3a db 3a ef 32 38  |8,4,31,4,0:.:.28|
000003b0  2c 36 2c 33 31 2c 36 2c  30 3a db 3a ef 32 38 2c  |,6,31,6,0:.:.28,|
000003c0  30 2c 33 31 2c 31 39 2c  30 0d 01 9a 29 ef 31 39  |0,31,19,0...).19|
000003d0  2c 30 2c 30 3b 30 3b 31  39 2c 31 2c 31 3b 30 3b  |,0,0;0;19,1,1;0;|
000003e0  31 39 2c 32 2c 36 3b 30  3b 31 39 2c 33 2c 32 3b  |19,2,6;0;19,3,2;|
000003f0  30 3b 0d 01 a4 0e 47 41  4d 45 5f 45 4e 44 3d a3  |0;....GAME_END=.|
00000400  0d 01 ae 0c 4d 41 58 3d  31 30 30 30 0d 01 b8 29  |....MAX=1000...)|
00000410  e2 20 31 2c 31 2c 31 2c  2d 32 2c 31 2c 32 2c 32  |. 1,1,1,-2,1,2,2|
00000420  2c 32 2c 31 32 36 2c 30  2c 30 2c 2d 31 32 36 2c  |,2,126,0,0,-126,|
00000430  31 32 36 2c 31 0d 01 c2  05 e1 0d 01 cc 05 3a 0d  |126,1.........:.|
00000440  01 d6 1e dd a4 67 65 6e  5f 63 61 72 28 50 53 54  |.....gen_car(PST|
00000450  41 52 54 2c 50 45 4e 44  2c 4f 42 25 29 0d 01 e0  |ART,PEND,OB%)...|
00000460  08 ea 20 54 25 0d 01 ea  0a 54 25 3d 4f 42 25 0d  |.. T%....T%=OB%.|
00000470  01 f4 23 e7 20 4f 42 25  3d 33 32 20 80 20 b3 28  |..#. OB%=32 . .(|
00000480  31 29 3c 50 53 54 41 52  54 20 8c 20 54 25 3d 32  |1)<PSTART . T%=2|
00000490  32 34 0d 01 fe 16 e7 20  4f 42 25 3d 32 32 34 20  |24..... OB%=224 |
000004a0  8c 20 54 25 3d 32 32 35  0d 02 08 15 e7 20 4f 42  |. T%=225..... OB|
000004b0  25 3d 32 32 36 20 8c 20  54 25 3d 33 32 0d 02 12  |%=226 . T%=32...|
000004c0  21 e7 20 54 25 3d 32 32  35 20 80 20 b3 28 31 29  |!. T%=225 . .(1)|
000004d0  3c 50 45 4e 44 20 8c 20  54 25 3d 32 32 36 0d 02  |<PEND . T%=226..|
000004e0  1c 07 3d 54 25 0d 02 26  05 3a 0d 02 30 0c dd f2  |..=T%..&.:..0...|
000004f0  73 63 72 6f 6c 6c 0d 02  3a 19 41 25 3d a4 67 65  |scroll..:.A%=.ge|
00000500  6e 5f 63 61 72 28 2e 34  2c 2e 35 2c 41 25 29 0d  |n_car(.4,.5,A%).|
00000510  02 44 11 f2 70 5f 77 69  6e 64 28 31 2c 41 25 29  |.D..p_wind(1,A%)|
00000520  0d 02 4e 1a 42 25 3d a4  67 65 6e 5f 63 61 72 28  |..N.B%=.gen_car(|
00000530  2e 31 36 2c 2e 35 2c 42  25 29 0d 02 58 11 f2 70  |.16,.5,B%)..X..p|
00000540  5f 77 69 6e 64 28 32 2c  42 25 29 0d 02 62 19 42  |_wind(2,B%)..b.B|
00000550  25 3d a4 67 65 6e 5f 63  61 72 28 2e 32 2c 2e 35  |%=.gen_car(.2,.5|
00000560  2c 42 25 29 0d 02 6c 11  f2 70 5f 77 69 6e 64 28  |,B%)..l..p_wind(|
00000570  35 2c 42 25 29 0d 02 76  1a 43 25 3d a4 67 65 6e  |5,B%)..v.C%=.gen|
00000580  5f 6c 6f 67 28 2e 31 36  2c 2e 32 2c 43 25 29 0d  |_log(.16,.2,C%).|
00000590  02 80 11 f2 70 5f 77 69  6e 64 28 33 2c 43 25 29  |....p_wind(3,C%)|
000005a0  0d 02 8a 19 43 25 3d a4  67 65 6e 5f 6c 6f 67 28  |....C%=.gen_log(|
000005b0  2e 31 2c 2e 32 2c 43 25  29 0d 02 94 11 f2 70 5f  |.1,.2,C%).....p_|
000005c0  77 69 6e 64 28 35 2c 43  25 29 0d 02 9e 19 44 25  |wind(5,C%)....D%|
000005d0  3d a4 67 65 6e 5f 6c 6f  67 28 2e 31 2c 2e 32 2c  |=.gen_log(.1,.2,|
000005e0  44 25 29 0d 02 a8 11 f2  70 5f 77 69 6e 64 28 34  |D%).....p_wind(4|
000005f0  2c 44 25 29 0d 02 b2 10  f2 70 5f 77 69 6e 64 28  |,D%).....p_wind(|
00000600  36 2c 30 29 0d 02 bc 05  e1 0d 02 c6 05 3a 0d 02  |6,0).........:..|
00000610  d0 13 dd f2 70 5f 77 69  6e 64 28 4e 25 2c 43 25  |....p_wind(N%,C%|
00000620  29 0d 02 da 26 e7 20 4e  25 3d 31 20 8c 20 ef 32  |)...&. N%=1 . .2|
00000630  38 2c 34 2c 33 31 2c 34  2c 30 3a ef 31 37 2c 32  |8,4,31,4,0:.17,2|
00000640  2c 31 37 2c 31 32 39 0d  02 e4 19 e7 20 4e 25 3d  |,17,129..... N%=|
00000650  32 20 8c 20 ef 32 38 2c  36 2c 33 31 2c 36 2c 30  |2 . .28,6,31,6,0|
00000660  0d 02 ee 28 e7 20 4e 25  3d 33 20 8c 20 ef 32 38  |...(. N%=3 . .28|
00000670  2c 31 32 2c 33 31 2c 31  32 2c 30 3a ef 31 37 2c  |,12,31,12,0:.17,|
00000680  31 2c 31 37 2c 31 33 30  0d 02 f8 21 e7 20 4e 25  |1,17,130...!. N%|
00000690  3d 34 20 8c 20 ef 32 38  2c 31 34 2c 33 31 2c 31  |=4 . .28,14,31,1|
000006a0  34 2c 30 3a ef 31 37 2c  31 0d 03 02 1c e7 20 4e  |4,0:.17,1..... N|
000006b0  25 3d 36 20 8c 20 ef 32  38 2c 30 2c 33 31 2c 31  |%=6 . .28,0,31,1|
000006c0  39 2c 30 3a e1 0d 03 0c  12 f1 8a 30 2c 33 31 29  |9,0:.......0,31)|
000006d0  3b bd 28 43 25 29 3b 0d  03 16 05 e1 0d 03 20 05  |;.(C%);....... .|
000006e0  3a 0d 03 2a 1e dd a4 67  65 6e 5f 6c 6f 67 28 50  |:..*...gen_log(P|
000006f0  53 54 41 52 54 2c 50 45  4e 44 2c 4f 42 25 29 0d  |START,PEND,OB%).|
00000700  03 34 21 e7 20 4f 42 25  3d 33 32 20 80 20 b3 28  |.4!. OB%=32 . .(|
00000710  31 29 3c 50 53 54 41 52  54 20 8c 20 3d 32 32 38  |1)<PSTART . =228|
00000720  0d 03 3e 1f e7 20 4f 42  25 3d 32 32 38 20 80 20  |..>.. OB%=228 . |
00000730  b3 28 31 29 3c 50 45 4e  44 20 8c 20 3d 33 32 0d  |.(1)<PEND . =32.|
00000740  03 48 08 3d 4f 42 25 0d  03 52 05 3a 0d 03 5c 0c  |.H.=OB%..R.:..\.|
00000750  dd f2 6d 6f 76 65 5f 66  0d 03 66 0f e7 20 91 3c  |..move_f..f.. .<|
00000760  35 30 30 20 8c 20 e1 0d  03 70 06 fb 33 0d 03 7a  |500 . ...p..3..z|
00000770  26 e7 20 58 25 3d 34 20  84 20 58 25 3d 36 20 8c  |&. X%=4 . X%=6 .|
00000780  20 4b 25 3d 58 25 20 81  20 32 2d 31 20 8b 20 4b  | K%=X% . 2-1 . K|
00000790  25 3d 30 0d 03 84 16 fb  20 31 32 38 2b a4 43 28  |%=0..... 128+.C(|
000007a0  58 25 2c 59 25 2d 4b 25  29 0d 03 8e 14 f1 8a 58  |X%,Y%-K%)......X|
000007b0  25 2c 59 25 2d 4b 25 29  3b 22 20 22 3b 0d 03 98  |%,Y%-K%);" ";...|
000007c0  1d e7 20 a6 28 2d 37 33  29 20 80 20 59 25 3e 30  |.. .(-73) . Y%>0|
000007d0  20 8c 20 59 25 3d 59 25  2d 31 0d 03 a2 1f e7 20  | . Y%=Y%-1..... |
000007e0  a6 28 2d 31 30 35 29 20  80 20 59 25 3c 33 31 20  |.(-105) . Y%<31 |
000007f0  8c 20 59 25 3d 59 25 2b  31 0d 03 ac 2c e7 20 a6  |. Y%=Y%+1...,. .|
00000800  28 2d 36 37 29 20 8c 20  d4 20 31 2c 31 2c 33 30  |(-67) . . 1,1,30|
00000810  2c 32 3a d4 20 31 2c 31  2c 34 30 2c 32 3a 58 25  |,2:. 1,1,40,2:X%|
00000820  3d 58 25 2b 32 0d 03 b6  1c e7 20 58 25 3d 38 20  |=X%+2..... X%=8 |
00000830  84 20 58 25 3d 31 36 20  8c 20 58 25 3d 58 25 2b  |. X%=16 . X%=X%+|
00000840  32 0d 03 c0 10 5a 25 3d  a4 43 28 58 25 2c 59 25  |2....Z%=.C(X%,Y%|
00000850  29 0d 03 ca 17 e7 20 5a  25 3d 32 20 8c 20 47 41  |)..... Z%=2 . GA|
00000860  4d 45 5f 45 4e 44 3d b9  0d 03 d4 0b fb 31 32 38  |ME_END=......128|
00000870  2b 5a 25 0d 03 de 14 f1  8a 58 25 2c 59 25 29 3b  |+Z%......X%,Y%);|
00000880  bd 28 32 32 37 29 3b 0d  03 e8 1b e7 20 58 25 3d  |.(227);..... X%=|
00000890  31 32 20 84 20 58 25 3d  31 34 20 8c 20 f2 6f 76  |12 . X%=14 . .ov|
000008a0  65 72 0d 03 f2 13 e7 20  58 25 3d 31 32 20 8c 20  |er..... X%=12 . |
000008b0  f2 6f 76 65 72 0d 03 fc  18 e7 20 58 25 3e 31 34  |.over..... X%>14|
000008c0  20 8c 20 47 41 4d 45 5f  45 4e 44 3d b9 0d 04 06  | . GAME_END=....|
000008d0  05 e1 0d 04 10 05 3a 0d  04 1a 0a dd f2 6f 76 65  |......:......ove|
000008e0  72 0d 04 24 19 e7 20 59  25 3d 30 20 8c 20 47 41  |r..$.. Y%=0 . GA|
000008f0  4d 45 5f 45 4e 44 3d b9  3a e1 0d 04 2e 0b 59 25  |ME_END=.:.....Y%|
00000900  3d 59 25 2d 31 0d 04 38  05 e1 0d 04 42 05 3a 0d  |=Y%-1..8....B.:.|
00000910  04 4c 0b dd f2 64 65 61  74 68 0d 04 56 20 e7 58  |.L...death..V .X|
00000920  25 3d 31 32 20 84 20 58  25 3d 31 34 20 8c 20 d4  |%=12 . X%=14 . .|
00000930  20 30 2c 2d 31 35 2c 34  2c 35 0d 04 60 1e e7 58  | 0,-15,4,5..`..X|
00000940  25 3d 34 20 84 20 58 25  3d 36 20 8c 20 d4 20 31  |%=4 . X%=6 . . 1|
00000950  2c 31 2c 31 30 2c 32 30  0d 04 6a 13 e7 58 25 3c  |,1,10,20..j..X%<|
00000960  31 35 20 8c 20 e5 20 8d  74 52 44 0d 04 74 11 e3  |15 . . .tRD..t..|
00000970  49 3d 35 30 b8 31 30 30  20 88 20 38 0d 04 7e 0d  |I=50.100 . 8..~.|
00000980  d4 20 31 2c 31 2c 49 2c  34 0d 04 88 1e ed 49 3a  |. 1,1,I,4.....I:|
00000990  66 72 6f 67 73 68 6f 6d  65 25 3d 66 72 6f 67 73  |frogshome%=frogs|
000009a0  68 6f 6d 65 25 2b 31 0d  04 92 07 d1 3d 30 0d 04  |home%+1.....=0..|
000009b0  9c 05 f5 0d 04 a6 0b fd  20 91 3e 31 30 30 0d 04  |........ .>100..|
000009c0  b0 05 e1 0d 04 ba 05 3a  0d 04 c4 0e dd f2 65 6e  |.......:......en|
000009d0  64 5f 67 61 6d 65 0d 04  ce 0f db 3a fb 32 3a 2a  |d_game.....:.2:*|
000009e0  46 58 20 32 31 0d 04 d8  b1 e7 66 72 6f 67 73 68  |FX 21.....frogsh|
000009f0  6f 6d 65 25 3d 30 20 8c  20 f1 8a 31 2c 35 29 22  |ome%=0 . ..1,5)"|
00000a00  41 6c 6c 20 66 72 6f 67  73 20 73 71 75 69 73 68  |All frogs squish|
00000a10  65 64 21 22 20 8b 20 e7  66 72 6f 67 73 68 6f 6d  |ed!" . .frogshom|
00000a20  65 25 3d 31 20 8c 20 f1  8a 31 2c 35 29 22 53 75  |e%=1 . ..1,5)"Su|
00000a30  63 63 65 73 73 20 66 6f  72 20 6f 6e 65 21 22 20  |ccess for one!" |
00000a40  8b 20 e7 66 72 6f 67 73  68 6f 6d 65 25 3d 32 20  |. .frogshome%=2 |
00000a50  8c 20 f1 8a 31 2c 35 29  22 54 77 6f 20 6f 75 74  |. ..1,5)"Two out|
00000a60  20 6f 66 20 74 68 72 65  65 21 22 20 8b 20 e7 66  | of three!" . .f|
00000a70  72 6f 67 73 68 6f 6d 65  25 3d 33 20 8c 20 f1 8a  |rogshome%=3 . ..|
00000a80  31 2c 35 29 22 43 6f 6e  67 72 61 74 75 6c 61 74  |1,5)"Congratulat|
00000a90  69 6f 6e 73 21 22 0d 04  e2 30 f1 8a 31 2c 31 30  |ions!"...0..1,10|
00000aa0  29 22 41 6e 6f 74 68 65  72 20 67 61 6d 65 3f 20  |)"Another game? |
00000ab0  22 3b 3a ef 31 39 2c 32  2c 32 3b 30 3b 3a 67 3d  |";:.19,2,2;0;:g=|
00000ac0  a5 3a ef 38 2c 67 0d 04  ec 25 e7 67 3d 38 39 20  |.:.8,g...%.g=89 |
00000ad0  84 20 67 3d 31 32 31 20  8c 20 41 47 41 49 4e 3d  |. g=121 . AGAIN=|
00000ae0  b9 20 8b 20 41 47 41 49  4e 3d a3 0d 04 f6 05 e1  |. . AGAIN=......|
00000af0  0d 05 00 05 3a 0d 05 0a  0e dd a4 43 28 58 25 2c  |....:......C(X%,|
00000b00  59 25 29 0d 05 14 0f 58  25 3d 31 36 2b 36 34 2a  |Y%)....X%=16+64*|
00000b10  58 25 0d 05 1e 11 59 25  3d 31 30 31 31 2d 33 32  |X%....Y%=1011-32|
00000b20  2a 59 25 0d 05 28 0c 3d  b0 58 25 2c 59 25 29 0d  |*Y%..(.=.X%,Y%).|
00000b30  05 32 0b dd f2 74 69 74  6c 65 0d 05 3c 1a fb 31  |.2...title..<..1|
00000b40  33 32 3a fb 35 3a ef 32  38 2c 30 2c 35 2c 31 39  |32:.5:.28,0,5,19|
00000b50  2c 30 3a db 0d 05 46 11  ef 32 38 2c 30 2c 33 31  |,0:...F..28,0,31|
00000b60  2c 31 39 2c 30 0d 05 50  21 fb 32 3a f1 8a 32 2c  |,19,0..P!.2:..2,|
00000b70  31 29 22 5f 5f 5f 22 22  46 52 4f 47 4c 49 4e 47  |1)"___""FROGLING|
00000b80  22 22 5f 5f 5f 22 0d 05  5a 1f fb 31 3a f1 8a 32  |""___"..Z..1:..2|
00000b90  2c 34 29 22 46 6f 72 20  42 42 43 2f 45 6c 65 63  |,4)"For BBC/Elec|
00000ba0  74 72 6f 6e 22 0d 05 64  0b fb 31 32 38 3a fb 33  |tron"..d..128:.3|
00000bb0  0d 05 6e 63 f1 8a 30 2c  39 29 22 59 6f 75 20 6d  |..nc..0,9)"You m|
00000bc0  75 73 74 20 67 75 69 64  65 20 74 68 72 65 65 22  |ust guide three"|
00000bd0  27 22 20 20 66 72 6f 67  73 20 61 63 72 6f 73 73  |'"  frogs across|
00000be0  20 74 77 6f 22 27 27 22  20 20 62 75 73 79 20 72  | two"''"  busy r|
00000bf0  6f 61 64 73 20 61 6e 64  20 61 22 27 27 22 73 77  |oads and a"''"sw|
00000c00  69 66 74 20 66 6c 6f 77  69 6e 67 20 72 69 76 65  |ift flowing rive|
00000c10  72 21 22 0d 05 78 4c fb  35 3a f1 27 22 20 20 55  |r!"..xL.5:.'"  U|
00000c20  73 65 20 6b 65 79 73 20  2a 20 61 6e 64 20 2f 22  |se keys * and /"|
00000c30  27 27 22 74 6f 20 6d 6f  76 65 20 66 72 6f 67 73  |''"to move frogs|
00000c40  20 75 70 20 61 6e 64 22  27 22 64 6f 77 6e 20 61  | up and"'"down a|
00000c50  6e 64 20 58 20 74 6f 20  63 72 6f 73 73 21 22 0d  |nd X to cross!".|
00000c60  05 82 35 fb 36 3a f1 27  22 44 6f 6e 27 74 20 67  |..5.6:.'"Don't g|
00000c70  6f 20 75 6e 64 65 72 20  61 20 63 61 72 22 27 22  |o under a car"'"|
00000c80  20 6f 72 20 66 61 6c 6c  20 6f 66 66 20 61 20 6c  | or fall off a l|
00000c90  6f 67 21 22 0d 05 8c 2d  ef 35 3a e6 30 2c 31 3a  |og!"...-.5:.0,1:|
00000ca0  ec 30 2c 33 30 3a f1 22  48 69 74 20 61 6e 79 20  |.0,30:."Hit any |
00000cb0  6b 65 79 20 74 6f 20 73  74 61 72 74 22 3b 3a ef  |key to start";:.|
00000cc0  34 0d 05 96 44 ef 31 39  2c 31 2c 31 3b 30 3b 31  |4...D.19,1,1;0;1|
00000cd0  39 2c 32 2c 32 3b 30 3b  31 39 2c 33 2c 33 3b 30  |9,2,2;0;19,3,3;0|
00000ce0  3b 31 39 2c 34 2c 34 3b  30 3b 31 39 2c 35 2c 35  |;19,4,4;0;19,5,5|
00000cf0  3b 30 3b 31 39 2c 36 2c  36 3b 30 3b 31 39 2c 37  |;0;19,6,6;0;19,7|
00000d00  2c 37 3b 30 3b 0d 05 a0  2c ff 28 22 46 58 20 32  |,7;0;...,.("FX 2|
00000d10  31 22 29 3a e3 49 3d 31  b8 37 3a ef 31 39 2c 49  |1"):.I=1.7:.19,I|
00000d20  2c 49 3b 30 3b 3a ed 49  3a e6 30 2c 30 3a f5 fd  |,I;0;:.I:.0,0:..|
00000d30  a5 0d 05 aa 05 e1 0d 05  b4 05 3a 0d 05 be 0c dd  |..........:.....|
00000d40  f2 6c 6f 63 3a fb 30 0d  05 c8 52 2a 4b 45 59 20  |.loc:.0...R*KEY |
00000d50  30 20 2a 54 41 50 45 7c  4d 46 4f 52 49 25 3d 30  |0 *TAPE|MFORI%=0|
00000d60  20 54 4f 20 54 4f 50 20  53 54 45 50 34 3a 49 25  | TO TOP STEP4:I%|
00000d70  21 26 45 30 30 3d 49 25  21 26 31 44 30 30 3a 4e  |!&E00=I%!&1D00:N|
00000d80  45 58 54 3a 50 41 47 45  3d 26 45 30 30 7c 4d 4f  |EXT:PAGE=&E00|MO|
00000d90  4c 44 7c 4d 52 55 4e 7c  4d 0d 05 d2 10 2a 46 58  |LD|MRUN|M....*FX|
00000da0  31 33 38 2c 30 2c 31 32  38 0d 05 dc 05 e0 0d 05  |138,0,128.......|
00000db0  e6 05 e1 0d ff                                    |.....|
00000db5
G/FROGLIN.m0
G/FROGLIN.m1
G/FROGLIN.m2
G/FROGLIN.m4
G/FROGLIN.m5