PRINT_EXAM

Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav » PRINT_EXAM

PRINT_EXAM

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 tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav
Filename:	PRINT_EXAM
Read OK:	✔
File size:	069F bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

   10 REM ****************
   20 REM * TEST PRINTER *
   30 REM ****************
   40 REM *BY DOMIIC FORD*
   50 REM ****************
   60 MODE 1
   70 VDU 19,0,6,0;0;0;19,1,0,0;0;0;
   80 COLOUR 1
   90 PROC_interview
  100 PROC_badge
  110 PROC_print
  120 GOTO 90
  130 DEFPROC_interview
  140 INPUT"SCHOOL";school$
  150 INPUT"AGE(+)";age
  160 INPUT"CANDIDATES";cans
  170 INPUT"SUBJECT";sub$
  180 INPUT"QUESTIONS";quest
  190 DIM q%(quest)
  200 FOR A=1 TO quest
  210 PRINT;A;".";:INPUTq%(A)
  220 NEXT
  230 ENDPROC
  240 DEFPROC_badge
  250 DIM b%(24,5)
  260 adress=128
  270 FOR b1=1 TO 5
  280 FOR b2=1 TO 3
  290 READ D1,D2,D3,D4,D5,D6,D7,D8
  300 VDU 23,adress,D1,D2,D3,D4,D5,D6,D7,D8
  310 adress=adress+1
  320 NEXT:NEXT
  330 VDU 2
  340 ADRESS=128
  350 FOR b1=1 TO 5
  360 FOR b2=1 TO 3
  370 READ D1,D2,D3,D4,D5,D6,D7,D8
  380 PRINTCHR$(27)+"y"+CHR$(ADRESS);
  390 PRINTCHR$(0)+CHR$(D1)+CHR$(D2);
  400 PRINTCHR$(D3)+CHR$(D4)+CHR$(D5);
  410 PRINTCHR$(D6)+CHR$(D7)+CHR$(D8);
  420 ADRESS=ADRESS+1
  430 NEXT:NEXT
  440 VDU 3
  450 ENDPROC
  460 DEFPROC_print
  470 pr=0:ox=0:oz=0
  480 PRINT"PRINTER";:INPUTpr2$
  490 IF pr2$="YES"THEN VDU 2
  500 FOR candidate=1 TO cans
  510 CLS
  520 Z=17:X=1:PROC_zx:PRINT;CHR$(128);
  530 PRINT;CHR$(131);CHR$(134);CHR$(137);
  540 PRINT;CHR$(140);:oz=22:ox=1:X=2:Z=17
  550 PROC_zx:PRINT;CHR$(129);CHR$(132);
  560 PRINT;CHR$(135);CHR$(138);CHR$(141);
  570 ox=2:oz=22:X=3:Z=17:PROC_zx
  580 PRINT;CHR$(130);CHR$(133);CHR$(136);
  590 PRINT;CHR$(139);CHR$(142);:ox=3:oz=22
  600 Z=13:X=5:PROC_zx:PRINT;school$;
  610 PRINT;" SCHOOL";:ox=LEN(school$)+19
  620 oz=5:X=16:Z=7:PROC_zx:PRINT;"ENTRANCE";
  630 oz=7:ox=24:Z=9:X=18:PROC_zx:PRINT;"EXAM."
  640 oz=9:ox=23:Z=11:X=17:PROC_zx
  650 PRINTsub$:oz=11:ox=LEN(sub$)-3
  660 Z=12:X=14:PROC_zx:PRINT"CANDIDATE:";candidate
  670 FOR feed=1 TO 18:PRINT:NEXTfeed
  680 FOR pri2=1 TO quest
  690 PRINT;pri2;". ";q$(pri2)
  700 PRINT
  710 NEXT pri2
  720 FOR feed=1 TO 20:PRINT:NEXT
  730 NEXT candidate
  740 VDU 3
  750 ENDPROC
  760 DEFPROC_zx
  770 IF Z=oz THEN 810
  780 FOR Z2=oz TO Z
  790 PRINT
  800 NEXT
  810 IF X=ox THEN ENDPROC
  820 FOR X2=ox TO X
  830 PRINT;" ";
  840 NEXT
  850 ENDPROC
 1000 REM * ELECTRON'S DATA *
 2000 REM * PRINTER'S DATA (8 PER CHAR) *


 � ****************
 � * TEST PRINTER *
 � ****************
( � *BY DOMIIC FORD*
2 � ****************
< � 1
F! � 19,0,6,0;0;0;19,1,0,0;0;0;
P � 1
Z �_interview
d �_badge
n �_print
x � �DZ@
� ��_interview
� �"SCHOOL";school$
� �"AGE(+)";age
� �"CANDIDATES";cans
� �"SUBJECT";sub$
� �"QUESTIONS";quest
� � q%(quest)
� � A=1 � quest
� �;A;".";:�q%(A)
� �
� �
�
 ��_badge
� � b%(24,5)
 adress=128
 � b1=1 � 5
 � b2=1 � 3
" � D1,D2,D3,D4,D5,D6,D7,D8
,( � 23,adress,D1,D2,D3,D4,D5,D6,D7,D8
6 adress=adress+1
@ �:�
J � 2
T ADRESS=128
^ � b1=1 � 5
h � b2=1 � 3
r � D1,D2,D3,D4,D5,D6,D7,D8
| �(27)+"y"+�(ADRESS);
� �(0)+�(D1)+�(D2);
� �(D3)+�(D4)+�(D5);
� �(D6)+�(D7)+�(D8);
� ADRESS=ADRESS+1
� �:�
� � 3
� �
�
 ��_print
� pr=0:ox=0:oz=0
� �"PRINTER";:�pr2$
� � pr2$="YES"� � 2
� � candidate=1 � cans
� �
 Z=17:X=1:�_zx:�;�(128);
 �;�(131);�(134);�(137);
" �;�(140);:oz=22:ox=1:X=2:Z=17
& �_zx:�;�(129);�(132);
0 �;�(135);�(138);�(141);
: ox=2:oz=22:X=3:Z=17:�_zx
D �;�(130);�(133);�(136);
N  �;�(139);�(142);:ox=3:oz=22
X Z=13:X=5:�_zx:�;school$;
b" �;" SCHOOL";:ox=�(school$)+19
l% oz=5:X=16:Z=7:�_zx:�;"ENTRANCE";
v' oz=7:ox=24:Z=9:X=18:�_zx:�;"EXAM."
� oz=9:ox=23:Z=11:X=17:�_zx
� �sub$:oz=11:ox=�(sub$)-3
�+ Z=12:X=14:�_zx:�"CANDIDATE:";candidate
� � feed=1 � 18:�:�feed
� � pri2=1 � quest
� �;pri2;". ";q$(pri2)
� �
� � pri2
� � feed=1 � 20:�:�
� � candidate
� � 3
� �
�
 ��_zx
 � Z=oz � �TjC
 � Z2=oz � Z
 �
  �
* � X=ox � �
4 � X2=ox � X
> �;" ";
H �
R �
� � * ELECTRON'S DATA *
�& � * PRINTER'S DATA (8 PER CHAR) *
�

00000000  0d 00 0a 17 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... . *********|
00000010  2a 2a 2a 2a 2a 2a 2a 0d  00 14 17 20 f4 20 2a 20  |*******.... . * |
00000020  54 45 53 54 20 50 52 49  4e 54 45 52 20 2a 0d 00  |TEST PRINTER *..|
00000030  1e 17 20 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.. . ***********|
00000040  2a 2a 2a 2a 2a 0d 00 28  17 20 f4 20 2a 42 59 20  |*****..(. . *BY |
00000050  44 4f 4d 49 49 43 20 46  4f 52 44 2a 0d 00 32 17  |DOMIIC FORD*..2.|
00000060  20 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | . *************|
00000070  2a 2a 2a 0d 00 3c 08 20  eb 20 31 0d 00 46 21 20  |***..<. . 1..F! |
00000080  ef 20 31 39 2c 30 2c 36  2c 30 3b 30 3b 30 3b 31  |. 19,0,6,0;0;0;1|
00000090  39 2c 31 2c 30 2c 30 3b  30 3b 30 3b 0d 00 50 08  |9,1,0,0;0;0;..P.|
000000a0  20 fb 20 31 0d 00 5a 10  20 f2 5f 69 6e 74 65 72  | . 1..Z. ._inter|
000000b0  76 69 65 77 0d 00 64 0c  20 f2 5f 62 61 64 67 65  |view..d. ._badge|
000000c0  0d 00 6e 0c 20 f2 5f 70  72 69 6e 74 0d 00 78 0b  |..n. ._print..x.|
000000d0  20 e5 20 8d 44 5a 40 0d  00 82 11 20 dd f2 5f 69  | . .DZ@.... .._i|
000000e0  6e 74 65 72 76 69 65 77  0d 00 8c 16 20 e8 22 53  |nterview.... ."S|
000000f0  43 48 4f 4f 4c 22 3b 73  63 68 6f 6f 6c 24 0d 00  |CHOOL";school$..|
00000100  96 12 20 e8 22 41 47 45  28 2b 29 22 3b 61 67 65  |.. ."AGE(+)";age|
00000110  0d 00 a0 17 20 e8 22 43  41 4e 44 49 44 41 54 45  |.... ."CANDIDATE|
00000120  53 22 3b 63 61 6e 73 0d  00 aa 14 20 e8 22 53 55  |S";cans.... ."SU|
00000130  42 4a 45 43 54 22 3b 73  75 62 24 0d 00 b4 17 20  |BJECT";sub$.... |
00000140  e8 22 51 55 45 53 54 49  4f 4e 53 22 3b 71 75 65  |."QUESTIONS";que|
00000150  73 74 0d 00 be 10 20 de  20 71 25 28 71 75 65 73  |st.... . q%(ques|
00000160  74 29 0d 00 c8 12 20 e3  20 41 3d 31 20 b8 20 71  |t).... . A=1 . q|
00000170  75 65 73 74 0d 00 d2 14  20 f1 3b 41 3b 22 2e 22  |uest.... .;A;"."|
00000180  3b 3a e8 71 25 28 41 29  0d 00 dc 06 20 ed 0d 00  |;:.q%(A).... ...|
00000190  e6 06 20 e1 0d 00 f0 0d  20 dd f2 5f 62 61 64 67  |.. ..... .._badg|
000001a0  65 0d 00 fa 0f 20 de 20  62 25 28 32 34 2c 35 29  |e.... . b%(24,5)|
000001b0  0d 01 04 0f 20 61 64 72  65 73 73 3d 31 32 38 0d  |.... adress=128.|
000001c0  01 0e 0f 20 e3 20 62 31  3d 31 20 b8 20 35 0d 01  |... . b1=1 . 5..|
000001d0  18 0f 20 e3 20 62 32 3d  31 20 b8 20 33 0d 01 22  |.. . b2=1 . 3.."|
000001e0  1e 20 f3 20 44 31 2c 44  32 2c 44 33 2c 44 34 2c  |. . D1,D2,D3,D4,|
000001f0  44 35 2c 44 36 2c 44 37  2c 44 38 0d 01 2c 28 20  |D5,D6,D7,D8..,( |
00000200  ef 20 32 33 2c 61 64 72  65 73 73 2c 44 31 2c 44  |. 23,adress,D1,D|
00000210  32 2c 44 33 2c 44 34 2c  44 35 2c 44 36 2c 44 37  |2,D3,D4,D5,D6,D7|
00000220  2c 44 38 0d 01 36 14 20  61 64 72 65 73 73 3d 61  |,D8..6. adress=a|
00000230  64 72 65 73 73 2b 31 0d  01 40 08 20 ed 3a ed 0d  |dress+1..@. .:..|
00000240  01 4a 08 20 ef 20 32 0d  01 54 0f 20 41 44 52 45  |.J. . 2..T. ADRE|
00000250  53 53 3d 31 32 38 0d 01  5e 0f 20 e3 20 62 31 3d  |SS=128..^. . b1=|
00000260  31 20 b8 20 35 0d 01 68  0f 20 e3 20 62 32 3d 31  |1 . 5..h. . b2=1|
00000270  20 b8 20 33 0d 01 72 1e  20 f3 20 44 31 2c 44 32  | . 3..r. . D1,D2|
00000280  2c 44 33 2c 44 34 2c 44  35 2c 44 36 2c 44 37 2c  |,D3,D4,D5,D6,D7,|
00000290  44 38 0d 01 7c 1a 20 f1  bd 28 32 37 29 2b 22 79  |D8..|. ..(27)+"y|
000002a0  22 2b bd 28 41 44 52 45  53 53 29 3b 0d 01 86 17  |"+.(ADRESS);....|
000002b0  20 f1 bd 28 30 29 2b bd  28 44 31 29 2b bd 28 44  | ..(0)+.(D1)+.(D|
000002c0  32 29 3b 0d 01 90 18 20  f1 bd 28 44 33 29 2b bd  |2);.... ..(D3)+.|
000002d0  28 44 34 29 2b bd 28 44  35 29 3b 0d 01 9a 18 20  |(D4)+.(D5);.... |
000002e0  f1 bd 28 44 36 29 2b bd  28 44 37 29 2b bd 28 44  |..(D6)+.(D7)+.(D|
000002f0  38 29 3b 0d 01 a4 14 20  41 44 52 45 53 53 3d 41  |8);.... ADRESS=A|
00000300  44 52 45 53 53 2b 31 0d  01 ae 08 20 ed 3a ed 0d  |DRESS+1.... .:..|
00000310  01 b8 08 20 ef 20 33 0d  01 c2 06 20 e1 0d 01 cc  |... . 3.... ....|
00000320  0d 20 dd f2 5f 70 72 69  6e 74 0d 01 d6 13 20 70  |. .._print.... p|
00000330  72 3d 30 3a 6f 78 3d 30  3a 6f 7a 3d 30 0d 01 e0  |r=0:ox=0:oz=0...|
00000340  16 20 f1 22 50 52 49 4e  54 45 52 22 3b 3a e8 70  |. ."PRINTER";:.p|
00000350  72 32 24 0d 01 ea 16 20  e7 20 70 72 32 24 3d 22  |r2$.... . pr2$="|
00000360  59 45 53 22 8c 20 ef 20  32 0d 01 f4 19 20 e3 20  |YES". . 2.... . |
00000370  63 61 6e 64 69 64 61 74  65 3d 31 20 b8 20 63 61  |candidate=1 . ca|
00000380  6e 73 0d 01 fe 06 20 db  0d 02 08 1c 20 5a 3d 31  |ns.... ..... Z=1|
00000390  37 3a 58 3d 31 3a f2 5f  7a 78 3a f1 3b bd 28 31  |7:X=1:._zx:.;.(1|
000003a0  32 38 29 3b 0d 02 12 1c  20 f1 3b bd 28 31 33 31  |28);.... .;.(131|
000003b0  29 3b bd 28 31 33 34 29  3b bd 28 31 33 37 29 3b  |);.(134);.(137);|
000003c0  0d 02 1c 22 20 f1 3b bd  28 31 34 30 29 3b 3a 6f  |..." .;.(140);:o|
000003d0  7a 3d 32 32 3a 6f 78 3d  31 3a 58 3d 32 3a 5a 3d  |z=22:ox=1:X=2:Z=|
000003e0  31 37 0d 02 26 1a 20 f2  5f 7a 78 3a f1 3b bd 28  |17..&. ._zx:.;.(|
000003f0  31 32 39 29 3b bd 28 31  33 32 29 3b 0d 02 30 1c  |129);.(132);..0.|
00000400  20 f1 3b bd 28 31 33 35  29 3b bd 28 31 33 38 29  | .;.(135);.(138)|
00000410  3b bd 28 31 34 31 29 3b  0d 02 3a 1d 20 6f 78 3d  |;.(141);..:. ox=|
00000420  32 3a 6f 7a 3d 32 32 3a  58 3d 33 3a 5a 3d 31 37  |2:oz=22:X=3:Z=17|
00000430  3a f2 5f 7a 78 0d 02 44  1c 20 f1 3b bd 28 31 33  |:._zx..D. .;.(13|
00000440  30 29 3b bd 28 31 33 33  29 3b bd 28 31 33 36 29  |0);.(133);.(136)|
00000450  3b 0d 02 4e 20 20 f1 3b  bd 28 31 33 39 29 3b bd  |;..N  .;.(139);.|
00000460  28 31 34 32 29 3b 3a 6f  78 3d 33 3a 6f 7a 3d 32  |(142);:ox=3:oz=2|
00000470  32 0d 02 58 1d 20 5a 3d  31 33 3a 58 3d 35 3a f2  |2..X. Z=13:X=5:.|
00000480  5f 7a 78 3a f1 3b 73 63  68 6f 6f 6c 24 3b 0d 02  |_zx:.;school$;..|
00000490  62 22 20 f1 3b 22 20 53  43 48 4f 4f 4c 22 3b 3a  |b" .;" SCHOOL";:|
000004a0  6f 78 3d a9 28 73 63 68  6f 6f 6c 24 29 2b 31 39  |ox=.(school$)+19|
000004b0  0d 02 6c 25 20 6f 7a 3d  35 3a 58 3d 31 36 3a 5a  |..l% oz=5:X=16:Z|
000004c0  3d 37 3a f2 5f 7a 78 3a  f1 3b 22 45 4e 54 52 41  |=7:._zx:.;"ENTRA|
000004d0  4e 43 45 22 3b 0d 02 76  27 20 6f 7a 3d 37 3a 6f  |NCE";..v' oz=7:o|
000004e0  78 3d 32 34 3a 5a 3d 39  3a 58 3d 31 38 3a f2 5f  |x=24:Z=9:X=18:._|
000004f0  7a 78 3a f1 3b 22 45 58  41 4d 2e 22 0d 02 80 1e  |zx:.;"EXAM."....|
00000500  20 6f 7a 3d 39 3a 6f 78  3d 32 33 3a 5a 3d 31 31  | oz=9:ox=23:Z=11|
00000510  3a 58 3d 31 37 3a f2 5f  7a 78 0d 02 8a 1d 20 f1  |:X=17:._zx.... .|
00000520  73 75 62 24 3a 6f 7a 3d  31 31 3a 6f 78 3d a9 28  |sub$:oz=11:ox=.(|
00000530  73 75 62 24 29 2d 33 0d  02 94 2b 20 5a 3d 31 32  |sub$)-3...+ Z=12|
00000540  3a 58 3d 31 34 3a f2 5f  7a 78 3a f1 22 43 41 4e  |:X=14:._zx:."CAN|
00000550  44 49 44 41 54 45 3a 22  3b 63 61 6e 64 69 64 61  |DIDATE:";candida|
00000560  74 65 0d 02 9e 1a 20 e3  20 66 65 65 64 3d 31 20  |te.... . feed=1 |
00000570  b8 20 31 38 3a f1 3a ed  66 65 65 64 0d 02 a8 15  |. 18:.:.feed....|
00000580  20 e3 20 70 72 69 32 3d  31 20 b8 20 71 75 65 73  | . pri2=1 . ques|
00000590  74 0d 02 b2 19 20 f1 3b  70 72 69 32 3b 22 2e 20  |t.... .;pri2;". |
000005a0  22 3b 71 24 28 70 72 69  32 29 0d 02 bc 06 20 f1  |";q$(pri2).... .|
000005b0  0d 02 c6 0b 20 ed 20 70  72 69 32 0d 02 d0 16 20  |.... . pri2.... |
000005c0  e3 20 66 65 65 64 3d 31  20 b8 20 32 30 3a f1 3a  |. feed=1 . 20:.:|
000005d0  ed 0d 02 da 10 20 ed 20  63 61 6e 64 69 64 61 74  |..... . candidat|
000005e0  65 0d 02 e4 08 20 ef 20  33 0d 02 ee 06 20 e1 0d  |e.... . 3.... ..|
000005f0  02 f8 0a 20 dd f2 5f 7a  78 0d 03 02 12 20 e7 20  |... .._zx.... . |
00000600  5a 3d 6f 7a 20 8c 20 8d  54 6a 43 0d 03 0c 10 20  |Z=oz . .TjC.... |
00000610  e3 20 5a 32 3d 6f 7a 20  b8 20 5a 0d 03 16 06 20  |. Z2=oz . Z.... |
00000620  f1 0d 03 20 06 20 ed 0d  03 2a 0f 20 e7 20 58 3d  |... . ...*. . X=|
00000630  6f 78 20 8c 20 e1 0d 03  34 10 20 e3 20 58 32 3d  |ox . ...4. . X2=|
00000640  6f 78 20 b8 20 58 0d 03  3e 0b 20 f1 3b 22 20 22  |ox . X..>. .;" "|
00000650  3b 0d 03 48 06 20 ed 0d  03 52 06 20 e1 0d 03 e8  |;..H. ...R. ....|
00000660  1a 20 f4 20 2a 20 45 4c  45 43 54 52 4f 4e 27 53  |. . * ELECTRON'S|
00000670  20 44 41 54 41 20 2a 0d  07 d0 26 20 f4 20 2a 20  | DATA *...& . * |
00000680  50 52 49 4e 54 45 52 27  53 20 44 41 54 41 20 28  |PRINTER'S DATA (|
00000690  38 20 50 45 52 20 43 48  41 52 29 20 2a 0d ff     |8 PER CHAR) *..|
0000069f

PRINT_EXAM.m0

PRINT_EXAM.m1

PRINT_EXAM.m2

PRINT_EXAM.m4

PRINT_EXAM.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .