Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/UNCOMP1
F/C/UNCOMP1
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_User_Group » EUG_18.ADF |
| Filename: | F/C/UNCOMP1 |
| Read OK: | ✔ |
| File size: | 00E3 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-18_D-EUG18.dsd » C.UNCOMP1
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/UNCOMP1
File contents
10REM UNCOMP1
20MODE6
30*LOAD CPCODE1
40PRINT'"MODE? ";
50REPEAT:M%=INSTR("01245",GET$):UNTILM%
60IF M%<4 M%=M%-1
70PRINT;M%
80INPUT'"File to Expand? "fn$
90MODE M%
100IF M%>2 !&70=&5800 ELSE !&70=&3000
110HIMEM=PAGE+&180
120!&74=HIMEM
130OSCLI"LOAD "+fn$+" "+STR$~HIMEM
140CALL&B03
� UNCOMP1 �6 *LOAD CPCODE1 (�'"MODE? "; 2�:M%=�"01245",�):�M% <� M%<4 M%=M%-1 F�;M% P�'"File to Expand? "fn$ Z� M% d"� M%>2 !&70=&5800 � !&70=&3000 n �=�+&180 x !&74=� ��"LOAD "+fn$+" "+�~� � �&B03 �
00000000 0d 00 0a 0d f4 20 55 4e 43 4f 4d 50 31 0d 00 14 |..... UNCOMP1...| 00000010 06 eb 36 0d 00 1e 11 2a 4c 4f 41 44 20 43 50 43 |..6....*LOAD CPC| 00000020 4f 44 45 31 0d 00 28 0f f1 27 22 4d 4f 44 45 3f |ODE1..(..'"MODE?| 00000030 20 22 3b 0d 00 32 18 f5 3a 4d 25 3d a7 22 30 31 | ";..2..:M%=."01| 00000040 32 34 35 22 2c be 29 3a fd 4d 25 0d 00 3c 12 e7 |245",.):.M%..<..| 00000050 20 4d 25 3c 34 20 4d 25 3d 4d 25 2d 31 0d 00 46 | M%<4 M%=M%-1..F| 00000060 08 f1 3b 4d 25 0d 00 50 1b e8 27 22 46 69 6c 65 |..;M%..P..'"File| 00000070 20 74 6f 20 45 78 70 61 6e 64 3f 20 22 66 6e 24 | to Expand? "fn$| 00000080 0d 00 5a 08 eb 20 4d 25 0d 00 64 22 e7 20 4d 25 |..Z.. M%..d". M%| 00000090 3e 32 20 21 26 37 30 3d 26 35 38 30 30 20 8b 20 |>2 !&70=&5800 . | 000000a0 21 26 37 30 3d 26 33 30 30 30 0d 00 6e 0c d3 3d |!&70=&3000..n..=| 000000b0 90 2b 26 31 38 30 0d 00 78 0a 21 26 37 34 3d 93 |.+&180..x.!&74=.| 000000c0 0d 00 82 18 ff 22 4c 4f 41 44 20 22 2b 66 6e 24 |....."LOAD "+fn$| 000000d0 2b 22 20 22 2b c3 7e 93 0d 00 8c 09 d6 26 42 30 |+" "+.~......&B0| 000000e0 33 0d ff |3..| 000000e3
.