MATH DICE.C3
FILE INFORMATION
FILENAME(S): MATH DICE.C3
FILE TYPE(S): PRG
FILE SIZE: 11.1K
FIRST SEEN: 2025-11-30 01:08:45
APPEARS ON: 1 disk(s)
FILE HASH
edeba2f7ee7c1a335e3eb6934c1e4cf35dc387ef2a40709bc9f256e69ee01556
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MATH DICE.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....| 00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY | 00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....| 00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh| 00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`| 00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4| 00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU| 000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **| 000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO| 000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 F2 |UTINE **.....:..| 000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B| 000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH| 000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG| 00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.| 00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA| 00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..| 00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU | 00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..| 00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO| 00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... | 00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO| 00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.| 00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E| 000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA| 000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W| 000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O| 000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... | 000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..| 000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S| 00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..| 00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.| 00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.| 00000230: 38 30 00 45 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.E.-.." ..";:| 00000240: 97 55 43 2C 30 00 59 0A 32 00 A1 55 49 24 3A 8B |.UC,0.Y.2..UI$:.| 00000250: 55 49 24 B2 22 22 A7 35 30 00 83 0A 37 00 8B 55 |UI$."".50...7..U| 00000260: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).| 00000270: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:| 00000280: 89 38 35 00 96 0A 3C 00 8B 55 49 24 B2 C7 28 32 |.85...<..UI$..(2| 00000290: 30 29 A7 31 30 35 00 AA 0A 3E 00 8B 20 C3 28 55 |0).105...>.. .(U| 000002A0: 52 24 29 B2 B1 55 4C A7 35 30 00 CF 0A 41 00 8D |R$)..UL.50...A..| 000002B0: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR | 000002C0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.| 000002D0: DF 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.| 000002E0: E9 0A 4B 00 99 55 49 24 3B 00 F1 0A 50 00 89 35 |..K..UI$;...P..5| 000002F0: 30 00 16 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC| 00000300: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE| 00000310: 53 54 20 2B 2B 2B 00 3E 0B 5A 00 8B 55 52 24 B2 |ST +++.>.Z..UR$.| 00000320: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T| 00000330: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 4D |O HELP ROUTINE.M| 00000340: 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5A 0B |._..UF.1..240.Z.| 00000350: 64 00 55 46 B2 30 3A 99 3A 8E 00 73 0B 66 00 8F |d.UF.0:.:..s.f..| 00000360: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE| 00000370: 20 2B 2B 00 84 0B 69 00 8B C3 28 55 52 24 29 B3 | ++...i...(UR$).| 00000380: 31 A7 35 30 00 9C 0B 6E 00 55 52 24 B2 C8 28 55 |1.50...n.UR$..(U| 00000390: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AE 0B 73 |R$,.(UR$).1)...s| 000003A0: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 D5 |..". ..";:.50..| 000003B0: 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO| 000003C0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE| 000003D0: 52 53 20 2B 2B 00 E7 0B 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$| 000003E0: 29 B2 30 A7 31 35 30 00 F7 0B 7F 00 55 53 24 B2 |).0.150.....US$.| 000003F0: 55 53 24 AA 55 58 24 00 08 0C 82 00 81 55 53 B2 |US$.UX$......US.| 00000400: 31 A4 C3 28 55 53 24 29 00 1F 0C 87 00 8B 55 49 |1..(US$)......UI| 00000410: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...| 00000420: 25 0C 8C 00 82 00 32 0C 91 00 55 49 24 B2 22 22 |%.....2...UI$.""| 00000430: 3A 8E 00 4D 0C 96 00 8F 20 2A 2A 20 53 54 41 4E |:..M.... ** STAN| 00000440: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 5E 0C |DARD INPUT **.^.| 00000450: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 6F |....(UI$).46...o| 00000460: 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...| 00000470: 8C 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |......(UI$).48..| 00000480: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 92 0C A5 |(UI$).57.170....| 00000490: 00 8E 00 AF 0C AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6| 000004A0: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.| 000004B0: B5 0C AF 00 8E 00 D9 0C B4 00 8B C6 28 55 49 24 |............(UI$| 000004C0: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218| 000004D0: A7 55 49 24 B2 22 22 3A 8E 00 FC 0C B9 00 8B C2 |.UI$."":........| 000004E0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.| 000004F0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 02 0D BB |(UI$).128):.....| 00000500: 00 8E 00 0F 0D BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..| 00000510: 34 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |4...UF.1:. +++ H| 00000520: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT| 00000530: 20 2B 2B 2B 00 3D 0D C5 00 8D 32 35 30 00 46 0D | +++.=....250.F.| 00000540: C8 00 8D 32 34 35 00 65 0D CD 00 81 55 51 B2 55 |...245.e....UQ.U| 00000550: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U| 00000560: 33 25 AB 32 29 00 81 0D D2 00 55 51 25 28 55 51 |3%.2).....UQ%(UQ| 00000570: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".| 00000580: 22 00 94 0D D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".....UZ.1:UV%..| 00000590: 28 55 54 29 00 9D 0D D8 00 89 33 30 30 00 C2 0D |(UT)......300...| 000005A0: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U| 000005B0: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.| 000005C0: 55 4B 00 F9 0D DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)| 000005D0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."| 000005E0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328| 000005F0: 30 2C 31 34 3A 89 32 32 30 00 03 0E DB 00 99 22 |0,14:.220......"| 00000600: 93 22 3B 00 32 0E DC 00 55 54 24 B2 55 4C 24 3A |.";.2...UT$.UL$:| 00000610: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(| 00000620: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.| 00000630: 33 29 00 47 0E E1 00 97 55 51 2C 55 51 25 28 55 |3).G....UQ,UQ%(U| 00000640: 51 AB 55 42 29 3A 82 00 53 0E E6 00 97 55 31 2C |Q.UB):..S....U1,| 00000650: 55 31 25 00 5F 0E E8 00 97 55 32 2C 55 32 25 00 |U1%._....U2,U2%.| 00000660: 6B 0E E9 00 97 55 34 2C 55 34 25 00 79 0E EA 00 |k....U4,U4%.y...| 00000670: 97 55 33 2C 55 33 25 AB 31 00 81 0E EB 00 89 33 |.U3,U3%.1......3| 00000680: 35 00 B3 0E F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.| 00000690: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)| 000006A0: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1| 000006B0: 29 3A 8E 00 EE 0E F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2| 000006C0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" | 000006D0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP| 000006E0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 1A | COMING . ":...| 000006F0: 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%| 00000700: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)| 00000710: 3A 55 34 25 B2 C2 28 55 34 29 00 42 0F FB 00 55 |:U4%..(U4).B...U| 00000720: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U| 00000730: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.| 00000740: 55 4C 00 48 0F FF 00 8E 00 59 0F 2C 01 8F 20 2A |UL.H.....Y.,.. *| 00000750: 2A 20 4D 45 4E 55 20 2A 2A 00 5F 0F 2D 01 3A 00 |* MENU **._.-.:.| 00000760: 8E 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |.....".":.UT,UU%| 00000770: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 00000780: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 94 |281,9:.53280,8..| 00000790: 0F 2F 01 3A 00 B1 0F 31 01 99 22 13 20 20 20 20 |./.:...1..". | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU| 000007B0: 22 00 E0 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 000007E0: 00 05 10 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. | 000007F0: 31 2E 20 20 20 42 45 47 49 4E 20 4D 41 54 48 20 |1. BEGIN MATH | 00000800: 44 49 43 45 22 00 2F 10 40 01 99 22 11 11 20 20 |DICE"./.@..".. | 00000810: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN| 00000820: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".| 00000830: 59 10 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |Y.E..".. 3| 00000840: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST| 00000850: 52 55 43 54 49 4F 4E 53 22 00 86 10 4A 01 99 22 |RUCTIONS"...J.."| 00000860: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F |.. 4. MO| 00000870: 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 |DIFICATION OF PR| 00000880: 4F 47 52 41 4D 22 00 A2 10 4F 01 99 22 11 11 20 |OGRAM"...O..".. | 00000890: 20 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 | 5. QUIT.| 000008A0: 11 22 00 D1 10 54 01 99 22 20 2D 2D 2D 2D 2D 2D |."...T.." ------| 000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008D0: 22 00 FC 10 59 01 99 22 11 11 20 20 20 20 20 20 |"...Y..".. | 000008E0: 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 | PRESS A NUMBER | 000008F0: 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 25 11 5E |KEY (1-5) ";.%.^| 00000900: 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 |.UL.1:US$."12345| 00000910: 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F |":.35:. INPUT RO| 00000920: 55 54 49 4E 45 00 46 11 63 01 91 C5 28 55 52 24 |UTINE.F.c...(UR$| 00000930: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 |).1000,400,500,6| 00000940: 30 30 2C 33 39 36 00 4F 11 68 01 89 33 30 30 00 |00,396.O.h..300.| 00000950: 76 11 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |v.... ** RE-ENAB| 00000960: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND | 00000970: 45 4E 44 20 2A 2A 00 A5 11 8C 01 8B C2 28 35 30 |END **.......(50| 00000980: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)| 00000990: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..| 000009A0: 30 A7 33 39 39 00 CF 11 8D 01 9E 55 55 AA 37 31 |0.399......UU.71| 000009B0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 000009C0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.| 000009D0: DB 11 8E 01 99 22 9A 93 22 3A 80 00 E6 11 8F 01 |....."..":......| 000009E0: 8D 38 37 35 3A 8E 00 07 12 90 01 8F 20 2A 2A 20 |.875:....... ** | 000009F0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT| 00000A00: 49 4F 4E 53 20 2A 2A 00 36 12 95 01 99 22 93 22 |IONS **.6...."."| 00000A10: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000| 00000A20: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5| 00000A30: 33 32 38 30 2C 30 00 58 12 9A 01 55 50 B2 30 3A |3280,0.X...UP.0:| 00000A40: 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 |UG$.".TUDENT .NS| 00000A50: 54 2E 22 3A 8D 38 35 30 00 62 12 9F 01 99 22 11 |T.":.850.b....".| 00000A60: 11 22 00 81 12 A4 01 99 22 20 20 C8 49 21 20 20 |."......" .I! | 00000A70: CD 59 20 4E 41 4D 45 20 49 53 20 C3 36 34 22 3A |.Y NAME IS .64":| 00000A80: 99 00 AE 12 A9 01 99 22 20 C9 20 57 49 4C 4C 20 |......." . WILL | 00000A90: 54 48 52 4F 57 20 54 57 4F 20 44 49 43 45 2C 20 |THROW TWO DICE, | 00000AA0: 41 4E 44 20 53 48 4F 57 20 54 48 45 4D 22 00 D7 |AND SHOW THEM"..| 00000AB0: 12 AE 01 99 22 11 20 54 4F 20 59 4F 55 2E 20 20 |....". TO YOU. | 00000AC0: D9 4F 55 52 20 4A 4F 42 20 49 53 20 54 4F 20 47 |.OUR JOB IS TO G| 00000AD0: 49 56 45 20 4D 45 22 00 06 13 B3 01 99 22 11 20 |IVE ME"......". | 00000AE0: 54 48 45 20 53 55 4D 20 4F 46 20 54 48 45 20 54 |THE SUM OF THE T| 00000AF0: 57 4F 20 4E 55 4D 42 45 52 53 20 4F 46 20 44 4F |WO NUMBERS OF DO| 00000B00: 54 53 20 4F 4E 22 00 34 13 B8 01 99 22 11 20 54 |TS ON".4....". T| 00000B10: 48 45 20 44 49 43 45 2E 20 20 C1 46 54 45 52 20 |HE DICE. .FTER | 00000B20: 45 4E 54 45 52 49 4E 47 20 54 48 45 20 41 4E 53 |ENTERING THE ANS| 00000B30: 57 45 52 22 00 62 13 C7 01 99 22 11 20 50 4C 45 |WER".b....". PLE| 00000B40: 41 53 45 20 50 52 45 53 53 20 12 D2 C5 D4 D5 D2 |ASE PRESS ......| 00000B50: CE 92 20 53 4F 20 54 48 41 54 20 C9 20 4B 4E 4F |.. SO THAT . KNO| 00000B60: 57 22 00 8B 13 CE 01 99 22 11 20 57 48 45 4E 20 |W"......". WHEN | 00000B70: 59 4F 55 27 56 45 20 41 4E 53 57 45 52 45 44 2E |YOU'VE ANSWERED.| 00000B80: 22 3A 8D 38 33 35 3A 8D 38 35 30 00 BC 13 D0 01 |":.835:.850.....| 00000B90: 99 22 11 11 20 20 C1 4E 59 20 54 49 4D 45 20 59 |.".. .NY TIME Y| 00000BA0: 4F 55 20 4E 45 45 44 20 48 45 4C 50 2C 20 50 52 |OU NEED HELP, PR| 00000BB0: 45 53 53 20 12 C8 92 20 41 4E 44 22 00 EC 13 D4 |ESS ... AND"....| 00000BC0: 01 99 22 11 20 12 D2 C5 D4 D5 D2 CE 92 2E 20 20 |..". ......... | 00000BD0: C9 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 |. WILL GIVE YOU | 00000BE0: 54 57 4F 20 43 48 41 4E 43 45 53 22 00 19 14 D6 |TWO CHANCES"....| 00000BF0: 01 99 22 11 20 54 4F 20 41 4E 53 57 45 52 20 54 |..". TO ANSWER T| 00000C00: 48 45 20 51 55 45 53 54 49 4F 4E 2E 20 20 D4 48 |HE QUESTION. .H| 00000C10: 45 52 45 20 49 53 20 41 22 00 48 14 D8 01 99 22 |ERE IS A".H...."| 00000C20: 11 20 4C 49 54 54 4C 45 20 53 55 50 52 49 53 45 |. LITTLE SUPRISE| 00000C30: 20 49 46 20 59 4F 55 20 44 4F 20 57 45 4C 4C 2C | IF YOU DO WELL,| 00000C40: 20 53 4F 20 54 52 59 22 00 6C 14 DA 01 99 22 11 | SO TRY".l....".| 00000C50: 20 59 4F 55 27 52 45 20 42 45 53 54 11 11 11 20 | YOU'RE BEST... | 00000C60: C7 CF CF C4 A0 CC D5 C3 CB A0 21 22 00 75 14 E5 |..........!".u..| 00000C70: 01 8D 38 33 35 00 80 14 E7 01 55 47 24 B2 22 22 |..835.....UG$.""| 00000C80: 00 94 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A |......UZ.1..UP%:| 00000C90: 89 32 31 37 00 9A 14 F3 01 8E 00 BB 14 F4 01 8F |.217............| 00000CA0: 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 | ** TEACHER INST| 00000CB0: 52 55 43 54 49 4F 4E 53 20 2A 2A 00 EB 14 F5 01 |RUCTIONS **.....| 00000CC0: 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 |.".":.UT,UL%:..(| 00000CD0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,| 00000CE0: 32 3A 97 35 33 32 38 30 2C 31 30 00 0D 15 F6 01 |2:.53280,10.....| 00000CF0: 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 |UP.0:UG$.".EACHE| 00000D00: 52 20 C9 4E 53 54 2E 22 3A 8D 38 35 30 00 3B 15 |R .NST.":.850.;.| 00000D10: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T| 00000D20: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K| 00000D30: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 64 15 F8 01 |NOWLEDGE,.".d...| 00000D40: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000D50: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000D60: 49 43 11 22 00 90 15 F9 01 99 22 20 20 20 44 4F |IC."......" DO| 00000D70: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I| 00000D80: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."| 00000D90: 00 AD 15 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE| 00000DA0: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 D7 15 | CONTACT:..."...| 00000DB0: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD| 00000DC0: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC| 00000DD0: 48 49 4E 45 53 11 22 00 FA 15 FC 01 99 22 20 20 |HINES."......" | 00000DE0: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA| 00000DF0: 52 4D 41 43 59 20 C1 56 45 2E 00 1E 16 FD 01 99 |RMACY .VE.......| 00000E00: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC| 00000E10: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 40 |OURT, .NTARIO".@| 00000E20: 16 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .| 00000E30: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"| 00000E40: 00 60 16 FF 01 99 22 20 20 20 20 20 20 20 20 20 |.`...." | 00000E50: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"| 00000E60: 00 76 16 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.v...UP.1:. 835:| 00000E70: 8D 20 38 35 30 3A 00 9C 16 01 02 99 22 20 20 20 |. 850:......" | 00000E80: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME| 00000E90: 3A 20 CD 41 54 48 20 C4 49 43 45 11 00 BE 16 02 |: .ATH .ICE.....| 00000EA0: 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 |.." .RITTEN | 00000EB0: C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 E2 |.Y : .NKNOWN...| 00000EC0: 16 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 |...." .PGRAD| 00000ED0: 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 20 |ED .Y : | 00000EE0: 20 11 00 0D 17 04 02 99 22 20 20 20 20 20 11 D4 | ......." ..| 00000EF0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL| 00000F00: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 2D 17 | RUN ON ANY...-.| 00000F10: 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 |..." ...| 00000F20: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 52 17 | 64 ..........R.| 00000F30: 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |..." ...| 00000F40: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......| 00000F50: C5 D2 00 60 17 09 02 8D 38 33 35 3A 8D 38 35 30 |...`....835:.850| 00000F60: 00 84 17 0A 02 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |......----------| 00000F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F80: 2D 2D 2D 2D 00 A3 17 0B 02 8F 22 20 20 20 20 D5 |----......" .| 00000F90: 50 47 52 41 44 45 44 20 46 4F 52 20 C3 36 34 20 |PGRADED FOR .64 | 00000FA0: 42 59 3A 00 BE 17 0C 02 8F 22 20 20 20 20 20 20 |BY:......" | 00000FB0: 20 CC 59 4E 44 41 20 C2 4F 4E 41 4E 4E 4F 00 E2 | .YNDA .ONANNO..| 00000FC0: 17 0D 02 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....------------| 00000FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FE0: 2D 2D 00 0E 18 0E 02 99 22 11 11 20 20 D4 48 49 |--......".. .HI| 00000FF0: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 48 |S PROGRAM WILL H| 00001000: 45 4C 50 20 45 41 52 4C 59 20 41 47 45 22 00 3E |ELP EARLY AGE".>| 00001010: 18 12 02 99 22 11 20 53 54 55 44 45 4E 54 53 20 |....". STUDENTS | 00001020: 28 CB 2D 33 29 20 54 4F 20 44 45 56 45 4C 4F 50 |(.-3) TO DEVELOP| 00001030: 20 54 48 45 49 52 20 53 4B 49 4C 4C 53 22 00 67 | THEIR SKILLS".g| 00001040: 18 14 02 99 22 11 20 49 4E 20 43 4F 55 4E 54 49 |....". IN COUNTI| 00001050: 4E 47 20 41 4E 44 20 41 44 44 49 4E 47 20 4E 55 |NG AND ADDING NU| 00001060: 4D 42 45 52 53 2E 22 00 76 18 26 02 8D 38 33 35 |MBERS.".v.&..835| 00001070: 3A 99 22 93 22 3B 00 81 18 4B 02 55 47 24 B2 22 |:.".";...K.UG$."| 00001080: 22 00 95 18 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 |"...N..UZ.1..UP%| 00001090: 3A 89 32 31 37 00 9B 18 57 02 8E 00 C1 18 58 02 |:.217...W.....X.| 000010A0: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 |. ** PROGRAM MOD| 000010B0: 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A |IFICATION INST *| 000010C0: 2A 00 D2 18 59 02 99 22 93 22 3A 97 55 54 2C 55 |*...Y..".":.UT,U| 000010D0: 4C 25 00 F3 18 5D 02 55 50 B2 30 3A 55 47 24 B2 |L%...].UP.0:UG$.| 000010E0: 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 2E 22 3A 8D |".ROGRAM .OD.":.| 000010F0: 38 35 30 00 21 19 9E 02 99 22 11 11 20 31 38 33 |850.!....".. 183| 00001100: 30 20 C9 C6 20 28 C3 25 2F D4 25 29 3E 2E 37 35 |0 .. (.%/.%)>.75| 00001110: 20 D4 C8 C5 CE 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | .... ..........| 00001120: 22 00 4D 19 9F 02 99 22 20 20 20 20 20 20 20 20 |".M...." | 00001130: 20 20 20 20 20 20 20 20 20 A3 A3 A3 20 20 20 20 | ... | 00001140: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 79 19 | ".y.| 00001150: A0 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." | 00001160: 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 | ^ | 00001170: 20 20 20 20 20 20 20 20 22 00 AA 19 A1 02 99 22 | "......"| 00001180: 11 11 11 20 20 CF 4E 20 54 48 45 20 4C 49 4E 45 |... .N THE LINE| 00001190: 20 31 38 33 30 2C 20 54 48 45 20 56 41 4C 55 45 | 1830, THE VALUE| 000011A0: 20 30 2E 37 35 20 4D 41 59 22 00 D7 19 A2 02 99 | 0.75 MAY"......| 000011B0: 22 11 20 42 45 20 43 48 41 4E 47 45 44 20 54 4F |". BE CHANGED TO| 000011C0: 20 41 20 44 49 46 46 45 52 45 4E 54 20 53 54 41 | A DIFFERENT STA| 000011D0: 4E 44 41 52 44 2E 22 00 00 1A A4 02 99 22 11 20 |NDARD."......". | 000011E0: C9 46 20 41 20 53 54 55 44 45 4E 54 20 57 4F 52 |.F A STUDENT WOR| 000011F0: 4B 53 20 4F 56 45 52 20 54 48 45 20 53 45 54 22 |KS OVER THE SET"| 00001200: 00 2F 1A A6 02 99 22 11 20 53 54 41 4E 44 41 52 |./....". STANDAR| 00001210: 44 2C 20 41 20 42 49 47 20 4D 45 53 53 41 47 45 |D, A BIG MESSAGE| 00001220: 20 57 49 4C 4C 20 41 50 50 45 41 52 2E 22 3B 00 | WILL APPEAR.";.| 00001230: 39 1A A8 02 8D 20 38 33 35 00 44 1A AF 02 55 47 |9.... 835.D...UG| 00001240: 24 B2 22 22 00 58 1A B2 02 8B 55 5A B2 31 A7 9E |$."".X....UZ.1..| 00001250: 55 50 25 3A 89 32 31 37 00 5E 1A BB 02 8E 00 83 |UP%:.217.^......| 00001260: 1A BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8| 00001270: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032| 00001280: 20 2A 2A 00 B9 1A C6 02 99 22 93 11 11 11 05 42 | **......".....B| 00001290: 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 |EFORE RUNNING TH| 000012A0: 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E |IS PROGRAM ON AN| 000012B0: 20 38 30 33 32 20 20 11 11 00 EF 1A D0 02 99 22 | 8032 ........"| 000012C0: 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 | LOAD THE '| 000012D0: 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 |CBM 4032' PROGRA| 000012E0: 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |M.............".| 000012F0: FA 1A DA 02 9E 55 55 AA 37 31 00 00 1B E4 02 80 |.....UU.71......| 00001300: 00 25 1B 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 |.%.... ** TO USE| 00001310: 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 | 8032 LOAD CBM40| 00001320: 33 32 20 2A 2A 00 70 1B 1E 03 99 22 93 11 11 11 |32 **.p...."....| 00001330: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T| 00001340: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A| 00001350: 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 |N 8032 ..LOAD C| 00001360: 42 4D 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 |BM 4032 PROGRAM"| 00001370: 00 7C 1B 1F 03 9E 31 30 39 33 3A 80 00 9C 1B 20 |.|....1093:.... | 00001380: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E | 00001390: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 D0 1B 22 | P A G E **..."| 000013A0: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU| 000013B0: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5| 000013C0: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6| 000013D0: 00 DE 1B 23 03 99 20 C7 28 31 34 32 29 3B 00 F4 |...#.. .(142);..| 000013E0: 1B 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...| 000013F0: 22 3B 3A 82 00 0C 1C 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22| 00001400: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 24 1C 28 |:.".....";:..$.(| 00001410: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....| 00001420: 22 3B 3A 82 00 3C 1C 2A 03 81 49 B2 31 A4 32 32 |";:..<.*..I.1.22| 00001430: 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 61 1C 2C |:.".....";:..a.,| 00001440: 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |..".............| 00001450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 |.............. | 00001460: 92 00 83 1C 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |......."........| 00001470: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .| 00001480: 20 92 A9 00 A4 1C 30 03 99 22 1D 1D 1D 1D 1D 1D | .....0.."......| 00001490: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . | 000014A0: 20 12 A3 DF 00 C2 1C 32 03 99 22 1D 1D 1D 1D 1D | ......2..".....| 000014B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |............... | 000014C0: 20 92 00 EA 1C 34 03 99 22 11 11 1D 1D 1D 1D 1D | ....4..".......| 000014D0: 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F |.......C O M M O| 000014E0: 20 44 20 4F 20 52 20 45 11 11 00 0D 1D 36 03 99 | D O R E.....6..| 000014F0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00001500: 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 2C 1D |EDUCATIONAL...,.| 00001510: 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |8.."............| 00001520: 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 47 1D 3A |....SOFTWARE.G.:| 00001530: 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 |.. ** COMMODORE | 00001540: 4C 4F 47 4F 20 2A 2A 00 7F 1D 3B 03 99 C8 28 55 |LOGO **...;...(U| 00001550: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D |D$,24);"........| 00001560: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA| 00001570: 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 |R OR WAIT.":I.0.| 00001580: A1 1D 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 |..<..A$:.A$.." "| 00001590: A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 |.I.I.1:.I.250.82| 000015A0: 38 00 C5 1D 3E 03 54 31 24 B2 22 22 3A 54 32 24 |8...>.T1$."":T2$| 000015B0: B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 |."":T3$."":T4$."| 000015C0: 22 3A 49 B2 30 00 CE 1D 40 03 89 33 30 30 00 EA |":I.0...@..300..| 000015D0: 1D 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 |.C.. ** SPACE BA| 000015E0: 52 20 50 52 45 53 53 20 2A 2A 00 25 1E 48 03 97 |R PRESS **.%.H..| 000015F0: 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B |UO,0:..(UD$,24);| 00001600: 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |".......PRESS SP| 00001610: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI| 00001620: 4E 55 45 92 22 00 3C 1E 4C 03 A1 55 49 24 3A 8B |NUE.".<.L..UI$:.| 00001630: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 42 1E 4E |UI$.." ".844.B.N| 00001640: 03 8E 00 62 1E 52 03 8F 20 2A 2A 20 50 41 47 45 |...b.R.. ** PAGE| 00001650: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE | 00001660: 2A 2A 00 6E 1E 54 03 55 50 B2 55 50 AA 31 00 98 |**.n.T.UP.UP.1..| 00001670: 1E 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |.W..".".(UT$.UP$| 00001680: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..| 00001690: 28 55 50 29 2C 31 38 29 00 C7 1E 5C 03 99 22 20 |(UP),18)...\.." | 000016A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000016B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000016C0: 2D 2D 2D 2D 2D 2D 22 00 D6 1E 60 03 8B 55 48 B3 |------"...`..UH.| 000016D0: B1 30 A7 38 37 30 00 0A 1F 61 03 99 C8 28 55 44 |.0.870...a...(UD| 000016E0: 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 |$,24);.(UP$,7);"| 000016F0: 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 |HELP - PRESS H| 00001700: 20 3C 52 45 54 55 52 4E 3E 22 00 1B 1F 66 03 55 | <RETURN>"...f.U| 00001710: 48 B2 30 3A 99 22 13 11 22 3A 8E 00 3A 1F 6B 03 |H.0:."..":..:.k.| 00001720: 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 |. ** PLEASE WAIT| 00001730: 20 52 45 4D 41 52 4B 20 2A 2A 00 70 1F 70 03 99 | REMARK **.p.p..| 00001740: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" | 00001750: 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 | ONE MOMENT| 00001760: 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 | PLEASE... "| 00001770: 00 76 1F 75 03 8E 00 93 1F 84 03 8F 20 2A 2A 20 |.v.u........ ** | 00001780: 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 |SET UP VARIABLES| 00001790: 20 2A 2A 00 DE 1F 85 03 55 58 24 B2 22 48 22 3A | **.....UX$."H":| 000017A0: 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 |.UQ%(1000):UB.32| 000017B0: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19| 000017C0: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:| 000017D0: 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 1C |UC.167:UU.1024..| 000017E0: 20 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 | ..UT.59468:UU%.| 000017F0: 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 |12:UL%.14:UP%.11| 00001800: 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 |46:UM.32768:UO.1| 00001810: 35 38 3A 97 20 35 30 30 30 33 2C 30 00 5F 20 87 |58:. 50003,0._ .| 00001820: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 |...(50003).0.UB.| 00001830: 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 |1024:U1.209:U2.2| 00001840: 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 |10:U3.211:U4.214| 00001850: 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 |:UC.204:UU.2048.| 00001860: 9E 20 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |. ....(50003).0.| 00001870: 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A |UT.53272:UU%.21:| 00001880: 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A |UL%.23:UP%.2139:| 00001890: 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 C2 |UM.1024:UO.198..| 000018A0: 20 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 | ..UD$."........| 000018B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000018C0: 11 22 00 F4 20 8A 03 55 50 24 B2 22 20 20 20 20 |.".. ..UP$." | 000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018F0: 20 20 20 22 00 09 21 8B 03 55 54 24 B2 22 20 CD | "..!..UT$." .| 00001900: 41 54 48 20 C4 49 43 45 22 00 0F 21 8C 03 8E 00 |ATH .ICE"..!....| 00001910: 29 21 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |)!... ** SET VAR| 00001920: 49 41 42 4C 45 53 20 2A 2A 00 32 21 93 03 8D 39 |IABLES **.2!...9| 00001930: 30 30 00 38 21 94 03 3A 00 3E 21 95 03 3A 00 59 |00.8!..:.>!..:.Y| 00001940: 21 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |!... ** CHECK FO| 00001950: 52 20 38 30 33 32 20 2A 2A 00 77 21 9D 03 99 22 |R 8032 **.w!..."| 00001960: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE| 00001970: 44 20 53 50 41 43 45 00 8E 21 A2 03 8B C2 28 55 |D SPACE..!....(U| 00001980: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 A7 |B.40)..96..700..| 00001990: 21 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |!... ** MEMORY C| 000019A0: 48 45 43 4B 20 2A 2A 00 BB 21 A4 03 8B 20 B8 28 |HECK **..!... .(| 000019B0: 30 29 B1 32 30 30 30 A7 39 33 37 00 E9 21 A5 03 |0).2000.937..!..| 000019C0: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI| 000019D0: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE| 000019E0: 20 45 4E 4F 55 47 48 11 22 00 0D 22 A6 03 99 22 | ENOUGH.".."..."| 000019F0: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH| 00001A00: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 18 22 |IS PROGRAM !".."| 00001A10: A7 03 9E 55 55 AA 37 31 00 1E 22 A8 03 80 00 38 |...UU.71.."....8| 00001A20: 22 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 |"..."..":..(5000| 00001A30: 33 29 B2 30 A7 39 36 32 00 67 22 AC 03 8F 20 2A |3).0.962.g"... *| 00001A40: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR | 00001A50: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S| 00001A60: 45 54 55 50 20 2A 2A 00 A5 22 AD 03 97 31 30 37 |ETUP **.."...107| 00001A70: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:| 00001A80: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,| 00001A90: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108| 00001AA0: 31 2C 31 34 35 00 DB 22 AE 03 97 31 30 39 31 2C |1,145.."...1091,| 00001AB0: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1| 00001AC0: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23| 00001AD0: 34 3A 97 31 31 30 33 2C 31 33 33 00 FD 22 AF 03 |4:.1103,133.."..| 00001AE0: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,| 00001AF0: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 14 23 |234:.1082,234..#| 00001B00: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160| 00001B10: A7 39 35 35 00 43 23 B6 03 97 31 30 39 33 2C 38 |.955.C#...1093,8| 00001B20: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109| 00001B30: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.| 00001B40: 39 36 35 00 58 23 BB 03 8B C2 28 35 30 30 30 33 |965.X#....(50003| 00001B50: 29 B3 B1 31 A7 39 39 30 00 87 23 C0 03 97 31 30 |)..1.990..#...10| 00001B60: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:| 00001B70: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2| 00001B80: 33 30 3A 89 39 36 35 00 C1 23 C2 03 97 32 30 39 |30:.965..#...209| 00001B90: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.| 00001BA0: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.| 00001BB0: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2| 00001BC0: 31 00 FD 23 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1..#...2106,3:.2| 00001BD0: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52| 00001BE0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121| 00001BF0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 37 24 |,49:.2122,141.7$| 00001C00: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124| 00001C10: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21| 00001C20: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:| 00001C30: 97 32 31 32 39 2C 33 00 55 24 C5 03 9E 55 55 AA |.2129,3.U$...UU.| 00001C40: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO| 00001C50: 50 20 4B 45 59 00 66 24 CA 03 8D 38 30 30 3A 8F |P KEY.f$...800:.| 00001C60: 20 54 49 54 4C 45 00 76 24 D4 03 89 33 30 30 3A | TITLE.v$...300:| 00001C70: 8F 20 4D 45 4E 55 00 A7 24 DE 03 99 22 93 54 48 |. MENU..$...".TH| 00001C80: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W| 00001C90: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH| 00001CA0: 49 4E 45 21 22 3A 80 00 DC 24 E8 03 8B 55 5A B2 |INE!":...$...UZ.| 00001CB0: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0| 00001CC0: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST| 00001CD0: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 08 25 E9 |ARTS HERE **..%.| 00001CE0: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500| 00001CF0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.| 00001D00: 35 33 32 38 30 2C 31 34 00 0E 25 F2 03 8C 00 3C |53280,14..%....<| 00001D10: 25 FC 03 8F 20 4D 41 54 48 20 44 49 43 45 20 20 |%... MATH DICE | 00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A | J| 00001D30: 55 4C 59 20 38 30 20 32 20 52 45 4D 00 4A 25 01 |ULY 80 2 REM.J%.| 00001D40: 04 43 25 B2 30 3A 54 25 B2 30 00 87 25 06 04 8F |.C%.0:T%.0..%...| 00001D50: 20 43 4F 55 4E 54 20 26 20 41 44 44 20 44 4F 54 | COUNT & ADD DOT| 00001D60: 53 20 4F 4E 20 44 49 43 45 20 46 4F 52 20 20 20 |S ON DICE FOR | 00001D70: 20 20 20 20 20 20 20 20 20 43 4F 52 52 45 43 54 | CORRECT| 00001D80: 20 41 4E 53 57 45 52 00 8D 25 10 04 8F 00 9A 25 | ANSWER..%.....%| 00001D90: 1A 04 8F 20 38 4B 20 50 45 54 00 A0 25 24 04 8F |... 8K PET..%$..| 00001DA0: 00 C6 25 2E 04 8F 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 |..%...".........| 00001DB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001DC0: C0 C0 C0 C0 C0 AE 00 EC 25 38 04 8F 22 DD 20 20 |........%8..". | 00001DD0: 20 20 20 20 20 53 41 4E 20 4D 41 54 45 4F 20 43 | SAN MATEO C| 00001DE0: 4F 55 4E 54 59 20 20 20 20 20 20 DD 00 12 26 42 |OUNTY ...&B| 00001DF0: 04 8F 22 DD 20 20 20 20 20 4F 46 46 49 43 45 20 |..". OFFICE | 00001E00: 4F 46 20 45 44 55 43 41 54 49 4F 4E 20 20 20 20 |OF EDUCATION | 00001E10: 20 DD 00 38 26 4C 04 8F 22 DD 20 20 20 20 20 20 | ..8&L..". | 00001E20: 20 20 20 20 20 20 20 26 20 20 20 20 20 20 20 20 | & | 00001E30: 20 20 20 20 20 20 20 DD 00 5E 26 56 04 8F 22 DD | ..^&V..".| 00001E40: 20 20 43 4F 4D 50 55 54 45 52 2D 55 53 49 4E 47 | COMPUTER-USING| 00001E50: 20 45 44 55 43 41 54 4F 52 53 20 20 20 DD 00 84 | EDUCATORS ...| 00001E60: 26 60 04 8F 22 DD 20 20 20 20 20 20 20 20 20 20 |&`..". | 00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E80: 20 20 20 DD 00 AA 26 6A 04 8F 22 DD 20 20 20 20 | ...&j..". | 00001E90: 20 20 20 20 20 20 53 4F 46 54 53 57 41 50 20 20 | SOFTSWAP | 00001EA0: 20 20 20 20 20 20 20 20 20 DD 00 D0 26 74 04 8F | ...&t..| 00001EB0: 22 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00001EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .| 00001ED0: 00 F6 26 7E 04 8F 22 DD 33 33 33 20 4D 41 49 4E |..&~..".333 MAIN| 00001EE0: 20 53 54 52 45 45 54 2C 20 52 45 44 57 4F 4F 44 | STREET, REDWOOD| 00001EF0: 20 43 49 54 59 DD 00 1C 27 88 04 8F 22 DD 43 41 | CITY...'...".CA| 00001F00: 20 39 34 30 36 33 20 28 34 31 35 29 33 36 34 2D | 94063 (415)364-| 00001F10: 35 36 30 30 20 45 58 34 34 30 31 DD 00 42 27 92 |5600 EX4401..B'.| 00001F20: 04 8F 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............| 00001F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001F40: C0 BD 00 68 27 9C 04 8F 22 B0 C0 C0 C0 C0 C0 C0 |...h'...".......| 00001F50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001F60: C0 C0 C0 C0 C0 C0 C0 AE 00 8E 27 A6 04 8F 22 DD |..........'...".| 00001F70: 20 50 52 4F 47 52 41 4D 53 20 4D 41 59 20 42 45 | PROGRAMS MAY BE| 00001F80: 20 43 4F 50 49 45 44 20 46 4F 52 20 20 DD 00 B4 | COPIED FOR ...| 00001F90: 27 B0 04 8F 22 DD 20 45 44 55 43 41 54 49 4F 4E |'...". EDUCATION| 00001FA0: 41 4C 20 55 53 45 20 4F 4E 4C 59 20 41 4E 44 20 |AL USE ONLY AND | 00001FB0: 20 20 20 DD 00 DA 27 BA 04 8F 22 DD 20 41 52 45 | ...'...". ARE| 00001FC0: 20 4E 4F 54 20 54 4F 20 42 45 20 53 4F 4C 44 2E | NOT TO BE SOLD.| 00001FD0: 20 20 20 20 20 20 20 20 20 DD 00 00 28 C4 04 8F | ...(...| 00001FE0: 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............| 00001FF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................| 00002000: 00 24 28 CE 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.$(...**********| 00002010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002020: 2A 2A 2A 2A 00 48 28 D8 04 8F 2A 20 20 20 20 20 |****.H(...* | 00002030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002040: 20 20 20 20 20 20 20 2A 00 6C 28 E2 04 8F 2A 20 | *.l(...* | 00002050: 20 20 20 20 20 20 20 20 4D 41 54 48 20 44 49 43 | MATH DIC| 00002060: 45 20 20 20 20 20 20 20 20 20 20 2A 00 90 28 EC |E *..(.| 00002070: 04 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* | 00002080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00002090: 00 B4 28 F6 04 8F 2A 20 20 20 20 20 4B 49 44 2D |..(...* KID-| 000020A0: 50 52 4F 4F 46 45 44 20 42 59 20 4A 4A 20 20 20 |PROOFED BY JJ | 000020B0: 20 20 20 2A 00 D8 28 00 05 8F 2A 20 20 20 20 20 | *..(...* | 000020C0: 20 20 4A 55 4C 59 20 31 36 2C 20 31 39 38 30 20 | JULY 16, 1980 | 000020D0: 20 20 20 20 20 20 20 2A 00 FC 28 0A 05 8F 2A 20 | *..(...* | 000020E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000020F0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 20 29 14 | *. ).| 00002100: 05 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00002110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002120: 00 26 29 1E 05 3A 00 59 29 28 05 5A 5A 24 B2 22 |.&)..:.Y)(.ZZ$."| 00002130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002150: 20 20 20 20 20 20 20 20 22 00 6B 29 32 05 99 22 | ".k)2.."| 00002160: 93 22 3B 3A 97 55 54 2C 55 55 25 00 AD 29 3C 05 |.";:.UT,UU%..)<.| 00002170: 99 22 11 11 11 11 11 11 20 57 48 41 54 27 53 20 |."...... WHAT'S | 00002180: 59 4F 55 52 20 4E 41 4D 45 3F 20 22 3B 3A 55 4C |YOUR NAME? ";:UL| 00002190: B2 31 32 3A 55 53 24 B2 22 22 3A 8D 33 35 3A 49 |.12:US$."":.35:I| 000021A0: 4E 24 B2 55 52 24 3A 4E 24 B2 49 4E 24 00 B8 29 |N$.UR$:N$.IN$..)| 000021B0: 41 05 55 52 24 B2 22 22 00 FE 29 46 05 99 22 11 |A.UR$.""..)F..".| 000021C0: 11 11 20 48 4F 57 20 4D 41 4E 59 20 52 4F 4C 4C |.. HOW MANY ROLL| 000021D0: 53 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 |S WOULD YOU LIKE| 000021E0: 3F 20 22 3B 3A 55 4C B2 32 3A 55 53 24 B2 22 30 |? ";:UL.2:US$."0| 000021F0: 31 32 33 34 35 36 37 38 39 22 3A 8D 33 35 00 1B |123456789":.35..| 00002200: 2A 48 05 49 4E 24 B2 55 52 24 3A 55 52 24 B2 22 |*H.IN$.UR$:UR$."| 00002210: 22 3A 52 25 B2 C5 28 49 4E 24 29 00 34 2A 50 05 |":R%..(IN$).4*P.| 00002220: 81 20 58 20 B2 20 31 20 A4 20 52 25 3A 99 22 93 |. X . 1 . R%:.".| 00002230: 11 11 22 3B 00 4C 2A 5A 05 4E B2 4E AA 31 3A 44 |..";.L*Z.N.N.1:D| 00002240: B2 B5 28 BB 28 31 29 AC 36 AA 31 29 00 5D 2A 64 |..(.(1).6.1).]*d| 00002250: 05 99 22 20 CF A3 A3 A3 A3 A3 D0 20 22 00 6E 2A |.." ....... ".n*| 00002260: 6E 05 8B 20 44 B2 31 20 89 20 31 34 36 30 00 7E |n.. D.1 . 1460.~| 00002270: 2A 78 05 8B 20 44 B2 32 20 89 31 34 34 30 00 8F |*x.. D.2 .1440..| 00002280: 2A 82 05 8B 20 44 B2 33 20 89 20 31 34 34 30 00 |*... D.3 . 1440.| 00002290: A0 2A 8C 05 99 22 20 A5 D1 20 20 20 D1 A7 20 22 |.*..." .. .. "| 000022A0: 00 AB 2A 96 05 89 20 31 34 37 30 00 BC 2A A0 05 |..*... 1470..*..| 000022B0: 99 22 20 A5 D1 20 A0 A0 A0 A7 A0 22 00 C7 2A AA |." .. ....."..*.| 000022C0: 05 89 20 31 34 37 30 00 D8 2A B4 05 99 22 20 A5 |.. 1470..*..." .| 000022D0: A0 20 20 20 20 A7 20 22 00 E9 2A BE 05 8B 20 44 |. . "..*... D| 000022E0: B2 32 20 89 20 31 35 32 30 00 FA 2A C8 05 8B 20 |.2 . 1520..*... | 000022F0: 44 B2 34 20 89 20 31 35 32 30 00 0B 2B D2 05 8B |D.4 . 1520..+...| 00002300: 20 44 B2 36 20 89 20 31 35 34 30 00 1C 2B DC 05 | D.6 . 1540..+..| 00002310: 99 22 20 A5 20 20 D1 A0 A0 A7 20 22 00 27 2B E6 |." . .... ".'+.| 00002320: 05 89 20 31 35 35 30 00 38 2B F0 05 99 22 20 A5 |.. 1550.8+..." .| 00002330: 20 20 20 20 20 A7 20 22 00 43 2B FA 05 89 20 31 | . ".C+... 1| 00002340: 35 35 30 00 54 2B 04 06 99 22 20 A5 D1 20 20 20 |550.T+..." .. | 00002350: D1 A7 20 22 00 65 2B 0E 06 8B 20 44 B2 31 20 89 |.. ".e+... D.1 .| 00002360: 20 31 36 32 30 00 76 2B 18 06 8B 20 44 B2 32 20 | 1620.v+... D.2 | 00002370: 89 20 31 36 30 30 00 87 2B 22 06 8B 20 44 B2 33 |. 1600..+".. D.3| 00002380: 20 89 20 31 36 30 30 00 98 2B 2C 06 99 22 20 A5 | . 1600..+,.." .| 00002390: D1 20 20 20 D1 A7 20 22 00 A3 2B 36 06 89 20 31 |. .. "..+6.. 1| 000023A0: 36 33 30 00 B4 2B 40 06 99 22 20 A5 20 20 20 20 |630..+@.." . | 000023B0: D1 A7 20 22 00 BF 2B 4A 06 89 20 31 36 33 30 00 |.. "..+J.. 1630.| 000023C0: D0 2B 54 06 99 22 20 A5 20 20 20 20 20 A7 20 22 |.+T.." . . "| 000023D0: 00 E3 2B 5E 06 99 22 20 CC A4 A4 A4 A4 A4 BA 20 |..+^.." ....... | 000023E0: 22 3A 99 00 F4 2B 68 06 8B 20 4E B2 32 20 89 20 |":...+h.. N.2 . | 000023F0: 31 36 37 30 00 02 2C 72 06 99 22 20 20 20 2B 22 |1670..,r.." +"| 00002400: 3A 99 00 11 2C 7C 06 41 B2 44 3A 89 20 31 33 37 |:...,|.A.D:. 137| 00002410: 30 00 29 2C 86 06 54 B2 44 AA 41 3A 99 22 20 20 |0.),..T.D.A:." | 00002420: 20 20 20 20 20 3D 20 22 3B 00 62 2C 90 06 55 4C | = ";.b,..UL| 00002430: B2 32 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 |.2:US$."01234567| 00002440: 38 39 48 22 3A 8D 33 35 3A 49 4E 24 B2 55 52 24 |89H":.35:IN$.UR$| 00002450: 3A 55 52 24 B2 22 22 3A 54 31 25 B2 C5 28 49 4E |:UR$."":T1%..(IN| 00002460: 24 29 00 75 2C 9A 06 8B 20 54 31 25 B2 54 20 89 |$).u,... T1%.T .| 00002470: 20 31 37 36 30 00 AF 2C A4 06 99 22 11 20 43 4F | 1760..,...". CO| 00002480: 55 4E 54 20 54 48 45 20 53 50 4F 54 53 20 41 4E |UNT THE SPOTS AN| 00002490: 44 20 47 49 56 45 20 41 4E 4F 54 48 45 52 20 20 |D GIVE ANOTHER | 000024A0: 20 20 20 20 20 20 41 4E 53 57 45 52 2E 11 22 00 | ANSWER..".| 000024B0: D6 2C AE 06 99 22 13 11 11 11 11 11 11 11 11 11 |.,..."..........| 000024C0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 3D 20 |....... = | 000024D0: 20 20 9D 9D 22 3B 00 0F 2D B8 06 55 4C B2 32 3A | ..";..-..UL.2:| 000024E0: 55 53 24 B2 22 31 32 33 34 35 36 37 38 39 30 48 |US$."1234567890H| 000024F0: 22 3A 8D 33 35 3A 49 4E 24 B2 55 52 24 3A 55 52 |":.35:IN$.UR$:UR| 00002500: 24 B2 22 22 3A 54 32 25 B2 C5 28 49 4E 24 29 00 |$."":T2%..(IN$).| 00002510: 22 2D C2 06 8B 20 54 32 25 B2 54 20 89 20 31 37 |"-... T2%.T . 17| 00002520: 36 30 00 4F 2D CC 06 99 22 11 22 3B 5A 5A 24 3B |60.O-...".";ZZ$;| 00002530: 22 91 20 4E 4F 2C 20 54 48 45 20 41 4E 53 57 45 |". NO, THE ANSWE| 00002540: 52 20 49 53 20 22 54 3A 54 25 B2 54 25 AA 31 00 |R IS "T:T%.T%.1.| 00002550: 7F 2D D1 06 99 22 91 20 20 20 20 20 20 20 20 20 |.-...". | 00002560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00002580: 8A 2D D6 06 89 20 31 37 37 30 00 C6 2D E0 06 99 |.-... 1770..-...| 00002590: 22 91 22 3B 5A 24 3B 22 13 11 11 11 11 11 11 11 |".";Z$;"........| 000025A0: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... | 000025B0: 20 20 20 20 20 20 12 20 20 52 49 47 48 54 20 21 | . RIGHT !| 000025C0: 21 21 20 20 92 22 00 DA 2D E5 06 43 25 B2 43 25 |!! ."..-..C%.C%| 000025D0: AA 31 3A 54 25 B2 54 25 AA 31 00 ED 2D EA 06 81 |.1:T%.T%.1..-...| 000025E0: 20 48 B2 31 20 A4 20 32 30 30 30 3A 82 00 FF 2D | H.1 . 2000:...-| 000025F0: F4 06 8B 20 58 B2 52 25 20 A7 20 31 38 30 30 00 |... X.R% . 1800.| 00002600: 41 2E FE 06 99 22 13 11 11 11 11 11 11 11 1D 1D |A...."..........| 00002610: 1D 1D 1D 1D 1D 1D 1D 1D 20 54 48 45 20 44 49 43 |........ THE DIC| 00002620: 45 20 52 4F 4C 4C 20 41 47 41 49 4E 2E 2E 2E 2E |E ROLL AGAIN....| 00002630: 2E 22 3A 81 20 48 B2 31 20 A4 20 37 30 30 3A 82 |.":. H.1 . 700:.| 00002640: 48 00 47 2E 08 07 99 00 53 2E 12 07 4E B2 30 3A |H.G.....S...N.0:| 00002650: 82 20 58 00 74 2E 17 07 99 22 93 11 11 11 11 11 |. X.t...."......| 00002660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00002670: 11 11 22 3B 00 9F 2E 19 07 99 A6 35 29 3B 22 20 |..";.......5);" | 00002680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 000026A0: D3 2E 1C 07 99 22 13 11 11 11 20 20 20 59 4F 55 |.....".... YOU| 000026B0: 20 48 41 56 45 20 22 43 25 22 20 43 4F 52 52 45 | HAVE "C%" CORRE| 000026C0: 43 54 20 49 4E 20 22 54 25 22 20 54 52 49 45 53 |CT IN "T%" TRIES| 000026D0: 2E 11 22 00 EE 2E 26 07 8B 20 28 43 25 AD 54 25 |.."...&.. (C%.T%| 000026E0: 29 B1 2E 37 35 20 A7 20 8D 20 31 38 38 30 00 18 |)..75 . . 1880..| 000026F0: 2F 30 07 99 22 11 20 44 4F 20 59 4F 55 20 57 41 |/0..". DO YOU WA| 00002700: 4E 54 20 54 4F 20 52 4F 4C 4C 20 53 4F 4D 45 20 |NT TO ROLL SOME | 00002710: 4D 4F 52 45 3F 20 22 3B 00 46 2F 35 07 55 4C B2 |MORE? ";.F/5.UL.| 00002720: 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 35 3A 49 |1:US$."YN":.35:I| 00002730: 4E 24 B2 55 52 24 3A 55 52 24 B2 22 22 3A 41 24 |N$.UR$:UR$."":A$| 00002740: B2 49 4E 24 3A 99 00 73 2F 3A 07 8B 20 C8 28 41 |.IN$:..s/:.. .(A| 00002750: 24 2C 31 29 B2 22 59 22 20 A7 20 99 22 93 22 3B |$,1)."Y" . .".";| 00002760: 3A 99 22 13 11 11 11 11 11 11 11 22 3B 3A 89 31 |:."........";:.1| 00002770: 33 35 30 00 95 2F 3F 07 99 22 93 11 11 11 11 11 |350../?.."......| 00002780: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00002790: 11 11 11 22 3B 00 C0 2F 41 07 99 22 20 20 20 20 |...";../A.." | 000027A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000027B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";| 000027C0: 00 FB 2F 44 07 99 22 13 11 11 11 11 11 11 11 11 |../D..".........| 000027D0: 11 20 54 48 41 4E 4B 53 20 46 4F 52 20 50 4C 41 |. THANKS FOR PLA| 000027E0: 59 49 4E 47 20 57 49 54 48 20 4D 45 2C 11 11 9D |YING WITH ME,...| 000027F0: 9D 9D 9D 22 3B 4E 24 3B 22 21 22 00 2A 30 4E 07 |...";N$;"!".*0N.| 00002800: 99 22 11 11 22 3B A6 31 34 29 3B 22 12 47 4F 4F |."..";.14);".GOO| 00002810: 44 42 59 45 21 22 3A 99 22 11 11 11 11 11 11 22 |DBYE!":."......"| 00002820: 3A 8D 38 33 35 3A 89 33 30 30 00 4D 30 58 07 99 |:.835:.300.M0X..| 00002830: 22 20 20 20 20 20 CE A6 20 A6 A6 20 A6 CD 20 20 |" .. .. .. | 00002840: CE A6 A6 A6 CD 20 20 A6 A6 20 20 A6 A6 00 70 30 |..... .. ...p0| 00002850: 62 07 99 22 20 20 20 20 20 A6 A6 A0 A6 A6 20 A6 |b.." ..... .| 00002860: A6 20 20 A6 A6 A6 A6 A6 20 20 A6 A6 A0 A0 A6 A6 |. ..... ......| 00002870: 00 93 30 6C 07 99 22 20 20 20 20 20 A6 A6 A0 A6 |..0l.." ....| 00002880: A6 A0 A6 A6 A0 A0 A6 A6 A0 A6 A6 A0 A0 CD A6 A6 |................| 00002890: A6 A6 CE 00 B4 30 76 07 99 22 20 20 20 20 20 A6 |.....0v.." .| 000028A0: A6 A0 A6 A6 A0 A6 A6 A0 A0 A6 A6 A6 A6 A6 A0 A0 |................| 000028B0: A0 A0 A6 A6 00 D5 30 80 07 99 22 20 20 20 20 20 |......0..." | 000028C0: A6 A6 A0 A6 A6 A0 A6 A6 A0 A0 A6 A6 A0 A6 A6 A0 |................| 000028D0: A0 A0 A0 A6 A6 00 F6 30 8A 07 99 22 20 20 20 20 |.......0..." | 000028E0: 20 CD A6 A6 A6 A6 A6 A6 CE 20 20 CD A6 A0 A6 CE | ........ .....| 000028F0: A0 A0 A0 A0 A6 A6 00 FD 30 94 07 99 22 00 25 31 |........0...".%1| 00002900: 9E 07 99 22 20 20 20 CE A6 A6 A6 A6 CD 20 20 CE |..." ...... .| 00002910: A6 A6 A6 CD 20 20 20 20 CE A6 A6 A6 A6 CD 20 20 |.... ...... | 00002920: CE A6 A6 A6 CD 00 4D 31 A8 07 99 22 20 20 20 A6 |......M1..." .| 00002930: A6 A6 A6 A6 A6 20 20 A6 A6 A6 A6 A6 20 20 20 20 |..... ..... | 00002940: A6 A6 A6 A6 A6 A6 A0 A0 A6 A6 A6 A6 A6 00 75 31 |..............u1| 00002950: B2 07 99 22 20 20 20 20 20 A6 A6 A0 A0 A0 A0 A6 |..." .......| 00002960: A6 A0 A6 A6 A0 A0 A0 A0 A6 A6 A0 A0 A0 A0 A0 A0 |................| 00002970: A6 A6 A0 A6 A6 00 9D 31 BC 07 99 22 20 20 20 20 |.......1..." | 00002980: 20 A6 A6 A0 A0 A0 A0 A6 A6 A0 A6 A6 A0 A0 A0 A0 | ...............| 00002990: A6 A6 A0 A6 A6 CD A0 A0 A6 A6 A0 A6 A6 00 C5 31 |...............1| 000029A0: C6 07 99 22 20 20 20 20 20 A6 A6 A0 A0 A0 A0 A6 |..." .......| 000029B0: A6 A0 A6 A6 A0 A0 A0 A0 A6 A6 A0 A0 A6 A6 A0 A0 |................| 000029C0: A6 A6 A0 A6 A6 00 ED 31 D0 07 99 22 20 20 20 20 |.......1..." | 000029D0: 20 A6 A6 A0 A0 A0 A0 A6 A6 A0 A6 A6 A0 A0 A0 A0 | ...............| 000029E0: A6 A6 A6 A6 A6 A6 A0 A0 A6 A6 A0 A6 A6 00 15 32 |...............2| 000029F0: DA 07 99 22 20 20 20 20 20 A6 A6 A0 A0 A0 A0 CD |..." .......| 00002A00: A6 A6 A6 CE 20 20 20 20 CD A6 A6 A6 A6 CE A0 A0 |.... ........| 00002A10: CD A6 A6 A6 CE 00 32 32 E4 07 99 3A 4D 45 24 B2 |......22...:ME$.| 00002A20: 4E 24 AA 22 20 21 21 22 3A 4E 25 B2 C3 28 4D 45 |N$." !!":N%..(ME| 00002A30: 24 29 00 41 32 EE 07 81 20 58 B2 31 20 A4 20 4E |$).A2... X.1 . N| 00002A40: 25 00 5A 32 F8 07 99 C9 28 4D 45 24 2C 58 29 3B |%.Z2....(ME$,X);| 00002A50: 3A 81 54 B2 31 A4 35 3A 82 54 00 6E 32 02 08 81 |:.T.1.5:.T.n2...| 00002A60: 59 B2 31 A4 58 3A 99 22 9D 22 3B 3A 82 59 00 7C |Y.1.X:.".";:.Y.|| 00002A70: 32 0C 08 99 22 94 22 3B 3A 82 20 58 00 9E 32 16 |2...".";:. X..2.| 00002A80: 08 8F 46 4F 52 59 3D 31 20 54 4F 4E 25 3A 50 52 |..FORY=1 TON%:PR| 00002A90: 49 4E 54 22 9D 22 3B 3A 4E 45 58 54 20 59 00 D0 |INT".";:NEXT Y..| 00002AA0: 32 20 08 81 59 B2 33 A4 28 34 30 AB 4E 25 29 AD |2 ..Y.3.(40.N%).| 00002AB0: 32 3A 99 22 94 22 3B 3A 81 54 B2 31 A4 31 35 3A |2:.".";:.T.1.15:| 00002AC0: 82 54 3A 82 59 3A 99 3A 8D 32 30 30 30 30 3A 8E |.T:.Y:.:.20000:.| 00002AD0: 00 EB 32 20 4E 8F 20 43 48 41 52 47 45 21 20 41 |..2 N. CHARGE! A| 00002AE0: 44 41 50 54 45 44 20 46 52 4F 4D 00 FA 32 2A 4E |DAPTED FROM..2*N| 00002AF0: 8F 20 27 43 55 52 53 4F 52 27 00 0C 33 34 4E 8F |. 'CURSOR'..34N.| 00002B00: 20 42 59 20 4A 2E 20 44 41 56 49 44 00 17 33 3E | BY J. DAVID..3>| 00002B10: 4E 8F 20 57 48 43 49 00 23 33 48 4E 50 B2 35 39 |N. WHCI.#3HNP.59| 00002B20: 34 36 34 00 31 33 52 4E 97 35 39 34 36 37 2C 31 |464.13RN.59467,1| 00002B30: 36 00 3E 33 5C 4E 97 35 39 34 36 34 2C 30 00 49 |6.>3\N.59464,0.I| 00002B40: 33 66 4E 8D 32 30 31 30 30 00 68 33 70 4E 97 35 |3fN.20100.h3pN.5| 00002B50: 39 34 36 37 2C 30 3A 97 35 39 34 36 36 2C 30 3A |9467,0:.59466,0:| 00002B60: 97 35 39 34 36 34 2C 30 00 6E 33 7A 4E 8E 00 74 |.59464,0.n3zN..t| 00002B70: 33 84 4E 8F 00 86 33 8E 4E 97 35 39 34 36 36 2C |3.N...3.N.59466,| 00002B80: 31 35 3A 54 B2 33 00 A3 33 98 4E 97 50 2C 32 35 |15:T.3..3.N.P,25| 00002B90: 35 3A 81 4C B2 31 A4 31 30 30 3A 82 3A 8D 32 30 |5:.L.1.100:.:.20| 00002BA0: 31 39 30 00 C0 33 A2 4E 97 50 2C 31 39 31 3A 81 |190..3.N.P,191:.| 00002BB0: 4C B2 31 A4 31 30 30 3A 82 3A 8D 32 30 31 39 30 |L.1.100:.:.20190| 00002BC0: 00 DD 33 AC 4E 97 50 2C 31 35 32 3A 81 4C B2 31 |..3.N.P,152:.L.1| 00002BD0: A4 31 30 30 3A 82 3A 8D 32 30 31 39 30 00 FA 33 |.100:.:.20190..3| 00002BE0: B6 4E 97 50 2C 31 32 38 3A 81 4C B2 31 A4 32 30 |.N.P,128:.L.1.20| 00002BF0: 30 3A 82 3A 8D 32 30 31 39 30 00 1B 34 C0 4E 97 |0:.:.20190..4.N.| 00002C00: 50 2C 31 35 32 3A 81 4C B2 31 A4 31 30 30 3A 82 |P,152:.L.1.100:.| 00002C10: 3A 54 B2 30 3A 8D 32 30 31 39 30 00 31 34 CA 4E |:T.0:.20190.14.N| 00002C20: 97 50 2C 31 32 38 3A 81 4C B2 31 A4 34 30 30 3A |.P,128:.L.1.400:| 00002C30: 82 00 37 34 D4 4E 8E 00 4F 34 DE 4E 97 35 39 34 |..74.N..O4.N.594| 00002C40: 36 34 2C 30 3A 81 4C B2 31 A4 54 3A 82 3A 8E 00 |64,0:.L.1.T:.:..| 00002C50: 00 00 |.. |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.E.-.." ..";:.UC,0.Y.2..UI$:.UI$."".5
0...7..UI$.G(13).C(UR$)..1..UC,1:." .";:
.85...<..UI$.G(20).105...>.. C(UR$)..UL.
50.O.A..120:. CHECK FOR VALID CHARACTER.
..F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.>.Z..UR$.
UX$.195:. EXIT TO HELP ROUTINE.M._..UF.1
..240.Z.D.UF.0:.:..S.F.. ++ CHECK DELETE
++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR$
).1)...S..". ..";:.50.U.X.. ++ CHECK FO
R VALID CHARACTERS ++...}..C(US$).0.150.
...US$.US$.UX$......US.1.C(US$)......UI
$.J(US$,US,1)...%.....2...UI$."":..M....
** STANDARD INPUT **.^....F(UI$).46...O
....UI$.G(32)..... ..F(UI$).48.F(UI$).57
.170............F(UI$).65.F(UI$).90.180.
......Y....F(UI$).193.F(UI$).218.UI$."":
.......B(UT).UU%.UI$.G(F(UI$).128):.....
.......UI$."":..4.C.UF.1:. +++ HELP ROUT
INE EXIT +++.=.E..250.F.H..245.E.M..UQ.U
B.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).B(U
Q):.:."."...W.UZ.1:UV%.B(UT)...X..300.B.
Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..
B(50003).0..53281,1:.".";:.53281,6:.5328
0,14:.220......".";.2...UT$.UL$:.UT,UV%:
.UQ.UB.(U2%.256.U1%.U3%.3).G....UQ,UQ%(U
Q.UB):..S....U1,U1%._....U2,U2%.K....U4,
U4%.Y....U3,U3%.1......35.....UD%.((U2%.
256.U1%.U3%).UB).40:.H(UD$,UD%.1):......
.H(UD$,24);" . HELP
COMING . ":......U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).B...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.H.....Y.,.. ** MENU *
*._.-.:......".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.../.:...1..".
MENU"...6.." -----------------------
---------------"...;..".. 1. BEG
IN MATH DICE"./.@..".. 2. STUDEN
T INSTRUCTIONS".Y.E..".. 3. TEAC
HER INSTRUCTIONS"...J..".. 4. MO
DIFICATION OF PROGRAM"...O..".. 5.
QUIT..".Q.T.." ----------------------
----------------"...Y..".. PRESS A
NUMBER KEY (1-5) ";.%.^.UL.1:US$."12345
":.35:. INPUT ROUTINE.F.C..E(UR$).1000,4
00,500,600,396.O.H..300.V.... ** RE-ENAB
LE STOP KEY AND END **......B(50003)..1.
B(50003)..160.B(50003)..0.399.O....UU.71
:.B(50003).0..53281,6:.53280,14......"..
":.......875:....... ** STUDENT INSTRUCT
IONS **.6....".":.UT,UL%:.B(50003).0..53
281,0:.53280,0.X...UP.0:UG$."STUDENT INS
T.":.850.B....".."......" HI! MY NAME
IS C64":......." I WILL THROW TWO DICE,
AND SHOW THEM".W....". TO YOU. YOUR JOB
IS TO GIVE ME"......". THE SUM OF THE T
WO NUMBERS OF DOTS ON".4....". THE DICE.
AFTER ENTERING THE ANSWER".B.G..". PLE
ASE PRESS .RETURN. SO THAT I KNOW"...N..
". WHEN YOU'VE ANSWERED.":.835:.850...P.
.".. ANY TIME YOU NEED HELP, PRESS .H.
AND"...T..". .RETURN.. I WILL GIVE YOU
TWO CHANCES"...V..". TO ANSWER THE QUEST
ION. THERE IS A".H.X..". LITTLE SUPRISE
IF YOU DO WELL, SO TRY".L.Z..". YOU'RE
BEST... GOOD LUCK !".U....835.....UG$.""
......UZ.1..UP%:.217............ ** TEAC
HER INSTRUCTIONS **......".":.UT,UL%:.B(
50003).0..53281,2:.53280,10.....UP.0:UG$
."TEACHER INST.":.850.;....".. TO T
HE BEST OF OUR KNOWLEDGE,.".D...." THI
S PROGRAM IS IN THE PUBLIC."......" DO
MAIN. IF THIS IS NOT THE CASE."......"
PLEASE CONTACT:...".W...." COMMOD
ORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO".@...." CANADA
M1W 2K4".`...." (416) 499-4292"
.V...UP.1:. 835:. 850:......" ..PROG
RAM NAME: MATH DICE......." WRITTEN
BY : UNKNOWN......." UPGRADED BY :
......." .THIS PROGRAM WILL
RUN ON ANY...-...." PET 64 COMP
UTER..R...." COMMODORE 64 COMPUT
ER.`....835:.850......------------------
------------......" UPGRADED FOR C64
BY:......" LYNDA BONANNO......----
--------------------------......".. THI
S PROGRAM WILL HELP EARLY AGE".>....". S
TUDENTS (K-3) TO DEVELOP THEIR SKILLS".G
....". IN COUNTING AND ADDING NUMBERS.".
V.&..835:.".";...K.UG$.""...N..UZ.1..UP%
:.217...W...A.X.. ** PROGRAM MODIFICATIO
N INST **.R.Y..".":.UT,UL%...].UP.0:UG$.
"PROGRAM MOD.":.850.!....".. 1830 IF (C%
/T%)>.75 THEN ..........".M...."
... ".Y. .."
^ "......"
... ON THE LINE 1830, THE VALUE 0.75 MA
Y".W....". BE CHANGED TO A DIFFERENT STA
NDARD."......". IF A STUDENT WORKS OVER
THE SET"./....". STANDARD, A BIG MESSAGE
WILL APPEAR.";.9.... 835.D...UG$."".X..
..UZ.1..UP%:.217.^.......... ** TO USE 8
032 LOAD CBM4032 **...F..".....BEFORE RU
NNING THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM.......
......"...Z..UU.71.......%.... ** TO USE
8032 LOAD CBM4032 **.P...."....BEFORE R
UNNING THIS PROGRAM ON AN 8032 ..LOAD C
BM 4032 PROGRAM".|....1093:.... .. ** T
I T L E P A G E **.P.".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6...#.. G
(142);...$..I.1.38:."...";:....&..I.1.22
:.".....";:..$.(..I.1.37:.".....";:..<.*
..I.1.22:.".....";:..A.,..".............
.............. ......."................
... . . .....0.."................... .
....B.2..".................... ....4..
"..............C O M M O D O R E.....6..
"...............EDUCATIONAL...,.8.."....
............SOFTWARE.G.:.. ** COMMODORE
LOGO **..;..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT.":I.0...<..A$:.A$.." "
.I.I.1:.I.250.828.E.>.T1$."":T2$."":T3$.
"":T4$."":I.0.N.@..300...C.. ** SPACE BA
R PRESS **.%.H..UO,0:.H(UD$,24);".......
PRESS SPACE BAR TO CONTINUE.".<.L..UI$:.
UI$.." ".844.B.N...B.R.. ** PAGE DESIGN
ROUTINE **.N.T.UP.UP.1...W.."."H(UT$.UP$
,21);I(UP$.UG$.D(UP),18).G.\.." --------
------------------------------".V.`..UH.
.0.870...A..H(UD$,24);H(UP$,7);"HELP - P
RESS H <RETURN>"...F.UH.0:."..":..:.K.
. ** PLEASE WAIT REMARK **.P.P..H(UD$,24
);" ONE MOMENT PLEASE... "
.V.U........ ** SET UP VARIABLES **.....
UX$."H":.UQ%(1000):UB.32768:U1.196:U2.19
7:U3.198:U4.216:UC.167:UU.1024.. ..UT.59
468:UU%.12:UL%.14:UP%.1146:UM.32768:UO.1
58:. 50003,0._ ...B(50003).0.UB.1024:U1.
209:U2.210:U3.211:U4.214:UC.204:UU.2048.
. ...B(50003).0.UT.53272:UU%.21:UL%.23:U
P%.2139:UM.1024:UO.198.B ..UD$."........
.................".. ..UP$."
"..!..UT$." M
ATH DICE"..!....)!... ** SET VARIABLES *
*.2!...900.8!..:.>!..:.Y!... ** CHECK FO
R 8032 **.W!...".":." ":. SHIFTED SPACE.
.!...B(UB.40)..96..700..!... ** MEMORY C
HECK **..!... .(0).2000.937..!..."....TH
IS MACHINE DOES NOT HAVE ENOUGH.".."..."
MEMORY TO RUN THIS PROGRAM !".."...UU.71
.."....8"..."..":.B(50003).0.962.G"... *
* BASIC 2.0 OR 4.0 OR C-64 SETUP **.
."...1075,133:.1076,144:.1077,234:.1079,
4:.1080,133:.1081,145.."...1091,155:.109
8,133:.1099,144:.1100,234:.1103,133.."..
.1104,145:.1105,234:.1082,234..#...B(500
03)..160.955.C#...1093,88:.1094,228:.109
7,85:.1102,228:.965.X#...B(50003)..1.990
..#...1093,49:.1094,230:.1097,46:.1102,2
30:.965.A#B..2099,141:.2100,20:.2101,3:.
2103,8:.2104,141:.2105,21..#C..2106,3:.2
115,145:.2117,52:.2118,234:.2121,49:.212
2,141.7$D..2123,20:.2124,3:.2126,234:.21
27,141:.2128,21:.2129,3.U$E..UU.48:. DIS
ABLE STOP KEY.F$J..800:. TITLE.V$T..300:
. MENU..$...".THE PGM WILL NOT WORK ON T
HIS MACHINE!":...$...UZ.1..UP%:.UP%:UZ.0
:. ** PROGRAM STARTS HERE **..%..."..";:
.:.B(50003).0..53281,6:.53280,14..%....<
%... MATH DICE JULY 80 2
REM.J%..C%.0:T%.0..%... COUNT & ADD DOT
S ON DICE FOR CORRECT ANSWER.
.%.....%... 8K PET. %$...F%...".........
........................%8..". SAN
MATEO COUNTY ...&B..". OFFICE
OF EDUCATION ..8&L..". &
..^&V..". COMPUTER-USING
EDUCATORS ...&`..".
...&J..". SOFTSWAP
..P&T..".
...&~..".333 MAIN STREET, REDWOOD
CITY...'...".CA 94063 (415)364-5600 EX4
401..B'...".............................
...H'..."...............................
..'...". PROGRAMS MAY BE COPIED FOR ...
'...". EDUCATIONAL USE ONLY AND ..Z'.
..". ARE NOT TO BE SOLD. ...(D..
"................................$(N..**
****************************.H(X..*
*.L(...*
MATH DICE *..(...*
*..(...* KID-PROOFED
BY JJ *.X(...* JULY 16, 1980
*..(...*
*. )...******************************
.&)..:.Y)(.ZZ$."
".K)2..".";:.UT,UU%..)<.
."...... WHAT'S YOUR NAME? ";:UL.12:US$.
"":.35:IN$.UR$:N$.IN$..)A.UR$.""..)F..".
.. HOW MANY ROLLS WOULD YOU LIKE? ";:UL.
2:US$."0123456789":.35..*H.IN$.UR$:UR$."
":R%.E(IN$).4*P.. X . 1 . R%:."...";.L*Z
.N.N.1:D..(.(1).6.1).]*D.." O.....P ".N*
N.. D.1 . 1460.~*X.. D.2 .1440..*... D.3
. 1440. *..." .Q Q. "..*... 1470..* .
." .Q . ".G*... 1470.X*..." . . "
..*... D.2 . 1520..*H.. D.4 . 1520..+R..
D.6 . 1540..+..." . Q . ".'+... 1550.
8+..." . . ".C+... 1550.T+..." .Q
Q. ".E+... D.1 . 1620.V+... D.2 . 1600..
+".. D.3 . 1600..+,.." .Q Q. "..+6.. 1
630..+@.." . Q. "..+J.. 1630.P+T.." .
. "..+^.." L...... ":...+H.. N.2 .
1670..,R.." +":...,|.A.D:. 1370.),..T.
D.A:." = ";.B,..UL.2:US$."01234567
89H":.35:IN$.UR$:UR$."":T1%.E(IN$).U,...
T1%.T . 1760..,...". COUNT THE SPOTS AN
D GIVE ANOTHER ANSWER..".V,..."..
............... = ..";..-..UL.2:
US$."1234567890H":.35:IN$.UR$:UR$."":T2%
.E(IN$)."-B.. T2%.T . 1760.O-L..".";ZZ$;
". NO, THE ANSWER IS "T:T%.T%.1.-Q..".
".
.-V.. 1770.F-...".";Z$;"................
.. . RIGHT !!! .".Z-..C%.C%
.1:T%.T%.1..-... H.1 . 2000:...-... X.R%
. 1800.A....".................. THE DIC
E ROLL AGAIN.....":. H.1 . 700:.H.G.....
S...N.0:. X.T...."......................
..";.......5);"
".S....".... YOU HAVE "C%" CORRE
CT IN "T%" TRIES.."...&.. (C%.T%)..75 .
. 1880../0..". DO YOU WANT TO ROLL SOME
MORE? ";.F/5.UL.1:US$."YN":.35:IN$.UR$:U
R$."":A$.IN$:..S/:.. H(A$,1)."Y" . .".";
:."........";:.1350../?.."..............
...........";../A.."
";../D..".......... THANKS
FOR PLAYING WITH ME,......";N$;"!".*0N.
."..";.14);".GOODBYE!":."......":.835:.3
00.M0X.." N. .. .M N...M .. ...P0
B.." .. .. .. ..... .. ....0L.."
.. .. .. .. .. M....N..0V.." .
. .. .. ..... ...U0..." .. .. ..
.. .. ....0..." M......N M. .N
....0...".%1..." N....M N...M
N....M N...M.M1..." ...... .....
...... ......U1..." .. .. ..
.. .. ....1..." .. .. ..
.. ..M .. ...E1F.." .. .. ..
.. .. .. ....1P.." .. .. ..
...... .. ....2Z.." .. M...N
M....N M...N.22...:ME$.N$." !!":N%.C(ME
$).A2... X.1 . N%.Z2...I(ME$,X);:.T.1.5:
.T.N2...Y.1.X:.".";:.Y.|2...".";:. X..2.
..FORY=1 TON%:PRINT".";:NEXT Y.P2 ..Y.3.
(40.N%).2:.".";:.T.1.15:.T:.Y:.:.20000:.
..2 N. CHARGE! ADAPTED FROM..2*N. 'CURSO
R'..34N. BY J. DAVID..3>N. WHCI.#3HNP.59
464.13RN.59467,16.>3\N.59464,0.I3FN.2010
0.H3PN.59467,0:.59466,0:.59464,0.N3ZN..T
3.N...3.N.59466,15:T.3..3.N.P,255:.L.1.1
00:.:.20190..3.N.P,191:.L.1.100:.:.20190
..3.N.P,152:.L.1.100:.:.20190..3.N.P,128
:.L.1.200:.:.20190..4.N.P,152:.L.1.100:.
:T.0:.20190.14JN.P,128:.L.1.400:..74TN..
O4.N.59464,0:.L.1.T:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL