FUSE.C3
FILE INFORMATION
FILENAME(S): FUSE.C3
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-10-20 14:31:30
APPEARS ON: 3 disk(s)
FILE HASH
9902cbe4b93832b09143c2a139082ef7319175f88a8e6f5535257aa8f5329a0b
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD LERN | FUSE.C3 | PRG | Treasure Chest - Klaus Der Suhler | 34 | 9 | DOWNLOAD FILE |
| FREESOFT DISK NR | FUSE.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 34 | 0 | DOWNLOAD FILE |
| L EHRNEN | FUSE.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 34 | 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 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 DE |...(US$).0.150..|
000002D0: 0A 7F 00 55 53 24 B2 55 53 24 AA 55 58 24 00 EF |...US$.US$.UX$..|
000002E0: 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).|
000002F0: 06 0B 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U|
00000300: 53 2C 31 29 A7 8E 00 0C 0B 8C 00 82 00 19 0B 91 |S,1)............|
00000310: 00 55 49 24 B2 22 22 3A 8E 00 34 0B 96 00 8F 20 |.UI$."":..4.... |
00000320: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU|
00000330: 54 20 2A 2A 00 45 0B 98 00 8B C6 28 55 49 24 29 |T **.E.....(UI$)|
00000340: B2 34 36 A7 8E 00 56 0B 9B 00 8B 55 49 24 B2 C7 |.46...V....UI$..|
00000350: 28 33 32 29 A7 8E 00 73 0B A0 00 8B C6 28 55 49 |(32)...s.....(UI|
00000360: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.|
00000370: 31 37 30 00 79 0B A5 00 8E 00 96 0B AA 00 8B C6 |170.y...........|
00000380: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).|
00000390: 39 30 A7 31 38 30 00 9C 0B AF 00 8E 00 C0 0B B4 |90.180..........|
000003A0: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U|
000003B0: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.|
000003C0: 00 E3 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.|
000003D0: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128|
000003E0: 29 3A 8E 00 E9 0B BB 00 8E 00 F6 0B BE 00 55 49 |):............UI|
000003F0: 24 B2 22 22 3A 8E 00 1B 0C C3 00 55 46 B2 31 3A |$."":......UF.1:|
00000400: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI|
00000410: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 24 0C C5 00 |NE EXIT +++.$...|
00000420: 8D 32 35 30 00 2D 0C C8 00 8D 32 34 35 00 4C 0C |.250.-....245.L.|
00000430: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25|
00000440: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 68 0C D2 |6.U1%.U3%.2).h..|
00000450: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ|
00000460: 29 3A 82 3A 99 22 93 22 00 7B 0C D7 00 55 5A B2 |):.:.".".{...UZ.|
00000470: 31 3A 55 56 25 B2 C2 28 55 54 29 00 84 0C D8 00 |1:UV%..(UT).....|
00000480: 89 33 30 30 00 A9 0C D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US|
00000490: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
000004A0: B2 55 4A 3A 55 4C B2 55 4B 00 E0 0C DA 00 8B C2 |.UJ:UL.UK.......|
000004B0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000004C0: 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C |,1:.".";:.53281,|
000004D0: 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 |6:.53280,14:.220|
000004E0: 00 EA 0C DB 00 99 22 93 22 3B 00 19 0D DC 00 55 |......".";.....U|
000004F0: 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 |T$.UL$:.UT,UV%:.|
00000500: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
00000510: 31 25 AA 55 33 25 AB 33 29 00 2E 0D E1 00 97 55 |1%.U3%.3)......U|
00000520: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 3A |Q,UQ%(UQ.UB):..:|
00000530: 0D E6 00 97 55 31 2C 55 31 25 00 46 0D E8 00 97 |....U1,U1%.F....|
00000540: 55 32 2C 55 32 25 00 52 0D E9 00 97 55 34 2C 55 |U2,U2%.R....U4,U|
00000550: 34 25 00 60 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.`....U3,U3%.1|
00000560: 00 68 0D EB 00 89 33 35 00 9A 0D F0 00 55 44 25 |.h....35.....UD%|
00000570: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000580: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000590: 24 2C 55 44 25 AA 31 29 3A 8E 00 D5 0D F5 00 99 |$,UD%.1):.......|
000005A0: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
000005D0: 20 20 22 3A 8E 00 01 0E FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000005E0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
000005F0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
00000600: 29 00 29 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).)...UJ$.US$:UK|
00000610: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
00000620: B2 55 50 3A 55 4B B2 55 4C 00 2F 0E FF 00 8E 00 |.UP:UK.UL./.....|
00000630: 40 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A |@.,.. ** MENU **|
00000640: 00 46 0E 2D 01 3A 00 75 0E 2E 01 99 22 93 22 3A |.F.-.:.u....".":|
00000650: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000660: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000670: 32 38 30 2C 38 00 7B 0E 2F 01 3A 00 98 0E 31 01 |280,8.{./.:...1.|
00000680: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000690: 20 20 20 4D 45 4E 55 22 00 C7 0E 36 01 99 22 20 | MENU"...6.." |
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 22 00 EF 0E 3B 01 99 22 11 11 |------"...;.."..|
000006D0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000006E0: 4E 20 46 55 53 45 20 20 20 20 20 20 20 20 22 00 |N FUSE ".|
000006F0: 19 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2|
00000700: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000710: 52 55 43 54 49 4F 4E 53 22 00 43 0F 45 01 99 22 |RUCTIONS".C.E.."|
00000720: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000730: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000740: 4E 53 22 00 5F 0F 4F 01 99 22 11 11 20 20 20 20 |NS"._.O..".. |
00000750: 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 | 4. QUIT..".|
00000760: 8E 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..T.." ---------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B9 |-------------"..|
00000790: 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR|
000007A0: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
000007B0: 20 28 31 2D 34 29 20 22 3B 00 E1 0F 5E 01 55 4C | (1-4) ";...^.UL|
000007C0: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3|
000007D0: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN|
000007E0: 45 00 EC 0F 60 01 55 53 24 B2 22 22 00 09 10 63 |E...`.US$.""...c|
000007F0: 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 |...(UR$).1000,40|
00000800: 30 2C 35 30 30 2C 33 39 36 00 12 10 68 01 89 33 |0,500,396...h..3|
00000810: 30 30 00 39 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 |00.9.... ** RE-E|
00000820: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 |NABLE STOP KEY A|
00000830: 4E 44 20 45 4E 44 20 2A 2A 00 68 10 8C 01 8B C2 |ND END **.h.....|
00000840: 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 |(50003)..1..(500|
00000850: 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 |03)..160..(50003|
00000860: 29 B3 B1 30 A7 33 39 39 00 92 10 8D 01 9E 55 55 |)..0.399......UU|
00000870: AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.71:..(50003).0.|
00000880: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00000890: 31 34 00 9E 10 8E 01 99 22 9A 93 22 3A 80 00 A9 |14......"..":...|
000008A0: 10 8F 01 8D 38 37 35 3A 8E 00 CA 10 90 01 8F 20 |....875:....... |
000008B0: 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 |** STUDENT INSTR|
000008C0: 55 43 54 49 4F 4E 53 20 2A 2A 00 F9 10 95 01 99 |UCTIONS **......|
000008D0: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
000008E0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 |0003).0..53281,0|
000008F0: 3A 97 35 33 32 38 30 2C 30 00 1A 11 9A 01 55 50 |:.53280,0.....UP|
00000900: B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 |.0:UG$.".TUDENT |
00000910: C9 4E 53 54 22 3A 8D 38 35 30 00 48 11 B4 01 99 |.NST":.850.H....|
00000920: 22 11 11 20 C9 4E 20 54 48 49 53 20 C5 CC C5 C3 |".. .N THIS ....|
00000930: D4 D2 C9 C3 C1 CC A0 D1 D5 C9 DA 20 59 4F 55 20 |........... YOU |
00000940: 57 49 4C 4C 20 42 45 22 00 74 11 B5 01 99 22 11 |WILL BE".t....".|
00000950: 20 47 49 56 45 4E 20 54 48 45 20 56 4F 4C 54 41 | GIVEN THE VOLTA|
00000960: 47 45 20 41 4E 44 20 50 4F 57 45 52 20 52 41 54 |GE AND POWER RAT|
00000970: 49 4E 47 22 00 A3 11 B6 01 99 22 11 20 4F 46 20 |ING"......". OF |
00000980: 41 4E 20 41 50 50 4C 49 41 4E 43 45 2E 20 D9 4F |AN APPLIANCE. .O|
00000990: 55 20 41 52 45 20 54 4F 20 43 41 4C 43 55 4C 41 |U ARE TO CALCULA|
000009A0: 54 45 22 00 CD 11 B7 01 99 22 11 20 54 48 45 20 |TE"......". THE |
000009B0: 4C 4F 57 45 53 54 20 56 41 4C 55 45 44 20 46 55 |LOWEST VALUED FU|
000009C0: 53 45 20 54 48 41 54 20 57 49 4C 4C 22 00 FC 11 |SE THAT WILL"...|
000009D0: B8 01 99 22 11 20 4C 45 54 20 54 48 45 20 41 50 |...". LET THE AP|
000009E0: 50 4C 49 41 4E 43 45 20 4F 50 45 52 41 54 45 20 |PLIANCE OPERATE |
000009F0: 57 49 54 48 4F 55 54 20 20 20 20 22 00 0E 12 B9 |WITHOUT "....|
00000A00: 01 99 22 11 20 42 4C 4F 57 49 4E 47 2E 22 00 18 |..". BLOWING."..|
00000A10: 12 BA 01 8D 20 38 33 35 00 27 12 BB 01 55 50 B2 |.... 835.'...UP.|
00000A20: 32 3A 8D 20 38 35 30 00 50 12 BC 01 99 22 11 11 |2:. 850.P...."..|
00000A30: 20 D9 4F 55 20 48 41 56 45 20 54 48 45 53 45 20 | .OU HAVE THESE |
00000A40: 46 55 53 45 53 20 49 4E 20 53 54 4F 43 4B 3A 22 |FUSES IN STOCK:"|
00000A50: 00 62 12 BD 01 99 22 11 20 20 20 32 20 41 4D 50 |.b....". 2 AMP|
00000A60: 53 22 00 74 12 BE 01 99 22 11 20 20 20 33 20 41 |S".t....". 3 A|
00000A70: 4D 50 53 22 00 86 12 BF 01 99 22 11 20 20 20 35 |MPS"......". 5|
00000A80: 20 41 4D 50 53 22 00 98 12 C0 01 99 22 11 20 20 | AMPS"......". |
00000A90: 31 30 20 41 4D 50 53 22 00 AA 12 C1 01 99 22 11 |10 AMPS"......".|
00000AA0: 20 20 31 33 20 41 4D 50 53 22 00 B4 12 C2 01 8D | 13 AMPS"......|
00000AB0: 20 38 33 35 00 C2 12 C7 01 55 50 B2 33 3A 8D 38 | 835.....UP.3:.8|
00000AC0: 35 30 00 F1 12 CC 01 99 22 11 11 20 CE 4F 54 45 |50......".. .OTE|
00000AD0: 3A 11 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 |:....O ADVANCE F|
00000AE0: 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E |ROM ONE QUESTION|
00000AF0: 22 00 1F 13 D6 01 99 22 11 20 20 20 20 20 54 4F |"......". TO|
00000B00: 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 | THE NEXT PRESS |
00000B10: 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 2E 22 00 |THE ..... BAR.".|
00000B20: 50 13 DB 01 99 22 11 11 1D 20 20 20 20 20 C9 46 |P...."... .F|
00000B30: 20 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 | AT ANY TIME YOU|
00000B40: 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E 22 | WISH TO RETURN"|
00000B50: 00 79 13 E0 01 99 22 11 20 20 20 20 20 54 4F 20 |.y....". TO |
00000B60: 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 |THE .... PRESS H|
00000B70: 20 D2 C5 D4 D5 D2 CE 2E 22 00 82 13 E5 01 8D 38 | ......."......8|
00000B80: 33 35 00 96 13 EA 01 8B 55 5A B2 31 A7 9E 55 50 |35......UZ.1..UP|
00000B90: 25 3A 89 32 31 37 00 9C 13 F3 01 8E 00 BD 13 F4 |%:.217..........|
00000BA0: 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E |.. ** TEACHER IN|
00000BB0: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 ED 13 |STRUCTIONS **...|
00000BC0: F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
00000BD0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000BE0: 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 0E 14 |1,2:.53280,10...|
00000BF0: F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 |..UP.0:UG$.".EAC|
00000C00: 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 3C |HER .NST":.850.<|
00000C10: 14 F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 |....".. .O |
00000C20: 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 |THE BEST OF OUR |
00000C30: 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 65 14 F8 |KNOWLEDGE,.".e..|
00000C40: 01 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 |.." THIS PROGR|
00000C50: 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 |AM IS IN THE PUB|
00000C60: 4C 49 43 11 22 00 91 14 F9 01 99 22 20 20 20 44 |LIC."......" D|
00000C70: 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 |OMAIN. .F THIS |
00000C80: 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 |IS NOT THE CASE.|
00000C90: 22 00 AE 14 FA 01 99 22 20 20 20 50 4C 45 41 53 |"......" PLEAS|
00000CA0: 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 D8 |E CONTACT:..."..|
00000CB0: 14 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F |...." .OMMO|
00000CC0: 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 |DORE .USINESS .A|
00000CD0: 43 48 49 4E 45 53 11 22 00 FB 14 FC 01 99 22 20 |CHINES."......" |
00000CE0: 20 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 | 3370 .H|
00000CF0: 41 52 4D 41 43 59 20 C1 56 45 2E 00 1F 15 FD 01 |ARMACY .VE......|
00000D00: 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E |." .GIN|
00000D10: 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 |COURT, .NTARIO".|
00000D20: 41 15 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 |A...." |
00000D30: C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 |.ANADA .1. 2.4|
00000D40: 22 00 61 15 FF 01 99 22 20 20 20 20 20 20 20 20 |".a...." |
00000D50: 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 | (416) 499-4292|
00000D60: 22 00 77 15 00 02 55 50 B2 31 3A 8D 20 38 33 35 |".w...UP.1:. 835|
00000D70: 3A 8D 20 38 35 30 3A 00 A1 15 01 02 99 22 20 20 |:. 850:......" |
00000D80: 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D | ...ROGRAM .AM|
00000D90: 45 3A 20 C6 55 53 45 20 20 20 20 20 20 20 20 20 |E: .USE |
00000DA0: 11 00 C4 15 02 02 99 22 20 20 20 20 20 D7 52 49 |......." .RI|
00000DB0: 54 54 45 4E 20 C2 59 20 20 3A 20 D2 2E CA 2E CC |TTEN .Y : .....|
00000DC0: 41 4D 42 11 00 E7 15 03 02 99 22 20 20 20 20 20 |AMB......." |
00000DD0: D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 |.PGRADED .Y : |
00000DE0: 20 20 20 20 20 20 11 00 12 16 04 02 99 22 20 20 | ......." |
00000DF0: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00000E00: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00000E10: 11 11 00 32 16 07 02 99 22 20 20 20 20 20 20 20 |...2...." |
00000E20: 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 | ... 64 .......|
00000E30: D2 11 00 57 16 08 02 99 22 20 20 20 20 20 20 20 |...W...." |
00000E40: 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 | ......... 64 .|
00000E50: CF CD D0 D5 D4 C5 D2 00 66 16 09 02 8D 38 33 35 |........f....835|
00000E60: 3A 8D 20 38 35 30 00 92 16 17 02 99 22 11 11 20 |:. 850......".. |
00000E70: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |.HIS PROGRAM IS |
00000E80: 49 4E 54 45 4E 44 45 44 20 46 4F 52 20 54 48 45 |INTENDED FOR THE|
00000E90: 20 22 00 C1 16 1C 02 99 22 11 20 42 45 47 49 4E | "......". BEGIN|
00000EA0: 4E 49 4E 47 2D 49 4E 54 45 52 4D 45 44 49 41 54 |NING-INTERMEDIAT|
00000EB0: 45 20 45 4C 45 43 54 52 49 43 49 54 59 20 20 20 |E ELECTRICITY |
00000EC0: 22 00 D3 16 21 02 99 22 11 20 53 54 55 44 45 4E |"...!..". STUDEN|
00000ED0: 54 2E 22 00 03 17 26 02 99 22 11 20 D4 48 49 53 |T."...&..". .HIS|
00000EE0: 20 49 53 20 41 20 53 4D 41 4C 4C 20 51 55 49 5A | IS A SMALL QUIZ|
00000EF0: 20 57 49 54 48 20 54 48 45 20 53 43 4F 52 45 20 | WITH THE SCORE |
00000F00: 4F 46 22 00 31 17 2B 02 99 22 11 20 54 48 45 20 |OF".1.+..". THE |
00000F10: 4E 55 4D 42 45 52 20 43 4F 52 52 45 43 54 20 56 |NUMBER CORRECT V|
00000F20: 53 2E 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |S. THE NUMBER OF|
00000F30: 22 00 5B 17 30 02 99 22 20 51 55 45 53 54 49 4F |".[.0.." QUESTIO|
00000F40: 4E 53 20 54 52 49 45 44 20 47 49 56 45 4E 20 41 |NS TRIED GIVEN A|
00000F50: 54 20 54 48 45 20 45 4E 44 2E 22 00 7F 17 35 02 |T THE END."...5.|
00000F60: 99 22 11 20 C6 4F 52 20 4D 4F 52 45 20 49 4E 53 |.". .OR MORE INS|
00000F70: 54 52 55 43 54 49 4F 4E 53 20 53 45 45 20 22 00 |TRUCTIONS SEE ".|
00000F80: A0 17 3A 02 99 22 11 20 27 D3 D4 D5 C4 C5 CE D4 |..:..". '.......|
00000F90: A0 C9 CE D3 D4 D2 D5 C3 D4 C9 CF CE D3 27 2E 22 |.............'."|
00000FA0: 00 AA 17 3F 02 8D 20 38 33 35 00 BE 17 4E 02 8B |...?.. 835...N..|
00000FB0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 C4 |UZ.1..UP%:.217..|
00000FC0: 17 57 02 8E 00 EA 17 58 02 8F 20 2A 2A 20 50 52 |.W.....X.. ** PR|
00000FD0: 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 |OGRAM MODIFICATI|
00000FE0: 4F 4E 20 49 4E 53 54 20 2A 2A 00 FB 17 59 02 99 |ON INST **...Y..|
00000FF0: 22 93 22 3A 97 55 54 2C 55 4C 25 00 1B 18 5D 02 |".":.UT,UL%...].|
00001000: 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 |UP.0:UG$.".ROGRA|
00001010: 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 24 18 94 02 |M .OD":.850.$...|
00001020: 8D 38 33 35 00 38 18 B2 02 8B 55 5A B2 31 A7 9E |.835.8....UZ.1..|
00001030: 55 50 25 3A 89 32 31 37 00 3E 18 BB 02 8E 00 63 |UP%:.217.>.....c|
00001040: 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
00001050: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
00001060: 20 2A 2A 00 99 18 C6 02 99 22 93 11 11 11 05 42 | **......".....B|
00001070: 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 |EFORE RUNNING TH|
00001080: 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E |IS PROGRAM ON AN|
00001090: 20 38 30 33 32 20 20 11 11 00 CF 18 D0 02 99 22 | 8032 ........"|
000010A0: 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 | LOAD THE '|
000010B0: 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 |CBM 4032' PROGRA|
000010C0: 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |M.............".|
000010D0: DA 18 DA 02 9E 55 55 AA 37 31 00 E0 18 E4 02 80 |.....UU.71......|
000010E0: 00 00 19 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 |... .. ** T I T |
000010F0: 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A |L E P A G E **|
00001100: 00 34 19 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 |.4.".."....";:.U|
00001110: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).|
00001120: 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 |0..53280,14:.532|
00001130: 38 31 2C 36 00 4A 19 24 03 81 49 B2 31 A4 33 38 |81,6.J.$..I.1.38|
00001140: 3A 99 22 12 A6 92 22 3B 3A 82 00 62 19 26 03 81 |:."...";:..b.&..|
00001150: 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B |I.1.22:.".....";|
00001160: 3A 82 00 7A 19 28 03 81 49 B2 31 A4 33 37 3A 99 |:..z.(..I.1.37:.|
00001170: 22 9D 9D 12 A6 92 22 3B 3A 82 00 92 19 2A 03 81 |".....";:....*..|
00001180: 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B |I.1.22:.".....";|
00001190: 3A 82 00 B7 19 2C 03 99 22 13 11 11 11 11 11 11 |:....,..".......|
000011A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011B0: 1D 1D 12 A9 20 20 92 00 D9 19 2E 03 99 22 1D 1D |.... ......."..|
000011C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011D0: 12 20 92 20 20 12 20 92 A9 00 FA 19 30 03 99 22 |. . . .....0.."|
000011E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011F0: 1D 1D 12 20 92 20 20 12 A3 DF 00 18 1A 32 03 99 |... . ......2..|
00001200: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001210: 1D 1D 1D DF 12 20 20 92 00 40 1A 34 03 99 22 11 |..... ..@.4..".|
00001220: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F |.............C O|
00001230: 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 | M M O D O R E..|
00001240: 00 63 1A 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.c.6..".........|
00001250: 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 |......EDUCATIONA|
00001260: 4C 11 11 00 82 1A 38 03 99 22 1D 1D 1D 1D 1D 1D |L.....8.."......|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 |..........SOFTWA|
00001280: 52 45 00 9D 1A 3A 03 8F 20 2A 2A 20 43 4F 4D 4D |RE...:.. ** COMM|
00001290: 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 D5 1A |ODORE LOGO **...|
000012A0: 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |;...(UD$,24);"..|
000012B0: 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |........PRESS SP|
000012C0: 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 |ACE BAR OR WAIT.|
000012D0: 22 3A 49 B2 30 00 F7 1A 3C 03 A1 41 24 3A 8B 41 |":I.0...<..A$:.A|
000012E0: 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 |$.." ".I.I.1:.I.|
000012F0: 32 35 30 A7 38 32 38 00 1B 1B 3E 03 54 31 24 B2 |250.828...>.T1$.|
00001300: 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 |"":T2$."":T3$.""|
00001310: 3A 54 34 24 B2 22 22 3A 49 B2 30 00 24 1B 40 03 |:T4$."":I.0.$.@.|
00001320: 89 33 30 30 00 40 1B 43 03 8F 20 2A 2A 20 53 50 |.300.@.C.. ** SP|
00001330: 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A |ACE BAR PRESS **|
00001340: 00 7C 1B 48 03 97 20 55 4F 2C 30 3A 99 C8 28 55 |.|.H.. UO,0:..(U|
00001350: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 |D$,24);".......P|
00001360: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00001370: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 93 1B 4C |O CONTINUE."...L|
00001380: 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |..UI$:.UI$.." ".|
00001390: 38 34 34 00 99 1B 4E 03 8E 00 B9 1B 52 03 8F 20 |844...N.....R.. |
000013A0: 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 |** PAGE DESIGN R|
000013B0: 4F 55 54 49 4E 45 20 2A 2A 00 C5 1B 54 03 55 50 |OUTINE **...T.UP|
000013C0: B2 55 50 AA 31 00 EF 1B 57 03 99 22 93 22 C8 28 |.UP.1...W..".".(|
000013D0: 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 |UT$.UP$,21);.(UP|
000013E0: 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 |$.UG$..(UP),18).|
000013F0: 1E 1C 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..\.." ---------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 2D |-------------".-|
00001420: 1C 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 39 1C |.`..UH..0.870.9.|
00001430: 61 03 8F 20 48 45 4C 50 3F 00 4A 1C 66 03 55 48 |a.. HELP?.J.f.UH|
00001440: B2 30 3A 99 22 13 11 22 3A 8E 00 69 1C 6B 03 8F |.0:."..":..i.k..|
00001450: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT |
00001460: 52 45 4D 41 52 4B 20 2A 2A 00 9F 1C 70 03 99 C8 |REMARK **...p...|
00001470: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00001480: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT |
00001490: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".|
000014A0: A5 1C 75 03 8E 00 C2 1C 84 03 8F 20 2A 2A 20 53 |..u........ ** S|
000014B0: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES |
000014C0: 2A 2A 00 0D 1D 85 03 55 58 24 B2 22 48 22 3A 86 |**.....UX$."H":.|
000014D0: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327|
000014E0: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197|
000014F0: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U|
00001500: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 4B 1D |C.167:UU.1024.K.|
00001510: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1|
00001520: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114|
00001530: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15|
00001540: 38 3A 97 20 35 30 30 30 33 2C 30 00 8E 1D 87 03 |8:. 50003,0.....|
00001550: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1|
00001560: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21|
00001570: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:|
00001580: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 CD |UC.204:UU.2048..|
00001590: 1D 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
000015A0: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U|
000015B0: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U|
000015C0: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 F1 1D |M.1024:UO.198...|
000015D0: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........|
000015E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000015F0: 22 00 23 1E 8A 03 55 50 24 B2 22 20 20 20 20 20 |".#...UP$." |
00001600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001620: 20 20 22 00 71 1E 8B 03 55 54 24 B2 22 20 C6 D5 | ".q...UT$." ..|
00001630: D3 C5 20 20 20 20 20 20 20 20 A0 A0 A0 A0 A0 A0 |.. ......|
00001640: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA|
00001650: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!|
00001660: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**|
00001670: 2A 00 77 1E 8C 03 8E 00 91 1E 8E 03 8F 20 2A 2A |*.w.......... **|
00001680: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *|
00001690: 2A 00 9A 1E 93 03 8D 39 30 30 00 B5 1E 98 03 8F |*......900......|
000016A0: 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 | ** CHECK FOR 80|
000016B0: 33 32 20 2A 2A 00 D3 1E 9D 03 99 22 93 22 3A 99 |32 **......".":.|
000016C0: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP|
000016D0: 41 43 45 00 EA 1E A2 03 8B C2 28 55 42 AA 34 30 |ACE.......(UB.40|
000016E0: 29 B3 B1 39 36 A7 8D 37 30 30 00 03 1F A3 03 8F |)..96..700......|
000016F0: 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B | ** MEMORY CHECK|
00001700: 20 2A 2A 00 17 1F A4 03 8B 20 B8 28 30 29 B1 32 | **...... .(0).2|
00001710: 30 30 30 A7 39 33 37 00 45 1F A5 03 99 22 93 11 |000.937.E...."..|
00001720: 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 |..THIS MACHINE D|
00001730: 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F |OES NOT HAVE ENO|
00001740: 55 47 48 11 22 00 69 1F A6 03 99 22 4D 45 4D 4F |UGH.".i...."MEMO|
00001750: 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 |RY TO RUN THIS P|
00001760: 52 4F 47 52 41 4D 20 21 22 00 74 1F A7 03 9E 55 |ROGRAM !".t....U|
00001770: 55 AA 37 31 00 7A 1F A8 03 80 00 94 1F A9 03 99 |U.71.z..........|
00001780: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0|
00001790: A7 39 36 32 00 C3 1F AC 03 8F 20 2A 2A 20 42 41 |.962...... ** BA|
000017A0: 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 |SIC 2.0 OR 4.0|
000017B0: 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 | OR C-64 SETUP|
000017C0: 20 2A 2A 00 01 20 AD 03 97 31 30 37 35 2C 31 33 | **.. ...1075,13|
000017D0: 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 |3:.1076,144:.107|
000017E0: 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 |7,234:.1079,4:.1|
000017F0: 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 |080,133:.1081,14|
00001800: 35 00 37 20 AE 03 97 31 30 39 31 2C 31 35 35 3A |5.7 ...1091,155:|
00001810: 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C |.1098,133:.1099,|
00001820: 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 |144:.1100,234:.1|
00001830: 31 30 33 2C 31 33 33 00 59 20 AF 03 97 31 31 30 |103,133.Y ...110|
00001840: 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A |4,145:.1105,234:|
00001850: 97 31 30 38 32 2C 32 33 34 00 70 20 B1 03 8B C2 |.1082,234.p ....|
00001860: 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 |(50003)..160.955|
00001870: 00 9F 20 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 |.. ...1093,88:.1|
00001880: 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 |094,228:.1097,85|
00001890: 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 |:.1102,228:.965.|
000018A0: B4 20 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |. ....(50003)..1|
000018B0: A7 39 39 30 00 E3 20 C0 03 97 31 30 39 33 2C 34 |.990.. ...1093,4|
000018C0: 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 |9:.1094,230:.109|
000018D0: 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 |7,46:.1102,230:.|
000018E0: 39 36 35 00 1D 21 C2 03 97 32 30 39 39 2C 31 34 |965..!...2099,14|
000018F0: 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 |1:.2100,20:.2101|
00001900: 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 |,3:.2103,8:.2104|
00001910: 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 59 21 |,141:.2105,21.Y!|
00001920: C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C |...2106,3:.2115,|
00001930: 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 |145:.2117,52:.21|
00001940: 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A |18,234:.2121,49:|
00001950: 97 32 31 32 32 2C 31 34 31 00 93 21 C4 03 97 32 |.2122,141..!...2|
00001960: 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 |123,20:.2124,3:.|
00001970: 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 |2126,234:.2127,1|
00001980: 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 |41:.2128,21:.212|
00001990: 39 2C 33 00 B1 21 C5 03 9E 55 55 AA 34 38 3A 8F |9,3..!...UU.48:.|
000019A0: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 | DISABLE STOP KE|
000019B0: 59 00 C2 21 CA 03 8D 38 30 30 3A 8F 20 54 49 54 |Y..!...800:. TIT|
000019C0: 4C 45 00 D2 21 D4 03 89 33 30 30 3A 8F 20 4D 45 |LE..!...300:. ME|
000019D0: 4E 55 00 03 22 DE 03 99 22 93 54 48 45 20 50 47 |NU.."...".THE PG|
000019E0: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK |
000019F0: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!|
00001A00: 22 3A 80 00 38 22 E8 03 8B 55 5A B2 31 A7 9E 55 |":..8"...UZ.1..U|
00001A10: 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A |P%:.UP%:UZ.0:. *|
00001A20: 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |* PROGRAM STARTS|
00001A30: 20 48 45 52 45 20 2A 2A 00 64 22 E9 03 99 22 93 | HERE **.d"...".|
00001A40: 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 |.";:.:..(50003).|
00001A50: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
00001A60: 30 2C 31 34 00 7D 22 F2 03 8F 2D 46 55 53 45 2D |0,14.}"...-FUSE-|
00001A70: 52 2E 4A 2E 4C 41 4D 42 2D 31 39 38 31 00 89 22 |R.J.LAMB-1981.."|
00001A80: FC 03 97 55 54 2C 55 4C 25 00 9A 22 01 04 52 B2 |...UT,UL%.."..R.|
00001A90: 30 3A 43 B2 30 3A 55 50 B2 30 00 A3 22 06 04 99 |0:C.0:UP.0.."...|
00001AA0: 22 93 22 00 A9 22 8D 04 8C 00 B4 22 92 04 81 5A |".".."....."...Z|
00001AB0: B2 31 A4 35 00 BE 22 9C 04 87 46 28 5A 29 00 C4 |.1.5.."...F(Z)..|
00001AC0: 22 A6 04 82 00 CC 22 AB 04 50 B2 30 00 E1 22 B0 |"....."..P.0..".|
00001AD0: 04 57 B2 B5 28 33 30 30 30 AC BB 28 31 29 AA 31 |.W..(3000..(1).1|
00001AE0: 29 00 EB 22 BA 04 43 B2 43 AA 31 00 F7 22 C4 04 |).."..C.C.1.."..|
00001AF0: 41 B2 57 AD 32 34 30 00 14 23 CE 04 55 47 24 B2 |A.W.240..#..UG$.|
00001B00: 22 D1 55 45 53 54 49 4F 4E 20 20 23 22 3A 20 8D |".UESTION #": .|
00001B10: 20 38 35 30 00 1D 23 D3 04 99 22 11 22 00 35 23 | 850..#...".".5#|
00001B20: D8 04 99 22 20 D6 4F 4C 54 41 47 45 20 3D 20 32 |..." .OLTAGE = 2|
00001B30: 34 30 D6 2E 22 00 5C 23 E2 04 99 22 11 20 D0 4F |40..".\#...". .O|
00001B40: 57 45 52 20 52 41 54 49 4E 47 20 3D 20 22 3B 57 |WER RATING = ";W|
00001B50: AD 31 30 30 30 3B 22 20 4B D7 2E 22 00 67 23 EC |.1000;" K..".g#.|
00001B60: 04 81 5A B2 31 A4 35 00 78 23 F6 04 8B 46 28 5A |..Z.1.5.x#...F(Z|
00001B70: 29 B1 41 89 31 32 39 30 00 7E 23 00 05 82 00 AF |).A.1290.~#.....|
00001B80: 23 0A 05 99 22 11 20 D7 48 41 54 20 46 55 53 45 |#...". .HAT FUSE|
00001B90: 20 49 53 20 52 45 51 55 49 52 45 44 20 49 4E 20 | IS REQUIRED IN |
00001BA0: 54 48 45 20 41 50 50 4C 49 41 4E 43 45 3F 22 00 |THE APPLIANCE?".|
00001BB0: BE 23 14 05 99 22 11 20 20 20 9D 9D 22 3B 00 E1 |.#...". ..";..|
00001BC0: 23 19 05 55 53 24 B2 22 30 31 32 33 35 22 3A 55 |#..US$."01235":U|
00001BD0: 4C B2 32 3A 8D 20 33 35 3A 46 B2 C5 28 55 52 24 |L.2:. 35:F..(UR$|
00001BE0: 29 00 01 24 1E 05 8B 46 B2 32 B0 46 B2 33 B0 46 |)..$...F.2.F.3.F|
00001BF0: B2 35 B0 46 B2 31 30 B0 46 B2 31 33 89 31 33 34 |.5.F.10.F.13.134|
00001C00: 30 00 31 24 28 05 99 22 11 11 20 D9 4F 55 20 44 |0.1$(..".. .OU D|
00001C10: 4F 20 4E 4F 54 20 48 41 56 45 20 41 20 46 55 53 |O NOT HAVE A FUS|
00001C20: 45 20 4F 46 20 54 48 41 54 20 56 41 4C 55 45 2E |E OF THAT VALUE.|
00001C30: 22 00 73 24 29 05 81 20 4C 50 B2 31 20 A4 20 37 |".s$).. LP.1 . 7|
00001C40: 35 30 3A 82 20 4C 50 3A 99 22 91 20 20 20 20 20 |50:. LP:.". |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C70: 20 20 22 00 80 24 2A 05 99 22 91 91 91 91 22 3B | "..$*.."....";|
00001C80: 00 94 24 2C 05 99 22 20 20 20 20 20 9D 9D 9D 9D |..$,.." ....|
00001C90: 9D 91 22 3B 00 9E 24 32 05 89 31 33 30 30 00 C5 |..";..$2..1300..|
00001CA0: 24 3C 05 8B 46 B2 46 28 5A 29 A7 99 22 11 11 20 |$<..F.F(Z)..".. |
00001CB0: C3 4F 52 52 45 43 54 21 22 3A 52 B2 52 AA 31 3A |.ORRECT!":R.R.1:|
00001CC0: 89 31 33 37 30 00 F6 24 46 05 99 22 11 11 20 D9 |.1370..$F..".. .|
00001CD0: 4F 55 20 41 52 45 20 57 52 4F 4E 47 21 20 D4 48 |OU ARE WRONG! .H|
00001CE0: 45 20 43 4F 52 52 45 43 54 20 46 55 53 45 20 54 |E CORRECT FUSE T|
00001CF0: 4F 20 46 49 54 22 00 17 25 50 05 99 22 11 20 57 |O FIT"..%P..". W|
00001D00: 4F 55 4C 44 20 42 45 20 22 3B 46 28 5A 29 3B 22 |OULD BE ";F(Z);"|
00001D10: 20 41 4D 50 53 2E 22 00 41 25 5A 05 99 22 11 11 | AMPS.".A%Z.."..|
00001D20: 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 41 4E 4F | .O YOU WISH ANO|
00001D30: 54 48 45 52 20 51 55 45 53 54 49 4F 4E 3F 20 22 |THER QUESTION? "|
00001D40: 3B 00 5F 25 5F 05 55 53 24 B2 22 59 4E 22 3A 55 |;._%_.US$."YN":U|
00001D50: 4C B2 31 3A 8D 20 33 35 3A 41 24 B2 55 52 24 00 |L.1:. 35:A$.UR$.|
00001D60: 70 25 64 05 8B 41 24 B2 22 59 22 A7 31 32 30 30 |p%d..A$."Y".1200|
00001D70: 00 81 25 6E 05 8B 41 24 B2 22 4E 22 A7 31 34 31 |..%n..A$."N".141|
00001D80: 30 00 8B 25 78 05 89 31 33 38 30 00 A8 25 82 05 |0..%x..1380..%..|
00001D90: 55 50 B2 30 3A 55 47 24 B2 22 D2 45 53 55 4C 54 |UP.0:UG$.".ESULT|
00001DA0: 53 22 3A 8D 20 38 35 30 00 B2 25 87 05 99 22 11 |S":. 850..%...".|
00001DB0: 11 22 00 DA 25 8C 05 99 22 20 D9 4F 55 20 48 41 |."..%..." .OU HA|
00001DC0: 56 45 20 53 43 4F 52 45 44 20 22 3B 52 3B 22 20 |VE SCORED ";R;" |
00001DD0: 4F 55 54 20 4F 46 20 22 3B 43 00 E4 25 96 05 51 |OUT OF ";C..%..Q|
00001DE0: B2 52 AD 43 00 0B 26 A0 05 8B 51 B1 2E 39 35 A7 |.R.C..&...Q..95.|
00001DF0: 99 22 11 11 20 D6 45 52 59 20 57 45 4C 4C 20 44 |.".. .ERY WELL D|
00001E00: 4F 4E 45 21 22 3A 89 31 34 38 30 00 33 26 AA 05 |ONE!":.1480.3&..|
00001E10: 8B 51 B1 2E 35 A7 99 22 11 11 20 C3 4F 55 4C 44 |.Q..5..".. .OULD|
00001E20: 20 42 45 20 42 45 54 54 45 52 2E 22 3A 89 20 31 | BE BETTER.":. 1|
00001E30: 34 38 30 00 5D 26 B4 05 99 22 11 11 20 D9 4F 55 |480.]&...".. .OU|
00001E40: 27 4C 4C 20 50 52 4F 42 41 42 4C 59 20 44 4F 20 |'LL PROBABLY DO |
00001E50: 41 20 4C 4F 54 20 42 45 54 54 45 52 22 00 71 26 |A LOT BETTER".q&|
00001E60: BE 05 99 22 11 20 4E 45 58 54 20 54 49 4D 45 2E |...". NEXT TIME.|
00001E70: 22 00 89 26 C3 05 99 22 11 11 20 27 C2 59 45 20 |"..&...".. '.YE |
00001E80: 46 4F 52 20 4E 4F 57 21 22 00 93 26 C8 05 8D 20 |FOR NOW!"..&... |
00001E90: 38 33 35 00 99 26 D2 05 8E 00 AB 26 DC 05 83 20 |835..&.....&... |
00001EA0: 32 2C 33 2C 35 2C 31 30 2C 31 33 00 00 00 |2,3,5,10,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$.US$.UX$......US.1.C(US$)......UI$
.J(US$,US,1).............UI$."":..4....
** STANDARD INPUT **.E....F(UI$).46...V.
...UI$.G(32)...S. ..F(UI$).48.F(UI$).57.
170.Y..........F(UI$).65.F(UI$).90.180..
..........F(UI$).193.F(UI$).218.UI$."":.
......B(UT).UU%.UI$.G(F(UI$).128):......
......UI$."":....C.UF.1:. +++ HELP ROUTI
NE EXIT +++.$.E..250.-.H..245.L.M..UQ.UB
.(U2%.256.U1%.U3%.2).H.R.UQ%(UQ.UB).B(UQ
):.:.".".{.W.UZ.1:UV%.B(UT)...X..300...Y
.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..B
(50003).0..53281,1:.".";:.53281,6:.53280
,14:.220......".";.....UT$.UL$:.UT,UV%:.
UQ.UB.(U2%.256.U1%.U3%.3)......UQ,UQ%(UQ
.UB):..:....U1,U1%.F....U2,U2%.R....U4,U
4%.`....U3,U3%.1.H....35.....UD%.((U2%.2
56.U1%.U3%).UB).40:.H(UD$,UD%.1):..U....
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.UL./.....@.,.. ** MENU **
.F.-.:.U....".":.UT,UU%:.B(50003).0..532
81,9:.53280,8.{./.:...1..".
MENU".G.6.." ------------------------
--------------"...;..".. 1. BEGI
N FUSE "...@..".. 2. STUD
ENT INSTRUCTIONS".C.E..".. 3. TE
ACHER INSTRUCTIONS"._.O..".. 4.
QUIT.."...T.." -------------------------
-------------"...Y..".. PRESS A NU
MBER KEY (1-4) ";...^.UL.1:US$."1234":.3
5:. INPUT ROUTINE...`.US$.""...C..E(UR$)
.1000,400,500,396...H..300.9.... ** RE-E
NABLE STOP KEY AND END **.H....B(50003).
.1.B(50003)..160.B(50003)..0.399......UU
.71:.B(50003).0..53281,6:.53280,14......
"..":.......875:..J.... ** STUDENT INSTR
UCTIONS **......".":.UT,UL%:.B(50003).0.
.53281,0:.53280,0.....UP.0:UG$."STUDENT
INST":.850.H....".. IN THIS ELECTRICAL Q
UIZ YOU WILL BE".T....". GIVEN THE VOLTA
GE AND POWER RATING"......". OF AN APPLI
ANCE. YOU ARE TO CALCULATE".M....". THE
LOWEST VALUED FUSE THAT WILL"......". LE
T THE APPLIANCE OPERATE WITHOUT "....
..". BLOWING."...... 835.'...UP.2:. 850.
P....".. YOU HAVE THESE FUSES IN STOCK:"
.B....". 2 AMPS".T....". 3 AMPS"....
..". 5 AMPS"......". 10 AMPS"...A..".
13 AMPS"...B.. 835.B.G.UP.3:.850...L..
".. NOTE:...TO ADVANCE FROM ONE QUESTION
"...V..". TO THE NEXT PRESS THE SPAC
E BAR.".P...."... IF AT ANY TIME YOU
WISH TO RETURN".Y....". TO THE MENU
PRESS H RETURN."......835......UZ.1..UP
%:.217............ ** TEACHER INSTRUCTIO
NS **......".":.UT,UL%:.B(50003).0..5328
1,2:.53280,10.....UP.0:UG$."TEACHER INST
":.850.<....".. TO THE BEST OF OUR
KNOWLEDGE,.".E...." THIS PROGRAM IS IN
THE PUBLIC."......" DOMAIN. IF THIS
IS NOT THE CASE."......" PLEASE CONTAC
T:...".X...." COMMODORE BUSINESS MA
CHINES."......" 3370 PHARMACY A
VE......." AGINCOURT, ONTARIO".
A...." CANADA M1W 2K4".A...."
(416) 499-4292".W...UP.1:. 835
:. 850:......" ..PROGRAM NAME: FUSE
..D...." WRITTEN BY : R.J.L
AMB......." UPGRADED BY : ..
....." .THIS PROGRAM WILL RUN ON ANY
...2...." PET 64 COMPUTER..W....
" COMMODORE 64 COMPUTER.F....835
:. 850......".. THIS PROGRAM IS INTENDED
FOR THE ".A....". BEGINNING-INTERMEDIAT
E ELECTRICITY ".S.!..". STUDENT."...&.
.". THIS IS A SMALL QUIZ WITH THE SCORE
OF".1.+..". THE NUMBER CORRECT VS. THE N
UMBER OF".[.0.." QUESTIONS TRIED GIVEN A
T THE END."..5..". FOR MORE INSTRUCTION
S SEE ". .:..". 'STUDENT INSTRUCTIONS'."
...?.. 835...N..UZ.1..UP%:.217.D.W.....X
.. ** PROGRAM MODIFICATION INST **...Y..
".":.UT,UL%...].UP.0:UG$."PROGRAM MOD":.
850.$....835.8....UZ.1..UP%:.217.>.....C
.... ** TO USE 8032 LOAD CBM4032 **...F.
.".....BEFORE RUNNING THIS PROGRAM ON AN
8032 ...O.P.." LOAD THE 'CBM 4032
' PROGRAM.............".Z.Z..UU.71......
... .. ** T I T L E P A G E **.4."..".
...";:.UT,UU%:.B(50003).0..53280,14:.532
81,6.J.$..I.1.38:."...";:..B.&..I.1.22:.
".....";:..Z.(..I.1.37:.".....";:....*..
I.1.22:.".....";:....,.."...............
............ ..Y...."..................
. . . .....0.."................... . .
.....2..".................... ..@.4..".
.............C O M M O D O R E...C.6..".
..............EDUCATIONAL.....8.."......
..........SOFTWARE...:.. ** COMMODORE LO
GO **.U.;..H(UD$,24);"..........PRESS SP
ACE BAR OR WAIT.":I.0...<..A$:.A$.." ".I
.I.1:.I.250.828...>.T1$."":T2$."":T3$.""
:T4$."":I.0.$.@..300.@.C.. ** SPACE BAR
PRESS **.|.H.. UO,0:.H(UD$,24);".......P
RESS SPACE BAR TO CONTINUE."...L..UI$:.U
I$.." ".844...N.....R.. ** PAGE DESIGN R
OUTINE **.E.T.UP.UP.1...W.."."H(UT$.UP$,
21);I(UP$.UG$.D(UP),18)...\.." ---------
-----------------------------".-.`..UH..
0.870.9.A.. HELP?.J.F.UH.0:."..":..I.K..
** PLEASE WAIT REMARK **...P..H(UD$,24)
;" ONE MOMENT PLEASE... ".
..U...B.... ** SET UP VARIABLES **.....U
X$."H":.UQ%(1000):UB.32768:U1.196:U2.197
:U3.198:U4.216:UC.167:UU.1024.K...UT.594
68:UU%.12:UL%.14:UP%.1146:UM.32768:UO.15
8:. 50003,0......B(50003).0.UB.1024:U1.2
09:U2.210:U3.211:U4.214:UC.204:UU.2048.M
....B(50003).0.UT.53272:UU%.21:UL%.23:UP
%.2139:UM.1024:UO.198.....UD$.".........
................".#...UP$."
".Q...UT$." FU
SE ":. PLACE PROGRAM TITLE
HERE !!!!!!!!!!!!!!!!!***.W.......... **
SET VARIABLES **......900...... ** CHEC
K FOR 8032 **.S....".":." ":. SHIFTED SP
ACE......B(UB.40)..96..700...... ** MEMO
RY CHECK **...... .(0).2000.937.E...."..
..THIS MACHINE DOES NOT HAVE ENOUGH.".I.
..."MEMORY TO RUN THIS PROGRAM !".T....U
U.71.Z.........."..":.B(50003).0.962.C..
.. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**.. ...1075,133:.1076,144:.1077,234:.1
079,4:.1080,133:.1081,145.7 ...1091,155:
.1098,133:.1099,144:.1100,234:.1103,133.
Y ...1104,145:.1105,234:.1082,234.P ...B
(50003)..160.955.. ...1093,88:.1094,228:
.1097,85:.1102,228:.965.. ...B(50003)..1
.990.. ...1093,49:.1094,230:.1097,46:.11
02,230:.965..!B..2099,141:.2100,20:.2101
,3:.2103,8:.2104,141:.2105,21.Y!C..2106,
3:.2115,145:.2117,52:.2118,234:.2121,49:
.2122,141..!D..2123,20:.2124,3:.2126,234
:.2127,141:.2128,21:.2129,3..!E..UU.48:.
DISABLE STOP KEY.B!J..800:. TITLE.R!T..
300:. MENU.."...".THE PGM WILL NOT WORK
ON THIS MACHINE!":..8"...UZ.1..UP%:.UP%:
UZ.0:. ** PROGRAM STARTS HERE **.D"...".
.";:.:.B(50003).0..53281,6:.53280,14.}".
..-FUSE-R.J.LAMB-1981.."...UT,UL%.."..R.
0:C.0:UP.0.."...".".."....."...Z.1.5..".
..F(Z).D"....L"..P.0.."..W..(3000..(1).1
).."..C.C.1.."D.A.W.240..#N.UG$."QUESTIO
N #": . 850..#S..".".5#X.." VOLTAGE = 2
40V.".\#...". POWER RATING = ";W.1000;"
KW.".G#...Z.1.5.X#...F(Z).A.1290.~#.....
#...". WHAT FUSE IS REQUIRED IN THE APPL
IANCE?"..#...". ..";..#..US$."01235":U
L.2:. 35:F.E(UR$)..$...F.2.F.3.F.5.F.10.
F.13.1340.1$(..".. YOU DO NOT HAVE A FUS
E OF THAT VALUE.".S$).. LP.1 . 750:. LP:
.".
"..$*.."....";..$,.." ......";..$2
..1300.E$<..F.F(Z)..".. CORRECT!":R.R.1:
.1370..$F..".. YOU ARE WRONG! THE CORREC
T FUSE TO FIT"..%P..". WOULD BE ";F(Z);"
AMPS.".A%Z..".. DO YOU WISH ANOTHER QUE
STION? ";._%_.US$."YN":UL.1:. 35:A$.UR$.
P%D..A$."Y".1200..%N..A$."N".1410..%X..1
380..%..UP.0:UG$."RESULTS":. 850..%...".
.".Z%..." YOU HAVE SCORED ";R;" OUT OF "
;C..%..Q.R.C..& ..Q..95..".. VERY WELL D
ONE!":.1480.3&...Q..5..".. COULD BE BETT
ER.":. 1480.]&...".. YOU'LL PROBABLY DO
A LOT BETTER".Q&...". NEXT TIME."..&C.."
.. 'BYE FOR NOW!"..&H.. 835..&R....&...
2,3,5,10,13...
> CLICK IMAGE PREVIEW FOR FULL MODAL