Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » Files/Programs/!BLOX/!RUN
Files/Programs/!BLOX/!RUN
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 » Greaseweazled » adfs_Dominic_3.adf |
| Filename: | Files/Programs/!BLOX/!RUN |
| Read OK: | ✔ |
| File size: | 00CB bytes |
| Load address: | FFFFFB43 |
| Exec address: | 188B5BC4 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3.ADF » Files/Programs/!BLOX/!RUN
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » Files/Programs/!BLOX/!RUN
File contents
5 REM >!RUN 10 MODE 0 20 FORR=0TO35:PRINT:NEXT 30 READ M$:PRINTSPC(40-LEN(M$)/2);M$ 40 IF M$="***" THEN GOTO 400 50 FORR=0TO 7500:NEXT 60 VDU 19,1,RND(7),0;0;0;:GOTO 30 390 DATA "***" 393 *adfs 396 *mount 400 CHAIN"FILES.PROGRAMS.!BLOX.!BLOX"
� >!RUN � 0 �R=0�35:�:� � M$:�(40-�(M$)/2);M$ ( � M$="***" � � �tPA 2 �R=0� 7500:� < � 19,1,�(7),0;0;0;:� �T^@ � � "***" � *adfs � *mount �" �"FILES.PROGRAMS.!BLOX.!BLOX" �
00000000 0d 00 05 0c 20 f4 20 3e 21 52 55 4e 0d 00 0a 08 |.... . >!RUN....| 00000010 20 eb 20 30 0d 00 14 10 20 e3 52 3d 30 b8 33 35 | . 0.... .R=0.35| 00000020 3a f1 3a ed 0d 00 1e 1b 20 f3 20 4d 24 3a f1 89 |:.:..... . M$:..| 00000030 28 34 30 2d a9 28 4d 24 29 2f 32 29 3b 4d 24 0d |(40-.(M$)/2);M$.| 00000040 00 28 18 20 e7 20 4d 24 3d 22 2a 2a 2a 22 20 8c |.(. . M$="***" .| 00000050 20 e5 20 8d 74 50 41 0d 00 32 11 20 e3 52 3d 30 | . .tPA..2. .R=0| 00000060 b8 20 37 35 30 30 3a ed 0d 00 3c 1e 20 ef 20 31 |. 7500:...<. . 1| 00000070 39 2c 31 2c b3 28 37 29 2c 30 3b 30 3b 30 3b 3a |9,1,.(7),0;0;0;:| 00000080 e5 20 8d 54 5e 40 0d 01 86 0c 20 dc 20 22 2a 2a |. .T^@.... . "**| 00000090 2a 22 0d 01 89 0a 20 2a 61 64 66 73 0d 01 8c 0b |*".... *adfs....| 000000a0 20 2a 6d 6f 75 6e 74 0d 01 90 22 20 d7 22 46 49 | *mount..." ."FI| 000000b0 4c 45 53 2e 50 52 4f 47 52 41 4d 53 2e 21 42 4c |LES.PROGRAMS.!BL| 000000c0 4f 58 2e 21 42 4c 4f 58 22 0d ff |OX.!BLOX"..| 000000cb
.