Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/UNCOMP2
F/C/UNCOMP2
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/UNCOMP2 |
| Read OK: | ✔ |
| File size: | 00E9 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.UNCOMP2
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/UNCOMP2
File contents
10REM UNCOMP2
20ONERROR:CLOSE#0:MODE6:REPORT:PRINT" at line ";ERL:END
30MODE6
40*LOAD CPCODE2
50PRINT'"MODE? ";
60REPEAT:M%=INSTR("01245",GET$):UNTILM%
70IF M%<4 M%=M%-1
80PRINT;M%
90INPUT'"File to Expand? "fn$
100MODE M%
110IF M%>2 !&70=&5800 ELSE !&70=&3000
120?&80=OPENUPfn$
130CALL&B03
140CLOSE#0
� UNCOMP2 �:�#0:�6:�:�" at line ";�:� �6 (*LOAD CPCODE2 2�'"MODE? "; <�:M%=�"01245",�):�M% F� M%<4 M%=M%-1 P�;M% Z�'"File to Expand? "fn$ d� M% n"� M%>2 !&70=&5800 � !&70=&3000 x ?&80=�fn$ � �&B03 ��#0 �
00000000 0d 00 0a 0d f4 20 55 4e 43 4f 4d 50 32 0d 00 14 |..... UNCOMP2...| 00000010 20 ee 85 3a d9 23 30 3a eb 36 3a f6 3a f1 22 20 | ..:.#0:.6:.:." | 00000020 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 1e |at line ";.:....| 00000030 06 eb 36 0d 00 28 11 2a 4c 4f 41 44 20 43 50 43 |..6..(.*LOAD CPC| 00000040 4f 44 45 32 0d 00 32 0f f1 27 22 4d 4f 44 45 3f |ODE2..2..'"MODE?| 00000050 20 22 3b 0d 00 3c 18 f5 3a 4d 25 3d a7 22 30 31 | ";..<..:M%=."01| 00000060 32 34 35 22 2c be 29 3a fd 4d 25 0d 00 46 12 e7 |245",.):.M%..F..| 00000070 20 4d 25 3c 34 20 4d 25 3d 4d 25 2d 31 0d 00 50 | M%<4 M%=M%-1..P| 00000080 08 f1 3b 4d 25 0d 00 5a 1b e8 27 22 46 69 6c 65 |..;M%..Z..'"File| 00000090 20 74 6f 20 45 78 70 61 6e 64 3f 20 22 66 6e 24 | to Expand? "fn$| 000000a0 0d 00 64 08 eb 20 4d 25 0d 00 6e 22 e7 20 4d 25 |..d.. M%..n". M%| 000000b0 3e 32 20 21 26 37 30 3d 26 35 38 30 30 20 8b 20 |>2 !&70=&5800 . | 000000c0 21 26 37 30 3d 26 33 30 30 30 0d 00 78 0d 3f 26 |!&70=&3000..x.?&| 000000d0 38 30 3d ad 66 6e 24 0d 00 82 09 d6 26 42 30 33 |80=.fn$.....&B03| 000000e0 0d 00 8c 07 d9 23 30 0d ff |.....#0..| 000000e9
.