Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape02a_acorn_eu_1989_august.wav » UNCOMPT
UNCOMPT
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 tapes » Electron_User » Electron_User_tape02a_acorn_eu_1989_august.wav |
| Filename: | UNCOMPT |
| Read OK: | ✔ |
| File size: | 0171 bytes |
| Load address: | 2000 |
| Exec address: | 1900 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » database » database_5_25_discs_Electron-User-6-11_D-E611.ssd » UNCOMPT
- AEW website » database » database_tapes_Electron-User-6-11_EU6-11_E.uef » UNCOMPT
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape02a_acorn_eu_1989_august.wav » UNCOMPT
File contents
10REM Program III
20REM Expand screen
30REM Bit 8 set = multiple bytes
40ON ERROR CLOSE#0:REPORT:PRINT" at line ";ERL:END
50
60MODE 2 : *FX16
70PROCload("SCR1")
80END
90
100DEF PROCload(fname$)
110F%=OPENIN fname$
120A%=&3000
130REPEAT
140B%=BGET#F%
150IF B% AND 128 PROCmulti ELSE ?A%=B% : A%=A%+1
160UNTIL A%>&8000
170CLOSE#F%
180ENDPROC
190
200DEF PROCmulti
210B%=B% AND 127
220C%=BGET#F%
230REPEAT
240?A%=B% : A%=A%+1 : C%=C%-1
250UNTIL C%=0
260ENDPROC
� Program III
� Expand screen
� Bit 8 set = multiple bytes
( � � �#0:�:�" at line ";�:�
2
<� 2 : *FX16
F�load("SCR1")
P�
Z
d� �load(fname$)
nF%=� fname$
x A%=&3000
��
� B%=�#F%
�(� B% � 128 �multi � ?A%=B% : A%=A%+1
�� A%>&8000
��#F%
��
�
� � �multi
�B%=B% � 127
� C%=�#F%
��
� ?A%=B% : A%=A%+1 : C%=C%-1
�
� C%=0
�
� 00000000 0d 00 0a 11 f4 20 50 72 6f 67 72 61 6d 20 49 49 |..... Program II| 00000010 49 0d 00 14 13 f4 20 45 78 70 61 6e 64 20 73 63 |I..... Expand sc| 00000020 72 65 65 6e 0d 00 1e 20 f4 20 42 69 74 20 38 20 |reen... . Bit 8 | 00000030 73 65 74 20 3d 20 6d 75 6c 74 69 70 6c 65 20 62 |set = multiple b| 00000040 79 74 65 73 0d 00 28 1e ee 20 85 20 d9 23 30 3a |ytes..(.. . .#0:| 00000050 f6 3a f1 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e |.:." at line ";.| 00000060 3a e0 0d 00 32 05 20 0d 00 3c 0f eb 20 32 20 3a |:...2. ..<.. 2 :| 00000070 20 2a 46 58 31 36 0d 00 46 11 f2 6c 6f 61 64 28 | *FX16..F..load(| 00000080 22 53 43 52 31 22 29 0d 00 50 05 e0 0d 00 5a 05 |"SCR1")..P....Z.| 00000090 20 0d 00 64 13 dd 20 f2 6c 6f 61 64 28 66 6e 61 | ..d.. .load(fna| 000000a0 6d 65 24 29 0d 00 6e 0f 46 25 3d 8e 20 66 6e 61 |me$)..n.F%=. fna| 000000b0 6d 65 24 0d 00 78 0c 41 25 3d 26 33 30 30 30 0d |me$..x.A%=&3000.| 000000c0 00 82 05 f5 0d 00 8c 0b 42 25 3d 9a 23 46 25 0d |........B%=.#F%.| 000000d0 00 96 28 e7 20 42 25 20 80 20 31 32 38 20 f2 6d |..(. B% . 128 .m| 000000e0 75 6c 74 69 20 8b 20 3f 41 25 3d 42 25 20 3a 20 |ulti . ?A%=B% : | 000000f0 41 25 3d 41 25 2b 31 0d 00 a0 0e fd 20 41 25 3e |A%=A%+1..... A%>| 00000100 26 38 30 30 30 0d 00 aa 08 d9 23 46 25 0d 00 b4 |&8000.....#F%...| 00000110 05 e1 0d 00 be 05 20 0d 00 c8 0c dd 20 f2 6d 75 |...... ..... .mu| 00000120 6c 74 69 0d 00 d2 0f 42 25 3d 42 25 20 80 20 31 |lti....B%=B% . 1| 00000130 32 37 0d 00 dc 0b 43 25 3d 9a 23 46 25 0d 00 e6 |27....C%=.#F%...| 00000140 05 f5 0d 00 f0 1e 3f 41 25 3d 42 25 20 3a 20 41 |......?A%=B% : A| 00000150 25 3d 41 25 2b 31 20 3a 20 43 25 3d 43 25 2d 31 |%=A%+1 : C%=C%-1| 00000160 0d 00 fa 0a fd 20 43 25 3d 30 0d 01 04 05 e1 0d |..... C%=0......| 00000170 ff |.| 00000171
.