Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » PROGS/TRANS/PRINT
PROGS/TRANS/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_16.ADF |
| Filename: | PROGS/TRANS/PRINT |
| Read OK: | ✔ |
| File size: | 0404 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10 REM File Printer 20 REM By C.Weber 1994 :^) 30 REM Version 1.2 40 REM 50 MODE4 60 VDU23,1,0;0;0;0; 70 VDU19,0,4,0,0,0 80 FI$="" 90 DIM A$(100) 100 DIM B$(100) 110 NW%=0 120 CLS 130 *FX21,0 140 PROCscreen 150 GOTO280 160 DEFPROCscreen 170 FOR RI%=1 TO 38 180 PRINTTAB(RI%,1)"*" 190 PRINTTAB(RI%,3)"*" 200 PRINTTAB(RI%,30)"*" 210 NEXT RI% 220 PRINTTAB(5,2)"Vocab. Printer By C.Weber 1994" 230 FOR DO%=1 TO 30 240 PRINTTAB(1,DO%)"*" 250 PRINTTAB(38,DO%)"*" 260 NEXT DO% 270 ENDPROC 280 INPUTTAB(3,5)"Print a file (Y/N)";NI$ 290 IF NI$="Y" THENGOTO330ELSECHAIN"MENU" 300 310 REM *** Load File *** 320 330 CLS:*. 340 PRINT:INPUT"Enter Filename : ";FI$ 350 IF FI$="" THENGOTO340 360 A=OPENIN (FI$) 370 INPUT# A,X 380 FOR Z=1 TO X 390 INPUT# A,A$(Z),B$(Z),NW%,E% 400 NEXTZ 410 CLOSE# A 420 430 REM *** Print File *** 440 450 CLS 460 PRINT:PRINT" * Make sure printer is ON-LINE" 470 PRINT:PRINT" * Press SPACE to print":REPEATUNTILINKEY-99 480 CLS 490 VDU2 500 PRINT"Filename : ";FI$:PRINT 510 FORZ=1 TO X 520 PRINT;A$(Z);" | ";B$(Z) 530 NEXTZ 540 VDU3 550 CLS 560 PROCscreen 570 PRINTTAB(5,5)"(N)ew (A)gain (R)eturn (Q)uit" 580 IF INKEY(-86) THENGOTO120 590 IF INKEY(-66) THENGOTO460 600 IF INKEY(-52) THENCHAIN"MENU" 610 IF INKEY(-17) THENCLS:END 620 GOTO580
� File Printer � By C.Weber 1994 :^) � Version 1.2 ( � 2 �4 < �23,1,0;0;0;0; F �19,0,4,0,0,0 P FI$="" Z � A$(100) d � B$(100) n NW%=0 x � � *FX21,0 � �screen � �TXA � ��screen � � RI%=1 � 38 � �RI%,1)"*" � �RI%,3)"*" � �RI%,30)"*" � � RI% �, �5,2)"Vocab. Printer By C.Weber 1994" � � DO%=1 � 30 � �1,DO%)"*" � �38,DO%)"*" � DO% � # �3,5)"Print a file (Y/N)";NI$ " � NI$="Y" ��DJA��"MENU" , 6 � *** Load File *** @ J �:*. T �:�"Enter Filename : ";FI$ ^ � FI$="" ��DTA h A=� (FI$) r �# A,X | � Z=1 � X � �# A,A$(Z),B$(Z),NW%,E% � �Z � �# A � � � *** Print File *** � � � �* �:�" * Make sure printer is ON-LINE" �) �:�" * Press SPACE to print":���-99 � � � �2 � �"Filename : ";FI$:� � �Z=1 � X �;A$(Z);" | ";B$(Z) �Z �3 & � 0 �screen :, �5,5)"(N)ew (A)gain (R)eturn (Q)uit" D � �(-86) ��Dx@ N � �(-66) ��dLA X � �(-52) ��"MENU" b � �(-17) ��:� l �DDB �
00000000 0d 00 0a 13 20 f4 20 46 69 6c 65 20 50 72 69 6e |.... . File Prin| 00000010 74 65 72 0d 00 14 1a 20 f4 20 42 79 20 43 2e 57 |ter.... . By C.W| 00000020 65 62 65 72 20 31 39 39 34 20 3a 5e 29 0d 00 1e |eber 1994 :^)...| 00000030 12 20 f4 20 56 65 72 73 69 6f 6e 20 31 2e 32 0d |. . Version 1.2.| 00000040 00 28 07 20 f4 20 0d 00 32 07 20 eb 34 0d 00 3c |.(. . ..2. .4..<| 00000050 13 20 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b |. .23,1,0;0;0;0;| 00000060 0d 00 46 12 20 ef 31 39 2c 30 2c 34 2c 30 2c 30 |..F. .19,0,4,0,0| 00000070 2c 30 0d 00 50 0b 20 46 49 24 3d 22 22 0d 00 5a |,0..P. FI$=""..Z| 00000080 0e 20 de 20 41 24 28 31 30 30 29 0d 00 64 0e 20 |. . A$(100)..d. | 00000090 de 20 42 24 28 31 30 30 29 0d 00 6e 0a 20 4e 57 |. B$(100)..n. NW| 000000a0 25 3d 30 0d 00 78 06 20 db 0d 00 82 0c 20 2a 46 |%=0..x. ..... *F| 000000b0 58 32 31 2c 30 0d 00 8c 0c 20 f2 73 63 72 65 65 |X21,0.... .scree| 000000c0 6e 0d 00 96 0a 20 e5 8d 54 58 41 0d 00 a0 0d 20 |n.... ..TXA.... | 000000d0 dd f2 73 63 72 65 65 6e 0d 00 aa 11 20 e3 20 52 |..screen.... . R| 000000e0 49 25 3d 31 20 b8 20 33 38 0d 00 b4 12 20 20 20 |I%=1 . 38.... | 000000f0 f1 8a 52 49 25 2c 31 29 22 2a 22 0d 00 be 12 20 |..RI%,1)"*".... | 00000100 20 20 f1 8a 52 49 25 2c 33 29 22 2a 22 0d 00 c8 | ..RI%,3)"*"...| 00000110 13 20 20 20 f1 8a 52 49 25 2c 33 30 29 22 2a 22 |. ..RI%,30)"*"| 00000120 0d 00 d2 0a 20 ed 20 52 49 25 0d 00 dc 2c 20 f1 |.... . RI%..., .| 00000130 8a 35 2c 32 29 22 56 6f 63 61 62 2e 20 50 72 69 |.5,2)"Vocab. Pri| 00000140 6e 74 65 72 20 42 79 20 43 2e 57 65 62 65 72 20 |nter By C.Weber | 00000150 31 39 39 34 22 20 0d 00 e6 11 20 e3 20 44 4f 25 |1994" .... . DO%| 00000160 3d 31 20 b8 20 33 30 0d 00 f0 12 20 20 20 f1 8a |=1 . 30.... ..| 00000170 31 2c 44 4f 25 29 22 2a 22 0d 00 fa 13 20 20 20 |1,DO%)"*".... | 00000180 f1 8a 33 38 2c 44 4f 25 29 22 2a 22 0d 01 04 0a |..38,DO%)"*"....| 00000190 20 ed 20 44 4f 25 0d 01 0e 06 20 e1 0d 01 18 23 | . DO%.... ....#| 000001a0 20 e8 8a 33 2c 35 29 22 50 72 69 6e 74 20 61 20 | ..3,5)"Print a | 000001b0 66 69 6c 65 20 28 59 2f 4e 29 22 3b 4e 49 24 0d |file (Y/N)";NI$.| 000001c0 01 22 1d 20 e7 20 4e 49 24 3d 22 59 22 20 8c e5 |.". . NI$="Y" ..| 000001d0 8d 44 4a 41 8b d7 22 4d 45 4e 55 22 0d 01 2c 05 |.DJA.."MENU"..,.| 000001e0 20 0d 01 36 18 20 f4 20 2a 2a 2a 20 4c 6f 61 64 | ..6. . *** Load| 000001f0 20 46 69 6c 65 20 2a 2a 2a 0d 01 40 05 20 0d 01 | File ***..@. ..| 00000200 4a 09 20 db 3a 2a 2e 0d 01 54 20 20 f1 3a e8 22 |J. .:*...T .:."| 00000210 45 6e 74 65 72 20 46 69 6c 65 6e 61 6d 65 20 3a |Enter Filename :| 00000220 20 22 3b 46 49 24 20 0d 01 5e 14 20 e7 20 46 49 | ";FI$ ..^. . FI| 00000230 24 3d 22 22 20 8c e5 8d 44 54 41 0d 01 68 0e 20 |$="" ...DTA..h. | 00000240 41 3d 8e 20 28 46 49 24 29 0d 01 72 0b 20 e8 23 |A=. (FI$)..r. .#| 00000250 20 41 2c 58 0d 01 7c 0e 20 e3 20 5a 3d 31 20 b8 | A,X..|. . Z=1 .| 00000260 20 58 0d 01 86 1e 20 20 20 e8 23 20 41 2c 41 24 | X.... .# A,A$| 00000270 28 5a 29 2c 42 24 28 5a 29 2c 4e 57 25 2c 45 25 |(Z),B$(Z),NW%,E%| 00000280 0d 01 90 07 20 ed 5a 0d 01 9a 09 20 d9 23 20 41 |.... .Z.... .# A| 00000290 0d 01 a4 05 20 0d 01 ae 19 20 f4 20 2a 2a 2a 20 |.... .... . *** | 000002a0 50 72 69 6e 74 20 46 69 6c 65 20 2a 2a 2a 0d 01 |Print File ***..| 000002b0 b8 05 20 0d 01 c2 06 20 db 0d 01 cc 2a 20 f1 3a |.. .... ....* .:| 000002c0 f1 22 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 70 |." * Make sure p| 000002d0 72 69 6e 74 65 72 20 69 73 20 4f 4e 2d 4c 49 4e |rinter is ON-LIN| 000002e0 45 22 20 0d 01 d6 29 20 f1 3a f1 22 20 2a 20 50 |E" ...) .:." * P| 000002f0 72 65 73 73 20 53 50 41 43 45 20 74 6f 20 70 72 |ress SPACE to pr| 00000300 69 6e 74 22 3a f5 fd a6 2d 39 39 20 0d 01 e0 06 |int":...-99 ....| 00000310 20 db 0d 01 ea 07 20 ef 32 0d 01 f4 1c 20 20 20 | ..... .2.... | 00000320 f1 22 46 69 6c 65 6e 61 6d 65 20 3a 20 22 3b 46 |."Filename : ";F| 00000330 49 24 3a f1 20 0d 01 fe 0d 20 e3 5a 3d 31 20 b8 |I$:. .... .Z=1 .| 00000340 20 58 0d 02 08 1a 20 20 20 f1 3b 41 24 28 5a 29 | X.... .;A$(Z)| 00000350 3b 22 20 7c 20 22 3b 42 24 28 5a 29 0d 02 12 07 |;" | ";B$(Z)....| 00000360 20 ed 5a 0d 02 1c 07 20 ef 33 0d 02 26 06 20 db | .Z.... .3..&. .| 00000370 0d 02 30 0c 20 f2 73 63 72 65 65 6e 0d 02 3a 2c |..0. .screen..:,| 00000380 20 f1 8a 35 2c 35 29 22 28 4e 29 65 77 20 28 41 | ..5,5)"(N)ew (A| 00000390 29 67 61 69 6e 20 28 52 29 65 74 75 72 6e 20 28 |)gain (R)eturn (| 000003a0 51 29 75 69 74 22 20 20 0d 02 44 14 20 e7 20 a6 |Q)uit" ..D. . .| 000003b0 28 2d 38 36 29 20 8c e5 8d 44 78 40 0d 02 4e 14 |(-86) ...Dx@..N.| 000003c0 20 e7 20 a6 28 2d 36 36 29 20 8c e5 8d 64 4c 41 | . .(-66) ...dLA| 000003d0 0d 02 58 16 20 e7 20 a6 28 2d 35 32 29 20 8c d7 |..X. . .(-52) ..| 000003e0 22 4d 45 4e 55 22 0d 02 62 12 20 e7 20 a6 28 2d |"MENU"..b. . .(-| 000003f0 31 37 29 20 8c db 3a e0 0d 02 6c 0a 20 e5 8d 44 |17) ..:...l. ..D| 00000400 44 42 0d ff |DB..| 00000404
PROGS/TRANS/PRINT.m0
PROGS/TRANS/PRINT.m1
PROGS/TRANS/PRINT.m2
PROGS/TRANS/PRINT.m4
PROGS/TRANS/PRINT.m5
.