17.BIGTIME
FILE INFORMATION
FILENAME(S): 17.BIGTIME
FILE TYPE(S): PRG
FILE SIZE: 9K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 1 disk(s)
FILE HASH
07b241911dacad912b152f78158378513e78af4e97ae7990329e0288bec5f9d3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | 17.BIGTIME | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 12 |..UI$;...P..50..|
000001D0: 0A 54 00 22 50 4C 55 52 41 4C 53 2E 43 30 22 20 |.T."PLURALS.C0" |
000001E0: 20 20 20 20 20 20 50 52 47 20 20 20 20 20 20 20 | PRG |
000001F0: 20 20 20 20 53 20 94 20 20 20 22 30 1A 42 49 47 | S . "0.BIG|
00000200: 54 49 4D 45 2E 43 32 22 2C 38 1A 20 20 20 20 50 |TIME.C2",8. P|
00000210: 52 47 00 37 0A 55 00 8F 20 2B 2B 2B 20 43 48 45 |RG.7.U.. +++ CHE|
00000220: 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 |CK FOR HELP REQU|
00000230: 45 53 54 20 2B 2B 2B 00 5F 0A 5A 00 8B 55 52 24 |EST +++._.Z..UR$|
00000240: B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 |.UX$.195:. EXIT |
00000250: 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 |TO HELP ROUTINE.|
00000260: 6E 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 7B |n._..UF.1..240.{|
00000270: 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 94 0A 66 00 |.d.UF.0:.:....f.|
00000280: 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 |. ++ CHECK DELET|
00000290: 45 20 2B 2B 00 A5 0A 69 00 8B C3 28 55 52 24 29 |E ++...i...(UR$)|
000002A0: B3 31 A7 35 30 00 BD 0A 6E 00 55 52 24 B2 C8 28 |.1.50...n.UR$..(|
000002B0: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 CF 0A |UR$,.(UR$).1)...|
000002C0: 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 |s..". ..";:.50.|
000002D0: F6 0A 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 |..x.. ++ CHECK F|
000002E0: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT|
000002F0: 45 52 53 20 2B 2B 00 08 0B 7D 00 8B C3 28 55 53 |ERS ++...}...(US|
00000300: 24 29 B2 30 A7 31 35 30 00 19 0B 82 00 81 55 53 |$).0.150......US|
00000310: B2 31 A4 C3 28 55 53 24 29 00 30 0B 87 00 8B 55 |.1..(US$).0....U|
00000320: 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E |I$..(US$,US,1)..|
00000330: 00 36 0B 8C 00 82 00 43 0B 91 00 55 49 24 B2 22 |.6.....C...UI$."|
00000340: 22 3A 8E 00 5E 0B 96 00 8F 20 2A 2A 20 53 54 41 |":..^.... ** STA|
00000350: 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 6F |NDARD INPUT **.o|
00000360: 0B 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 |.....(UI$).46...|
00000370: 80 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E |.....UI$..(32)..|
00000380: 00 9D 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 |.......(UI$).48.|
00000390: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 A3 0B |.(UI$).57.170...|
000003A0: A5 00 8E 00 C0 0B AA 00 8B C6 28 55 49 24 29 B3 |..........(UI$).|
000003B0: 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 |65..(UI$).90.180|
000003C0: 00 C6 0B AF 00 8E 00 EA 0B B4 00 8B C6 28 55 49 |.............(UI|
000003D0: 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 |$).193..(UI$).21|
000003E0: 38 A7 55 49 24 B2 22 22 3A 8E 00 0D 0C B9 00 8B |8.UI$."":.......|
000003F0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(|
00000400: C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 13 0C |.(UI$).128):....|
00000410: BB 00 8E 00 20 0C BE 00 55 49 24 B2 22 22 3A 8E |.... ...UI$."":.|
00000420: 00 45 0C C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 |.E...UF.1:. +++ |
00000430: 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 |HELP ROUTINE EXI|
00000440: 54 20 2B 2B 2B 00 4E 0C C5 00 8D 32 35 30 00 57 |T +++.N....250.W|
00000450: 0C C8 00 8D 32 34 35 00 76 0C CD 00 81 55 51 B2 |....245.v....UQ.|
00000460: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.|
00000470: 55 33 25 AB 32 29 00 92 0C D2 00 55 51 25 28 55 |U3%.2).....UQ%(U|
00000480: 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 |Q.UB)..(UQ):.:."|
00000490: 93 22 00 A5 0C D7 00 55 5A B2 31 3A 55 56 25 B2 |.".....UZ.1:UV%.|
000004A0: C2 28 55 54 29 00 AE 0C D8 00 89 33 30 30 00 F2 |.(UT)......300..|
000004B0: 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A |...UZ.0:US$.UJ$:|
000004C0: 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C |UG$.UK$:UP.UJ:UL|
000004D0: B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.UK:..(50003).0.|
000004E0: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
000004F0: 31 34 00 27 0D DC 00 55 54 24 B2 55 4C 24 3A 99 |14.'...UT$.UL$:.|
00000500: 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 |".";:.UT,UV%:.UQ|
00000510: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
00000520: AA 55 33 25 AB 33 29 00 3C 0D E1 00 97 55 51 2C |.U3%.3).<....UQ,|
00000530: 55 51 25 28 55 51 AB 55 42 29 3A 82 00 48 0D E6 |UQ%(UQ.UB):..H..|
00000540: 00 97 55 31 2C 55 31 25 00 54 0D E8 00 97 55 32 |..U1,U1%.T....U2|
00000550: 2C 55 32 25 00 60 0D E9 00 97 55 34 2C 55 34 25 |,U2%.`....U4,U4%|
00000560: 00 6E 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 76 |.n....U3,U3%.1.v|
00000570: 0D EB 00 89 33 35 00 A8 0D F0 00 55 44 25 B2 28 |....35.....UD%.(|
00000580: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
00000590: 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C |).UB).40:..(UD$,|
000005A0: 55 44 25 AA 31 29 3A 8E 00 E3 0D F5 00 99 C8 28 |UD%.1):........(|
000005B0: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
000005D0: 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 | HELP COMING . |
000005E0: 22 3A 8E 00 0F 0E FA 00 55 31 25 B2 C2 28 55 31 |":......U1%..(U1|
000005F0: 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 |):U2%..(U2):U3%.|
00000600: C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 |.(U3):U4%..(U4).|
00000610: 37 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |7...UJ$.US$:UK$.|
00000620: 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 |UG$:UL$.UT$:UJ.U|
00000630: 50 3A 55 4B B2 55 4C 00 3D 0E FF 00 8E 00 4E 0E |P:UK.UL.=.....N.|
00000640: 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 54 |,.. ** MENU **.T|
00000650: 0E 2D 01 3A 00 83 0E 2E 01 99 22 93 22 3A 97 55 |.-.:......".":.U|
00000660: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).|
00000670: 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 |0..53281,9:.5328|
00000680: 30 2C 38 00 89 0E 2F 01 3A 00 A6 0E 31 01 99 22 |0,8.../.:...1.."|
00000690: 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000006A0: 20 4D 45 4E 55 22 00 D5 0E 36 01 99 22 20 2D 2D | MENU"...6.." --|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006D0: 2D 2D 2D 2D 22 00 F4 0E 3B 01 99 22 11 11 20 20 |----"...;..".. |
000006E0: 20 20 20 20 20 31 2E 20 20 20 42 49 47 54 49 4D | 1. BIGTIM|
000006F0: 45 20 20 22 00 1B 0F 40 01 99 22 11 11 20 20 20 |E "...@..".. |
00000700: 20 20 20 20 32 2E 20 20 20 55 53 45 52 20 49 4E | 2. USER IN|
00000710: 53 54 52 55 43 54 49 4F 4E 53 22 00 37 0F 4F 01 |STRUCTIONS".7.O.|
00000720: 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 |.".. 3. |
00000730: 51 55 49 54 11 11 22 00 66 0F 54 01 99 22 20 2D |QUIT..".f.T.." -|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 22 00 91 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
00000770: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
00000780: 4D 42 45 52 20 4B 45 59 20 28 31 2D 33 29 20 22 |MBER KEY (1-3) "|
00000790: 3B 00 B8 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007A0: 31 32 33 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 |123":.35:. INPUT|
000007B0: 20 52 4F 55 54 49 4E 45 00 CA 0F 5F 01 8B C3 28 | ROUTINE..._...(|
000007C0: 55 52 24 29 B1 31 A7 33 30 30 00 D5 0F 60 01 55 |UR$).1.300...`.U|
000007D0: 53 24 B2 22 22 00 EE 0F 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
000007E0: 29 8D 31 30 30 30 2C 34 30 30 2C 33 39 36 00 08 |).1000,400,396..|
000007F0: 10 64 01 8B C5 28 55 52 24 29 B2 32 AF 5A 24 B2 |.d...(UR$).2.Z$.|
00000800: 22 48 22 A7 31 33 33 30 00 11 10 68 01 89 33 30 |"H".1330...h..30|
00000810: 30 00 38 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0.8.... ** RE-EN|
00000820: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
00000830: 44 20 45 4E 44 20 2A 2A 00 67 10 8C 01 8B C2 28 |D END **.g.....(|
00000840: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000850: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000860: B3 B1 30 A7 33 39 39 00 91 10 8D 01 9E 55 55 AA |..0.399......UU.|
00000870: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
00000880: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000890: 34 00 9D 10 8E 01 99 22 9A 93 22 3A 80 00 A8 10 |4......"..":....|
000008A0: 8F 01 8D 38 37 35 3A 8E 00 C9 10 90 01 8F 20 2A |...875:....... *|
000008B0: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
000008C0: 43 54 49 4F 4E 53 20 2A 2A 00 F8 10 95 01 99 22 |CTIONS **......"|
000008D0: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
000008E0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
000008F0: 97 35 33 32 38 30 2C 30 00 16 11 9A 01 55 50 B2 |.53280,0.....UP.|
00000900: 30 3A 55 47 24 B2 22 D5 53 45 52 20 C9 4E 53 54 |0:UG$.".SER .NST|
00000910: 22 3A 8D 38 35 30 00 47 11 B8 01 99 22 11 20 D4 |":.850.G....". .|
00000920: 48 49 53 20 50 52 4F 47 52 41 4D 20 53 49 4D 55 |HIS PROGRAM SIMU|
00000930: 4C 41 54 45 53 20 41 20 44 49 47 49 54 41 4C 20 |LATES A DIGITAL |
00000940: 43 4C 4F 43 4B 2E 22 00 76 11 BA 01 99 22 20 D9 |CLOCK.".v...." .|
00000950: 4F 55 20 43 41 4E 20 43 48 4F 4F 53 45 20 45 49 |OU CAN CHOOSE EI|
00000960: 54 48 45 52 20 41 20 31 32 20 48 4F 55 52 20 46 |THER A 12 HOUR F|
00000970: 4F 52 4D 41 54 22 00 A5 11 BC 01 99 22 11 20 4F |ORMAT"......". O|
00000980: 52 20 41 20 32 34 20 48 4F 55 52 20 46 4F 52 4D |R A 24 HOUR FORM|
00000990: 41 54 2E 20 D9 4F 55 20 43 41 4E 20 41 4C 53 4F |AT. .OU CAN ALSO|
000009A0: 20 53 45 54 22 00 D3 11 BE 01 99 22 11 20 41 4E | SET"......". AN|
000009B0: 20 41 4C 41 52 4D 2E 20 28 D4 48 45 20 41 4C 41 | ALARM. (.HE ALA|
000009C0: 52 4D 20 49 53 20 52 41 54 48 45 52 20 51 55 49 |RM IS RATHER QUI|
000009D0: 45 54 22 00 03 12 C0 01 99 22 11 20 54 48 4F 55 |ET"......". THOU|
000009E0: 47 48 20 41 4E 44 20 50 52 4F 42 41 42 4C 59 20 |GH AND PROBABLY |
000009F0: 57 49 4C 4C 20 4E 4F 54 20 57 41 4B 45 20 59 4F |WILL NOT WAKE YO|
00000A00: 55 20 22 00 28 12 C2 01 99 22 11 20 55 50 20 46 |U ".(....". UP F|
00000A10: 52 4F 4D 20 59 4F 55 52 20 46 52 45 4E 43 48 20 |ROM YOUR FRENCH |
00000A20: 43 4C 41 53 53 2E 29 22 00 58 12 C4 01 99 22 11 |CLASS.)".X....".|
00000A30: 11 20 D4 59 50 45 20 3C 48 3E 20 41 54 20 41 4E |. .YPE <H> AT AN|
00000A40: 59 20 54 49 4D 45 20 54 4F 20 52 45 54 55 52 4E |Y TIME TO RETURN|
00000A50: 20 54 4F 20 54 48 45 22 00 68 12 C6 01 99 22 11 | TO THE".h....".|
00000A60: 20 4D 45 4E 55 2E 20 22 00 71 12 E5 01 8D 38 33 | MENU. ".q....83|
00000A70: 35 00 85 12 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
00000A80: 3A 89 32 31 37 00 8B 12 F3 01 8E 00 AC 12 F4 01 |:.217...........|
00000A90: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000AA0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 DC 12 F5 |TRUCTIONS **....|
00000AB0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000AC0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000AD0: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 FD 12 F6 |,2:.53280,10....|
00000AE0: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH|
00000AF0: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 2B 13 |ER .NST":.850.+.|
00000B00: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000B10: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000B20: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 54 13 F8 01 |NOWLEDGE,.".T...|
00000B30: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000B40: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000B50: 49 43 11 22 00 80 13 F9 01 99 22 20 20 20 44 4F |IC."......" DO|
00000B60: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000B70: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000B80: 00 9D 13 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE|
00000B90: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 C7 13 | CONTACT:..."...|
00000BA0: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000BB0: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000BC0: 48 49 4E 45 53 11 22 00 CD 13 FC 01 99 00 D3 13 |HINES.".........|
00000BD0: FD 01 99 00 D9 13 FE 01 99 00 DF 13 FF 01 99 00 |................|
00000BE0: F5 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D |....UP.1:. 835:.|
00000BF0: 20 38 35 30 3A 00 1F 14 01 02 99 22 20 20 20 20 | 850:......" |
00000C00: 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A | ...ROGRAM .AME:|
00000C10: 20 D0 52 4F 47 52 41 4D 20 D4 49 54 4C 45 11 00 | .ROGRAM .ITLE..|
00000C20: 25 14 02 02 99 00 2B 14 03 02 99 00 31 14 04 02 |%.....+.....1...|
00000C30: 99 00 58 14 05 02 99 22 20 20 20 20 20 20 20 20 |..X...." |
00000C40: 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 | ......2.0 ... .|
00000C50: CF CD D0 D5 D4 C5 D2 11 00 7F 14 06 02 99 22 20 |.............." |
00000C60: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E | ..... 4.|
00000C70: 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ..............|
00000C80: A1 14 07 02 99 22 20 20 20 20 20 20 20 20 20 38 |....." 8|
00000C90: 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 |032 ... ........|
00000CA0: 11 00 C6 14 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000CB0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000CC0: CD D0 D5 D4 C5 D2 00 CF 14 09 02 8D 38 33 35 00 |............835.|
00000CD0: D8 14 44 02 8D 38 33 35 00 EC 14 4E 02 8B 55 5A |..D..835...N..UZ|
00000CE0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 F2 14 57 |.1..UP%:.217...W|
00000CF0: 02 8E 00 18 15 58 02 8F 20 2A 2A 20 50 52 4F 47 |.....X.. ** PROG|
00000D00: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000D10: 20 49 4E 53 54 20 2A 2A 00 29 15 59 02 99 22 93 | INST **.).Y..".|
00000D20: 22 3A 97 55 54 2C 55 4C 25 00 49 15 5D 02 55 50 |":.UT,UL%.I.].UP|
00000D30: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00000D40: CD 4F 44 22 3A 8D 38 35 30 00 52 15 94 02 8D 38 |.OD":.850.R....8|
00000D50: 33 35 00 66 15 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35.f....UZ.1..UP|
00000D60: 25 3A 89 32 31 37 00 6C 15 BB 02 8E 00 91 15 BC |%:.217.l........|
00000D70: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00000D80: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00000D90: 2A 00 C7 15 C6 02 99 22 93 11 11 11 05 42 45 46 |*......".....BEF|
00000DA0: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00000DB0: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
00000DC0: 30 33 32 20 20 11 11 00 FD 15 D0 02 99 22 20 20 |032 ........" |
00000DD0: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
00000DE0: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
00000DF0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 08 16 |............"...|
00000E00: DA 02 9E 55 55 AA 37 31 00 0E 16 E4 02 80 00 33 |...UU.71.......3|
00000E10: 16 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
00000E20: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
00000E30: 20 2A 2A 00 7E 16 1E 03 99 22 93 11 11 11 42 45 | **.~...."....BE|
00000E40: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00000E50: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00000E60: 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D |8032 ..LOAD CBM|
00000E70: 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 00 8A | 4032 PROGRAM"..|
00000E80: 16 1F 03 9E 31 30 39 33 3A 80 00 94 16 20 03 89 |....1093:.... ..|
00000E90: 20 38 32 36 00 C8 16 22 03 99 22 93 11 1D 05 22 | 826...".."...."|
00000EA0: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00000EB0: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00000EC0: 97 35 33 32 38 31 2C 36 00 DE 16 24 03 81 49 B2 |.53281,6...$..I.|
00000ED0: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 F6 |1.38:."...";:...|
00000EE0: 16 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00000EF0: A6 92 22 3B 3A 82 00 0E 17 28 03 81 49 B2 31 A4 |..";:....(..I.1.|
00000F00: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 26 |37:.".....";:..&|
00000F10: 17 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00000F20: A6 92 22 3B 3A 82 00 4B 17 2C 03 99 22 13 11 11 |..";:..K.,.."...|
00000F30: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F40: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 6D 17 2E 03 |........ ..m...|
00000F50: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000F60: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 8E 17 |..... . . .....|
00000F70: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
00000F80: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 AC |....... . .....|
00000F90: 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00000FA0: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 B2 17 3A |......... ....:|
00000FB0: 03 8F 00 BA 17 3B 03 49 B2 30 00 DE 17 3E 03 54 |.....;.I.0...>.T|
00000FC0: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
00000FD0: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 E7 |."":T4$."":I.0..|
00000FE0: 17 40 03 89 33 30 30 00 03 18 43 03 8F 20 2A 2A |.@..300...C.. **|
00000FF0: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
00001000: 20 2A 2A 00 3E 18 48 03 97 55 4F 2C 30 3A 99 C8 | **.>.H..UO,0:..|
00001010: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001020: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00001030: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 55 | TO CONTINUE.".U|
00001040: 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
00001050: 22 A7 38 34 34 00 5B 18 4E 03 8E 00 7B 18 52 03 |".844.[.N...{.R.|
00001060: 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E |. ** PAGE DESIGN|
00001070: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 87 18 54 03 | ROUTINE **...T.|
00001080: 55 50 B2 55 50 AA 31 00 AB 18 57 03 99 22 93 22 |UP.UP.1...W.."."|
00001090: C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 |.(UT$.UP$,21);.(|
000010A0: 55 50 24 AA 55 47 24 2C 31 38 29 00 DA 18 5C 03 |UP$.UG$,18)...\.|
000010B0: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000010C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E9 18 60 03 8B |---------"...`..|
000010E0: 55 48 B3 B1 30 A7 38 37 30 00 1D 19 61 03 99 C8 |UH..0.870...a...|
000010F0: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 |(UD$,24);.(UP$,7|
00001100: 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 |);"HELP - PRESS |
00001110: 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 2E 19 | H <RETURN>"...|
00001120: 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 4D |f.UH.0:."..":..M|
00001130: 19 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
00001140: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 83 19 |AIT REMARK **...|
00001150: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
00001160: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
00001170: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
00001180: 20 20 22 00 89 19 75 03 8E 00 A6 19 84 03 8F 20 | "...u........ |
00001190: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
000011A0: 4C 45 53 20 2A 2A 00 F1 19 85 03 55 58 24 B2 22 |LES **.....UX$."|
000011B0: 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |H":.UQ%(1000):UB|
000011C0: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
000011D0: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
000011E0: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
000011F0: 34 00 2F 1A 86 03 55 54 B2 35 39 34 36 38 3A 55 |4./...UT.59468:U|
00001200: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001210: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
00001220: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
00001230: 72 1A 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |r.....(50003).0.|
00001240: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
00001250: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
00001260: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
00001270: 34 38 00 B1 1A 88 03 8B C2 28 35 30 30 30 33 29 |48.......(50003)|
00001280: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
00001290: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
000012A0: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
000012B0: 38 00 D5 1A 89 03 55 44 24 B2 22 13 11 11 11 11 |8.....UD$.".....|
000012C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000012D0: 11 11 11 11 22 00 07 1B 8A 03 55 50 24 B2 22 20 |....".....UP$." |
000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300: 20 20 20 20 20 20 22 00 55 1B 8B 03 55 54 24 B2 | ".U...UT$.|
00001310: 22 20 C2 C9 C7 D4 C9 CD C5 20 20 20 20 20 20 20 |" ....... |
00001320: A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 |....":. PLACE PR|
00001330: 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 |OGRAM TITLE HERE|
00001340: 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 | !!!!!!!!!!!!!!!|
00001350: 21 21 2A 2A 2A 00 5B 1B 8C 03 8E 00 75 1B 8E 03 |!!***.[.....u...|
00001360: 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C |. ** SET VARIABL|
00001370: 45 53 20 2A 2A 00 81 1B 90 03 86 20 41 24 28 39 |ES **...... A$(9|
00001380: 29 00 8A 1B 93 03 8D 39 30 30 00 90 1B 94 03 3A |)......900.....:|
00001390: 00 96 1B 95 03 3A 00 B1 1B 98 03 8F 20 2A 2A 20 |.....:...... ** |
000013A0: 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A |CHECK FOR 8032 *|
000013B0: 2A 00 CF 1B 9D 03 99 22 93 22 3A 99 22 A0 22 3A |*......".":.".":|
000013C0: 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 |. SHIFTED SPACE.|
000013D0: E6 1B A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 |......(UB.40)..9|
000013E0: 36 A7 8D 37 30 30 00 FF 1B A3 03 8F 20 2A 2A 20 |6..700...... ** |
000013F0: 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 |MEMORY CHECK **.|
00001400: 13 1C A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 |..... .(0).2000.|
00001410: 39 33 37 00 41 1C A5 03 99 22 93 11 11 05 54 48 |937.A...."....TH|
00001420: 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 |IS MACHINE DOES |
00001430: 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 |NOT HAVE ENOUGH.|
00001440: 22 00 65 1C A6 03 99 22 4D 45 4D 4F 52 59 20 54 |".e...."MEMORY T|
00001450: 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 |O RUN THIS PROGR|
00001460: 41 4D 20 21 22 00 70 1C A7 03 9E 55 55 AA 37 31 |AM !".p....UU.71|
00001470: 00 76 1C A8 03 80 00 90 1C A9 03 99 22 93 05 22 |.v..........".."|
00001480: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 |:..(50003).0.962|
00001490: 00 BF 1C AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 |...... ** BASIC |
000014A0: 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 |2.0 OR 4.0 OR|
000014B0: 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 | C-64 SETUP **.|
000014C0: FD 1C AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 |.....1075,133:.1|
000014D0: 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 |076,144:.1077,23|
000014E0: 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C |4:.1079,4:.1080,|
000014F0: 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 33 1D |133:.1081,145.3.|
00001500: AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 |...1091,155:.109|
00001510: 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A |8,133:.1099,144:|
00001520: 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C |.1100,234:.1103,|
00001530: 31 33 33 00 55 1D AF 03 97 31 31 30 34 2C 31 34 |133.U....1104,14|
00001540: 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 |5:.1105,234:.108|
00001550: 32 2C 32 33 34 00 6C 1D B1 03 8B C2 28 35 30 30 |2,234.l.....(500|
00001560: 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 9B 1D B6 |03)..160.955....|
00001570: 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C |..1093,88:.1094,|
00001580: 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 |228:.1097,85:.11|
00001590: 30 32 2C 32 32 38 3A 89 39 36 35 00 B0 1D BB 03 |02,228:.965.....|
000015A0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 |..(50003)..1.990|
000015B0: 00 DF 1D C0 03 97 31 30 39 33 2C 34 39 3A 97 31 |......1093,49:.1|
000015C0: 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 |094,230:.1097,46|
000015D0: 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 |:.1102,230:.965.|
000015E0: 19 1E C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 |.....2099,141:.2|
000015F0: 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 |100,20:.2101,3:.|
00001600: 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 |2103,8:.2104,141|
00001610: 3A 97 32 31 30 35 2C 32 31 00 55 1E C3 03 97 32 |:.2105,21.U....2|
00001620: 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A |106,3:.2115,145:|
00001630: 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 |.2117,52:.2118,2|
00001640: 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 |34:.2121,49:.212|
00001650: 32 2C 31 34 31 00 8F 1E C4 03 97 32 31 32 33 2C |2,141......2123,|
00001660: 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 |20:.2124,3:.2126|
00001670: 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 |,234:.2127,141:.|
00001680: 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 |2128,21:.2129,3.|
00001690: AD 1E C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 |.....UU.48:. DIS|
000016A0: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 BE 1E |ABLE STOP KEY...|
000016B0: CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 CE |...800:. TITLE..|
000016C0: 1E D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 FF |....300:. MENU..|
000016D0: 1E DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 |....".THE PGM WI|
000016E0: 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 |LL NOT WORK ON T|
000016F0: 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 |HIS MACHINE!":..|
00001700: 34 1F E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E |4....UZ.1..UP%:.|
00001710: 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 |UP%:UZ.0:. ** PR|
00001720: 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 |OGRAM STARTS HER|
00001730: 45 20 2A 2A 00 60 1F E9 03 99 22 93 05 22 3B 3A |E **.`...."..";:|
00001740: 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |.:..(50003).0..5|
00001750: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00001760: 00 89 1F 1A 04 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
00001770: 25 3A 8F 20 52 45 56 49 53 45 44 20 42 59 20 4A |%:. REVISED BY J|
00001780: 4F 48 4E 20 4B 41 43 55 52 00 A0 1F 24 04 8C 3A |OHN KACUR...$..:|
00001790: 55 48 B2 31 3A 55 47 24 B2 22 22 3A 8D 38 35 30 |UH.1:UG$."":.850|
000017A0: 00 CA 1F 25 04 99 22 11 11 20 C4 4F 20 59 4F 55 |...%..".. .O YOU|
000017B0: 20 57 41 4E 54 20 54 48 45 20 41 4C 41 52 4D 20 | WANT THE ALARM |
000017C0: 4F 50 54 49 4F 4E 3F 20 22 3B 00 E0 1F 26 04 55 |OPTION? ";...&.U|
000017D0: 53 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 |S$."YN":UL.1:.35|
000017E0: 00 F2 1F 27 04 8B 55 52 24 B2 22 59 22 A7 41 4C |...'..UR$."Y".AL|
000017F0: B2 31 00 04 20 28 04 8B 55 52 24 B2 22 4E 22 A7 |.1.. (..UR$."N".|
00001800: 41 4C B2 30 00 3A 20 29 04 99 22 11 11 11 20 CF |AL.0.: ).."... .|
00001810: D0 D4 C9 CF CE D3 3A 22 3A 99 22 11 11 20 20 20 |......:":.".. |
00001820: 20 20 20 20 20 41 29 20 31 32 2E 30 30 20 48 4F | A) 12.00 HO|
00001830: 55 52 20 46 4F 52 4D 41 54 22 00 60 20 2A 04 99 |UR FORMAT".` *..|
00001840: 22 11 20 20 20 20 20 20 20 20 42 29 20 32 34 2E |". B) 24.|
00001850: 30 30 20 48 4F 55 52 20 46 4F 52 4D 41 54 2E 22 |00 HOUR FORMAT."|
00001860: 00 95 20 2B 04 99 22 11 11 20 20 20 20 20 20 20 |.. +..".. |
00001870: 20 C5 4E 54 45 52 20 CF 50 54 49 4F 4E 20 2D 3E | .NTER .PTION ->|
00001880: 20 22 3B 3A 55 53 24 B2 22 41 42 22 3A 55 4C B2 | ";:US$."AB":UL.|
00001890: 31 3A 8D 33 35 00 A7 20 2C 04 8B 55 52 24 B2 22 |1:.35.. ,..UR$."|
000018A0: 41 22 A7 4F 50 B2 31 00 C3 20 4C 04 8F 20 42 49 |A".OP.1.. L.. BI|
000018B0: 47 20 54 49 4D 45 20 32 2E 30 20 4E 4F 4E 2D 53 |G TIME 2.0 NON-S|
000018C0: 54 4F 50 00 E4 20 56 04 8F 20 4F 52 49 47 49 4E |TOP.. V.. ORIGIN|
000018D0: 41 4C 4C 59 20 42 59 20 53 43 4F 54 54 20 4D 41 |ALLY BY SCOTT MA|
000018E0: 55 43 55 53 00 00 21 60 04 8F 20 4D 4F 44 49 46 |UCUS..!`.. MODIF|
000018F0: 49 45 44 20 42 59 20 42 2E 20 53 45 49 4C 45 52 |IED BY B. SEILER|
00001900: 00 06 21 6A 04 8F 00 29 21 74 04 81 49 B2 30 A4 |..!j...)!t..I.0.|
00001910: 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |9 |
00001920: 20 20 20 20 20 20 20 20 20 00 3E 21 7E 04 8F 20 | .>!~.. |
00001930: 53 45 54 20 55 50 20 41 20 44 49 47 49 54 00 4A |SET UP A DIGIT.J|
00001940: 21 88 04 81 4A B2 31 20 A4 35 00 52 21 92 04 87 |!...J.1 .5.R!...|
00001950: 41 24 00 72 21 9C 04 8F 20 4D 4F 56 45 20 43 55 |A$.r!... MOVE CU|
00001960: 52 53 4F 52 20 44 4F 57 4E 20 26 20 33 20 4C 45 |RSOR DOWN & 3 LE|
00001970: 46 54 00 8C 21 A6 04 41 24 28 49 29 B2 41 24 28 |FT..!..A$(I).A$(|
00001980: 49 29 AA 41 24 AA 22 11 9D 9D 9D 22 00 94 21 B0 |I).A$."...."..!.|
00001990: 04 82 20 4A 00 9C 21 BA 04 87 41 24 00 B9 21 C4 |.. J..!...A$..!.|
000019A0: 04 8F 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 52 |.. MOVE CURSOR R|
000019B0: 49 47 48 54 20 26 20 55 50 00 D5 21 CE 04 41 24 |IGHT & UP..!..A$|
000019C0: 28 49 29 B2 41 24 28 49 29 AA 41 24 AA 22 1D 91 |(I).A$(I).A$."..|
000019D0: 91 91 91 91 22 00 DC 21 D8 04 82 49 00 EB 21 D9 |...."..!...I..!.|
000019E0: 04 8B 41 4C B2 30 A7 31 32 36 30 00 2C 22 DA 04 |..AL.0.1260.,"..|
000019F0: 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 99 22 11 |.".":.UT,UU%:.".|
00001A00: 11 11 11 20 50 4C 45 41 53 45 20 54 59 50 45 20 |... PLEASE TYPE |
00001A10: 54 48 45 20 54 49 4D 45 20 59 4F 55 20 57 41 4E |THE TIME YOU WAN|
00001A20: 54 20 54 48 45 20 41 4C 41 52 4D 22 00 4F 22 DB |T THE ALARM".O".|
00001A30: 04 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00001A40: 20 20 20 20 20 20 20 4D 49 4E 55 54 45 53 22 00 | MINUTES".|
00001A50: 77 22 DD 04 99 22 20 20 20 20 20 20 20 20 20 20 |w"..." |
00001A60: 20 20 20 48 4F 55 52 53 C0 AE 20 C2 20 B0 C0 53 | HOURS.. . ..S|
00001A70: 45 43 4F 4E 44 53 22 00 97 22 DE 04 99 22 20 20 |ECONDS".."..." |
00001A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A90: 20 DD 20 C2 20 DD 22 00 B8 22 DF 04 99 22 20 20 | . . .".."..." |
00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AB0: 20 48 48 4D 4D 53 53 22 00 E9 22 E0 04 99 C8 28 | HHMMSS".."....(|
00001AC0: 55 44 24 2C 31 34 29 22 20 20 20 20 20 20 20 20 |UD$,14)" |
00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AE0: 20 9D 9D 9D 9D 9D 9D 22 3B 00 0F 23 E1 04 55 53 | ......";..#..US|
00001AF0: 24 B2 22 30 31 32 33 34 35 36 37 38 39 22 3A 55 |$."0123456789":U|
00001B00: 4C B2 36 3A 8D 33 35 3A 41 4C 24 B2 55 52 24 00 |L.6:.35:AL$.UR$.|
00001B10: 24 23 E2 04 8B C3 28 41 4C 24 29 B3 B1 36 A7 89 |$#....(AL$)..6..|
00001B20: 31 32 34 32 00 37 23 E7 04 8F 20 41 53 4B 20 46 |1242.7#... ASK F|
00001B30: 4F 52 20 54 49 4D 45 00 76 23 EC 04 99 22 93 22 |OR TIME.v#..."."|
00001B40: 3A 97 55 54 2C 55 55 25 3A 99 22 11 11 11 11 11 |:.UT,UU%:.".....|
00001B50: 20 20 20 20 20 20 20 20 20 50 4C 45 41 53 45 20 | PLEASE |
00001B60: 54 59 50 45 20 54 48 45 20 43 55 52 52 45 4E 54 |TYPE THE CURRENT|
00001B70: 20 54 49 4D 45 22 00 99 23 F6 04 99 22 11 11 20 | TIME"..#...".. |
00001B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B90: 20 4D 49 4E 55 54 45 53 22 00 C1 23 00 05 99 22 | MINUTES"..#..."|
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 48 4F 55 | HOU|
00001BB0: 52 53 C0 AE 20 C2 20 B0 C0 53 45 43 4F 4E 44 53 |RS.. . ..SECONDS|
00001BC0: 22 00 E1 23 0A 05 99 22 20 20 20 20 20 20 20 20 |"..#..." |
00001BD0: 20 20 20 20 20 20 20 20 20 20 20 DD 20 C2 20 DD | . . .|
00001BE0: 22 00 02 24 0E 05 99 22 20 20 20 20 20 20 20 20 |"..$..." |
00001BF0: 20 20 20 20 20 20 20 20 20 20 20 48 48 4D 4D 53 | HHMMS|
00001C00: 53 22 00 33 24 10 05 99 C8 28 55 44 24 2C 31 34 |S".3$....(UD$,14|
00001C10: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
00001C20: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
00001C30: 9D 22 3B 00 58 24 12 05 55 53 24 B2 22 30 31 32 |.";.X$..US$."012|
00001C40: 33 34 35 36 37 38 39 22 3A 55 4C B2 36 3A 8D 33 |3456789":UL.6:.3|
00001C50: 35 3A 41 24 B2 55 52 24 00 6C 24 14 05 8B C3 28 |5:A$.UR$.l$....(|
00001C60: 41 24 29 B3 B1 36 A7 89 31 32 39 36 00 80 24 1E |A$)..6..1296..$.|
00001C70: 05 8F 20 53 45 54 20 54 49 4D 45 20 48 45 52 45 |.. SET TIME HERE|
00001C80: 00 8B 24 28 05 54 49 24 B2 41 24 00 A2 24 32 05 |..$(.TI$.A$..$2.|
00001C90: 8F 20 44 52 41 57 20 22 54 49 4D 45 22 20 57 4F |. DRAW "TIME" WO|
00001CA0: 52 44 00 AC 24 3C 05 8D 32 32 36 30 00 C2 24 46 |RD..$<..2260..$F|
00001CB0: 05 8F 20 44 52 41 57 20 42 4F 52 44 45 52 20 42 |.. DRAW BORDER B|
00001CC0: 4F 58 00 CC 24 50 05 8D 32 30 39 30 00 DF 24 5A |OX..$P..2090..$Z|
00001CD0: 05 8F 2A 2A 4D 41 49 4E 20 4C 4F 4F 50 2A 2A 00 |..**MAIN LOOP**.|
00001CE0: 01 25 64 05 8F 20 50 4F 53 49 54 49 4F 4E 20 43 |.%d.. POSITION C|
00001CF0: 55 52 53 4F 52 20 41 54 31 53 54 20 44 49 47 49 |URSOR AT1ST DIGI|
00001D00: 54 00 1B 25 6E 05 99 22 13 11 11 11 11 11 11 11 |T..%n.."........|
00001D10: 11 11 11 1D 1D 1D 1D 1D 1D 22 3B 00 38 25 78 05 |.........";.8%x.|
00001D20: 8F 20 44 52 41 57 20 4E 55 4D 45 52 41 4C 53 20 |. DRAW NUMERALS |
00001D30: 46 4F 52 20 54 49 4D 45 00 43 25 82 05 81 49 B2 |FOR TIME.C%...I.|
00001D40: 31 A4 36 00 5B 25 8C 05 99 41 24 28 C5 28 CA 28 |1.6.[%...A$(.(.(|
00001D50: 54 49 24 2C 49 2C 31 29 29 29 3B 00 7D 25 96 05 |TI$,I,1)));.}%..|
00001D60: 8F 20 49 4E 53 45 52 54 20 43 4F 4C 4F 4E 20 54 |. INSERT COLON T|
00001D70: 57 45 45 4E 20 48 48 2D 4D 4D 2D 53 53 00 9B 25 |WEEN HH-MM-SS..%|
00001D80: A0 05 8B 49 B2 32 B0 49 B2 34 A7 99 22 11 D7 9D |...I.2.I.4.."...|
00001D90: 11 11 11 D7 1D 91 91 91 91 22 3B 00 C0 25 A5 05 |.........";..%..|
00001DA0: 8B 4F 50 B2 31 AF C5 28 54 49 24 29 B1 31 32 36 |.OP.1..(TI$).126|
00001DB0: 30 30 30 A7 54 49 24 B2 22 30 30 30 30 30 30 22 |000.TI$."000000"|
00001DC0: 00 D9 25 A6 05 8B 41 4C 24 B2 54 49 24 A7 8D 35 |..%...AL$.TI$..5|
00001DD0: 30 30 30 3A 8D 35 30 30 30 00 F6 25 A7 05 A1 5A |000:.5000..%...Z|
00001DE0: 24 3A 8B 5A 24 B2 22 48 22 A7 20 9C 3A 8D 39 30 |$:.Z$."H". .:.90|
00001DF0: 30 3A 89 33 30 30 00 FE 25 AA 05 82 20 49 00 09 |0:.300..%... I..|
00001E00: 26 B4 05 89 20 31 33 39 30 00 22 26 BE 05 8F 20 |&... 1390."&... |
00001E10: 44 49 47 49 54 53 20 44 41 54 41 20 53 54 52 49 |DIGITS DATA STRI|
00001E20: 4E 47 00 2D 26 C8 05 83 22 CE A3 CD 22 00 38 26 |NG.-&..."...".8&|
00001E30: D2 05 83 22 A5 A0 A7 22 00 43 26 DC 05 83 22 A5 |..."...".C&...".|
00001E40: A0 A7 22 00 4E 26 E6 05 83 22 A5 A0 A7 22 00 59 |..".N&..."...".Y|
00001E50: 26 F0 05 83 22 A5 A0 A7 22 00 64 26 FA 05 83 22 |&..."...".d&..."|
00001E60: CD A4 CE 22 00 6F 26 04 06 83 22 20 CE A5 22 00 |...".o&..." ..".|
00001E70: 7A 26 0E 06 83 22 20 20 A5 22 00 85 26 18 06 83 |z&..." ."..&...|
00001E80: 22 20 20 A5 22 00 90 26 22 06 83 22 20 20 A5 22 |" ."..&".." ."|
00001E90: 00 9B 26 2C 06 83 22 20 20 A5 22 00 A6 26 36 06 |..&,.." ."..&6.|
00001EA0: 83 22 A4 A4 CC 22 00 B1 26 40 06 83 22 CE A3 CD |."..."..&@.."...|
00001EB0: 22 00 BC 26 4A 06 83 22 20 20 A7 22 00 C7 26 54 |"..&J.." ."..&T|
00001EC0: 06 83 22 20 A4 CE 22 00 D2 26 5E 06 83 22 CE 20 |.." .."..&^..". |
00001ED0: 20 22 00 DD 26 68 06 83 22 A5 20 20 22 00 E8 26 | "..&h..". "..&|
00001EE0: 72 06 83 22 CC A4 A4 22 00 F3 26 7C 06 83 22 CE |r.."..."..&|..".|
00001EF0: A3 CD 22 00 FE 26 86 06 83 22 20 20 A7 22 00 09 |.."..&..." ."..|
00001F00: 27 90 06 83 22 20 A4 CE 22 00 14 27 9A 06 83 22 |'..." .."..'..."|
00001F10: 20 20 CD 22 00 1F 27 A4 06 83 22 20 20 A7 22 00 | ."..'..." .".|
00001F20: 2A 27 AE 06 83 22 CD A4 CE 22 00 35 27 B8 06 83 |*'..."...".5'...|
00001F30: 22 A5 A0 A5 22 00 40 27 C2 06 83 22 A5 A0 A5 22 |"...".@'..."..."|
00001F40: 00 4B 27 CC 06 83 22 CC A4 CC 22 00 56 27 D6 06 |.K'..."...".V'..|
00001F50: 83 22 20 20 A5 22 00 61 27 E0 06 83 22 20 20 A5 |." .".a'..." .|
00001F60: 22 00 6C 27 EA 06 83 22 20 20 A5 22 00 78 27 F4 |".l'..." .".x'.|
00001F70: 06 83 20 22 CF A3 A3 22 00 84 27 FE 06 83 20 22 |.. "..."..'... "|
00001F80: CC A4 20 22 00 90 27 08 07 83 20 22 20 20 CD 22 |.. "..'... " ."|
00001F90: 00 9C 27 12 07 83 20 22 20 20 A7 22 00 A8 27 1C |..'... " ."..'.|
00001FA0: 07 83 20 22 20 20 A7 22 00 B4 27 26 07 83 20 22 |.. " ."..'&.. "|
00001FB0: CD A4 CE 22 00 C0 27 30 07 83 20 22 CE A3 CD 22 |..."..'0.. "..."|
00001FC0: 00 CC 27 3A 07 83 20 22 A5 20 20 22 00 D8 27 44 |..':.. ". "..'D|
00001FD0: 07 83 20 22 CC A4 20 22 00 E4 27 4E 07 83 20 22 |.. ".. "..'N.. "|
00001FE0: A5 A0 CD 22 00 F0 27 58 07 83 20 22 A5 A0 A7 22 |..."..'X.. "..."|
00001FF0: 00 FC 27 62 07 83 20 22 CD A4 CE 22 00 08 28 6C |..'b.. "..."..(l|
00002000: 07 83 20 22 CF A3 D0 22 00 14 28 76 07 83 20 22 |.. "..."..(v.. "|
00002010: 20 20 CE 22 00 20 28 80 07 83 20 22 20 CE 20 22 | .". (... " . "|
00002020: 00 2C 28 8A 07 83 20 22 A7 20 20 22 00 38 28 94 |.,(... ". ".8(.|
00002030: 07 83 20 22 A7 20 20 22 00 44 28 9E 07 83 20 22 |.. ". ".D(... "|
00002040: A7 20 20 22 00 50 28 A8 07 83 20 22 CE A3 CD 22 |. ".P(... "..."|
00002050: 00 5C 28 B2 07 83 20 22 A5 A0 A7 22 00 68 28 BC |.\(... "...".h(.|
00002060: 07 83 20 22 CD A4 CE 22 00 74 28 C6 07 83 20 22 |.. "...".t(... "|
00002070: CE 20 CD 22 00 80 28 D0 07 83 20 22 A5 A0 A7 22 |. ."..(... "..."|
00002080: 00 8C 28 DA 07 83 20 22 CD A4 CE 22 00 98 28 E4 |..(... "..."..(.|
00002090: 07 83 20 22 CE A3 CD 22 00 A4 28 EE 07 83 20 22 |.. "..."..(... "|
000020A0: A5 20 A7 22 00 B0 28 F8 07 83 20 22 CD A4 BA 22 |. ."..(... "..."|
000020B0: 00 BC 28 02 08 83 20 22 20 20 A7 22 00 C8 28 0C |..(... " ."..(.|
000020C0: 08 83 20 22 20 20 A7 22 00 D4 28 16 08 83 20 22 |.. " ."..(... "|
000020D0: CD A4 CE 22 00 F3 28 20 08 8F 20 57 52 49 54 45 |..."..( .. WRITE|
000020E0: 20 42 4F 52 44 45 52 53 20 46 4F 52 20 44 49 47 | BORDERS FOR DIG|
000020F0: 49 54 53 00 FD 28 2A 08 99 22 20 22 3B 00 13 29 |ITS..(*.." ";..)|
00002100: 34 08 81 49 B2 31 A4 33 37 3A 99 22 A4 22 3B 3A |4..I.1.37:.".";:|
00002110: 82 3A 99 00 42 29 3E 08 99 22 A7 CD 20 20 20 20 |.:..B)>..".. |
00002120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CE | .|
00002140: A5 22 00 4D 29 48 08 81 49 B2 31 A4 32 00 7E 29 |.".M)H..I.1.2.~)|
00002150: 52 08 99 22 A7 22 A6 49 29 22 CD 22 A6 33 35 AB |R..".".I)".".35.|
00002160: 32 AC 49 29 22 CE 22 A6 49 29 22 A5 22 20 20 20 |2.I)".".I)"." |
00002170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 84 | ..|
00002180: 29 5C 08 82 00 BF 29 66 08 99 22 A7 20 20 20 CF |)\....)f..". .|
00002190: 22 3B 3A 81 49 B2 31 A4 32 39 3A 99 22 A3 22 3B |";:.I.1.29:.".";|
000021A0: 3A 82 3A 99 22 D0 20 20 20 A5 22 20 20 20 20 20 |:.:.". ." |
000021B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 | .|
000021C0: CA 29 70 08 81 49 B2 31 A4 38 00 E7 29 7A 08 99 |.)p..I.1.8..)z..|
000021D0: 22 A7 20 20 20 A5 22 A6 32 39 29 22 A7 20 20 20 |". .".29)". |
000021E0: A5 22 20 20 20 20 20 00 ED 29 84 08 82 00 27 2A |." ..)....'*|
000021F0: 8E 08 99 22 A7 20 20 20 CC 22 3B 3A 81 49 B2 31 |...". .";:.I.1|
00002200: A4 32 39 3A 99 22 A4 22 3B 3A 82 3A 99 22 BA 20 |.29:.".";:.:.". |
00002210: 20 20 A5 22 20 20 20 20 20 20 20 20 20 20 20 20 | ." |
00002220: 20 20 20 20 20 20 20 00 35 2A 98 08 81 49 B2 32 | .5*...I.2|
00002230: A4 31 A9 AB 31 00 55 2A A2 08 99 22 A7 22 A6 49 |.1..1.U*...".".I|
00002240: 29 22 CE 22 A6 33 35 AB 32 AC 49 29 22 CD 22 A6 |)".".35.2.I)".".|
00002250: 49 29 22 A5 22 00 5B 2A AC 08 82 00 8A 2A B6 08 |I)".".[*.....*..|
00002260: 99 22 A7 CE 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
00002270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002280: 20 20 20 20 20 20 20 CD A5 22 00 C5 2A C0 08 99 | .."..*...|
00002290: 22 20 22 3B 3A 81 49 B2 31 A4 33 37 3A 99 22 A3 |" ";:.I.1.37:.".|
000022A0: 22 3B 3A 82 3A 99 20 20 20 20 20 20 20 20 20 20 |";:.:. |
000022B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022C0: 20 20 20 20 20 00 CB 2A CA 08 8E 00 DD 2A D4 08 | ..*.....*..|
000022D0: 8F 20 54 49 4D 45 20 48 45 41 44 45 52 00 E7 2A |. TIME HEADER..*|
000022E0: DE 08 99 22 93 22 3B 00 F0 2A E8 08 57 B2 31 30 |...".";..*..W.10|
000022F0: 00 0D 2B F2 08 99 A6 57 29 22 A3 D0 A3 A3 A0 A3 |..+....W)"......|
00002300: CF A0 A7 CD 20 20 CE A5 20 CF A3 A3 22 00 2A 2B |.... .. ...".*+|
00002310: FC 08 99 A6 57 29 22 20 A7 20 20 20 20 A5 20 A7 |....W)" . . .|
00002320: 20 CD CE 20 A5 20 CC A4 20 22 00 47 2B 06 09 99 | .. . .. ".G+...|
00002330: A6 57 29 22 20 A7 A0 A0 A0 A0 A5 A0 A7 A0 A0 A0 |.W)" ...........|
00002340: A0 A5 A0 A5 A0 A0 22 00 64 2B 10 09 99 A6 57 29 |......".d+....W)|
00002350: 22 20 A7 20 20 20 A4 CC A0 A7 20 20 20 20 A5 20 |" . .... . |
00002360: CC A4 A4 22 00 6A 2B 1A 09 8E 00 82 2B 88 13 97 |...".j+.....+...|
00002370: 35 39 34 36 37 2C 31 36 3A 97 35 39 34 36 36 2C |59467,16:.59466,|
00002380: 31 33 00 9E 2B 89 13 81 52 B2 31 38 35 A4 38 30 |13..+...R.185.80|
00002390: A9 AB 33 3A 97 35 39 34 36 34 2C 52 3A 82 00 B6 |..3:.59464,R:...|
000023A0: 2B 8A 13 97 35 39 34 36 34 2C 30 3A 81 4C B2 31 |+...59464,0:.L.1|
000023B0: A4 32 30 30 3A 82 00 D3 2B 8B 13 81 52 B2 32 30 |.200:...+...R.20|
000023C0: 35 A4 31 30 35 A9 AB 33 3A 97 35 39 34 36 34 2C |5.105..3:.59464,|
000023D0: 52 3A 82 00 EF 2B 8C 13 81 52 B2 31 30 35 A4 32 |R:...+...R.105.2|
000023E0: 35 35 A9 33 3A 97 35 39 34 36 34 2C 52 3A 82 00 |55.3:.59464,R:..|
000023F0: 05 2C 8D 13 97 35 39 34 36 37 2C 30 3A 97 35 39 |.,...59467,0:.59|
00002400: 34 36 36 2C 30 00 0B 2C 8E 13 8E 00 00 00 |466,0..,...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...T."PLURALS.C0"
PRG S . "0.BIGTIME.C2"
,8. PRG.7.U.. +++ CHECK FOR HELP REQU
EST +++._.Z..UR$.UX$.195:. EXIT TO HELP
ROUTINE.N._..UF.1..240.{.D.UF.0:.:....F.
. ++ CHECK DELETE ++...I..C(UR$).1.50...
N.UR$.H(UR$,C(UR$).1).O.S..". ..";:.50.
..X.. ++ CHECK FOR VALID CHARACTERS ++..
.}..C(US$).0.150......US.1.C(US$).0....U
I$.J(US$,US,1)...6.....C...UI$."":..^...
. ** STANDARD INPUT **.O....F(UI$).46...
.....UI$.G(32)..... ..F(UI$).48.F(UI$).5
7.170............F(UI$).65.F(UI$).90.180
.F..........F(UI$).193.F(UI$).218.UI$.""
:.......B(UT).UU%.UI$.G(F(UI$).128):....
.... ...UI$."":..E.C.UF.1:. +++ HELP ROU
TINE EXIT +++.N.E..250.W.H..245.V.M..UQ.
UB.(U2%.256.U1%.U3%.2)...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:.B(5
0003).0..53281,6:.53280,14.'...UT$.UL$:.
".";:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).
<....UQ,UQ%(UQ.UB):..H....U1,U1%.T....U2
,U2%.`....U4,U4%.N....U3,U3%.1.V....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(U4).7...UJ$.
US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.=.....N.
,.. ** MENU **.T.-.:......".":.UT,UU%:.B
(50003).0..53281,9:.53280,8.../.:...1.."
. MENU".U.6.." ----------
----------------------------"...;.."..
1. BIGTIME "...@..".. 2.
USER INSTRUCTIONS".7.O..".. 3.
QUIT..".F.T.." -------------------------
-------------"...Y..".. PRESS A NU
MBER KEY (1-3) ";...^.UL.1:US$."123":.35
:. INPUT ROUTINE.J._..C(UR$).1.300.U.`.U
S$.""...C..E(UR$).1000,400,396...D..E(UR
$).2.Z$."H".1330...H..300.8.... ** RE-EN
ABLE STOP KEY AND END **.G....B(50003)..
1.B(50003)..160.B(50003)..0.399......UU.
71:.B(50003).0..53281,6:.53280,14......"
..":.......875:..I.... ** STUDENT INSTRU
CTIONS **......".":.UT,UL%:.B(50003).0..
53281,0:.53280,0.....UP.0:UG$."USER INST
":.850.G....". THIS PROGRAM SIMULATES A
DIGITAL CLOCK.".V...." YOU CAN CHOOSE EI
THER A 12 HOUR FORMAT"......". OR A 24 H
OUR FORMAT. YOU CAN ALSO SET".S....". AN
ALARM. (THE ALARM IS RATHER QUIET".....
.". THOUGH AND PROBABLY WILL NOT WAKE YO
U ".(.B..". UP FROM YOUR FRENCH CLASS.)"
.X.D..".. TYPE <H> AT ANY TIME TO RETURN
TO THE".H.F..". MENU. ".Q....835......U
Z.1..UP%:.217............ ** TEACHER INS
TRUCTIONS **......".":.UT,UL%:.B(50003).
0..53281,2:.53280,10.....UP.0:UG$."TEACH
ER INST":.850.+....".. TO THE BEST
OF OUR KNOWLEDGE,.".T...." THIS PROGRA
M IS IN THE PUBLIC."......" DOMAIN. I
F THIS IS NOT THE CASE."......" PLEASE
CONTACT:...".G...." COMMODORE BUSI
NESS MACHINES.".M.....S.....Y...........
....UP.1:. 835:. 850:......" ..PROGR
AM NAME: PROGRAM TITLE..%.....+.....1...
..X...." BASIC 2.0 PET COMPUTER.
....." BASIC 4.0 PET COMPUTER..
....." 8032 CBM COMPUTER..F...."
COMMODORE 64 COMPUTER.O....835.
X.D..835...N..UZ.1..UP%:.217...W.....X..
** PROGRAM MODIFICATION INST **.).Y..".
":.UT,UL%.I.].UP.0:UG$."PROGRAM MOD":.85
0.R....835.F....UZ.1..UP%:.217.L........
.. ** TO USE 8032 LOAD CBM4032 **.G.F.."
.....BEFORE RUNNING THIS PROGRAM ON AN 8
032 .....P.." LOAD THE 'CBM 4032'
PROGRAM............."...Z..UU.71.......3
.... ** TO USE 8032 LOAD CBM4032 **.~...
."....BEFORE RUNNING THIS PROGRAM ON AN
8032 ..LOAD CBM 4032 PROGRAM"......1093
:.... .. 826.H.".."....";:.UT,UU%:.B(500
03).0..53280,14:.53281,6...$..I.1.38:.".
..";:....&..I.1.22:.".....";:....(..I.1.
37:.".....";:..&.*..I.1.22:.".....";:..K
.,.."........................... ..M...
."................... . . .....0.."....
............... . ......2.."...........
......... ....:.....;.I.0...>.T1$."":T2
$."":T3$."":T4$."":I.0...@..300...C.. **
SPACE BAR PRESS **.>.H..UO,0:.H(UD$,24)
;".......PRESS SPACE BAR TO CONTINUE.".U
.L..UI$:.UI$.." ".844.[.N...{.R.. ** PAG
E DESIGN ROUTINE **...T.UP.UP.1...W.."."
H(UT$.UP$,21);I(UP$.UG$,18).Z.\.." -----
---------------------------------"...`..
UH..0.870...A..H(UD$,24);H(UP$,7);"HELP
- PRESS H <RETURN>"...F.UH.0:."..":..M
.K.. ** PLEASE WAIT REMARK **...P..H(UD$
,24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **..
...UX$."H":.UQ%(1000):UB.32768:U1.196:U2
.197:U3.198:U4.216:UC.167:UU.1024./...UT
.59468:UU%.12:UL%.14:UP%.1146:UM.32768:U
O.158:. 50003,0.R....B(50003).0.UB.1024:
U1.209:U2.210:U3.211:U4.214:UC.204:UU.20
48......B(50003).0.UT.53272:UU%.21:UL%.2
3:UP%.2139:UM.1024:UO.198.U...UD$.".....
....................".....UP$."
".U...UT$.
" BIGTIME ":. PLACE PROGRAM TI
TLE HERE !!!!!!!!!!!!!!!!!***.[.....U...
. ** SET VARIABLES **...... A$(9)......9
00.....:.....:...... ** CHECK FOR 8032 *
*.O....".":." ":. SHIFTED SPACE......B(U
B.40)..96..700...... ** MEMORY CHECK **.
..... .(0).2000.937.A...."....THIS MACHI
NE DOES NOT HAVE ENOUGH.".E...."MEMORY T
O RUN THIS PROGRAM !".P....UU.71.V......
...."..":.B(50003).0.962...... ** BASIC
2.0 OR 4.0 OR C-64 SETUP **......107
5,133:.1076,144:.1077,234:.1079,4:.1080,
133:.1081,145.3....1091,155:.1098,133:.1
099,144:.1100,234:.1103,133.U....1104,14
5:.1105,234:.1082,234.L....B(50003)..160
.955......1093,88:.1094,228:.1097,85:.11
02,228:.965......B(50003)..1.990......10
93,49:.1094,230:.1097,46:.1102,230:.965.
..B..2099,141:.2100,20:.2101,3:.2103,8:.
2104,141:.2105,21.U.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 STO
P KEY...J..800:. TITLE.N.T..300:. MENU..
....".THE PGM WILL NOT WORK ON THIS MACH
INE!":..4....UZ.1..UP%:.UP%:UZ.0:. ** PR
OGRAM STARTS HERE **.`...."..";:.:.B(500
03).0..53281,6:.53280,14......".":.UT,UL
%:. REVISED BY JOHN KACUR. .$..:UH.1:UG$
."":.850.J.%..".. DO YOU WANT THE ALARM
OPTION? ";...&.US$."YN":UL.1:.35...'..UR
$."Y".AL.1.. (..UR$."N".AL.0.: ).."... O
PTIONS:":.".. A) 12.00 HOUR FORMA
T".` *..". B) 24.00 HOUR FORMAT."
.. +..".. ENTER OPTION -> ";:US$.
"AB":UL.1:.35.. ,..UR$."A".OP.1.C L.. BI
G TIME 2.0 NON-STOP.. V.. ORIGINALLY BY
SCOTT MAUCUS..!`.. MODIFIED BY B. SEILER
..!J...)!T..I.0.9
.>!~.. SET UP A DIGIT.J!...J.1 .5.R!...
A$.R!... MOVE CURSOR DOWN & 3 LEFT..!..A
$(I).A$(I).A$."...."..!... J..!...A$..!D
.. MOVE CURSOR RIGHT & UP.U!N.A$(I).A$(I
).A$."......"..!X..I..!Y..AL.0.1260.,"Z.
.".":.UT,UU%:.".... PLEASE TYPE THE TIME
YOU WANT THE ALARM".O"..."..
MINUTES".W"..." HOURS
.. B ..SECONDS".."..."
. B .".."..." HHMMSS"
.."...H(UD$,14)"
......";..#..US$."0123456789":UL.6:.35:
AL$.UR$.$#...C(AL$)..6..1242.7#... ASK F
OR TIME.V#...".":.UT,UU%:.".....
PLEASE TYPE THE CURRENT TIME"..#..."..
MINUTES".A#..."
HOURS.. B ..SECONDS"..#..."
. B ."..$..."
HHMMSS".3$...H(UD$,14)"
......";.X$..US$."0123456789"
:UL.6:.35:A$.UR$.L$...C(A$)..6..1296..$.
.. SET TIME HERE..$(.TI$.A$..$2.. DRAW "
TIME" WORD..$<..2260.B$F.. DRAW BORDER B
OX.L$P..2090..$Z..**MAIN LOOP**..%D.. PO
SITION CURSOR AT1ST DIGIT..%N.."........
.........";.8%X.. DRAW NUMERALS FOR TIME
.C%...I.1.6.[%...A$(E(J(TI$,I,1)));.}%..
. INSERT COLON TWEEN HH-MM-SS..% ..I.2.I
.4..".W....W.....";..%...OP.1.E(TI$).126
000.TI$."000000".Y%...AL$.TI$..5000:.500
0..%...Z$:.Z$."H". .:.900:.300..%... I..
&... 1390."&... DIGITS DATA STRING.-&H..
"N.M".8&R..". .".C&...". .".N&...". .".Y
&...". .".D&..."M.N".O&..." N.".Z&..."
."..&..." ."..&".." ."..&,.." ."..&6.
."..L"..&@.."N.M"..&J.." .".G&T.." .N".
R&^.."N "..&H..". "..&R.."L.."..&|.."N
.M"..&..." ."..'..." .N"..'..." M"..'.
.." .".*'..."M.N".5'...". .".@'B..". ."
.K'L.."L.L".V'V.." .".A'..." .".L'..."
.".X'... "O.."..'... "L. "..'... " M"
..'... " ."..'... " ."..'&.. "M.N"..'0
.. "N.M".L':.. ". ".X'D.. "L. "..'N.. "
. M"..'X.. ". ."..'B.. "M.N"..(L.. "O.P"
..(V.. " N". (... " N ".,(... ". ".8(.
.. ". ".D(... ". ".P(... "N.M".\(... "
. .".H(... "M.N".T(F.. "N M"..(P.. ". ."
..(Z.. "M.N"..(... "N.M"..(... ". ."..(.
.. "M.."..(... " .".H(... " .".T(... "
M.N"..( .. WRITE BORDERS FOR DIGITS..(*.
." ";..)4..I.1.37:.".";:.:..B)>..".M
N.".M)H..
I.1.2.~)R..".".I)"M".35.2.I)"N".I)"."
..)\....)F..". O";:.I.1.
29:.".";:.:."P ." .
J)P..I.1.8..)Z..". .".29)". ." .
.)....'*...". L";:.I.1.29:.".";:.:.".
." .5*...I.2.1..1.U*
...".".I)"N".35.2.I)"M".I)".".[*.....*..
.".N M
.".E*..." ";:.I.1.37:.".";:.:.
.K*J....*T.. TIME H
EADER..*...".";..*..W.10..+....W)".P.. .
O .M N. O..".*+....W)" . . . MN . L.
".G+....W)" . . . . . ".D+....W)
" . .L . . L..".J+.....+...59467,16
:.59466,13..+...R.185.80..3:.59464,R:...
+...59464,0:.L.1.200:..S+...R.205.105..3
:.59464,R:...+...R.105.255.3:.59464,R:..
.,...59467,0:.59466,0..,......
> CLICK IMAGE PREVIEW FOR FULL MODAL