Home » CEEFAX disks » telesoftware15.adl » 21-02-89/Bingo

21-02-89/Bingo

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 » telesoftware15.adl
Filename: 21-02-89/Bingo
Read OK: ✔
File size: 2422 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM  BINGO CALLER  by Terry Blunt
   20 REM  updated 9 / 12 / 85
   30 REM  Master 1 / 4 / 87
   40:
   50 MODE 7
   60 ON ERROR VDU 7:RUN
   70 PROCdbl(CHR$134+"B I N G O    C A L L E R",6,4)
   80 PRINTTAB(8,7) CHR$130 "Written by Terry Blunt"
   90 PROCdbl(CHR$131+"Please wait,  I'm thinking.",5,9)
  100:
  110 PROCinit
  120 VDU 28,0,24,39,9,12
  130 IF FNipt(CHR$130+"Do you need instructions",3,0) PROCtext
  140 CLS
  150 sno%=FNipt(CHR$133+"Snowball on ",8,0)
  160 VDU 28,5,23,34,3
  170 ON ERROR VDU 7:CLS
  180 flg%=FALSE
  190 IF sno% PROCupdt
  200 PROCdbl(CHR$133+"Shaking the bag !!",4,10)
  210 PROCshuf
  220 PROCclear
  230 PROCdbl(CHR$131+"     READY      ",5,14)
  240 I%=0
  250:
  260 REM  ****  main loop
  270:
  280 REPEAT
  290 IF FNkey PROCnum ELSE PROCchk
  300 UNTIL I%=90
  310 PROCdbl(CHR$131+"All numbers called",4,17)
  320 PRINT esc$;
  330 REPEAT
  340 UNTIL FALSE
  350:
 1000 DEFPROCinit
 1010 *FX4,1
 1020 DIM num$(9),bag%(90),chk%(90)
 1030 sno$="S N O W B A L L"
 1040 las$=CHR$131+"Last number called  "
 1050 esc$=CHR$31+CHR$2+CHR$20+CHR$130+"'ESCAPE' for a new game"
 1060 @%=2
 1070 VDU 23;8202;0;0;0;
 1080 *KEY 0 |!~|M
 1090 *KEY 1 |!~|M
 1100 *KEY 2 |!~|M
 1110 *KEY 3 |!~|M
 1120 *KEY 4 |!~|M
 1130 *KEY 5 |!~|M
 1140 *KEY 6 |!~|M
 1150 *KEY 7 |!~|M
 1160 *KEY 8 |!~|M
 1170 *KEY 9 |!~|M
 1180 *KEY 10 OLD|M RUN|M
 1190:
 1200 FOR N%=0 TO 9
 1210 FOR Y%=0 TO 11
 1220 num$(N%)=num$(N%)+CHR$150
 1230 FOR X%=0 TO 9
 1240 READ D%
 1250 num$(N%)=num$(N%)+CHR$(D%)
 1260 NEXT,,
 1270 FOR I%=1 TO 90
 1280 bag%(I%)=I%
 1290 NEXT
 1300 ENDPROC
 1310:
 1320 DEFPROCdbl(msg$,X%,Y%)
 1330 FOR B%=Y% TO Y%+1
 1340 PRINTTAB(X%,B%) CHR$141 msg$
 1350 NEXT
 1360 ENDPROC
 1370:
 1380 DEFFNipt(msg$,X%,Y%)
 1390 *FX15,1
 1400 PRINTTAB(X%,Y%) msg$ " (Y/N) ? ";
 1410 REPEAT
 1420 G%=GET AND 95
 1430 UNTIL G%=78 OR G%=89
 1440 VDU G%
 1450 =G%=89
 1460:
 1470 DEFPROCtext
 1480 FOR N%=1 TO 2
 1490 CLS
 1500 FOR I%=0 TO 11
 1510 READ d$
 1520 PRINT CHR$130 d$
 1530 NEXT
 1540 PRINT'CHR$131 SPC(8) "PRESS ANY LETTER KEY"
 1550 REPEAT
 1560 G%=GET AND 95
 1570 UNTIL G%>64 AND G%<91
 1580 NEXT
 1590 ENDPROC
 1600:
 1610 DEFPROCshuf
 1620 N%=RND(-TIME)
 1630 FOR N%=1 TO 4
 1640 FOR I%=1 TO 90
 1650 A%=RND(90)
 1660 B%=bag%(I%)
 1670 bag%(I%)=bag%(A%)
 1680 bag%(A%)=B%
 1690 NEXT,
 1700 ENDPROC
 1710:
 1720 DEFPROCclear
 1730 FOR num%=1 TO 90
 1740 chk%(num%)=0
 1750 NEXT
 1760 ENDPROC
 1770:
 1780 DEFFNkey
 1790 *FX15,1
 1800 REPEAT
 1810 G%=GET
 1820 IF G%>96 G%=G%-32
 1830 UNTIL G%>64 AND G%<91 OR G%=9 OR G%=&D OR G%>96
 1840 =G%>&D
 1850:
 1860 DEFPROCnum
 1870 IF G%>96 PROCspec:ENDPROC
 1880 CLS
 1890 I%=I%+1
 1900 IF I%>1 PROCdbl(CHR$131+STR$(I%)+"  numbers called",4,17)
 1910 num%=bag%(I%):chk%(num%)=TRUE
 1920 PROCpos
 1930 ENDPROC
 1940:
 1950 DEFPROCspec
 1960 CLS
 1970 PROCdbl(CHR$131+"S P E C I A L   N U M B E R",0,17)
 1980 num%=RND(90)
 1990 PROCpos
 2000 ENDPROC
 2010:
 2020 DEFPROCpos
 2030 IF num%<10 X%=-6 ELSE X%=4:PROCprint(num% DIV 10)
 2040 X%=X%+20
 2050 PROCprint(num% MOD 10)
 2060 VDU 28,5,23,34,3
 2070 flg%=FALSE
 2080 ENDPROC
 2090:
 2100 DEFPROCprint(N%)
 2110 VDU 28,X%,17,X%+10,4
 2120 PRINT num$(N%)
 2130 VDU 26
 2140 ENDPROC
 2150:
 2160 DEFPROCchk
 2170 IF G%=9 PROCsnow:ENDPROC
 2180 CLS
 2190 FOR num%=1 TO 90
 2200 IF chk%(num%) PRINT CHR$134 num%; ELSE PRINT CHR$129 num%;
 2210 IF num% MOD 10=0 PRINT
 2220 NEXT
 2230 IF I%>0 PROCdbl(las$+STR$(bag%(I%)),2,18)
 2240 flg%=TRUE
 2250 ENDPROC
 2260:
 2270 DEFPROCsnow
 2280 IF flg%=FALSE OR sno%=FALSE ENDPROC
 2290 CLS
 2300 IF I%>sno% PROCsgon:ENDPROC
 2310 FOR Y%=0 TO 5
 2320 N%=Y%+129
 2330 PROCdbl(CHR$(135+Y% MOD 2)+CHR$(N%)+sno$,5,Y%*3+2)
 2340 NEXT
 2350 sno%=0
 2360 PRINT esc$;
 2370 ENDPROC
 2380:
 2390 DEFPROCsgon
 2400 PROCdbl(CHR$134+sno$,6,8)
 2410 PROCdbl(CHR$134+"P A S S E D",8,11)
 2420 PRINT esc$;
 2430 ENDPROC
 2440:
 2450 DEFPROCupdt
 2460 IF sno%>1 PRINTTAB(5,6) CHR$129 "Old snowball _ ";sno%
 2470 IF sno%>1 a$=" New snowball _ " ELSE a$="Snowball number _ "
 2480 REPEAT
 2490 PRINTTAB(4,8) SPC30 TAB(4,8) CHR$131 a$;
 2500 INPUT"" sno%
 2510 IF sno%<15 OR sno%>90 PRINT'SPC5 CHR$134 "Don't be silly !"
 2520 UNTIL sno%>14 AND sno%<91
 2530 ENDPROC
 2540:
10000 REM  ****  zero
10010:
10020 DATA 32,224,252,255,255,255,255,252,176,32
10030 DATA 224,255,255,175,163,163,175,255,255,176
10040 DATA 254,255,165,32,32,32,32,170,255,253
10050 DATA 255,255,32,32,32,32,32,32,255,255
10060 DATA 255,255,32,32,32,32,32,32,255,255
10070 DATA 255,255,32,32,32,32,32,32,255,255
10080 DATA 255,255,32,32,32,32,32,32,255,255
10090 DATA 255,255,32,32,32,32,32,32,255,255
10100 DATA 255,255,32,32,32,32,32,32,255,255
10110 DATA 239,255,180,32,32,32,32,232,255,191
10120 DATA 162,255,255,252,240,240,252,255,255,161
10130 DATA 32,162,175,255,255,255,255,175,161,32
10140:
10150 REM  ****  one
10160:
10170 DATA 32,32,32,32,248,255,32,32,32,32
10180 DATA 32,32,32,254,255,255,32,32,32,32
10190 DATA 32,32,32,32,255,255,32,32,32,32
10200 DATA 32,32,32,32,255,255,32,32,32,32
10210 DATA 32,32,32,32,255,255,32,32,32,32
10220 DATA 32,32,32,32,255,255,32,32,32,32
10230 DATA 32,32,32,32,255,255,32,32,32,32
10240 DATA 32,32,32,32,255,255,32,32,32,32
10250 DATA 32,32,32,32,255,255,32,32,32,32
10260 DATA 32,32,32,32,255,255,32,32,32,32
10270 DATA 32,32,32,32,255,255,32,32,32,32
10280 DATA 32,32,32,32,255,255,32,32,32,32
10290:
10300 REM  ****  two
10310:
10320 DATA 32,224,252,255,255,255,255,252,176,32
10330 DATA 224,255,255,175,163,163,175,255,255,176
10340 DATA 254,255,165,32,32,32,32,170,255,253
10350 DATA 163,163,32,32,32,32,32,32,255,255
10360 DATA 32,32,32,32,32,32,32,250,255,191
10370 DATA 32,32,32,32,32,224,254,255,191,161
10380 DATA 32,32,32,32,248,255,255,167,32,32
10390 DATA 32,32,224,254,255,191,161,32,32,32
10400 DATA 32,232,255,255,167,32,32,32,32,32
10410 DATA 224,255,255,165,32,32,32,32,32,32
10420 DATA 254,255,247,240,240,240,240,240,240,240
10430 DATA 255,255,255,255,255,255,255,255,255,255
10440:
10450 REM  ****  three
10460:
10470 DATA 32,255,255,255,255,255,255,255,255,255
10480 DATA 32,163,163,163,163,163,227,255,255,167
10490 DATA 32,32,32,32,32,248,255,191,161,32
10500 DATA 32,32,32,224,254,255,167,32,32,32
10510 DATA 32,32,248,255,255,253,252,240,32,32
10520 DATA 32,254,255,255,175,175,255,255,253,32
10530 DATA 32,163,163,32,32,32,32,235,255,245
10540 DATA 32,32,32,32,32,32,32,32,255,255
10550 DATA 32,32,32,32,32,32,32,32,255,255
10560 DATA 32,32,32,32,32,32,32,232,255,191
10570 DATA 32,255,255,252,240,240,252,255,255,161
10580 DATA 32,162,175,255,255,255,255,175,161,32
10590:
10600 REM  ****  four
10610:
10620 DATA 32,32,32,32,32,250,255,181,32,32
10630 DATA 32,32,32,32,232,255,255,181,32,32
10640 DATA 32,32,32,224,255,255,255,181,32,32
10650 DATA 32,32,32,254,255,235,255,181,32,32
10660 DATA 32,32,250,255,165,234,255,181,32,32
10670 DATA 32,232,255,183,32,234,255,181,32,32
10680 DATA 224,255,191,32,32,234,255,181,32,32
10690 DATA 254,255,253,252,252,254,255,253,252,252
10700 DATA 175,175,175,175,175,239,255,191,175,175
10710 DATA 32,32,32,32,32,234,255,181,32,32
10720 DATA 32,32,32,32,32,234,255,181,32,32
10730 DATA 32,32,32,32,32,234,255,181,32,32
10740:
10750 REM  ****  five
10760:
10770 DATA 32,255,255,255,255,255,255,255,255,32
10780 DATA 32,255,255,163,163,163,163,163,163,32
10790 DATA 32,255,255,32,32,32,32,32,32,32
10800 DATA 32,255,255,32,32,32,32,32,32,32
10810 DATA 32,255,255,248,252,252,252,240,32,32
10820 DATA 32,255,255,255,175,175,255,255,253,176
10830 DATA 32,163,163,32,32,32,32,235,255,253
10840 DATA 32,32,32,32,32,32,32,32,255,255
10850 DATA 32,32,32,32,32,32,32,32,255,255
10860 DATA 32,32,32,32,32,32,32,232,255,191
10870 DATA 32,255,255,252,240,240,252,255,255,161
10880 DATA 32,162,175,255,255,255,255,175,161,32
10890:
10900 REM  ****  six
10910:
10920 DATA 32,224,252,255,255,255,255,252,176,32
10930 DATA 224,255,255,175,163,163,175,255,255,176
10940 DATA 254,255,165,32,32,32,32,170,255,253
10950 DATA 255,255,32,32,32,32,32,32,32,32
10960 DATA 255,255,32,32,32,32,32,32,32,32
10970 DATA 255,255,240,252,252,252,252,240,32,32
10980 DATA 255,255,255,255,175,175,255,255,253,32
10990 DATA 255,255,183,32,32,32,32,235,255,245
11000 DATA 255,255,32,32,32,32,32,32,255,255
11010 DATA 239,255,180,32,32,32,32,232,255,191
11020 DATA 162,255,255,252,240,240,252,255,255,161
11030 DATA 32,162,175,255,255,255,255,175,161,32
11040:
11050 REM  ****  seven
11060:
11070 DATA 255,255,255,255,255,255,255,255,255,255
11080 DATA 255,183,163,163,163,163,163,163,255,255
11090 DATA 32,32,32,32,32,32,224,254,255,167
11100 DATA 32,32,32,32,32,248,255,191,161,32
11110 DATA 32,32,32,32,232,255,183,32,32,32
11120 DATA 32,32,32,224,255,191,32,32,32,32
11130 DATA 32,32,32,254,255,161,32,32,32,32
11140 DATA 32,32,234,255,181,32,32,32,32,32
11150 DATA 32,32,255,255,32,32,32,32,32,32
11160 DATA 32,32,255,255,32,32,32,32,32,32
11170 DATA 32,32,255,255,32,32,32,32,32,32
11180 DATA 32,32,255,255,32,32,32,32,32,32
11190:
11200 REM  ****  eight
11210:
11220 DATA 32,224,252,255,255,255,255,252,176,32
11230 DATA 224,255,255,175,163,163,175,255,255,176
11240 DATA 254,255,165,32,32,32,32,170,255,253
11250 DATA 255,255,32,32,32,32,32,32,255,255
11260 DATA 239,255,245,32,32,32,32,250,255,191
11270 DATA 162,239,255,255,252,252,255,255,191,161
11280 DATA 224,254,255,255,175,175,255,255,253,176
11290 DATA 254,255,183,32,32,32,32,235,255,253
11300 DATA 255,255,32,32,32,32,32,32,255,255
11310 DATA 239,255,180,32,32,32,32,232,255,191
11320 DATA 162,255,255,252,240,240,252,255,255,161
11330 DATA 32,162,175,255,255,255,255,175,161,32
11340:
11350 REM  ****  nine
11360:
11370 DATA 32,224,252,255,255,255,255,252,176,32
11380 DATA 224,255,255,175,163,163,175,255,255,176
11390 DATA 254,255,165,32,32,32,32,170,255,253
11400 DATA 255,255,32,32,32,32,32,32,255,255
11410 DATA 239,255,245,32,32,32,32,250,255,255
11420 DATA 162,255,255,255,252,252,255,255,255,255
11430 DATA 32,162,175,255,255,255,255,175,255,255
11440 DATA 32,32,32,32,32,32,32,32,255,255
11450 DATA 32,32,32,32,32,32,32,32,255,255
11460 DATA 32,32,32,32,32,32,32,32,255,255
11470 DATA 32,32,32,32,32,32,32,32,255,255
11480 DATA 32,32,32,32,32,32,32,32,255,255
11490:
20000 DATA"   This program generates and displays"
20010 DATA bingo  numbers  with  every  key press
20020 DATA until all  ninety  numbers  have  been
20030 DATA displayed or  'ESCAPE'  is pressed.
20040 DATA,"   Pressing  'ESCAPE' at any time will"
20050 DATA start a new game.
20060 DATA,"   Press 'RETURN' during a run to show"
20070 DATA the checking table and the last number
20080 DATA called.  The next key press  continues
20090 DATA the game by displaying a new number.
20100 DATA"   Special numbers from 1 to 90 can be"
20110 DATA produced by pressing any red key  with
20120 DATA no effect on a running game.
20130 DATA,"   If snowball is 'ON'  a house can be"
20140 DATA"tested for SNOWBALL or SNOWBALL PASSED"
20150 DATA"by pressing 'TAB',  only when  showing"
20160 DATA "the checking table.  A valid  SNOWBALL"
20170 DATA will switch snowball off.
20180 DATA,"   Pressing 'BREAK' will clear out the"
20190 DATA computer and restart the program.


$ �  BINGO CALLER  by Terry Blunt
 �  updated 9 / 12 / 85
 �  Master 1 / 4 / 87
(:
2 � 7
< � � � 7:�
F. �dbl(�134+"B I N G O    C A L L E R",6,4)
P) �8,7) �130 "Written by Terry Blunt"
Z1 �dbl(�131+"Please wait,  I'm thinking.",5,9)
d:
n
 �init
x � 28,0,24,39,9,12
�6 � �ipt(�130+"Do you need instructions",3,0) �text
� �
�' sno%=�ipt(�133+"Snowball on ",8,0)
� � 28,5,23,34,3
� � � � 7:�
� flg%=�
� � sno% �updt
�) �dbl(�133+"Shaking the bag !!",4,10)
�
 �shuf
� �clear
�' �dbl(�131+"     READY      ",5,14)
�	 I%=0
�:
 �  ****  main loop
:
 �
" � �key �num � �chk
, � I%=90
6) �dbl(�131+"All numbers called",4,17)
@ � esc$;
J �
T � �
^:
� ��init
� *FX4,1
�  � num$(9),bag%(90),chk%(90)
 sno$="S N O W B A L L"
% las$=�131+"Last number called  "
3 esc$=�31+�2+�20+�130+"'ESCAPE' for a new game"
$	 @%=2
. � 23;8202;0;0;0;
8 *KEY 0 |!~|M
B *KEY 1 |!~|M
L *KEY 2 |!~|M
V *KEY 3 |!~|M
` *KEY 4 |!~|M
j *KEY 5 |!~|M
t *KEY 6 |!~|M
~ *KEY 7 |!~|M
� *KEY 8 |!~|M
� *KEY 9 |!~|M
� *KEY 10 OLD|M RUN|M
�:
� � N%=0 � 9
� � Y%=0 � 11
� num$(N%)=num$(N%)+�150
� � X%=0 � 9
�	 � D%
� num$(N%)=num$(N%)+�(D%)
� �,,
� � I%=1 � 90
 bag%(I%)=I%

 �
 �
:
( ��dbl(msg$,X%,Y%)
2 � B%=Y% � Y%+1
< �X%,B%) �141 msg$
F �
P �
Z:
d ݤipt(msg$,X%,Y%)
n *FX15,1
x �X%,Y%) msg$ " (Y/N) ? ";
� �
� G%=� � 95
� � G%=78 � G%=89
�	 � G%
� =G%=89
�:
� ��text
� � N%=1 � 2
� �
� � I%=0 � 11
�	 � d$
� � �130 d$
� �
' �'�131 �(8) "PRESS ANY LETTER KEY"
 �
 G%=� � 95
" � G%>64 � G%<91
, �
6 �
@:
J ��shuf
T
 N%=�(-�)
^ � N%=1 � 4
h � I%=1 � 90
r
 A%=�(90)
| B%=bag%(I%)
� bag%(I%)=bag%(A%)
� bag%(A%)=B%
� �,
� �
�:
� ��clear
� � num%=1 � 90
� chk%(num%)=0
� �
� �
�:
�
 ݤkey
� *FX15,1
 �
	 G%=�
 � G%>96 G%=G%-32
&+ � G%>64 � G%<91 � G%=9 � G%=&D � G%>96
0 =G%>&D
::
D
 ��num
N � G%>96 �spec:�
X �
b I%=I%+1
l4 � I%>1 �dbl(�131+�(I%)+"  numbers called",4,17)
v num%=bag%(I%):chk%(num%)=�
�	 �pos
� �
�:
� ��spec
� �
�2 �dbl(�131+"S P E C I A L   N U M B E R",0,17)
� num%=�(90)
�	 �pos
� �
�:
�
 ��pos
�- � num%<10 X%=-6 � X%=4:�print(num% � 10)
�
 X%=X%+20
 �print(num% � 10)
 � 28,5,23,34,3
 flg%=�
  �
*:
4 ��print(N%)
> � 28,X%,17,X%+10,4
H � num$(N%)
R	 � 26
\ �
f:
p
 ��chk
z � G%=9 �snow:�
� �
� � num%=1 � 90
�- � chk%(num%) � �134 num%; � � �129 num%;
� � num% � 10=0 �
� �
�' � I%>0 �dbl(las$+�(bag%(I%)),2,18)
� flg%=�
� �
�:
� ��snow
� � flg%=� � sno%=� �
� �
� � I%>sno% �sgon:�
	 � Y%=0 � 5
	 N%=Y%+129
	, �dbl(�(135+Y% � 2)+�(N%)+sno$,5,Y%*3+2)
	$ �
	. sno%=0
	8 � esc$;
	B �
	L:
	V ��sgon
	` �dbl(�134+sno$,6,8)
	j" �dbl(�134+"P A S S E D",8,11)
	t � esc$;
	~ �
	�:
	� ��updt
	�0 � sno%>1 �5,6) �129 "Old snowball _ ";sno%
	�= � sno%>1 a$=" New snowball _ " � a$="Snowball number _ "
	� �
	� �4,8) �30 �4,8) �131 a$;
	�
 �"" sno%
	�5 � sno%<15 � sno%>90 �'�5 �134 "Don't be silly !"
	� � sno%>14 � sno%<91
	� �
	�:
' �  ****  zero
':
'$, � 32,224,252,255,255,255,255,252,176,32
'.. � 224,255,255,175,163,163,175,255,255,176
'8* � 254,255,165,32,32,32,32,170,255,253
'B( � 255,255,32,32,32,32,32,32,255,255
'L( � 255,255,32,32,32,32,32,32,255,255
'V( � 255,255,32,32,32,32,32,32,255,255
'`( � 255,255,32,32,32,32,32,32,255,255
'j( � 255,255,32,32,32,32,32,32,255,255
't( � 255,255,32,32,32,32,32,32,255,255
'~* � 239,255,180,32,32,32,32,232,255,191
'�. � 162,255,255,252,240,240,252,255,255,161
'�, � 32,162,175,255,255,255,255,175,161,32
'�:
'� �  ****  one
'�:
'�& � 32,32,32,32,248,255,32,32,32,32
'�' � 32,32,32,254,255,255,32,32,32,32
'�& � 32,32,32,32,255,255,32,32,32,32
'�& � 32,32,32,32,255,255,32,32,32,32
'�& � 32,32,32,32,255,255,32,32,32,32
'�& � 32,32,32,32,255,255,32,32,32,32
'�& � 32,32,32,32,255,255,32,32,32,32
(& � 32,32,32,32,255,255,32,32,32,32
(
& � 32,32,32,32,255,255,32,32,32,32
(& � 32,32,32,32,255,255,32,32,32,32
(& � 32,32,32,32,255,255,32,32,32,32
((& � 32,32,32,32,255,255,32,32,32,32
(2:
(< �  ****  two
(F:
(P, � 32,224,252,255,255,255,255,252,176,32
(Z. � 224,255,255,175,163,163,175,255,255,176
(d* � 254,255,165,32,32,32,32,170,255,253
(n( � 163,163,32,32,32,32,32,32,255,255
(x' � 32,32,32,32,32,32,32,250,255,191
(�) � 32,32,32,32,32,224,254,255,191,161
(�( � 32,32,32,32,248,255,255,167,32,32
(�) � 32,32,224,254,255,191,161,32,32,32
(�( � 32,232,255,255,167,32,32,32,32,32
(�( � 224,255,255,165,32,32,32,32,32,32
(�. � 254,255,247,240,240,240,240,240,240,240
(�. � 255,255,255,255,255,255,255,255,255,255
(�:
(� �  ****  three
(�:
(�- � 32,255,255,255,255,255,255,255,255,255
(�- � 32,163,163,163,163,163,227,255,255,167
(�( � 32,32,32,32,32,248,255,191,161,32
)( � 32,32,32,224,254,255,167,32,32,32
)* � 32,32,248,255,255,253,252,240,32,32
), � 32,254,255,255,175,175,255,255,253,32
)") � 32,163,163,32,32,32,32,235,255,245
),& � 32,32,32,32,32,32,32,32,255,255
)6& � 32,32,32,32,32,32,32,32,255,255
)@' � 32,32,32,32,32,32,32,232,255,191
)J- � 32,255,255,252,240,240,252,255,255,161
)T, � 32,162,175,255,255,255,255,175,161,32
)^:
)h �  ****  four
)r:
)|' � 32,32,32,32,32,250,255,181,32,32
)�( � 32,32,32,32,232,255,255,181,32,32
)�) � 32,32,32,224,255,255,255,181,32,32
)�) � 32,32,32,254,255,235,255,181,32,32
)�* � 32,32,250,255,165,234,255,181,32,32
)�* � 32,232,255,183,32,234,255,181,32,32
)�* � 224,255,191,32,32,234,255,181,32,32
)�. � 254,255,253,252,252,254,255,253,252,252
)�. � 175,175,175,175,175,239,255,191,175,175
)�' � 32,32,32,32,32,234,255,181,32,32
)�' � 32,32,32,32,32,234,255,181,32,32
)�' � 32,32,32,32,32,234,255,181,32,32
)�:
)� �  ****  five
*:
*, � 32,255,255,255,255,255,255,255,255,32
*, � 32,255,255,163,163,163,163,163,163,32
*&& � 32,255,255,32,32,32,32,32,32,32
*0& � 32,255,255,32,32,32,32,32,32,32
*:+ � 32,255,255,248,252,252,252,240,32,32
*D- � 32,255,255,255,175,175,255,255,253,176
*N) � 32,163,163,32,32,32,32,235,255,253
*X& � 32,32,32,32,32,32,32,32,255,255
*b& � 32,32,32,32,32,32,32,32,255,255
*l' � 32,32,32,32,32,32,32,232,255,191
*v- � 32,255,255,252,240,240,252,255,255,161
*�, � 32,162,175,255,255,255,255,175,161,32
*�:
*� �  ****  six
*�:
*�, � 32,224,252,255,255,255,255,252,176,32
*�. � 224,255,255,175,163,163,175,255,255,176
*�* � 254,255,165,32,32,32,32,170,255,253
*�& � 255,255,32,32,32,32,32,32,32,32
*�& � 255,255,32,32,32,32,32,32,32,32
*�, � 255,255,240,252,252,252,252,240,32,32
*�- � 255,255,255,255,175,175,255,255,253,32
*�* � 255,255,183,32,32,32,32,235,255,245
*�( � 255,255,32,32,32,32,32,32,255,255
+* � 239,255,180,32,32,32,32,232,255,191
+. � 162,255,255,252,240,240,252,255,255,161
+, � 32,162,175,255,255,255,255,175,161,32
+ :
+* �  ****  seven
+4:
+>. � 255,255,255,255,255,255,255,255,255,255
+H. � 255,183,163,163,163,163,163,163,255,255
+R( � 32,32,32,32,32,32,224,254,255,167
+\( � 32,32,32,32,32,248,255,191,161,32
+f' � 32,32,32,32,232,255,183,32,32,32
+p' � 32,32,32,224,255,191,32,32,32,32
+z' � 32,32,32,254,255,161,32,32,32,32
+�' � 32,32,234,255,181,32,32,32,32,32
+�& � 32,32,255,255,32,32,32,32,32,32
+�& � 32,32,255,255,32,32,32,32,32,32
+�& � 32,32,255,255,32,32,32,32,32,32
+�& � 32,32,255,255,32,32,32,32,32,32
+�:
+� �  ****  eight
+�:
+�, � 32,224,252,255,255,255,255,252,176,32
+�. � 224,255,255,175,163,163,175,255,255,176
+�* � 254,255,165,32,32,32,32,170,255,253
+�( � 255,255,32,32,32,32,32,32,255,255
+�* � 239,255,245,32,32,32,32,250,255,191
,. � 162,239,255,255,252,252,255,255,191,161
,. � 224,254,255,255,175,175,255,255,253,176
,* � 254,255,183,32,32,32,32,235,255,253
,$( � 255,255,32,32,32,32,32,32,255,255
,.* � 239,255,180,32,32,32,32,232,255,191
,8. � 162,255,255,252,240,240,252,255,255,161
,B, � 32,162,175,255,255,255,255,175,161,32
,L:
,V �  ****  nine
,`:
,j, � 32,224,252,255,255,255,255,252,176,32
,t. � 224,255,255,175,163,163,175,255,255,176
,~* � 254,255,165,32,32,32,32,170,255,253
,�( � 255,255,32,32,32,32,32,32,255,255
,�* � 239,255,245,32,32,32,32,250,255,255
,�. � 162,255,255,255,252,252,255,255,255,255
,�- � 32,162,175,255,255,255,255,175,255,255
,�& � 32,32,32,32,32,32,32,32,255,255
,�& � 32,32,32,32,32,32,32,32,255,255
,�& � 32,32,32,32,32,32,32,32,255,255
,�& � 32,32,32,32,32,32,32,32,255,255
,�& � 32,32,32,32,32,32,32,32,255,255
,�:
N . �"   This program generates and displays"
N*- � bingo  numbers  with  every  key press
N4- � until all  ninety  numbers  have  been
N>* � displayed or  'ESCAPE'  is pressed.
NH/ �,"   Pressing  'ESCAPE' at any time will"
NR � start a new game.
N\/ �,"   Press 'RETURN' during a run to show"
Nf- � the checking table and the last number
Np- � called.  The next key press  continues
Nz+ � the game by displaying a new number.
N�. �"   Special numbers from 1 to 90 can be"
N�- � produced by pressing any red key  with
N�# � no effect on a running game.
N�/ �,"   If snowball is 'ON'  a house can be"
N�. �"tested for SNOWBALL or SNOWBALL PASSED"
N�. �"by pressing 'TAB',  only when  showing"
N�/ � "the checking table.  A valid  SNOWBALL"
N�  � will switch snowball off.
N�/ �,"   Pressing 'BREAK' will clear out the"
N�( � computer and restart the program.
�
00000000  0d 00 0a 24 20 f4 20 20  42 49 4e 47 4f 20 43 41  |...$ .  BINGO CA|
00000010  4c 4c 45 52 20 20 62 79  20 54 65 72 72 79 20 42  |LLER  by Terry B|
00000020  6c 75 6e 74 0d 00 14 1b  20 f4 20 20 75 70 64 61  |lunt.... .  upda|
00000030  74 65 64 20 39 20 2f 20  31 32 20 2f 20 38 35 0d  |ted 9 / 12 / 85.|
00000040  00 1e 19 20 f4 20 20 4d  61 73 74 65 72 20 31 20  |... .  Master 1 |
00000050  2f 20 34 20 2f 20 38 37  0d 00 28 05 3a 0d 00 32  |/ 4 / 87..(.:..2|
00000060  08 20 eb 20 37 0d 00 3c  0e 20 ee 20 85 20 ef 20  |. . 7..<. . . . |
00000070  37 3a f9 0d 00 46 2e 20  f2 64 62 6c 28 bd 31 33  |7:...F. .dbl(.13|
00000080  34 2b 22 42 20 49 20 4e  20 47 20 4f 20 20 20 20  |4+"B I N G O    |
00000090  43 20 41 20 4c 20 4c 20  45 20 52 22 2c 36 2c 34  |C A L L E R",6,4|
000000a0  29 0d 00 50 29 20 f1 8a  38 2c 37 29 20 bd 31 33  |)..P) ..8,7) .13|
000000b0  30 20 22 57 72 69 74 74  65 6e 20 62 79 20 54 65  |0 "Written by Te|
000000c0  72 72 79 20 42 6c 75 6e  74 22 0d 00 5a 31 20 f2  |rry Blunt"..Z1 .|
000000d0  64 62 6c 28 bd 31 33 31  2b 22 50 6c 65 61 73 65  |dbl(.131+"Please|
000000e0  20 77 61 69 74 2c 20 20  49 27 6d 20 74 68 69 6e  | wait,  I'm thin|
000000f0  6b 69 6e 67 2e 22 2c 35  2c 39 29 0d 00 64 05 3a  |king.",5,9)..d.:|
00000100  0d 00 6e 0a 20 f2 69 6e  69 74 0d 00 78 16 20 ef  |..n. .init..x. .|
00000110  20 32 38 2c 30 2c 32 34  2c 33 39 2c 39 2c 31 32  | 28,0,24,39,9,12|
00000120  0d 00 82 36 20 e7 20 a4  69 70 74 28 bd 31 33 30  |...6 . .ipt(.130|
00000130  2b 22 44 6f 20 79 6f 75  20 6e 65 65 64 20 69 6e  |+"Do you need in|
00000140  73 74 72 75 63 74 69 6f  6e 73 22 2c 33 2c 30 29  |structions",3,0)|
00000150  20 f2 74 65 78 74 0d 00  8c 06 20 db 0d 00 96 27  | .text.... ....'|
00000160  20 73 6e 6f 25 3d a4 69  70 74 28 bd 31 33 33 2b  | sno%=.ipt(.133+|
00000170  22 53 6e 6f 77 62 61 6c  6c 20 6f 6e 20 22 2c 38  |"Snowball on ",8|
00000180  2c 30 29 0d 00 a0 13 20  ef 20 32 38 2c 35 2c 32  |,0).... . 28,5,2|
00000190  33 2c 33 34 2c 33 0d 00  aa 0e 20 ee 20 85 20 ef  |3,34,3.... . . .|
000001a0  20 37 3a db 0d 00 b4 0b  20 66 6c 67 25 3d a3 0d  | 7:..... flg%=..|
000001b0  00 be 11 20 e7 20 73 6e  6f 25 20 f2 75 70 64 74  |... . sno% .updt|
000001c0  0d 00 c8 29 20 f2 64 62  6c 28 bd 31 33 33 2b 22  |...) .dbl(.133+"|
000001d0  53 68 61 6b 69 6e 67 20  74 68 65 20 62 61 67 20  |Shaking the bag |
000001e0  21 21 22 2c 34 2c 31 30  29 0d 00 d2 0a 20 f2 73  |!!",4,10).... .s|
000001f0  68 75 66 0d 00 dc 0b 20  f2 63 6c 65 61 72 0d 00  |huf.... .clear..|
00000200  e6 27 20 f2 64 62 6c 28  bd 31 33 31 2b 22 20 20  |.' .dbl(.131+"  |
00000210  20 20 20 52 45 41 44 59  20 20 20 20 20 20 22 2c  |   READY      ",|
00000220  35 2c 31 34 29 0d 00 f0  09 20 49 25 3d 30 0d 00  |5,14).... I%=0..|
00000230  fa 05 3a 0d 01 04 17 20  f4 20 20 2a 2a 2a 2a 20  |..:.... .  **** |
00000240  20 6d 61 69 6e 20 6c 6f  6f 70 0d 01 0e 05 3a 0d  | main loop....:.|
00000250  01 18 06 20 f5 0d 01 22  17 20 e7 20 a4 6b 65 79  |... ...". . .key|
00000260  20 f2 6e 75 6d 20 8b 20  f2 63 68 6b 0d 01 2c 0c  | .num . .chk..,.|
00000270  20 fd 20 49 25 3d 39 30  0d 01 36 29 20 f2 64 62  | . I%=90..6) .db|
00000280  6c 28 bd 31 33 31 2b 22  41 6c 6c 20 6e 75 6d 62  |l(.131+"All numb|
00000290  65 72 73 20 63 61 6c 6c  65 64 22 2c 34 2c 31 37  |ers called",4,17|
000002a0  29 0d 01 40 0c 20 f1 20  65 73 63 24 3b 0d 01 4a  |)..@. . esc$;..J|
000002b0  06 20 f5 0d 01 54 08 20  fd 20 a3 0d 01 5e 05 3a  |. ...T. . ...^.:|
000002c0  0d 03 e8 0b 20 dd f2 69  6e 69 74 0d 03 f2 0b 20  |.... ..init.... |
000002d0  2a 46 58 34 2c 31 0d 03  fc 20 20 de 20 6e 75 6d  |*FX4,1...  . num|
000002e0  24 28 39 29 2c 62 61 67  25 28 39 30 29 2c 63 68  |$(9),bag%(90),ch|
000002f0  6b 25 28 39 30 29 0d 04  06 1b 20 73 6e 6f 24 3d  |k%(90).... sno$=|
00000300  22 53 20 4e 20 4f 20 57  20 42 20 41 20 4c 20 4c  |"S N O W B A L L|
00000310  22 0d 04 10 25 20 6c 61  73 24 3d bd 31 33 31 2b  |"...% las$=.131+|
00000320  22 4c 61 73 74 20 6e 75  6d 62 65 72 20 63 61 6c  |"Last number cal|
00000330  6c 65 64 20 20 22 0d 04  1a 33 20 65 73 63 24 3d  |led  "...3 esc$=|
00000340  bd 33 31 2b bd 32 2b bd  32 30 2b bd 31 33 30 2b  |.31+.2+.20+.130+|
00000350  22 27 45 53 43 41 50 45  27 20 66 6f 72 20 61 20  |"'ESCAPE' for a |
00000360  6e 65 77 20 67 61 6d 65  22 0d 04 24 09 20 40 25  |new game"..$. @%|
00000370  3d 32 0d 04 2e 15 20 ef  20 32 33 3b 38 32 30 32  |=2.... . 23;8202|
00000380  3b 30 3b 30 3b 30 3b 0d  04 38 11 20 2a 4b 45 59  |;0;0;0;..8. *KEY|
00000390  20 30 20 7c 21 7e 7c 4d  0d 04 42 11 20 2a 4b 45  | 0 |!~|M..B. *KE|
000003a0  59 20 31 20 7c 21 7e 7c  4d 0d 04 4c 11 20 2a 4b  |Y 1 |!~|M..L. *K|
000003b0  45 59 20 32 20 7c 21 7e  7c 4d 0d 04 56 11 20 2a  |EY 2 |!~|M..V. *|
000003c0  4b 45 59 20 33 20 7c 21  7e 7c 4d 0d 04 60 11 20  |KEY 3 |!~|M..`. |
000003d0  2a 4b 45 59 20 34 20 7c  21 7e 7c 4d 0d 04 6a 11  |*KEY 4 |!~|M..j.|
000003e0  20 2a 4b 45 59 20 35 20  7c 21 7e 7c 4d 0d 04 74  | *KEY 5 |!~|M..t|
000003f0  11 20 2a 4b 45 59 20 36  20 7c 21 7e 7c 4d 0d 04  |. *KEY 6 |!~|M..|
00000400  7e 11 20 2a 4b 45 59 20  37 20 7c 21 7e 7c 4d 0d  |~. *KEY 7 |!~|M.|
00000410  04 88 11 20 2a 4b 45 59  20 38 20 7c 21 7e 7c 4d  |... *KEY 8 |!~|M|
00000420  0d 04 92 11 20 2a 4b 45  59 20 39 20 7c 21 7e 7c  |.... *KEY 9 |!~||
00000430  4d 0d 04 9c 18 20 2a 4b  45 59 20 31 30 20 4f 4c  |M.... *KEY 10 OL|
00000440  44 7c 4d 20 52 55 4e 7c  4d 0d 04 a6 05 3a 0d 04  |D|M RUN|M....:..|
00000450  b0 0f 20 e3 20 4e 25 3d  30 20 b8 20 39 0d 04 ba  |.. . N%=0 . 9...|
00000460  10 20 e3 20 59 25 3d 30  20 b8 20 31 31 0d 04 c4  |. . Y%=0 . 11...|
00000470  1b 20 6e 75 6d 24 28 4e  25 29 3d 6e 75 6d 24 28  |. num$(N%)=num$(|
00000480  4e 25 29 2b bd 31 35 30  0d 04 ce 0f 20 e3 20 58  |N%)+.150.... . X|
00000490  25 3d 30 20 b8 20 39 0d  04 d8 09 20 f3 20 44 25  |%=0 . 9.... . D%|
000004a0  0d 04 e2 1c 20 6e 75 6d  24 28 4e 25 29 3d 6e 75  |.... num$(N%)=nu|
000004b0  6d 24 28 4e 25 29 2b bd  28 44 25 29 0d 04 ec 08  |m$(N%)+.(D%)....|
000004c0  20 ed 2c 2c 0d 04 f6 10  20 e3 20 49 25 3d 31 20  | .,,.... . I%=1 |
000004d0  b8 20 39 30 0d 05 00 10  20 62 61 67 25 28 49 25  |. 90.... bag%(I%|
000004e0  29 3d 49 25 0d 05 0a 06  20 ed 0d 05 14 06 20 e1  |)=I%.... ..... .|
000004f0  0d 05 1e 05 3a 0d 05 28  16 20 dd f2 64 62 6c 28  |....:..(. ..dbl(|
00000500  6d 73 67 24 2c 58 25 2c  59 25 29 0d 05 32 13 20  |msg$,X%,Y%)..2. |
00000510  e3 20 42 25 3d 59 25 20  b8 20 59 25 2b 31 0d 05  |. B%=Y% . Y%+1..|
00000520  3c 17 20 f1 8a 58 25 2c  42 25 29 20 bd 31 34 31  |<. ..X%,B%) .141|
00000530  20 6d 73 67 24 0d 05 46  06 20 ed 0d 05 50 06 20  | msg$..F. ...P. |
00000540  e1 0d 05 5a 05 3a 0d 05  64 16 20 dd a4 69 70 74  |...Z.:..d. ..ipt|
00000550  28 6d 73 67 24 2c 58 25  2c 59 25 29 0d 05 6e 0c  |(msg$,X%,Y%)..n.|
00000560  20 2a 46 58 31 35 2c 31  0d 05 78 1f 20 f1 8a 58  | *FX15,1..x. ..X|
00000570  25 2c 59 25 29 20 6d 73  67 24 20 22 20 28 59 2f  |%,Y%) msg$ " (Y/|
00000580  4e 29 20 3f 20 22 3b 0d  05 82 06 20 f5 0d 05 8c  |N) ? ";.... ....|
00000590  0e 20 47 25 3d a5 20 80  20 39 35 0d 05 96 14 20  |. G%=. . 95.... |
000005a0  fd 20 47 25 3d 37 38 20  84 20 47 25 3d 38 39 0d  |. G%=78 . G%=89.|
000005b0  05 a0 09 20 ef 20 47 25  0d 05 aa 0b 20 3d 47 25  |... . G%.... =G%|
000005c0  3d 38 39 0d 05 b4 05 3a  0d 05 be 0b 20 dd f2 74  |=89....:.... ..t|
000005d0  65 78 74 0d 05 c8 0f 20  e3 20 4e 25 3d 31 20 b8  |ext.... . N%=1 .|
000005e0  20 32 0d 05 d2 06 20 db  0d 05 dc 10 20 e3 20 49  | 2.... ..... . I|
000005f0  25 3d 30 20 b8 20 31 31  0d 05 e6 09 20 f3 20 64  |%=0 . 11.... . d|
00000600  24 0d 05 f0 0e 20 f1 20  bd 31 33 30 20 64 24 0d  |$.... . .130 d$.|
00000610  05 fa 06 20 ed 0d 06 04  27 20 f1 27 bd 31 33 31  |... ....' .'.131|
00000620  20 89 28 38 29 20 22 50  52 45 53 53 20 41 4e 59  | .(8) "PRESS ANY|
00000630  20 4c 45 54 54 45 52 20  4b 45 59 22 0d 06 0e 06  | LETTER KEY"....|
00000640  20 f5 0d 06 18 0e 20 47  25 3d a5 20 80 20 39 35  | ..... G%=. . 95|
00000650  0d 06 22 14 20 fd 20 47  25 3e 36 34 20 80 20 47  |..". . G%>64 . G|
00000660  25 3c 39 31 0d 06 2c 06  20 ed 0d 06 36 06 20 e1  |%<91..,. ...6. .|
00000670  0d 06 40 05 3a 0d 06 4a  0b 20 dd f2 73 68 75 66  |..@.:..J. ..shuf|
00000680  0d 06 54 0d 20 4e 25 3d  b3 28 2d 91 29 0d 06 5e  |..T. N%=.(-.)..^|
00000690  0f 20 e3 20 4e 25 3d 31  20 b8 20 34 0d 06 68 10  |. . N%=1 . 4..h.|
000006a0  20 e3 20 49 25 3d 31 20  b8 20 39 30 0d 06 72 0d  | . I%=1 . 90..r.|
000006b0  20 41 25 3d b3 28 39 30  29 0d 06 7c 10 20 42 25  | A%=.(90)..|. B%|
000006c0  3d 62 61 67 25 28 49 25  29 0d 06 86 16 20 62 61  |=bag%(I%).... ba|
000006d0  67 25 28 49 25 29 3d 62  61 67 25 28 41 25 29 0d  |g%(I%)=bag%(A%).|
000006e0  06 90 10 20 62 61 67 25  28 41 25 29 3d 42 25 0d  |... bag%(A%)=B%.|
000006f0  06 9a 07 20 ed 2c 0d 06  a4 06 20 e1 0d 06 ae 05  |... .,.... .....|
00000700  3a 0d 06 b8 0c 20 dd f2  63 6c 65 61 72 0d 06 c2  |:.... ..clear...|
00000710  12 20 e3 20 6e 75 6d 25  3d 31 20 b8 20 39 30 0d  |. . num%=1 . 90.|
00000720  06 cc 11 20 63 68 6b 25  28 6e 75 6d 25 29 3d 30  |... chk%(num%)=0|
00000730  0d 06 d6 06 20 ed 0d 06  e0 06 20 e1 0d 06 ea 05  |.... ..... .....|
00000740  3a 0d 06 f4 0a 20 dd a4  6b 65 79 0d 06 fe 0c 20  |:.... ..key.... |
00000750  2a 46 58 31 35 2c 31 0d  07 08 06 20 f5 0d 07 12  |*FX15,1.... ....|
00000760  09 20 47 25 3d a5 0d 07  1c 15 20 e7 20 47 25 3e  |. G%=..... . G%>|
00000770  39 36 20 47 25 3d 47 25  2d 33 32 0d 07 26 2b 20  |96 G%=G%-32..&+ |
00000780  fd 20 47 25 3e 36 34 20  80 20 47 25 3c 39 31 20  |. G%>64 . G%<91 |
00000790  84 20 47 25 3d 39 20 84  20 47 25 3d 26 44 20 84  |. G%=9 . G%=&D .|
000007a0  20 47 25 3e 39 36 0d 07  30 0b 20 3d 47 25 3e 26  | G%>96..0. =G%>&|
000007b0  44 0d 07 3a 05 3a 0d 07  44 0a 20 dd f2 6e 75 6d  |D..:.:..D. ..num|
000007c0  0d 07 4e 14 20 e7 20 47  25 3e 39 36 20 f2 73 70  |..N. . G%>96 .sp|
000007d0  65 63 3a e1 0d 07 58 06  20 db 0d 07 62 0c 20 49  |ec:...X. ...b. I|
000007e0  25 3d 49 25 2b 31 0d 07  6c 34 20 e7 20 49 25 3e  |%=I%+1..l4 . I%>|
000007f0  31 20 f2 64 62 6c 28 bd  31 33 31 2b c3 28 49 25  |1 .dbl(.131+.(I%|
00000800  29 2b 22 20 20 6e 75 6d  62 65 72 73 20 63 61 6c  |)+"  numbers cal|
00000810  6c 65 64 22 2c 34 2c 31  37 29 0d 07 76 1f 20 6e  |led",4,17)..v. n|
00000820  75 6d 25 3d 62 61 67 25  28 49 25 29 3a 63 68 6b  |um%=bag%(I%):chk|
00000830  25 28 6e 75 6d 25 29 3d  b9 0d 07 80 09 20 f2 70  |%(num%)=..... .p|
00000840  6f 73 0d 07 8a 06 20 e1  0d 07 94 05 3a 0d 07 9e  |os.... .....:...|
00000850  0b 20 dd f2 73 70 65 63  0d 07 a8 06 20 db 0d 07  |. ..spec.... ...|
00000860  b2 32 20 f2 64 62 6c 28  bd 31 33 31 2b 22 53 20  |.2 .dbl(.131+"S |
00000870  50 20 45 20 43 20 49 20  41 20 4c 20 20 20 4e 20  |P E C I A L   N |
00000880  55 20 4d 20 42 20 45 20  52 22 2c 30 2c 31 37 29  |U M B E R",0,17)|
00000890  0d 07 bc 0f 20 6e 75 6d  25 3d b3 28 39 30 29 0d  |.... num%=.(90).|
000008a0  07 c6 09 20 f2 70 6f 73  0d 07 d0 06 20 e1 0d 07  |... .pos.... ...|
000008b0  da 05 3a 0d 07 e4 0a 20  dd f2 70 6f 73 0d 07 ee  |..:.... ..pos...|
000008c0  2d 20 e7 20 6e 75 6d 25  3c 31 30 20 58 25 3d 2d  |- . num%<10 X%=-|
000008d0  36 20 8b 20 58 25 3d 34  3a f2 70 72 69 6e 74 28  |6 . X%=4:.print(|
000008e0  6e 75 6d 25 20 81 20 31  30 29 0d 07 f8 0d 20 58  |num% . 10).... X|
000008f0  25 3d 58 25 2b 32 30 0d  08 02 16 20 f2 70 72 69  |%=X%+20.... .pri|
00000900  6e 74 28 6e 75 6d 25 20  83 20 31 30 29 0d 08 0c  |nt(num% . 10)...|
00000910  13 20 ef 20 32 38 2c 35  2c 32 33 2c 33 34 2c 33  |. . 28,5,23,34,3|
00000920  0d 08 16 0b 20 66 6c 67  25 3d a3 0d 08 20 06 20  |.... flg%=... . |
00000930  e1 0d 08 2a 05 3a 0d 08  34 10 20 dd f2 70 72 69  |...*.:..4. ..pri|
00000940  6e 74 28 4e 25 29 0d 08  3e 17 20 ef 20 32 38 2c  |nt(N%)..>. . 28,|
00000950  58 25 2c 31 37 2c 58 25  2b 31 30 2c 34 0d 08 48  |X%,17,X%+10,4..H|
00000960  0f 20 f1 20 6e 75 6d 24  28 4e 25 29 0d 08 52 09  |. . num$(N%)..R.|
00000970  20 ef 20 32 36 0d 08 5c  06 20 e1 0d 08 66 05 3a  | . 26..\. ...f.:|
00000980  0d 08 70 0a 20 dd f2 63  68 6b 0d 08 7a 13 20 e7  |..p. ..chk..z. .|
00000990  20 47 25 3d 39 20 f2 73  6e 6f 77 3a e1 0d 08 84  | G%=9 .snow:....|
000009a0  06 20 db 0d 08 8e 12 20  e3 20 6e 75 6d 25 3d 31  |. ..... . num%=1|
000009b0  20 b8 20 39 30 0d 08 98  2d 20 e7 20 63 68 6b 25  | . 90...- . chk%|
000009c0  28 6e 75 6d 25 29 20 f1  20 bd 31 33 34 20 6e 75  |(num%) . .134 nu|
000009d0  6d 25 3b 20 8b 20 f1 20  bd 31 32 39 20 6e 75 6d  |m%; . . .129 num|
000009e0  25 3b 0d 08 a2 14 20 e7  20 6e 75 6d 25 20 83 20  |%;.... . num% . |
000009f0  31 30 3d 30 20 f1 0d 08  ac 06 20 ed 0d 08 b6 27  |10=0 ..... ....'|
00000a00  20 e7 20 49 25 3e 30 20  f2 64 62 6c 28 6c 61 73  | . I%>0 .dbl(las|
00000a10  24 2b c3 28 62 61 67 25  28 49 25 29 29 2c 32 2c  |$+.(bag%(I%)),2,|
00000a20  31 38 29 0d 08 c0 0b 20  66 6c 67 25 3d b9 0d 08  |18).... flg%=...|
00000a30  ca 06 20 e1 0d 08 d4 05  3a 0d 08 de 0b 20 dd f2  |.. .....:.... ..|
00000a40  73 6e 6f 77 0d 08 e8 18  20 e7 20 66 6c 67 25 3d  |snow.... . flg%=|
00000a50  a3 20 84 20 73 6e 6f 25  3d a3 20 e1 0d 08 f2 06  |. . sno%=. .....|
00000a60  20 db 0d 08 fc 16 20 e7  20 49 25 3e 73 6e 6f 25  | ..... . I%>sno%|
00000a70  20 f2 73 67 6f 6e 3a e1  0d 09 06 0f 20 e3 20 59  | .sgon:..... . Y|
00000a80  25 3d 30 20 b8 20 35 0d  09 10 0e 20 4e 25 3d 59  |%=0 . 5.... N%=Y|
00000a90  25 2b 31 32 39 0d 09 1a  2c 20 f2 64 62 6c 28 bd  |%+129..., .dbl(.|
00000aa0  28 31 33 35 2b 59 25 20  83 20 32 29 2b bd 28 4e  |(135+Y% . 2)+.(N|
00000ab0  25 29 2b 73 6e 6f 24 2c  35 2c 59 25 2a 33 2b 32  |%)+sno$,5,Y%*3+2|
00000ac0  29 0d 09 24 06 20 ed 0d  09 2e 0b 20 73 6e 6f 25  |)..$. ..... sno%|
00000ad0  3d 30 0d 09 38 0c 20 f1  20 65 73 63 24 3b 0d 09  |=0..8. . esc$;..|
00000ae0  42 06 20 e1 0d 09 4c 05  3a 0d 09 56 0b 20 dd f2  |B. ...L.:..V. ..|
00000af0  73 67 6f 6e 0d 09 60 18  20 f2 64 62 6c 28 bd 31  |sgon..`. .dbl(.1|
00000b00  33 34 2b 73 6e 6f 24 2c  36 2c 38 29 0d 09 6a 22  |34+sno$,6,8)..j"|
00000b10  20 f2 64 62 6c 28 bd 31  33 34 2b 22 50 20 41 20  | .dbl(.134+"P A |
00000b20  53 20 53 20 45 20 44 22  2c 38 2c 31 31 29 0d 09  |S S E D",8,11)..|
00000b30  74 0c 20 f1 20 65 73 63  24 3b 0d 09 7e 06 20 e1  |t. . esc$;..~. .|
00000b40  0d 09 88 05 3a 0d 09 92  0b 20 dd f2 75 70 64 74  |....:.... ..updt|
00000b50  0d 09 9c 30 20 e7 20 73  6e 6f 25 3e 31 20 f1 8a  |...0 . sno%>1 ..|
00000b60  35 2c 36 29 20 bd 31 32  39 20 22 4f 6c 64 20 73  |5,6) .129 "Old s|
00000b70  6e 6f 77 62 61 6c 6c 20  5f 20 22 3b 73 6e 6f 25  |nowball _ ";sno%|
00000b80  0d 09 a6 3d 20 e7 20 73  6e 6f 25 3e 31 20 61 24  |...= . sno%>1 a$|
00000b90  3d 22 20 4e 65 77 20 73  6e 6f 77 62 61 6c 6c 20  |=" New snowball |
00000ba0  5f 20 22 20 8b 20 61 24  3d 22 53 6e 6f 77 62 61  |_ " . a$="Snowba|
00000bb0  6c 6c 20 6e 75 6d 62 65  72 20 5f 20 22 0d 09 b0  |ll number _ "...|
00000bc0  06 20 f5 0d 09 ba 1e 20  f1 8a 34 2c 38 29 20 89  |. ..... ..4,8) .|
00000bd0  33 30 20 8a 34 2c 38 29  20 bd 31 33 31 20 61 24  |30 .4,8) .131 a$|
00000be0  3b 0d 09 c4 0d 20 e8 22  22 20 73 6e 6f 25 0d 09  |;.... ."" sno%..|
00000bf0  ce 35 20 e7 20 73 6e 6f  25 3c 31 35 20 84 20 73  |.5 . sno%<15 . s|
00000c00  6e 6f 25 3e 39 30 20 f1  27 89 35 20 bd 31 33 34  |no%>90 .'.5 .134|
00000c10  20 22 44 6f 6e 27 74 20  62 65 20 73 69 6c 6c 79  | "Don't be silly|
00000c20  20 21 22 0d 09 d8 18 20  fd 20 73 6e 6f 25 3e 31  | !".... . sno%>1|
00000c30  34 20 80 20 73 6e 6f 25  3c 39 31 0d 09 e2 06 20  |4 . sno%<91.... |
00000c40  e1 0d 09 ec 05 3a 0d 27  10 12 20 f4 20 20 2a 2a  |.....:.'.. .  **|
00000c50  2a 2a 20 20 7a 65 72 6f  0d 27 1a 05 3a 0d 27 24  |**  zero.'..:.'$|
00000c60  2c 20 dc 20 33 32 2c 32  32 34 2c 32 35 32 2c 32  |, . 32,224,252,2|
00000c70  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000c80  35 32 2c 31 37 36 2c 33  32 0d 27 2e 2e 20 dc 20  |52,176,32.'.. . |
00000c90  32 32 34 2c 32 35 35 2c  32 35 35 2c 31 37 35 2c  |224,255,255,175,|
00000ca0  31 36 33 2c 31 36 33 2c  31 37 35 2c 32 35 35 2c  |163,163,175,255,|
00000cb0  32 35 35 2c 31 37 36 0d  27 38 2a 20 dc 20 32 35  |255,176.'8* . 25|
00000cc0  34 2c 32 35 35 2c 31 36  35 2c 33 32 2c 33 32 2c  |4,255,165,32,32,|
00000cd0  33 32 2c 33 32 2c 31 37  30 2c 32 35 35 2c 32 35  |32,32,170,255,25|
00000ce0  33 0d 27 42 28 20 dc 20  32 35 35 2c 32 35 35 2c  |3.'B( . 255,255,|
00000cf0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
00000d00  32 2c 32 35 35 2c 32 35  35 0d 27 4c 28 20 dc 20  |2,255,255.'L( . |
00000d10  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00000d20  2c 33 32 2c 33 32 2c 33  32 2c 32 35 35 2c 32 35  |,32,32,32,255,25|
00000d30  35 0d 27 56 28 20 dc 20  32 35 35 2c 32 35 35 2c  |5.'V( . 255,255,|
00000d40  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
00000d50  32 2c 32 35 35 2c 32 35  35 0d 27 60 28 20 dc 20  |2,255,255.'`( . |
00000d60  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00000d70  2c 33 32 2c 33 32 2c 33  32 2c 32 35 35 2c 32 35  |,32,32,32,255,25|
00000d80  35 0d 27 6a 28 20 dc 20  32 35 35 2c 32 35 35 2c  |5.'j( . 255,255,|
00000d90  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
00000da0  32 2c 32 35 35 2c 32 35  35 0d 27 74 28 20 dc 20  |2,255,255.'t( . |
00000db0  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00000dc0  2c 33 32 2c 33 32 2c 33  32 2c 32 35 35 2c 32 35  |,32,32,32,255,25|
00000dd0  35 0d 27 7e 2a 20 dc 20  32 33 39 2c 32 35 35 2c  |5.'~* . 239,255,|
00000de0  31 38 30 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |180,32,32,32,32,|
00000df0  32 33 32 2c 32 35 35 2c  31 39 31 0d 27 88 2e 20  |232,255,191.'.. |
00000e00  dc 20 31 36 32 2c 32 35  35 2c 32 35 35 2c 32 35  |. 162,255,255,25|
00000e10  32 2c 32 34 30 2c 32 34  30 2c 32 35 32 2c 32 35  |2,240,240,252,25|
00000e20  35 2c 32 35 35 2c 31 36  31 0d 27 92 2c 20 dc 20  |5,255,161.'., . |
00000e30  33 32 2c 31 36 32 2c 31  37 35 2c 32 35 35 2c 32  |32,162,175,255,2|
00000e40  35 35 2c 32 35 35 2c 32  35 35 2c 31 37 35 2c 31  |55,255,255,175,1|
00000e50  36 31 2c 33 32 0d 27 9c  05 3a 0d 27 a6 11 20 f4  |61,32.'..:.'.. .|
00000e60  20 20 2a 2a 2a 2a 20 20  6f 6e 65 0d 27 b0 05 3a  |  ****  one.'..:|
00000e70  0d 27 ba 26 20 dc 20 33  32 2c 33 32 2c 33 32 2c  |.'.& . 32,32,32,|
00000e80  33 32 2c 32 34 38 2c 32  35 35 2c 33 32 2c 33 32  |32,248,255,32,32|
00000e90  2c 33 32 2c 33 32 0d 27  c4 27 20 dc 20 33 32 2c  |,32,32.'.' . 32,|
00000ea0  33 32 2c 33 32 2c 32 35  34 2c 32 35 35 2c 32 35  |32,32,254,255,25|
00000eb0  35 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 27 ce  |5,32,32,32,32.'.|
00000ec0  26 20 dc 20 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |& . 32,32,32,32,|
00000ed0  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00000ee0  2c 33 32 0d 27 d8 26 20  dc 20 33 32 2c 33 32 2c  |,32.'.& . 32,32,|
00000ef0  33 32 2c 33 32 2c 32 35  35 2c 32 35 35 2c 33 32  |32,32,255,255,32|
00000f00  2c 33 32 2c 33 32 2c 33  32 0d 27 e2 26 20 dc 20  |,32,32,32.'.& . |
00000f10  33 32 2c 33 32 2c 33 32  2c 33 32 2c 32 35 35 2c  |32,32,32,32,255,|
00000f20  32 35 35 2c 33 32 2c 33  32 2c 33 32 2c 33 32 0d  |255,32,32,32,32.|
00000f30  27 ec 26 20 dc 20 33 32  2c 33 32 2c 33 32 2c 33  |'.& . 32,32,32,3|
00000f40  32 2c 32 35 35 2c 32 35  35 2c 33 32 2c 33 32 2c  |2,255,255,32,32,|
00000f50  33 32 2c 33 32 0d 27 f6  26 20 dc 20 33 32 2c 33  |32,32.'.& . 32,3|
00000f60  32 2c 33 32 2c 33 32 2c  32 35 35 2c 32 35 35 2c  |2,32,32,255,255,|
00000f70  33 32 2c 33 32 2c 33 32  2c 33 32 0d 28 00 26 20  |32,32,32,32.(.& |
00000f80  dc 20 33 32 2c 33 32 2c  33 32 2c 33 32 2c 32 35  |. 32,32,32,32,25|
00000f90  35 2c 32 35 35 2c 33 32  2c 33 32 2c 33 32 2c 33  |5,255,32,32,32,3|
00000fa0  32 0d 28 0a 26 20 dc 20  33 32 2c 33 32 2c 33 32  |2.(.& . 32,32,32|
00000fb0  2c 33 32 2c 32 35 35 2c  32 35 35 2c 33 32 2c 33  |,32,255,255,32,3|
00000fc0  32 2c 33 32 2c 33 32 0d  28 14 26 20 dc 20 33 32  |2,32,32.(.& . 32|
00000fd0  2c 33 32 2c 33 32 2c 33  32 2c 32 35 35 2c 32 35  |,32,32,32,255,25|
00000fe0  35 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 28 1e  |5,32,32,32,32.(.|
00000ff0  26 20 dc 20 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |& . 32,32,32,32,|
00001000  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00001010  2c 33 32 0d 28 28 26 20  dc 20 33 32 2c 33 32 2c  |,32.((& . 32,32,|
00001020  33 32 2c 33 32 2c 32 35  35 2c 32 35 35 2c 33 32  |32,32,255,255,32|
00001030  2c 33 32 2c 33 32 2c 33  32 0d 28 32 05 3a 0d 28  |,32,32,32.(2.:.(|
00001040  3c 11 20 f4 20 20 2a 2a  2a 2a 20 20 74 77 6f 0d  |<. .  ****  two.|
00001050  28 46 05 3a 0d 28 50 2c  20 dc 20 33 32 2c 32 32  |(F.:.(P, . 32,22|
00001060  34 2c 32 35 32 2c 32 35  35 2c 32 35 35 2c 32 35  |4,252,255,255,25|
00001070  35 2c 32 35 35 2c 32 35  32 2c 31 37 36 2c 33 32  |5,255,252,176,32|
00001080  0d 28 5a 2e 20 dc 20 32  32 34 2c 32 35 35 2c 32  |.(Z. . 224,255,2|
00001090  35 35 2c 31 37 35 2c 31  36 33 2c 31 36 33 2c 31  |55,175,163,163,1|
000010a0  37 35 2c 32 35 35 2c 32  35 35 2c 31 37 36 0d 28  |75,255,255,176.(|
000010b0  64 2a 20 dc 20 32 35 34  2c 32 35 35 2c 31 36 35  |d* . 254,255,165|
000010c0  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 31 37 30  |,32,32,32,32,170|
000010d0  2c 32 35 35 2c 32 35 33  0d 28 6e 28 20 dc 20 31  |,255,253.(n( . 1|
000010e0  36 33 2c 31 36 33 2c 33  32 2c 33 32 2c 33 32 2c  |63,163,32,32,32,|
000010f0  33 32 2c 33 32 2c 33 32  2c 32 35 35 2c 32 35 35  |32,32,32,255,255|
00001100  0d 28 78 27 20 dc 20 33  32 2c 33 32 2c 33 32 2c  |.(x' . 32,32,32,|
00001110  33 32 2c 33 32 2c 33 32  2c 33 32 2c 32 35 30 2c  |32,32,32,32,250,|
00001120  32 35 35 2c 31 39 31 0d  28 82 29 20 dc 20 33 32  |255,191.(.) . 32|
00001130  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 32 32 34  |,32,32,32,32,224|
00001140  2c 32 35 34 2c 32 35 35  2c 31 39 31 2c 31 36 31  |,254,255,191,161|
00001150  0d 28 8c 28 20 dc 20 33  32 2c 33 32 2c 33 32 2c  |.(.( . 32,32,32,|
00001160  33 32 2c 32 34 38 2c 32  35 35 2c 32 35 35 2c 31  |32,248,255,255,1|
00001170  36 37 2c 33 32 2c 33 32  0d 28 96 29 20 dc 20 33  |67,32,32.(.) . 3|
00001180  32 2c 33 32 2c 32 32 34  2c 32 35 34 2c 32 35 35  |2,32,224,254,255|
00001190  2c 31 39 31 2c 31 36 31  2c 33 32 2c 33 32 2c 33  |,191,161,32,32,3|
000011a0  32 0d 28 a0 28 20 dc 20  33 32 2c 32 33 32 2c 32  |2.(.( . 32,232,2|
000011b0  35 35 2c 32 35 35 2c 31  36 37 2c 33 32 2c 33 32  |55,255,167,32,32|
000011c0  2c 33 32 2c 33 32 2c 33  32 0d 28 aa 28 20 dc 20  |,32,32,32.(.( . |
000011d0  32 32 34 2c 32 35 35 2c  32 35 35 2c 31 36 35 2c  |224,255,255,165,|
000011e0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
000011f0  32 0d 28 b4 2e 20 dc 20  32 35 34 2c 32 35 35 2c  |2.(.. . 254,255,|
00001200  32 34 37 2c 32 34 30 2c  32 34 30 2c 32 34 30 2c  |247,240,240,240,|
00001210  32 34 30 2c 32 34 30 2c  32 34 30 2c 32 34 30 0d  |240,240,240,240.|
00001220  28 be 2e 20 dc 20 32 35  35 2c 32 35 35 2c 32 35  |(.. . 255,255,25|
00001230  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00001240  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 28 c8  |5,255,255,255.(.|
00001250  05 3a 0d 28 d2 13 20 f4  20 20 2a 2a 2a 2a 20 20  |.:.(.. .  ****  |
00001260  74 68 72 65 65 0d 28 dc  05 3a 0d 28 e6 2d 20 dc  |three.(..:.(.- .|
00001270  20 33 32 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  | 32,255,255,255,|
00001280  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00001290  32 35 35 2c 32 35 35 0d  28 f0 2d 20 dc 20 33 32  |255,255.(.- . 32|
000012a0  2c 31 36 33 2c 31 36 33  2c 31 36 33 2c 31 36 33  |,163,163,163,163|
000012b0  2c 31 36 33 2c 32 32 37  2c 32 35 35 2c 32 35 35  |,163,227,255,255|
000012c0  2c 31 36 37 0d 28 fa 28  20 dc 20 33 32 2c 33 32  |,167.(.( . 32,32|
000012d0  2c 33 32 2c 33 32 2c 33  32 2c 32 34 38 2c 32 35  |,32,32,32,248,25|
000012e0  35 2c 31 39 31 2c 31 36  31 2c 33 32 0d 29 04 28  |5,191,161,32.).(|
000012f0  20 dc 20 33 32 2c 33 32  2c 33 32 2c 32 32 34 2c  | . 32,32,32,224,|
00001300  32 35 34 2c 32 35 35 2c  31 36 37 2c 33 32 2c 33  |254,255,167,32,3|
00001310  32 2c 33 32 0d 29 0e 2a  20 dc 20 33 32 2c 33 32  |2,32.).* . 32,32|
00001320  2c 32 34 38 2c 32 35 35  2c 32 35 35 2c 32 35 33  |,248,255,255,253|
00001330  2c 32 35 32 2c 32 34 30  2c 33 32 2c 33 32 0d 29  |,252,240,32,32.)|
00001340  18 2c 20 dc 20 33 32 2c  32 35 34 2c 32 35 35 2c  |., . 32,254,255,|
00001350  32 35 35 2c 31 37 35 2c  31 37 35 2c 32 35 35 2c  |255,175,175,255,|
00001360  32 35 35 2c 32 35 33 2c  33 32 0d 29 22 29 20 dc  |255,253,32.)") .|
00001370  20 33 32 2c 31 36 33 2c  31 36 33 2c 33 32 2c 33  | 32,163,163,32,3|
00001380  32 2c 33 32 2c 33 32 2c  32 33 35 2c 32 35 35 2c  |2,32,32,235,255,|
00001390  32 34 35 0d 29 2c 26 20  dc 20 33 32 2c 33 32 2c  |245.),& . 32,32,|
000013a0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
000013b0  32 2c 32 35 35 2c 32 35  35 0d 29 36 26 20 dc 20  |2,255,255.)6& . |
000013c0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
000013d0  32 2c 33 32 2c 33 32 2c  32 35 35 2c 32 35 35 0d  |2,32,32,255,255.|
000013e0  29 40 27 20 dc 20 33 32  2c 33 32 2c 33 32 2c 33  |)@' . 32,32,32,3|
000013f0  32 2c 33 32 2c 33 32 2c  33 32 2c 32 33 32 2c 32  |2,32,32,32,232,2|
00001400  35 35 2c 31 39 31 0d 29  4a 2d 20 dc 20 33 32 2c  |55,191.)J- . 32,|
00001410  32 35 35 2c 32 35 35 2c  32 35 32 2c 32 34 30 2c  |255,255,252,240,|
00001420  32 34 30 2c 32 35 32 2c  32 35 35 2c 32 35 35 2c  |240,252,255,255,|
00001430  31 36 31 0d 29 54 2c 20  dc 20 33 32 2c 31 36 32  |161.)T, . 32,162|
00001440  2c 31 37 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,175,255,255,255|
00001450  2c 32 35 35 2c 31 37 35  2c 31 36 31 2c 33 32 0d  |,255,175,161,32.|
00001460  29 5e 05 3a 0d 29 68 12  20 f4 20 20 2a 2a 2a 2a  |)^.:.)h. .  ****|
00001470  20 20 66 6f 75 72 0d 29  72 05 3a 0d 29 7c 27 20  |  four.)r.:.)|' |
00001480  dc 20 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |. 32,32,32,32,32|
00001490  2c 32 35 30 2c 32 35 35  2c 31 38 31 2c 33 32 2c  |,250,255,181,32,|
000014a0  33 32 0d 29 86 28 20 dc  20 33 32 2c 33 32 2c 33  |32.).( . 32,32,3|
000014b0  32 2c 33 32 2c 32 33 32  2c 32 35 35 2c 32 35 35  |2,32,232,255,255|
000014c0  2c 31 38 31 2c 33 32 2c  33 32 0d 29 90 29 20 dc  |,181,32,32.).) .|
000014d0  20 33 32 2c 33 32 2c 33  32 2c 32 32 34 2c 32 35  | 32,32,32,224,25|
000014e0  35 2c 32 35 35 2c 32 35  35 2c 31 38 31 2c 33 32  |5,255,255,181,32|
000014f0  2c 33 32 0d 29 9a 29 20  dc 20 33 32 2c 33 32 2c  |,32.).) . 32,32,|
00001500  33 32 2c 32 35 34 2c 32  35 35 2c 32 33 35 2c 32  |32,254,255,235,2|
00001510  35 35 2c 31 38 31 2c 33  32 2c 33 32 0d 29 a4 2a  |55,181,32,32.).*|
00001520  20 dc 20 33 32 2c 33 32  2c 32 35 30 2c 32 35 35  | . 32,32,250,255|
00001530  2c 31 36 35 2c 32 33 34  2c 32 35 35 2c 31 38 31  |,165,234,255,181|
00001540  2c 33 32 2c 33 32 0d 29  ae 2a 20 dc 20 33 32 2c  |,32,32.).* . 32,|
00001550  32 33 32 2c 32 35 35 2c  31 38 33 2c 33 32 2c 32  |232,255,183,32,2|
00001560  33 34 2c 32 35 35 2c 31  38 31 2c 33 32 2c 33 32  |34,255,181,32,32|
00001570  0d 29 b8 2a 20 dc 20 32  32 34 2c 32 35 35 2c 31  |.).* . 224,255,1|
00001580  39 31 2c 33 32 2c 33 32  2c 32 33 34 2c 32 35 35  |91,32,32,234,255|
00001590  2c 31 38 31 2c 33 32 2c  33 32 0d 29 c2 2e 20 dc  |,181,32,32.).. .|
000015a0  20 32 35 34 2c 32 35 35  2c 32 35 33 2c 32 35 32  | 254,255,253,252|
000015b0  2c 32 35 32 2c 32 35 34  2c 32 35 35 2c 32 35 33  |,252,254,255,253|
000015c0  2c 32 35 32 2c 32 35 32  0d 29 cc 2e 20 dc 20 31  |,252,252.).. . 1|
000015d0  37 35 2c 31 37 35 2c 31  37 35 2c 31 37 35 2c 31  |75,175,175,175,1|
000015e0  37 35 2c 32 33 39 2c 32  35 35 2c 31 39 31 2c 31  |75,239,255,191,1|
000015f0  37 35 2c 31 37 35 0d 29  d6 27 20 dc 20 33 32 2c  |75,175.).' . 32,|
00001600  33 32 2c 33 32 2c 33 32  2c 33 32 2c 32 33 34 2c  |32,32,32,32,234,|
00001610  32 35 35 2c 31 38 31 2c  33 32 2c 33 32 0d 29 e0  |255,181,32,32.).|
00001620  27 20 dc 20 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |' . 32,32,32,32,|
00001630  33 32 2c 32 33 34 2c 32  35 35 2c 31 38 31 2c 33  |32,234,255,181,3|
00001640  32 2c 33 32 0d 29 ea 27  20 dc 20 33 32 2c 33 32  |2,32.).' . 32,32|
00001650  2c 33 32 2c 33 32 2c 33  32 2c 32 33 34 2c 32 35  |,32,32,32,234,25|
00001660  35 2c 31 38 31 2c 33 32  2c 33 32 0d 29 f4 05 3a  |5,181,32,32.)..:|
00001670  0d 29 fe 12 20 f4 20 20  2a 2a 2a 2a 20 20 66 69  |.).. .  ****  fi|
00001680  76 65 0d 2a 08 05 3a 0d  2a 12 2c 20 dc 20 33 32  |ve.*..:.*., . 32|
00001690  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
000016b0  2c 33 32 0d 2a 1c 2c 20  dc 20 33 32 2c 32 35 35  |,32.*., . 32,255|
000016c0  2c 32 35 35 2c 31 36 33  2c 31 36 33 2c 31 36 33  |,255,163,163,163|
000016d0  2c 31 36 33 2c 31 36 33  2c 31 36 33 2c 33 32 0d  |,163,163,163,32.|
000016e0  2a 26 26 20 dc 20 33 32  2c 32 35 35 2c 32 35 35  |*&& . 32,255,255|
000016f0  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |,32,32,32,32,32,|
00001700  33 32 2c 33 32 0d 2a 30  26 20 dc 20 33 32 2c 32  |32,32.*0& . 32,2|
00001710  35 35 2c 32 35 35 2c 33  32 2c 33 32 2c 33 32 2c  |55,255,32,32,32,|
00001720  33 32 2c 33 32 2c 33 32  2c 33 32 0d 2a 3a 2b 20  |32,32,32,32.*:+ |
00001730  dc 20 33 32 2c 32 35 35  2c 32 35 35 2c 32 34 38  |. 32,255,255,248|
00001740  2c 32 35 32 2c 32 35 32  2c 32 35 32 2c 32 34 30  |,252,252,252,240|
00001750  2c 33 32 2c 33 32 0d 2a  44 2d 20 dc 20 33 32 2c  |,32,32.*D- . 32,|
00001760  32 35 35 2c 32 35 35 2c  32 35 35 2c 31 37 35 2c  |255,255,255,175,|
00001770  31 37 35 2c 32 35 35 2c  32 35 35 2c 32 35 33 2c  |175,255,255,253,|
00001780  31 37 36 0d 2a 4e 29 20  dc 20 33 32 2c 31 36 33  |176.*N) . 32,163|
00001790  2c 31 36 33 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |,163,32,32,32,32|
000017a0  2c 32 33 35 2c 32 35 35  2c 32 35 33 0d 2a 58 26  |,235,255,253.*X&|
000017b0  20 dc 20 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  | . 32,32,32,32,3|
000017c0  32 2c 33 32 2c 33 32 2c  33 32 2c 32 35 35 2c 32  |2,32,32,32,255,2|
000017d0  35 35 0d 2a 62 26 20 dc  20 33 32 2c 33 32 2c 33  |55.*b& . 32,32,3|
000017e0  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |2,32,32,32,32,32|
000017f0  2c 32 35 35 2c 32 35 35  0d 2a 6c 27 20 dc 20 33  |,255,255.*l' . 3|
00001800  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |2,32,32,32,32,32|
00001810  2c 33 32 2c 32 33 32 2c  32 35 35 2c 31 39 31 0d  |,32,232,255,191.|
00001820  2a 76 2d 20 dc 20 33 32  2c 32 35 35 2c 32 35 35  |*v- . 32,255,255|
00001830  2c 32 35 32 2c 32 34 30  2c 32 34 30 2c 32 35 32  |,252,240,240,252|
00001840  2c 32 35 35 2c 32 35 35  2c 31 36 31 0d 2a 80 2c  |,255,255,161.*.,|
00001850  20 dc 20 33 32 2c 31 36  32 2c 31 37 35 2c 32 35  | . 32,162,175,25|
00001860  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 31 37  |5,255,255,255,17|
00001870  35 2c 31 36 31 2c 33 32  0d 2a 8a 05 3a 0d 2a 94  |5,161,32.*..:.*.|
00001880  11 20 f4 20 20 2a 2a 2a  2a 20 20 73 69 78 0d 2a  |. .  ****  six.*|
00001890  9e 05 3a 0d 2a a8 2c 20  dc 20 33 32 2c 32 32 34  |..:.*., . 32,224|
000018a0  2c 32 35 32 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,252,255,255,255|
000018b0  2c 32 35 35 2c 32 35 32  2c 31 37 36 2c 33 32 0d  |,255,252,176,32.|
000018c0  2a b2 2e 20 dc 20 32 32  34 2c 32 35 35 2c 32 35  |*.. . 224,255,25|
000018d0  35 2c 31 37 35 2c 31 36  33 2c 31 36 33 2c 31 37  |5,175,163,163,17|
000018e0  35 2c 32 35 35 2c 32 35  35 2c 31 37 36 0d 2a bc  |5,255,255,176.*.|
000018f0  2a 20 dc 20 32 35 34 2c  32 35 35 2c 31 36 35 2c  |* . 254,255,165,|
00001900  33 32 2c 33 32 2c 33 32  2c 33 32 2c 31 37 30 2c  |32,32,32,32,170,|
00001910  32 35 35 2c 32 35 33 0d  2a c6 26 20 dc 20 32 35  |255,253.*.& . 25|
00001920  35 2c 32 35 35 2c 33 32  2c 33 32 2c 33 32 2c 33  |5,255,32,32,32,3|
00001930  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 2a d0  |2,32,32,32,32.*.|
00001940  26 20 dc 20 32 35 35 2c  32 35 35 2c 33 32 2c 33  |& . 255,255,32,3|
00001950  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |2,32,32,32,32,32|
00001960  2c 33 32 0d 2a da 2c 20  dc 20 32 35 35 2c 32 35  |,32.*., . 255,25|
00001970  35 2c 32 34 30 2c 32 35  32 2c 32 35 32 2c 32 35  |5,240,252,252,25|
00001980  32 2c 32 35 32 2c 32 34  30 2c 33 32 2c 33 32 0d  |2,252,240,32,32.|
00001990  2a e4 2d 20 dc 20 32 35  35 2c 32 35 35 2c 32 35  |*.- . 255,255,25|
000019a0  35 2c 32 35 35 2c 31 37  35 2c 31 37 35 2c 32 35  |5,255,175,175,25|
000019b0  35 2c 32 35 35 2c 32 35  33 2c 33 32 0d 2a ee 2a  |5,255,253,32.*.*|
000019c0  20 dc 20 32 35 35 2c 32  35 35 2c 31 38 33 2c 33  | . 255,255,183,3|
000019d0  32 2c 33 32 2c 33 32 2c  33 32 2c 32 33 35 2c 32  |2,32,32,32,235,2|
000019e0  35 35 2c 32 34 35 0d 2a  f8 28 20 dc 20 32 35 35  |55,245.*.( . 255|
000019f0  2c 32 35 35 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |,255,32,32,32,32|
00001a00  2c 33 32 2c 33 32 2c 32  35 35 2c 32 35 35 0d 2b  |,32,32,255,255.+|
00001a10  02 2a 20 dc 20 32 33 39  2c 32 35 35 2c 31 38 30  |.* . 239,255,180|
00001a20  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 32 33 32  |,32,32,32,32,232|
00001a30  2c 32 35 35 2c 31 39 31  0d 2b 0c 2e 20 dc 20 31  |,255,191.+.. . 1|
00001a40  36 32 2c 32 35 35 2c 32  35 35 2c 32 35 32 2c 32  |62,255,255,252,2|
00001a50  34 30 2c 32 34 30 2c 32  35 32 2c 32 35 35 2c 32  |40,240,252,255,2|
00001a60  35 35 2c 31 36 31 0d 2b  16 2c 20 dc 20 33 32 2c  |55,161.+., . 32,|
00001a70  31 36 32 2c 31 37 35 2c  32 35 35 2c 32 35 35 2c  |162,175,255,255,|
00001a80  32 35 35 2c 32 35 35 2c  31 37 35 2c 31 36 31 2c  |255,255,175,161,|
00001a90  33 32 0d 2b 20 05 3a 0d  2b 2a 13 20 f4 20 20 2a  |32.+ .:.+*. .  *|
00001aa0  2a 2a 2a 20 20 73 65 76  65 6e 0d 2b 34 05 3a 0d  |***  seven.+4.:.|
00001ab0  2b 3e 2e 20 dc 20 32 35  35 2c 32 35 35 2c 32 35  |+>. . 255,255,25|
00001ac0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00001ad0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 2b 48  |5,255,255,255.+H|
00001ae0  2e 20 dc 20 32 35 35 2c  31 38 33 2c 31 36 33 2c  |. . 255,183,163,|
00001af0  31 36 33 2c 31 36 33 2c  31 36 33 2c 31 36 33 2c  |163,163,163,163,|
00001b00  31 36 33 2c 32 35 35 2c  32 35 35 0d 2b 52 28 20  |163,255,255.+R( |
00001b10  dc 20 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |. 32,32,32,32,32|
00001b20  2c 33 32 2c 32 32 34 2c  32 35 34 2c 32 35 35 2c  |,32,224,254,255,|
00001b30  31 36 37 0d 2b 5c 28 20  dc 20 33 32 2c 33 32 2c  |167.+\( . 32,32,|
00001b40  33 32 2c 33 32 2c 33 32  2c 32 34 38 2c 32 35 35  |32,32,32,248,255|
00001b50  2c 31 39 31 2c 31 36 31  2c 33 32 0d 2b 66 27 20  |,191,161,32.+f' |
00001b60  dc 20 33 32 2c 33 32 2c  33 32 2c 33 32 2c 32 33  |. 32,32,32,32,23|
00001b70  32 2c 32 35 35 2c 31 38  33 2c 33 32 2c 33 32 2c  |2,255,183,32,32,|
00001b80  33 32 0d 2b 70 27 20 dc  20 33 32 2c 33 32 2c 33  |32.+p' . 32,32,3|
00001b90  32 2c 32 32 34 2c 32 35  35 2c 31 39 31 2c 33 32  |2,224,255,191,32|
00001ba0  2c 33 32 2c 33 32 2c 33  32 0d 2b 7a 27 20 dc 20  |,32,32,32.+z' . |
00001bb0  33 32 2c 33 32 2c 33 32  2c 32 35 34 2c 32 35 35  |32,32,32,254,255|
00001bc0  2c 31 36 31 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |,161,32,32,32,32|
00001bd0  0d 2b 84 27 20 dc 20 33  32 2c 33 32 2c 32 33 34  |.+.' . 32,32,234|
00001be0  2c 32 35 35 2c 31 38 31  2c 33 32 2c 33 32 2c 33  |,255,181,32,32,3|
00001bf0  32 2c 33 32 2c 33 32 0d  2b 8e 26 20 dc 20 33 32  |2,32,32.+.& . 32|
00001c00  2c 33 32 2c 32 35 35 2c  32 35 35 2c 33 32 2c 33  |,32,255,255,32,3|
00001c10  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 2b 98  |2,32,32,32,32.+.|
00001c20  26 20 dc 20 33 32 2c 33  32 2c 32 35 35 2c 32 35  |& . 32,32,255,25|
00001c30  35 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |5,32,32,32,32,32|
00001c40  2c 33 32 0d 2b a2 26 20  dc 20 33 32 2c 33 32 2c  |,32.+.& . 32,32,|
00001c50  32 35 35 2c 32 35 35 2c  33 32 2c 33 32 2c 33 32  |255,255,32,32,32|
00001c60  2c 33 32 2c 33 32 2c 33  32 0d 2b ac 26 20 dc 20  |,32,32,32.+.& . |
00001c70  33 32 2c 33 32 2c 32 35  35 2c 32 35 35 2c 33 32  |32,32,255,255,32|
00001c80  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 33 32 0d  |,32,32,32,32,32.|
00001c90  2b b6 05 3a 0d 2b c0 13  20 f4 20 20 2a 2a 2a 2a  |+..:.+.. .  ****|
00001ca0  20 20 65 69 67 68 74 0d  2b ca 05 3a 0d 2b d4 2c  |  eight.+..:.+.,|
00001cb0  20 dc 20 33 32 2c 32 32  34 2c 32 35 32 2c 32 35  | . 32,224,252,25|
00001cc0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00001cd0  32 2c 31 37 36 2c 33 32  0d 2b de 2e 20 dc 20 32  |2,176,32.+.. . 2|
00001ce0  32 34 2c 32 35 35 2c 32  35 35 2c 31 37 35 2c 31  |24,255,255,175,1|
00001cf0  36 33 2c 31 36 33 2c 31  37 35 2c 32 35 35 2c 32  |63,163,175,255,2|
00001d00  35 35 2c 31 37 36 0d 2b  e8 2a 20 dc 20 32 35 34  |55,176.+.* . 254|
00001d10  2c 32 35 35 2c 31 36 35  2c 33 32 2c 33 32 2c 33  |,255,165,32,32,3|
00001d20  32 2c 33 32 2c 31 37 30  2c 32 35 35 2c 32 35 33  |2,32,170,255,253|
00001d30  0d 2b f2 28 20 dc 20 32  35 35 2c 32 35 35 2c 33  |.+.( . 255,255,3|
00001d40  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |2,32,32,32,32,32|
00001d50  2c 32 35 35 2c 32 35 35  0d 2b fc 2a 20 dc 20 32  |,255,255.+.* . 2|
00001d60  33 39 2c 32 35 35 2c 32  34 35 2c 33 32 2c 33 32  |39,255,245,32,32|
00001d70  2c 33 32 2c 33 32 2c 32  35 30 2c 32 35 35 2c 31  |,32,32,250,255,1|
00001d80  39 31 0d 2c 06 2e 20 dc  20 31 36 32 2c 32 33 39  |91.,.. . 162,239|
00001d90  2c 32 35 35 2c 32 35 35  2c 32 35 32 2c 32 35 32  |,255,255,252,252|
00001da0  2c 32 35 35 2c 32 35 35  2c 31 39 31 2c 31 36 31  |,255,255,191,161|
00001db0  0d 2c 10 2e 20 dc 20 32  32 34 2c 32 35 34 2c 32  |.,.. . 224,254,2|
00001dc0  35 35 2c 32 35 35 2c 31  37 35 2c 31 37 35 2c 32  |55,255,175,175,2|
00001dd0  35 35 2c 32 35 35 2c 32  35 33 2c 31 37 36 0d 2c  |55,255,253,176.,|
00001de0  1a 2a 20 dc 20 32 35 34  2c 32 35 35 2c 31 38 33  |.* . 254,255,183|
00001df0  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 32 33 35  |,32,32,32,32,235|
00001e00  2c 32 35 35 2c 32 35 33  0d 2c 24 28 20 dc 20 32  |,255,253.,$( . 2|
00001e10  35 35 2c 32 35 35 2c 33  32 2c 33 32 2c 33 32 2c  |55,255,32,32,32,|
00001e20  33 32 2c 33 32 2c 33 32  2c 32 35 35 2c 32 35 35  |32,32,32,255,255|
00001e30  0d 2c 2e 2a 20 dc 20 32  33 39 2c 32 35 35 2c 31  |.,.* . 239,255,1|
00001e40  38 30 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 32  |80,32,32,32,32,2|
00001e50  33 32 2c 32 35 35 2c 31  39 31 0d 2c 38 2e 20 dc  |32,255,191.,8. .|
00001e60  20 31 36 32 2c 32 35 35  2c 32 35 35 2c 32 35 32  | 162,255,255,252|
00001e70  2c 32 34 30 2c 32 34 30  2c 32 35 32 2c 32 35 35  |,240,240,252,255|
00001e80  2c 32 35 35 2c 31 36 31  0d 2c 42 2c 20 dc 20 33  |,255,161.,B, . 3|
00001e90  32 2c 31 36 32 2c 31 37  35 2c 32 35 35 2c 32 35  |2,162,175,255,25|
00001ea0  35 2c 32 35 35 2c 32 35  35 2c 31 37 35 2c 31 36  |5,255,255,175,16|
00001eb0  31 2c 33 32 0d 2c 4c 05  3a 0d 2c 56 12 20 f4 20  |1,32.,L.:.,V. . |
00001ec0  20 2a 2a 2a 2a 20 20 6e  69 6e 65 0d 2c 60 05 3a  | ****  nine.,`.:|
00001ed0  0d 2c 6a 2c 20 dc 20 33  32 2c 32 32 34 2c 32 35  |.,j, . 32,224,25|
00001ee0  32 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |2,255,255,255,25|
00001ef0  35 2c 32 35 32 2c 31 37  36 2c 33 32 0d 2c 74 2e  |5,252,176,32.,t.|
00001f00  20 dc 20 32 32 34 2c 32  35 35 2c 32 35 35 2c 31  | . 224,255,255,1|
00001f10  37 35 2c 31 36 33 2c 31  36 33 2c 31 37 35 2c 32  |75,163,163,175,2|
00001f20  35 35 2c 32 35 35 2c 31  37 36 0d 2c 7e 2a 20 dc  |55,255,176.,~* .|
00001f30  20 32 35 34 2c 32 35 35  2c 31 36 35 2c 33 32 2c  | 254,255,165,32,|
00001f40  33 32 2c 33 32 2c 33 32  2c 31 37 30 2c 32 35 35  |32,32,32,170,255|
00001f50  2c 32 35 33 0d 2c 88 28  20 dc 20 32 35 35 2c 32  |,253.,.( . 255,2|
00001f60  35 35 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |55,32,32,32,32,3|
00001f70  32 2c 33 32 2c 32 35 35  2c 32 35 35 0d 2c 92 2a  |2,32,255,255.,.*|
00001f80  20 dc 20 32 33 39 2c 32  35 35 2c 32 34 35 2c 33  | . 239,255,245,3|
00001f90  32 2c 33 32 2c 33 32 2c  33 32 2c 32 35 30 2c 32  |2,32,32,32,250,2|
00001fa0  35 35 2c 32 35 35 0d 2c  9c 2e 20 dc 20 31 36 32  |55,255.,.. . 162|
00001fb0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 32  |,255,255,255,252|
00001fc0  2c 32 35 32 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,252,255,255,255|
00001fd0  2c 32 35 35 0d 2c a6 2d  20 dc 20 33 32 2c 31 36  |,255.,.- . 32,16|
00001fe0  32 2c 31 37 35 2c 32 35  35 2c 32 35 35 2c 32 35  |2,175,255,255,25|
00001ff0  35 2c 32 35 35 2c 31 37  35 2c 32 35 35 2c 32 35  |5,255,175,255,25|
00002000  35 0d 2c b0 26 20 dc 20  33 32 2c 33 32 2c 33 32  |5.,.& . 32,32,32|
00002010  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |,32,32,32,32,32,|
00002020  32 35 35 2c 32 35 35 0d  2c ba 26 20 dc 20 33 32  |255,255.,.& . 32|
00002030  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |,32,32,32,32,32,|
00002040  33 32 2c 33 32 2c 32 35  35 2c 32 35 35 0d 2c c4  |32,32,255,255.,.|
00002050  26 20 dc 20 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |& . 32,32,32,32,|
00002060  33 32 2c 33 32 2c 33 32  2c 33 32 2c 32 35 35 2c  |32,32,32,32,255,|
00002070  32 35 35 0d 2c ce 26 20  dc 20 33 32 2c 33 32 2c  |255.,.& . 32,32,|
00002080  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
00002090  32 2c 32 35 35 2c 32 35  35 0d 2c d8 26 20 dc 20  |2,255,255.,.& . |
000020a0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
000020b0  32 2c 33 32 2c 33 32 2c  32 35 35 2c 32 35 35 0d  |2,32,32,255,255.|
000020c0  2c e2 05 3a 0d 4e 20 2e  20 dc 22 20 20 20 54 68  |,..:.N . ."   Th|
000020d0  69 73 20 70 72 6f 67 72  61 6d 20 67 65 6e 65 72  |is program gener|
000020e0  61 74 65 73 20 61 6e 64  20 64 69 73 70 6c 61 79  |ates and display|
000020f0  73 22 0d 4e 2a 2d 20 dc  20 62 69 6e 67 6f 20 20  |s".N*- . bingo  |
00002100  6e 75 6d 62 65 72 73 20  20 77 69 74 68 20 20 65  |numbers  with  e|
00002110  76 65 72 79 20 20 6b 65  79 20 70 72 65 73 73 0d  |very  key press.|
00002120  4e 34 2d 20 dc 20 75 6e  74 69 6c 20 61 6c 6c 20  |N4- . until all |
00002130  20 6e 69 6e 65 74 79 20  20 6e 75 6d 62 65 72 73  | ninety  numbers|
00002140  20 20 68 61 76 65 20 20  62 65 65 6e 0d 4e 3e 2a  |  have  been.N>*|
00002150  20 dc 20 64 69 73 70 6c  61 79 65 64 20 6f 72 20  | . displayed or |
00002160  20 27 45 53 43 41 50 45  27 20 20 69 73 20 70 72  | 'ESCAPE'  is pr|
00002170  65 73 73 65 64 2e 0d 4e  48 2f 20 dc 2c 22 20 20  |essed..NH/ .,"  |
00002180  20 50 72 65 73 73 69 6e  67 20 20 27 45 53 43 41  | Pressing  'ESCA|
00002190  50 45 27 20 61 74 20 61  6e 79 20 74 69 6d 65 20  |PE' at any time |
000021a0  77 69 6c 6c 22 0d 4e 52  18 20 dc 20 73 74 61 72  |will".NR. . star|
000021b0  74 20 61 20 6e 65 77 20  67 61 6d 65 2e 0d 4e 5c  |t a new game..N\|
000021c0  2f 20 dc 2c 22 20 20 20  50 72 65 73 73 20 27 52  |/ .,"   Press 'R|
000021d0  45 54 55 52 4e 27 20 64  75 72 69 6e 67 20 61 20  |ETURN' during a |
000021e0  72 75 6e 20 74 6f 20 73  68 6f 77 22 0d 4e 66 2d  |run to show".Nf-|
000021f0  20 dc 20 74 68 65 20 63  68 65 63 6b 69 6e 67 20  | . the checking |
00002200  74 61 62 6c 65 20 61 6e  64 20 74 68 65 20 6c 61  |table and the la|
00002210  73 74 20 6e 75 6d 62 65  72 0d 4e 70 2d 20 dc 20  |st number.Np- . |
00002220  63 61 6c 6c 65 64 2e 20  20 54 68 65 20 6e 65 78  |called.  The nex|
00002230  74 20 6b 65 79 20 70 72  65 73 73 20 20 63 6f 6e  |t key press  con|
00002240  74 69 6e 75 65 73 0d 4e  7a 2b 20 dc 20 74 68 65  |tinues.Nz+ . the|
00002250  20 67 61 6d 65 20 62 79  20 64 69 73 70 6c 61 79  | game by display|
00002260  69 6e 67 20 61 20 6e 65  77 20 6e 75 6d 62 65 72  |ing a new number|
00002270  2e 0d 4e 84 2e 20 dc 22  20 20 20 53 70 65 63 69  |..N.. ."   Speci|
00002280  61 6c 20 6e 75 6d 62 65  72 73 20 66 72 6f 6d 20  |al numbers from |
00002290  31 20 74 6f 20 39 30 20  63 61 6e 20 62 65 22 0d  |1 to 90 can be".|
000022a0  4e 8e 2d 20 dc 20 70 72  6f 64 75 63 65 64 20 62  |N.- . produced b|
000022b0  79 20 70 72 65 73 73 69  6e 67 20 61 6e 79 20 72  |y pressing any r|
000022c0  65 64 20 6b 65 79 20 20  77 69 74 68 0d 4e 98 23  |ed key  with.N.#|
000022d0  20 dc 20 6e 6f 20 65 66  66 65 63 74 20 6f 6e 20  | . no effect on |
000022e0  61 20 72 75 6e 6e 69 6e  67 20 67 61 6d 65 2e 0d  |a running game..|
000022f0  4e a2 2f 20 dc 2c 22 20  20 20 49 66 20 73 6e 6f  |N./ .,"   If sno|
00002300  77 62 61 6c 6c 20 69 73  20 27 4f 4e 27 20 20 61  |wball is 'ON'  a|
00002310  20 68 6f 75 73 65 20 63  61 6e 20 62 65 22 0d 4e  | house can be".N|
00002320  ac 2e 20 dc 22 74 65 73  74 65 64 20 66 6f 72 20  |.. ."tested for |
00002330  53 4e 4f 57 42 41 4c 4c  20 6f 72 20 53 4e 4f 57  |SNOWBALL or SNOW|
00002340  42 41 4c 4c 20 50 41 53  53 45 44 22 0d 4e b6 2e  |BALL PASSED".N..|
00002350  20 dc 22 62 79 20 70 72  65 73 73 69 6e 67 20 27  | ."by pressing '|
00002360  54 41 42 27 2c 20 20 6f  6e 6c 79 20 77 68 65 6e  |TAB',  only when|
00002370  20 20 73 68 6f 77 69 6e  67 22 0d 4e c0 2f 20 dc  |  showing".N./ .|
00002380  20 22 74 68 65 20 63 68  65 63 6b 69 6e 67 20 74  | "the checking t|
00002390  61 62 6c 65 2e 20 20 41  20 76 61 6c 69 64 20 20  |able.  A valid  |
000023a0  53 4e 4f 57 42 41 4c 4c  22 0d 4e ca 20 20 dc 20  |SNOWBALL".N.  . |
000023b0  77 69 6c 6c 20 73 77 69  74 63 68 20 73 6e 6f 77  |will switch snow|
000023c0  62 61 6c 6c 20 6f 66 66  2e 0d 4e d4 2f 20 dc 2c  |ball off..N./ .,|
000023d0  22 20 20 20 50 72 65 73  73 69 6e 67 20 27 42 52  |"   Pressing 'BR|
000023e0  45 41 4b 27 20 77 69 6c  6c 20 63 6c 65 61 72 20  |EAK' will clear |
000023f0  6f 75 74 20 74 68 65 22  0d 4e de 28 20 dc 20 63  |out the".N.( . c|
00002400  6f 6d 70 75 74 65 72 20  61 6e 64 20 72 65 73 74  |omputer and rest|
00002410  61 72 74 20 74 68 65 20  70 72 6f 67 72 61 6d 2e  |art the program.|
00002420  0d ff                                             |..|
00002422
21-02-89/Bingo.m0
21-02-89/Bingo.m1
21-02-89/Bingo.m2
21-02-89/Bingo.m4
21-02-89/Bingo.m5

© Dominic Ford 2021–2024.

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