CIRCUIT 4.C3
FILE INFORMATION
FILENAME(S): CIRCUIT 4.C3
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-10-20 14:31:07
APPEARS ON: 1 disk(s)
FILE HASH
7a1feee2a76ad74fa0fd399ca9d30c7b23bc6c09e1a773c1752e51db9c59a60c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0004ED | CIRCUIT 4.C3 | PRG | Treasure Chest - Klaus Der Suhler | 19 | 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 F2 |UTINE **.....:..| 000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B| 000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH| 000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG| 00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.| 00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA| 00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..| 00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU | 00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..| 00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO| 00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... | 00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO| 00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.| 00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E| 000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA| 000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W| 000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O| 000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... | 000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..| 000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S| 00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..| 00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.| 00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.| 00000230: 38 30 00 45 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.E.-.." ..";:| 00000240: 97 55 43 2C 30 00 59 0A 32 00 A1 55 49 24 3A 8B |.UC,0.Y.2..UI$:.| 00000250: 55 49 24 B2 22 22 A7 35 30 00 83 0A 37 00 8B 55 |UI$."".50...7..U| 00000260: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).| 00000270: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:| 00000280: 89 38 35 00 96 0A 3C 00 8B 55 49 24 B2 C7 28 32 |.85...<..UI$..(2| 00000290: 30 29 A7 31 30 35 00 AA 0A 3E 00 8B 20 C3 28 55 |0).105...>.. .(U| 000002A0: 52 24 29 B2 B1 55 4C A7 35 30 00 CF 0A 41 00 8D |R$)..UL.50...A..| 000002B0: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR | 000002C0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.| 000002D0: DF 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.| 000002E0: E9 0A 4B 00 99 55 49 24 3B 00 F1 0A 50 00 89 35 |..K..UI$;...P..5| 000002F0: 30 00 16 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC| 00000300: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE| 00000310: 53 54 20 2B 2B 2B 00 3E 0B 5A 00 8B 55 52 24 B2 |ST +++.>.Z..UR$.| 00000320: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T| 00000330: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 4D |O HELP ROUTINE.M| 00000340: 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5A 0B |._..UF.1..240.Z.| 00000350: 64 00 55 46 B2 30 3A 99 3A 8E 00 73 0B 66 00 8F |d.UF.0:.:..s.f..| 00000360: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE| 00000370: 20 2B 2B 00 84 0B 69 00 8B C3 28 55 52 24 29 B3 | ++...i...(UR$).| 00000380: 31 A7 35 30 00 9C 0B 6E 00 55 52 24 B2 C8 28 55 |1.50...n.UR$..(U| 00000390: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AE 0B 73 |R$,.(UR$).1)...s| 000003A0: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 D5 |..". ..";:.50..| 000003B0: 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO| 000003C0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE| 000003D0: 52 53 20 2B 2B 00 E7 0B 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$| 000003E0: 29 B2 30 A7 31 35 30 00 F8 0B 82 00 81 55 53 B2 |).0.150......US.| 000003F0: 31 A4 C3 28 55 53 24 29 00 0F 0C 87 00 8B 55 49 |1..(US$)......UI| 00000400: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...| 00000410: 15 0C 8C 00 82 00 22 0C 91 00 55 49 24 B2 22 22 |......"...UI$.""| 00000420: 3A 8E 00 3D 0C 96 00 8F 20 2A 2A 20 53 54 41 4E |:..=.... ** STAN| 00000430: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 4E 0C |DARD INPUT **.N.| 00000440: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 5F |....(UI$).46..._| 00000450: 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...| 00000460: 7C 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 ||.....(UI$).48..| 00000470: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 82 0C A5 |(UI$).57.170....| 00000480: 00 8E 00 9F 0C AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6| 00000490: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.| 000004A0: A5 0C AF 00 8E 00 C9 0C B4 00 8B C6 28 55 49 24 |............(UI$| 000004B0: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218| 000004C0: A7 55 49 24 B2 22 22 3A 8E 00 EC 0C B9 00 8B C2 |.UI$."":........| 000004D0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.| 000004E0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 F2 0C BB |(UI$).128):.....| 000004F0: 00 8E 00 FF 0C BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..| 00000500: 24 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |$...UF.1:. +++ H| 00000510: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT| 00000520: 20 2B 2B 2B 00 2D 0D C5 00 8D 32 35 30 00 36 0D | +++.-....250.6.| 00000530: C8 00 8D 32 34 35 00 55 0D CD 00 81 55 51 B2 55 |...245.U....UQ.U| 00000540: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U| 00000550: 33 25 AB 32 29 00 71 0D D2 00 55 51 25 28 55 51 |3%.2).q...UQ%(UQ| 00000560: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".| 00000570: 22 00 84 0D D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".....UZ.1:UV%..| 00000580: 28 55 54 29 00 8D 0D D8 00 89 33 30 30 00 B2 0D |(UT)......300...| 00000590: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U| 000005A0: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.| 000005B0: 55 4B 00 E9 0D DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)| 000005C0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."| 000005D0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328| 000005E0: 30 2C 31 34 3A 89 32 32 30 00 F3 0D DB 00 99 22 |0,14:.220......"| 000005F0: 93 22 3B 00 22 0E DC 00 55 54 24 B2 55 4C 24 3A |.";."...UT$.UL$:| 00000600: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(| 00000610: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.| 00000620: 33 29 00 37 0E E1 00 97 55 51 2C 55 51 25 28 55 |3).7....UQ,UQ%(U| 00000630: 51 AB 55 42 29 3A 82 00 43 0E E6 00 97 55 31 2C |Q.UB):..C....U1,| 00000640: 55 31 25 00 4F 0E E8 00 97 55 32 2C 55 32 25 00 |U1%.O....U2,U2%.| 00000650: 5B 0E E9 00 97 55 34 2C 55 34 25 00 69 0E EA 00 |[....U4,U4%.i...| 00000660: 97 55 33 2C 55 33 25 AB 31 00 71 0E EB 00 89 33 |.U3,U3%.1.q....3| 00000670: 35 00 A3 0E F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.| 00000680: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)| 00000690: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1| 000006A0: 29 3A 8E 00 DE 0E F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2| 000006B0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" | 000006C0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP| 000006D0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 0A | COMING . ":...| 000006E0: 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%| 000006F0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)| 00000700: 3A 55 34 25 B2 C2 28 55 34 29 00 32 0F FB 00 55 |:U4%..(U4).2...U| 00000710: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U| 00000720: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.| 00000730: 55 4C 00 38 0F FF 00 8E 00 49 0F 2C 01 8F 20 2A |UL.8.....I.,.. *| 00000740: 2A 20 4D 45 4E 55 20 2A 2A 00 4F 0F 2D 01 3A 00 |* MENU **.O.-.:.| 00000750: 7E 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |~....".":.UT,UU%| 00000760: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 00000770: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 84 |281,9:.53280,8..| 00000780: 0F 2F 01 3A 00 A1 0F 31 01 99 22 13 20 20 20 20 |./.:...1..". | 00000790: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU| 000007A0: 22 00 D0 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------| 000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 000007D0: 00 F9 0F 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. | 000007E0: 31 2E 20 20 20 42 45 47 49 4E 20 43 49 52 43 55 |1. BEGIN CIRCU| 000007F0: 49 54 53 20 34 20 20 20 22 00 23 10 40 01 99 22 |ITS 4 ".#.@.."| 00000800: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 |.. 2. ST| 00000810: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO| 00000820: 4E 53 22 00 4D 10 45 01 99 22 11 11 20 20 20 20 |NS".M.E..".. | 00000830: 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 | 3. TEACHER | 00000840: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 69 10 |INSTRUCTIONS".i.| 00000850: 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 |O..".. 4. | 00000860: 20 20 51 55 49 54 11 11 22 00 98 10 54 01 99 22 | QUIT.."...T.."| 00000870: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000890: 2D 2D 2D 2D 2D 2D 2D 22 00 C3 10 59 01 99 22 11 |-------"...Y..".| 000008A0: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A | 000008B0: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)| 000008C0: 20 22 3B 00 EB 10 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$| 000008D0: B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E |."1234":.35:. IN| 000008E0: 50 55 54 20 52 4F 55 54 49 4E 45 00 FD 10 5F 01 |PUT ROUTINE..._.| 000008F0: 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 00 1A 11 |..(UR$).1.300...| 00000900: 60 01 55 53 24 B2 22 22 3A 55 54 24 B2 22 20 C3 |`.US$."":UT$." .| 00000910: C9 D2 C3 D5 C9 D4 D3 20 34 22 00 37 11 63 01 91 |....... 4".7.c..| 00000920: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,| 00000930: 35 30 30 2C 33 39 36 00 40 11 68 01 89 33 30 30 |500,396.@.h..300| 00000940: 00 67 11 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 |.g.... ** RE-ENA| 00000950: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND| 00000960: 20 45 4E 44 20 2A 2A 00 96 11 8C 01 8B C2 28 35 | END **.......(5| 00000970: 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 |0003)..1..(50003| 00000980: 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 |)..160..(50003).| 00000990: B1 30 A7 33 39 39 00 C0 11 8D 01 9E 55 55 AA 37 |.0.399......UU.7| 000009A0: 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |1:..(50003).0..5| 000009B0: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14| 000009C0: 00 CC 11 8E 01 99 22 9A 93 22 3A 80 00 D7 11 8F |......"..":.....| 000009D0: 01 8D 38 37 35 3A 8E 00 F8 11 90 01 8F 20 2A 2A |..875:....... **| 000009E0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC| 000009F0: 54 49 4F 4E 53 20 2A 2A 00 27 12 95 01 99 22 93 |TIONS **.'....".| 00000A00: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500| 00000A10: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.| 00000A20: 35 33 32 38 30 2C 30 00 48 12 9A 01 55 50 B2 30 |53280,0.H...UP.0| 00000A30: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N| 00000A40: 53 54 22 3A 8D 38 35 30 00 73 12 9C 01 99 22 11 |ST":.850.s....".| 00000A50: 11 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 |. .HIS PROGRAM | 00000A60: 57 49 4C 4C 20 48 45 4C 50 20 59 4F 55 20 54 4F |WILL HELP YOU TO| 00000A70: 22 3A 99 00 9F 12 9E 01 99 22 20 55 4E 44 45 52 |":......." UNDER| 00000A80: 53 54 41 4E 44 20 54 48 45 20 43 48 41 52 41 43 |STAND THE CHARAC| 00000A90: 54 45 52 49 53 54 49 43 53 20 4F 46 22 3A 99 00 |TERISTICS OF":..| 00000AA0: C8 12 A0 01 99 22 20 54 48 45 20 43 41 50 41 43 |....." THE CAPAC| 00000AB0: 49 54 4F 52 20 41 4E 44 20 49 54 53 20 43 49 52 |ITOR AND ITS CIR| 00000AC0: 43 55 49 54 2E 22 3A 99 00 F3 12 A4 01 99 22 20 |CUIT.":......." | 00000AD0: 20 D9 4F 55 20 4D 55 53 54 20 45 4E 54 45 52 20 | .OU MUST ENTER | 00000AE0: 54 48 45 20 56 41 4C 55 45 20 4F 46 20 54 48 45 |THE VALUE OF THE| 00000AF0: 22 3A 99 00 34 13 A6 01 99 22 20 52 45 53 49 53 |":..4...." RESIS| 00000B00: 54 4F 52 53 20 2C 43 41 50 41 43 49 54 4F 52 20 |TORS ,CAPACITOR | 00000B10: 41 4E 44 20 54 48 45 20 56 4F 4C 54 41 47 45 20 |AND THE VOLTAGE | 00000B20: 4F 46 22 3A 99 22 20 54 48 45 20 42 41 54 54 45 |OF":." THE BATTE| 00000B30: 52 59 2E 22 00 64 13 A8 01 99 3A 99 22 20 20 D0 |RY.".d....:." .| 00000B40: 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 41 46 54 45 |RESS ...... AFTE| 00000B50: 52 20 45 41 43 48 20 49 4E 50 55 54 20 41 4E 44 |R EACH INPUT AND| 00000B60: 2C 22 3A 99 00 94 13 AA 01 99 22 20 50 52 45 53 |,":......." PRES| 00000B70: 53 20 C8 20 49 46 20 59 4F 55 20 57 41 4E 54 20 |S . IF YOU WANT | 00000B80: 54 4F 20 47 4F 20 42 41 43 4B 20 54 4F 20 54 48 |TO GO BACK TO TH| 00000B90: 45 22 3A 99 00 A2 13 AC 01 99 22 20 4D 45 4E 55 |E":......." MENU| 00000BA0: 2E 22 00 AB 13 E5 01 8D 38 33 35 00 B6 13 E7 01 |."......835.....| 00000BB0: 55 47 24 B2 22 22 00 CA 13 EA 01 8B 55 5A B2 31 |UG$.""......UZ.1| 00000BC0: A7 9E 55 50 25 3A 89 32 31 37 00 D0 13 F3 01 8E |..UP%:.217......| 00000BD0: 00 F1 13 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 |...... ** TEACHE| 00000BE0: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |R INSTRUCTIONS *| 00000BF0: 2A 00 21 14 F5 01 99 22 93 22 3A 97 55 54 2C 55 |*.!....".":.UT,U| 00000C00: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..| 00000C10: 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 |53281,2:.53280,1| 00000C20: 30 00 42 14 F6 01 55 50 B2 30 3A 55 47 24 B2 22 |0.B...UP.0:UG$."| 00000C30: D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 |.EACHER .NST":.8| 00000C40: 35 30 00 70 14 F7 01 99 22 11 11 20 20 20 20 20 |50.p....".. | 00000C50: 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 | .O THE BEST OF | 00000C60: 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 |OUR KNOWLEDGE,."| 00000C70: 00 99 14 F8 01 99 22 20 20 20 54 48 49 53 20 50 |......" THIS P| 00000C80: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 |ROGRAM IS IN THE| 00000C90: 20 50 55 42 4C 49 43 11 22 00 C5 14 F9 01 99 22 | PUBLIC."......"| 00000CA0: 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 | DOMAIN. .F T| 00000CB0: 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 |HIS IS NOT THE C| 00000CC0: 41 53 45 11 22 00 E2 14 FA 01 99 22 20 20 20 50 |ASE."......" P| 00000CD0: 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 |LEASE CONTACT:..| 00000CE0: 11 22 00 0C 15 FB 01 99 22 20 20 20 20 20 20 C3 |."......" .| 00000CF0: 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 |OMMODORE .USINES| 00000D00: 53 20 CD 41 43 48 49 4E 45 53 11 22 00 2F 15 FC |S .ACHINES."./..| 00000D10: 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 |.." 337| 00000D20: 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 |0 .HARMACY .VE..| 00000D30: 53 15 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 |S...." | 00000D40: C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 |.GINCOURT, .NTAR| 00000D50: 49 4F 22 00 75 15 FE 01 99 22 20 20 20 20 20 20 |IO".u...." | 00000D60: 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 | .ANADA .1.| 00000D70: 20 32 CB 34 22 00 95 15 FF 01 99 22 20 20 20 20 | 2.4"......" | 00000D80: 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D | (416) 499-| 00000D90: 34 32 39 32 22 00 AB 15 00 02 55 50 B2 31 3A 8D |4292".....UP.1:.| 00000DA0: 20 38 33 35 3A 8D 20 38 35 30 3A 00 D5 15 01 02 | 835:. 850:.....| 00000DB0: 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D |." ...ROGRAM| 00000DC0: 20 CE 41 4D 45 3A 20 C3 49 52 43 55 49 54 53 20 | .AME: .IRCUITS | 00000DD0: 34 20 20 20 11 00 F7 15 02 02 99 22 20 20 20 20 |4 ......." | 00000DE0: 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 | .RITTEN .Y : .| 00000DF0: 4E 4B 4E 4F 57 4E 11 00 1B 16 03 02 99 22 20 20 |NKNOWN......." | 00000E00: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :| 00000E10: 20 C1 2E 20 CC 45 45 20 20 20 11 00 46 16 04 02 | .. .EE ..F...| 00000E20: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO| 00000E30: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON| 00000E40: 20 41 4E 59 11 11 00 66 16 07 02 99 22 20 20 20 | ANY...f...." | 00000E50: 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD | ... 64 ...| 00000E60: D0 D5 D4 C5 D2 11 00 8B 16 08 02 99 22 20 20 20 |............" | 00000E70: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... | 00000E80: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 99 16 18 02 |64 .............| 00000E90: 8D 38 33 35 3A 8D 38 35 30 00 CC 16 19 02 99 22 |.835:.850......"| 00000EA0: 11 11 11 11 11 20 20 D4 48 49 53 20 50 52 4F 47 |..... .HIS PROG| 00000EB0: 52 41 4D 20 43 41 4E 20 42 45 20 55 53 45 44 20 |RAM CAN BE USED | 00000EC0: 54 4F 20 41 49 44 20 49 4E 22 3A 99 00 FC 16 1A |TO AID IN":.....| 00000ED0: 02 99 22 20 44 52 41 57 49 4E 47 20 41 20 43 41 |.." DRAWING A CA| 00000EE0: 50 41 43 49 54 49 56 45 20 44 49 53 43 48 41 52 |PACITIVE DISCHAR| 00000EF0: 47 45 20 43 55 52 56 45 2E 22 3A 99 00 27 17 1B |GE CURVE.":..'..| 00000F00: 02 99 22 20 20 C9 54 20 43 41 4E 20 41 4C 53 4F |.." .T CAN ALSO| 00000F10: 20 42 45 20 55 53 45 44 20 54 4F 20 53 48 4F 57 | BE USED TO SHOW| 00000F20: 20 54 48 45 22 3A 99 00 56 17 1C 02 99 22 20 43 | THE":..V...." C| 00000F30: 48 41 52 41 43 54 45 52 49 53 54 49 43 53 20 4F |HARACTERISTICS O| 00000F40: 46 20 54 48 45 20 43 41 50 41 43 49 54 4F 52 20 |F THE CAPACITOR | 00000F50: 41 4E 44 22 3A 99 00 83 17 1D 02 99 22 20 41 4C |AND":......." AL| 00000F60: 4C 4F 57 20 54 48 45 20 53 54 55 44 45 4E 54 53 |LOW THE STUDENTS| 00000F70: 20 54 4F 20 47 45 54 20 41 20 42 45 54 54 45 52 | TO GET A BETTER| 00000F80: 22 3A 99 00 AC 17 1E 02 99 22 20 55 4E 44 45 52 |":......." UNDER| 00000F90: 53 54 41 4E 44 49 4E 47 20 4F 46 20 54 48 45 20 |STANDING OF THE | 00000FA0: D2 C3 20 43 49 52 43 55 49 54 2E 22 00 B5 17 44 |.. CIRCUIT."...D| 00000FB0: 02 8D 38 33 35 00 C0 17 4B 02 55 47 24 B2 22 22 |..835...K.UG$.""| 00000FC0: 00 D4 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |...N..UZ.1..UP%:| 00000FD0: 89 32 31 37 00 DA 17 57 02 8E 00 00 18 58 02 8F |.217...W.....X..| 00000FE0: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI| 00000FF0: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **| 00001000: 00 11 18 59 02 99 22 93 22 3A 97 55 54 2C 55 4C |...Y..".":.UT,UL| 00001010: 25 00 31 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 |%.1.].UP.0:UG$."| 00001020: D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 |.ROGRAM .OD":.85| 00001030: 30 00 3A 18 94 02 8D 38 33 35 00 45 18 AF 02 55 |0.:....835.E...U| 00001040: 47 24 B2 22 22 00 59 18 B2 02 8B 55 5A B2 31 A7 |G$."".Y....UZ.1.| 00001050: 9E 55 50 25 3A 89 32 31 37 00 5F 18 BB 02 8E 00 |.UP%:.217._.....| 00001060: 84 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |..... ** TO USE | 00001070: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403| 00001080: 32 20 2A 2A 00 BA 18 C6 02 99 22 93 11 11 11 05 |2 **......".....| 00001090: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T| 000010A0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A| 000010B0: 4E 20 38 30 33 32 20 20 11 11 00 F0 18 D0 02 99 |N 8032 ........| 000010C0: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE | 000010D0: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR| 000010E0: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."| 000010F0: 00 FB 18 DA 02 9E 55 55 AA 37 31 00 01 19 E4 02 |......UU.71.....| 00001100: 80 00 26 19 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 |..&.... ** TO US| 00001110: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4| 00001120: 30 33 32 20 2A 2A 00 71 19 1E 03 99 22 93 11 11 |032 **.q...."...| 00001130: 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 |.BEFORE RUNNING | 00001140: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 |THIS PROGRAM ON | 00001150: 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 44 20 |AN 8032 ..LOAD | 00001160: 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 41 4D |CBM 4032 PROGRAM| 00001170: 22 00 7D 19 1F 03 9E 31 30 39 33 3A 80 00 9D 19 |".}....1093:....| 00001180: 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 | .. ** T I T L E| 00001190: 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 D1 19 | P A G E **...| 000011A0: 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 |".."....";:.UT,U| 000011B0: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..| 000011C0: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,| 000011D0: 36 00 DF 19 23 03 99 20 C7 28 31 34 32 29 3B 00 |6...#.. .(142);.| 000011E0: F5 19 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 |..$..I.1.38:."..| 000011F0: 92 22 3B 3A 82 00 0D 1A 26 03 81 49 B2 31 A4 32 |.";:....&..I.1.2| 00001200: 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 25 1A |2:.".....";:..%.| 00001210: 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 |(..I.1.37:."....| 00001220: 92 22 3B 3A 82 00 3D 1A 2A 03 81 49 B2 31 A4 32 |.";:..=.*..I.1.2| 00001230: 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 62 1A |2:.".....";:..b.| 00001240: 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D |,.."............| 00001250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 |............... | 00001260: 20 92 00 84 1A 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D | .......".......| 00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . | 00001280: 12 20 92 A9 00 A5 1A 30 03 99 22 1D 1D 1D 1D 1D |. .....0..".....| 00001290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .| 000012A0: 20 20 12 A3 DF 00 C3 1A 32 03 99 22 1D 1D 1D 1D | ......2.."....| 000012B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 |................| 000012C0: 20 20 92 00 EB 1A 34 03 99 22 11 11 1D 1D 1D 1D | ....4.."......| 000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 |........C O M M | 000012E0: 4F 20 44 20 4F 20 52 20 45 11 11 00 0E 1B 36 03 |O D O R E.....6.| 000012F0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 00001300: 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 2D |.EDUCATIONAL...-| 00001310: 1B 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.8.."...........| 00001320: 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 48 1B |.....SOFTWARE.H.| 00001330: 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |:.. ** COMMODORE| 00001340: 20 4C 4F 47 4F 20 2A 2A 00 80 1B 3B 03 99 C8 28 | LOGO **...;...(| 00001350: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D |UD$,24);".......| 00001360: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B| 00001370: 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 |AR OR WAIT.":I.0| 00001380: 00 A2 1B 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 |...<..A$:.A$.." | 00001390: 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 |".I.I.1:.I.250.8| 000013A0: 32 38 00 C6 1B 3E 03 54 31 24 B2 22 22 3A 54 32 |28...>.T1$."":T2| 000013B0: 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 |$."":T3$."":T4$.| 000013C0: 22 22 3A 49 B2 30 00 CF 1B 40 03 89 33 30 30 00 |"":I.0...@..300.| 000013D0: EB 1B 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 |..C.. ** SPACE B| 000013E0: 41 52 20 50 52 45 53 53 20 2A 2A 00 26 1C 48 03 |AR PRESS **.&.H.| 000013F0: 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 |.UO,0:..(UD$,24)| 00001400: 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |;".......PRESS S| 00001410: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT| 00001420: 49 4E 55 45 92 22 00 2F 1C 4A 03 A1 55 49 24 00 |INUE."./.J..UI$.| 00001430: 46 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |F.L..UI$:.UI$.."| 00001440: 20 22 A7 38 34 34 00 5B 1C 4D 03 8B 20 55 49 24 | ".844.[.M.. UI$| 00001450: B3 B1 22 20 22 20 A7 20 38 34 32 00 61 1C 4E 03 |.." " . 842.a.N.| 00001460: 8E 00 81 1C 52 03 8F 20 2A 2A 20 50 41 47 45 20 |....R.. ** PAGE | 00001470: 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A |DESIGN ROUTINE *| 00001480: 2A 00 8D 1C 54 03 55 50 B2 55 50 AA 31 00 B7 1C |*...T.UP.UP.1...| 00001490: 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C |W..".".(UT$.UP$,| 000014A0: 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 |21);.(UP$.UG$..(| 000014B0: 55 50 29 2C 31 38 29 00 E6 1C 5C 03 99 22 20 2D |UP),18)...\.." -| 000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014E0: 2D 2D 2D 2D 2D 22 00 F5 1C 60 03 8B 55 48 B3 B1 |-----"...`..UH..| 000014F0: 30 A7 38 37 30 00 29 1D 61 03 99 C8 28 55 44 24 |0.870.).a...(UD$| 00001500: 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 |,24);.(UP$,7);"H| 00001510: 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 |ELP - PRESS H | 00001520: 3C 52 45 54 55 52 4E 3E 22 00 3A 1D 66 03 55 48 |<RETURN>".:.f.UH| 00001530: B2 30 3A 99 22 13 11 22 3A 8E 00 59 1D 6B 03 8F |.0:."..":..Y.k..| 00001540: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT | 00001550: 52 45 4D 41 52 4B 20 2A 2A 00 8F 1D 70 03 99 C8 |REMARK **...p...| 00001560: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" | 00001570: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT | 00001580: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".| 00001590: 95 1D 75 03 8E 00 B2 1D 84 03 8F 20 2A 2A 20 53 |..u........ ** S| 000015A0: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES | 000015B0: 2A 2A 00 FD 1D 85 03 55 58 24 B2 22 48 22 3A 86 |**.....UX$."H":.| 000015C0: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327| 000015D0: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197| 000015E0: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U| 000015F0: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 3B 1E |C.167:UU.1024.;.| 00001600: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1| 00001610: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114| 00001620: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15| 00001630: 38 3A 97 20 35 30 30 30 33 2C 30 00 7E 1E 87 03 |8:. 50003,0.~...| 00001640: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1| 00001650: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21| 00001660: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:| 00001670: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 BD |UC.204:UU.2048..| 00001680: 1E 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U| 00001690: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U| 000016A0: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U| 000016B0: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 E1 1E |M.1024:UO.198...| 000016C0: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........| 000016D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000016E0: 22 00 13 1F 8A 03 55 50 24 B2 22 20 20 20 20 20 |".....UP$." | 000016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001710: 20 20 22 00 61 1F 8B 03 55 54 24 B2 22 20 C3 C9 | ".a...UT$." ..| 00001720: D2 C3 D5 C9 D4 D3 20 34 20 20 20 A0 A0 A0 A0 A0 |...... 4 .....| 00001730: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA| 00001740: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!| 00001750: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**| 00001760: 2A 00 67 1F 8C 03 8E 00 81 1F 8E 03 8F 20 2A 2A |*.g.......... **| 00001770: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *| 00001780: 2A 00 8A 1F 93 03 8D 39 30 30 00 90 1F 94 03 3A |*......900.....:| 00001790: 00 96 1F 95 03 3A 00 B1 1F 98 03 8F 20 2A 2A 20 |.....:...... ** | 000017A0: 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A |CHECK FOR 8032 *| 000017B0: 2A 00 CF 1F 9D 03 99 22 93 22 3A 99 22 A0 22 3A |*......".":.".":| 000017C0: 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 |. SHIFTED SPACE.| 000017D0: E6 1F A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 |......(UB.40)..9| 000017E0: 36 A7 8D 37 30 30 00 FF 1F A3 03 8F 20 2A 2A 20 |6..700...... ** | 000017F0: 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 |MEMORY CHECK **.| 00001800: 13 20 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 |. ... .(0).2000.| 00001810: 39 33 37 00 41 20 A5 03 99 22 93 11 11 05 54 48 |937.A ..."....TH| 00001820: 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 |IS MACHINE DOES | 00001830: 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 |NOT HAVE ENOUGH.| 00001840: 22 00 65 20 A6 03 99 22 4D 45 4D 4F 52 59 20 54 |".e ..."MEMORY T| 00001850: 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 |O RUN THIS PROGR| 00001860: 41 4D 20 21 22 00 70 20 A7 03 9E 55 55 AA 37 31 |AM !".p ...UU.71| 00001870: 00 76 20 A8 03 80 00 90 20 A9 03 99 22 93 05 22 |.v ..... ...".."| 00001880: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 |:..(50003).0.962| 00001890: 00 BF 20 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 |.. ... ** BASIC | 000018A0: 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 |2.0 OR 4.0 OR| 000018B0: 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 | C-64 SETUP **.| 000018C0: FD 20 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 |. ...1075,133:.1| 000018D0: 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 |076,144:.1077,23| 000018E0: 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C |4:.1079,4:.1080,| 000018F0: 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 33 21 |133:.1081,145.3!| 00001900: AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 |...1091,155:.109| 00001910: 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A |8,133:.1099,144:| 00001920: 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C |.1100,234:.1103,| 00001930: 31 33 33 00 55 21 AF 03 97 31 31 30 34 2C 31 34 |133.U!...1104,14| 00001940: 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 |5:.1105,234:.108| 00001950: 32 2C 32 33 34 00 6C 21 B1 03 8B C2 28 35 30 30 |2,234.l!....(500| 00001960: 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 9B 21 B6 |03)..160.955..!.| 00001970: 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C |..1093,88:.1094,| 00001980: 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 |228:.1097,85:.11| 00001990: 30 32 2C 32 32 38 3A 89 39 36 35 00 B0 21 BB 03 |02,228:.965..!..| 000019A0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 |..(50003)..1.990| 000019B0: 00 DF 21 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 |..!...1093,49:.1| 000019C0: 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 |094,230:.1097,46| 000019D0: 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 |:.1102,230:.965.| 000019E0: 19 22 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 |."...2099,141:.2| 000019F0: 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 |100,20:.2101,3:.| 00001A00: 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 |2103,8:.2104,141| 00001A10: 3A 97 32 31 30 35 2C 32 31 00 55 22 C3 03 97 32 |:.2105,21.U"...2| 00001A20: 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A |106,3:.2115,145:| 00001A30: 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 |.2117,52:.2118,2| 00001A40: 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 |34:.2121,49:.212| 00001A50: 32 2C 31 34 31 00 8F 22 C4 03 97 32 31 32 33 2C |2,141.."...2123,| 00001A60: 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 |20:.2124,3:.2126| 00001A70: 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 |,234:.2127,141:.| 00001A80: 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 |2128,21:.2129,3.| 00001A90: AD 22 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 |."...UU.48:. DIS| 00001AA0: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 BE 22 |ABLE STOP KEY.."| 00001AB0: CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 CE |...800:. TITLE..| 00001AC0: 22 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 FF |"...300:. MENU..| 00001AD0: 22 DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 |"...".THE PGM WI| 00001AE0: 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 |LL NOT WORK ON T| 00001AF0: 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 |HIS MACHINE!":..| 00001B00: 34 23 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E |4#...UZ.1..UP%:.| 00001B10: 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 |UP%:UZ.0:. ** PR| 00001B20: 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 |OGRAM STARTS HER| 00001B30: 45 20 2A 2A 00 60 23 E9 03 99 22 93 05 22 3B 3A |E **.`#..."..";:| 00001B40: 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |.:..(50003).0..5| 00001B50: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14| 00001B60: 00 95 23 F2 03 8C 3A 44 44 24 B2 22 20 20 20 4D |..#...:DD$." M| 00001B70: 45 4E 55 2D 20 12 48 92 22 3A 5A 5A 24 B2 22 13 |ENU- .H.":ZZ$.".| 00001B80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001B90: 11 1D 1D 1D 22 00 B9 23 F7 03 4F 24 B2 22 91 20 |...."..#..O$.". | 00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BB0: 20 20 20 20 20 20 20 11 22 00 D4 23 FC 03 55 54 | ."..#..UT| 00001BC0: 24 B2 22 20 43 49 52 43 55 49 54 53 20 34 22 3A |$." CIRCUITS 4":| 00001BD0: 8D 38 35 30 00 F3 23 06 04 99 22 20 20 20 20 20 |.850..#..." | 00001BE0: 20 20 20 20 20 B0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 | ...........| 00001BF0: C0 C0 AE 00 12 24 10 04 99 22 20 20 20 20 20 20 |.....$..." | 00001C00: 20 20 20 20 DD 20 20 20 20 20 DD 20 20 20 20 20 | . . | 00001C10: 20 DD 00 31 24 24 04 99 22 20 20 20 53 57 49 54 | ..1$$.." SWIT| 00001C20: 43 48 20 CD 20 20 20 20 20 CD 20 20 20 20 20 20 |CH . . | 00001C30: DD 00 53 24 2E 04 99 22 20 20 20 20 20 20 20 20 |..S$..." | 00001C40: 20 20 DD 20 20 20 20 20 CE 20 52 20 20 20 C0 B1 | . . R ..| 00001C50: C0 20 43 00 73 24 38 04 99 22 20 20 20 20 20 20 |. C.s$8.." | 00001C60: 20 20 2B C0 B1 C0 20 20 20 20 CD 20 20 20 20 20 | +... . | 00001C70: C0 B2 C0 00 92 24 42 04 99 22 20 20 20 20 20 20 |.....$B.." | 00001C80: 20 56 20 20 B8 20 20 20 20 20 CE 20 20 20 20 20 | V . . | 00001C90: 20 DD 00 B1 24 4C 04 99 22 20 20 20 20 20 20 20 | ...$L.." | 00001CA0: 20 2D 20 DD 20 20 20 20 20 DD 20 20 20 20 20 20 | - . . | 00001CB0: DD 00 D0 24 56 04 99 22 20 20 20 20 20 20 20 20 |...$V.." | 00001CC0: 20 20 AD C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 BD | ..............| 00001CD0: 00 01 25 74 04 99 3A 99 22 20 57 48 45 4E 20 54 |..%t..:." WHEN T| 00001CE0: 48 45 20 53 57 49 54 43 48 20 43 4C 4F 53 45 53 |HE SWITCH CLOSES| 00001CF0: 20 54 48 45 20 43 41 50 41 43 49 54 4F 52 22 3A | THE CAPACITOR":| 00001D00: 99 00 1E 25 7E 04 99 22 20 43 48 41 52 47 45 53 |...%~.." CHARGES| 00001D10: 20 49 4E 53 54 41 4E 54 4C 59 2E 22 3A 99 00 54 | INSTANTLY.":..T| 00001D20: 25 83 04 99 22 20 49 4E 50 55 54 20 54 48 45 20 |%..." INPUT THE | 00001D30: 56 20 49 4E 20 56 4F 4C 54 53 20 3F 20 20 20 20 |V IN VOLTS ? | 00001D40: 9D 9D 9D 22 3B 3A 8D 33 30 30 30 3A 56 B2 C5 28 |...";:.3000:V..(| 00001D50: 55 52 24 29 00 6C 25 88 04 8B 56 B1 31 32 30 A7 |UR$).l%...V.120.| 00001D60: 3A 8D 33 31 30 30 3A 89 31 31 35 35 00 72 25 89 |:.3100:.1155.r%.| 00001D70: 04 99 00 A5 25 8A 04 99 22 20 49 4E 50 55 54 20 |....%..." INPUT | 00001D80: 52 20 49 4E 20 4B 20 4F 48 4D 53 20 3F 20 20 20 |R IN K OHMS ? | 00001D90: 20 9D 9D 9D 22 3B 3A 8D 33 30 30 30 3A 52 B2 C5 | ...";:.3000:R..| 00001DA0: 28 55 52 24 29 00 C4 25 8B 04 8B 52 B2 30 20 B0 |(UR$)..%...R.0 .| 00001DB0: 20 52 B1 31 30 30 20 A7 3A 8D 33 31 30 30 3A 89 | R.100 .:.3100:.| 00001DC0: 31 31 36 32 00 CA 25 8D 04 99 00 02 26 92 04 99 |1162..%.....&...| 00001DD0: 22 20 49 4E 50 55 54 20 43 20 49 4E 20 4D 49 43 |" INPUT C IN MIC| 00001DE0: 52 4F 46 41 52 41 44 53 20 3F 20 20 20 20 9D 9D |ROFARADS ? ..| 00001DF0: 9D 22 3B 3A 8D 33 30 30 30 3A 43 B2 C5 28 55 52 |.";:.3000:C..(UR| 00001E00: 24 29 00 1F 26 97 04 8B 43 B1 31 30 30 A7 3A 8D |$)..&...C.100.:.| 00001E10: 33 31 30 30 3A 99 22 91 22 3A 89 31 31 37 30 00 |3100:.".":.1170.| 00001E20: 5F 26 A6 04 99 22 93 22 3A 57 49 B2 B5 28 28 56 |_&...".":WI..((V| 00001E30: AD 52 29 AC 31 30 30 30 30 29 AD 31 30 30 30 30 |.R).10000).10000| 00001E40: 3A 97 55 54 2C 55 4C 25 3A 55 54 24 B2 22 20 C3 |:.UT,UL%:UT$." .| 00001E50: C9 D2 C3 D5 C9 D4 D3 20 34 22 3A 8D 38 35 30 00 |....... 4":.850.| 00001E60: 8F 26 AB 04 99 22 11 20 20 D4 48 45 20 43 55 52 |.&...". .HE CUR| 00001E70: 52 45 4E 54 20 46 4C 4F 57 49 4E 47 20 54 48 52 |RENT FLOWING THR| 00001E80: 4F 55 47 48 20 52 20 49 53 20 4E 4F 57 11 22 00 |OUGH R IS NOW.".| 00001E90: A1 26 B0 04 99 20 57 49 3B 22 4D 41 2E 20 20 22 |.&... WI;"MA. "| 00001EA0: 3B 00 AB 26 BA 04 54 31 B2 54 49 00 BE 26 C4 04 |;..&..T1.TI..&..| 00001EB0: 8B 54 49 AB 54 31 B3 36 30 A7 31 32 32 30 00 E2 |.TI.T1.60.1220..| 00001EC0: 26 CE 04 99 22 D7 48 45 4E 20 54 48 45 20 53 57 |&...".HEN THE SW| 00001ED0: 49 54 43 48 20 49 53 20 4F 50 45 4E 45 44 2C 22 |ITCH IS OPENED,"| 00001EE0: 3A 99 00 0E 27 D8 04 99 22 20 D4 48 45 20 43 48 |:...'..." .HE CH| 00001EF0: 41 52 47 45 20 49 4E 20 54 48 45 20 43 41 50 41 |ARGE IN THE CAPA| 00001F00: 43 49 54 4F 52 20 46 4C 4F 57 53 22 3A 99 00 2C |CITOR FLOWS":..,| 00001F10: 27 DD 04 99 22 20 54 48 52 4F 55 47 48 20 54 48 |'..." THROUGH TH| 00001F20: 45 20 52 45 53 49 53 54 4F 52 2E 22 00 60 27 E2 |E RESISTOR.".`'.| 00001F30: 04 99 3A 99 3A 99 22 20 20 C2 55 54 20 41 53 20 |..:.:." .UT AS | 00001F40: 54 48 45 20 43 48 41 52 47 45 20 46 4C 4F 57 53 |THE CHARGE FLOWS| 00001F50: 2C 20 54 48 45 20 56 4F 4C 54 41 47 45 22 3A 99 |, THE VOLTAGE":.| 00001F60: 00 8D 27 EC 04 99 22 20 47 45 54 53 20 53 4D 41 |..'..." GETS SMA| 00001F70: 4C 4C 45 52 2C 20 43 41 55 53 49 4E 47 20 4C 45 |LLER, CAUSING LE| 00001F80: 53 53 20 43 55 52 52 45 4E 54 22 3A 99 00 C1 27 |SS CURRENT":...'| 00001F90: F6 04 99 22 20 54 4F 20 46 4C 4F 57 2E 20 20 C1 |..." TO FLOW. .| 00001FA0: 46 54 45 52 22 3B 52 AC 43 AC 2E 30 30 31 3B 22 |FTER";R.C..001;"| 00001FB0: 53 45 43 4F 4E 44 53 2C 20 41 42 4F 55 54 22 3A |SECONDS, ABOUT":| 00001FC0: 99 00 ED 27 00 05 99 22 20 36 33 25 20 4F 46 20 |...'..." 63% OF | 00001FD0: 54 48 45 20 43 48 41 52 47 45 20 57 4F 55 4C 44 |THE CHARGE WOULD| 00001FE0: 20 48 41 56 45 20 4C 45 46 54 22 3A 99 00 04 28 | HAVE LEFT":...(| 00001FF0: 0A 05 99 22 20 54 48 45 20 43 41 50 41 43 49 54 |..." THE CAPACIT| 00002000: 4F 52 2E 22 00 12 28 0F 05 8D 38 33 35 3A 8D 38 |OR."..(...835:.8| 00002010: 35 30 00 43 28 14 05 99 22 11 11 11 20 CE 4F 57 |50.C(..."... .OW| 00002020: 20 41 20 54 41 42 4C 45 20 57 49 4C 4C 20 41 50 | A TABLE WILL AP| 00002030: 50 45 41 52 20 53 48 4F 57 49 4E 47 20 48 4F 57 |PEAR SHOWING HOW| 00002040: 22 3A 99 00 7F 28 1E 05 99 22 20 54 48 45 20 43 |":...(..." THE C| 00002050: 55 52 52 45 4E 54 20 41 4E 44 20 56 4F 4C 54 41 |URRENT AND VOLTA| 00002060: 47 45 20 43 48 41 4E 47 45 20 57 49 54 48 22 3A |GE CHANGE WITH":| 00002070: 99 3A 99 22 20 54 48 45 20 54 49 4D 45 2E 22 00 |.:." THE TIME.".| 00002080: A7 28 28 05 99 22 11 11 20 31 30 20 4C 49 4E 45 |.((..".. 10 LINE| 00002090: 53 20 41 52 45 20 53 48 4F 57 4E 20 45 41 43 48 |S ARE SHOWN EACH| 000020A0: 20 54 49 4D 45 2E 22 00 B0 28 3C 05 8D 38 33 35 | TIME."..(<..835| 000020B0: 00 C7 28 46 05 8B 20 43 B2 30 20 A7 20 44 54 B2 |..(F.. C.0 . DT.| 000020C0: 31 3A 89 31 33 37 30 00 DE 28 50 05 44 54 B2 52 |1:.1370..(P.DT.R| 000020D0: AC 43 AC 2E 31 3A 54 B2 30 3A 55 50 B2 30 00 F8 |.C..1:T.0:UP.0..| 000020E0: 28 5A 05 55 47 24 B2 22 C3 48 41 52 54 22 3A 55 |(Z.UG$.".HART":U| 000020F0: 48 B2 31 3A 8D 38 35 30 00 2C 29 5F 05 99 22 13 |H.1:.850.,)_..".| 00002100: 11 11 11 11 11 11 20 54 49 4D 45 20 5B 53 5D 20 |...... TIME [S] | 00002110: 20 56 4F 4C 54 53 20 20 20 20 49 20 5B 4D 41 5D | VOLTS I [MA]| 00002120: 20 20 20 51 5B 4D 49 43 52 4F 43 5D 00 6C 29 64 | Q[MICROC].l)d| 00002130: 05 99 20 20 20 20 20 20 20 20 20 20 20 22 20 A3 |.. " .| 00002140: A3 A3 A3 A3 A3 A3 A3 20 20 A3 A3 A3 A3 A3 20 20 |....... ..... | 00002150: 20 20 A3 A3 A3 A3 A3 A3 20 20 20 A3 A3 A3 A3 A3 | ...... .....| 00002160: A3 A3 A3 A3 22 3A 55 47 24 B2 22 22 00 7D 29 6E |....":UG$."".})n| 00002170: 05 50 50 B2 30 3A 81 4A B2 31 A4 31 30 00 9F 29 |.PP.0:.J.1.10..)| 00002180: 73 05 8B 20 43 B2 30 20 A7 20 56 31 B2 30 3A 51 |s.. C.0 . V1.0:Q| 00002190: 31 B2 30 3A 49 31 B2 30 3A 89 20 31 34 31 30 00 |1.0:I1.0:. 1410.| 000021A0: E0 29 78 05 56 B2 B5 28 56 AC BD 28 AB 54 AD 28 |.)x.V..(V..(.T.(| 000021B0: 52 AC 43 29 29 AC 31 30 30 30 30 29 AD 31 30 30 |R.C)).10000).100| 000021C0: 30 30 3A 49 B2 56 AD 52 3A 51 B2 43 AC 56 3A 49 |00:I.V.R:Q.C.V:I| 000021D0: 31 B2 B5 28 49 AC 31 30 30 30 29 AD 31 30 30 30 |1..(I.1000).1000| 000021E0: 00 08 2A 7D 05 56 31 B2 B5 28 56 AC 31 30 30 30 |..*}.V1..(V.1000| 000021F0: 29 AD 31 30 30 30 3A 51 31 B2 B5 28 51 AC 31 30 |).1000:Q1..(Q.10| 00002200: 30 30 29 AD 31 30 30 30 00 3A 2A 82 05 99 54 A6 |00).1000.:*...T.| 00002210: 38 AB C3 28 C4 28 54 29 29 29 56 31 3B A6 39 AB |8..(.(T)))V1;.9.| 00002220: C3 28 C4 28 56 31 29 29 29 49 31 3B A6 38 AB C3 |.(.(V1)))I1;.8..| 00002230: 28 C4 28 49 31 29 29 29 51 31 00 5A 2A 84 05 54 |(.(I1)))Q1.Z*..T| 00002240: B2 54 AA 44 54 3A 8B 56 31 B2 30 AF 49 31 B2 30 |.T.DT:.V1.0.I1.0| 00002250: 20 A7 20 50 50 B2 50 50 AA 31 00 62 2A 86 05 82 | . PP.PP.1.b*...| 00002260: 20 4A 00 86 2A 89 05 8B 20 50 50 B1 B2 31 30 20 | J..*... PP..10 | 00002270: A7 3A 8D 38 33 35 3A 55 48 B2 31 3A 8D 38 35 30 |.:.835:UH.1:.850| 00002280: 3A 89 31 34 35 30 00 A7 2A 8C 05 42 42 B2 31 32 |:.1450..*..BB.12| 00002290: 3A 56 56 B2 32 35 3A 8D 20 38 33 35 3A 42 42 B2 |:VV.25:. 835:BB.| 000022A0: 30 3A 56 56 B2 32 34 00 B1 2A A0 05 89 31 33 37 |0:VV.24..*...137| 000022B0: 30 00 D6 2A AA 05 99 22 11 11 11 11 20 20 20 20 |0..*...".... | 000022C0: 20 41 4E 59 20 4D 4F 52 45 3F 20 28 59 20 4F 52 | ANY MORE? (Y OR| 000022D0: 20 4E 29 20 22 3B 00 08 2B B4 05 55 4C B2 31 3A | N) ";..+..UL.1:| 000022E0: 55 53 24 B2 22 59 4E 22 3A 8D 33 35 3A 8B 55 52 |US$."YN":.35:.UR| 000022F0: 24 B2 22 59 22 A7 99 22 93 22 3A 97 55 54 2C 55 |$."Y"..".":.UT,U| 00002300: 55 25 3A 89 31 30 30 30 00 12 2B BE 05 89 20 33 |U%:.1000..+... 3| 00002310: 30 30 00 34 2B B8 0B 55 4C B2 33 3A 55 53 24 B2 |00.4+..UL.3:US$.| 00002320: 22 30 31 32 33 34 35 36 37 38 39 2E 48 22 3A 8D |"0123456789.H":.| 00002330: 33 35 3A 8E 00 69 2B 1C 0C 99 22 11 20 20 20 20 |35:..i+...". | 00002340: 20 20 20 12 20 55 4E 41 43 43 45 50 54 41 42 4C | . UNACCEPTABL| 00002350: 45 3A 20 54 52 59 20 41 47 41 49 4E 22 3A 81 49 |E: TRY AGAIN":.I| 00002360: B2 31 A4 31 32 30 30 3A 82 00 98 2B 21 0C 99 22 |.1.1200:...+!.."| 00002370: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00002380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002390: 20 20 20 20 20 20 20 22 00 A6 2B 26 0C 99 22 91 | "..+&..".| 000023A0: 91 91 91 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...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.E.-.." ..";:.UC,0.Y.2..UI$:.UI$."".5
0...7..UI$.G(13).C(UR$)..1..UC,1:." .";:
.85...<..UI$.G(20).105...>.. C(UR$)..UL.
50.O.A..120:. CHECK FOR VALID CHARACTER.
..F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.>.Z..UR$.
UX$.195:. EXIT TO HELP ROUTINE.M._..UF.1
..240.Z.D.UF.0:.:..S.F.. ++ CHECK DELETE
++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR$
).1)...S..". ..";:.50.U.X.. ++ CHECK FO
R VALID CHARACTERS ++...}..C(US$).0.150.
.....US.1.C(US$)......UI$.J(US$,US,1)...
......"...UI$."":..=.... ** STANDARD INP
UT **.N....F(UI$).46..._....UI$.G(32)...
|. ..F(UI$).48.F(UI$).57.170............
F(UI$).65.F(UI$).90.180.......I....F(UI$
).193.F(UI$).218.UI$."":.......B(UT).UU%
.UI$.G(F(UI$).128):............UI$."":..
$.C.UF.1:. +++ HELP ROUTINE EXIT +++.-.E
..250.6.H..245.U.M..UQ.UB.(U2%.256.U1%.U
3%.2).Q.R.UQ%(UQ.UB).B(UQ):.:."."...W.UZ
.1:UV%.B(UT)...X..300...Y.UZ.0:US$.UJ$:U
G$.UK$:UP.UJ:UL.UK...Z..B(50003).0..5328
1,1:.".";:.53281,6:.53280,14:.220......"
.";."...UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.
U1%.U3%.3).7....UQ,UQ%(UQ.UB):..C....U1,
U1%.O....U2,U2%.[....U4,U4%.I....U3,U3%.
1.Q....35.....UD%.((U2%.256.U1%.U3%).UB)
.40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":...
...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U
4).2...UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.
UL.8.....I.,.. ** MENU **.O.-.:.~...."."
:.UT,UU%:.B(50003).0..53281,9:.53280,8..
./.:...1..". MENU".P.6.."
--------------------------------------"
...;..".. 1. BEGIN CIRCUITS 4
".#.@..".. 2. STUDENT INSTRUCTIO
NS".M.E..".. 3. TEACHER INSTRUCT
IONS".I.O..".. 4. QUIT.."...T.."
--------------------------------------"
.C.Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUT
INE..._..C(UR$).1.300...`.US$."":UT$." C
IRCUITS 4".7.C..E(UR$).1000,400,500,396.
@.H..300.G.... ** RE-ENABLE STOP KEY AND
END **......B(50003)..1.B(50003)..160.B
(50003)..0.399......UU.71:.B(50003).0..5
3281,6:.53280,14.L...."..":..W....875:..
..... ** STUDENT INSTRUCTIONS **.'....".
":.UT,UL%:.B(50003).0..53281,0:.53280,0.
H...UP.0:UG$."STUDENT INST":.850.S....".
. THIS PROGRAM WILL HELP YOU TO":......
." UNDERSTAND THE CHARACTERISTICS OF":..
H. .." THE CAPACITOR AND ITS CIRCUIT.":.
......" YOU MUST ENTER THE VALUE OF THE
":..4...." RESISTORS ,CAPACITOR AND THE
VOLTAGE OF":." THE BATTERY.".D....:." P
RESS RETURN AFTER EACH INPUT AND,":.....
.." PRESS H IF YOU WANT TO GO BACK TO TH
E":......." MENU."......835.....UG$."".J
....UZ.1..UP%:.217.P.......... ** TEACHE
R INSTRUCTIONS **.!....".":.UT,UL%:.B(50
003).0..53281,2:.53280,10.B...UP.0:UG$."
TEACHER INST":.850.P....".. TO THE
BEST OF OUR KNOWLEDGE,."......" THIS P
ROGRAM IS IN THE PUBLIC.".E...." DOMAI
N. IF THIS IS NOT THE CASE."......" P
LEASE CONTACT:..."......" COMMODORE
BUSINESS MACHINES."./...." 337
0 PHARMACY AVE..S...." AGINCOUR
T, ONTARIO".U...." CANADA M1W
2K4"......" (416) 499-4292"...
..UP.1:. 835:. 850:.U...." ..PROGRAM
NAME: CIRCUITS 4 ......." WRITTEN
BY : UNKNOWN......." UPGRADED BY :
A. LEE ..F...." .THIS PROGRAM WIL
L RUN ON ANY...F...." PET 64 COM
PUTER......." COMMODORE 64 COMPU
TER......835:.850.L...."..... THIS PROG
RAM CAN BE USED TO AID IN":......." DRAW
ING A CAPACITIVE DISCHARGE CURVE.":..'..
.." IT CAN ALSO BE USED TO SHOW THE":..
V...." CHARACTERISTICS OF THE CAPACITOR
AND":......." ALLOW THE STUDENTS TO GET
A BETTER":......." UNDERSTANDING OF THE
RC CIRCUIT."...D..835...K.UG$."".T.N..UZ
.1..UP%:.217.Z.W.....X.. ** PROGRAM MODI
FICATION INST **...Y..".":.UT,UL%.1.].UP
.0:UG$."PROGRAM MOD":.850.:....835.E...U
G$."".Y....UZ.1..UP%:.217._.......... **
TO USE 8032 LOAD CBM4032 **...F..".....
BEFORE RUNNING THIS PROGRAM ON AN 8032
.....P.." LOAD THE 'CBM 4032' PROGR
AM............."...Z..UU.71.......&....
** TO USE 8032 LOAD CBM4032 **.Q...."...
.BEFORE RUNNING THIS PROGRAM ON AN 8032
..LOAD CBM 4032 PROGRAM".}....1093:....
.. ** T I T L E P A G E **.Q.".."....
";:.UT,UU%:.B(50003).0..53280,14:.53281,
6...#.. G(142);...$..I.1.38:."...";:....
&..I.1.22:.".....";:..%.(..I.1.37:."....
.";:..=.*..I.1.22:.".....";:..B.,.."....
....................... .......".......
............ . . .....0..".............
...... . ....C.2.."....................
....4.."..............C O M M O D O R
E.....6.."...............EDUCATIONAL...-
.8.."................SOFTWARE.H.:.. ** C
OMMODORE LOGO **...;..H(UD$,24);".......
...PRESS SPACE BAR OR WAIT.":I.0...<..A$
:.A$.." ".I.I.1:.I.250.828.F.>.T1$."":T2
$."":T3$."":T4$."":I.0.O.@..300...C.. **
SPACE BAR PRESS **.&.H..UO,0:.H(UD$,24)
;".......PRESS SPACE BAR TO CONTINUE."./
.J..UI$.F.L..UI$:.UI$.." ".844.[.M.. UI$
.." " . 842.A.N.....R.. ** PAGE DESIGN R
OUTINE **...T.UP.UP.1...W.."."H(UT$.UP$,
21);I(UP$.UG$.D(UP),18)...\.." ---------
-----------------------------"...`..UH..
0.870.).A..H(UD$,24);H(UP$,7);"HELP - PR
ESS H <RETURN>".:.F.UH.0:."..":..Y.K..
** PLEASE WAIT REMARK **...P..H(UD$,24)
;" ONE MOMENT PLEASE... ".
..U........ ** SET UP VARIABLES **.....U
X$."H":.UQ%(1000):UB.32768:U1.196:U2.197
:U3.198:U4.216:UC.167:UU.1024.;...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..
....B(50003).0.UT.53272:UU%.21:UL%.23:UP
%.2139:UM.1024:UO.198.....UD$.".........
................".....UP$."
".A...UT$." CI
RCUITS 4 ":. PLACE PROGRAM TITLE
HERE !!!!!!!!!!!!!!!!!***.G.......... **
SET VARIABLES **......900.....:.....:..
.... ** CHECK FOR 8032 **.O....".":." ":
. SHIFTED SPACE......B(UB.40)..96..700..
.... ** MEMORY CHECK **.. ... .(0).2000.
937.A ..."....THIS MACHINE DOES NOT HAVE
ENOUGH.".E ..."MEMORY TO RUN THIS PROGR
AM !".P ...UU.71.V ..... ..."..":.B(5000
3).0.962.. ... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.. ...1075,133:.1076,144:
.1077,234:.1079,4:.1080,133:.1081,145.3!
...1091,155:.1098,133:.1099,144:.1100,23
4:.1103,133.U!...1104,145:.1105,234:.108
2,234.L!...B(50003)..160.955..!...1093,8
8:.1094,228:.1097,85:.1102,228:.965..!..
.B(50003)..1.990..!...1093,49:.1094,230:
.1097,46:.1102,230:.965.."B..2099,141:.2
100,20:.2101,3:.2103,8:.2104,141:.2105,2
1.U"C..2106,3:.2115,145:.2117,52:.2118,2
34:.2121,49:.2122,141.."D..2123,20:.2124
,3:.2126,234:.2127,141:.2128,21:.2129,3.
."E..UU.48:. DISABLE STOP KEY.."J..800:.
TITLE.N"T..300:. MENU.."...".THE PGM WI
LL NOT WORK ON THIS MACHINE!":..4#...UZ.
1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HER
E **.`#..."..";:.:.B(50003).0..53281,6:.
53280,14..#...:DD$." MENU- .H.":ZZ$.".
...................."..#..O$.".
.".T#..UT$." CIRCUITS 4":
.850..#..." ................$..
." . . ..1$$.." SWIT
CH M M ..S$..." .
N R ... C.S$8.." +... M
.....$B.." V . N ...$L..
" - . . ..P$V.."
................%T..:." WHEN THE SWITC
H CLOSES THE CAPACITOR":...%~.." CHARGES
INSTANTLY.":..T%..." INPUT THE V IN VOL
TS ? ...";:.3000:V.E(UR$).L%...V.120.
:.3100:.1155.R%.....%..." INPUT R IN K O
HMS ? ...";:.3000:R.E(UR$).D%...R.0 .
R.100 .:.3100:.1162.J%.....&..." INPUT
C IN MICROFARADS ? ...";:.3000:C.E(UR
$)..&...C.100.:.3100:.".":.1170._&..."."
:WI..((V.R).10000).10000:.UT,UL%:UT$." C
IRCUITS 4":.850..&...". THE CURRENT FLO
WING THROUGH R IS NOW."..&... WI;"MA. "
;..&..T1.TI..&D..TI.T1.60.1220..&N.."WHE
N THE SWITCH IS OPENED,":...'X.." THE CH
ARGE IN THE CAPACITOR FLOWS":..,'..." TH
ROUGH THE RESISTOR.".`'...:.:." BUT AS
THE CHARGE FLOWS, THE VOLTAGE":...'..."
GETS SMALLER, CAUSING LESS CURRENT":..A'
..." TO FLOW. AFTER";R.C..001;"SECONDS,
ABOUT":...'..." 63% OF THE CHARGE WOULD
HAVE LEFT":...(..." THE CAPACITOR."..(.
..835:.850.C(..."... NOW A TABLE WILL AP
PEAR SHOWING HOW":..(..." THE CURRENT A
ND VOLTAGE CHANGE WITH":.:." THE TIME.".
.((..".. 10 LINES ARE SHOWN EACH TIME.".
.(<..835.G(F.. C.0 . DT.1:.1370..(P.DT.R
.C..1:T.0:UP.0..(Z.UG$."CHART":UH.1:.850
.,)_.."....... TIME [S] VOLTS I [MA]
Q[MICROC].L)D.. " ........
..... ...... .........":UG$."".})N
.PP.0:.J.1.10..)S.. C.0 . V1.0:Q1.0:I1.0
:. 1410..)X.V..(V..(.T.(R.C)).10000).100
00:I.V.R:Q.C.V:I1..(I.1000).1000..*}.V1.
.(V.1000).1000:Q1..(Q.1000).1000.:*...T.
8.C(D(T)))V1;.9.C(D(V1)))I1;.8.C(D(I1)))
Q1.Z*..T.T.DT:.V1.0.I1.0 . PP.PP.1.B*...
J..*... PP..10 .:.835:UH.1:.850:.1450..
*..BB.12:VV.25:. 835:BB.0:VV.24..* ..137
0.V*...".... ANY MORE? (Y OR N) ";..
+..UL.1:US$."YN":.35:.UR$."Y"..".":.UT,U
U%:.1000..+... 300.4+..UL.3:US$."0123456
789.H":.35:..I+...". . UNACCEPTABL
E: TRY AGAIN":.I.1.1200:...+!..".
"..+&..".
...":....
> CLICK IMAGE PREVIEW FOR FULL MODAL