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