Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » SHIP64/DispC64
SHIP64/DispC64
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 » dfs_box04_disk02b_eug_scripts.adf |
| Filename: | SHIP64/DispC64 |
| Read OK: | ✔ |
| File size: | 009C bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10 HIMEM=&5000:*LO. C64CHDAT 5000 20 FORR=&5000TO&57F8STEP64:FORP=R TO R+63 STEP8:FORB=P TOP+7 30 V$=STR$~?B:IF LEN(V$)<2 THEN V$="0"+V$ 40 PRINTV$;" ";:NEXT 50 PRINT:NEXT 60 REPEAT UNTIL INKEY(-99):PRINT:NEXT
�=&5000:*LO. C64CHDAT 5000 / �R=&5000�&57F8�64:�P=R � R+63 �8:�B=P �P+7 " V$=�~?B:� �(V$)<2 � V$="0"+V$ ( �V$;" ";:� 2 �:� < � � �(-99):�:� �
00000000 0d 00 0a 1f 20 d3 3d 26 35 30 30 30 3a 2a 4c 4f |.... .=&5000:*LO| 00000010 2e 20 43 36 34 43 48 44 41 54 20 35 30 30 30 0d |. C64CHDAT 5000.| 00000020 00 14 2f 20 e3 52 3d 26 35 30 30 30 b8 26 35 37 |../ .R=&5000.&57| 00000030 46 38 88 36 34 3a e3 50 3d 52 20 b8 20 52 2b 36 |F8.64:.P=R . R+6| 00000040 33 20 88 38 3a e3 42 3d 50 20 b8 50 2b 37 0d 00 |3 .8:.B=P .P+7..| 00000050 1e 22 20 56 24 3d c3 7e 3f 42 3a e7 20 a9 28 56 |." V$=.~?B:. .(V| 00000060 24 29 3c 32 20 8c 20 56 24 3d 22 30 22 2b 56 24 |$)<2 . V$="0"+V$| 00000070 0d 00 28 0f 20 f1 56 24 3b 22 20 22 3b 3a ed 0d |..(. .V$;" ";:..| 00000080 00 32 08 20 f1 3a ed 0d 00 3c 13 20 f5 20 fd 20 |.2. .:...<. . . | 00000090 a6 28 2d 39 39 29 3a f1 3a ed 0d ff |.(-99):.:...| 0000009c
.