RULER MACHINE

00000000: 01 08 17 08 00 00 97 35  33 32 38 30 2C 30 3A 97  |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00  3D 08 64 00 86 20 41 24  |53281,0.=.d.. A$|
00000020: 28 32 29 2C 42 24 28 31  33 29 2C 43 24 28 33 29  |(2),B$(13),C$(3)|
00000030: 2C 52 24 28 31 35 29 2C  4D 28 32 30 29 00 5E 08  |,R$(15),M(20).^.|
00000040: 96 00 8F 20 2A 2A 2A 43  41 4C 4C 20 49 4E 49 54  |... ***CALL INIT|
00000050: 49 41 4C 49 5A 41 54 49  4F 4E 53 2A 2A 2A 00 69  |IALIZATIONS***.i|
00000060: 08 A0 00 8D 20 35 30 30  30 00 8A 08 86 01 8F 20  |.... 5000...... |
00000070: 2A 2A 2A 2A 2A 2A 2A 49  4E 53 54 52 55 43 54 49  |*******INSTRUCTI|
00000080: 4F 4E 53 2A 2A 2A 2A 2A  2A 2A 00 95 08 90 01 99  |ONS*******......|
00000090: C7 28 31 34 29 00 CA 08  9A 01 99 22 93 1E 2A 2A  |.(14)......"..**|
000000A0: 2A 81 20 C3 CF CD CD CF  C4 CF D2 C5 20 36 34 20  |*. ......... 64 |
000000B0: 1E 2A 2A 2A 2A 2A 81 20  D2 D5 CC C5 D2 A0 CD C1  |.*****. ........|
000000C0: C3 C8 C9 CE C5 1E 20 2A  2A 2A 00 F5 08 A4 01 99  |...... ***......|
000000D0: 22 1C D7 48 45 4E 20 59  4F 55 20 46 45 45 44 20  |"..HEN YOU FEED |
000000E0: 4D 45 20 41 20 4E 55 4D  42 45 52 2C 20 49 20 55  |ME A NUMBER, I U|
000000F0: 53 45 20 4D 59 00 1E 09  AE 01 99 22 11 20 20 12  |SE MY......".  .|
00000100: D3 C5 C3 D2 C5 D4 20 D2  D5 CC C5 92 20 54 4F 20  |...... ..... TO |
00000110: 43 48 41 4E 47 45 20 49  54 20 49 4E 54 4F 00 37  |CHANGE IT INTO.7|
00000120: 09 B8 01 99 22 20 11 20  41 4E 4F 54 48 45 52 20  |...." . ANOTHER |
00000130: 4E 55 4D 42 45 52 2E 00  62 09 C2 01 99 22 11 9C  |NUMBER..b...."..|
00000140: 11 D3 45 45 20 49 46 20  59 4F 55 20 43 41 4E 20  |..EE IF YOU CAN |
00000150: 47 55 45 53 53 20 4D 59  20 12 D2 D5 CC C5 92 21  |GUESS MY ......!|
00000160: 21 21 00 90 09 CC 01 99  22 11 1F 11 C8 4F 57 20  |!!......"....OW |
00000170: 44 49 46 46 49 43 55 4C  54 20 41 20 12 D2 D5 CC  |DIFFICULT A ....|
00000180: C5 92 20 53 48 41 4C 4C  20 C9 20 55 53 45 20 3F  |.. SHALL . USE ?|
00000190: 00 C0 09 D6 01 99 22 11  20 28 D4 59 50 45 20 31  |......". (.YPE 1|
000001A0: 2C 32 2C 33 2C 34 20 4F  52 20 35 20 2D 2D 20 31  |,2,3,4 OR 5 -- 1|
000001B0: 3D C5 41 53 59 2E 2E 2E  35 3D C8 41 52 44 29 11  |=.ASY...5=.ARD).|
000001C0: 00 F0 09 E0 01 99 22 11  11 11 20 20 20 20 20 28  |......"...     (|
000001D0: C2 45 20 53 55 52 45 20  54 4F 20 50 52 45 53 53  |.E SURE TO PRESS|
000001E0: 20 12 D2 C5 D4 D5 D2 CE  92 20 29 91 91 05 91 22  | ........ )...."|
000001F0: 00 1F 0A F4 01 99 22 91  91 22 3A 99 22 20 20 20  |......"..":."   |
00000200: 20 20 20 20 20 20 20 20  20 20 20 20 20 3F 20 20  |             ?  |
00000210: 20 20 20 20 20 9D 9D 9D  9D 9D 9D 9D 9D 22 3B 00  |     ........";.|
00000220: 33 0A FE 01 8D 32 35 30  30 3A 56 B2 C5 28 4E 24  |3....2500:V..(N$|
00000230: 29 AB 31 00 59 0A 08 02  8B 56 AC 28 56 AB 31 29  |).1.Y....V.(V.1)|
00000240: AC 28 56 AB 32 29 AC 28  56 AB 33 29 AC 28 56 AB  |.(V.2).(V.3).(V.|
00000250: 34 29 B3 B1 30 A7 35 30  30 00 7A 0A 12 02 41 B2  |4)..0.500.z...A.|
00000260: B5 28 33 AC BB 28 31 29  AA 32 29 3A 42 B2 B5 28  |.(3..(1).2):B..(|
00000270: 31 30 AC BB 28 31 29 AA  33 29 00 99 0A 17 02 58  |10..(1).3).....X|
00000280: B2 33 AC 56 AA B5 28 33  AC BB 28 31 29 29 AA 31  |.3.V..(3..(1)).1|
00000290: 3A 8B 56 B2 58 A7 35 33  35 00 A1 0A 1C 02 56 B2  |:.V.X.535.....V.|
000002A0: 58 00 D5 0A 21 02 91 56  8D 34 30 30 30 2C 34 30  |X...!..V.4000,40|
000002B0: 31 30 2C 34 30 32 30 2C  34 30 33 30 2C 34 30 34  |10,4020,4030,404|
000002C0: 30 2C 34 30 35 30 2C 34  30 36 30 2C 34 30 37 30  |0,4050,4060,4070|
000002D0: 2C 34 30 38 30 00 03 0B  26 02 8B 56 B1 39 A7 91  |,4080...&..V.9..|
000002E0: 28 56 AB 39 29 8D 34 30  39 30 2C 34 31 30 30 2C  |(V.9).4090,4100,|
000002F0: 34 31 31 30 2C 34 31 32  30 2C 34 31 33 30 2C 34  |4110,4120,4130,4|
00000300: 31 34 30 00 0F 0B 2B 02  99 C7 28 31 34 32 29 00  |140...+...(142).|
00000310: 30 0B 30 02 8F 20 2A 2A  2A 2A 2A 44 52 41 57 20  |0.0.. *****DRAW |
00000320: 54 48 45 20 4D 41 43 48  49 4E 45 2A 2A 2A 2A 2A  |THE MACHINE*****|
00000330: 00 55 0B 3A 02 99 22 93  1C 11 11 11 11 11 1D 1D  |.U.:..".........|
00000340: 1D 12 20 20 20 92 9D 9D  9D 11 DF 12 20 92 A9 9D  |..   ....... ...|
00000350: 9D 9D 11 22 3B 00 79 0B  44 02 99 22 A7 12 20 92  |...";.y.D..".. .|
00000360: A5 9D 9D 9D 11 A7 12 20  92 A5 9D 9D 9D 11 A7 12  |....... ........|
00000370: A0 92 A5 9D 9D 9D 11 22  3B 00 9D 0B 4E 02 99 22  |.......";...N.."|
00000380: A7 12 20 92 A5 9D 9D 9D  11 A7 12 20 92 CC 9D 9D  |.. ........ ....|
00000390: 9D 11 A7 12 20 20 92 9D  9D 11 A3 22 3B 00 BF 0B  |....  .....";...|
000003A0: 58 02 99 22 A3 91 91 A4  9D 11 12 20 92 9D 11 A3  |X.."....... ....|
000003B0: 91 91 A4 9D 11 12 20 92  9D 11 A3 91 91 22 3B 00  |...... ......";.|
000003C0: DB 0B 62 02 99 22 A4 9D  11 12 20 92 9D 11 A3 91  |..b..".... .....|
000003D0: 91 05 BA 1C 9D 11 12 20  92 22 3B 00 00 0C 6C 02  |....... .";...l.|
000003E0: 99 22 05 9D 11 D0 9D 91  91 91 A7 91 A4 A4 81 BA  |."..............|
000003F0: CC 9D 9D 91 A7 A5 9D 9D  91 A7 A5 9D 9D 91 22 3B  |..............";|
00000400: 00 26 0C 76 02 99 22 9C  CE CD 9D 9D 9D 11 CE 1D  |.&.v..".........|
00000410: 1D CD 9D 9D 9D 9D 9D 11  D7 1D 1D 1D 1D D1 9D 05  |................|
00000420: 9D 11 A4 A4 22 3B 00 57  0C 80 02 99 22 05 A4 A4  |....";.W...."...|
00000430: 1F BA A6 CC 9D 9D 9D 91  1F A7 A6 A5 9D 9D 9D 91  |................|
00000440: A7 A6 A5 9D 9D 9D 91 A7  A6 A5 05 11 11 11 11 A5  |................|
00000450: 9D 11 A5 9D 11 22 3B 00  7B 0C 8A 02 99 22 12 20  |.....";.{....". |
00000460: 92 A1 9D 91 D5 C0 C9 9D  11 DD 9D 11 CB 9D 9D C0  |................|
00000470: 9D 9D CA 9D 9D A5 9D 11  A5 22 3B 00 A1 0C 94 02  |.........";.....|
00000480: 99 22 1C 9D 11 12 DF 9D  11 20 DF 9D 9D 11 92 DF  |."....... ......|
00000490: 12 20 DF 9D 9D 11 92 DF  12 20 DF 9D 9D 11 92 22  |. ....... ....."|
000004A0: 3B 00 C8 0C 9E 02 99 22  DF A9 9D 9D 9D 9D 91 A5  |;......"........|
000004B0: 9D 9D 11 05 A3 9D 9D A3  9D 9D A3 9D 9D A3 9D 9D  |................|
000004C0: A3 9D 9D A3 9D 9D 22 3B  00 EF 0C A8 02 99 22 A3  |......";......".|
000004D0: 9D 9D A3 9D 9D A3 9D 9D  A3 9D 9D A3 9D 9D 91 A7  |................|
000004E0: 9D 91 A7 9D 91 A7 9D 91  A7 9D 91 A7 1C 22 3B 00  |.............";.|
000004F0: 13 0D B2 02 99 22 1D 1D  91 91 99 D5 C9 D5 C0 C9  |....."..........|
00000500: D5 C9 9D 9D 9D 9D 9D 9D  9D 11 CA CB CA C0 CB CA  |................|
00000510: CB 22 3B 00 37 0D BC 02  99 22 05 9D 9D 9D 9D 9D  |.";.7...."......|
00000520: 9D 9D 11 11 11 4F 4E 20  20 12 4F 46 46 92 1D 1D  |.....ON  .OFF...|
00000530: 1D 1D 1D 1D 1D 22 3B 00  5C 0D C6 02 99 22 9A 1D  |.....";.\...."..|
00000540: 1D 1D 1D 91 91 91 91 91  91 91 91 91 91 91 91 91  |................|
00000550: 91 91 49 4E 20 DD 20 4F  55 54 22 3B 00 85 0D D0  |..IN . OUT";....|
00000560: 02 99 22 9D 9D 9D 9D 9D  9D 9D 9D 9D 11 C0 C0 C0  |..".............|
00000570: C0 DB C0 C0 C0 C0 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000580: 9D 9D 11 22 3B 00 BB 0D  DA 02 81 4A B2 31 A4 31  |...";......J.1.1|
00000590: 37 3A 99 22 20 20 20 20  20 20 20 DD A0 20 20 20  |7:."       ..   |
000005A0: 20 20 20 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |   .............|
000005B0: 9D 9D 11 22 3B 3A 82 3A  57 B2 31 00 CA 0D DF 02  |...";:.:W.1.....|
000005C0: 99 22 13 22 3B 46 24 3B  53 24 00 EC 0D E4 02 8F  |.".";F$;S$......|
000005D0: 20 2A 2A 2A 2A 2A 2A 2A  4D 41 43 48 49 4E 45 20  | *******MACHINE |
000005E0: 49 4E 50 55 54 2A 2A 2A  2A 2A 2A 2A 00 04 0E E9  |INPUT*******....|
000005F0: 02 99 22 13 12 57 48 41  54 20 47 4F 45 53 20 49  |.."..WHAT GOES I|
00000600: 4E 3F 11 22 00 25 0E EE  02 99 22 13 11 1D 2D 3E  |N?.".%...."...->|
00000610: 20 20 20 20 20 20 20 9D  9D 9D 9D 9D 9D 22 3B 3A  |       ......";:|
00000620: 8D 32 35 30 30 00 39 0E  F8 02 8B 57 B3 35 AF 4E  |.2500.9....W.5.N|
00000630: 24 B2 22 52 22 A7 37 35  30 00 50 0E FD 02 99 22  |$."R".750.P...."|
00000640: 13 11 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |..             "|
00000650: 00 61 0E 02 03 8B 4E 24  B2 22 52 22 A7 33 34 39  |.a....N$."R".349|
00000660: 35 00 82 0E 0C 03 4C B2  C3 28 4E 24 29 3A 58 B2  |5.....L..(N$):X.|
00000670: C5 28 4E 24 29 3A 59 31  B2 31 45 39 3A 48 24 B2  |.(N$):Y1.1E9:H$.|
00000680: 4E 24 00 8F 0E 16 03 8B  57 B2 31 A7 39 30 30 00  |N$......W.1.900.|
00000690: A8 0E 20 03 81 4A B2 31  A4 57 AB 31 3A 8B 58 B2  |.. ..J.1.W.1:.X.|
000006A0: 4D 28 4A 29 A7 38 32 30  00 B3 0E 2A 03 82 3A 89  |M(J).820...*..:.|
000006B0: 38 36 35 00 D8 0E 2F 03  8F 20 48 41 53 20 48 45  |865.../.. HAS HE|
000006C0: 20 50 49 43 4B 45 44 20  54 48 41 54 20 4E 4F 2E  | PICKED THAT NO.|
000006D0: 20 42 45 46 4F 52 45 3F  00 F2 0E 34 03 48 B2 31  | BEFORE?...4.H.1|
000006E0: 31 33 30 AA 34 30 AC 4A  3A 81 4A B2 48 A4 48 AA  |130.40.J:.J.H.H.|
000006F0: 31 33 00 09 0F 3E 03 97  4A 2C C2 28 4A 29 AA 31  |13...>..J,.(J).1|
00000700: 32 38 3A 82 3A 54 B2 54  49 00 1B 0F 48 03 8B 54  |28:.:T.TI...H..T|
00000710: 49 AB 54 B3 31 35 30 A7  38 34 30 00 35 0F 52 03  |I.T.150.840.5.R.|
00000720: 81 4A B2 48 A4 48 AA 31  33 3A 97 4A 2C C2 28 4A  |.J.H.H.13:.J,.(J|
00000730: 29 AB 31 32 38 00 40 0F  5C 03 82 3A 89 37 34 35  |).128.@.\..:.745|
00000740: 00 4D 0F 61 03 8B 57 B3  34 A7 39 30 30 00 7D 0F  |.M.a..W.4.900.}.|
00000750: 66 03 99 22 13 22 3B 46  24 3B 22 05 12 47 55 45  |f..".";F$;"..GUE|
00000760: 53 53 20 57 48 41 54 20  57 49 4C 4C 20 43 4F 4D  |SS WHAT WILL COM|
00000770: 45 20 4F 55 54 3F 92 20  2D 3E 20 22 3B 00 94 0F  |E OUT?. -> ";...|
00000780: 70 03 8D 32 35 30 30 3A  8B 4E 24 B2 22 52 22 A7  |p..2500:.N$."R".|
00000790: 33 34 39 30 00 A1 0F 7A  03 59 31 B2 C5 28 4E 24  |3490...z.Y1..(N$|
000007A0: 29 00 C3 0F 7F 03 8F 20  2A 2A 2A 2A 2A 53 54 41  |)...... *****STA|
000007B0: 52 54 20 54 48 45 20 4D  41 43 48 49 4E 45 2A 2A  |RT THE MACHINE**|
000007C0: 2A 2A 2A 00 DF 0F 84 03  99 44 24 3B 22 1D 1D 1D  |***......D$;"...|
000007D0: 11 05 11 11 11 12 4F 4E  92 20 20 4F 46 46 22 00  |......ON.  OFF".|
000007E0: FA 0F 8E 03 52 B2 30 3A  43 B2 AB 31 3A 51 B2 31  |....R.0:C..1:Q.1|
000007F0: 3A 50 B2 30 3A 4E 24 B2  48 24 00 18 10 98 03 99  |:P.0:N$.H$......|
00000800: 22 05 13 11 11 22 3B C8  28 46 24 2C 57 29 3B A6  |"....";.(F$,W);.|
00000810: 33 32 AB 4C 29 3B 4E 24  00 2E 10 E8 03 43 B2 43  |32.L);N$.....C.C|
00000820: AA 31 AA 28 28 43 B2 38  29 AC 34 29 AC 51 00 48  |.1.((C.8).4).Q.H|
00000830: 10 F2 03 46 B2 31 AB 46  3A 52 B2 28 52 AA 31 29  |...F.1.F:R.(R.1)|
00000840: AC AB 28 52 B3 B1 32 29  00 7D 10 10 04 99 22 13  |..(R..2).}....".|
00000850: 11 11 11 11 1D 1D 1D 1D  1D 1D 1D 1D 1D 22 3B 41  |.............";A|
00000860: 24 28 52 29 3B 22 1D 1D  91 91 91 91 91 91 22 3B  |$(R);"........";|
00000870: 42 24 28 43 29 3B 22 9D  9D 9D 11 22 3B 00 98 10  |B$(C);"....";...|
00000880: 1A 04 8B 46 B2 30 A7 99  22 20 20 20 11 11 11 11  |...F.0.."   ....|
00000890: 11 11 11 1D 1D 20 22 3B  00 B4 10 24 04 8B 46 B2  |..... ";...$..F.|
000008A0: 31 A7 99 22 1F A7 A6 A5  11 11 11 11 11 11 11 1D  |1.."............|
000008B0: 1D 2A 22 3B 00 CE 10 2E  04 8B 50 B1 31 34 A7 99  |.*";......P.14..|
000008C0: 22 9D 9D 9D 9D 9D 22 3B  43 24 28 52 29 3B 00 DD  |".....";C$(R);..|
000008D0: 10 38 04 8B 43 B2 31 33  A7 32 30 30 30 00 EE 10  |.8..C.13.2000...|
000008E0: 42 04 8B 43 B1 38 AF 52  B2 30 A7 52 B2 32 00 FE  |B..C.8.R.0.R.2..|
000008F0: 10 4C 04 8B 50 B3 B1 31  39 A7 31 31 38 30 00 1A  |.L..P..19.1180..|
00000900: 11 56 04 59 B2 A5 41 28  58 29 3A 4E 24 B2 C4 28  |.V.Y..A(X):N$..(|
00000910: 59 29 3A 4C B2 C3 28 4E  24 29 00 39 11 60 04 81  |Y):L..(N$).9.`..|
00000920: 4A B2 31 A4 4C 3A 8B CA  28 4E 24 2C 4A 2C 31 29  |J.1.L:..(N$,J,1)|
00000930: B2 22 45 22 A7 31 31 35  30 00 4A 11 6A 04 82 4A  |."E".1150.J.j..J|
00000940: 3A 8B 4C B3 37 A7 31 31  38 30 00 6C 11 74 04 8B  |:.L.7.1180.l.t..|
00000950: B6 28 59 29 B3 B2 39 39  39 39 39 A7 4E 24 B2 C8  |.(Y)..99999.N$..|
00000960: 28 4E 24 2C 36 29 3A 89  31 31 37 30 00 7C 11 7E  |(N$,6):.1170.|.~|
00000970: 04 4E 24 B2 22 2B 4C 41  52 47 45 22 00 91 11 88  |.N$."+LARGE"....|
00000980: 04 8B 59 B3 30 A7 4E 24  B2 22 2D 4C 41 52 47 45  |..Y.0.N$."-LARGE|
00000990: 22 00 99 11 92 04 4C B2  36 00 C2 11 9C 04 8B 50  |".....L.6......P|
000009A0: AB 4C B2 31 39 A7 51 B2  30 3A 99 44 24 3B 22 1D  |.L.19.Q.0:.D$;".|
000009B0: 1D 1D 05 11 11 11 11 4F  4E 20 20 12 4F 46 46 92  |.......ON  .OFF.|
000009C0: 22 3B 00 DA 11 A6 04 8B  50 B3 4C AA 32 A7 97 31  |";......P.L.2..1|
000009D0: 31 34 36 AA 4C AB 50 2C  33 32 00 F4 11 B0 04 50  |146.L.P,32.....P|
000009E0: B2 50 AA 31 3A 99 C8 28  44 24 2C 50 AA 39 29 3B  |.P.1:..(D$,P.9);|
000009F0: 22 12 22 3B 00 0D 12 B5  04 8B 50 B1 32 30 A7 99  |".";......P.20..|
00000A00: C8 28 45 24 2C 32 AC 50  AB 32 36 29 3B 00 28 12  |.(E$,2.P.26);.(.|
00000A10: B9 04 8F 20 4E 4F 2E 53  20 54 48 52 55 20 54 48  |... NO.S THRU TH|
00000A20: 45 20 54 55 42 45 53 3A  00 4A 12 BA 04 81 4A B2  |E TUBES:.J....J.|
00000A30: 31 A4 4C 3A 49 B2 50 AB  4A 3A 49 24 B2 CA 28 4E  |1.L:I.P.J:I$..(N|
00000A40: 24 2C 4C AB 4A AA 31 2C  31 29 00 6B 12 C4 04 8B  |$,L.J.1,1).k....|
00000A50: 28 49 B3 30 B0 49 B1 32  33 29 B0 28 49 B1 31 32  |(I.0.I.23).(I.12|
00000A60: AF 49 B3 32 31 29 A7 31  32 36 30 00 78 12 CE 04  |.I.21).1260.x...|
00000A70: 99 22 1C 22 3B 49 24 3B  00 88 12 D8 04 8B 49 B3  |.".";I$;......I.|
00000A80: 38 A7 99 22 91 9D 22 3B  00 98 12 E2 04 8B 49 B1  |8.."..";......I.|
00000A90: 37 A7 99 22 9D 9D 22 3B  00 A8 12 E7 04 8B 49 B1  |7.."..";......I.|
00000AA0: 32 31 A7 99 22 91 22 3B  00 CE 12 EC 04 8B 49 B2  |21..".";......I.|
00000AB0: 32 34 A7 48 B2 C6 28 49  24 29 3A 97 31 38 39 31  |24.H..(I$):.1891|
00000AC0: AB 4A 2C 48 AA 36 34 AC  28 48 B1 36 34 29 00 D4  |.J,H.64.(H.64)..|
00000AD0: 12 F1 04 82 00 EE 12 F6  04 8B 49 B1 30 AF 49 B3  |..........I.0.I.|
00000AE0: 31 35 B0 49 B1 32 31 A7  99 22 1C 20 22 3B 00 FE  |15.I.21..". ";..|
00000AF0: 12 00 05 99 22 92 22 3B  3A 89 31 30 30 30 00 19  |....".";:.1000..|
00000B00: 13 D0 07 99 44 24 3B 22  1D 1D 1D 1D 1D 1D 1D 1D  |....D$;"........|
00000B10: 1D 1D 22 3B 43 24 28 33  29 00 32 13 DA 07 81 4A  |..";C$(3).2....J|
00000B20: B2 31 38 38 32 A4 31 38  39 30 3A 97 4A 2C 33 32  |.1882.1890:.J,32|
00000B30: 3A 82 00 4D 13 E4 07 99  22 13 11 11 22 3B C8 28  |:..M...."...";.(|
00000B40: 46 24 2C 57 29 3B A6 33  34 29 3B 4E 24 00 6E 13  |F$,W);.34);N$.n.|
00000B50: E9 07 49 24 B2 C4 28 59  31 29 3A 8B C3 28 49 24  |..I$..(Y1):..(I$|
00000B60: 29 B1 36 A7 49 24 B2 C8  28 49 24 2C 36 29 00 83  |).6.I$..(I$,6)..|
00000B70: 13 EE 07 8B 49 24 B3 B1  4E 24 B0 57 B2 31 A7 32  |....I$..N$.W.1.2|
00000B80: 31 30 30 00 98 13 F8 07  4E B2 36 30 3A 81 4A B2  |100.....N.60:.J.|
00000B90: 30 A4 35 3A 54 B2 54 49  00 AA 13 02 08 8B 54 49  |0.5:T.TI......TI|
00000BA0: AB 54 B3 31 38 A7 32 30  35 30 00 B8 13 0C 08 4E  |.T.18.2050.....N|
00000BB0: B2 31 31 33 AB 4E 3A 82  00 E4 13 16 08 99 22 13  |.113.N:.......".|
00000BC0: 22 3B 46 24 3B 22 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |";F$;"..........|
00000BD0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000BE0: 20 20 22 3B 00 FE 13 20  08 99 22 05 12 59 4F 55  |  ";... .."..YOU|
00000BF0: 20 47 4F 54 20 49 54 21  22 3A 54 B2 54 49 00 11  | GOT IT!":T.TI..|
00000C00: 14 2A 08 8B 54 49 AB 54  B3 31 34 30 A7 32 30 39  |.*..TI.T.140.209|
00000C10: 30 00 2D 14 34 08 99 22  13 22 3B 46 24 3B 53 24  |0.-.4..".";F$;S$|
00000C20: 3A 4D 28 57 29 B2 58 3A  57 B2 57 AA 31 00 4C 14  |:M(W).X:W.W.1.L.|
00000C30: 3E 08 8B 57 B3 31 37 A7  99 22 13 11 05 11 11 11  |>..W.17.."......|
00000C40: 22 3B A6 33 31 29 3B 3A  89 37 34 35 00 56 14 48  |";.31);:.745.V.H|
00000C50: 08 89 33 35 30 30 00 78  14 BA 09 8F 20 47 45 4E  |..3500.x.... GEN|
00000C60: 45 52 41 4C 49 5A 45 44  20 49 4E 50 55 54 20 55  |ERALIZED INPUT U|
00000C70: 53 49 4E 47 20 47 45 54  00 93 14 C4 09 99 22 05  |SING GET......".|
00000C80: 22 3B 3A 85 4E 24 3A 8B  4E 24 B2 22 53 54 4F 50  |";:.N$:.N$."STOP|
00000C90: 22 A7 8A 00 AD 14 C5 09  8B C8 28 4E 24 2C 31 29  |".........(N$,1)|
00000CA0: B2 22 52 22 A7 4E 24 B2  22 52 22 3A 8E 00 C3 14  |."R".N$."R":....|
00000CB0: C6 09 4E B2 C5 28 4E 24  29 3A 4E 24 B2 C4 28 4E  |..N..(N$):N$..(N|
00000CC0: 29 3A 8E 00 D9 14 98 0D  8F 20 4F 55 54 50 55 54  |):....... OUTPUT|
00000CD0: 20 54 48 45 20 52 55 4C  45 00 EF 14 A2 0D 99 22  | THE RULE......"|
00000CE0: 13 11 11 11 1D 20 20 20  20 20 20 20 20 22 3B 00  |.....        ";.|
00000CF0: 06 15 A7 0D 99 22 9D 9D  9D 9D 20 20 20 20 20 20  |....."....      |
00000D00: 20 20 20 20 22 3B 00 23  15 AC 0D 99 22 13 22 3B  |    ";.#....".";|
00000D10: 46 24 3B 22 91 12 54 48  45 20 52 55 4C 45 20 49  |F$;"..THE RULE I|
00000D20: 53 3A 22 00 34 15 B6 0D  49 24 B2 52 24 28 56 29  |S:".4...I$.R$(V)|
00000D30: 3A 4A B2 31 00 54 15 C0  0D 8B 20 CA 28 49 24 2C  |:J.1.T.... .(I$,|
00000D40: 4A 2C 31 29 B2 22 58 22  A7 20 4E B2 41 3A 89 20  |J,1)."X". N.A:. |
00000D50: 33 35 35 30 00 6F 15 CA  0D 8B 20 CA 28 49 24 2C  |3550.o.... .(I$,|
00000D60: 4A 2C 31 29 B3 B1 22 59  22 A7 20 33 35 36 30 00  |J,1).."Y". 3560.|
00000D70: 77 15 D4 0D 4E B2 42 00  9B 15 DE 0D 49 24 B2 C8  |w...N.B.....I$..|
00000D80: 28 49 24 2C 4A AB 31 29  AA C4 28 4E 29 AA C9 28  |(I$,J.1)..(N)..(|
00000D90: 49 24 2C C3 28 49 24 29  AB 4A 29 00 B7 15 E8 0D  |I$,.(I$).J).....|
00000DA0: 4A B2 4A AA 31 3A 8B 20  4A B3 B2 C3 28 49 24 29  |J.J.1:. J...(I$)|
00000DB0: 20 A7 20 33 35 32 30 00  CE 15 F2 0D 99 20 53 24  | . 3520...... S$|
00000DC0: 3B 22 9D 91 22 3A 99 49  24 3A 54 B2 54 49 00 E7  |;"..":.I$:T.TI..|
00000DD0: 15 FC 0D A1 20 49 24 3A  8B 20 49 24 B3 B1 22 22  |.... I$:. I$..""|
00000DE0: 20 A7 20 33 35 38 30 00  0A 16 06 0E A1 20 49 24  | . 3580...... I$|
00000DF0: 3A 8B 20 49 24 B2 22 22  20 AF 20 54 49 AB 54 B3  |:. I$."" . TI.T.|
00000E00: 39 30 30 20 A7 20 33 35  39 30 00 1D 16 10 0E 99  |900 . 3590......|
00000E10: 22 13 22 3B 46 24 3B 22  91 22 3B 53 24 00 37 16  |".";F$;".";S$.7.|
00000E20: 1A 0E 99 22 13 11 11 22  3B 53 24 3B 22 9D 91 22  |..."...";S$;".."|
00000E30: 3B 3A 89 20 34 30 30 00  51 16 96 0F 8F 20 46 55  |;:. 400.Q.... FU|
00000E40: 4E 43 54 49 4F 4E 20 44  45 46 49 4E 49 54 49 4F  |NCTION DEFINITIO|
00000E50: 4E 00 63 16 A0 0F 96 20  A5 41 28 58 29 B2 58 AA  |N.c.... .A(X).X.|
00000E60: 41 3A 8E 00 75 16 AA 0F  96 20 A5 41 28 58 29 B2  |A:..u.... .A(X).|
00000E70: 58 AA 42 3A 8E 00 87 16  B4 0F 96 20 A5 41 28 58  |X.B:....... .A(X|
00000E80: 29 B2 41 AC 58 3A 8E 00  99 16 BE 0F 96 20 A5 41  |).A.X:....... .A|
00000E90: 28 58 29 B2 42 AC 58 3A  8E 00 AD 16 C8 0F 96 20  |(X).B.X:....... |
00000EA0: A5 41 28 58 29 B2 42 AC  58 AA 41 3A 8E 00 C1 16  |.A(X).B.X.A:....|
00000EB0: D2 0F 96 20 A5 41 28 58  29 B2 42 AC 58 AB 41 3A  |... .A(X).B.X.A:|
00000EC0: 8E 00 D5 16 DC 0F 96 20  A5 41 28 58 29 B2 58 AC  |....... .A(X).X.|
00000ED0: 58 AA 42 3A 8E 00 E9 16  E6 0F 96 20 A5 41 28 58  |X.B:....... .A(X|
00000EE0: 29 B2 58 AC 58 AB 42 3A  8E 00 FD 16 F0 0F 96 20  |).X.X.B:....... |
00000EF0: A5 41 28 58 29 B2 58 AC  58 AA 58 3A 8E 00 13 17  |.A(X).X.X.X:....|
00000F00: FA 0F 96 20 A5 41 28 58  29 B2 41 AC 58 AC 58 AA  |... .A(X).A.X.X.|
00000F10: 42 3A 8E 00 29 17 04 10  96 20 A5 41 28 58 29 B2  |B:..).... .A(X).|
00000F20: 41 AC 58 AC 58 AB 42 3A  8E 00 3F 17 0E 10 96 20  |A.X.X.B:..?.... |
00000F30: A5 41 28 58 29 B2 41 AC  58 AC 58 AA 58 3A 8E 00  |.A(X).A.X.X.X:..|
00000F40: 55 17 18 10 96 20 A5 41  28 58 29 B2 28 58 AB 31  |U.... .A(X).(X.1|
00000F50: 29 AD 41 3A 8E 00 6B 17  22 10 96 20 A5 41 28 58  |).A:..k.".. .A(X|
00000F60: 29 B2 42 AC 28 58 AD 41  29 3A 8E 00 81 17 2C 10  |).B.(X.A):....,.|
00000F70: 96 20 A5 41 28 58 29 B2  28 58 AD 41 29 AB 42 3A  |. .A(X).(X.A).B:|
00000F80: 8E 00 A5 17 7E 13 8F 20  52 55 4C 45 20 54 45 58  |....~.. RULE TEX|
00000F90: 54 20 46 4F 52 20 54 48  45 20 46 4E 41 27 53 20  |T FOR THE FNA'S |
00000FA0: 41 42 4F 56 45 00 BF 17  88 13 52 24 28 31 29 B2  |ABOVE.....R$(1).|
00000FB0: 22 4E 55 4D 42 45 52 20  50 4C 55 53 58 20 22 00  |"NUMBER PLUSX ".|
00000FC0: D9 17 92 13 52 24 28 32  29 B2 22 4E 55 4D 42 45  |....R$(2)."NUMBE|
00000FD0: 52 20 50 4C 55 53 59 20  22 00 F5 17 9C 13 52 24  |R PLUSY ".....R$|
00000FE0: 28 33 29 B2 22 20 58 20  54 49 4D 45 53 20 4E 55  |(3)." X TIMES NU|
00000FF0: 4D 42 45 52 22 00 11 18  A6 13 52 24 28 34 29 B2  |MBER".....R$(4).|
00001000: 22 20 59 20 54 49 4D 45  53 20 4E 55 4D 42 45 52  |" Y TIMES NUMBER|
00001010: 22 00 2B 18 B0 13 52 24  28 35 29 B2 52 24 28 34  |".+...R$(5).R$(4|
00001020: 29 AA 22 20 50 4C 55 53  58 20 22 00 46 18 BA 13  |)." PLUSX ".F...|
00001030: 52 24 28 36 29 B2 52 24  28 34 29 AA 22 20 4D 49  |R$(6).R$(4)." MI|
00001040: 4E 55 53 58 20 22 00 6D  18 C4 13 52 24 28 37 29  |NUSX ".m...R$(7)|
00001050: B2 22 4E 55 4D 42 45 52  20 54 49 4D 45 53 20 4E  |."NUMBER TIMES N|
00001060: 55 4D 42 45 52 20 50 4C  55 53 59 20 22 00 95 18  |UMBER PLUSY "...|
00001070: CE 13 52 24 28 38 29 B2  22 4E 55 4D 42 45 52 20  |..R$(8)."NUMBER |
00001080: 54 49 4D 45 53 20 4E 55  4D 42 45 52 20 4D 49 4E  |TIMES NUMBER MIN|
00001090: 55 53 59 20 22 00 C1 18  D8 13 52 24 28 39 29 B2  |USY ".....R$(9).|
000010A0: 22 4E 55 4D 42 45 52 20  54 49 4D 45 53 20 4E 55  |"NUMBER TIMES NU|
000010B0: 4D 42 45 52 20 50 4C 55  53 20 4E 55 4D 42 45 52  |MBER PLUS NUMBER|
000010C0: 22 00 E7 18 E2 13 52 24  28 31 30 29 B2 22 20 58  |".....R$(10)." X|
000010D0: 20 2A 20 4E 55 4D 42 45  52 20 2A 20 4E 55 4D 42  | * NUMBER * NUMB|
000010E0: 45 52 20 2B 59 20 22 00  0D 19 EC 13 52 24 28 31  |ER +Y ".....R$(1|
000010F0: 31 29 B2 22 20 58 20 2A  20 4E 55 4D 42 45 52 20  |1)." X * NUMBER |
00001100: 2A 20 4E 55 4D 42 45 52  20 2D 59 20 22 00 38 19  |* NUMBER -Y ".8.|
00001110: F6 13 52 24 28 31 32 29  B2 22 20 58 20 2A 20 4E  |..R$(12)." X * N|
00001120: 55 4D 42 45 52 20 2A 20  4E 55 4D 42 45 52 20 2B  |UMBER * NUMBER +|
00001130: 20 4E 55 4D 42 45 52 22  00 56 19 00 14 52 24 28  | NUMBER".V...R$(|
00001140: 31 33 29 B2 22 28 4E 55  4D 42 45 52 20 2D 20 31  |13)."(NUMBER - 1|
00001150: 29 20 2F 58 20 22 00 76  19 0A 14 52 24 28 31 34  |) /X ".v...R$(14|
00001160: 29 B2 22 20 59 20 2A 20  28 4E 55 4D 42 45 52 20  |)." Y * (NUMBER |
00001170: 2F 58 20 29 20 22 00 93  19 14 14 52 24 28 31 35  |/X ) ".....R$(15|
00001180: 29 B2 22 28 4E 55 4D 42  45 52 20 2F 58 29 20 2D  |)."(NUMBER /X) -|
00001190: 59 20 22 00 B2 19 70 17  8F 20 49 4E 49 54 49 41  |Y "...p.. INITIA|
000011A0: 4C 49 5A 45 20 53 54 52  49 4E 47 20 41 52 52 41  |LIZE STRING ARRA|
000011B0: 59 53 00 E0 19 7A 17 41  24 28 30 29 B2 22 9C 1D  |YS...z.A$(0)."..|
000011C0: 20 11 20 1D 1D 20 91 20  9D 9D 9D 9D 9D 9D 11 11  | . .. . ........|
000011D0: 11 11 D1 91 CE 91 CE CD  11 CD 11 D7 1D 91 91 22  |..............."|
000011E0: 00 0C 1A 84 17 41 24 28  31 29 B2 22 9C 1D 11 11  |.....A$(1)."....|
000011F0: 11 11 20 91 20 1D 1D 20  11 20 91 91 9D 9D 9D 9D  |.. . .. . ......|
00001200: 9D 9D 9D D7 C0 C0 AE B0  C0 C0 D1 22 00 3A 1A 8E  |...........".:..|
00001210: 17 41 24 28 32 29 B2 22  9C 11 11 20 20 20 1D 1D  |.A$(2)."...   ..|
00001220: 20 20 20 9D 9D 9D 9D 9D  9D 9D 91 91 D1 11 CD 11  |   .............|
00001230: CD CE 91 CE 91 D7 1D 11  11 22 00 5A 1A 98 17 44  |.........".Z...D|
00001240: 24 B2 22 13 1D 1D 1D 1D  11 11 11 11 11 11 11 11  |$.".............|
00001250: 11 11 11 11 1D 1D 1D 1D  1D 22 00 78 1A A2 17 45  |.........".x...E|
00001260: 24 B2 22 11 11 11 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |$.".............|
00001270: 1D 1D 11 1D 11 1D 11 22  00 99 1A AC 17 46 24 B2  |.......".....F$.|
00001280: 22 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
00001290: 11 11 11 11 11 11 11 11  22 00 BD 1A B6 17 42 24  |........".....B$|
000012A0: 28 30 29 B2 22 1F 20 20  9D 9D 11 20 20 9D 9D 11  |(0).".  ...  ...|
000012B0: 20 20 9D 9D 11 20 20 9D  9D 11 20 D7 22 00 E1 1A  |  ...  ... ."...|
000012C0: C0 17 42 24 28 31 29 B2  22 1F 20 20 9D 9D 11 20  |..B$(1).".  ... |
000012D0: 20 9D 9D 11 20 20 9D 9D  11 20 D7 9D 9D 11 D5 C9  | ...  ... ......|
000012E0: 22 00 05 1B CA 17 42 24  28 32 29 B2 22 20 20 1F  |".....B$(2)."  .|
000012F0: 9D 9D 11 20 20 9D 9D 11  20 D7 9D 9D 11 D5 C9 9D  |...  ... .......|
00001300: 9D 11 CA CB 22 00 29 1B  D4 17 42 24 28 33 29 B2  |....".)...B$(3).|
00001310: 22 1F 20 20 9D 9D 11 20  D7 9D 9D 11 D5 C9 9D 9D  |".  ... ........|
00001320: 11 CA CB 9D 9D 11 D7 20  22 00 4D 1B DE 17 42 24  |....... ".M...B$|
00001330: 28 34 29 B2 22 1F 20 D7  9D 9D 11 D5 C9 9D 9D 11  |(4).". .........|
00001340: CA CB 9D 9D 11 D7 20 9D  9D 11 20 D7 22 00 71 1B  |...... ... .".q.|
00001350: E8 17 42 24 28 35 29 B2  22 1F D5 C9 9D 9D 11 CA  |..B$(5).".......|
00001360: CB 9D 9D 11 D7 20 9D 9D  11 20 D7 9D 9D 11 D5 C9  |..... ... ......|
00001370: 22 00 95 1B F2 17 42 24  28 36 29 B2 22 1F CA CB  |".....B$(6)."...|
00001380: 9D 9D 11 D7 20 9D 9D 11  20 D7 9D 9D 11 D5 C9 9D  |.... ... .......|
00001390: 9D 11 CA CB 22 00 B9 1B  FC 17 42 24 28 37 29 B2  |....".....B$(7).|
000013A0: 22 1F D7 20 9D 9D 11 20  D7 9D 9D 11 D5 C9 9D 9D  |".. ... ........|
000013B0: 11 CA CB 9D 9D 11 D7 20  22 00 DD 1B 06 18 42 24  |....... ".....B$|
000013C0: 28 38 29 B2 22 1F 20 D7  9D 9D 11 D5 C9 9D 9D 11  |(8).". .........|
000013D0: CA CB 9D 9D 11 D7 20 9D  9D 11 20 D7 22 00 01 1C  |...... ... ."...|
000013E0: 10 18 42 24 28 39 29 B2  22 1F D5 C9 9D 9D 11 CA  |..B$(9).".......|
000013F0: CB 9D 9D 11 D7 20 9D 9D  11 20 D7 9D 9D 11 20 20  |..... ... ....  |
00001400: 22 00 26 1C 1A 18 42 24  28 31 30 29 B2 22 1F CA  |".&...B$(10)."..|
00001410: CB 9D 9D 11 D7 20 9D 9D  11 20 D7 9D 9D 11 20 20  |..... ... ....  |
00001420: 9D 9D 11 20 20 22 00 4B  1C 24 18 42 24 28 31 31  |...  ".K.$.B$(11|
00001430: 29 B2 22 1F D7 20 9D 9D  11 20 D7 9D 9D 11 20 20  |).".. ... ....  |
00001440: 9D 9D 11 20 20 9D 9D 11  20 20 22 00 70 1C 2E 18  |...  ...  ".p...|
00001450: 42 24 28 31 32 29 B2 22  1F 20 D7 9D 9D 11 20 20  |B$(12).". ....  |
00001460: 9D 9D 11 20 20 9D 9D 11  20 20 9D 9D 11 20 20 22  |...  ...  ...  "|
00001470: 00 95 1C 38 18 42 24 28  31 33 29 B2 22 1F 20 20  |...8.B$(13).".  |
00001480: 9D 9D 11 20 20 9D 9D 11  20 20 9D 9D 11 20 20 9D  |...  ...  ...  .|
00001490: 9D 11 20 20 22 00 CC 1C  42 18 43 24 28 30 29 B2  |..  "...B.C$(0).|
000014A0: 22 95 20 9D 11 BE 9D 9D  11 BE 9D 9D 20 9D 9D BC  |". ......... ...|
000014B0: 9D 9D BE 9D 9D 20 9D 9D  BC 9D 9D BE 9D 9D 91 20  |..... ......... |
000014C0: 9D 91 AC 91 AC 20 BB AC  20 BB AC 22 00 03 1D 4C  |..... .. .."...L|
000014D0: 18 43 24 28 31 29 B2 22  95 BE 9D 11 BB 9D 9D 11  |.C$(1)."........|
000014E0: 20 9D 9D BC 9D 9D BE 9D  9D 20 9D 9D BC 9D 9D BE  | ........ ......|
000014F0: 9D 9D 20 9D 9D 91 AC 9D  91 BC 91 20 BB AC 20 BB  |.. ........ .. .|
00001500: AC 20 22 00 3A 1D 56 18  43 24 28 32 29 B2 22 95  |. ".:.V.C$(2).".|
00001510: BB 9D 11 20 9D 9D 11 BC  9D 9D BE 9D 9D 20 9D 9D  |... ......... ..|
00001520: BC 9D 9D BE 9D 9D 20 9D  9D BC 9D 9D 91 BC 9D 91  |...... .........|
00001530: 20 91 BB AC 20 BB AC 20  BB 22 00 71 1D 60 18 43  | ... .. .".q.`.C|
00001540: 24 28 33 29 B2 22 95 20  9D 11 20 9D 9D 11 20 9D  |$(3).". .. ... .|
00001550: 9D 20 9D 9D 20 9D 9D 20  9D 9D 20 9D 9D 20 9D 9D  |. .. .. .. .. ..|
00001560: 20 9D 9D 91 20 9D 91 20  91 20 20 20 20 20 20 20  | ... .. .       |
00001570: 22 00 83 1D 6A 18 46 B2  31 3A 5A B2 30 3A 56 4C  |"...j.F.1:Z.0:VL|
00001580: B2 AB 31 00 A1 1D 74 18  45 24 B2 22 11 11 11 1D  |..1...t.E$."....|
00001590: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 11 1D 11 1D 11  |................|
000015A0: 22 00 C2 1D 7E 18 46 24  B2 22 11 11 11 11 11 11  |"...~.F$."......|
000015B0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000015C0: 11 22 00 DA 1D 88 18 81  4A B2 31 A4 33 39 3A 53  |."......J.1.39:S|
000015D0: 24 B2 53 24 AA 22 20 22  3A 82 00 E0 1D 92 18 8E  |$.S$." ":.......|
000015E0: 00 00 00 F4                                       |....            |

.......53280,0:.53281,0.=.D.. A$(2),B$(1
3),C$(3),R$(15),M(20).^.... ***CALL INIT
IALIZATIONS***.I. .. 5000...... *******I
NSTRUCTIONS*******......G(14).J...."..**
*. COMMODORE 64 .*****. RULER MACHINE. *
**......".WHEN YOU FEED ME A NUMBER, I U
SE MY......".  .SECRET RULE. TO CHANGE I
T INTO.7...." . ANOTHER NUMBER..B.B.."..
.SEE IF YOU CAN GUESS MY .RULE.!!!...L..
"...HOW DIFFICULT A .RULE. SHALL I USE ?
...V..". (TYPE 1,2,3,4 OR 5 -- 1=EASY...
5=HARD)......."...     (BE SURE TO PRESS
 .RETURN. )...."......"..":."           
     ?       ........";.3....2500:V.E(N$
).1.Y....V.(V.1).(V.2).(V.3).(V.4)..0.50
0.Z...A..(3..(1).2):B..(10..(1).3).....X
.3.V..(3..(1)).1:.V.X.535.....V.X.U.!..V
.4000,4010,4020,4030,4040,4050,4060,4070
,4080...&..V.9..(V.9).4090,4100,4110,412
0,4130,4140...+..G(142).0.0.. *****DRAW 
THE MACHINE*****.U.:.."...........   ...
.... ......";.Y.D..".. ........ ........
 ......";...N..".. ........ .L......  ..
...";...X.."....... .......... ......";.
..B..".... ............ .";...L.."...P..
........L.............";.&.V..".NM....N.
.M......W....Q......";.W...."......L....
.............................";.{....". 
....U.I.....K.....J......";......"......
. ....... ....... .....";.H...."........
......................";......".........
.....................";......".....UIU.I
UI........JKJ.KJK";.7...."...........ON 
 .OFF........";.\.F.."..................
..IN . OUT";...P..".....................
...........";...Z..J.1.17:."       .    
   ................";:.:W.1.J....".";F$;
S$...... *******MACHINE INPUT*******....
.."..WHAT GOES IN?.".%...."...->       .
.....";:.2500.9....W.5.N$."R".750.P...."
..             ".A....N$."R".3495.....L.
C(N$):X.E(N$):Y1.1E9:H$.N$......W.1.900.
.. ..J.1.W.1:.X.M(J).820...*..:.865.X./.
. HAS HE PICKED THAT NO. BEFORE?...4.H.1
130.40.J:.J.H.H.13...>..J,B(J).128:.:T.T
I...H..TI.T.150.840.5.R..J.H.H.13:.J,B(J
).128.@.\..:.745.M.A..W.4.900.}.F..".";F
$;"..GUESS WHAT WILL COME OUT?. -> ";...
P..2500:.N$."R".3490...Z.Y1.E(N$).C... 
*****START THE MACHINE*****......D$;"...
......ON.  OFF".....R.0:C..1:Q.1:P.0:N$.
H$......"....";H(F$,W);.32.L);N$.....C.C
.1.((C.8).4).Q.H...F.1.F:R.(R.1)..(R..2)
.}...."..............";A$(R);"........";
B$(C);"....";......F.0.."   ......... ";
...$..F.1..".............*";.N....P.14..
".....";C$(R);...8..C.13.2000...B..C.8.R
.0.R.2...L..P..19.1180...V.Y..A(X):N$.D(
Y):L.C(N$).9.`..J.1.L:.J(N$,J,1)."E".115
0.J.J..J:.L.7.1180.L.T...(Y)..99999.N$.H
(N$,6):.1170.|.~.N$."+LARGE"......Y.0.N$
."-LARGE".....L.6.B....P.L.19.Q.0:.D$;".
.......ON  .OFF.";.Z....P.L.2..1146.L.P,
32.....P.P.1:.H(D$,P.9);".";......P.20..
H(E$,2.P.26);.(.... NO.S THRU THE TUBES:
.J....J.1.L:I.P.J:I$.J(N$,L.J.1,1).K.D..
(I.0.I.23).(I.12.I.21).1260.X.N..".";I$;
...X..I.8.."..";......I.7.."..";......I.
21..".";.N....I.24.H.F(I$):.1891.J,H.64.
(H.64).T..........I.0.I.15.I.21..". ";..
....".";:.1000...P..D$;"..........";C$(3
).2.Z..J.1882.1890:.J,32:..M...."...";H(
F$,W);.34);N$.N...I$.D(Y1):.C(I$).6.I$.H
(I$,6)......I$..N$.W.1.2100.....N.60:.J.
0.5:T.TI......TI.T.18.2050.....N.113.N:.
......".";F$;"..........................
  ";... .."..YOU GOT IT!":T.TI...*..TI.T
.140.2090.-.4..".";F$;S$:M(W).X:W.W.1.L.
>..W.17.."......";.31);:.745.V.H..3500.X
.... GENERALIZED INPUT USING GET...D..".
";:.N$:.N$."STOP".....E..H(N$,1)."R".N$.
"R":..C.F.N.E(N$):N$.D(N):..Y.... OUTPUT
 THE RULE......".....        ";......"..
..          ";.#....".";F$;"..THE RULE I
S:".4...I$.R$(V):J.1.T.... J(I$,J,1)."X"
. N.A:. 3550.O.J.. J(I$,J,1).."Y". 3560.
W.T.N.B.....I$.H(I$,J.1).D(N).I(I$,C(I$)
.J).....J.J.1:. J..C(I$) . 3520.N.... S$
;"..":.I$:T.TI...... I$:. I$.."" . 3580.
..... I$:. I$."" . TI.T.900 . 3590......
".";F$;".";S$.7...."...";S$;"..";:. 400.
Q.... FUNCTION DEFINITION.C. .. .A(X).X.
A:..U.... .A(X).X.B:....... .A(X).A.X:..
..... .A(X).B.X:....H.. .A(X).B.X.A:..A.
R.. .A(X).B.X.A:..U.... .A(X).X.X.B:....
... .A(X).X.X.B:....... .A(X).X.X.X:....
... .A(X).A.X.X.B:..).... .A(X).A.X.X.B:
..?.... .A(X).A.X.X.X:..U.... .A(X).(X.1
).A:..K.".. .A(X).B.(X.A):....,.. .A(X).
(X.A).B:....~.. RULE TEXT FOR THE FNA'S 
ABOVE.....R$(1)."NUMBER PLUSX ".Y...R$(2
)."NUMBER PLUSY ".....R$(3)." X TIMES NU
MBER".....R$(4)." Y TIMES NUMBER".+...R$
(5).R$(4)." PLUSX ".F...R$(6).R$(4)." MI
NUSX ".M.D.R$(7)."NUMBER TIMES NUMBER PL
USY "...N.R$(8)."NUMBER TIMES NUMBER MIN
USY ".A.X.R$(9)."NUMBER TIMES NUMBER PLU
S NUMBER".....R$(10)." X * NUMBER * NUMB
ER +Y ".....R$(11)." X * NUMBER * NUMBER
 -Y ".8...R$(12)." X * NUMBER * NUMBER +
 NUMBER".V...R$(13)."(NUMBER - 1) /X ".V
...R$(14)." Y * (NUMBER /X ) ".....R$(15
)."(NUMBER /X) -Y "...P.. INITIALIZE STR
ING ARRAYS...Z.A$(0).".. . .. . ........
..Q.N.NM.M.W...".....A$(1)."...... . .. 
. .........W......Q".:...A$(2)."...   ..
   .........Q.M.MN.N.W...".Z...D$.".....
.................".X...E$.".............
.......".....F$.".......................
".....B$(0).".  ...  ...  ...  ... W"...
..B$(1).".  ...  ...  ... W...UI"...J.B$
(2)."  ....  ... W...UI...JK".).T.B$(3).
".  ... W...UI...JK...W ".M...B$(4).". W
...UI...JK...W ... W".Q...B$(5).".UI...J
K...W ... W...UI".....B$(6).".JK...W ...
 W...UI...JK".....B$(7).".W ... W...UI..
.JK...W ".....B$(8).". W...UI...JK...W .
.. W".....B$(9).".UI...JK...W ... W...  
".&...B$(10).".JK...W ... W...  ...  ".K
.$.B$(11).".W ... W...  ...  ...  ".P...
B$(12).". W...  ...  ...  ...  "...8.B$(
13).".  ...  ...  ...  ...  ".L.B.C$(0).
". ......... ........ ......... ..... ..
 .."...L.C$(1)."........ ........ ......
.. ........ .. .. ".:.V.C$(2).".... ....
..... ........ ......... ... .. .".Q.`.C
$(3).". .. ... .. .. .. .. .. .. ... .. 
.       "...J.F.1:Z.0:VL..1...T.E$."....
................".B.~.F$."..............
.........".Z....J.1.39:S$.S$." ":.......
....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL