FUSE.C3
FILE INFORMATION
FILENAME(S): FUSE.C3
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:31:07
APPEARS ON: 1 disk(s)
FILE HASH
39c3fdf372335863d9bc9398ec977cd7bccf19ca655099b1c486c9bf8ebfbebd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0004ED | FUSE.C3 | PRG | Treasure Chest - Klaus Der Suhler | 24 | 4 | 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 09 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 20 55 4F 2C 30 00 19 09 2A 00 8B 55 |"":. UO,0...*..U|
00000110: 4C B2 30 A7 55 4C B2 38 30 00 2C 09 2D 00 99 22 |L.0.UL.80.,.-.."|
00000120: 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 40 09 32 | ..";:.UC,0.@.2|
00000130: 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 |..UI$:.UI$."".50|
00000140: 00 6A 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF |.j.7..UI$..(13).|
00000150: C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A |.(UR$)..1..UC,1:|
00000160: 99 22 20 9D 22 3B 3A 89 38 35 00 7D 09 3C 00 8B |." .";:.85.}.<..|
00000170: 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 91 09 |UI$..(20).105...|
00000180: 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 |>.. .(UR$)..UL.5|
00000190: 30 00 B6 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 |0...A..120:. CHE|
000001A0: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
000001B0: 52 41 43 54 45 52 00 C6 09 46 00 55 52 24 B2 55 |RACTER...F.UR$.U|
000001C0: 52 24 AA 55 49 24 00 D0 09 4B 00 99 55 49 24 3B |R$.UI$...K..UI$;|
000001D0: 00 D8 09 50 00 89 35 30 00 FD 09 55 00 8F 20 2B |...P..50...U.. +|
000001E0: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C |++ CHECK FOR HEL|
000001F0: 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 25 0A |P REQUEST +++.%.|
00000200: 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F |Z..UR$.UX$.195:.|
00000210: 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F | EXIT TO HELP RO|
00000220: 55 54 49 4E 45 00 34 0A 5F 00 8B 55 46 B2 31 A7 |UTINE.4._..UF.1.|
00000230: 8D 32 34 30 00 41 0A 64 00 55 46 B2 30 3A 99 3A |.240.A.d.UF.0:.:|
00000240: 8E 00 5A 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B |..Z.f.. ++ CHECK|
00000250: 20 44 45 4C 45 54 45 20 2B 2B 00 6B 0A 69 00 8B | DELETE ++.k.i..|
00000260: C3 28 55 52 24 29 B3 31 A7 35 30 00 83 0A 6E 00 |.(UR$).1.50...n.|
00000270: 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 |UR$..(UR$,.(UR$)|
00000280: AB 31 29 00 95 0A 73 00 99 22 9D 20 20 9D 9D 22 |.1)...s..". .."|
00000290: 3B 3A 89 35 30 00 BC 0A 78 00 8F 20 2B 2B 20 43 |;:.50...x.. ++ C|
000002A0: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 |HECK FOR VALID C|
000002B0: 48 41 52 41 43 54 45 52 53 20 2B 2B 00 CE 0A 7D |HARACTERS ++...}|
000002C0: 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DF |...(US$).0.150..|
000002D0: 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).|
000002E0: F6 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U|
000002F0: 53 2C 31 29 A7 8E 00 FC 0A 8C 00 82 00 09 0B 91 |S,1)............|
00000300: 00 55 49 24 B2 22 22 3A 8E 00 24 0B 96 00 8F 20 |.UI$."":..$.... |
00000310: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU|
00000320: 54 20 2A 2A 00 35 0B 98 00 8B C6 28 55 49 24 29 |T **.5.....(UI$)|
00000330: B2 34 36 A7 8E 00 46 0B 9B 00 8B 55 49 24 B2 C7 |.46...F....UI$..|
00000340: 28 33 32 29 A7 8E 00 63 0B A0 00 8B C6 28 55 49 |(32)...c.....(UI|
00000350: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.|
00000360: 31 37 30 00 69 0B A5 00 8E 00 86 0B AA 00 8B C6 |170.i...........|
00000370: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).|
00000380: 39 30 A7 31 38 30 00 8C 0B AF 00 8E 00 B0 0B B4 |90.180..........|
00000390: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U|
000003A0: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.|
000003B0: 00 D3 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.|
000003C0: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128|
000003D0: 29 3A 8E 00 D9 0B BB 00 8E 00 E6 0B BE 00 55 49 |):............UI|
000003E0: 24 B2 22 22 3A 8E 00 0B 0C C3 00 55 46 B2 31 3A |$."":......UF.1:|
000003F0: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI|
00000400: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 14 0C C5 00 |NE EXIT +++.....|
00000410: 8D 32 35 30 00 1D 0C C8 00 8D 32 34 35 00 3C 0C |.250......245.<.|
00000420: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25|
00000430: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 58 0C D2 |6.U1%.U3%.2).X..|
00000440: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ|
00000450: 29 3A 82 3A 99 22 93 22 00 6B 0C D7 00 55 5A B2 |):.:.".".k...UZ.|
00000460: 31 3A 55 56 25 B2 C2 28 55 54 29 00 74 0C D8 00 |1:UV%..(UT).t...|
00000470: 89 33 30 30 00 99 0C D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US|
00000480: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
00000490: B2 55 4A 3A 55 4C B2 55 4B 00 D0 0C DA 00 8B C2 |.UJ:UL.UK.......|
000004A0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000004B0: 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C |,1:.".";:.53281,|
000004C0: 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 |6:.53280,14:.220|
000004D0: 00 DA 0C DB 00 99 22 93 22 3B 00 09 0D DC 00 55 |......".";.....U|
000004E0: 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 |T$.UL$:.UT,UV%:.|
000004F0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
00000500: 31 25 AA 55 33 25 AB 33 29 00 1E 0D E1 00 97 55 |1%.U3%.3)......U|
00000510: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 2A |Q,UQ%(UQ.UB):..*|
00000520: 0D E6 00 97 55 31 2C 55 31 25 00 36 0D E8 00 97 |....U1,U1%.6....|
00000530: 55 32 2C 55 32 25 00 42 0D E9 00 97 55 34 2C 55 |U2,U2%.B....U4,U|
00000540: 34 25 00 50 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.P....U3,U3%.1|
00000550: 00 58 0D EB 00 89 33 35 00 8A 0D F0 00 55 44 25 |.X....35.....UD%|
00000560: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000570: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000580: 24 2C 55 44 25 AA 31 29 3A 8E 00 C5 0D F5 00 99 |$,UD%.1):.......|
00000590: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
000005C0: 20 20 22 3A 8E 00 F1 0D FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000005D0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
000005E0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
000005F0: 29 00 19 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK|
00000600: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
00000610: B2 55 50 3A 55 4B B2 55 4C 00 1F 0E FF 00 8E 00 |.UP:UK.UL.......|
00000620: 30 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A |0.,.. ** MENU **|
00000630: 00 36 0E 2D 01 3A 00 65 0E 2E 01 99 22 93 22 3A |.6.-.:.e....".":|
00000640: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000650: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000660: 32 38 30 2C 38 00 6B 0E 2F 01 3A 00 88 0E 31 01 |280,8.k./.:...1.|
00000670: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000680: 20 20 20 4D 45 4E 55 22 00 B7 0E 36 01 99 22 20 | MENU"...6.." |
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 22 00 DF 0E 3B 01 99 22 11 11 |------"...;.."..|
000006C0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000006D0: 4E 20 46 55 53 45 20 20 20 20 20 20 20 20 22 00 |N FUSE ".|
000006E0: 09 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2|
000006F0: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000700: 52 55 43 54 49 4F 4E 53 22 00 33 0F 45 01 99 22 |RUCTIONS".3.E.."|
00000710: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000720: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000730: 4E 53 22 00 4F 0F 4F 01 99 22 11 11 20 20 20 20 |NS".O.O..".. |
00000740: 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 | 4. QUIT..".|
00000750: 7E 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |~.T.." ---------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A9 |-------------"..|
00000780: 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR|
00000790: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
000007A0: 20 28 31 2D 34 29 20 22 3B 00 D1 0F 5E 01 55 4C | (1-4) ";...^.UL|
000007B0: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3|
000007C0: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN|
000007D0: 45 00 DC 0F 60 01 55 53 24 B2 22 22 00 F9 0F 63 |E...`.US$.""...c|
000007E0: 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 |...(UR$).1000,40|
000007F0: 30 2C 35 30 30 2C 33 39 36 00 02 10 68 01 89 33 |0,500,396...h..3|
00000800: 30 30 00 29 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 |00.).... ** RE-E|
00000810: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 |NABLE STOP KEY A|
00000820: 4E 44 20 45 4E 44 20 2A 2A 00 58 10 8C 01 8B C2 |ND END **.X.....|
00000830: 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 |(50003)..1..(500|
00000840: 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 |03)..160..(50003|
00000850: 29 B3 B1 30 A7 33 39 39 00 82 10 8D 01 9E 55 55 |)..0.399......UU|
00000860: AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.71:..(50003).0.|
00000870: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00000880: 31 34 00 8E 10 8E 01 99 22 9A 93 22 3A 80 00 99 |14......"..":...|
00000890: 10 8F 01 8D 38 37 35 3A 8E 00 BA 10 90 01 8F 20 |....875:....... |
000008A0: 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 |** STUDENT INSTR|
000008B0: 55 43 54 49 4F 4E 53 20 2A 2A 00 E9 10 95 01 99 |UCTIONS **......|
000008C0: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
000008D0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 |0003).0..53281,0|
000008E0: 3A 97 35 33 32 38 30 2C 30 00 0A 11 9A 01 55 50 |:.53280,0.....UP|
000008F0: B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 |.0:UG$.".TUDENT |
00000900: C9 4E 53 54 22 3A 8D 38 35 30 00 38 11 B4 01 99 |.NST":.850.8....|
00000910: 22 11 11 20 C9 4E 20 54 48 49 53 20 C5 CC C5 C3 |".. .N THIS ....|
00000920: D4 D2 C9 C3 C1 CC A0 D1 D5 C9 DA 20 59 4F 55 20 |........... YOU |
00000930: 57 49 4C 4C 20 42 45 22 00 64 11 B5 01 99 22 11 |WILL BE".d....".|
00000940: 20 47 49 56 45 4E 20 54 48 45 20 56 4F 4C 54 41 | GIVEN THE VOLTA|
00000950: 47 45 20 41 4E 44 20 50 4F 57 45 52 20 52 41 54 |GE AND POWER RAT|
00000960: 49 4E 47 22 00 93 11 B6 01 99 22 11 20 4F 46 20 |ING"......". OF |
00000970: 41 4E 20 41 50 50 4C 49 41 4E 43 45 2E 20 D9 4F |AN APPLIANCE. .O|
00000980: 55 20 41 52 45 20 54 4F 20 43 41 4C 43 55 4C 41 |U ARE TO CALCULA|
00000990: 54 45 22 00 BD 11 B7 01 99 22 11 20 54 48 45 20 |TE"......". THE |
000009A0: 4C 4F 57 45 53 54 20 56 41 4C 55 45 44 20 46 55 |LOWEST VALUED FU|
000009B0: 53 45 20 54 48 41 54 20 57 49 4C 4C 22 00 EC 11 |SE THAT WILL"...|
000009C0: B8 01 99 22 11 20 4C 45 54 20 54 48 45 20 41 50 |...". LET THE AP|
000009D0: 50 4C 49 41 4E 43 45 20 4F 50 45 52 41 54 45 20 |PLIANCE OPERATE |
000009E0: 57 49 54 48 4F 55 54 20 20 20 20 22 00 FE 11 B9 |WITHOUT "....|
000009F0: 01 99 22 11 20 42 4C 4F 57 49 4E 47 2E 22 00 08 |..". BLOWING."..|
00000A00: 12 BA 01 8D 20 38 33 35 00 17 12 BB 01 55 50 B2 |.... 835.....UP.|
00000A10: 32 3A 8D 20 38 35 30 00 40 12 BC 01 99 22 11 11 |2:. 850.@...."..|
00000A20: 20 D9 4F 55 20 48 41 56 45 20 54 48 45 53 45 20 | .OU HAVE THESE |
00000A30: 46 55 53 45 53 20 49 4E 20 53 54 4F 43 4B 3A 22 |FUSES IN STOCK:"|
00000A40: 00 52 12 BD 01 99 22 11 20 20 20 32 20 41 4D 50 |.R....". 2 AMP|
00000A50: 53 22 00 64 12 BE 01 99 22 11 20 20 20 33 20 41 |S".d....". 3 A|
00000A60: 4D 50 53 22 00 76 12 BF 01 99 22 11 20 20 20 35 |MPS".v....". 5|
00000A70: 20 41 4D 50 53 22 00 88 12 C0 01 99 22 11 20 20 | AMPS"......". |
00000A80: 31 30 20 41 4D 50 53 22 00 9A 12 C1 01 99 22 11 |10 AMPS"......".|
00000A90: 20 20 31 33 20 41 4D 50 53 22 00 A4 12 C2 01 8D | 13 AMPS"......|
00000AA0: 20 38 33 35 00 B2 12 C7 01 55 50 B2 33 3A 8D 38 | 835.....UP.3:.8|
00000AB0: 35 30 00 E1 12 CC 01 99 22 11 11 20 CE 4F 54 45 |50......".. .OTE|
00000AC0: 3A 11 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 |:....O ADVANCE F|
00000AD0: 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E |ROM ONE QUESTION|
00000AE0: 22 00 0F 13 D6 01 99 22 11 20 20 20 20 20 54 4F |"......". TO|
00000AF0: 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 | THE NEXT PRESS |
00000B00: 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 2E 22 00 |THE ..... BAR.".|
00000B10: 3B 13 DB 01 99 22 11 11 1D C9 46 20 41 54 20 41 |;...."....F AT A|
00000B20: 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 |NY TIME YOU WISH|
00000B30: 20 54 4F 20 52 45 54 55 52 4E 22 00 60 13 E0 01 | TO RETURN".`...|
00000B40: 99 22 11 20 54 4F 20 54 48 45 20 CD C5 CE D5 20 |.". TO THE .... |
00000B50: 50 52 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE 2E 22 |PRESS H ......."|
00000B60: 00 69 13 E5 01 8D 38 33 35 00 7D 13 EA 01 8B 55 |.i....835.}....U|
00000B70: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 83 13 |Z.1..UP%:.217...|
00000B80: F3 01 8E 00 A4 13 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000B90: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000BA0: 53 20 2A 2A 00 D4 13 F5 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000BB0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000BC0: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000BD0: 30 2C 31 30 00 F5 13 F6 01 55 50 B2 30 3A 55 47 |0,10.....UP.0:UG|
00000BE0: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000BF0: 3A 8D 38 35 30 00 23 14 F7 01 99 22 11 11 20 20 |:.850.#....".. |
00000C00: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000C10: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000C20: 2C 11 22 00 4C 14 F8 01 99 22 20 20 20 54 48 49 |,.".L...." THI|
00000C30: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000C40: 54 48 45 20 50 55 42 4C 49 43 11 22 00 78 14 F9 |THE PUBLIC.".x..|
00000C50: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000C60: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000C70: 45 20 43 41 53 45 11 22 00 95 14 FA 01 99 22 20 |E CASE."......" |
00000C80: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000C90: 3A 11 11 11 22 00 BF 14 FB 01 99 22 20 20 20 20 |:..."......" |
00000CA0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000CB0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000CC0: E2 14 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000CD0: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000CE0: 45 2E 00 06 15 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000CF0: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000D00: 54 41 52 49 4F 22 00 28 15 FE 01 99 22 20 20 20 |TARIO".(...." |
00000D10: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000D20: CD 31 D7 20 32 CB 34 22 00 48 15 FF 01 99 22 20 |.1. 2.4".H...." |
00000D30: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000D40: 39 39 2D 34 32 39 32 22 00 5E 15 00 02 55 50 B2 |99-4292".^...UP.|
00000D50: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 88 |1:. 835:. 850:..|
00000D60: 15 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000D70: 52 41 4D 20 CE 41 4D 45 3A 20 C6 55 53 45 20 20 |RAM .AME: .USE |
00000D80: 20 20 20 20 20 20 20 11 00 AB 15 02 02 99 22 20 | ......." |
00000D90: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000DA0: 3A 20 D2 2E CA 2E CC 41 4D 42 11 00 CE 15 03 02 |: .....AMB......|
00000DB0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
00000DC0: C2 59 20 3A 20 20 20 20 20 20 20 20 20 11 00 F9 |.Y : ...|
00000DD0: 15 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 |...." ..HIS |
00000DE0: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E |PROGRAM WILL RUN|
00000DF0: 20 4F 4E 20 41 4E 59 11 11 00 19 16 07 02 99 22 | ON ANY........"|
00000E00: 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 | ... 64 |
00000E10: C3 CF CD D0 D5 D4 C5 D2 11 00 3E 16 08 02 99 22 |..........>...."|
00000E20: 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF | .......|
00000E30: D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 4D |.. 64 .........M|
00000E40: 16 09 02 8D 38 33 35 3A 8D 20 38 35 30 00 79 16 |....835:. 850.y.|
00000E50: 17 02 99 22 11 11 20 D4 48 49 53 20 50 52 4F 47 |...".. .HIS PROG|
00000E60: 52 41 4D 20 49 53 20 49 4E 54 45 4E 44 45 44 20 |RAM IS INTENDED |
00000E70: 46 4F 52 20 54 48 45 20 22 00 A8 16 1C 02 99 22 |FOR THE "......"|
00000E80: 11 20 42 45 47 49 4E 4E 49 4E 47 2D 49 4E 54 45 |. BEGINNING-INTE|
00000E90: 52 4D 45 44 49 41 54 45 20 45 4C 45 43 54 52 49 |RMEDIATE ELECTRI|
00000EA0: 43 49 54 59 20 20 20 22 00 BA 16 21 02 99 22 11 |CITY "...!..".|
00000EB0: 20 53 54 55 44 45 4E 54 2E 22 00 EA 16 26 02 99 | STUDENT."...&..|
00000EC0: 22 11 20 D4 48 49 53 20 49 53 20 41 20 53 4D 41 |". .HIS IS A SMA|
00000ED0: 4C 4C 20 51 55 49 5A 20 57 49 54 48 20 54 48 45 |LL QUIZ WITH THE|
00000EE0: 20 53 43 4F 52 45 20 4F 46 22 00 18 17 2B 02 99 | SCORE OF"...+..|
00000EF0: 22 11 20 54 48 45 20 4E 55 4D 42 45 52 20 43 4F |". THE NUMBER CO|
00000F00: 52 52 45 43 54 20 56 53 2E 20 54 48 45 20 4E 55 |RRECT VS. THE NU|
00000F10: 4D 42 45 52 20 4F 46 22 00 43 17 30 02 99 22 11 |MBER OF".C.0..".|
00000F20: 20 51 55 45 53 54 49 4F 4E 53 20 54 52 49 45 44 | QUESTIONS TRIED|
00000F30: 20 47 49 56 45 4E 20 41 54 20 54 48 45 20 45 4E | GIVEN AT THE EN|
00000F40: 44 2E 22 00 67 17 35 02 99 22 11 20 C6 4F 52 20 |D.".g.5..". .OR |
00000F50: 4D 4F 52 45 20 49 4E 53 54 52 55 43 54 49 4F 4E |MORE INSTRUCTION|
00000F60: 53 20 53 45 45 20 22 00 88 17 3A 02 99 22 11 20 |S SEE "...:..". |
00000F70: 27 D3 D4 D5 C4 C5 CE D4 A0 C9 CE D3 D4 D2 D5 C3 |'...............|
00000F80: D4 C9 CF CE D3 27 2E 22 00 92 17 3F 02 8D 20 38 |.....'."...?.. 8|
00000F90: 33 35 00 A6 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 |35...N..UZ.1..UP|
00000FA0: 25 3A 89 32 31 37 00 AC 17 57 02 8E 00 D2 17 58 |%:.217...W.....X|
00000FB0: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO|
00000FC0: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST |
00000FD0: 2A 2A 00 E3 17 59 02 99 22 93 22 3A 97 55 54 2C |**...Y..".":.UT,|
00000FE0: 55 4C 25 00 03 18 5D 02 55 50 B2 30 3A 55 47 24 |UL%...].UP.0:UG$|
00000FF0: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
00001000: 38 35 30 00 0C 18 94 02 8D 38 33 35 00 20 18 B2 |850......835. ..|
00001010: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00001020: 00 26 18 BB 02 8E 00 4B 18 BC 02 8F 20 2A 2A 20 |.&.....K.... ** |
00001030: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00001040: 20 43 42 4D 34 30 33 32 20 2A 2A 00 81 18 C6 02 | CBM4032 **.....|
00001050: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00001060: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00001070: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00001080: 11 00 B7 18 D0 02 99 22 20 20 20 20 20 20 4C 4F |......." LO|
00001090: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
000010A0: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
000010B0: 11 11 11 11 11 11 22 00 C2 18 DA 02 9E 55 55 AA |......"......UU.|
000010C0: 37 31 00 C8 18 E4 02 80 00 E8 18 20 03 8F 20 2A |71......... .. *|
000010D0: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P |
000010E0: 41 20 47 20 45 20 2A 2A 00 1C 19 22 03 99 22 93 |A G E **..."..".|
000010F0: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..|
00001100: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280|
00001110: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 32 19 24 |,14:.53281,6.2.$|
00001120: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";|
00001130: 3A 82 00 4A 19 26 03 81 49 B2 31 A4 32 32 3A 99 |:..J.&..I.1.22:.|
00001140: 22 11 9D 12 A6 92 22 3B 3A 82 00 62 19 28 03 81 |".....";:..b.(..|
00001150: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";|
00001160: 3A 82 00 7A 19 2A 03 81 49 B2 31 A4 32 32 3A 99 |:..z.*..I.1.22:.|
00001170: 22 91 9D 12 A6 92 22 3B 3A 82 00 9F 19 2C 03 99 |".....";:....,..|
00001180: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..|
000011A0: C1 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
000011B0: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .|
000011C0: A9 00 E2 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....0.."........|
000011D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
000011E0: A3 DF 00 00 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......|
000011F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .|
00001200: 00 28 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |.(.4..".........|
00001210: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D|
00001220: 20 4F 20 52 20 45 11 11 00 4B 1A 36 03 99 22 1D | O R E...K.6..".|
00001230: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED|
00001240: 55 43 41 54 49 4F 4E 41 4C 11 11 00 6A 1A 38 03 |UCATIONAL...j.8.|
00001250: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001260: 1D 1D 53 4F 46 54 57 41 52 45 00 85 1A 3A 03 8F |..SOFTWARE...:..|
00001270: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO|
00001280: 47 4F 20 2A 2A 00 BD 1A 3B 03 99 C8 28 55 44 24 |GO **...;...(UD$|
00001290: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........|
000012A0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
000012B0: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 DF 1A |OR WAIT.":I.0...|
000012C0: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I|
000012D0: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.|
000012E0: 03 1B 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |..>.T1$."":T2$."|
000012F0: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":|
00001300: 49 B2 30 00 0C 1B 40 03 89 33 30 30 00 28 1B 43 |I.0...@..300.(.C|
00001310: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR |
00001320: 50 52 45 53 53 20 2A 2A 00 64 1B 48 03 97 20 55 |PRESS **.d.H.. U|
00001330: 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 |O,0:..(UD$,24);"|
00001340: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001350: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN|
00001360: 55 45 92 22 00 7B 1B 4C 03 A1 55 49 24 3A 8B 55 |UE.".{.L..UI$:.U|
00001370: 49 24 B3 B1 22 20 22 A7 38 34 34 00 81 1B 4E 03 |I$.." ".844...N.|
00001380: 8E 00 A1 1B 52 03 8F 20 2A 2A 20 50 41 47 45 20 |....R.. ** PAGE |
00001390: 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A |DESIGN ROUTINE *|
000013A0: 2A 00 AD 1B 54 03 55 50 B2 55 50 AA 31 00 D7 1B |*...T.UP.UP.1...|
000013B0: 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C |W..".".(UT$.UP$,|
000013C0: 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 |21);.(UP$.UG$..(|
000013D0: 55 50 29 2C 31 38 29 00 06 1C 5C 03 99 22 20 2D |UP),18)...\.." -|
000013E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001400: 2D 2D 2D 2D 2D 22 00 15 1C 60 03 8B 55 48 B3 B1 |-----"...`..UH..|
00001410: 30 A7 38 37 30 00 21 1C 61 03 8F 20 48 45 4C 50 |0.870.!.a.. HELP|
00001420: 3F 00 32 1C 66 03 55 48 B2 30 3A 99 22 13 11 22 |?.2.f.UH.0:.".."|
00001430: 3A 8E 00 51 1C 6B 03 8F 20 2A 2A 20 50 4C 45 41 |:..Q.k.. ** PLEA|
00001440: 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A |SE WAIT REMARK *|
00001450: 2A 00 87 1C 70 03 99 C8 28 55 44 24 2C 32 34 29 |*...p...(UD$,24)|
00001460: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE|
00001470: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..|
00001480: 2E 20 20 20 20 20 22 00 8D 1C 75 03 8E 00 AA 1C |. "...u.....|
00001490: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA|
000014A0: 52 49 41 42 4C 45 53 20 2A 2A 00 F5 1C 85 03 55 |RIABLES **.....U|
000014B0: 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 |X$."H":.UQ%(1000|
000014C0: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19|
000014D0: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:|
000014E0: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU|
000014F0: B2 31 30 32 34 00 33 1D 86 03 55 54 B2 35 39 34 |.1024.3...UT.594|
00001500: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14|
00001510: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327|
00001520: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000|
00001530: 33 2C 30 00 76 1D 87 03 8B C2 28 35 30 30 30 33 |3,0.v.....(50003|
00001540: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2|
00001550: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211|
00001560: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U|
00001570: 55 B2 32 30 34 38 00 B5 1D 88 03 8B C2 28 35 30 |U.2048.......(50|
00001580: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:|
00001590: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
000015A0: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
000015B0: 4F B2 31 39 38 00 D9 1D 89 03 55 44 24 B2 22 13 |O.198.....UD$.".|
000015C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000015D0: 11 11 11 11 11 11 11 11 22 00 0B 1E 8A 03 55 50 |........".....UP|
000015E0: 24 B2 22 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 20 20 20 | |
00001600: 20 20 20 20 20 20 20 20 20 20 22 00 59 1E 8B 03 | ".Y...|
00001610: 55 54 24 B2 22 20 C6 D5 D3 C5 20 20 20 20 20 20 |UT$." .... |
00001620: 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 | ......":. PLAC|
00001630: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE |
00001640: 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 |HERE !!!!!!!!!!!|
00001650: 21 21 21 21 21 21 2A 2A 2A 00 5F 1E 8C 03 8E 00 |!!!!!!***._.....|
00001660: 79 1E 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |y.... ** SET VAR|
00001670: 49 41 42 4C 45 53 20 2A 2A 00 82 1E 93 03 8D 39 |IABLES **......9|
00001680: 30 30 00 9D 1E 98 03 8F 20 2A 2A 20 43 48 45 43 |00...... ** CHEC|
00001690: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 BB 1E |K FOR 8032 **...|
000016A0: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
000016B0: 49 46 54 45 44 20 53 50 41 43 45 00 D2 1E A2 03 |IFTED SPACE.....|
000016C0: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
000016D0: 30 30 00 EB 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00...... ** MEMO|
000016E0: 52 59 20 43 48 45 43 4B 20 2A 2A 00 FF 1E A4 03 |RY CHECK **.....|
000016F0: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001700: 2D 1F A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |-...."....THIS M|
00001710: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
00001720: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 51 1F |HAVE ENOUGH.".Q.|
00001730: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001740: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
00001750: 22 00 5C 1F A7 03 9E 55 55 AA 37 31 00 62 1F A8 |".\....UU.71.b..|
00001760: 03 80 00 7C 1F A9 03 99 22 93 05 22 3A 8B C2 28 |...|...."..":..(|
00001770: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 AB 1F AC |50003).0.962....|
00001780: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
00001790: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
000017A0: 36 34 20 53 45 54 55 50 20 2A 2A 00 E9 1F AD 03 |64 SETUP **.....|
000017B0: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
000017C0: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
000017D0: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
000017E0: 97 31 30 38 31 2C 31 34 35 00 1F 20 AE 03 97 31 |.1081,145.. ...1|
000017F0: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001800: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001810: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001820: 41 20 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |A ...1104,145:.1|
00001830: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001840: 34 00 58 20 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.X ....(50003).|
00001850: B1 31 36 30 A7 39 35 35 00 87 20 B6 03 97 31 30 |.160.955.. ...10|
00001860: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
00001870: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
00001880: 32 38 3A 89 39 36 35 00 9C 20 BB 03 8B C2 28 35 |28:.965.. ....(5|
00001890: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 CB 20 C0 |0003)..1.990.. .|
000018A0: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
000018B0: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
000018C0: 30 32 2C 32 33 30 3A 89 39 36 35 00 05 21 C2 03 |02,230:.965..!..|
000018D0: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
000018E0: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
000018F0: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001900: 30 35 2C 32 31 00 41 21 C3 03 97 32 31 30 36 2C |05,21.A!...2106,|
00001910: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001920: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001930: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001940: 31 00 7B 21 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1.{!...2123,20:.|
00001950: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
00001960: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
00001970: 2C 32 31 3A 97 32 31 32 39 2C 33 00 99 21 C5 03 |,21:.2129,3..!..|
00001980: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
00001990: 20 53 54 4F 50 20 4B 45 59 00 AA 21 CA 03 8D 38 | STOP KEY..!...8|
000019A0: 30 30 3A 8F 20 54 49 54 4C 45 00 BA 21 D4 03 89 |00:. TITLE..!...|
000019B0: 33 30 30 3A 8F 20 4D 45 4E 55 00 EB 21 DE 03 99 |300:. MENU..!...|
000019C0: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
000019D0: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
000019E0: 4D 41 43 48 49 4E 45 21 22 3A 80 00 20 22 E8 03 |MACHINE!":.. "..|
000019F0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001A00: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001A10: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001A20: 00 4C 22 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |.L"..."..";:.:..|
00001A30: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001A40: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 65 22 F2 |,6:.53280,14.e".|
00001A50: 03 8F 2D 46 55 53 45 2D 52 2E 4A 2E 4C 41 4D 42 |..-FUSE-R.J.LAMB|
00001A60: 2D 31 39 38 31 00 71 22 FC 03 97 55 54 2C 55 4C |-1981.q"...UT,UL|
00001A70: 25 00 82 22 01 04 52 B2 30 3A 43 B2 30 3A 55 50 |%.."..R.0:C.0:UP|
00001A80: B2 30 00 8B 22 06 04 99 22 93 22 00 91 22 8D 04 |.0.."...".".."..|
00001A90: 8C 00 9C 22 92 04 81 5A B2 31 A4 35 00 A6 22 9C |..."...Z.1.5..".|
00001AA0: 04 87 46 28 5A 29 00 AC 22 A6 04 82 00 B4 22 AB |..F(Z)..".....".|
00001AB0: 04 50 B2 30 00 C9 22 B0 04 57 B2 B5 28 33 30 30 |.P.0.."..W..(300|
00001AC0: 30 AC BB 28 31 29 AA 31 29 00 D3 22 BA 04 43 B2 |0..(1).1).."..C.|
00001AD0: 43 AA 31 00 DF 22 C4 04 41 B2 57 AD 32 34 30 00 |C.1.."..A.W.240.|
00001AE0: FC 22 CE 04 55 47 24 B2 22 D1 55 45 53 54 49 4F |."..UG$.".UESTIO|
00001AF0: 4E 20 20 23 22 3A 20 8D 20 38 35 30 00 05 23 D3 |N #": . 850..#.|
00001B00: 04 99 22 11 22 00 1D 23 D8 04 99 22 20 D6 4F 4C |.."."..#..." .OL|
00001B10: 54 41 47 45 20 3D 20 32 34 30 D6 2E 22 00 44 23 |TAGE = 240..".D#|
00001B20: E2 04 99 22 11 20 D0 4F 57 45 52 20 52 41 54 49 |...". .OWER RATI|
00001B30: 4E 47 20 3D 20 22 3B 57 AD 31 30 30 30 3B 22 20 |NG = ";W.1000;" |
00001B40: 4B D7 2E 22 00 4F 23 EC 04 81 5A B2 31 A4 35 00 |K..".O#...Z.1.5.|
00001B50: 60 23 F6 04 8B 46 28 5A 29 B1 41 89 31 32 39 30 |`#...F(Z).A.1290|
00001B60: 00 66 23 00 05 82 00 97 23 0A 05 99 22 11 20 D7 |.f#.....#...". .|
00001B70: 48 41 54 20 46 55 53 45 20 49 53 20 52 45 51 55 |HAT FUSE IS REQU|
00001B80: 49 52 45 44 20 49 4E 20 54 48 45 20 41 50 50 4C |IRED IN THE APPL|
00001B90: 49 41 4E 43 45 3F 22 00 A6 23 14 05 99 22 11 20 |IANCE?"..#...". |
00001BA0: 20 20 9D 9D 22 3B 00 C9 23 19 05 55 53 24 B2 22 | ..";..#..US$."|
00001BB0: 30 31 32 33 35 22 3A 55 4C B2 32 3A 8D 20 33 35 |01235":UL.2:. 35|
00001BC0: 3A 46 B2 C5 28 55 52 24 29 00 E9 23 1E 05 8B 46 |:F..(UR$)..#...F|
00001BD0: B2 32 B0 46 B2 33 B0 46 B2 35 B0 46 B2 31 30 B0 |.2.F.3.F.5.F.10.|
00001BE0: 46 B2 31 33 89 31 33 34 30 00 19 24 28 05 99 22 |F.13.1340..$(.."|
00001BF0: 11 11 20 D9 4F 55 20 44 4F 20 4E 4F 54 20 48 41 |.. .OU DO NOT HA|
00001C00: 56 45 20 41 20 46 55 53 45 20 4F 46 20 54 48 41 |VE A FUSE OF THA|
00001C10: 54 20 56 41 4C 55 45 2E 22 00 5B 24 29 05 81 20 |T VALUE.".[$).. |
00001C20: 4C 50 B2 31 20 A4 20 37 35 30 3A 82 20 4C 50 3A |LP.1 . 750:. LP:|
00001C30: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C50: 20 20 20 20 20 20 20 20 20 20 22 00 68 24 2A 05 | ".h$*.|
00001C60: 99 22 91 91 91 91 22 3B 00 7C 24 2C 05 99 22 20 |."....";.|$,.." |
00001C70: 20 20 20 20 9D 9D 9D 9D 9D 91 22 3B 00 86 24 32 | ......";..$2|
00001C80: 05 89 31 33 30 30 00 AD 24 3C 05 8B 46 B2 46 28 |..1300..$<..F.F(|
00001C90: 5A 29 A7 99 22 11 11 20 C3 4F 52 52 45 43 54 21 |Z)..".. .ORRECT!|
00001CA0: 22 3A 52 B2 52 AA 31 3A 89 31 33 37 30 00 DE 24 |":R.R.1:.1370..$|
00001CB0: 46 05 99 22 11 11 20 D9 4F 55 20 41 52 45 20 57 |F..".. .OU ARE W|
00001CC0: 52 4F 4E 47 21 20 D4 48 45 20 43 4F 52 52 45 43 |RONG! .HE CORREC|
00001CD0: 54 20 46 55 53 45 20 54 4F 20 46 49 54 22 00 FF |T FUSE TO FIT"..|
00001CE0: 24 50 05 99 22 11 20 57 4F 55 4C 44 20 42 45 20 |$P..". WOULD BE |
00001CF0: 22 3B 46 28 5A 29 3B 22 20 41 4D 50 53 2E 22 00 |";F(Z);" AMPS.".|
00001D00: 29 25 5A 05 99 22 11 11 20 C4 4F 20 59 4F 55 20 |)%Z..".. .O YOU |
00001D10: 57 49 53 48 20 41 4E 4F 54 48 45 52 20 51 55 45 |WISH ANOTHER QUE|
00001D20: 53 54 49 4F 4E 3F 20 22 3B 00 47 25 5F 05 55 53 |STION? ";.G%_.US|
00001D30: 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 20 33 35 |$."YN":UL.1:. 35|
00001D40: 3A 41 24 B2 55 52 24 00 58 25 64 05 8B 41 24 B2 |:A$.UR$.X%d..A$.|
00001D50: 22 59 22 A7 31 32 30 30 00 69 25 6E 05 8B 41 24 |"Y".1200.i%n..A$|
00001D60: B2 22 4E 22 A7 31 34 31 30 00 73 25 78 05 89 31 |."N".1410.s%x..1|
00001D70: 33 38 30 00 90 25 82 05 55 50 B2 30 3A 55 47 24 |380..%..UP.0:UG$|
00001D80: B2 22 D2 45 53 55 4C 54 53 22 3A 8D 20 38 35 30 |.".ESULTS":. 850|
00001D90: 00 9A 25 87 05 99 22 11 11 22 00 C2 25 8C 05 99 |..%...".."..%...|
00001DA0: 22 20 D9 4F 55 20 48 41 56 45 20 53 43 4F 52 45 |" .OU HAVE SCORE|
00001DB0: 44 20 22 3B 52 3B 22 20 4F 55 54 20 4F 46 20 22 |D ";R;" OUT OF "|
00001DC0: 3B 43 00 CC 25 96 05 51 B2 52 AD 43 00 F3 25 A0 |;C..%..Q.R.C..%.|
00001DD0: 05 8B 51 B1 2E 39 35 A7 99 22 11 11 20 D6 45 52 |..Q..95..".. .ER|
00001DE0: 59 20 57 45 4C 4C 20 44 4F 4E 45 21 22 3A 89 31 |Y WELL DONE!":.1|
00001DF0: 34 38 30 00 1B 26 AA 05 8B 51 B1 2E 35 A7 99 22 |480..&...Q..5.."|
00001E00: 11 11 20 C3 4F 55 4C 44 20 42 45 20 42 45 54 54 |.. .OULD BE BETT|
00001E10: 45 52 2E 22 3A 89 20 31 34 38 30 00 45 26 B4 05 |ER.":. 1480.E&..|
00001E20: 99 22 11 11 20 D9 4F 55 27 4C 4C 20 50 52 4F 42 |.".. .OU'LL PROB|
00001E30: 41 42 4C 59 20 44 4F 20 41 20 4C 4F 54 20 42 45 |ABLY DO A LOT BE|
00001E40: 54 54 45 52 22 00 59 26 BE 05 99 22 11 20 4E 45 |TTER".Y&...". NE|
00001E50: 58 54 20 54 49 4D 45 2E 22 00 71 26 C3 05 99 22 |XT TIME.".q&..."|
00001E60: 11 11 20 27 C2 59 45 20 46 4F 52 20 4E 4F 57 21 |.. '.YE FOR NOW!|
00001E70: 22 00 7B 26 C8 05 8D 20 38 33 35 00 81 26 D2 05 |".{&... 835..&..|
00001E80: 8E 00 93 26 DC 05 83 20 32 2C 33 2C 35 2C 31 30 |...&... 2,3,5,10|
00001E90: 2C 31 33 00 00 00 |,13... |
.......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 +++
...(.UR$."":UI$."":. UO,0...*..UL.0.UL.8
0.,.-.." ..";:.UC,0.@.2..UI$:.UI$."".50
.J.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.
85.}.<..UI$.G(20).105...>.. C(UR$)..UL.5
0...A..120:. CHECK FOR VALID CHARACTER.F
.F.UR$.UR$.UI$.P.K..UI$;.X.P..50...U.. +
++ CHECK FOR HELP REQUEST +++.%.Z..UR$.U
X$.195:. EXIT TO HELP ROUTINE.4._..UF.1.
.240.A.D.UF.0:.:..Z.F.. ++ CHECK DELETE
++.K.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$)
.1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.N.}..C(US$).0.150..
....US.1.C(US$)......UI$.J(US$,US,1)....
.........UI$."":..$.... ** STANDARD INPU
T **.5....F(UI$).46...F....UI$.G(32)...C
. ..F(UI$).48.F(UI$).57.170.I..........F
(UI$).65.F(UI$).90.180............F(UI$)
.193.F(UI$).218.UI$."":..S....B(UT).UU%.
UI$.G(F(UI$).128):..Y.........UI$."":...
.C.UF.1:. +++ HELP ROUTINE EXIT +++...E.
.250...H..245.<.M..UQ.UB.(U2%.256.U1%.U3
%.2).X.R.UQ%(UQ.UB).B(UQ):.:.".".K.W.UZ.
1:UV%.B(UT).T.X..300...Y.UZ.0:US$.UJ$:UG
$.UK$:UP.UJ:UL.UK.P.Z..B(50003).0..53281
,1:.".";:.53281,6:.53280,14:.220.Z....".
";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U
1%.U3%.3)......UQ,UQ%(UQ.UB):..*....U1,U
1%.6....U2,U2%.B....U4,U4%.P....U3,U3%.1
.X....35.....UD%.((U2%.256.U1%.U3%).UB).
40:.H(UD$,UD%.1):..E....H(UD$,24);"
. HELP COMING . ":....
..U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4
).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.U
L.......0.,.. ** MENU **.6.-.:.E....".":
.UT,UU%:.B(50003).0..53281,9:.53280,8.K.
/.:...1..". MENU"...6.."
--------------------------------------".
..;..".. 1. BEGIN FUSE ".
..@..".. 2. STUDENT INSTRUCTIONS
".3.E..".. 3. TEACHER INSTRUCTIO
NS".O.O..".. 4. QUIT..".~.T.." -
-------------------------------------"..
.Y..".. PRESS A NUMBER KEY (1-4) "
;.Q.^.UL.1:US$."1234":.35:. INPUT ROUTIN
E...`.US$.""...C..E(UR$).1000,400,500,39
6...H..300.).... ** RE-ENABLE STOP KEY A
ND END **.X....B(50003)..1.B(50003)..160
.B(50003)..0.399......UU.71:.B(50003).0.
.53281,6:.53280,14......"..":.......875:
....... ** STUDENT INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0.....UP.0:UG$."STUDENT INST":.850.8....
".. IN THIS ELECTRICAL QUIZ YOU WILL BE"
.D....". GIVEN THE VOLTAGE AND POWER RAT
ING"......". OF AN APPLIANCE. YOU ARE TO
CALCULATE"......". THE LOWEST VALUED FU
SE THAT WILL"......". LET THE APPLIANCE
OPERATE WITHOUT "......". BLOWING."..
.... 835.....UP.2:. 850.@....".. YOU HAV
E THESE FUSES IN STOCK:".R....". 2 AMP
S".D....". 3 AMPS".V....". 5 AMPS"..
....". 10 AMPS"...A..". 13 AMPS"...B..
835...G.UP.3:.850...L..".. NOTE:...TO A
DVANCE FROM ONE QUESTION"...V..". TO
THE NEXT PRESS THE SPACE BAR.".;...."..
.IF AT ANY TIME YOU WISH TO RETURN".`...
.". TO THE MENU PRESS H RETURN.".I....83
5.}....UZ.1..UP%:.217............ ** TEA
CHER INSTRUCTIONS **.T....".":.UT,UL%:.B
(50003).0..53281,2:.53280,10.....UP.0:UG
$."TEACHER INST":.850.#....".. TO T
HE BEST OF OUR KNOWLEDGE,.".L...." THI
S PROGRAM IS IN THE PUBLIC.".X...." DO
MAIN. IF THIS IS NOT THE CASE."......"
PLEASE CONTACT:..."......" COMMOD
ORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO".(...." CANADA
M1W 2K4".H...." (416) 499-4292"
.^...UP.1:. 835:. 850:......" ..PROG
RAM NAME: FUSE ......." WRIT
TEN BY : R.J.LAMB..N...." UPGRADED
BY : ......." .THIS PROGRAM
WILL RUN ON ANY........" PET 64
COMPUTER..>...." COMMODORE 64 CO
MPUTER.M....835:. 850.Y....".. THIS PROG
RAM IS INTENDED FOR THE "......". BEGINN
ING-INTERMEDIATE ELECTRICITY "...!..".
STUDENT."...&..". THIS IS A SMALL QUIZ
WITH THE SCORE OF"...+..". THE NUMBER CO
RRECT VS. THE NUMBER OF".C.0..". QUESTIO
NS TRIED GIVEN AT THE END.".G.5..". FOR
MORE INSTRUCTIONS SEE "...:..". 'STUDENT
INSTRUCTIONS'."...?.. 835...N..UZ.1..UP
%:.217...W...R.X.. ** PROGRAM MODIFICATI
ON INST **...Y..".":.UT,UL%...].UP.0:UG$
."PROGRAM MOD":.850......835. ....UZ.1..
UP%:.217.&.....K.... ** TO USE 8032 LOAD
CBM4032 **...F..".....BEFORE RUNNING TH
IS PROGRAM ON AN 8032 .....P.." LO
AD THE 'CBM 4032' PROGRAM.............".
B.Z..UU.71.H....... .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003).
0..53280,14:.53281,6.2.$..I.1.38:."...";
:..J.&..I.1.22:.".....";:..B.(..I.1.37:.
".....";:..Z.*..I.1.22:.".....";:....,..
"........................... ..A...."..
................. . . .....0.."........
........... . ......2.."...............
..... ..(.4.."..............C O M M O D
O R E...K.6.."...............EDUCATIONA
L...J.8.."................SOFTWARE...:..
** COMMODORE LOGO **...;..H(UD$,24);"..
........PRESS SPACE BAR OR WAIT.":I.0...
<..A$:.A$.." ".I.I.1:.I.250.828...>.T1$.
"":T2$."":T3$."":T4$."":I.0...@..300.(.C
.. ** SPACE BAR PRESS **.D.H.. UO,0:.H(U
D$,24);".......PRESS SPACE BAR TO CONTIN
UE.".{.L..UI$:.UI$.." ".844...N.....R..
** PAGE DESIGN ROUTINE **...T.UP.UP.1.W.
W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).
..\.." ---------------------------------
-----"...`..UH..0.870.!.A.. HELP?.2.F.UH
.0:."..":..Q.K.. ** PLEASE WAIT REMARK *
*...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U........ ** SET UP VA
RIABLES **.....UX$."H":.UQ%(1000):UB.327
68:U1.196:U2.197:U3.198:U4.216:UC.167:UU
.1024.3...UT.59468:UU%.12:UL%.14:UP%.114
6:UM.32768:UO.158:. 50003,0.V....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:UP%.2139:UM.1024:UO.198.Y.
..UD$.".........................".....UP
$."
".Y...UT$." FUSE ":. PLAC
E PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!**
*._.....Y.... ** SET VARIABLES **......9
00...... ** CHECK FOR 8032 **......".":.
" ":. SHIFTED SPACE.R....B(UB.40)..96..7
00...... ** MEMORY CHECK **...... .(0).2
000.937.-...."....THIS MACHINE DOES NOT
HAVE ENOUGH.".Q...."MEMORY TO RUN THIS P
ROGRAM !".\....UU.71.B.....|...."..":.B(
50003).0.962...... ** BASIC 2.0 OR 4.0
OR C-64 SETUP **......1075,133:.1076,
144:.1077,234:.1079,4:.1080,133:.1081,14
5.. ...1091,155:.1098,133:.1099,144:.110
0,234:.1103,133.A ...1104,145:.1105,234:
.1082,234.X ...B(50003)..160.955.. ...10
93,88:.1094,228:.1097,85:.1102,228:.965.
. ...B(50003)..1.990.K ...1093,49:.1094,
230:.1097,46:.1102,230:.965..!B..2099,14
1:.2100,20:.2101,3:.2103,8:.2104,141:.21
05,21.A!C..2106,3:.2115,145:.2117,52:.21
18,234:.2121,49:.2122,141.{!D..2123,20:.
2124,3:.2126,234:.2127,141:.2128,21:.212
9,3..!E..UU.48:. DISABLE STOP KEY..!J..8
00:. TITLE..!T..300:. MENU..!...".THE PG
M WILL NOT WORK ON THIS MACHINE!":.. "..
.UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS
HERE **.L"..."..";:.:.B(50003).0..53281
,6:.53280,14.E"...-FUSE-R.J.LAMB-1981.Q"
...UT,UL%.."..R.0:C.0:UP.0.."...".".."..
..."...Z.1.5.."...F(Z).."....."..P.0.I".
.W..(3000..(1).1).S"..C.C.1.."D.A.W.240.
."N.UG$."QUESTION #": . 850..#S.."."..#
X.." VOLTAGE = 240V.".D#...". POWER RATI
NG = ";W.1000;" KW.".O#...Z.1.5.`#...F(Z
).A.1290.F#.....#...". WHAT FUSE IS REQU
IRED IN THE APPLIANCE?"..#...". ..";.I
#..US$."01235":UL.2:. 35:F.E(UR$)..#...F
.2.F.3.F.5.F.10.F.13.1340..$(..".. YOU D
O NOT HAVE A FUSE OF THAT VALUE.".[$)..
LP.1 . 750:. LP:.".
".H$*.."....";.|$,.."
......";..$2..1300..$<..F.F(Z).."..
CORRECT!":R.R.1:.1370..$F..".. YOU ARE W
RONG! THE CORRECT FUSE TO FIT"..$P..". W
OULD BE ";F(Z);" AMPS.".)%Z..".. DO YOU
WISH ANOTHER QUESTION? ";.G%_.US$."YN":U
L.1:. 35:A$.UR$.X%D..A$."Y".1200.I%N..A$
."N".1410.S%X..1380..%..UP.0:UG$."RESULT
S":. 850..%..."..".B%..." YOU HAVE SCORE
D ";R;" OUT OF ";C.L%..Q.R.C..% ..Q..95.
.".. VERY WELL DONE!":.1480..&...Q..5.."
.. COULD BE BETTER.":. 1480.E&...".. YOU
'LL PROBABLY DO A LOT BETTER".Y&...". NE
XT TIME.".Q&C..".. 'BYE FOR NOW!".{&H..
835..&R....&... 2,3,5,10,13...
> CLICK IMAGE PREVIEW FOR FULL MODAL