Home » CEEFAX disks » telesoftware11.adl » 01-01-89/M
01-01-89/M
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 » CEEFAX disks » telesoftware11.adl |
| Filename: | 01-01-89/M |
| Read OK: | ✔ |
| File size: | 0384 bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF1A00 |
File contents
10REM *** M *** 11MODE4 12REM*FX200,3 15RESTORE 16M=&1200 20FOR I%=0 TO 95:READ A%:M?I%=A%:NEXT 25PROCdraw 26VDU28,1,25,38,18 27VDU4 28VDU12 30PAGE=&1300 40CHAIN"I" 50END 60DATA 60,102,110,126,118,102,60,0 70DATA 24,56,24,24,24,24,126,0 80DATA 60,102,6,12,24,48,126,0 90DATA 60,102,6,28,6,102,60,0 100DATA 12,28,60,108,126,12,12,0 110DATA 126,96,124,6,6,102,60,0 120DATA 28,48,96,124,102,102,60,0 130DATA 126,6,12,24,48,48,48,0 140DATA 60,102,102,60,102,102,60,0 150DATA 60,102,102,62,6,12,56,0 160DATA 0,0,24,24,0,24,24,0 161DATA 0,0,0,0,0,0,0,0 170DEFPROCdraw 180VDU5:MOVE 0,0:DRAW 1260,0:DRAW 1260,1000:DRAW 0,1000:DRAW 0,0:MOVE 0,100:DRAW 1260,100:MOVE 1260,179:DRAW 0,179:MOVE 0,500:DRAW 1260,500:MOVE 1260,600:DRAW 0,600:MOVE 0,800:DRAW 1260,800:MOVE 1010,600:DRAW 1010,500 190MOVE 0,840:DRAW 1260,840:MOVE 400,500:DRAW 400,600:MOVE 700,500:DRAW 700,600:MOVE 950,179:DRAW 950,100:MOVE 1020,595:PRINT"To find":MOVE 5,490:PRINT"Transport available:-":MOVE 5,595:PRINT"Distance" 195MOVE 405,595:PRINT"Gold":MOVE 705,595:PRINT"Money":MOVE 5,160:PRINT"Gold in safe 0.00 oz." 200ENDPROC
� *** M *** �4 �*FX200,3 � M=&1200 � I%=0 � 95:� A%:M?I%=A%:� �draw �28,1,25,38,18 �4 �12 �=&1300 (�"I" 2� <!� 60,102,110,126,118,102,60,0 F � 24,56,24,24,24,24,126,0 P � 60,102,6,12,24,48,126,0 Z � 60,102,6,28,6,102,60,0 d � 12,28,60,108,126,12,12,0 n � 126,96,124,6,6,102,60,0 x � 28,48,96,124,102,102,60,0 � � 126,6,12,24,48,48,48,0 � � 60,102,102,60,102,102,60,0 � � 60,102,102,62,6,12,56,0 �� 0,0,24,24,0,24,24,0 �� 0,0,0,0,0,0,0,0 � ��draw ���5:� 0,0:� 1260,0:� 1260,1000:� 0,1000:� 0,0:� 0,100:� 1260,100:� 1260,179:� 0,179:� 0,500:� 1260,500:� 1260,600:� 0,600:� 0,800:� 1260,800:� 1010,600:� 1010,500 ��� 0,840:� 1260,840:� 400,500:� 400,600:� 700,500:� 700,600:� 950,179:� 950,100:� 1020,595:�"To find":� 5,490:�"Transport available:-":� 5,595:�"Distance" �I� 405,595:�"Gold":� 705,595:�"Money":� 5,160:�"Gold in safe 0.00 oz." �� �
00000000 0d 00 0a 0f f4 20 2a 2a 2a 20 4d 20 2a 2a 2a 0d |..... *** M ***.| 00000010 00 0b 06 eb 34 0d 00 0c 0d f4 2a 46 58 32 30 30 |....4.....*FX200| 00000020 2c 33 0d 00 0f 05 f7 0d 00 10 0b 4d 3d 26 31 32 |,3.........M=&12| 00000030 30 30 0d 00 14 1e e3 20 49 25 3d 30 20 b8 20 39 |00..... I%=0 . 9| 00000040 35 3a f3 20 41 25 3a 4d 3f 49 25 3d 41 25 3a ed |5:. A%:M?I%=A%:.| 00000050 0d 00 19 09 f2 64 72 61 77 0d 00 1a 12 ef 32 38 |.....draw.....28| 00000060 2c 31 2c 32 35 2c 33 38 2c 31 38 0d 00 1b 06 ef |,1,25,38,18.....| 00000070 34 0d 00 1c 07 ef 31 32 0d 00 1e 0b d0 3d 26 31 |4.....12.....=&1| 00000080 33 30 30 0d 00 28 08 d7 22 49 22 0d 00 32 05 e0 |300..(.."I"..2..| 00000090 0d 00 3c 21 dc 20 36 30 2c 31 30 32 2c 31 31 30 |..<!. 60,102,110| 000000a0 2c 31 32 36 2c 31 31 38 2c 31 30 32 2c 36 30 2c |,126,118,102,60,| 000000b0 30 0d 00 46 1d dc 20 32 34 2c 35 36 2c 32 34 2c |0..F.. 24,56,24,| 000000c0 32 34 2c 32 34 2c 32 34 2c 31 32 36 2c 30 0d 00 |24,24,24,126,0..| 000000d0 50 1d dc 20 36 30 2c 31 30 32 2c 36 2c 31 32 2c |P.. 60,102,6,12,| 000000e0 32 34 2c 34 38 2c 31 32 36 2c 30 0d 00 5a 1c dc |24,48,126,0..Z..| 000000f0 20 36 30 2c 31 30 32 2c 36 2c 32 38 2c 36 2c 31 | 60,102,6,28,6,1| 00000100 30 32 2c 36 30 2c 30 0d 00 64 1e dc 20 31 32 2c |02,60,0..d.. 12,| 00000110 32 38 2c 36 30 2c 31 30 38 2c 31 32 36 2c 31 32 |28,60,108,126,12| 00000120 2c 31 32 2c 30 0d 00 6e 1d dc 20 31 32 36 2c 39 |,12,0..n.. 126,9| 00000130 36 2c 31 32 34 2c 36 2c 36 2c 31 30 32 2c 36 30 |6,124,6,6,102,60| 00000140 2c 30 0d 00 78 1f dc 20 32 38 2c 34 38 2c 39 36 |,0..x.. 28,48,96| 00000150 2c 31 32 34 2c 31 30 32 2c 31 30 32 2c 36 30 2c |,124,102,102,60,| 00000160 30 0d 00 82 1c dc 20 31 32 36 2c 36 2c 31 32 2c |0..... 126,6,12,| 00000170 32 34 2c 34 38 2c 34 38 2c 34 38 2c 30 0d 00 8c |24,48,48,48,0...| 00000180 20 dc 20 36 30 2c 31 30 32 2c 31 30 32 2c 36 30 | . 60,102,102,60| 00000190 2c 31 30 32 2c 31 30 32 2c 36 30 2c 30 0d 00 96 |,102,102,60,0...| 000001a0 1d dc 20 36 30 2c 31 30 32 2c 31 30 32 2c 36 32 |.. 60,102,102,62| 000001b0 2c 36 2c 31 32 2c 35 36 2c 30 0d 00 a0 19 dc 20 |,6,12,56,0..... | 000001c0 30 2c 30 2c 32 34 2c 32 34 2c 30 2c 32 34 2c 32 |0,0,24,24,0,24,2| 000001d0 34 2c 30 0d 00 a1 15 dc 20 30 2c 30 2c 30 2c 30 |4,0..... 0,0,0,0| 000001e0 2c 30 2c 30 2c 30 2c 30 0d 00 aa 0a dd f2 64 72 |,0,0,0,0......dr| 000001f0 61 77 0d 00 b4 a5 ef 35 3a ec 20 30 2c 30 3a df |aw.....5:. 0,0:.| 00000200 20 31 32 36 30 2c 30 3a df 20 31 32 36 30 2c 31 | 1260,0:. 1260,1| 00000210 30 30 30 3a df 20 30 2c 31 30 30 30 3a df 20 30 |000:. 0,1000:. 0| 00000220 2c 30 3a ec 20 30 2c 31 30 30 3a df 20 31 32 36 |,0:. 0,100:. 126| 00000230 30 2c 31 30 30 3a ec 20 31 32 36 30 2c 31 37 39 |0,100:. 1260,179| 00000240 3a df 20 30 2c 31 37 39 3a ec 20 30 2c 35 30 30 |:. 0,179:. 0,500| 00000250 3a df 20 31 32 36 30 2c 35 30 30 3a ec 20 31 32 |:. 1260,500:. 12| 00000260 36 30 2c 36 30 30 3a df 20 30 2c 36 30 30 3a ec |60,600:. 0,600:.| 00000270 20 30 2c 38 30 30 3a df 20 31 32 36 30 2c 38 30 | 0,800:. 1260,80| 00000280 30 3a ec 20 31 30 31 30 2c 36 30 30 3a df 20 31 |0:. 1010,600:. 1| 00000290 30 31 30 2c 35 30 30 0d 00 be 9d ec 20 30 2c 38 |010,500..... 0,8| 000002a0 34 30 3a df 20 31 32 36 30 2c 38 34 30 3a ec 20 |40:. 1260,840:. | 000002b0 34 30 30 2c 35 30 30 3a df 20 34 30 30 2c 36 30 |400,500:. 400,60| 000002c0 30 3a ec 20 37 30 30 2c 35 30 30 3a df 20 37 30 |0:. 700,500:. 70| 000002d0 30 2c 36 30 30 3a ec 20 39 35 30 2c 31 37 39 3a |0,600:. 950,179:| 000002e0 df 20 39 35 30 2c 31 30 30 3a ec 20 31 30 32 30 |. 950,100:. 1020| 000002f0 2c 35 39 35 3a f1 22 54 6f 20 66 69 6e 64 22 3a |,595:."To find":| 00000300 ec 20 35 2c 34 39 30 3a f1 22 54 72 61 6e 73 70 |. 5,490:."Transp| 00000310 6f 72 74 20 61 76 61 69 6c 61 62 6c 65 3a 2d 22 |ort available:-"| 00000320 3a ec 20 35 2c 35 39 35 3a f1 22 44 69 73 74 61 |:. 5,595:."Dista| 00000330 6e 63 65 22 0d 00 c3 49 ec 20 34 30 35 2c 35 39 |nce"...I. 405,59| 00000340 35 3a f1 22 47 6f 6c 64 22 3a ec 20 37 30 35 2c |5:."Gold":. 705,| 00000350 35 39 35 3a f1 22 4d 6f 6e 65 79 22 3a ec 20 35 |595:."Money":. 5| 00000360 2c 31 36 30 3a f1 22 47 6f 6c 64 20 69 6e 20 73 |,160:."Gold in s| 00000370 61 66 65 20 30 2e 30 30 20 6f 7a 2e 22 0d 00 c8 |afe 0.00 oz."...| 00000380 05 e1 0d ff |....| 00000384
01-01-89/M.m0
01-01-89/M.m1
01-01-89/M.m2
01-01-89/M.m4
01-01-89/M.m5
.