Home » Archimedes archive » Acorn Computing » 1993 02 Mega Disk.adf » !_93_02 » Badger/!Badger/PRELINK
Badger/!Badger/PRELINK
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 » Archimedes archive » Acorn Computing » 1993 02 Mega Disk.adf » !_93_02 |
| Filename: | Badger/!Badger/PRELINK |
| Read OK: | ✔ |
| File size: | 0323 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >PRELINK
2
3A=RND(-1*TIME)
4IFM%=1:CHAIN"Newscroll2"
5points%=0
6location%=1
7start_flag%=0
8second_deads_found%=0:
9first_deads_location%=1
10second_deads_location%=2
11liquid_count%=0 : REM >30 warning >40 thirsty >55 danger >70 dead
12food_count%=0 : REM >30 warning >40 hungrey >55 danger >70 dead
13lives%=3 : REM number of badgers left
14time_of_day_count%=31 : REM 130 day time reverts to 0 after day
15foods%=0 : REM 1 2 4 8 16 32 64 128
16 : REM DOE WORM
17
18L%=location%
19M%=start_flag%
20N%=second_deads_found%
21O%=first_deads_location%
22P%=second_deads_location%
23Q%=liquid_count%
24R%=food_count%
25S%=lives%
26T%=time_of_day_count%
27U%=points%
28V%=foods%
29
30CHAIN"NEWSCROLL2"
� >PRELINK A=�(-1*�) �M%=1:�"Newscroll2" points%=0 location%=1 start_flag%=0 second_deads_found%=0: first_deads_location%=1 second_deads_location%=2 Iliquid_count%=0 : � >30 warning >40 thirsty >55 danger >70 dead Ifood_count%=0 : � >30 warning >40 hungrey >55 danger >70 dead 4lives%=3 : � number of badgers left Atime_of_day_count%=31 : � 130 day time reverts to 0 after day Jfoods%=0 : � 1 2 4 8 16 32 64 128 ' : � DOE WORM L%=location% M%=start_flag% N%=second_deads_found% O%=first_deads_location% P%=second_deads_location% Q%=liquid_count% R%=food_count% S%=lives% T%=time_of_day_count% U%=points% V%=foods% �"NEWSCROLL2" �
00000000 0d 00 01 0e f4 20 3e 50 52 45 4c 49 4e 4b 0d 00 |..... >PRELINK..| 00000010 02 04 0d 00 03 0d 41 3d b3 28 2d 31 2a 91 29 0d |......A=.(-1*.).| 00000020 00 04 17 e7 4d 25 3d 31 3a d7 22 4e 65 77 73 63 |....M%=1:."Newsc| 00000030 72 6f 6c 6c 32 22 0d 00 05 0d 70 6f 69 6e 74 73 |roll2"....points| 00000040 25 3d 30 0d 00 06 0f 6c 6f 63 61 74 69 6f 6e 25 |%=0....location%| 00000050 3d 31 0d 00 07 11 73 74 61 72 74 5f 66 6c 61 67 |=1....start_flag| 00000060 25 3d 30 0d 00 08 1a 73 65 63 6f 6e 64 5f 64 65 |%=0....second_de| 00000070 61 64 73 5f 66 6f 75 6e 64 25 3d 30 3a 0d 00 09 |ads_found%=0:...| 00000080 1b 66 69 72 73 74 5f 64 65 61 64 73 5f 6c 6f 63 |.first_deads_loc| 00000090 61 74 69 6f 6e 25 3d 31 0d 00 0a 1c 73 65 63 6f |ation%=1....seco| 000000a0 6e 64 5f 64 65 61 64 73 5f 6c 6f 63 61 74 69 6f |nd_deads_locatio| 000000b0 6e 25 3d 32 0d 00 0b 49 6c 69 71 75 69 64 5f 63 |n%=2...Iliquid_c| 000000c0 6f 75 6e 74 25 3d 30 20 20 20 20 20 20 20 3a 20 |ount%=0 : | 000000d0 f4 20 3e 33 30 20 77 61 72 6e 69 6e 67 20 3e 34 |. >30 warning >4| 000000e0 30 20 74 68 69 72 73 74 79 20 3e 35 35 20 64 61 |0 thirsty >55 da| 000000f0 6e 67 65 72 20 3e 37 30 20 64 65 61 64 0d 00 0c |nger >70 dead...| 00000100 49 66 6f 6f 64 5f 63 6f 75 6e 74 25 3d 30 20 20 |Ifood_count%=0 | 00000110 20 20 20 20 20 20 20 3a 20 f4 20 3e 33 30 20 77 | : . >30 w| 00000120 61 72 6e 69 6e 67 20 3e 34 30 20 68 75 6e 67 72 |arning >40 hungr| 00000130 65 79 20 3e 35 35 20 64 61 6e 67 65 72 20 3e 37 |ey >55 danger >7| 00000140 30 20 64 65 61 64 0d 00 0d 34 6c 69 76 65 73 25 |0 dead...4lives%| 00000150 3d 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |=3 | 00000160 3a 20 f4 20 6e 75 6d 62 65 72 20 6f 66 20 62 61 |: . number of ba| 00000170 64 67 65 72 73 20 6c 65 66 74 0d 00 0e 41 74 69 |dgers left...Ati| 00000180 6d 65 5f 6f 66 5f 64 61 79 5f 63 6f 75 6e 74 25 |me_of_day_count%| 00000190 3d 33 31 20 3a 20 f4 20 31 33 30 20 64 61 79 20 |=31 : . 130 day | 000001a0 74 69 6d 65 20 72 65 76 65 72 74 73 20 74 6f 20 |time reverts to | 000001b0 30 20 61 66 74 65 72 20 64 61 79 0d 00 0f 4a 66 |0 after day...Jf| 000001c0 6f 6f 64 73 25 3d 30 20 20 20 20 20 20 20 20 20 |oods%=0 | 000001d0 20 20 20 20 20 3a 20 f4 20 31 20 20 20 20 32 20 | : . 1 2 | 000001e0 20 20 20 34 20 20 20 20 38 20 20 20 20 31 36 20 | 4 8 16 | 000001f0 20 20 20 20 33 32 20 20 20 20 20 36 34 20 20 20 | 32 64 | 00000200 20 20 31 32 38 0d 00 10 27 20 20 20 20 20 20 20 | 128...' | 00000210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :| 00000220 20 f4 20 44 4f 45 20 20 57 4f 52 4d 0d 00 11 04 | . DOE WORM....| 00000230 0d 00 12 10 4c 25 3d 6c 6f 63 61 74 69 6f 6e 25 |....L%=location%| 00000240 0d 00 13 12 4d 25 3d 73 74 61 72 74 5f 66 6c 61 |....M%=start_fla| 00000250 67 25 0d 00 14 1a 4e 25 3d 73 65 63 6f 6e 64 5f |g%....N%=second_| 00000260 64 65 61 64 73 5f 66 6f 75 6e 64 25 0d 00 15 1c |deads_found%....| 00000270 4f 25 3d 66 69 72 73 74 5f 64 65 61 64 73 5f 6c |O%=first_deads_l| 00000280 6f 63 61 74 69 6f 6e 25 0d 00 16 1d 50 25 3d 73 |ocation%....P%=s| 00000290 65 63 6f 6e 64 5f 64 65 61 64 73 5f 6c 6f 63 61 |econd_deads_loca| 000002a0 74 69 6f 6e 25 0d 00 17 14 51 25 3d 6c 69 71 75 |tion%....Q%=liqu| 000002b0 69 64 5f 63 6f 75 6e 74 25 0d 00 18 12 52 25 3d |id_count%....R%=| 000002c0 66 6f 6f 64 5f 63 6f 75 6e 74 25 0d 00 19 0d 53 |food_count%....S| 000002d0 25 3d 6c 69 76 65 73 25 0d 00 1a 19 54 25 3d 74 |%=lives%....T%=t| 000002e0 69 6d 65 5f 6f 66 5f 64 61 79 5f 63 6f 75 6e 74 |ime_of_day_count| 000002f0 25 0d 00 1b 0e 55 25 3d 70 6f 69 6e 74 73 25 0d |%....U%=points%.| 00000300 00 1c 0d 56 25 3d 66 6f 6f 64 73 25 0d 00 1d 04 |...V%=foods%....| 00000310 0d 00 1e 11 d7 22 4e 45 57 53 43 52 4f 4c 4c 32 |....."NEWSCROLL2| 00000320 22 0d ff |"..| 00000323
.