Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » micro minotaur

micro minotaur

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 » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav
Filename: micro minotaur
Read OK:
File size: 0C62 bytes
Load address: 1001
Exec address: 0000
File contents
    10 REM MICRO MINOTAUR
    20 CLR
    30 SCNCLR:VOL8:COLOR1,1,3
    40 SC=3072:CO=2048:COLOR0,7,4:COLOR4,6,4:C=0:R=0:PO=SC+(R*40)+C:BE=SC+130
    50 PRINT"<white>";
    60 FORI=1TO24:RR$=RR$+"<cursor down>":NEXT
    70 FORI=1TO40:CC$=CC$+"<cursor right>":NEXT
    80 FORI=1TO34:CL$=CL$+" ":NEXT
    90 H$="123456789?"+CHR$(24):DIMCL$(10)
   100 FORI=SCTOSC+39:POKEI,160:NEXT
   110 FORI=SC+(24*40)TOSC+(24*40)+39:POKEI,160:NEXT
   120 FORI=SCTOSC+(24*40)STEP40:POKEI,160:NEXT
   130 FORI=SC+39TOSC+(24*40)+39STEP40:POKEI,160:NEXT
   140 PRINT"<home><reverse on>         MICRO MINOTAUR";"<reverse on>     PLAYER"
   150 FORI=SC+130TOSC+850STEP80
   160 FORJ=ITOI+18STEP2
   170 Q=INT(RND(1)*12):IFQ=0THEN170
   180 A=ASC(MID$(H$,Q,1))
   190 POKEJ,A:NEXT:NEXT
   200 NU=INT(RND(1)*100):IFNU=0THEN200
   210 NU$=STR$(NU):RA=INT(RND(1)*3):IFRA=0THENGOTO210
   220 IFNU<10THENNU$="0"+NU$
   230 IFRA=1THENCL$(1)="FIRST DIGIT EQUALS "+MID$(NU$,2,1)
   240 IFRA=2THENCL$(1)="SECOND DIGIT EQUALS "+MID$(NU$,3,1)
   250 CN=2:FORI=2TONU-1
   260 A=NU/I:B=INT(A):IFA<>BTHEN290
   270 IFCN=7THEN300
   280 CL$(CN)="A FACTOR OF THE NUMBER IS "+STR$(A):CN=CN+1
   290 NEXT
   300 IFNU/2=INT(NU/2)THENCL$(CN)="THE NUMBER IS EVEN"
   310 IFNU/2<>INT(NU/2)THENCL$(CN)="THE NUMBER IS ODD"
   320 GB=VAL(MID$(NU$,3,1)):FORI=2TO9:A=GB/I:IFA=INT(GB/I)THENGOSUB1060:GOTO340
   330 NEXT
   340 GB=VAL(MID$(NU$,2,1)):FORI=2TO9:A=GB/I:IFA=INT(GB/I)THENGOSUB1070:GOTO360
   350 NEXT
   360 SD=VAL(MID$(NU$,2,1)):IFSD/2=INT(SD/2)THENCL$(7)="FIRST DIGIT IS EVEN"
   370 IFSD/2<>INT(SD/2)THENCL$(7)="FIRST DIGIT IS ODD"
   380 SD=VAL(MID$(NU$,3,1)):IFSD/2=INT(SD/2)THENCL$(8)="SECOND DIGIT IS EVEN"
   390 IFSD/2<>INT(SD/2)THENCL$(8)="SECOND DIGIT IS ODD"
   400 FORI=1TO9:IFI*I=NUTHENCL$(9)="NUMBER IS THE PRODUCT OF A SQUARE"
   410 NEXT
   420 HO=BE+10:POKEHO,160
   430 C1=6:R1=6:MA=BE+(R1*40)+C1:VE=PEEK(MA):POKEMA,13
   440 C=10:R=18:PO=BE+(R*40)+C:VA=PEEK(PO):POKEPO,209
   450 A=PEEK(198):POKEMA,13:IFA=64THEN550
   460 IFA=62THENGOSUB560
   470 IFA=12THENGOSUB620
   480 IFA=33THENGOSUB680
   490 IFA=41THENGOSUB740
   500 IFA=22THENGOTO1040
   510 GOSUB850:SOUND2,15,12:SOUND1,23,23
   520 PRINT"<home>";LEFT$(RR$,2);LEFT$(CC$,2);CL$;
   530 TT=TT+CU
   540 PRINT"<home>";LEFT$(RR$,23);LEFT$(CC$,7);"<reverse on>LAST SCORE:<rev off>";CU;"  <reverse on>TOTAL SCORE:<rev off>";TT;
   550 CU=0:POKEMA,141:GOTO450
   560 IFR=0THENRETURN
   570 R=R-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENR=R+2:PO=BE+(R*40)+C:RETURN
   580 IFDA=13THENGOTO920
   590 GOSUB800
   600 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32:VA=PEEK(PO)
   610 POKEPO,209:RETURN
   620 IFR=18THENRETURN
   630 R=R+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENR=R-2:PO=BE+(R*40)+C:RETURN
   640 IFDA=13THENGOTO920
   650 GOSUB800
   660 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
   670 VA=PEEK(PO):POKEPO,209:RETURN
   680 IFC=0THENRETURN
   690 C=C-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENC=C+2:PO=BE+(R*40)+C:RETURN
   700 IFDA=13THENGOTO920
   710 GOSUB800
   720 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
   730 VA=PEEK(PO):POKEPO,209:RETURN
   740 IFC=18THENRETURN
   750 C=C+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENC=C-2:PO=BE+(R*40)+C:RETURN
   760 IFDA=13THENGOTO920
   770 GOSUB800
   780 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
   790 VA=PEEK(PO):POKEPO,209:RETURN
   800 IFDA=63THENCU=INT(RND(1)*10)
   810 FU=INT(RND(1)*10):DI=(40-LEN(CL$(FU)))/2
   820 IFDA=24THENPRINT"<home>";LEFT$(CC$,DI);LEFT$(RR$,2);CL$(FU);:GOSUB1050
   830 IFDA=160THENGOSUB1000
   840 RETURN
   850 IFCU<5THENRETURN
   860 IFC1>CTHENC1=C1-2
   870 IFC1<CTHENC1=C1+2
   880 IFR1>RTHENR1=R1-2
   890 IFR1<RTHENR1=R1+2
   900 POKEMA,VE:MA=BE+(R1*40)+C1:IFPEEK(MA)=209THENGOSUB920:STOP
   910 VE=PEEK(MA):POKEMA,13:RETURN
   920 PRINT"<clr>";LEFT$(RR$,10);"THE MINOTAUR HAS EATEN YOU"
   930 PRINT"<home>";LEFT$(RR$,13);"THE NUMBER WAS";NU;
   940 PRINT:PRINT:PRINT
   950 PRINT"DO YOU WANT ANOTHER GAME(Y/N):";
   960 GETA$:IFA$=""THEN960
   970 IFA$="Y"THENGOTO20
   980 IFA$="N"THENEND
   990 GOTO960
  1000 PRINT"<clr>";LEFT$(RR$,2);LEFT$(RR$,3);"WHAT IS THE NUMBER";:INPUTVT
  1010 IFVT<>NUTHENPRINT"WRONG, THE NUMBER WAS ";NU:GOTO940
  1020 PRINT"CONGRATULATIONS YOU HAVE BEATEN MINOTAUR"
  1030 GOTO940
  1040 PRINT"<clr>";:GOTO930
  1050 FORI=1TO1200:NEXT:RETURN
  1060 CL$(6)="A FACTOR OF SECOND DIGIT IS"+STR$(I):RETURN
  1070 CL$(5)="A FACTOR OF FIRST DIGIT IS"+STR$(I):RETURN


� MICRO MINOTAUR�,�:�8:�1,1,3o(SC�3072:CO�2048:�0,7,4:�4,6,4:C�0:R�0:PO�SC�(R�40)�C:BE�SC�130y2�"";�<�I�1�24:RR$�RR$�"":��F�I�1�40:CC$�CC$�"":��P�I�1�34:CL$�CL$�" ":��ZH$�"123456789?"��(24):�CL$(10)d�I�SC�SC�39:�I,160:�,n�I�SC�(24�40)�SC�(24�40)�39:�I,160:�Mx�I�SC�SC�(24�40)�40:�I,160:�t��I�SC�39�SC�(24�40)�39�40:�I,160:����"         MICRO MINOTAUR";"     PLAYER"���I�SC�130�SC�850�80���J�I�I�18�2��Q��(�(1)�12):�Q�0�170��A��(�(H$,Q,1))��J,A:�:�#�NU��(�(1)�100):�NU�0�200I�NU$��(NU):RA��(�(1)�3):�RA�0��210`��NU�10�NU$�"0"�NU$���RA�1�CL$(1)�"FIRST DIGIT EQUALS "��(NU$,2,1)���RA�2�CL$(1)�"SECOND DIGIT EQUALS "��(NU$,3,1)��CN�2:�I�2�NU�1�A�NU�I:B��(A):�A��B�290�CN�7�3008CL$(CN)�"A FACTOR OF THE NUMBER IS "��(A):CN�CN�1>"�m,�NU�2��(NU�2)�CL$(CN)�"THE NUMBER IS EVEN"�6�NU�2���(NU�2)�CL$(CN)�"THE NUMBER IS ODD"�@GB��(�(NU$,3,1)):�I�2�9:A�GB�I:�A��(GB�I)��1060:�340�J�TGB��(�(NU$,2,1)):�I�2�9:A�GB�I:�A��(GB�I)��1070:�360^�ZhSD��(�(NU$,2,1)):�SD�2��(SD�2)�CL$(7)�"FIRST DIGIT IS EVEN"�r�SD�2���(SD�2)�CL$(7)�"FIRST DIGIT IS ODD"�|SD��(�(NU$,3,1)):�SD�2��(SD�2)�CL$(8)�"SECOND DIGIT IS EVEN"���SD�2���(SD�2)�CL$(8)�"SECOND DIGIT IS ODD"8��I�1�9:�I�I�NU�CL$(9)�"NUMBER IS THE PRODUCT OF A SQUARE">��S�HO�BE�10:�HO,160��C1�6:R1�6:MA�BE�(R1�40)�C1:VE��(MA):�MA,13��C�10:R�18:PO�BE�(R�40)�C:VA��(PO):�PO,209��A��(198):�MA,13:�A�64�550���A�62��560���A�12��620���A�33��680
��A�41��740��A�22��10405��850:�2,15,12:�1,23,23U�"";�(RR$,2);�(CC$,2);CL$;bTT�TT�CU��"";�(RR$,23);�(CC$,7);"LAST SCORE:�";CU;"  TOTAL SCORE:�";TT;�&CU�0:�MA,141:�450�0�R�0��:R�R�2:PE�PO:PO�BE�(R�40)�C:DA��(PO):�DA�32�R�R�2:PO�BE�(R�40)�C:�D�DA�13��920(N�800XX�PE,VA:FL��(PE):CU��(�(FL)):�PE,32:VA��(PO)fb�PO,209:�rl�R�18���vR�R�2:PE�PO:PO�BE�(R�40)�C:DA��(PO):�DA�32�R�R�2:PO�BE�(R�40)�C:����DA�13��920���800���PE,VA:FL��(PE):CU��(�(FL)):�PE,32�VA��(PO):�PO,209:���C�0��`�C�C�2:PE�PO:PO�BE�(R�40)�C:DA��(PO):�DA�32�C�C�2:PO�BE�(R�40)�C:�p��DA�13��920y��800���PE,VA:FL��(PE):CU��(�(FL)):�PE,32��VA��(PO):�PO,209:����C�18��	�C�C�2:PE�PO:PO�BE�(R�40)�C:DA��(PO):�DA�32�C�C�2:PO�BE�(R�40)�C:���DA�13��920"�800I�PE,VA:FL��(PE):CU��(�(FL)):�PE,32`VA��(PO):�PO,209:�y �DA�63�CU��(�(1)�10)�*FU��(�(1)�10):DI�(40��(CL$(FU)))�2�4�DA�24��"";�(CC$,DI);�(RR$,2);CL$(FU);:�1050�>�DA�160��1000�H��R�CU�5��\�C1�C�C1�C1�2f�C1�C�C1�C1�2,p�R1�R�R1�R1�2>z�R1�R�R1�R1�2l��MA,VE:MA�BE�(R1�40)�C1:��(MA)�209��920:���VE��(MA):�MA,13:����"�";�(RR$,10);"THE MINOTAUR HAS EATEN YOU"���"";�(RR$,13);"THE NUMBER WAS";NU;���:�:���"DO YOU WANT ANOTHER GAME(Y/N):";��A$:�A$�""�960.��A$�"Y"��20<��A$�"N"��E��960z��"�";�(RR$,2);�(RR$,3);"WHAT IS THE NUMBER";:�VT���VT��NU��"WRONG, THE NUMBER WAS ";NU:�940���"CONGRATULATIONS YOU HAVE BEATEN MINOTAUR"��940��"�";:�930�I�1�1200:�:�2$CL$(6)�"A FACTOR OF SECOND DIGIT IS"��(I):�a.CL$(5)�"A FACTOR OF FIRST DIGIT IS"��(I):�
VPJ@. micro minotaur@£PT@.@,P.@.:.8:.1,1,3@OP(@sc.3072:co.2048:.0,7,4:.4,6,4:c.0:r.0:po.sc.(r.40).c:be.sc.130@YP2@."E";@.P<@.i.1.24:rr$.rr$."Q":.@.Pf@.i.1.40:cc$.cc$."]":.@.Pp@.i.1.34:cl$.cl$." ":.@.Pz@h$."123456789?"..(24):.cl$(10)@CQD@.i.sc.sc.39:.i,160:.@,QN@.i.sc.(24.40).sc.(24.40).39:.i,160:.@mQX@.i.sc.sc.(24.40).40:.i,160:.@TQ.@.i.sc.39.sc.(24.40).39.40:.i,160:.@.Q.@."SR         micro minotaur";"R     player"@.Q.@.i.sc.130.sc.850.80@.Q.@.j.i.i.18.2@.Q.@q..(.(1).12):.q.0.170@.Q.@a..(.(h$,q,1))@FR.@.j,a:.:.@#R.@nu..(.(1).100):.nu.0.200@iR.@nu$..(nu):ra..(.(1).3):.ra.0..210@.R.@.nu.10.nu$."0".nu$@.R.@.ra.1.cl$(1)."first digit equals "..(nu$,2,1)@.R.@.ra.2.cl$(1)."second digit equals "..(nu$,3,1)@.R.@cn.2:.i.2.nu.1@.RDAa.nu.i:b..(a):.a..b.290@BSNA.cn.7.300@8SXAcl$(cn)."a factor of the number is "..(a):cn.cn.1@>S"A.@MS,A.nu.2..(nu.2).cl$(cn)."the number is even"@.S6A.nu.2...(nu.2).cl$(cn)."the number is odd"@.S@Agb..(.(nu$,3,1)):.i.2.9:a.gb.i:.a..(gb.i)..1060:.340@.SjA.@TTtAgb..(.(nu$,2,1)):.i.2.9:a.gb.i:.a..(gb.i)..1070:.360@ZT.A.@zTHAsd..(.(nu$,2,1)):.sd.2..(sd.2).cl$(7)."first digit is even"@.TRA.sd.2...(sd.2).cl$(7)."first digit is odd"@.T.Asd..(.(nu$,3,1)):.sd.2..(sd.2).cl$(8)."second digit is even"@.T.A.sd.2...(sd.2).cl$(8)."second digit is odd"@8U.A.i.1.9:.i.i.nu.cl$(9)."number is the product of a square"@>U.A.@sU.Aho.be.10:.ho,160@.U.Ac1.6:r1.6:ma.be.(r1.40).c1:ve..(ma):.ma,13@.U.Ac.10:r.18:po.be.(r.40).c:va..(po):.po,209@.U.Aa..(198):.ma,13:.a.64.550@.U.A.a.62..560@.U.A.a.12..620@.U.A.a.33..680@JV.A.a.41..740@ZV.A.a.22..1040@5V.A.850:.2,15,12:.1,23,23@uVHB."S";.(rr$,2);.(cc$,2);cl$;@BVRBtt.tt.cu@.V£B."S";.(rr$,23);.(cc$,7);"Rlast score:.";cu;"  Rtotal score:.";tt;@.V&Bcu.0:.ma,141:.450@.V0B.r.0..@OW:Br.r.2:pe.po:po.be.(r.40).c:da..(po):.da.32.r.r.2:po.be.(r.40).c:.@.WdB.da.13..920@(WnB.800@xWxB.pe,va:fl..(pe):cu..(.(fl)):.pe,32:va..(po)@FWBB.po,209:.@RWLB.r.18..@.WVBr.r.2:pe.po:po.be.(r.40).c:da..(po):.da.32.r.r.2:po.be.(r.40).c:.@.W.B.da.13..920@.W.B.800@.W.B.pe,va:fl..(pe):cu..(.(fl)):.pe,32@OX.Bva..(po):.po,209:.@ZX.B.c.0..@.X.Bc.c.2:pe.po:po.be.(r.40).c:da..(po):.da.32.c.c.2:po.be.(r.40).c:.@PX.B.da.13..920@YX.B.800@.X.B.pe,va:fl..(pe):cu..(.(fl)):.pe,32@.X.Bva..(po):.po,209:.@.X.B.c.18..@IY.Bc.c.2:pe.po:po.be.(r.40).c:da..(po):.da.32.c.c.2:po.be.(r.40).c:.@YY.B.da.13..920@"YBC.800@iYLC.pe,va:fl..(pe):cu..(.(fl)):.pe,32@.YVCva..(po):.po,209:.@YY C.da.63.cu..(.(1).10)@.Y*Cfu..(.(1).10):di.(40..(cl$(fu))).2@.Y4C.da.24.."S";.(cc$,di);.(rr$,2);cl$(fu);:.1050@.Y>C.da.160..1000@.YhC.@.YrC.cu.5..@HZ£C.c1.c.c1.c1.2@ZZFC.c1.c.c1.c1.2@,ZPC.r1.r.r1.r1.2@>ZZC.r1.r.r1.r1.2@LZ.C.ma,ve:ma.be.(r1.40).c1:..(ma).209..920:.@.Z.Cve..(ma):.ma,13:.@.Z.C.".";.(rr$,10);"the minotaur has eaten you"@.Z.C."S";.(rr$,13);"the number was";nu;@.Z.C.:.:.@K[.C."do you want another game(y/n):";@.[.C.a$:.a$."".960@.[.C.a$."y"..20@<[.C.a$."n"..@e[.C.960@Z[.C.".";.(rr$,2);.(rr$,3);"what is the number";:.vt@.[.C.vt..nu.."wrong, the number was ";nu:.940@.[.C."congratulations you have beaten minotaur"@.[FD.940@.[PD.".";:.930@B£ZD.i.1.1200:.:.@2£$Dcl$(6)."a factor of second digit is"..(i):.@A£.Dcl$(5)."a factor of first digit is"..(i):.@@@
00000000  16 10 0a 00 8f 20 4d 49  43 52 4f 20 4d 49 4e 4f  |..... MICRO MINO|
00000010  54 41 55 52 00 1c 10 14  00 9c 00 2c 10 1e 00 e8  |TAUR.......,....|
00000020  3a db 38 3a e7 31 2c 31  2c 33 00 6f 10 28 00 53  |:.8:.1,1,3.o.(.S|
00000030  43 b2 33 30 37 32 3a 43  4f b2 32 30 34 38 3a e7  |C.3072:CO.2048:.|
00000040  30 2c 37 2c 34 3a e7 34  2c 36 2c 34 3a 43 b2 30  |0,7,4:.4,6,4:C.0|
00000050  3a 52 b2 30 3a 50 4f b2  53 43 aa 28 52 ac 34 30  |:R.0:PO.SC.(R.40|
00000060  29 aa 43 3a 42 45 b2 53  43 aa 31 33 30 00 79 10  |).C:BE.SC.130.y.|
00000070  32 00 99 22 05 22 3b 00  93 10 3c 00 81 49 b2 31  |2..".";...<..I.1|
00000080  a4 32 34 3a 52 52 24 b2  52 52 24 aa 22 11 22 3a  |.24:RR$.RR$.".":|
00000090  82 00 ad 10 46 00 81 49  b2 31 a4 34 30 3a 43 43  |....F..I.1.40:CC|
000000a0  24 b2 43 43 24 aa 22 1d  22 3a 82 00 c7 10 50 00  |$.CC$.".":....P.|
000000b0  81 49 b2 31 a4 33 34 3a  43 4c 24 b2 43 4c 24 aa  |.I.1.34:CL$.CL$.|
000000c0  22 20 22 3a 82 00 ea 10  5a 00 48 24 b2 22 31 32  |" ":....Z.H$."12|
000000d0  33 34 35 36 37 38 39 3f  22 aa c7 28 32 34 29 3a  |3456789?"..(24):|
000000e0  86 43 4c 24 28 31 30 29  00 03 11 64 00 81 49 b2  |.CL$(10)...d..I.|
000000f0  53 43 a4 53 43 aa 33 39  3a 97 49 2c 31 36 30 3a  |SC.SC.39:.I,160:|
00000100  82 00 2c 11 6e 00 81 49  b2 53 43 aa 28 32 34 ac  |..,.n..I.SC.(24.|
00000110  34 30 29 a4 53 43 aa 28  32 34 ac 34 30 29 aa 33  |40).SC.(24.40).3|
00000120  39 3a 97 49 2c 31 36 30  3a 82 00 4d 11 78 00 81  |9:.I,160:..M.x..|
00000130  49 b2 53 43 a4 53 43 aa  28 32 34 ac 34 30 29 a9  |I.SC.SC.(24.40).|
00000140  34 30 3a 97 49 2c 31 36  30 3a 82 00 74 11 82 00  |40:.I,160:..t...|
00000150  81 49 b2 53 43 aa 33 39  a4 53 43 aa 28 32 34 ac  |.I.SC.39.SC.(24.|
00000160  34 30 29 aa 33 39 a9 34  30 3a 97 49 2c 31 36 30  |40).39.40:.I,160|
00000170  3a 82 00 a4 11 8c 00 99  22 13 12 20 20 20 20 20  |:......."..     |
00000180  20 20 20 20 4d 49 43 52  4f 20 4d 49 4e 4f 54 41  |    MICRO MINOTA|
00000190  55 52 22 3b 22 12 20 20  20 20 20 50 4c 41 59 45  |UR";".     PLAYE|
000001a0  52 22 00 bc 11 96 00 81  49 b2 53 43 aa 31 33 30  |R"......I.SC.130|
000001b0  a4 53 43 aa 38 35 30 a9  38 30 00 cc 11 a0 00 81  |.SC.850.80......|
000001c0  4a b2 49 a4 49 aa 31 38  a9 32 00 e6 11 aa 00 51  |J.I.I.18.2.....Q|
000001d0  b2 b5 28 bb 28 31 29 ac  31 32 29 3a 8b 51 b2 30  |..(.(1).12):.Q.0|
000001e0  a7 31 37 30 00 f9 11 b4  00 41 b2 c6 28 ca 28 48  |.170.....A..(.(H|
000001f0  24 2c 51 2c 31 29 29 00  06 12 be 00 97 4a 2c 41  |$,Q,1))......J,A|
00000200  3a 82 3a 82 00 23 12 c8  00 4e 55 b2 b5 28 bb 28  |:.:..#...NU..(.(|
00000210  31 29 ac 31 30 30 29 3a  8b 4e 55 b2 30 a7 32 30  |1).100):.NU.0.20|
00000220  30 00 49 12 d2 00 4e 55  24 b2 c4 28 4e 55 29 3a  |0.I...NU$..(NU):|
00000230  52 41 b2 b5 28 bb 28 31  29 ac 33 29 3a 8b 52 41  |RA..(.(1).3):.RA|
00000240  b2 30 a7 89 32 31 30 00  60 12 dc 00 8b 4e 55 b3  |.0..210.`....NU.|
00000250  31 30 a7 4e 55 24 b2 22  30 22 aa 4e 55 24 00 92  |10.NU$."0".NU$..|
00000260  12 e6 00 8b 52 41 b2 31  a7 43 4c 24 28 31 29 b2  |....RA.1.CL$(1).|
00000270  22 46 49 52 53 54 20 44  49 47 49 54 20 45 51 55  |"FIRST DIGIT EQU|
00000280  41 4c 53 20 22 aa ca 28  4e 55 24 2c 32 2c 31 29  |ALS "..(NU$,2,1)|
00000290  00 c5 12 f0 00 8b 52 41  b2 32 a7 43 4c 24 28 31  |......RA.2.CL$(1|
000002a0  29 b2 22 53 45 43 4f 4e  44 20 44 49 47 49 54 20  |)."SECOND DIGIT |
000002b0  45 51 55 41 4c 53 20 22  aa ca 28 4e 55 24 2c 33  |EQUALS "..(NU$,3|
000002c0  2c 31 29 00 d8 12 fa 00  43 4e b2 32 3a 81 49 b2  |,1).....CN.2:.I.|
000002d0  32 a4 4e 55 ab 31 00 f4  12 04 01 41 b2 4e 55 ad  |2.NU.1.....A.NU.|
000002e0  49 3a 42 b2 b5 28 41 29  3a 8b 41 b3 b1 42 a7 32  |I:B..(A):.A..B.2|
000002f0  39 30 00 02 13 0e 01 8b  43 4e b2 37 a7 33 30 30  |90......CN.7.300|
00000300  00 38 13 18 01 43 4c 24  28 43 4e 29 b2 22 41 20  |.8...CL$(CN)."A |
00000310  46 41 43 54 4f 52 20 4f  46 20 54 48 45 20 4e 55  |FACTOR OF THE NU|
00000320  4d 42 45 52 20 49 53 20  22 aa c4 28 41 29 3a 43  |MBER IS "..(A):C|
00000330  4e b2 43 4e aa 31 00 3e  13 22 01 82 00 6d 13 2c  |N.CN.1.>."...m.,|
00000340  01 8b 4e 55 ad 32 b2 b5  28 4e 55 ad 32 29 a7 43  |..NU.2..(NU.2).C|
00000350  4c 24 28 43 4e 29 b2 22  54 48 45 20 4e 55 4d 42  |L$(CN)."THE NUMB|
00000360  45 52 20 49 53 20 45 56  45 4e 22 00 9c 13 36 01  |ER IS EVEN"...6.|
00000370  8b 4e 55 ad 32 b3 b1 b5  28 4e 55 ad 32 29 a7 43  |.NU.2...(NU.2).C|
00000380  4c 24 28 43 4e 29 b2 22  54 48 45 20 4e 55 4d 42  |L$(CN)."THE NUMB|
00000390  45 52 20 49 53 20 4f 44  44 22 00 d5 13 40 01 47  |ER IS ODD"...@.G|
000003a0  42 b2 c5 28 ca 28 4e 55  24 2c 33 2c 31 29 29 3a  |B..(.(NU$,3,1)):|
000003b0  81 49 b2 32 a4 39 3a 41  b2 47 42 ad 49 3a 8b 41  |.I.2.9:A.GB.I:.A|
000003c0  b2 b5 28 47 42 ad 49 29  a7 8d 31 30 36 30 3a 89  |..(GB.I)..1060:.|
000003d0  33 34 30 00 db 13 4a 01  82 00 14 14 54 01 47 42  |340...J.....T.GB|
000003e0  b2 c5 28 ca 28 4e 55 24  2c 32 2c 31 29 29 3a 81  |..(.(NU$,2,1)):.|
000003f0  49 b2 32 a4 39 3a 41 b2  47 42 ad 49 3a 8b 41 b2  |I.2.9:A.GB.I:.A.|
00000400  b5 28 47 42 ad 49 29 a7  8d 31 30 37 30 3a 89 33  |.(GB.I)..1070:.3|
00000410  36 30 00 1a 14 5e 01 82  00 5a 14 68 01 53 44 b2  |60...^...Z.h.SD.|
00000420  c5 28 ca 28 4e 55 24 2c  32 2c 31 29 29 3a 8b 53  |.(.(NU$,2,1)):.S|
00000430  44 ad 32 b2 b5 28 53 44  ad 32 29 a7 43 4c 24 28  |D.2..(SD.2).CL$(|
00000440  37 29 b2 22 46 49 52 53  54 20 44 49 47 49 54 20  |7)."FIRST DIGIT |
00000450  49 53 20 45 56 45 4e 22  00 89 14 72 01 8b 53 44  |IS EVEN"...r..SD|
00000460  ad 32 b3 b1 b5 28 53 44  ad 32 29 a7 43 4c 24 28  |.2...(SD.2).CL$(|
00000470  37 29 b2 22 46 49 52 53  54 20 44 49 47 49 54 20  |7)."FIRST DIGIT |
00000480  49 53 20 4f 44 44 22 00  ca 14 7c 01 53 44 b2 c5  |IS ODD"...|.SD..|
00000490  28 ca 28 4e 55 24 2c 33  2c 31 29 29 3a 8b 53 44  |(.(NU$,3,1)):.SD|
000004a0  ad 32 b2 b5 28 53 44 ad  32 29 a7 43 4c 24 28 38  |.2..(SD.2).CL$(8|
000004b0  29 b2 22 53 45 43 4f 4e  44 20 44 49 47 49 54 20  |)."SECOND DIGIT |
000004c0  49 53 20 45 56 45 4e 22  00 fa 14 86 01 8b 53 44  |IS EVEN"......SD|
000004d0  ad 32 b3 b1 b5 28 53 44  ad 32 29 a7 43 4c 24 28  |.2...(SD.2).CL$(|
000004e0  38 29 b2 22 53 45 43 4f  4e 44 20 44 49 47 49 54  |8)."SECOND DIGIT|
000004f0  20 49 53 20 4f 44 44 22  00 38 15 90 01 81 49 b2  | IS ODD".8....I.|
00000500  31 a4 39 3a 8b 49 ac 49  b2 4e 55 a7 43 4c 24 28  |1.9:.I.I.NU.CL$(|
00000510  39 29 b2 22 4e 55 4d 42  45 52 20 49 53 20 54 48  |9)."NUMBER IS TH|
00000520  45 20 50 52 4f 44 55 43  54 20 4f 46 20 41 20 53  |E PRODUCT OF A S|
00000530  51 55 41 52 45 22 00 3e  15 9a 01 82 00 53 15 a4  |QUARE".>.....S..|
00000540  01 48 4f b2 42 45 aa 31  30 3a 97 48 4f 2c 31 36  |.HO.BE.10:.HO,16|
00000550  30 00 82 15 ae 01 43 31  b2 36 3a 52 31 b2 36 3a  |0.....C1.6:R1.6:|
00000560  4d 41 b2 42 45 aa 28 52  31 ac 34 30 29 aa 43 31  |MA.BE.(R1.40).C1|
00000570  3a 56 45 b2 c2 28 4d 41  29 3a 97 4d 41 2c 31 33  |:VE..(MA):.MA,13|
00000580  00 b0 15 b8 01 43 b2 31  30 3a 52 b2 31 38 3a 50  |.....C.10:R.18:P|
00000590  4f b2 42 45 aa 28 52 ac  34 30 29 aa 43 3a 56 41  |O.BE.(R.40).C:VA|
000005a0  b2 c2 28 50 4f 29 3a 97  50 4f 2c 32 30 39 00 ce  |..(PO):.PO,209..|
000005b0  15 c2 01 41 b2 c2 28 31  39 38 29 3a 97 4d 41 2c  |...A..(198):.MA,|
000005c0  31 33 3a 8b 41 b2 36 34  a7 35 35 30 00 dd 15 cc  |13:.A.64.550....|
000005d0  01 8b 41 b2 36 32 a7 8d  35 36 30 00 ec 15 d6 01  |..A.62..560.....|
000005e0  8b 41 b2 31 32 a7 8d 36  32 30 00 fb 15 e0 01 8b  |.A.12..620......|
000005f0  41 b2 33 33 a7 8d 36 38  30 00 0a 16 ea 01 8b 41  |A.33..680......A|
00000600  b2 34 31 a7 8d 37 34 30  00 1a 16 f4 01 8b 41 b2  |.41..740......A.|
00000610  32 32 a7 89 31 30 34 30  00 35 16 fe 01 8d 38 35  |22..1040.5....85|
00000620  30 3a da 32 2c 31 35 2c  31 32 3a da 31 2c 32 33  |0:.2,15,12:.1,23|
00000630  2c 32 33 00 55 16 08 02  99 22 13 22 3b c8 28 52  |,23.U....".";.(R|
00000640  52 24 2c 32 29 3b c8 28  43 43 24 2c 32 29 3b 43  |R$,2);.(CC$,2);C|
00000650  4c 24 3b 00 62 16 12 02  54 54 b2 54 54 aa 43 55  |L$;.b...TT.TT.CU|
00000660  00 a8 16 1c 02 99 22 13  22 3b c8 28 52 52 24 2c  |......".";.(RR$,|
00000670  32 33 29 3b c8 28 43 43  24 2c 37 29 3b 22 12 4c  |23);.(CC$,7);".L|
00000680  41 53 54 20 53 43 4f 52  45 3a 92 22 3b 43 55 3b  |AST SCORE:.";CU;|
00000690  22 20 20 12 54 4f 54 41  4c 20 53 43 4f 52 45 3a  |"  .TOTAL SCORE:|
000006a0  92 22 3b 54 54 3b 00 be  16 26 02 43 55 b2 30 3a  |.";TT;...&.CU.0:|
000006b0  97 4d 41 2c 31 34 31 3a  89 34 35 30 00 c9 16 30  |.MA,141:.450...0|
000006c0  02 8b 52 b2 30 a7 8e 00  0f 17 3a 02 52 b2 52 ab  |..R.0.....:.R.R.|
000006d0  32 3a 50 45 b2 50 4f 3a  50 4f b2 42 45 aa 28 52  |2:PE.PO:PO.BE.(R|
000006e0  ac 34 30 29 aa 43 3a 44  41 b2 c2 28 50 4f 29 3a  |.40).C:DA..(PO):|
000006f0  8b 44 41 b2 33 32 a7 52  b2 52 aa 32 3a 50 4f b2  |.DA.32.R.R.2:PO.|
00000700  42 45 aa 28 52 ac 34 30  29 aa 43 3a 8e 00 1f 17  |BE.(R.40).C:....|
00000710  44 02 8b 44 41 b2 31 33  a7 89 39 32 30 00 28 17  |D..DA.13..920.(.|
00000720  4e 02 8d 38 30 30 00 58  17 58 02 97 50 45 2c 56  |N..800.X.X..PE,V|
00000730  41 3a 46 4c b2 c2 28 50  45 29 3a 43 55 b2 c5 28  |A:FL..(PE):CU..(|
00000740  c7 28 46 4c 29 29 3a 97  50 45 2c 33 32 3a 56 41  |.(FL)):.PE,32:VA|
00000750  b2 c2 28 50 4f 29 00 66  17 62 02 97 50 4f 2c 32  |..(PO).f.b..PO,2|
00000760  30 39 3a 8e 00 72 17 6c  02 8b 52 b2 31 38 a7 8e  |09:..r.l..R.18..|
00000770  00 b8 17 76 02 52 b2 52  aa 32 3a 50 45 b2 50 4f  |...v.R.R.2:PE.PO|
00000780  3a 50 4f b2 42 45 aa 28  52 ac 34 30 29 aa 43 3a  |:PO.BE.(R.40).C:|
00000790  44 41 b2 c2 28 50 4f 29  3a 8b 44 41 b2 33 32 a7  |DA..(PO):.DA.32.|
000007a0  52 b2 52 ab 32 3a 50 4f  b2 42 45 aa 28 52 ac 34  |R.R.2:PO.BE.(R.4|
000007b0  30 29 aa 43 3a 8e 00 c8  17 80 02 8b 44 41 b2 31  |0).C:.......DA.1|
000007c0  33 a7 89 39 32 30 00 d1  17 8a 02 8d 38 30 30 00  |3..920......800.|
000007d0  f8 17 94 02 97 50 45 2c  56 41 3a 46 4c b2 c2 28  |.....PE,VA:FL..(|
000007e0  50 45 29 3a 43 55 b2 c5  28 c7 28 46 4c 29 29 3a  |PE):CU..(.(FL)):|
000007f0  97 50 45 2c 33 32 00 0f  18 9e 02 56 41 b2 c2 28  |.PE,32.....VA..(|
00000800  50 4f 29 3a 97 50 4f 2c  32 30 39 3a 8e 00 1a 18  |PO):.PO,209:....|
00000810  a8 02 8b 43 b2 30 a7 8e  00 60 18 b2 02 43 b2 43  |...C.0...`...C.C|
00000820  ab 32 3a 50 45 b2 50 4f  3a 50 4f b2 42 45 aa 28  |.2:PE.PO:PO.BE.(|
00000830  52 ac 34 30 29 aa 43 3a  44 41 b2 c2 28 50 4f 29  |R.40).C:DA..(PO)|
00000840  3a 8b 44 41 b2 33 32 a7  43 b2 43 aa 32 3a 50 4f  |:.DA.32.C.C.2:PO|
00000850  b2 42 45 aa 28 52 ac 34  30 29 aa 43 3a 8e 00 70  |.BE.(R.40).C:..p|
00000860  18 bc 02 8b 44 41 b2 31  33 a7 89 39 32 30 00 79  |....DA.13..920.y|
00000870  18 c6 02 8d 38 30 30 00  a0 18 d0 02 97 50 45 2c  |....800......PE,|
00000880  56 41 3a 46 4c b2 c2 28  50 45 29 3a 43 55 b2 c5  |VA:FL..(PE):CU..|
00000890  28 c7 28 46 4c 29 29 3a  97 50 45 2c 33 32 00 b7  |(.(FL)):.PE,32..|
000008a0  18 da 02 56 41 b2 c2 28  50 4f 29 3a 97 50 4f 2c  |...VA..(PO):.PO,|
000008b0  32 30 39 3a 8e 00 c3 18  e4 02 8b 43 b2 31 38 a7  |209:.......C.18.|
000008c0  8e 00 09 19 ee 02 43 b2  43 aa 32 3a 50 45 b2 50  |......C.C.2:PE.P|
000008d0  4f 3a 50 4f b2 42 45 aa  28 52 ac 34 30 29 aa 43  |O:PO.BE.(R.40).C|
000008e0  3a 44 41 b2 c2 28 50 4f  29 3a 8b 44 41 b2 33 32  |:DA..(PO):.DA.32|
000008f0  a7 43 b2 43 ab 32 3a 50  4f b2 42 45 aa 28 52 ac  |.C.C.2:PO.BE.(R.|
00000900  34 30 29 aa 43 3a 8e 00  19 19 f8 02 8b 44 41 b2  |40).C:.......DA.|
00000910  31 33 a7 89 39 32 30 00  22 19 02 03 8d 38 30 30  |13..920."....800|
00000920  00 49 19 0c 03 97 50 45  2c 56 41 3a 46 4c b2 c2  |.I....PE,VA:FL..|
00000930  28 50 45 29 3a 43 55 b2  c5 28 c7 28 46 4c 29 29  |(PE):CU..(.(FL))|
00000940  3a 97 50 45 2c 33 32 00  60 19 16 03 56 41 b2 c2  |:.PE,32.`...VA..|
00000950  28 50 4f 29 3a 97 50 4f  2c 32 30 39 3a 8e 00 79  |(PO):.PO,209:..y|
00000960  19 20 03 8b 44 41 b2 36  33 a7 43 55 b2 b5 28 bb  |. ..DA.63.CU..(.|
00000970  28 31 29 ac 31 30 29 00  a0 19 2a 03 46 55 b2 b5  |(1).10)...*.FU..|
00000980  28 bb 28 31 29 ac 31 30  29 3a 44 49 b2 28 34 30  |(.(1).10):DI.(40|
00000990  ab c3 28 43 4c 24 28 46  55 29 29 29 ad 32 00 d2  |..(CL$(FU))).2..|
000009a0  19 34 03 8b 44 41 b2 32  34 a7 99 22 13 22 3b c8  |.4..DA.24..".";.|
000009b0  28 43 43 24 2c 44 49 29  3b c8 28 52 52 24 2c 32  |(CC$,DI);.(RR$,2|
000009c0  29 3b 43 4c 24 28 46 55  29 3b 3a 8d 31 30 35 30  |);CL$(FU);:.1050|
000009d0  00 e4 19 3e 03 8b 44 41  b2 31 36 30 a7 8d 31 30  |...>..DA.160..10|
000009e0  30 30 00 ea 19 48 03 8e  00 f6 19 52 03 8b 43 55  |00...H.....R..CU|
000009f0  b3 35 a7 8e 00 08 1a 5c  03 8b 43 31 b1 43 a7 43  |.5.....\..C1.C.C|
00000a00  31 b2 43 31 ab 32 00 1a  1a 66 03 8b 43 31 b3 43  |1.C1.2...f..C1.C|
00000a10  a7 43 31 b2 43 31 aa 32  00 2c 1a 70 03 8b 52 31  |.C1.C1.2.,.p..R1|
00000a20  b1 52 a7 52 31 b2 52 31  ab 32 00 3e 1a 7a 03 8b  |.R.R1.R1.2.>.z..|
00000a30  52 31 b3 52 a7 52 31 b2  52 31 aa 32 00 6c 1a 84  |R1.R.R1.R1.2.l..|
00000a40  03 97 4d 41 2c 56 45 3a  4d 41 b2 42 45 aa 28 52  |..MA,VE:MA.BE.(R|
00000a50  31 ac 34 30 29 aa 43 31  3a 8b c2 28 4d 41 29 b2  |1.40).C1:..(MA).|
00000a60  32 30 39 a7 8d 39 32 30  3a 90 00 82 1a 8e 03 56  |209..920:......V|
00000a70  45 b2 c2 28 4d 41 29 3a  97 4d 41 2c 31 33 3a 8e  |E..(MA):.MA,13:.|
00000a80  00 b2 1a 98 03 99 22 93  22 3b c8 28 52 52 24 2c  |......".";.(RR$,|
00000a90  31 30 29 3b 22 54 48 45  20 4d 49 4e 4f 54 41 55  |10);"THE MINOTAU|
00000aa0  52 20 48 41 53 20 45 41  54 45 4e 20 59 4f 55 22  |R HAS EATEN YOU"|
00000ab0  00 da 1a a2 03 99 22 13  22 3b c8 28 52 52 24 2c  |......".";.(RR$,|
00000ac0  31 33 29 3b 22 54 48 45  20 4e 55 4d 42 45 52 20  |13);"THE NUMBER |
00000ad0  57 41 53 22 3b 4e 55 3b  00 e4 1a ac 03 99 3a 99  |WAS";NU;......:.|
00000ae0  3a 99 00 0b 1b b6 03 99  22 44 4f 20 59 4f 55 20  |:......."DO YOU |
00000af0  57 41 4e 54 20 41 4e 4f  54 48 45 52 20 47 41 4d  |WANT ANOTHER GAM|
00000b00  45 28 59 2f 4e 29 3a 22  3b 00 1e 1b c0 03 a1 41  |E(Y/N):";......A|
00000b10  24 3a 8b 41 24 b2 22 22  a7 39 36 30 00 2e 1b ca  |$:.A$."".960....|
00000b20  03 8b 41 24 b2 22 59 22  a7 89 32 30 00 3c 1b d4  |..A$."Y"..20.<..|
00000b30  03 8b 41 24 b2 22 4e 22  a7 80 00 45 1b de 03 89  |..A$."N"...E....|
00000b40  39 36 30 00 7a 1b e8 03  99 22 93 22 3b c8 28 52  |960.z....".";.(R|
00000b50  52 24 2c 32 29 3b c8 28  52 52 24 2c 33 29 3b 22  |R$,2);.(RR$,3);"|
00000b60  57 48 41 54 20 49 53 20  54 48 45 20 4e 55 4d 42  |WHAT IS THE NUMB|
00000b70  45 52 22 3b 3a 85 56 54  00 a8 1b f2 03 8b 56 54  |ER";:.VT......VT|
00000b80  b3 b1 4e 55 a7 99 22 57  52 4f 4e 47 2c 20 54 48  |..NU.."WRONG, TH|
00000b90  45 20 4e 55 4d 42 45 52  20 57 41 53 20 22 3b 4e  |E NUMBER WAS ";N|
00000ba0  55 3a 89 39 34 30 00 d8  1b fc 03 99 22 43 4f 4e  |U:.940......"CON|
00000bb0  47 52 41 54 55 4c 41 54  49 4f 4e 53 20 59 4f 55  |GRATULATIONS YOU|
00000bc0  20 48 41 56 45 20 42 45  41 54 45 4e 20 4d 49 4e  | HAVE BEATEN MIN|
00000bd0  4f 54 41 55 52 22 00 e1  1b 06 04 89 39 34 30 00  |OTAUR"......940.|
00000be0  f0 1b 10 04 99 22 93 22  3b 3a 89 39 33 30 00 02  |.....".";:.930..|
00000bf0  1c 1a 04 81 49 b2 31 a4  31 32 30 30 3a 82 3a 8e  |....I.1.1200:.:.|
00000c00  00 32 1c 24 04 43 4c 24  28 36 29 b2 22 41 20 46  |.2.$.CL$(6)."A F|
00000c10  41 43 54 4f 52 20 4f 46  20 53 45 43 4f 4e 44 20  |ACTOR OF SECOND |
00000c20  44 49 47 49 54 20 49 53  22 aa c4 28 49 29 3a 8e  |DIGIT IS"..(I):.|
00000c30  00 61 1c 2e 04 43 4c 24  28 35 29 b2 22 41 20 46  |.a...CL$(5)."A F|
00000c40  41 43 54 4f 52 20 4f 46  20 46 49 52 53 54 20 44  |ACTOR OF FIRST D|
00000c50  49 47 49 54 20 49 53 22  aa c4 28 49 29 3a 8e 00  |IGIT IS"..(I):..|
00000c60  00 00                                             |..|
00000c62