PIZZA
FILE INFORMATION
FILENAME(S): PIZZA
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-12-01 13:57:47
APPEARS ON: 1 disk(s)
FILE HASH
0045e6390d758ea713bb46314dbaa59c2496c7f60c45a64d5627d1dba34ecee5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIENSTPROGRAMME | PIZZA | PRG | HOL2001, Misc | 17 | 0 | 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 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 25 0C CD 00 81 55 51 B2 55 42 A4 55 |245.%....UQ.UB.U|
00000420: 42 AA 39 31 39 00 41 0C D2 00 55 51 25 28 55 51 |B.919.A...UQ%(UQ|
00000430: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000440: 22 00 54 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".T...UZ.1:UV%..|
00000450: 28 55 54 29 00 5D 0C D8 00 89 33 30 30 00 A1 0C |(UT).]....300...|
00000460: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
00000470: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
00000480: 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |UK:..(50003).0..|
00000490: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
000004A0: 34 00 C9 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 |4.....UT$.UL$:."|
000004B0: 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 |.";:.UT,UV%:.UQ.|
000004C0: 55 42 A4 55 42 AA 39 31 39 00 DE 0C E1 00 97 55 |UB.UB.919......U|
000004D0: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 EA |Q,UQ%(UQ.UB):...|
000004E0: 0C E6 00 97 55 31 2C 55 31 25 00 F6 0C E8 00 97 |....U1,U1%......|
000004F0: 55 32 2C 55 32 25 00 02 0D E9 00 97 55 34 2C 55 |U2,U2%......U4,U|
00000500: 34 25 00 10 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%......U3,U3%.1|
00000510: 00 18 0D EB 00 89 33 35 00 4A 0D F0 00 55 44 25 |......35.J...UD%|
00000520: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000530: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000540: 24 2C 55 44 25 AA 31 29 3A 8E 00 86 0D F5 00 99 |$,UD%.1):.......|
00000550: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
00000580: 20 20 20 22 3A 8E 00 B2 0D FA 00 55 31 25 B2 C2 | ":......U1%..|
00000590: 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 |(U1):U2%..(U2):U|
000005A0: 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 |3%..(U3):U4%..(U|
000005B0: 34 29 00 DA 0D FB 00 55 4A 24 B2 55 53 24 3A 55 |4).....UJ$.US$:U|
000005C0: 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 |K$.UG$:UL$.UT$:U|
000005D0: 4A B2 55 50 3A 55 4B B2 55 4C 00 E0 0D FF 00 8E |J.UP:UK.UL......|
000005E0: 00 F1 0D 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A |...,.. ** MENU *|
000005F0: 2A 00 F7 0D 2D 01 3A 00 26 0E 2E 01 99 22 93 22 |*...-.:.&...."."|
00000600: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
00000610: 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 |3).0..53281,9:.5|
00000620: 33 32 38 30 2C 38 00 2C 0E 2F 01 3A 00 49 0E 31 |3280,8.,./.:.I.1|
00000630: 01 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000640: 20 20 20 20 4D 45 4E 55 22 00 78 0E 36 01 99 22 | MENU".x.6.."|
00000650: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000670: 2D 2D 2D 2D 2D 2D 2D 22 00 9C 0E 3B 01 99 22 11 |-------"...;..".|
00000680: 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 |. 1. BEG|
00000690: 49 4E 20 50 49 5A 5A 41 2D 33 21 22 00 C6 0E 40 |IN PIZZA-3!"...@|
000006A0: 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 |..".. 2. |
000006B0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
000006C0: 54 49 4F 4E 53 22 00 F0 0E 45 01 99 22 11 11 20 |TIONS"...E..".. |
000006D0: 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 | 3. TEACH|
000006E0: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |ER INSTRUCTIONS"|
000006F0: 00 0C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |...O..".. |
00000700: 34 2E 20 20 20 51 55 49 54 11 11 22 00 3B 0F 54 |4. QUIT..".;.T|
00000710: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 66 0F 59 01 |----------".f.Y.|
00000740: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
00000750: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
00000760: 2D 34 29 20 22 3B 00 8E 0F 5E 01 55 4C B2 31 3A |-4) ";...^.UL.1:|
00000770: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.|
00000780: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 99 | INPUT ROUTINE..|
00000790: 0F 60 01 55 53 24 B2 22 22 00 B6 0F 63 01 91 C5 |.`.US$.""...c...|
000007A0: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
000007B0: 30 30 2C 33 39 36 00 BF 0F 68 01 89 33 30 30 00 |00,396...h..300.|
000007C0: E6 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB|
000007D0: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
000007E0: 45 4E 44 20 2A 2A 00 15 10 8C 01 8B C2 28 35 30 |END **.......(50|
000007F0: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000800: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000810: 30 A7 33 39 39 00 3F 10 8D 01 9E 55 55 AA 37 31 |0.399.?....UU.71|
00000820: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000830: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00000840: 4B 10 8E 01 99 22 9A 93 22 3A 80 00 56 10 8F 01 |K...."..":..V...|
00000850: 8D 38 37 35 3A 8E 00 77 10 90 01 8F 20 2A 2A 20 |.875:..w.... ** |
00000860: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
00000870: 49 4F 4E 53 20 2A 2A 00 A6 10 95 01 99 22 93 22 |IONS **......"."|
00000880: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000890: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
000008A0: 33 32 38 30 2C 30 00 CC 10 9A 01 55 48 B2 31 3A |3280,0.....UH.1:|
000008B0: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
000008C0: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 FC 10 9F |T .NST":.850....|
000008D0: 01 99 22 11 11 20 20 20 C9 4E 20 54 48 49 53 20 |..".. .N THIS |
000008E0: 50 52 4F 47 52 41 4D 20 59 4F 55 20 57 4F 52 4B |PROGRAM YOU WORK|
000008F0: 20 49 4E 20 41 20 50 49 5A 5A 41 22 00 29 11 A4 | IN A PIZZA".)..|
00000900: 01 99 22 11 20 50 4C 41 43 45 2E 20 D0 45 4F 50 |..". PLACE. .EOP|
00000910: 4C 45 20 50 48 4F 4E 45 20 59 4F 55 20 41 4E 44 |LE PHONE YOU AND|
00000920: 20 41 53 4B 20 46 4F 52 22 00 53 11 A9 01 99 22 | ASK FOR".S...."|
00000930: 11 20 41 20 50 49 5A 5A 41 2E 20 D9 4F 55 52 20 |. A PIZZA. .OUR |
00000940: 4A 4F 42 20 49 53 20 54 4F 20 54 45 4C 4C 20 54 |JOB IS TO TELL T|
00000950: 48 45 22 00 70 11 AE 01 99 22 11 20 44 52 49 56 |HE".p....". DRIV|
00000960: 45 52 20 57 48 45 52 45 20 54 4F 20 47 4F 2E 22 |ER WHERE TO GO."|
00000970: 00 9C 11 B8 01 99 22 11 20 20 20 D9 4F 55 52 20 |......". .OUR |
00000980: 43 55 53 54 4F 4D 45 52 20 49 53 20 41 20 4C 45 |CUSTOMER IS A LE|
00000990: 54 54 45 52 20 4F 46 20 54 48 45 22 00 CA 11 BB |TTER OF THE"....|
000009A0: 01 99 22 11 20 41 4C 50 48 41 42 45 54 2E 20 20 |..". ALPHABET. |
000009B0: C8 45 20 4C 49 56 45 53 20 49 4E 20 41 20 54 4F |.E LIVES IN A TO|
000009C0: 57 4E 20 57 49 54 48 20 39 22 00 F4 11 BD 01 99 |WN WITH 9"......|
000009D0: 22 11 20 53 54 52 45 45 54 53 20 41 43 52 4F 53 |". STREETS ACROS|
000009E0: 53 20 41 4E 44 20 39 20 53 54 52 45 45 54 53 20 |S AND 9 STREETS |
000009F0: 55 50 2E 22 00 23 12 BF 01 99 22 11 20 D9 4F 55 |UP.".#....". .OU|
00000A00: 20 4D 55 53 54 20 54 45 4C 4C 20 54 48 45 20 44 | MUST TELL THE D|
00000A10: 52 49 56 45 52 20 48 4F 57 20 46 41 52 20 4F 56 |RIVER HOW FAR OV|
00000A20: 45 52 22 00 42 12 C2 01 99 22 11 20 41 4E 44 20 |ER".B....". AND |
00000A30: 48 4F 57 20 46 41 52 20 55 50 20 54 4F 20 47 4F |HOW FAR UP TO GO|
00000A40: 2E 22 00 55 12 C5 01 8D 38 33 35 3A 55 48 B2 31 |.".U....835:UH.1|
00000A50: 3A 8D 38 35 30 00 82 12 C7 01 99 22 11 11 20 20 |:.850......".. |
00000A60: 20 C9 46 20 59 4F 55 20 47 49 56 45 20 54 48 45 | .F YOU GIVE THE|
00000A70: 20 52 49 47 48 54 20 44 49 52 45 43 54 49 4F 4E | RIGHT DIRECTION|
00000A80: 53 22 00 AE 12 CA 01 99 22 11 20 59 4F 55 20 4D |S"......". YOU M|
00000A90: 41 4B 45 20 41 20 44 4F 4C 4C 41 52 2E 20 C9 46 |AKE A DOLLAR. .F|
00000AA0: 20 59 4F 55 20 47 49 56 45 20 54 48 45 22 00 DC | YOU GIVE THE"..|
00000AB0: 12 CC 01 99 22 11 20 57 52 4F 4E 47 20 44 49 52 |....". WRONG DIR|
00000AC0: 45 43 54 49 4F 4E 53 2C 20 59 4F 55 20 4C 4F 53 |ECTIONS, YOU LOS|
00000AD0: 45 20 41 20 44 4F 4C 4C 41 52 2E 22 00 06 13 E1 |E A DOLLAR."....|
00000AE0: 01 99 22 11 11 11 20 20 20 D4 4F 20 41 44 56 41 |.."... .O ADVA|
00000AF0: 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 45 |NCE FROM ONE QUE|
00000B00: 53 54 49 4F 4E 22 00 2F 13 E2 01 99 22 11 20 54 |STION"./....". T|
00000B10: 4F 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 |O THE NEXT PRESS|
00000B20: 20 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 22 00 | THE ..... BAR".|
00000B30: 5D 13 E3 01 99 22 11 11 1D 1D 1D C9 46 20 41 54 |]...."......F AT|
00000B40: 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 | ANY TIME YOU WI|
00000B50: 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 81 13 |SH TO RETURN"...|
00000B60: E4 01 99 22 11 20 54 4F 20 54 48 45 20 CD C5 CE |...". TO THE ...|
00000B70: D5 20 50 52 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE |. PRESS H ......|
00000B80: 22 00 8A 13 E5 01 8D 38 33 35 00 9E 13 EA 01 8B |"......835......|
00000B90: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 A4 |UZ.1..UP%:.217..|
00000BA0: 13 F3 01 8E 00 C5 13 F4 01 8F 20 2A 2A 20 54 45 |.......... ** TE|
00000BB0: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000BC0: 4E 53 20 2A 2A 00 F5 13 F5 01 99 22 93 22 3A 97 |NS **......".":.|
00000BD0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000BE0: B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 |.0..53281,2:.532|
00000BF0: 38 30 2C 31 30 00 1B 14 F6 01 55 48 B2 31 3A 55 |80,10.....UH.1:U|
00000C00: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
00000C10: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 49 14 F7 01 | .NST":.850.I...|
00000C20: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
00000C30: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000C40: 57 4C 45 44 47 45 2C 11 22 00 72 14 F8 01 99 22 |WLEDGE,.".r...."|
00000C50: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000C60: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000C70: 11 22 00 9E 14 F9 01 99 22 20 20 20 44 4F 4D 41 |."......" DOMA|
00000C80: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000C90: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 BB |NOT THE CASE."..|
00000CA0: 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000CB0: 4F 4E 54 41 43 54 3A 11 11 11 22 00 E5 14 FB 01 |ONTACT:...".....|
00000CC0: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000CD0: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000CE0: 4E 45 53 11 22 00 08 15 FC 01 99 22 20 20 20 20 |NES."......" |
00000CF0: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000D00: 41 43 59 20 C1 56 45 2E 00 2C 15 FD 01 99 22 20 |ACY .VE..,...." |
00000D10: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000D20: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 4E 15 FE |RT, .NTARIO".N..|
00000D30: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000D40: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 6E |ADA .1. 2.4".n|
00000D50: 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000D60: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 89 |416) 499-4292"..|
00000D70: 15 00 02 55 48 B2 31 3A 55 50 B2 31 3A 8D 20 38 |...UH.1:UP.1:. 8|
00000D80: 33 35 3A 8D 20 38 35 30 3A 00 AE 15 01 02 99 22 |35:. 850:......"|
00000D90: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000DA0: 41 4D 45 3A 20 D0 49 5A 5A 41 2D 33 21 11 00 D4 |AME: .IZZA-3!...|
00000DB0: 15 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00000DC0: 4E 20 C2 59 20 20 3A 20 D3 2E 20 C5 52 4C 45 57 |N .Y : .. .RLEW|
00000DD0: 49 4E 45 11 00 F8 15 03 02 99 22 20 20 20 20 20 |INE......." |
00000DE0: D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 CE 45 |.PGRADED .Y : .E|
00000DF0: 49 4C 20 C8 55 4E 54 11 00 23 16 04 02 99 22 20 |IL .UNT..#...." |
00000E00: 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 | ..HIS PROGRA|
00000E10: 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E |M WILL RUN ON AN|
00000E20: 59 11 11 00 4A 16 05 02 99 22 20 20 20 20 20 20 |Y...J...." |
00000E30: 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 | ......2.0 ...|
00000E40: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 71 16 06 02 99 | ..........q....|
00000E50: 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 |" ..... |
00000E60: 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 |4.0 ............|
00000E70: 11 00 93 16 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000E80: 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 | 8032 ... ......|
00000E90: C5 D2 11 00 B8 16 08 02 99 22 20 20 20 20 20 20 |........." |
00000EA0: 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 | ......... 64 |
00000EB0: C3 CF CD D0 D5 D4 C5 D2 00 CB 16 09 02 8D 38 33 |..............83|
00000EC0: 35 3A 55 48 B2 31 3A 8D 38 35 30 00 FB 16 14 02 |5:UH.1:.850.....|
00000ED0: 99 22 11 11 11 11 11 11 20 20 20 D0 C9 DA DA C1 |."...... .....|
00000EE0: 2D 33 21 20 49 53 20 41 20 50 52 45 53 43 48 4F |-3! IS A PRESCHO|
00000EF0: 4F 4C 20 50 52 4F 47 52 41 4D 22 00 27 17 16 02 |OL PROGRAM".'...|
00000F00: 99 22 11 20 44 45 53 49 47 4E 45 44 20 41 53 20 |.". DESIGNED AS |
00000F10: 41 20 53 49 4D 50 4C 45 20 47 41 4D 45 20 54 4F |A SIMPLE GAME TO|
00000F20: 20 54 45 41 43 48 22 00 4B 17 18 02 99 22 11 20 | TEACH".K....". |
00000F30: 43 4F 4F 52 44 49 4E 41 54 45 53 20 41 4E 44 20 |COORDINATES AND |
00000F40: 50 4F 53 49 54 49 4F 4E 53 2E 22 00 54 17 1C 02 |POSITIONS.".T...|
00000F50: 8D 38 33 35 00 68 17 4E 02 8B 55 5A B2 31 A7 9E |.835.h.N..UZ.1..|
00000F60: 55 50 25 3A 89 32 31 37 00 6E 17 57 02 8E 00 94 |UP%:.217.n.W....|
00000F70: 17 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000F80: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000F90: 54 20 2A 2A 00 A5 17 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000FA0: 54 2C 55 4C 25 00 CA 17 5D 02 55 48 B2 31 3A 55 |T,UL%...].UH.1:U|
00000FB0: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM|
00000FC0: 20 CD 4F 44 22 3A 8D 38 35 30 00 D3 17 94 02 8D | .OD":.850......|
00000FD0: 38 33 35 00 E7 17 B2 02 8B 55 5A B2 31 A7 9E 55 |835......UZ.1..U|
00000FE0: 50 25 3A 89 32 31 37 00 ED 17 BB 02 8E 00 12 18 |P%:.217.........|
00000FF0: BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 |... ** TO USE 80|
00001000: 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 |32 LOAD CBM4032 |
00001010: 2A 2A 00 48 18 C6 02 99 22 93 11 11 11 05 42 45 |**.H....".....BE|
00001020: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00001030: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00001040: 38 30 33 32 20 20 11 11 00 7E 18 D0 02 99 22 20 |8032 ...~...." |
00001050: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C|
00001060: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM|
00001070: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 89 |............."..|
00001080: 18 DA 02 9E 55 55 AA 37 31 00 8F 18 E4 02 80 00 |....UU.71.......|
00001090: AF 18 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L|
000010A0: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
000010B0: E3 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT|
000010C0: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
000010D0: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
000010E0: 31 2C 36 00 F9 18 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:|
000010F0: 99 22 12 A6 92 22 3B 3A 82 00 11 19 26 03 81 49 |."...";:....&..I|
00001100: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001110: 82 00 29 19 28 03 81 49 B2 31 A4 33 37 3A 99 22 |..).(..I.1.37:."|
00001120: 9D 9D 12 A6 92 22 3B 3A 82 00 41 19 2A 03 81 49 |.....";:..A.*..I|
00001130: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001140: 82 00 66 19 2C 03 99 22 13 11 11 11 11 11 11 1D |..f.,.."........|
00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001160: 1D 12 A9 20 20 92 00 88 19 2E 03 99 22 1D 1D 1D |... ......."...|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001180: 20 92 20 20 12 20 92 A9 00 A9 19 30 03 99 22 1D | . . .....0..".|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011A0: 1D 12 20 92 20 20 12 A3 DF 00 C7 19 32 03 99 22 |.. . ......2.."|
000011B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011C0: 1D 1D DF 12 20 20 92 00 EF 19 34 03 99 22 11 11 |.... ....4.."..|
000011D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O |
000011E0: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...|
000011F0: 12 1A 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........|
00001200: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
00001210: 11 11 00 31 1A 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |...1.8..".......|
00001220: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR|
00001230: 45 00 4C 1A 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E.L.:.. ** COMMO|
00001240: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 84 1A 3B |DORE LOGO **...;|
00001250: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
00001260: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001270: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."|
00001280: 3A 49 B2 30 00 A6 1A 3C 03 A1 41 24 3A 8B 41 24 |:I.0...<..A$:.A$|
00001290: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2|
000012A0: 35 30 A7 38 32 38 00 CA 1A 3E 03 54 31 24 B2 22 |50.828...>.T1$."|
000012B0: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
000012C0: 54 34 24 B2 22 22 3A 49 B2 30 00 D3 1A 40 03 89 |T4$."":I.0...@..|
000012D0: 33 30 30 00 EF 1A 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA|
000012E0: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
000012F0: 2F 1B 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |/.H..UO,0:..(UD$|
00001300: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE|
00001310: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
00001320: 43 4F 4E 54 49 4E 55 45 92 20 20 20 20 20 22 00 |CONTINUE. ".|
00001330: 46 1B 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |F.L..UI$:.UI$.."|
00001340: 20 22 A7 38 34 34 00 4C 1B 4E 03 8E 00 6C 1B 52 | ".844.L.N...l.R|
00001350: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
00001360: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 78 1B 54 |N ROUTINE **.x.T|
00001370: 03 55 50 B2 55 50 AA 31 00 A2 1B 57 03 99 22 93 |.UP.UP.1...W..".|
00001380: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
00001390: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
000013A0: 38 29 00 D1 1B 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8)...\.." ------|
000013B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013D0: 22 00 E0 1B 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |"...`..UH..0.870|
000013E0: 00 14 1C 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);|
000013F0: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
00001400: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
00001410: 52 4E 3E 22 00 25 1C 66 03 55 48 B2 30 3A 99 22 |RN>".%.f.UH.0:."|
00001420: 13 11 22 3A 8E 00 44 1C 6B 03 8F 20 2A 2A 20 50 |..":..D.k.. ** P|
00001430: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001440: 4B 20 2A 2A 00 7A 1C 70 03 99 C8 28 55 44 24 2C |K **.z.p...(UD$,|
00001450: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001460: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001470: 45 2E 2E 2E 20 20 20 20 20 22 00 80 1C 75 03 8E |E... "...u..|
00001480: 00 9D 1C 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |...... ** SET UP|
00001490: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 E8 1C | VARIABLES **...|
000014A0: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
000014B0: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
000014C0: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
000014D0: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
000014E0: 3A 55 55 B2 31 30 32 34 00 26 1D 86 03 55 54 B2 |:UU.1024.&...UT.|
000014F0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
00001500: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001510: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
00001520: 30 30 30 33 2C 30 00 69 1D 87 03 8B C2 28 35 30 |0003,0.i.....(50|
00001530: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001540: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001550: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001560: 34 3A 55 55 B2 32 30 34 38 00 A8 1D 88 03 8B C2 |4:UU.2048.......|
00001570: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001580: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001590: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
000015A0: 34 3A 55 4F B2 31 39 38 00 CC 1D 89 03 55 44 24 |4:UO.198.....UD$|
000015B0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000015C0: 11 11 11 11 11 11 11 11 11 11 11 22 00 FE 1D 8A |..........."....|
000015D0: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 4C | ".L|
00001600: 1E 8B 03 55 54 24 B2 22 20 D0 C9 DA DA C1 2D 33 |...UT$." .....-3|
00001610: 21 20 20 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 |! .....":. P|
00001620: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
00001630: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
00001640: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 52 1E 8C |!!!!!!!!!***.R..|
00001650: 03 8E 00 6C 1E 8E 03 8F 20 2A 2A 20 53 45 54 20 |...l.... ** SET |
00001660: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 75 1E 93 |VARIABLES **.u..|
00001670: 03 8D 39 30 30 00 90 1E 98 03 8F 20 2A 2A 20 43 |..900...... ** C|
00001680: 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A |HECK FOR 8032 **|
00001690: 00 AE 1E 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F |......".":.".":.|
000016A0: 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 C5 | SHIFTED SPACE..|
000016B0: 1E A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 |.....(UB.40)..96|
000016C0: A7 8D 37 30 30 00 DE 1E A3 03 8F 20 2A 2A 20 4D |..700...... ** M|
000016D0: 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 F2 |EMORY CHECK **..|
000016E0: 1E A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 |.... .(0).2000.9|
000016F0: 33 37 00 20 1F A5 03 99 22 93 11 11 05 54 48 49 |37. ...."....THI|
00001700: 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E |S MACHINE DOES N|
00001710: 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 |OT HAVE ENOUGH."|
00001720: 00 44 1F A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F |.D...."MEMORY TO|
00001730: 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | RUN THIS PROGRA|
00001740: 4D 20 21 22 00 4F 1F A7 03 9E 55 55 AA 37 31 00 |M !".O....UU.71.|
00001750: 55 1F A8 03 80 00 6F 1F A9 03 99 22 93 05 22 3A |U.....o...."..":|
00001760: 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 |..(50003).0.962.|
00001770: 9E 1F AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 |..... ** BASIC 2|
00001780: 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 |.0 OR 4.0 OR |
00001790: 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 DC | C-64 SETUP **..|
000017A0: 1F AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 |....1075,133:.10|
000017B0: 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 |76,144:.1077,234|
000017C0: 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 |:.1079,4:.1080,1|
000017D0: 33 33 3A 97 31 30 38 31 2C 31 34 35 00 12 20 AE |33:.1081,145.. .|
000017E0: 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 |..1091,155:.1098|
000017F0: 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 |,133:.1099,144:.|
00001800: 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 |1100,234:.1103,1|
00001810: 33 33 00 34 20 AF 03 97 31 31 30 34 2C 31 34 35 |33.4 ...1104,145|
00001820: 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 |:.1105,234:.1082|
00001830: 2C 32 33 34 00 4B 20 B1 03 8B C2 28 35 30 30 30 |,234.K ....(5000|
00001840: 33 29 B3 B1 31 36 30 A7 39 35 35 00 7A 20 B6 03 |3)..160.955.z ..|
00001850: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
00001860: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
00001870: 32 2C 32 32 38 3A 89 39 36 35 00 8F 20 BB 03 8B |2,228:.965.. ...|
00001880: C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 |.(50003)..1.990.|
00001890: BE 20 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 |. ...1093,49:.10|
000018A0: 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A |94,230:.1097,46:|
000018B0: 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 F8 |.1102,230:.965..|
000018C0: 20 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 | ...2099,141:.21|
000018D0: 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 |00,20:.2101,3:.2|
000018E0: 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A |103,8:.2104,141:|
000018F0: 97 32 31 30 35 2C 32 31 00 34 21 C3 03 97 32 31 |.2105,21.4!...21|
00001900: 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 |06,3:.2115,145:.|
00001910: 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 |2117,52:.2118,23|
00001920: 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 |4:.2121,49:.2122|
00001930: 2C 31 34 31 00 6E 21 C4 03 97 32 31 32 33 2C 32 |,141.n!...2123,2|
00001940: 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C |0:.2124,3:.2126,|
00001950: 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 |234:.2127,141:.2|
00001960: 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 8C |128,21:.2129,3..|
00001970: 21 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 |!...UU.48:. DISA|
00001980: 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 9D 21 CA |BLE STOP KEY..!.|
00001990: 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 AD 21 |..800:. TITLE..!|
000019A0: D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 DE 21 |...300:. MENU..!|
000019B0: DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C |...".THE PGM WIL|
000019C0: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
000019D0: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 13 |IS MACHINE!":...|
000019E0: 22 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 |"...UZ.1..UP%:.U|
000019F0: 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F |P%:UZ.0:. ** PRO|
00001A00: 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 |GRAM STARTS HERE|
00001A10: 20 2A 2A 00 3F 22 E9 03 99 22 93 05 22 3B 3A 8C | **.?"..."..";:.|
00001A20: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00001A30: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00001A40: 5B 22 FC 03 8F 20 2A 2A 20 50 49 5A 5A 41 20 2A |["... ** PIZZA *|
00001A50: 20 53 2E 45 52 4C 45 57 49 4E 45 00 77 22 01 04 | S.ERLEWINE.w"..|
00001A60: 97 55 54 2C 55 55 25 3A 55 47 24 B2 22 47 41 4D |.UT,UU%:UG$."GAM|
00001A70: 45 22 3A 55 50 B2 30 00 8F 22 06 04 8F 20 41 20 |E":UP.0.."... A |
00001A80: 50 52 45 2D 53 43 48 4F 4F 4C 20 47 41 4D 45 00 |PRE-SCHOOL GAME.|
00001A90: B8 22 10 04 8F 20 42 41 53 45 44 20 4F 4E 20 49 |."... BASED ON I|
00001AA0: 44 45 41 20 46 52 4F 4D 20 31 30 31 20 42 41 53 |DEA FROM 101 BAS|
00001AB0: 49 43 20 47 41 4D 45 53 00 F2 22 1A 04 8F 20 2A |IC GAMES.."... *|
00001AC0: 2A 2A 20 50 45 54 20 55 53 45 52 20 47 52 4F 55 |** PET USER GROU|
00001AD0: 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |P |
00001AE0: 20 20 20 20 20 20 20 20 20 20 20 42 4F 58 20 33 | BOX 3|
00001AF0: 37 31 00 20 23 24 04 8F 20 20 20 20 20 4D 4F 4E |71. #$.. MON|
00001B00: 54 47 4F 4D 45 52 59 56 49 4C 4C 45 2C 20 50 41 |TGOMERYVILLE, PA|
00001B10: 20 31 38 39 33 36 20 20 20 20 20 20 20 52 45 4D | 18936 REM|
00001B20: 00 29 23 2E 04 99 22 93 22 00 67 23 56 04 99 22 |.)#...".".g#V.."|
00001B30: 11 11 11 11 11 11 11 11 11 20 57 48 41 54 20 49 |......... WHAT I|
00001B40: 53 20 59 4F 55 52 20 4E 41 4D 45 3F 20 22 3B 3A |S YOUR NAME? ";:|
00001B50: 55 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 |US$."":UL.10:.35|
00001B60: 3A 4E 24 B2 55 52 24 00 8E 23 60 04 99 22 11 20 |:N$.UR$..#`..". |
00001B70: 4F 4B 2C 20 22 4E 24 22 2C 20 59 4F 55 27 56 45 |OK, "N$", YOU'VE|
00001B80: 20 47 4F 54 20 54 48 45 20 4A 4F 42 21 22 00 B5 | GOT THE JOB!"..|
00001B90: 23 6A 04 8B 20 58 B2 30 20 A7 20 86 20 53 24 28 |#j.. X.0 . . S$(|
00001BA0: 32 30 29 2C 50 28 32 30 29 2C 56 28 32 30 29 2C |20),P(20),V(20),|
00001BB0: 48 28 32 30 29 00 DB 23 74 04 83 20 41 2C 42 2C |H(20)..#t.. A,B,|
00001BC0: 43 2C 44 2C 45 2C 46 2C 47 2C 48 2C 49 2C 4A 2C |C,D,E,F,G,H,I,J,|
00001BD0: 4B 2C 4C 2C 4D 2C 4E 2C 4F 2C 50 00 F5 23 7E 04 |K,L,M,N,O,P..#~.|
00001BE0: 42 B2 30 3A 81 49 B2 31 A4 31 36 3A 50 28 49 29 |B.0:.I.1.16:P(I)|
00001BF0: B2 30 3A 82 49 00 0B 24 88 04 81 49 B2 31 A4 31 |.0:.I..$...I.1.1|
00001C00: 36 3A 87 53 24 28 49 29 3A 82 49 00 11 24 92 04 |6:.S$(I):.I..$..|
00001C10: 8C 00 21 24 9C 04 81 20 49 20 B2 31 20 A4 20 31 |..!$... I .1 . 1|
00001C20: 36 00 32 24 A6 04 58 B2 B5 28 BB 28 37 29 AC 38 |6.2$..X..(.(7).8|
00001C30: 32 29 00 41 24 B0 04 81 20 43 B2 31 20 A4 20 31 |2).A$... C.1 . 1|
00001C40: 36 00 55 24 BA 04 8B 20 50 28 43 29 B2 58 20 89 |6.U$... P(C).X .|
00001C50: 20 31 31 39 30 00 5D 24 C4 04 82 20 43 00 68 24 | 1190.]$... C.h$|
00001C60: CE 04 50 28 49 29 B2 58 00 70 24 D8 04 82 20 49 |..P(I).X.p$... I|
00001C70: 00 82 24 E2 04 8F 20 53 45 54 20 55 50 20 47 52 |..$... SET UP GR|
00001C80: 49 44 00 8B 24 EC 04 99 22 93 22 00 94 24 F6 04 |ID..$..."."..$..|
00001C90: 56 B2 31 37 00 C1 24 00 05 99 20 22 20 12 50 49 |V.17..$... " .PI|
00001CA0: 5A 5A 41 2D 33 21 92 22 3B A3 56 29 22 20 20 20 |ZZA-3!.";.V)" |
00001CB0: 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 |1 2 3 4 5 6 7 8 |
00001CC0: 39 00 E0 24 0A 05 99 A3 56 29 22 20 20 B0 C0 B2 |9..$....V)" ...|
00001CD0: C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 AE |................|
00001CE0: 00 00 25 14 05 99 A3 56 29 22 20 39 DD A0 DD A0 |..%....V)" 9....|
00001CF0: DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD 39 |...............9|
00001D00: 00 1F 25 1E 05 99 A3 56 29 22 20 20 AB C0 DB C0 |..%....V)" ....|
00001D10: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 |................|
00001D20: 3F 25 28 05 99 A3 56 29 22 20 38 DD A0 DD A0 DD |?%(...V)" 8.....|
00001D30: A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD 38 00 |..............8.|
00001D40: 5E 25 32 05 99 A3 56 29 22 20 20 AB C0 DB C0 DB |^%2...V)" .....|
00001D50: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 7E |...............~|
00001D60: 25 3C 05 99 A3 56 29 22 20 37 DD A0 DD A0 DD A0 |%<...V)" 7......|
00001D70: DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD 37 00 9D |.............7..|
00001D80: 25 46 05 99 A3 56 29 22 20 20 AB C0 DB C0 DB C0 |%F...V)" ......|
00001D90: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 BD 25 |...............%|
00001DA0: 50 05 99 A3 56 29 22 20 36 DD A0 DD A0 DD A0 DD |P...V)" 6.......|
00001DB0: A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD 36 00 DC 25 |............6..%|
00001DC0: 5A 05 99 A3 56 29 22 20 20 AB C0 DB C0 DB C0 DB |Z...V)" .......|
00001DD0: C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 FC 25 64 |..............%d|
00001DE0: 05 99 A3 56 29 22 20 35 DD A0 DD A0 DD A0 DD A0 |...V)" 5........|
00001DF0: DD A0 DD A0 DD A0 DD A0 DD A0 DD 35 00 1B 26 6E |...........5..&n|
00001E00: 05 99 A3 56 29 22 20 20 AB C0 DB C0 DB C0 DB C0 |...V)" ........|
00001E10: DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 3B 26 78 05 |............;&x.|
00001E20: 99 A3 56 29 22 20 34 DD A0 DD A0 DD A0 DD A0 DD |..V)" 4.........|
00001E30: A0 DD A0 DD A0 DD A0 DD A0 DD 34 00 5A 26 82 05 |..........4.Z&..|
00001E40: 99 A3 56 29 22 20 20 AB C0 DB C0 DB C0 DB C0 DB |..V)" .........|
00001E50: C0 DB C0 DB C0 DB C0 DB C0 B3 00 7A 26 8C 05 99 |...........z&...|
00001E60: A3 56 29 22 20 33 DD A0 DD A0 DD A0 DD A0 DD A0 |.V)" 3..........|
00001E70: DD A0 DD A0 DD A0 DD A0 DD 33 00 99 26 96 05 99 |.........3..&...|
00001E80: A3 56 29 22 20 20 AB C0 DB C0 DB C0 DB C0 DB C0 |.V)" ..........|
00001E90: DB C0 DB C0 DB C0 DB C0 B3 00 B9 26 A0 05 99 A3 |...........&....|
00001EA0: 56 29 22 20 32 DD A0 DD A0 DD A0 DD A0 DD A0 DD |V)" 2...........|
00001EB0: A0 DD A0 DD A0 DD A0 DD 32 00 D8 26 AA 05 99 A3 |........2..&....|
00001EC0: 56 29 22 20 20 AB C0 DB C0 DB C0 DB C0 DB C0 DB |V)" ...........|
00001ED0: C0 DB C0 DB C0 DB C0 B3 00 F8 26 B4 05 99 A3 56 |..........&....V|
00001EE0: 29 22 20 31 DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 |)" 1............|
00001EF0: DD A0 DD A0 DD A0 DD 31 00 17 27 BE 05 99 A3 56 |.......1..'....V|
00001F00: 29 22 20 20 AD C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |)" ............|
00001F10: B1 C0 B1 C0 B1 C0 BD 00 35 27 C8 05 99 A3 56 29 |........5'....V)|
00001F20: 22 20 20 20 31 20 32 20 33 20 34 20 35 20 36 20 |" 1 2 3 4 5 6 |
00001F30: 37 20 38 20 39 00 3E 27 D2 05 99 22 13 22 00 54 |7 8 9.>'...".".T|
00001F40: 27 DC 05 8F 20 50 52 49 4E 54 20 50 4F 53 49 54 |'... PRINT POSIT|
00001F50: 49 4F 4E 53 00 60 27 E6 05 81 49 B2 31 A4 31 36 |IONS.`'...I.1.16|
00001F60: 00 6D 27 F0 05 58 B2 50 28 49 29 AD 39 00 83 27 |.m'..X.P(I).9..'|
00001F70: FA 05 8B 20 58 AB B5 28 58 29 B2 30 20 89 20 31 |... X..(X).0 . 1|
00001F80: 35 37 30 00 94 27 04 06 56 28 49 29 B2 20 B5 28 |570..'..V(I). .(|
00001F90: 58 29 AA 31 00 AC 27 0E 06 48 28 49 29 B2 20 50 |X).1..'..H(I). P|
00001FA0: 28 49 29 AB 28 B5 28 58 29 AC 39 29 00 B7 27 18 |(I).(.(X).9)..'.|
00001FB0: 06 89 20 31 35 39 30 00 C3 27 22 06 48 28 49 29 |.. 1590..'".H(I)|
00001FC0: B2 20 39 00 CE 27 2C 06 56 28 49 29 B2 58 00 D9 |. 9..',.V(I).X..|
00001FD0: 27 36 06 8D 20 32 34 35 30 00 E4 27 40 06 8D 20 |'6.. 2450..'@.. |
00001FE0: 32 35 34 30 00 F1 27 4A 06 99 20 53 24 28 49 29 |2540..'J.. S$(I)|
00001FF0: 3B 00 F9 27 54 06 82 20 49 00 08 28 5E 06 8F 20 |;..'T.. I..(^.. |
00002000: 50 52 49 4E 54 22 13 22 00 1D 28 68 06 8F 20 46 |PRINT"."..(h.. F|
00002010: 4F 52 20 49 3D 20 31 20 54 4F 20 31 36 00 47 28 |OR I= 1 TO 16.G(|
00002020: 72 06 8F 20 50 52 49 4E 54 50 28 49 29 3B 22 20 |r.. PRINTP(I);" |
00002030: 22 3B 53 24 28 49 29 3B 22 2C 22 48 28 49 29 3B |";S$(I);","H(I);|
00002040: 22 2C 22 56 28 49 29 00 54 28 7C 06 8F 20 4E 45 |","V(I).T(|.. NE|
00002050: 58 54 20 49 00 66 28 86 06 8F 20 46 49 4E 44 20 |XT I.f(... FIND |
00002060: 43 41 4C 4C 45 52 00 6F 28 90 06 99 22 13 22 00 |CALLER.o(...".".|
00002070: 7B 28 9A 06 81 49 B2 31 A4 31 36 00 8D 28 A4 06 |{(...I.1.16..(..|
00002080: 8B 50 28 49 29 B3 B1 30 A7 31 37 33 30 00 95 28 |.P(I)..0.1730..(|
00002090: AE 06 82 20 49 00 A0 28 B8 06 89 20 32 31 30 30 |... I..(... 2100|
000020A0: 00 B1 28 C2 06 49 B2 B5 28 BB 28 37 29 AC 31 37 |..(..I..(.(7).17|
000020B0: 29 00 C2 28 CC 06 8B 50 28 49 29 B2 30 A7 31 37 |)..(...P(I).0.17|
000020C0: 33 30 00 D2 28 D6 06 8F 20 47 45 54 20 47 55 45 |30..(... GET GUE|
000020D0: 53 53 00 DD 28 E0 06 8D 20 32 36 35 30 00 F4 28 |SS..(... 2650..(|
000020E0: EA 06 99 22 20 52 49 4E 47 21 21 20 20 52 49 4E |..." RING!! RIN|
000020F0: 47 21 21 22 00 0A 29 F4 06 99 22 11 20 48 45 4C |G!!"..)...". HEL|
00002100: 4C 4F 2C 20 22 4E 24 22 3F 22 00 21 29 FE 06 99 |LO, "N$"?".!)...|
00002110: 22 11 20 54 48 49 53 20 49 53 20 22 53 24 28 49 |". THIS IS "S$(I|
00002120: 29 00 39 29 08 07 99 22 11 20 57 4F 55 4C 44 20 |).9)...". WOULD |
00002130: 59 4F 55 20 53 45 4E 44 22 00 4E 29 12 07 99 22 |YOU SEND".N)..."|
00002140: 11 20 4D 45 20 41 20 50 49 5A 5A 41 3F 22 00 65 |. ME A PIZZA?".e|
00002150: 29 1C 07 81 20 4B 20 B2 20 31 A4 20 31 30 30 30 |)... K . 1. 1000|
00002160: 3A 20 82 20 4B 00 81 29 26 07 99 22 11 20 54 48 |: . K..)&..". TH|
00002170: 41 4E 4B 53 21 20 47 4F 4F 44 42 59 45 2E 11 11 |ANKS! GOODBYE...|
00002180: 22 00 90 29 30 07 8D 38 33 35 3A 8D 34 30 30 30 |"..)0..835:.4000|
00002190: 00 9A 29 3A 07 8D 32 36 35 30 00 B5 29 44 07 99 |..):..2650..)D..|
000021A0: 22 91 91 20 54 48 45 20 44 52 49 56 45 52 20 57 |".. THE DRIVER W|
000021B0: 41 4E 54 53 22 00 D2 29 4E 07 99 22 11 20 54 4F |ANTS"..)N..". TO|
000021C0: 20 4B 4E 4F 57 20 57 48 45 52 45 20 22 53 24 28 | KNOW WHERE "S$(|
000021D0: 49 29 00 E2 29 58 07 99 22 11 20 4C 49 56 45 53 |I)..)X..". LIVES|
000021E0: 2E 22 00 02 2A 62 07 99 22 11 20 48 4F 57 20 4D |."..*b..". HOW M|
000021F0: 41 4E 59 20 41 43 52 4F 53 53 3F 22 3A 99 22 20 |ANY ACROSS?":." |
00002200: 22 3B 00 24 2A 6C 07 55 53 24 B2 22 31 32 33 34 |";.$*l.US$."1234|
00002210: 35 36 37 38 39 48 22 3A 8D 33 35 3A 48 B2 C5 28 |56789H":.35:H..(|
00002220: 55 52 24 29 00 40 2A 76 07 99 22 11 20 48 4F 57 |UR$).@*v..". HOW|
00002230: 20 4D 41 4E 59 20 55 50 3F 22 3A 99 22 20 22 3B | MANY UP?":." ";|
00002240: 00 62 2A 80 07 55 53 24 B2 22 31 32 33 34 35 36 |.b*..US$."123456|
00002250: 37 38 39 48 22 3A 8D 33 35 3A 56 B2 C5 28 55 52 |789H":.35:V..(UR|
00002260: 24 29 00 7D 2A 8A 07 99 22 11 11 20 4F 4B 2E 20 |$).}*...".. OK. |
00002270: 49 27 4C 4C 20 47 4F 20 4F 56 45 52 22 00 8F 2A |I'LL GO OVER"..*|
00002280: 94 07 99 20 48 22 41 4E 44 20 55 50 20 22 56 00 |... H"AND UP "V.|
00002290: A1 2A 9E 07 81 20 4B B2 31 A4 38 35 30 3A 82 20 |.*... K.1.850:. |
000022A0: 4B 00 B6 2A A8 07 8F 20 47 55 45 53 53 20 43 4F |K..*... GUESS CO|
000022B0: 52 52 45 43 54 3F 00 BE 2A B2 07 43 B2 30 00 CE |RRECT?..*..C.0..|
000022C0: 2A BC 07 50 B2 28 56 AB 31 29 AC 39 AA 48 00 E3 |*..P.(V.1).9.H..|
000022D0: 2A C6 07 8B 20 50 B2 50 28 49 29 A7 20 89 20 32 |*... P.P(I). . 2|
000022E0: 30 32 30 00 FA 2A D0 07 8B 20 50 B3 B1 50 28 49 |020..*... P..P(I|
000022F0: 29 20 A7 20 8D 20 33 32 39 30 00 05 2B DA 07 89 |) . . 3290..+...|
00002300: 20 31 38 39 30 00 10 2B E4 07 8D 20 33 30 37 30 | 1890..+... 3070|
00002310: 00 24 2B EE 07 99 22 11 20 52 45 41 44 59 20 46 |.$+...". READY F|
00002320: 4F 52 20 22 00 3C 2B F8 07 99 22 11 20 41 4E 4F |OR ".<+...". ANO|
00002330: 54 48 45 52 20 43 41 4C 4C 3F 22 3B 00 5A 2B 02 |THER CALL?";.Z+.|
00002340: 08 55 53 24 B2 22 59 4E 48 22 3A 55 4C B2 31 3A |.US$."YNH":UL.1:|
00002350: 8D 33 35 3A 47 24 B2 55 52 24 00 6E 2B 0C 08 8B |.35:G$.UR$.n+...|
00002360: 20 47 24 B2 22 4E 22 20 89 20 32 31 30 30 00 82 | G$."N" . 2100..|
00002370: 2B 16 08 8B 20 47 24 B2 22 59 22 20 89 20 31 36 |+... G$."Y" . 16|
00002380: 37 30 00 8D 2B 20 08 8D 20 32 36 32 30 00 98 2B |70..+ .. 2620..+|
00002390: 2A 08 89 20 32 30 35 30 00 AC 2B 34 08 8F 20 46 |*.. 2050..+4.. F|
000023A0: 49 4E 41 4C 20 42 41 4C 41 4E 43 45 00 B7 2B 3E |INAL BALANCE..+>|
000023B0: 08 8D 20 32 36 35 30 00 C8 2B 48 08 8B 20 42 B1 |.. 2650..+H.. B.|
000023C0: 30 20 89 20 32 32 32 30 00 D9 2B 52 08 8B 20 42 |0 . 2220..+R.. B|
000023D0: B2 30 20 89 20 32 31 38 30 00 EB 2B 5C 08 99 22 |.0 . 2180..+\.."|
000023E0: 20 53 4F 52 52 59 2C 20 22 4E 24 00 03 2C 66 08 | SORRY, "N$..,f.|
000023F0: 99 22 11 20 59 4F 55 20 4C 4F 53 54 20 24 22 B6 |.". YOU LOST $".|
00002400: 28 42 29 00 0E 2C 70 08 89 20 32 32 35 30 00 22 |(B)..,p.. 2250."|
00002410: 2C 7A 08 8B 20 47 24 B2 22 59 22 20 89 20 31 31 |,z.. G$."Y" . 11|
00002420: 34 30 00 34 2C 84 08 99 22 91 20 57 45 4C 4C 2C |40.4,...". WELL,|
00002430: 20 22 4E 24 00 4D 2C 8E 08 99 22 11 20 59 4F 55 | "N$.M,...". YOU|
00002440: 20 42 52 4F 4B 45 20 45 56 45 4E 2E 22 00 67 2C | BROKE EVEN.".g,|
00002450: 98 08 99 22 11 20 47 4F 4F 44 20 45 58 50 45 52 |...". GOOD EXPER|
00002460: 49 45 4E 43 45 21 22 00 72 2C A2 08 89 20 32 32 |IENCE!".r,... 22|
00002470: 35 30 00 85 2C AC 08 99 22 91 20 47 4F 4F 44 20 |50..,...". GOOD |
00002480: 57 4F 52 4B 22 00 96 2C B6 08 99 22 11 20 22 3B |WORK"..,...". ";|
00002490: 4E 24 3B 22 21 22 00 AC 2C C0 08 99 22 11 20 59 |N$;"!"..,...". Y|
000024A0: 4F 55 20 4D 41 44 45 20 24 20 22 42 00 C2 2C CA |OU MADE $ "B..,.|
000024B0: 08 99 22 11 11 20 57 41 4E 54 20 54 4F 20 50 4C |..".. WANT TO PL|
000024C0: 41 59 00 D3 2C D4 08 99 22 11 20 41 47 41 49 4E |AY..,...". AGAIN|
000024D0: 3F 22 3B 00 F1 2C DE 08 55 53 24 B2 22 59 4E 48 |?";..,..US$."YNH|
000024E0: 22 3A 55 4C B2 31 3A 8D 33 35 3A 47 24 B2 55 52 |":UL.1:.35:G$.UR|
000024F0: 24 00 05 2D E8 08 8B 20 47 24 B2 22 59 22 20 89 |$..-... G$."Y" .|
00002500: 20 31 31 34 30 00 19 2D F2 08 8B 20 47 24 B2 22 | 1140..-... G$."|
00002510: 4E 22 20 89 20 32 33 32 30 00 24 2D FC 08 8D 20 |N" . 2320.$-... |
00002520: 32 36 32 30 00 2F 2D 06 09 89 20 32 32 37 30 00 |2620./-... 2270.|
00002530: 3D 2D 10 09 8F 20 54 48 45 20 45 4E 44 00 4E 2D |=-... THE END.N-|
00002540: 1A 09 99 22 11 11 20 4F 4B 2C E0 22 4E 24 00 66 |...".. OK,."N$.f|
00002550: 2D 24 09 99 22 11 E0 53 45 45 20 59 4F 55 20 4C |-$.."..SEE YOU L|
00002560: 41 54 45 52 21 22 00 71 2D 2E 09 8D 38 33 35 3A |ATER!".q-...835:|
00002570: 8E 00 88 2D 38 09 8F 20 46 49 4E 44 20 43 4F 4F |...-8.. FIND COO|
00002580: 52 44 49 4E 41 54 45 53 00 95 2D 42 09 58 B2 50 |RDINATES..-B.X.P|
00002590: 28 49 29 AD 39 00 A8 2D 4C 09 8B 58 AB B5 28 58 |(I).9..-L..X..(X|
000025A0: 29 B2 30 89 32 34 32 30 00 B8 2D 56 09 56 28 49 |).0.2420..-V.V(I|
000025B0: 29 B2 B5 28 58 29 AA 31 00 CF 2D 60 09 48 28 49 |)..(X).1..-`.H(I|
000025C0: 29 B2 50 28 49 29 AB 28 B5 28 58 29 AC 39 29 00 |).P(I).(.(X).9).|
000025D0: DA 2D 6A 09 89 20 32 34 34 30 00 E5 2D 74 09 48 |.-j.. 2440..-t.H|
000025E0: 28 49 29 B2 39 00 F0 2D 7E 09 56 28 49 29 B2 58 |(I).9..-~.V(I).X|
000025F0: 00 F6 2D 88 09 8E 00 0A 2E 92 09 8F 20 4C 4F 43 |..-......... LOC|
00002600: 41 54 45 20 43 55 52 53 4F 52 00 14 2E 9C 09 99 |ATE CURSOR......|
00002610: 22 13 22 3B 00 23 2E A6 09 81 20 4B B2 31 20 A4 |".";.#.... K.1 .|
00002620: 20 32 31 00 2D 2E B0 09 99 22 11 22 3B 00 35 2E | 21.-....".";.5.|
00002630: BA 09 82 20 4B 00 45 2E C4 09 81 20 4B B2 20 31 |... K.E.... K. 1|
00002640: 20 A4 20 31 38 00 4F 2E CE 09 99 22 1D 22 3B 00 | . 18.O....".";.|
00002650: 57 2E D8 09 82 20 4B 00 5D 2E E2 09 8E 00 6F 2E |W.... K.].....o.|
00002660: EC 09 8F 20 4D 4F 56 45 20 43 55 52 53 4F 52 00 |... MOVE CURSOR.|
00002670: 81 2E F6 09 81 20 4B B2 20 31 20 A4 20 48 28 49 |..... K. 1 . H(I|
00002680: 29 00 8C 2E 00 0A 99 22 1D 1D 22 3B 00 94 2E 0A |)......"..";....|
00002690: 0A 82 20 4B 00 A6 2E 14 0A 81 20 4B B2 20 31 20 |.. K...... K. 1 |
000026A0: A4 20 56 28 49 29 00 B1 2E 1E 0A 99 22 91 91 22 |. V(I)......".."|
000026B0: 3B 00 B9 2E 28 0A 82 20 4B 00 BF 2E 32 0A 8E 00 |;...(.. K...2...|
000026C0: D0 2E 3C 0A 8F 20 59 20 4F 52 20 4E 20 53 55 42 |..<.. Y OR N SUB|
000026D0: 00 E6 2E 46 0A 99 22 59 20 4F 52 20 4E 20 50 4C |...F.."Y OR N PL|
000026E0: 45 41 53 45 2E 22 00 EC 2E 50 0A 8E 00 FD 2E 5A |EASE."...P.....Z|
000026F0: 0A 8F 20 43 4C 52 20 53 43 52 45 45 4E 00 0A 2F |.. CLR SCREEN../|
00002700: 64 0A 99 22 13 11 11 11 22 3B 00 19 2F 6E 0A 81 |d.."....";../n..|
00002710: 20 4B B2 31 20 A4 20 31 39 00 33 2F 78 0A 99 22 | K.1 . 19.3/x.."|
00002720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002730: 20 20 22 00 3B 2F 82 0A 82 20 4B 00 5C 2F 8C 0A | ".;/... K.\/..|
00002740: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002750: 20 20 20 20 13 11 11 11 11 11 11 22 00 62 2F 96 | .......".b/.|
00002760: 0A 8E 00 74 2F A0 0A 8F 20 4D 4F 56 45 20 43 55 |...t/... MOVE CU|
00002770: 52 53 4F 52 00 83 2F AA 0A 81 20 4B B2 20 31 20 |RSOR../... K. 1 |
00002780: A4 20 48 00 8E 2F B4 0A 99 22 1D 1D 22 3B 00 96 |. H../..."..";..|
00002790: 2F BE 0A 82 20 4B 00 A5 2F C8 0A 81 20 4B B2 20 |/... K../... K. |
000027A0: 31 20 A4 20 56 00 B0 2F D2 0A 99 22 91 91 22 3B |1 . V../..."..";|
000027B0: 00 B8 2F DC 0A 82 20 4B 00 BE 2F E6 0A 8E 00 CC |../... K../.....|
000027C0: 2F D6 0B 8F 20 42 41 4C 41 4E 43 45 00 DF 2F E0 |/... BALANCE../.|
000027D0: 0B 8B 20 43 B2 30 20 A7 20 42 B2 20 42 AB 31 00 |.. C.0 . B. B.1.|
000027E0: F1 2F EA 0B 8B 20 43 B2 31 20 A7 20 42 B2 42 AA |./... C.1 . B.B.|
000027F0: 31 00 F7 2F F4 0B 8E 00 0E 30 FE 0B 8F 20 53 55 |1../.....0... SU|
00002800: 42 20 52 49 47 48 54 20 41 4E 53 57 45 52 00 16 |B RIGHT ANSWER..|
00002810: 30 08 0C 43 B2 31 00 21 30 12 0C 8D 20 32 36 35 |0..C.1.!0... 265|
00002820: 30 00 2C 30 1C 0C 8D 20 32 34 35 30 00 37 30 26 |0.,0... 2450.70&|
00002830: 0C 8D 20 32 35 34 30 00 47 30 30 0C 99 22 D3 13 |.. 2540.G00.."..|
00002840: 11 11 11 11 11 11 22 00 5B 30 3A 0C 99 22 20 52 |......".[0:.." R|
00002850: 49 4E 47 2E 20 52 49 4E 47 2E 22 00 71 30 44 0C |ING. RING.".q0D.|
00002860: 99 22 11 20 48 45 4C 4C 4F 2C 20 22 4E 24 22 3F |.". HELLO, "N$"?|
00002870: 22 00 88 30 4E 0C 99 22 11 20 54 48 49 53 20 49 |"..0N..". THIS I|
00002880: 53 20 22 53 24 28 49 29 00 9C 30 58 0C 99 22 11 |S "S$(I)..0X..".|
00002890: 20 54 48 41 4E 4B 53 20 46 4F 52 22 00 B0 30 62 | THANKS FOR"..0b|
000028A0: 0C 99 22 11 20 54 48 45 20 50 49 5A 5A 41 21 22 |..". THE PIZZA!"|
000028B0: 00 BF 30 6C 0C 8D 38 33 35 3A 8D 34 30 31 30 00 |..0l..835:.4010.|
000028C0: CA 30 76 0C 8D 20 32 36 35 30 00 D5 30 80 0C 50 |.0v.. 2650..0..P|
000028D0: 28 49 29 B2 30 00 E0 30 8A 0C 8D 20 33 30 33 30 |(I).0..0... 3030|
000028E0: 00 F4 30 94 0C 99 22 20 22 3B 4E 24 3B 22 2C 20 |..0..." ";N$;", |
000028F0: 59 4F 55 22 00 0C 31 9E 0C 99 22 11 20 4D 41 44 |YOU"..1...". MAD|
00002900: 45 20 41 20 44 4F 4C 4C 41 52 21 22 00 20 31 A8 |E A DOLLAR!". 1.|
00002910: 0C 99 22 11 20 54 48 41 54 20 4D 41 4B 45 53 22 |..". THAT MAKES"|
00002920: 00 36 31 B2 0C 99 22 11 20 24 22 42 22 20 53 4F |.61...". $"B" SO|
00002930: 20 46 41 52 2E 22 00 3C 31 BC 0C 99 00 54 31 C6 | FAR.".<1....T1.|
00002940: 0C 8B 42 B1 30 A7 99 22 20 47 4F 4F 44 20 57 4F |..B.0.." GOOD WO|
00002950: 52 4B 21 22 00 5A 31 D0 0C 8E 00 6D 31 DA 0C 8F |RK!".Z1....m1...|
00002960: 20 57 52 4F 4E 47 20 41 4E 53 57 45 52 00 75 31 | WRONG ANSWER.u1|
00002970: E4 0C 43 B2 30 00 88 31 EE 0C 81 20 4B B2 31 A4 |..C.0..1... K.1.|
00002980: 38 35 30 3A 20 82 20 4B 00 98 31 F8 0C 81 20 5A |850: . K..1... Z|
00002990: B2 20 31 20 A4 20 31 36 00 AC 31 02 0D 8B 20 50 |. 1 . 16..1... P|
000029A0: B2 50 28 5A 29 20 89 20 33 34 38 30 00 B4 31 0C |.P(Z) . 3480..1.|
000029B0: 0D 82 20 5A 00 C5 31 16 0D 8F 20 55 4E 4F 43 43 |.. Z..1... UNOCC|
000029C0: 55 50 49 45 44 00 D0 31 20 0D 8D 20 32 34 35 30 |UPIED..1 .. 2450|
000029D0: 00 DB 31 2A 0D 8D 20 32 37 32 30 00 EB 31 34 0D |..1*.. 2720..14.|
000029E0: 81 20 4B 20 B2 31 20 A4 20 35 30 00 F5 31 3E 0D |. K .1 . 50..1>.|
000029F0: 99 22 21 22 3B 00 0D 32 48 0D 81 20 51 20 B2 20 |."!";..2H.. Q . |
00002A00: 31 20 A4 20 31 30 20 20 3A 20 82 20 51 00 19 32 |1 . 10 : . Q..2|
00002A10: 52 0D 99 22 9D 20 9D 22 3B 00 31 32 5C 0D 81 20 |R..". .";.12\.. |
00002A20: 51 20 B2 20 31 20 A4 20 31 30 20 20 3A 20 82 20 |Q . 1 . 10 : . |
00002A30: 51 00 39 32 66 0D 82 20 4B 00 44 32 70 0D 8D 20 |Q.92f.. K.D2p.. |
00002A40: 32 36 35 30 00 5D 32 7A 0D 99 22 11 11 20 4E 4F |2650.]2z..".. NO|
00002A50: 20 4F 4E 45 27 53 20 48 4F 4D 45 21 22 00 6D 32 | ONE'S HOME!".m2|
00002A60: 84 0D 8D 20 33 30 33 30 3A 8D 38 33 35 00 78 32 |... 3030:.835.x2|
00002A70: 8E 0D 89 20 33 36 31 30 00 87 32 98 0D 8F 20 4F |... 3610..2... O|
00002A80: 43 43 55 50 49 45 44 00 92 32 A2 0D 8D 20 32 34 |CCUPIED..2... 24|
00002A90: 35 30 00 9D 32 AC 0D 8D 20 32 37 32 30 00 A7 32 |50..2... 2720..2|
00002AA0: B6 0D 99 22 3F 22 3B 00 BD 32 C0 0D 81 20 4B 20 |..."?";..2... K |
00002AB0: B2 20 31 20 A4 20 38 35 30 3A 82 20 4B 00 CF 32 |. 1 . 850:. K..2|
00002AC0: CA 0D 99 22 9D 22 53 24 28 5A 29 22 9D 22 3B 00 |..."."S$(Z)".";.|
00002AD0: DA 32 D4 0D 8D 20 32 36 35 30 00 F5 32 DE 0D 99 |.2... 2650..2...|
00002AE0: 22 20 22 4E 24 22 20 54 48 49 53 20 49 53 20 22 |" "N$" THIS IS "|
00002AF0: 53 24 28 5A 29 00 0D 33 E8 0D 99 22 11 20 49 20 |S$(Z)..3...". I |
00002B00: 44 49 44 4E 27 54 20 4F 52 44 45 52 22 00 1F 33 |DIDN'T ORDER"..3|
00002B10: F2 0D 99 22 11 20 41 20 50 49 5A 5A 41 21 22 00 |...". A PIZZA!".|
00002B20: 2E 33 FC 0D 8D 38 33 35 3A 8D 34 30 31 30 00 39 |.3...835:.4010.9|
00002B30: 33 06 0E 8D 20 32 36 35 30 00 44 33 10 0E 8D 20 |3... 2650.D3... |
00002B40: 33 30 33 30 00 64 33 1A 0E 8D 34 30 30 30 3A 99 |3030.d3...4000:.|
00002B50: 22 13 11 11 11 20 22 4E 24 22 20 59 4F 55 20 4C |".... "N$" YOU L|
00002B60: 4F 53 54 22 00 77 33 24 0E 99 22 11 20 41 20 44 |OST".w3$..". A D|
00002B70: 4F 4C 4C 41 52 2E 22 00 91 33 2E 0E 99 22 11 20 |OLLAR."..3...". |
00002B80: 57 48 41 54 27 53 20 22 53 24 28 49 29 22 27 53 |WHAT'S "S$(I)"'S|
00002B90: 22 00 A9 33 38 0E 99 22 11 20 41 44 44 52 45 53 |"..38..". ADDRES|
00002BA0: 53 20 41 47 41 49 4E 3F 22 00 AF 33 42 0E 8E 00 |S AGAIN?"..3B...|
00002BB0: E9 33 A0 0F 99 C8 28 55 44 24 2C 32 34 29 3B 22 |.3....(UD$,24);"|
00002BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 | H|
00002BD0: 45 4C 50 20 2D 20 50 52 45 53 53 20 48 20 3C 52 |ELP - PRESS H <R|
00002BE0: 45 54 55 52 4E 3E 22 3A 8E 00 24 34 AA 0F 99 C8 |ETURN>":..$4....|
00002BF0: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00002C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C20: 20 22 3A 8E 00 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...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.%.M..UQ.UB.UB.919.A.R.UQ%(UQ.UB).B(U
Q):.:.".".T.W.UZ.1:UV%.B(UT).].X..300...
Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B(50
003).0..53281,6:.53280,14.I...UT$.UL$:."
.";:.UT,UV%:.UQ.UB.UB.919......UQ,UQ%(UQ
.UB):.......U1,U1%......U2,U2%......U4,U
4%......U3,U3%.1......35.J...UD%.((U2%.2
56.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).Z...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.........,.. ** MENU *
*...-.:.&....".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.,./.:.I.1..".
MENU".X.6.." -----------------------
---------------"...;..".. 1. BEG
IN PIZZA-3!".F.@..".. 2. STUDENT
INSTRUCTIONS"...E..".. 3. TEACH
ER INSTRUCTIONS"...O..".. 4. QUI
T..".;.T.." ----------------------------
----------".F.Y..".. PRESS A NUMBE
R KEY (1-4) ";...^.UL.1:US$."1234":.35:.
INPUT ROUTINE...`.US$.""...C..E(UR$).10
00,400,500,396...H..300...... ** RE-ENAB
LE STOP KEY AND END **......B(50003)..1.
B(50003)..160.B(50003)..0.399.?....UU.71
:.B(50003).0..53281,6:.53280,14.K...."..
":..V....875:..W.... ** STUDENT INSTRUCT
IONS **......".":.UT,UL%:.B(50003).0..53
281,0:.53280,0.L...UH.1:UP.0:UG$."STUDEN
T INST":.850......".. IN THIS PROGRAM
YOU WORK IN A PIZZA".)....". PLACE. PEOP
LE PHONE YOU AND ASK FOR".S....". A PIZZ
A. YOUR JOB IS TO TELL THE".P....". DRIV
ER WHERE TO GO."......". YOUR CUSTOMER
IS A LETTER OF THE".J....". ALPHABET.
HE LIVES IN A TOWN WITH 9"......". STREE
TS ACROSS AND 9 STREETS UP.".#....". YOU
MUST TELL THE DRIVER HOW FAR OVER".B.B.
.". AND HOW FAR UP TO GO.".U.E..835:UH.1
:.850...G..".. IF YOU GIVE THE RIGHT D
IRECTIONS"...J..". YOU MAKE A DOLLAR. IF
YOU GIVE THE"...L..". WRONG DIRECTIONS,
YOU LOSE A DOLLAR."......"... TO ADVA
NCE FROM ONE QUESTION"./....". TO THE NE
XT PRESS THE SPACE BAR".]....".....IF AT
ANY TIME YOU WISH TO RETURN"......". TO
THE MENU PRESS H RETURN"......835......
UZ.1..UP%:.217.......E.... ** TEACHER IN
STRUCTIONS **......".":.UT,UL%:.B(50003)
.0..53281,2:.53280,10.....UH.1:UP.0:UG$.
"TEACHER INST":.850.I....".. TO THE
BEST OF OUR KNOWLEDGE,.".R...." THIS
PROGRAM IS IN THE PUBLIC."......" DOMA
IN. IF THIS IS NOT THE CASE."......"
PLEASE CONTACT:..."......" COMMODOR
E BUSINESS MACHINES."......" 33
70 PHARMACY AVE..,...." AGINCOU
RT, ONTARIO".N...." CANADA M1
W 2K4".N...." (416) 499-4292"..
...UH.1:UP.1:. 835:. 850:......" ..P
ROGRAM NAME: PIZZA-3!..T...." WRITTE
N BY : S. ERLEWINE......." UPGRADED
BY : NEIL HUNT..#...." .THIS PROGRA
M WILL RUN ON ANY...J...." BASIC
2.0 PET COMPUTER..Q...." BASIC
4.0 PET COMPUTER......." 8032 CB
M COMPUTER......." COMMODORE 64
COMPUTER.K....835:UH.1:.850......"......
PIZZA-3! IS A PRESCHOOL PROGRAM".'...
.". DESIGNED AS A SIMPLE GAME TO TEACH".
K....". COORDINATES AND POSITIONS.".T...
.835.H.N..UZ.1..UP%:.217.N.W.....X.. **
PROGRAM MODIFICATION INST **...Y..".":.U
T,UL%.J.].UH.1:UP.0:UG$."PROGRAM MOD":.8
50.S....835......UZ.1..UP%:.217.........
... ** TO USE 8032 LOAD CBM4032 **.H.F..
".....BEFORE RUNNING THIS PROGRAM ON AN
8032 ...~.P.." LOAD THE 'CBM 4032'
PROGRAM............."...Z..UU.71.......
.. .. ** T I T L E P A G E **...".."..
..";:.UT,UU%:.B(50003).0..53280,14:.5328
1,6...$..I.1.38:."...";:....&..I.1.22:."
.....";:..).(..I.1.37:.".....";:..A.*..I
.1.22:.".....";:..F.,.."................
........... ......."...................
. . .....0.."................... . ..
..G.2..".................... ....4.."..
............C O M M O D O R E.....6.."..
.............EDUCATIONAL...1.8..".......
.........SOFTWARE.L.:.. ** COMMODORE LOG
O **...;..H(UD$,24);"..........PRESS SPA
CE BAR OR WAIT.":I.0...<..A$:.A$.." ".I.
I.1:.I.250.828.J.>.T1$."":T2$."":T3$."":
T4$."":I.0.S.@..300...C.. ** SPACE BAR P
RESS **./.H..UO,0:.H(UD$,24);".......PRE
SS SPACE BAR TO CONTINUE. ".F.L..UI$
:.UI$.." ".844.L.N...L.R.. ** PAGE DESIG
N ROUTINE **.X.T.UP.UP.1...W.."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).Q.\.." ------
--------------------------------"...`..U
H..0.870...A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>".%.F.UH.0:."..":..D.
K.. ** PLEASE WAIT REMARK **.Z.P..H(UD$,
24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **...
..UX$."H":.UQ%(1000):UB.32768:U1.196:U2.
197:U3.198:U4.216:UC.167:UU.1024.&...UT.
59468:UU%.12:UL%.14:UP%.1146:UM.32768:UO
.158:. 50003,0.I....B(50003).0.UB.1024:U
1.209:U2.210:U3.211:U4.214:UC.204:UU.204
8......B(50003).0.UT.53272:UU%.21:UL%.23
:UP%.2139:UM.1024:UO.198.L...UD$."......
...................".....UP$."
".L...UT$."
PIZZA-3! ":. PLACE PROGRAM TIT
LE HERE !!!!!!!!!!!!!!!!!***.R.....L....
** SET VARIABLES **.U....900...... ** C
HECK FOR 8032 **......".":." ":. SHIFTED
SPACE.E....B(UB.40)..96..700...... ** M
EMORY CHECK **...... .(0).2000.937. ....
"....THIS MACHINE DOES NOT HAVE ENOUGH."
.D...."MEMORY TO RUN THIS PROGRAM !".O..
..UU.71.U.....O...."..":.B(50003).0.962.
..... ** BASIC 2.0 OR 4.0 OR C-64 SE
TUP **......1075,133:.1076,144:.1077,234
:.1079,4:.1080,133:.1081,145.. ...1091,1
55:.1098,133:.1099,144:.1100,234:.1103,1
33.4 ...1104,145:.1105,234:.1082,234.K .
..B(50003)..160.955.Z ...1093,88:.1094,2
28:.1097,85:.1102,228:.965.. ...B(50003)
..1.990.. ...1093,49:.1094,230:.1097,46:
.1102,230:.965.. B..2099,141:.2100,20:.2
101,3:.2103,8:.2104,141:.2105,21.4!C..21
06,3:.2115,145:.2117,52:.2118,234:.2121,
49:.2122,141.N!D..2123,20:.2124,3:.2126,
234:.2127,141:.2128,21:.2129,3..!E..UU.4
8:. DISABLE STOP KEY..!J..800:. TITLE..!
T..300:. MENU..!...".THE PGM WILL NOT WO
RK ON THIS MACHINE!":..."...UZ.1..UP%:.U
P%:UZ.0:. ** PROGRAM STARTS HERE **.?"..
."..";:.:.B(50003).0..53281,6:.53280,14.
["... ** PIZZA * S.ERLEWINE.W"...UT,UU%:
UG$."GAME":UP.0.."... A PRE-SCHOOL GAME.
."... BASED ON IDEA FROM 101 BASIC GAMES
.."... *** PET USER GROUP
BOX 371. #$.. MONTGOMERYV
ILLE, PA 18936 REM.)#...".".G#V.."
......... WHAT IS YOUR NAME? ";:US$."":U
L.10:.35:N$.UR$..#`..". OK, "N$", YOU'VE
GOT THE JOB!"..#J.. X.0 . . S$(20),P(20
),V(20),H(20)..#T.. A,B,C,D,E,F,G,H,I,J,
K,L,M,N,O,P..#~.B.0:.I.1.16:P(I).0:.I..$
...I.1.16:.S$(I):.I..$....!$... I .1 . 1
6.2$..X..(.(7).82).A$... C.1 . 16.U$...
P(C).X . 1190.]$D.. C.H$N.P(I).X.P$X.. I
..$... SET UP GRID..$..."."..$..V.17.A$.
.. " .PIZZA-3!.";.V)" 1 2 3 4 5 6 7 8
9..$....V)" .....................%....V
)" 9. . . . . . . . . .9..%....V)" ....
................?%(...V)" 8. . . . . . .
. . .8.^%2...V)" ....................~
%<...V)" 7. . . . . . . . . .7..%F...V)"
.....................%P...V)" 6. . . .
. . . . . .6..%Z...V)" ...............
......%D...V)" 5. . . . . . . . . .5..&N
...V)" ....................;&X...V)" 4.
. . . . . . . . .4.Z&....V)" .........
...........Z&....V)" 3. . . . . . . . .
.3..&....V)" .....................& ...
V)" 2. . . . . . . . . .2.X&....V)" ...
..................&....V)" 1. . . . . .
. . . .1..'....V)" ....................
5'H...V)" 1 2 3 4 5 6 7 8 9.>'R..".".T
'... PRINT POSITIONS.`'...I.1.16.M'..X.P
(I).9..'... X..(X).0 . 1570..'..V(I). .(
X).1..'..H(I). P(I).(.(X).9)..'... 1590.
C'".H(I). 9.N',.V(I).X.Y'6.. 2450..'@..
2540..'J.. S$(I);..'T.. I..(^.. PRINT"."
..(H.. FOR I= 1 TO 16.G(R.. PRINTP(I);"
";S$(I);","H(I);","V(I).T(|.. NEXT I.F(.
.. FIND CALLER.O(...".".{(...I.1.16..(..
.P(I)..0.1730..(... I. (... 2100..(B.I..
(.(7).17).B(L..P(I).0.1730.R(V.. GET GUE
SS..(... 2650..(..." RING!! RING!!"..).
..". HELLO, "N$"?".!)...". THIS IS "S$(I
).9)...". WOULD YOU SEND".N)...". ME A P
IZZA?".E)... K . 1. 1000: . K..)&..". TH
ANKS! GOODBYE..."..)0..835:.4000..):..26
50..)D..".. THE DRIVER WANTS".R)N..". TO
KNOW WHERE "S$(I)..)X..". LIVES."..*B..
". HOW MANY ACROSS?":." ";.$*L.US$."1234
56789H":.35:H.E(UR$).@*V..". HOW MANY UP
?":." ";.B*..US$."123456789H":.35:V.E(UR
$).}*...".. OK. I'LL GO OVER"..*... H"AN
D UP "V..*... K.1.850:. K..*... GUESS CO
RRECT?..*..C.0.N*..P.(V.1).9.H..*F.. P.P
(I). . 2020..*P.. P..P(I) . . 3290..+Z..
1890..+... 3070.$+...". READY FOR ".<+.
..". ANOTHER CALL?";.Z+..US$."YNH":UL.1:
.35:G$.UR$.N+... G$."N" . 2100..+... G$.
"Y" . 1670..+ .. 2620..+*.. 2050..+4.. F
INAL BALANCE..+>.. 2650.H+H.. B.0 . 2220
.Y+R.. B.0 . 2180..+\.." SORRY, "N$..,F.
.". YOU LOST $".(B)..,P.. 2250.",Z.. G$.
"Y" . 1140.4,...". WELL, "N$.M,...". YOU
BROKE EVEN.".G,...". GOOD EXPERIENCE!".
R,... 2250..,...". GOOD WORK"..,...". ";
N$;"!"..,...". YOU MADE $ "B.B,J..".. WA
NT TO PLAY.S,T..". AGAIN?";..,..US$."YNH
":UL.1:.35:G$.UR$..-... G$."Y" . 1140..-
... G$."N" . 2320.$-... 2620./-... 2270.
=-... THE END.N-...".. OK,."N$.F-$.."..S
EE YOU LATER!".Q-...835:...-8.. FIND COO
RDINATES..-B.X.P(I).9..-L..X..(X).0.2420
..-V.V(I)..(X).1.O-`.H(I).P(I).(.(X).9).
Z-J.. 2440..-T.H(I).9..-~.V(I).X..-.....
.... LOCATE CURSOR......".";.#.... K.1 .
21.-....".";.5.... K.E.D.. K. 1 . 18.O.
N..".";.W.X.. K.].....O.... MOVE CURSOR.
..... K. 1 . H(I)......"..";...... K....
.. K. 1 . V(I)......"..";...(.. K...2...
P.<.. Y OR N SUB...F.."Y OR N PLEASE."..
.P.....Z.. CLR SCREEN../D.."....";../N..
K.1 . 19.3/X.." ".;/..
. K.\/..." .......".B/.
...T/ .. MOVE CURSOR../... K. 1 . H../..
."..";../... K../H.. K. 1 . V../R.."..";
../... K../....L/V.. BALANCE../... C.0 .
B. B.1../... C.1 . B.B.1../.....0... SU
B RIGHT ANSWER..0..C.1.!0... 2650.,0...
2450.70&.. 2540.G00.."S.......".[0:.." R
ING. RING.".Q0D..". HELLO, "N$"?"..0N.."
. THIS IS "S$(I)..0X..". THANKS FOR"..0B
..". THE PIZZA!"..0L..835:.4010.J0V.. 26
50.U0..P(I).0..0... 3030..0..." ";N$;",
YOU"..1...". MADE A DOLLAR!". 1...". THA
T MAKES".61...". $"B" SO FAR.".<1....T1F
..B.0.." GOOD WORK!".Z1P...M1Z.. WRONG A
NSWER.U1..C.0..1... K.1.850: . K..1... Z
. 1 . 16..1... P.P(Z) . 3480..1... Z.E1.
.. UNOCCUPIED.P1 .. 2450..1*.. 2720..14.
. K .1 . 50..1>.."!";..2H.. Q . 1 . 10
: . Q..2R..". .";.12\.. Q . 1 . 10 : .
Q.92F.. K.D2P.. 2650.]2Z..".. NO ONE'S H
OME!".M2... 3030:.835.X2... 3610..2... O
CCUPIED..2... 2450..2... 2720..2..."?";.
.2... K . 1 . 850:. K.O2J.."."S$(Z)".";.
Z2T.. 2650..2..." "N$" THIS IS "S$(Z)..3
...". I DIDN'T ORDER"..3...". A PIZZA!".
.3...835:.4010.93... 2650.D3... 3030.D3.
..4000:.".... "N$" YOU LOST".W3$..". A D
OLLAR."..3...". WHAT'S "S$(I)"'S"..38.."
. ADDRESS AGAIN?"..3B....3 ..H(UD$,24);"
HELP - PRESS H <RETURN>":
..$4...H(UD$,24);"
":....
> CLICK IMAGE PREVIEW FOR FULL MODAL