Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » DispGRAPHb
DispGRAPHb
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 » Electrolysis.ADF |
| Filename: | DispGRAPHb |
| Read OK: | ✔ |
| File size: | 00DC bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » DispGRAPHb
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/DispGRAPHb
File contents
5 length=&B40
10 MODE0:FILE=OPENIN("ELECDATA3")
20 readingno%=0:REPEAT reading=BGET#(FILE):MOVE readingno%/length*1280,reading*4:DRAW readingno%/length*1280,reading*4:readingno%=readingno%+1:UNTIL EOF#(FILE)
30 CLOSE#0:*SA. EleGRAPH3b 3000 8000
length=&B40
�0:FILE=�("ELECDATA3")
� readingno%=0:� reading=�#(FILE):� readingno%/length*1280,reading*4:� readingno%/length*1280,reading*4:readingno%=readingno%+1:� �#(FILE)
" �#0:*SA. EleGRAPH3b 3000 8000
� 00000000 0d 00 05 10 20 6c 65 6e 67 74 68 3d 26 42 34 30 |.... length=&B40|
00000010 0d 00 0a 1b 20 eb 30 3a 46 49 4c 45 3d 8e 28 22 |.... .0:FILE=.("|
00000020 45 4c 45 43 44 41 54 41 33 22 29 0d 00 14 8d 20 |ELECDATA3").... |
00000030 72 65 61 64 69 6e 67 6e 6f 25 3d 30 3a f5 20 72 |readingno%=0:. r|
00000040 65 61 64 69 6e 67 3d 9a 23 28 46 49 4c 45 29 3a |eading=.#(FILE):|
00000050 ec 20 72 65 61 64 69 6e 67 6e 6f 25 2f 6c 65 6e |. readingno%/len|
00000060 67 74 68 2a 31 32 38 30 2c 72 65 61 64 69 6e 67 |gth*1280,reading|
00000070 2a 34 3a df 20 72 65 61 64 69 6e 67 6e 6f 25 2f |*4:. readingno%/|
00000080 6c 65 6e 67 74 68 2a 31 32 38 30 2c 72 65 61 64 |length*1280,read|
00000090 69 6e 67 2a 34 3a 72 65 61 64 69 6e 67 6e 6f 25 |ing*4:readingno%|
000000a0 3d 72 65 61 64 69 6e 67 6e 6f 25 2b 31 3a fd 20 |=readingno%+1:. |
000000b0 c5 23 28 46 49 4c 45 29 0d 00 1e 22 20 d9 23 30 |.#(FILE)..." .#0|
000000c0 3a 2a 53 41 2e 20 45 6c 65 47 52 41 50 48 33 62 |:*SA. EleGRAPH3b|
000000d0 20 33 30 30 30 20 38 30 30 30 0d ff | 3000 8000..|
000000dc 
.