Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » ShowPic
ShowPic
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_15.ADF |
| Filename: | ShowPic |
| Read OK: | ✔ |
| File size: | 02BB bytes |
| Load address: | FFFFFB45 |
| Exec address: | 34E8EA44 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-011_D-HD011.ssd » ShowPic
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » ShowPic
File contents
1REM By G Boden (c) 1993
2
3ON ERROR IF ERR=17 THEN OSCLI"/!Boot":END ELSE CLS:REPORT:PRINT " at line ";ERL:END
4
5RESTORE
6READ nopics%
7DIM pic$(nopics%),mode%(nopics%),cols%(nopics%,15)
8FOR i%=1 TO nopics%
9READ pic$(i%),mode%(i%)
10FOR j%=0 TO FNnocols(mode%(i%))-1
11READ cols%(i%,j%)
12NEXT
13NEXT
14
15REPEAT
16MODE 1:VDU23,1,0;0;0;0;
17PRINT "Please choose a picture to view:"
18PRINT
19FOR i%=1 TO nopics%
20PRINT ;i%,pic$(i%);" (Mode ";mode%(i%);")"
21NEXT
22REPEAT:show%=GET-48:UNTIL show%>0 AND show%<=nopics%
23MODE mode%(show%)
24VDU23,1,0;0;0;0;
25FOR j%=0 TO FNnocols(mode%(show%))-1
26VDU 19,j%,cols%(show%,j%),0,0,0
27NEXT
28OSCLI"Load "+pic$(show%)+" FFFF3000"
29REPEAT UNTIL GET
30UNTIL 0
31
32DEFFNnocols(mode%)
33=2^(2^mode%)
34
35DATA 2
36DATA Chief,0,0,7
37DATA FoxCub,1,0,2,1,7
� By G Boden (c) 1993 4� � � �=17 � �"/!Boot":� � �:�:� " at line ";�:� � � nopics% 4� pic$(nopics%),mode%(nopics%),cols%(nopics%,15) � i%=1 � nopics% � pic$(i%),mode%(i%) !� j%=0 � �nocols(mode%(i%))-1 � cols%(i%,j%) � � � � 1:�23,1,0;0;0;0; (� "Please choose a picture to view:" � � i%=1 � nopics% *� ;i%,pic$(i%);" (Mode ";mode%(i%);")" � +�:show%=�-48:� show%>0 � show%<=nopics% � mode%(show%) �23,1,0;0;0;0; $� j%=0 � �nocols(mode%(show%))-1 !� 19,j%,cols%(show%,j%),0,0,0 � $�"Load "+pic$(show%)+" FFFF3000" � � � � 0 ݤnocols(mode%) !=2^(2^mode%) " #� 2 $� Chief,0,0,7 %� FoxCub,1,0,2,1,7 �
00000000 0d 00 01 19 f4 20 42 79 20 47 20 42 6f 64 65 6e |..... By G Boden| 00000010 20 28 63 29 20 31 39 39 33 0d 00 02 04 0d 00 03 | (c) 1993.......| 00000020 34 ee 20 85 20 e7 20 9f 3d 31 37 20 8c 20 ff 22 |4. . . .=17 . ."| 00000030 2f 21 42 6f 6f 74 22 3a e0 20 8b 20 db 3a f6 3a |/!Boot":. . .:.:| 00000040 f1 20 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a |. " at line ";.:| 00000050 e0 0d 00 04 04 0d 00 05 05 f7 0d 00 06 0d f3 20 |............... | 00000060 6e 6f 70 69 63 73 25 0d 00 07 34 de 20 70 69 63 |nopics%...4. pic| 00000070 24 28 6e 6f 70 69 63 73 25 29 2c 6d 6f 64 65 25 |$(nopics%),mode%| 00000080 28 6e 6f 70 69 63 73 25 29 2c 63 6f 6c 73 25 28 |(nopics%),cols%(| 00000090 6e 6f 70 69 63 73 25 2c 31 35 29 0d 00 08 14 e3 |nopics%,15).....| 000000a0 20 69 25 3d 31 20 b8 20 6e 6f 70 69 63 73 25 0d | i%=1 . nopics%.| 000000b0 00 09 18 f3 20 70 69 63 24 28 69 25 29 2c 6d 6f |.... pic$(i%),mo| 000000c0 64 65 25 28 69 25 29 0d 00 0a 21 e3 20 6a 25 3d |de%(i%)...!. j%=| 000000d0 30 20 b8 20 a4 6e 6f 63 6f 6c 73 28 6d 6f 64 65 |0 . .nocols(mode| 000000e0 25 28 69 25 29 29 2d 31 0d 00 0b 12 f3 20 63 6f |%(i%))-1..... co| 000000f0 6c 73 25 28 69 25 2c 6a 25 29 0d 00 0c 05 ed 0d |ls%(i%,j%)......| 00000100 00 0d 05 ed 0d 00 0e 04 0d 00 0f 05 f5 0d 00 10 |................| 00000110 16 eb 20 31 3a ef 32 33 2c 31 2c 30 3b 30 3b 30 |.. 1:.23,1,0;0;0| 00000120 3b 30 3b 0d 00 11 28 f1 20 22 50 6c 65 61 73 65 |;0;...(. "Please| 00000130 20 63 68 6f 6f 73 65 20 61 20 70 69 63 74 75 72 | choose a pictur| 00000140 65 20 74 6f 20 76 69 65 77 3a 22 0d 00 12 05 f1 |e to view:".....| 00000150 0d 00 13 14 e3 20 69 25 3d 31 20 b8 20 6e 6f 70 |..... i%=1 . nop| 00000160 69 63 73 25 0d 00 14 2a f1 20 3b 69 25 2c 70 69 |ics%...*. ;i%,pi| 00000170 63 24 28 69 25 29 3b 22 20 28 4d 6f 64 65 20 22 |c$(i%);" (Mode "| 00000180 3b 6d 6f 64 65 25 28 69 25 29 3b 22 29 22 0d 00 |;mode%(i%);")"..| 00000190 15 05 ed 0d 00 16 2b f5 3a 73 68 6f 77 25 3d a5 |......+.:show%=.| 000001a0 2d 34 38 3a fd 20 73 68 6f 77 25 3e 30 20 80 20 |-48:. show%>0 . | 000001b0 73 68 6f 77 25 3c 3d 6e 6f 70 69 63 73 25 0d 00 |show%<=nopics%..| 000001c0 17 12 eb 20 6d 6f 64 65 25 28 73 68 6f 77 25 29 |... mode%(show%)| 000001d0 0d 00 18 12 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b |.....23,1,0;0;0;| 000001e0 30 3b 0d 00 19 24 e3 20 6a 25 3d 30 20 b8 20 a4 |0;...$. j%=0 . .| 000001f0 6e 6f 63 6f 6c 73 28 6d 6f 64 65 25 28 73 68 6f |nocols(mode%(sho| 00000200 77 25 29 29 2d 31 0d 00 1a 21 ef 20 31 39 2c 6a |w%))-1...!. 19,j| 00000210 25 2c 63 6f 6c 73 25 28 73 68 6f 77 25 2c 6a 25 |%,cols%(show%,j%| 00000220 29 2c 30 2c 30 2c 30 0d 00 1b 05 ed 0d 00 1c 24 |),0,0,0........$| 00000230 ff 22 4c 6f 61 64 20 22 2b 70 69 63 24 28 73 68 |."Load "+pic$(sh| 00000240 6f 77 25 29 2b 22 20 46 46 46 46 33 30 30 30 22 |ow%)+" FFFF3000"| 00000250 0d 00 1d 09 f5 20 fd 20 a5 0d 00 1e 07 fd 20 30 |..... . ...... 0| 00000260 0d 00 1f 04 0d 00 20 13 dd a4 6e 6f 63 6f 6c 73 |...... ...nocols| 00000270 28 6d 6f 64 65 25 29 0d 00 21 10 3d 32 5e 28 32 |(mode%)..!.=2^(2| 00000280 5e 6d 6f 64 65 25 29 0d 00 22 04 0d 00 23 07 dc |^mode%).."...#..| 00000290 20 32 0d 00 24 11 dc 20 43 68 69 65 66 2c 30 2c | 2..$.. Chief,0,| 000002a0 30 2c 37 0d 00 25 16 dc 20 46 6f 78 43 75 62 2c |0,7..%.. FoxCub,| 000002b0 31 2c 30 2c 32 2c 31 2c 37 0d ff |1,0,2,1,7..| 000002bb
ShowPic.m0
ShowPic.m1
ShowPic.m2
ShowPic.m4
ShowPic.m5
.