Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » SCREEN
SCREEN
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_16.ADF |
| Filename: | SCREEN |
| Read OK: | ✔ |
| File size: | 0142 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10MODE4 20m$="EUG16" 30VDU23,1,0;0;0;0; 40PROCbig(0,10,1,m$) 50PRINT'SPC(9)"PRESS SPACE FOR MENU ." 60REPEAT UNTIL INKEY(-99) 70CHAIN"MENU" 80END 90DEFPROCbig(x,y,c,m$) 100COLOUR128+c 110FOR i=1 TO LEN m$ 120?&70=ASC(MID$(m$,i)) 130A%=10:X%=&70:Y%=0 140CALL &FFF1 150FOR j=0 TO 7 160PRINTTAB(x+i*8-8,y+j); 170FOR k=7 TO 0 STEP-1 180IF j?&71 AND 2^k VDU32 ELSE VDU 9 190NEXT 200NEXT 210NEXT 220COLOUR128 230ENDPROC
�4 m$="EUG16" �23,1,0;0;0;0; (�big(0,10,1,m$) 2"�'�(9)"PRESS SPACE FOR MENU ." <� � �(-99) F �"MENU" P� Z��big(x,y,c,m$) d �128+c n� i=1 � � m$ x?&70=�(�m$,i)) �A%=10:X%=&70:Y%=0 � � &FFF1 � � j=0 � 7 ��x+i*8-8,y+j); �� k=7 � 0 �-1 �� j?&71 � 2^k �32 � � 9 �� �� �� ��128 �� �
00000000 0d 00 0a 06 eb 34 0d 00 14 0e 6d 24 3d 22 45 55 |.....4....m$="EU| 00000010 47 31 36 22 0d 00 1e 12 ef 32 33 2c 31 2c 30 3b |G16".....23,1,0;| 00000020 30 3b 30 3b 30 3b 0d 00 28 13 f2 62 69 67 28 30 |0;0;0;..(..big(0| 00000030 2c 31 30 2c 31 2c 6d 24 29 0d 00 32 22 f1 27 89 |,10,1,m$)..2".'.| 00000040 28 39 29 22 50 52 45 53 53 20 53 50 41 43 45 20 |(9)"PRESS SPACE | 00000050 46 4f 52 20 4d 45 4e 55 20 2e 22 0d 00 3c 0e f5 |FOR MENU ."..<..| 00000060 20 fd 20 a6 28 2d 39 39 29 0d 00 46 0b d7 22 4d | . .(-99)..F.."M| 00000070 45 4e 55 22 0d 00 50 05 e0 0d 00 5a 13 dd f2 62 |ENU"..P....Z...b| 00000080 69 67 28 78 2c 79 2c 63 2c 6d 24 29 0d 00 64 0a |ig(x,y,c,m$)..d.| 00000090 fb 31 32 38 2b 63 0d 00 6e 10 e3 20 69 3d 31 20 |.128+c..n.. i=1 | 000000a0 b8 20 a9 20 6d 24 0d 00 78 12 3f 26 37 30 3d 97 |. . m$..x.?&70=.| 000000b0 28 c1 6d 24 2c 69 29 29 0d 00 82 15 41 25 3d 31 |(.m$,i))....A%=1| 000000c0 30 3a 58 25 3d 26 37 30 3a 59 25 3d 30 0d 00 8c |0:X%=&70:Y%=0...| 000000d0 0b d6 20 26 46 46 46 31 0d 00 96 0d e3 20 6a 3d |.. &FFF1..... j=| 000000e0 30 20 b8 20 37 0d 00 a0 13 f1 8a 78 2b 69 2a 38 |0 . 7......x+i*8| 000000f0 2d 38 2c 79 2b 6a 29 3b 0d 00 aa 11 e3 20 6b 3d |-8,y+j);..... k=| 00000100 37 20 b8 20 30 20 88 2d 31 0d 00 b4 1b e7 20 6a |7 . 0 .-1..... j| 00000110 3f 26 37 31 20 80 20 32 5e 6b 20 ef 33 32 20 8b |?&71 . 2^k .32 .| 00000120 20 ef 20 39 0d 00 be 05 ed 0d 00 c8 05 ed 0d 00 | . 9............| 00000130 d2 05 ed 0d 00 dc 08 fb 31 32 38 0d 00 e6 05 e1 |........128.....| 00000140 0d ff |..| 00000142
.