Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » DIAGRAM/SCRPRINT

DIAGRAM/SCRPRINT

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: DIAGRAM/SCRPRINT
Read OK:
File size: 00B3 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM DIAGRAM2 PRINT ROUTINE
   20MODE6
   30VDU2:PRINT':VDU3:A=INKEY(10):IF ADVAL(-4)<63 PRINT"PRINTER NOT ON LINE":END
   40INPUT"FILE TO PRINT "A$ 
   50MODE0
   60OSCLI"LOAD UCODE0"
   70OSCLI"LOAD "+A$
   80CALL &90A
   90VDU3:PRINT"DONE"

� DIAGRAM2 PRINT ROUTINE
�6
8�2:�':�3:A=�(10):� �(-4)<63 �"PRINTER NOT ON LINE":�
(�"FILE TO PRINT "A$ 
2�0
<�"LOAD UCODE0"
F�"LOAD "+A$
P
� &90A
Z�3:�"DONE"
�
00000000  0d 00 0a 1c f4 20 44 49  41 47 52 41 4d 32 20 50  |..... DIAGRAM2 P|
00000010  52 49 4e 54 20 52 4f 55  54 49 4e 45 0d 00 14 06  |RINT ROUTINE....|
00000020  eb 36 0d 00 1e 38 ef 32  3a f1 27 3a ef 33 3a 41  |.6...8.2:.':.3:A|
00000030  3d a6 28 31 30 29 3a e7  20 96 28 2d 34 29 3c 36  |=.(10):. .(-4)<6|
00000040  33 20 f1 22 50 52 49 4e  54 45 52 20 4e 4f 54 20  |3 ."PRINTER NOT |
00000050  4f 4e 20 4c 49 4e 45 22  3a e0 0d 00 28 18 e8 22  |ON LINE":...(.."|
00000060  46 49 4c 45 20 54 4f 20  50 52 49 4e 54 20 22 41  |FILE TO PRINT "A|
00000070  24 20 0d 00 32 06 eb 30  0d 00 3c 12 ff 22 4c 4f  |$ ..2..0..<.."LO|
00000080  41 44 20 55 43 4f 44 45  30 22 0d 00 46 0f ff 22  |AD UCODE0"..F.."|
00000090  4c 4f 41 44 20 22 2b 41  24 0d 00 50 0a d6 20 26  |LOAD "+A$..P.. &|
000000a0  39 30 41 0d 00 5a 0e ef  33 3a f1 22 44 4f 4e 45  |90A..Z..3:."DONE|
000000b0  22 0d ff                                          |"..|
000000b3
DIAGRAM/SCRPRINT.m0
DIAGRAM/SCRPRINT.m1
DIAGRAM/SCRPRINT.m2
DIAGRAM/SCRPRINT.m4
DIAGRAM/SCRPRINT.m5