Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_23.ADF » PRINT

PRINT

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_23.ADF
Filename: PRINT
Read OK:
File size: 0263 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM EUG MENU by Richard Dimond. Adapted to one pass printing 12/95
   20 *LOAD CODE4
   30HIMEM=&2600
   40VDU23,1,0;0;0;0;
   50skip=&82
   60PRINT"All text files will be printed."''" Press SPACE to start.":A=GET 
   70PRINT''"Do you want perforation skip? (Y/N)":REPEAT:a%=INSTR("YyNn",GET$):UNTILa%
   80IFa%<3 ?skip=-1 ELSE ?skip=0:VDU15,2
   90FOR X =1 TO 26
  100READ f$
  110VDU22,6:CALL&900:OSCLI"LOAD "+f$+" "+STR$~HIMEM    
  120VDU22,3
  130CALL&98C
  140NEXT X
  160DATAEDIT1,INFO1,L.BOARER1,L.EMSON1,L.LETT1,L.TERRY1,L.WILMS1,L.WOODMS1,L.LITT1,F.M/Ctut1,F.M/Ctut2,F.M/Ctut3,F.BUG1,F.HARDY1,F.SZTXT1,F.TUT1,F.TUT2,F.TUT3,G.MINTXT1,G.GSHOW1,G.GSHOW2,P.CADTXT1,S.8BIT1,S.FLOYD1,S.SALE1,S.WANT1    

D� EUG MENU by Richard Dimond. Adapted to one pass printing 12/95
 *LOAD CODE4
�=&2600
(�23,1,0;0;0;0;
2skip=&82
<E�"All text files will be printed."''" Press SPACE to start.":A=� 
F@�''"Do you want perforation skip? (Y/N)":�:a%=�"YyNn",�):�a%
P"�a%<3 ?skip=-1 � ?skip=0:�15,2
Z� X =1 � 26
d� f$
n'�22,6:�&900:�"LOAD "+f$+" "+�~�    
x	�22,3
�	�&98C
�� X
���EDIT1,INFO1,L.BOARER1,L.EMSON1,L.LETT1,L.TERRY1,L.WILMS1,L.WOODMS1,L.LITT1,F.M/Ctut1,F.M/Ctut2,F.M/Ctut3,F.BUG1,F.HARDY1,F.SZTXT1,F.TUT1,F.TUT2,F.TUT3,G.MINTXT1,G.GSHOW1,G.GSHOW2,P.CADTXT1,S.8BIT1,S.FLOYD1,S.SALE1,S.WANT1    
�
00000000  0d 00 0a 44 f4 20 45 55  47 20 4d 45 4e 55 20 62  |...D. EUG MENU b|
00000010  79 20 52 69 63 68 61 72  64 20 44 69 6d 6f 6e 64  |y Richard Dimond|
00000020  2e 20 41 64 61 70 74 65  64 20 74 6f 20 6f 6e 65  |. Adapted to one|
00000030  20 70 61 73 73 20 70 72  69 6e 74 69 6e 67 20 31  | pass printing 1|
00000040  32 2f 39 35 0d 00 14 10  20 2a 4c 4f 41 44 20 43  |2/95.... *LOAD C|
00000050  4f 44 45 34 0d 00 1e 0b  d3 3d 26 32 36 30 30 0d  |ODE4.....=&2600.|
00000060  00 28 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.(..23,1,0;0;0;0|
00000070  3b 0d 00 32 0c 73 6b 69  70 3d 26 38 32 0d 00 3c  |;..2.skip=&82..<|
00000080  45 f1 22 41 6c 6c 20 74  65 78 74 20 66 69 6c 65  |E."All text file|
00000090  73 20 77 69 6c 6c 20 62  65 20 70 72 69 6e 74 65  |s will be printe|
000000a0  64 2e 22 27 27 22 20 50  72 65 73 73 20 53 50 41  |d."''" Press SPA|
000000b0  43 45 20 74 6f 20 73 74  61 72 74 2e 22 3a 41 3d  |CE to start.":A=|
000000c0  a5 20 0d 00 46 40 f1 27  27 22 44 6f 20 79 6f 75  |. ..F@.''"Do you|
000000d0  20 77 61 6e 74 20 70 65  72 66 6f 72 61 74 69 6f  | want perforatio|
000000e0  6e 20 73 6b 69 70 3f 20  28 59 2f 4e 29 22 3a f5  |n skip? (Y/N)":.|
000000f0  3a 61 25 3d a7 22 59 79  4e 6e 22 2c be 29 3a fd  |:a%=."YyNn",.):.|
00000100  61 25 0d 00 50 22 e7 61  25 3c 33 20 3f 73 6b 69  |a%..P".a%<3 ?ski|
00000110  70 3d 2d 31 20 8b 20 3f  73 6b 69 70 3d 30 3a ef  |p=-1 . ?skip=0:.|
00000120  31 35 2c 32 0d 00 5a 0f  e3 20 58 20 3d 31 20 b8  |15,2..Z.. X =1 .|
00000130  20 32 36 0d 00 64 08 f3  20 66 24 0d 00 6e 27 ef  | 26..d.. f$..n'.|
00000140  32 32 2c 36 3a d6 26 39  30 30 3a ff 22 4c 4f 41  |22,6:.&900:."LOA|
00000150  44 20 22 2b 66 24 2b 22  20 22 2b c3 7e 93 20 20  |D "+f$+" "+.~.  |
00000160  20 20 0d 00 78 09 ef 32  32 2c 33 0d 00 82 09 d6  |  ..x..22,3.....|
00000170  26 39 38 43 0d 00 8c 07  ed 20 58 0d 00 a0 e6 dc  |&98C..... X.....|
00000180  45 44 49 54 31 2c 49 4e  46 4f 31 2c 4c 2e 42 4f  |EDIT1,INFO1,L.BO|
00000190  41 52 45 52 31 2c 4c 2e  45 4d 53 4f 4e 31 2c 4c  |ARER1,L.EMSON1,L|
000001a0  2e 4c 45 54 54 31 2c 4c  2e 54 45 52 52 59 31 2c  |.LETT1,L.TERRY1,|
000001b0  4c 2e 57 49 4c 4d 53 31  2c 4c 2e 57 4f 4f 44 4d  |L.WILMS1,L.WOODM|
000001c0  53 31 2c 4c 2e 4c 49 54  54 31 2c 46 2e 4d 2f 43  |S1,L.LITT1,F.M/C|
000001d0  74 75 74 31 2c 46 2e 4d  2f 43 74 75 74 32 2c 46  |tut1,F.M/Ctut2,F|
000001e0  2e 4d 2f 43 74 75 74 33  2c 46 2e 42 55 47 31 2c  |.M/Ctut3,F.BUG1,|
000001f0  46 2e 48 41 52 44 59 31  2c 46 2e 53 5a 54 58 54  |F.HARDY1,F.SZTXT|
00000200  31 2c 46 2e 54 55 54 31  2c 46 2e 54 55 54 32 2c  |1,F.TUT1,F.TUT2,|
00000210  46 2e 54 55 54 33 2c 47  2e 4d 49 4e 54 58 54 31  |F.TUT3,G.MINTXT1|
00000220  2c 47 2e 47 53 48 4f 57  31 2c 47 2e 47 53 48 4f  |,G.GSHOW1,G.GSHO|
00000230  57 32 2c 50 2e 43 41 44  54 58 54 31 2c 53 2e 38  |W2,P.CADTXT1,S.8|
00000240  42 49 54 31 2c 53 2e 46  4c 4f 59 44 31 2c 53 2e  |BIT1,S.FLOYD1,S.|
00000250  53 41 4c 45 31 2c 53 2e  57 41 4e 54 31 20 20 20  |SALE1,S.WANT1   |
00000260  20 0d ff                                          | ..|
00000263
PRINT.m0
PRINT.m1
PRINT.m2
PRINT.m4
PRINT.m5