Home » CEEFAX disks » telesoftware17.adl » 11-08-89/MENU

11-08-89/MENU

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 » CEEFAX disks » telesoftware17.adl
Filename: 11-08-89/MENU
Read OK:
File size: 0206 bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
   10REM ** BINGO TICKET MENU **
   20REM ** R.A.Blagg : 20/11/88 **
   30MODE7
   40*TV255,1
   50VDU23,1,0;0;0;0;
   60FORHD=0TO1
   70PRINTCHR$141;CHR$134;CHR$157;CHR$132;"              MENU" 
   80NEXTHD
   90PRINT:PRINT
  100PRINT"        �Bingo ticket printer."
  110PRINT"        �_____________________"
  120PRINT:PRINT:PRINT
  130PRINT"      �(A) Text file." 
  140PRINT
  150PRINT"      �(B) Run ticket printer."
  160PRINT:PRINT:PRINT
  170FORS=0TO1
  180PRINTCHR$141;CHR$133;CHR$136;"          Select A / B"
  190NEXTS
  200A$=GET$
  210B=ASC(A$)-64
  220IF B<1 THEN RUN
  230IF B>2 THEN RUN
  240ON B GOTO 260,290
  250END
  260MODE3:VDU14:*TYPE BT/TEXT
  270VDU15
  280STOP
  290MODE7:CHAIN"BTPRINT"

� ** BINGO TICKET MENU **
 � ** R.A.Blagg : 20/11/88 **
�7
(*TV255,1
2�23,1,0;0;0;0;
<�HD=0�1
F.�141;�134;�157;�132;"              MENU" 
P�HD
Z�:�
d%�"        �Bingo ticket printer."
n%�"        �_____________________"
x	�:�:�
��"      �(A) Text file." 
��
�%�"      �(B) Run ticket printer."
�	�:�:�
�
�S=0�1
�,�141;�133;�136;"          Select A / B"
��S
�A$=�
�B=�(A$)-64
�
� B<1 � �
�
� B>2 � �
�� B � �TDA,�TbA
��
�3:�14:*TYPE BT/TEXT
�15
�
"�7:�"BTPRINT"
�
00000000  0d 00 0a 1d f4 20 2a 2a  20 42 49 4e 47 4f 20 54  |..... ** BINGO T|
00000010  49 43 4b 45 54 20 4d 45  4e 55 20 2a 2a 0d 00 14  |ICKET MENU **...|
00000020  20 f4 20 2a 2a 20 52 2e  41 2e 42 6c 61 67 67 20  | . ** R.A.Blagg |
00000030  3a 20 32 30 2f 31 31 2f  38 38 20 2a 2a 0d 00 1e  |: 20/11/88 **...|
00000040  06 eb 37 0d 00 28 0c 2a  54 56 32 35 35 2c 31 0d  |..7..(.*TV255,1.|
00000050  00 32 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.2..23,1,0;0;0;0|
00000060  3b 0d 00 3c 0b e3 48 44  3d 30 b8 31 0d 00 46 2e  |;..<..HD=0.1..F.|
00000070  f1 bd 31 34 31 3b bd 31  33 34 3b bd 31 35 37 3b  |..141;.134;.157;|
00000080  bd 31 33 32 3b 22 20 20  20 20 20 20 20 20 20 20  |.132;"          |
00000090  20 20 20 20 4d 45 4e 55  22 20 0d 00 50 07 ed 48  |    MENU" ..P..H|
000000a0  44 0d 00 5a 07 f1 3a f1  0d 00 64 25 f1 22 20 20  |D..Z..:...d%."  |
000000b0  20 20 20 20 20 20 82 42  69 6e 67 6f 20 74 69 63  |      .Bingo tic|
000000c0  6b 65 74 20 70 72 69 6e  74 65 72 2e 22 0d 00 6e  |ket printer."..n|
000000d0  25 f1 22 20 20 20 20 20  20 20 20 86 5f 5f 5f 5f  |%."        .____|
000000e0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
000000f0  5f 22 0d 00 78 09 f1 3a  f1 3a f1 0d 00 82 1d f1  |_"..x..:.:......|
00000100  22 20 20 20 20 20 20 81  28 41 29 20 54 65 78 74  |"      .(A) Text|
00000110  20 66 69 6c 65 2e 22 20  0d 00 8c 05 f1 0d 00 96  | file." ........|
00000120  25 f1 22 20 20 20 20 20  20 83 28 42 29 20 52 75  |%."      .(B) Ru|
00000130  6e 20 74 69 63 6b 65 74  20 70 72 69 6e 74 65 72  |n ticket printer|
00000140  2e 22 0d 00 a0 09 f1 3a  f1 3a f1 0d 00 aa 0a e3  |.".....:.:......|
00000150  53 3d 30 b8 31 0d 00 b4  2c f1 bd 31 34 31 3b bd  |S=0.1...,..141;.|
00000160  31 33 33 3b bd 31 33 36  3b 22 20 20 20 20 20 20  |133;.136;"      |
00000170  20 20 20 20 53 65 6c 65  63 74 20 41 20 2f 20 42  |    Select A / B|
00000180  22 0d 00 be 06 ed 53 0d  00 c8 08 41 24 3d be 0d  |".....S....A$=..|
00000190  00 d2 0e 42 3d 97 28 41  24 29 2d 36 34 0d 00 dc  |...B=.(A$)-64...|
000001a0  0d e7 20 42 3c 31 20 8c  20 f9 0d 00 e6 0d e7 20  |.. B<1 . ...... |
000001b0  42 3e 32 20 8c 20 f9 0d  00 f0 13 ee 20 42 20 e5  |B>2 . ...... B .|
000001c0  20 8d 54 44 41 2c 8d 54  62 41 0d 00 fa 05 e0 0d  | .TDA,.TbA......|
000001d0  01 04 18 eb 33 3a ef 31  34 3a 2a 54 59 50 45 20  |....3:.14:*TYPE |
000001e0  42 54 2f 54 45 58 54 0d  01 0e 07 ef 31 35 0d 01  |BT/TEXT.....15..|
000001f0  18 05 fa 0d 01 22 11 eb  37 3a d7 22 42 54 50 52  |....."..7:."BTPR|
00000200  49 4e 54 22 0d ff                                 |INT"..|
00000206
11-08-89/MENU.m0
11-08-89/MENU.m1
11-08-89/MENU.m2
11-08-89/MENU.m4
11-08-89/MENU.m5