DISK-TEACHER
FILE INFORMATION
FILENAME(S): DISK-TEACHER
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-11-30 19:47:26
APPEARS ON: 2 disk(s)
FILE HASH
87d086d3e24f00b9d5e6f2be270168f19c0f3417f193a59b3c7e9e2de05b980b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEPROGRAMMER | DISK-TEACHER | PRG | Curtcool, Frank | 19 | 0 | DOWNLOAD FILE |
| HJ LPEDISK A5 1 | DISK-TEACHER | PRG | Curtcool, Frank | 21 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 E4 08 23 00 8F 20 2B |UTINE **...#.. +|
000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION|
000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U|
000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*|
00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 16 09 2D |..UL.0.UL.80...-|
00000110: 00 97 55 43 2C 30 00 2A 09 32 00 A1 55 49 24 3A |..UC,0.*.2..UI$:|
00000120: 8B 55 49 24 B2 22 22 A7 35 30 00 54 09 37 00 8B |.UI$."".50.T.7..|
00000130: 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 |UI$..(13)..(UR$)|
00000140: B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B |..1..UC,1:." .";|
00000150: 3A 89 38 35 00 67 09 3C 00 8B 55 49 24 B2 C7 28 |:.85.g.<..UI$..(|
00000160: 32 30 29 A7 31 30 35 00 7B 09 3E 00 8B 20 C3 28 |20).105.{.>.. .(|
00000170: 55 52 24 29 B2 B1 55 4C A7 35 30 00 A0 09 41 00 |UR$)..UL.50...A.|
00000180: 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |.120:. CHECK FOR|
00000190: 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 | VALID CHARACTER|
000001A0: 00 B0 09 46 00 55 52 24 B2 55 52 24 AA 55 49 24 |...F.UR$.UR$.UI$|
000001B0: 00 BA 09 4B 00 99 55 49 24 3B 00 C2 09 50 00 89 |...K..UI$;...P..|
000001C0: 35 30 00 E7 09 55 00 8F 20 2B 2B 2B 20 43 48 45 |50...U.. +++ CHE|
000001D0: 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 |CK FOR HELP REQU|
000001E0: 45 53 54 20 2B 2B 2B 00 0F 0A 5A 00 8B 55 52 24 |EST +++...Z..UR$|
000001F0: B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 |.UX$.195:. EXIT |
00000200: 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 |TO HELP ROUTINE.|
00000210: 1E 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 2B |.._..UF.1..240.+|
00000220: 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 44 0A 66 00 |.d.UF.0:.:..D.f.|
00000230: 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 |. ++ CHECK DELET|
00000240: 45 20 2B 2B 00 55 0A 69 00 8B C3 28 55 52 24 29 |E ++.U.i...(UR$)|
00000250: B3 31 A7 35 30 00 6D 0A 6E 00 55 52 24 B2 C8 28 |.1.50.m.n.UR$..(|
00000260: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 7F 0A |UR$,.(UR$).1)...|
00000270: 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 |s..". ..";:.50.|
00000280: A6 0A 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 |..x.. ++ CHECK F|
00000290: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT|
000002A0: 45 52 53 20 2B 2B 00 B8 0A 7D 00 8B C3 28 55 53 |ERS ++...}...(US|
000002B0: 24 29 B2 30 A7 31 35 30 00 C9 0A 82 00 81 55 53 |$).0.150......US|
000002C0: B2 31 A4 C3 28 55 53 24 29 00 E0 0A 87 00 8B 55 |.1..(US$)......U|
000002D0: 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E |I$..(US$,US,1)..|
000002E0: 00 E6 0A 8C 00 82 00 F3 0A 91 00 55 49 24 B2 22 |...........UI$."|
000002F0: 22 3A 8E 00 0E 0B 96 00 8F 20 2A 2A 20 53 54 41 |":....... ** STA|
00000300: 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 1F |NDARD INPUT **..|
00000310: 0B 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 |.....(UI$).46...|
00000320: 30 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E |0....UI$..(32)..|
00000330: 00 4D 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 |.M.....(UI$).48.|
00000340: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 53 0B |.(UI$).57.170.S.|
00000350: A5 00 8E 00 70 0B AA 00 8B C6 28 55 49 24 29 B3 |....p.....(UI$).|
00000360: 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 |65..(UI$).90.180|
00000370: 00 76 0B AF 00 8E 00 9A 0B B4 00 8B C6 28 55 49 |.v...........(UI|
00000380: 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 |$).193..(UI$).21|
00000390: 38 A7 55 49 24 B2 22 22 3A 8E 00 BD 0B B9 00 8B |8.UI$."":.......|
000003A0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(|
000003B0: C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 C3 0B |.(UI$).128):....|
000003C0: BB 00 8E 00 D0 0B BE 00 55 49 24 B2 22 22 3A 8E |........UI$."":.|
000003D0: 00 F5 0B C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 |.....UF.1:. +++ |
000003E0: 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 |HELP ROUTINE EXI|
000003F0: 54 20 2B 2B 2B 00 FE 0B C5 00 8D 32 35 30 00 07 |T +++......250..|
00000400: 0C C8 00 8D 32 34 35 00 26 0C CD 00 81 55 51 B2 |....245.&....UQ.|
00000410: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.|
00000420: 55 33 25 AB 32 29 00 42 0C D2 00 55 51 25 28 55 |U3%.2).B...UQ%(U|
00000430: 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 |Q.UB)..(UQ):.:."|
00000440: 93 22 00 55 0C D7 00 55 5A B2 31 3A 55 56 25 B2 |.".U...UZ.1:UV%.|
00000450: C2 28 55 54 29 00 5E 0C D8 00 89 33 30 30 00 A2 |.(UT).^....300..|
00000460: 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A |...UZ.0:US$.UJ$:|
00000470: 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C |UG$.UK$:UP.UJ:UL|
00000480: B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.UK:..(50003).0.|
00000490: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
000004A0: 31 34 00 D7 0C DC 00 55 54 24 B2 55 4C 24 3A 99 |14.....UT$.UL$:.|
000004B0: 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 |".";:.UT,UV%:.UQ|
000004C0: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
000004D0: AA 55 33 25 AB 33 29 00 EC 0C E1 00 97 55 51 2C |.U3%.3)......UQ,|
000004E0: 55 51 25 28 55 51 AB 55 42 29 3A 82 00 F8 0C E6 |UQ%(UQ.UB):.....|
000004F0: 00 97 55 31 2C 55 31 25 00 04 0D E8 00 97 55 32 |..U1,U1%......U2|
00000500: 2C 55 32 25 00 10 0D E9 00 97 55 34 2C 55 34 25 |,U2%......U4,U4%|
00000510: 00 1E 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 26 |......U3,U3%.1.&|
00000520: 0D EB 00 89 33 35 00 58 0D F0 00 55 44 25 B2 28 |....35.X...UD%.(|
00000530: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
00000540: 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C |).UB).40:..(UD$,|
00000550: 55 44 25 AA 31 29 3A 8E 00 93 0D F5 00 99 C8 28 |UD%.1):........(|
00000560: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
00000580: 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 | HELP COMING . |
00000590: 22 3A 8E 00 BF 0D FA 00 55 31 25 B2 C2 28 55 31 |":......U1%..(U1|
000005A0: 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 |):U2%..(U2):U3%.|
000005B0: C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 |.(U3):U4%..(U4).|
000005C0: E7 0D FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |....UJ$.US$:UK$.|
000005D0: 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 |UG$:UL$.UT$:UJ.U|
000005E0: 50 3A 55 4B B2 55 4C 00 ED 0D FF 00 8E 00 FE 0D |P:UK.UL.........|
000005F0: 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 04 |,.. ** MENU **..|
00000600: 0E 2D 01 3A 00 33 0E 2E 01 99 22 93 22 3A 97 55 |.-.:.3....".":.U|
00000610: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).|
00000620: 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 |0..53281,9:.5328|
00000630: 30 2C 38 00 39 0E 2F 01 3A 00 56 0E 31 01 99 22 |0,8.9./.:.V.1.."|
00000640: 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000650: 20 4D 45 4E 55 22 00 85 0E 36 01 99 22 20 2D 2D | MENU"...6.." --|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 22 00 AE 0E 3B 01 99 22 11 11 20 20 |----"...;..".. |
00000690: 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E 20 | 1. BEGIN |
000006A0: 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 22 00 D8 |DISK COMMANDS"..|
000006B0: 0E 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.|
000006C0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
000006D0: 55 43 54 49 4F 4E 53 22 00 02 0F 45 01 99 22 11 |UCTIONS"...E..".|
000006E0: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
000006F0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000700: 53 22 00 1E 0F 4F 01 99 22 11 11 20 20 20 20 20 |S"...O..".. |
00000710: 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 4D | 4. QUIT..".M|
00000720: 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 78 0F |------------".x.|
00000750: 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 |Y..".. PRE|
00000760: 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 |SS A NUMBER KEY |
00000770: 28 31 2D 35 29 20 22 3B 00 A0 0F 5E 01 55 4C B2 |(1-5) ";...^.UL.|
00000780: 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 |1:US$."1234":.35|
00000790: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE|
000007A0: 00 AB 0F 60 01 55 53 24 B2 22 22 00 C8 0F 63 01 |...`.US$.""...c.|
000007B0: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400|
000007C0: 2C 35 30 30 2C 33 39 36 00 D1 0F 68 01 89 33 30 |,500,396...h..30|
000007D0: 30 00 F8 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0...... ** RE-EN|
000007E0: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
000007F0: 44 20 45 4E 44 20 2A 2A 00 27 10 8C 01 8B C2 28 |D END **.'.....(|
00000800: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000810: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000820: B3 B1 30 A7 33 39 39 00 51 10 8D 01 9E 55 55 AA |..0.399.Q....UU.|
00000830: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
00000840: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000850: 34 00 5D 10 8E 01 99 22 9A 93 22 3A 80 00 68 10 |4.]...."..":..h.|
00000860: 8F 01 8D 38 37 35 3A 8E 00 89 10 90 01 8F 20 2A |...875:....... *|
00000870: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
00000880: 43 54 49 4F 4E 53 20 2A 2A 00 B8 10 95 01 99 22 |CTIONS **......"|
00000890: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
000008A0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
000008B0: 97 35 33 32 38 30 2C 30 00 DE 10 9A 01 55 48 B2 |.53280,0.....UH.|
000008C0: 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 |1:UP.0:UG$.".TUD|
000008D0: 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 0C |ENT .NST":.850..|
000008E0: 11 9E 01 99 22 11 11 11 11 20 20 20 20 20 20 D4 |....".... .|
000008F0: 48 49 53 20 50 52 4F 47 52 41 4D 20 53 48 4F 55 |HIS PROGRAM SHOU|
00000900: 4C 44 20 48 45 4C 50 20 59 4F 55 22 00 37 11 A0 |LD HELP YOU".7..|
00000910: 01 99 22 11 20 20 20 20 20 20 54 4F 20 55 4E 44 |..". TO UND|
00000920: 45 52 53 54 41 4E 44 20 48 4F 57 20 54 4F 20 55 |ERSTAND HOW TO U|
00000930: 53 45 20 54 48 45 22 00 57 11 A2 01 99 22 11 20 |SE THE".W....". |
00000940: 20 20 20 20 20 34 30 34 30 20 C4 C9 D3 CB A0 D3 | 4040 ......|
00000950: D9 D3 D4 C5 CD 20 22 00 76 11 A4 01 99 22 11 20 |..... ".v....". |
00000960: 20 20 20 20 20 D7 49 54 48 20 C4 4F 53 20 32 2E | .ITH .OS 2.|
00000970: 30 20 41 4E 44 22 00 9D 11 A6 01 99 22 11 20 20 |0 AND"......". |
00000980: 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 C4 49 | ..... 4.0 .I|
00000990: 53 4B 20 CC 41 4E 47 55 41 47 45 2E 22 00 CE 11 |SK .ANGUAGE."...|
000009A0: A7 01 99 22 11 20 28 D4 48 49 53 20 50 52 4F 47 |...". (.HIS PROG|
000009B0: 52 41 4D 20 57 49 4C 4C 20 4E 4F 54 20 48 41 52 |RAM WILL NOT HAR|
000009C0: 4D 20 59 4F 55 52 20 44 49 53 4B 2E 29 22 00 E8 |M YOUR DISK.)"..|
000009D0: 11 A8 01 8D 20 38 33 35 3A 55 50 B2 31 3A 55 48 |.... 835:UP.1:UH|
000009E0: B2 31 3A 8D 20 38 35 30 00 14 12 AA 01 99 22 11 |.1:. 850......".|
000009F0: 11 11 11 20 20 20 20 20 20 D4 48 45 20 50 52 4F |... .HE PRO|
00000A00: 47 52 41 4D 20 57 49 4C 4C 20 47 49 56 45 20 D9 |GRAM WILL GIVE .|
00000A10: 4F 55 20 22 00 43 12 AC 01 99 22 11 20 20 20 20 |OU ".C....". |
00000A20: 20 20 54 48 45 20 C3 4F 4D 4D 41 4E 44 53 20 46 | THE .OMMANDS F|
00000A30: 4F 52 20 54 48 45 20 C4 49 53 4B 20 C4 52 49 56 |OR THE .ISK .RIV|
00000A40: 45 2C 22 00 69 12 AE 01 99 22 11 20 20 20 20 20 |E,".i....". |
00000A50: 20 D5 53 49 4E 47 20 54 48 45 20 C4 CF D3 20 D7 | .SING THE ... .|
00000A60: 45 44 47 45 20 28 3E 29 22 00 87 12 B0 01 99 22 |EDGE (>)"......"|
00000A70: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000A80: 20 20 C1 CE C4 20 22 00 AE 12 B2 01 99 22 11 20 | ... "......". |
00000A90: 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 C4 | ..... 4.0 .|
00000AA0: 49 53 4B 20 CC 41 4E 47 55 41 47 45 2E 22 00 C8 |ISK .ANGUAGE."..|
00000AB0: 12 B4 01 8D 20 38 33 35 3A 55 50 B2 32 3A 55 48 |.... 835:UP.2:UH|
00000AC0: B2 31 3A 8D 20 38 35 30 00 F1 12 B6 01 99 22 11 |.1:. 850......".|
00000AD0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
00000AE0: D4 48 45 20 50 52 45 53 45 4E 54 41 54 49 4F 4E |.HE PRESENTATION|
00000AF0: 22 00 1B 13 B8 01 99 22 11 20 20 20 20 20 20 20 |"......". |
00000B00: 20 20 57 49 4C 4C 20 42 45 20 49 4E 20 54 48 45 | WILL BE IN THE|
00000B10: 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 38 13 BA 01 | FOLLOWING".8...|
00000B20: 99 22 11 20 20 20 20 20 20 20 20 20 4D 41 4E 4E |.". MANN|
00000B30: 45 52 20 2E 2E 2E 20 22 00 52 13 BC 01 8D 20 38 |ER ... ".R.... 8|
00000B40: 33 35 3A 55 50 B2 33 3A 55 48 B2 31 3A 8D 20 38 |35:UP.3:UH.1:. 8|
00000B50: 35 30 00 69 13 BE 01 99 22 11 20 12 C3 4F 4D 4D |50.i....". ..OMM|
00000B60: 41 4E 44 20 CE 41 4D 45 22 00 8E 13 C0 01 99 22 |AND .AME"......"|
00000B70: 11 11 11 11 11 11 20 20 20 20 20 20 20 D4 48 45 |...... .HE|
00000B80: 20 C9 4E 46 4F 52 4D 41 54 49 4F 4E 20 22 00 A5 | .NFORMATION "..|
00000B90: 13 C2 01 99 22 11 11 11 11 11 20 20 20 20 20 D3 |...."..... .|
00000BA0: 59 4E 54 41 58 00 BB 13 C4 01 99 22 11 20 C4 4F |YNTAX......". .O|
00000BB0: 53 20 32 2E 30 20 20 20 3D 20 22 00 D1 13 C6 01 |S 2.0 = ".....|
00000BC0: 99 22 11 20 C2 C1 D3 C9 C3 20 34 2E 30 20 3D 20 |.". ..... 4.0 = |
00000BD0: 22 00 EB 13 C8 01 8D 20 38 33 35 3A 55 50 B2 34 |"...... 835:UP.4|
00000BE0: 3A 55 48 B2 31 3A 8D 20 38 35 30 00 1B 14 CA 01 |:UH.1:. 850.....|
00000BF0: 99 22 11 11 11 20 CE 4F 54 45 20 3A 20 20 D4 4F |."... .OTE : .O|
00000C00: 20 41 44 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E | ADVANCE FROM ON|
00000C10: 45 20 53 43 52 45 45 4E 20 20 22 00 3E 14 CC 01 |E SCREEN ".>...|
00000C20: 99 22 11 20 20 20 20 20 20 20 20 20 54 4F 20 54 |.". TO T|
00000C30: 48 45 20 4E 45 58 54 20 50 52 45 53 53 22 00 60 |HE NEXT PRESS".`|
00000C40: 14 CE 01 99 22 11 20 20 20 20 20 20 20 20 20 54 |....". T|
00000C50: 48 45 20 3C 53 50 41 43 45 3E 20 42 41 52 2E 22 |HE <SPACE> BAR."|
00000C60: 00 7A 14 D6 01 8D 20 38 33 35 3A 55 50 B2 35 3A |.z.... 835:UP.5:|
00000C70: 55 48 B2 31 3A 8D 20 38 35 30 00 A1 14 D8 01 99 |UH.1:. 850......|
00000C80: 22 11 11 20 CE 4F 54 45 20 3A 20 20 D9 4F 55 20 |".. .OTE : .OU |
00000C90: 53 48 4F 55 4C 44 20 4B 4E 4F 57 20 54 48 45 20 |SHOULD KNOW THE |
00000CA0: 22 00 CB 14 DA 01 99 22 11 20 20 20 20 20 20 20 |"......". |
00000CB0: 20 20 46 4F 4C 4C 4F 57 49 4E 47 20 41 42 42 52 | FOLLOWING ABBR|
00000CC0: 45 56 49 41 54 49 4F 4E 53 21 22 00 ED 14 DC 01 |EVIATIONS!".....|
00000CD0: 99 22 11 20 20 20 20 20 20 20 20 20 28 44 52 29 |.". (DR)|
00000CE0: 20 20 20 3A 20 C4 52 49 56 45 20 23 22 00 1B 15 | : .RIVE #"...|
00000CF0: DD 01 99 22 11 20 20 20 20 20 20 20 20 20 28 44 |...". (D|
00000D00: 44 52 29 20 20 3A 20 C4 45 53 54 49 4E 41 54 49 |DR) : .ESTINATI|
00000D10: 4F 4E 20 44 52 49 56 45 20 23 22 00 44 15 DE 01 |ON DRIVE #".D...|
00000D20: 99 22 11 20 20 20 20 20 20 20 20 20 28 53 44 52 |.". (SDR|
00000D30: 29 20 20 3A 20 D3 4F 55 52 43 45 20 C4 52 49 56 |) : .OURCE .RIV|
00000D40: 45 20 23 22 00 6D 15 DF 01 99 22 11 20 20 20 20 |E #".m....". |
00000D50: 20 20 20 20 20 20 46 4E 20 20 20 20 3A 20 46 49 | FN : FI|
00000D60: 4C 45 20 4E 41 4D 45 20 20 20 20 20 22 00 9A 15 |LE NAME "...|
00000D70: E0 01 99 22 11 20 20 20 20 20 20 20 20 20 20 4F |...". O|
00000D80: 46 4E 20 20 20 3A 20 4F 4C 44 20 46 49 4C 45 20 |FN : OLD FILE |
00000D90: 4E 41 4D 45 20 20 20 20 20 22 00 C7 15 E1 01 99 |NAME "......|
00000DA0: 22 11 20 20 20 20 20 20 20 20 20 20 4E 46 4E 20 |". NFN |
00000DB0: 20 20 3A 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D | : NEW FILE NAM|
00000DC0: 45 20 20 20 20 20 22 00 E1 15 E2 01 8D 20 38 33 |E "...... 83|
00000DD0: 35 3A 55 50 B2 36 3A 55 48 B2 31 3A 8D 20 38 35 |5:UP.6:UH.1:. 85|
00000DE0: 30 00 09 16 E3 01 99 22 11 20 20 20 20 20 20 20 |0......". |
00000DF0: 20 20 28 58 58 29 20 20 20 3A 20 C1 4C 50 48 41 | (XX) : .LPHA|
00000E00: 2D CE 55 4D 45 52 49 43 22 00 31 16 E4 01 99 22 |-.UMERIC".1...."|
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E20: 20 20 49 44 45 4E 54 49 46 49 43 41 54 49 4F 4E | IDENTIFICATION|
00000E30: 22 00 65 16 E5 01 99 22 11 20 20 20 20 20 20 20 |".e....". |
00000E40: 20 20 20 27 27 20 20 20 20 3A 20 CE CF D4 C5 20 | '' : .... |
00000E50: D4 48 45 20 22 3B C7 28 33 34 29 3B 22 20 22 3B |.HE ";.(34);" ";|
00000E60: C7 28 33 34 29 00 8D 16 E6 01 99 22 20 20 20 20 |.(34)......" |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 53 | IS|
00000E80: 20 55 53 45 44 20 4D 4F 53 54 4C 59 22 00 B5 16 | USED MOSTLY"...|
00000E90: E7 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000EA0: 20 20 20 20 20 20 57 49 54 48 20 C2 C1 D3 C9 C3 | WITH .....|
00000EB0: 20 34 2E 30 22 00 BE 16 E8 01 8D 38 33 35 00 D2 | 4.0"......835..|
00000EC0: 16 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000ED0: 31 37 00 D8 16 F3 01 8E 00 F9 16 F4 01 8F 20 2A |17............ *|
00000EE0: 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 |* TEACHER INSTRU|
00000EF0: 43 54 49 4F 4E 53 20 2A 2A 00 29 17 F5 01 99 22 |CTIONS **.)...."|
00000F00: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000F10: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00000F20: 97 35 33 32 38 30 2C 31 30 00 4A 17 F6 01 55 50 |.53280,10.J...UP|
00000F30: B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 |.0:UG$.".EACHER |
00000F40: C9 4E 53 54 22 3A 8D 38 35 30 00 78 17 F7 01 99 |.NST":.850.x....|
00000F50: 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 |".. .O THE |
00000F60: 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 |BEST OF OUR KNOW|
00000F70: 4C 45 44 47 45 2C 11 22 00 A1 17 F8 01 99 22 20 |LEDGE,."......" |
00000F80: 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | THIS PROGRAM I|
00000F90: 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 |S IN THE PUBLIC.|
00000FA0: 22 00 CD 17 F9 01 99 22 20 20 20 44 4F 4D 41 49 |"......" DOMAI|
00000FB0: 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E |N. .F THIS IS N|
00000FC0: 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 EA 17 |OT THE CASE."...|
00000FD0: FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F |..." PLEASE CO|
00000FE0: 4E 54 41 43 54 3A 11 11 11 22 00 14 18 FB 01 99 |NTACT:..."......|
00000FF0: 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 |" .OMMODORE|
00001000: 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E | .USINESS .ACHIN|
00001010: 45 53 11 22 00 37 18 FC 01 99 22 20 20 20 20 20 |ES.".7...." |
00001020: 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 | 3370 .HARMA|
00001030: 43 59 20 C1 56 45 2E 00 5B 18 FD 01 99 22 20 20 |CY .VE..[...." |
00001040: 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 | .GINCOUR|
00001050: 54 2C 20 CF 4E 54 41 52 49 4F 22 00 7D 18 FE 01 |T, .NTARIO".}...|
00001060: 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 |." .ANA|
00001070: 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 9D 18 |DA .1. 2.4"...|
00001080: FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 |..." (4|
00001090: 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 B3 18 |16) 499-4292"...|
000010A0: 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 |..UP.1:. 835:. 8|
000010B0: 35 30 3A 00 DD 18 01 02 99 22 20 20 20 20 20 11 |50:......" .|
000010C0: 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C4 |..ROGRAM .AME: .|
000010D0: 49 53 4B 20 C3 4F 4D 4D 41 4E 44 53 11 00 03 19 |ISK .OMMANDS....|
000010E0: 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |..." .RITTEN|
000010F0: 20 C2 59 20 20 3A 20 CA 4F 48 4E 20 D3 49 53 53 | .Y : .OHN .ISS|
00001100: 4F 4E 11 00 27 19 03 02 99 22 20 20 20 20 20 D5 |ON..'...." .|
00001110: 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 |PGRADED .Y : |
00001120: 20 20 20 20 20 20 11 00 52 19 04 02 99 22 20 20 | ..R...." |
00001130: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00001140: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00001150: 11 11 00 79 19 05 02 99 22 20 20 20 20 20 20 20 |...y...." |
00001160: 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 | ......2.0 ... |
00001170: C3 CF CD D0 D5 D4 C5 D2 11 00 A0 19 06 02 99 22 |..............."|
00001180: 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 | ..... 4|
00001190: 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 |.0 .............|
000011A0: 00 C2 19 07 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
000011B0: 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 |8032 ... .......|
000011C0: D2 11 00 E7 19 08 02 99 22 20 20 20 20 20 20 20 |........" |
000011D0: 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 | ......... 64 .|
000011E0: CF CD D0 D5 D4 C5 D2 00 F0 19 09 02 8D 38 33 35 |.............835|
000011F0: 00 04 1A 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |...N..UZ.1..UP%:|
00001200: 89 32 31 37 00 0A 1A 57 02 8E 00 30 1A 58 02 8F |.217...W...0.X..|
00001210: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI|
00001220: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **|
00001230: 00 36 1A BB 02 8E 00 5B 1A BC 02 8F 20 2A 2A 20 |.6.....[.... ** |
00001240: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00001250: 20 43 42 4D 34 30 33 32 20 2A 2A 00 91 1A C6 02 | CBM4032 **.....|
00001260: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00001270: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00001280: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00001290: 11 00 C7 1A D0 02 99 22 20 20 20 20 20 20 4C 4F |......." LO|
000012A0: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
000012B0: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
000012C0: 11 11 11 11 11 11 22 00 D2 1A DA 02 9E 55 55 AA |......"......UU.|
000012D0: 37 31 00 D8 1A E4 02 80 00 FD 1A 1D 03 8F 20 2A |71............ *|
000012E0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
000012F0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 48 1B |AD CBM4032 **.H.|
00001300: 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 |..."....BEFORE R|
00001310: 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |UNNING THIS PROG|
00001320: 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 |RAM ON AN 8032 |
00001330: 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 |..LOAD CBM 4032 |
00001340: 50 52 4F 47 52 41 4D 22 00 54 1B 1F 03 9E 31 30 |PROGRAM".T....10|
00001350: 39 33 3A 80 00 74 1B 20 03 8F 20 2A 2A 20 54 20 |93:..t. .. ** T |
00001360: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00001370: 45 20 2A 2A 00 A8 1B 22 03 99 22 93 11 1D 05 22 |E **...".."...."|
00001380: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00001390: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
000013A0: 97 35 33 32 38 31 2C 36 00 BE 1B 24 03 81 49 B2 |.53281,6...$..I.|
000013B0: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 D6 |1.38:."...";:...|
000013C0: 1B 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
000013D0: A6 92 22 3B 3A 82 00 EE 1B 28 03 81 49 B2 31 A4 |..";:....(..I.1.|
000013E0: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 06 |37:.".....";:...|
000013F0: 1C 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00001400: A6 92 22 3B 3A 82 00 2B 1C 2C 03 99 22 13 11 11 |..";:..+.,.."...|
00001410: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001420: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 4D 1C 2E 03 |........ ..M...|
00001430: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001440: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 6E 1C |..... . . ...n.|
00001450: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
00001460: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 8C |....... . .....|
00001470: 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00001480: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 B4 1C 34 |......... ....4|
00001490: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000014A0: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
000014B0: 20 45 11 11 00 D7 1C 36 03 99 22 1D 1D 1D 1D 1D | E.....6..".....|
000014C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
000014D0: 49 4F 4E 41 4C 11 11 00 F6 1C 38 03 99 22 1D 1D |IONAL.....8.."..|
000014E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
000014F0: 46 54 57 41 52 45 00 11 1D 3A 03 8F 20 2A 2A 20 |FTWARE...:.. ** |
00001500: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
00001510: 2A 00 49 1D 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*.I.;...(UD$,24)|
00001520: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
00001530: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
00001540: 41 49 54 92 22 3A 49 B2 30 00 6B 1D 3C 03 A1 41 |AIT.":I.0.k.<..A|
00001550: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
00001560: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 8F 1D 3E 03 |:.I.250.828...>.|
00001570: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
00001580: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
00001590: 98 1D 40 03 89 33 30 30 00 B4 1D 43 03 8F 20 2A |..@..300...C.. *|
000015A0: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
000015B0: 53 20 2A 2A 00 EF 1D 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.|
000015C0: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
000015D0: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
000015E0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".|
000015F0: 06 1E 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."|
00001600: 20 22 A7 38 34 34 00 0C 1E 4E 03 8E 00 2C 1E 52 | ".844...N...,.R|
00001610: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
00001620: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 38 1E 54 |N ROUTINE **.8.T|
00001630: 03 55 50 B2 55 50 AA 31 00 62 1E 57 03 99 22 93 |.UP.UP.1.b.W..".|
00001640: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
00001650: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
00001660: 38 29 00 91 1E 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8)...\.." ------|
00001670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001690: 22 00 A0 1E 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |"...`..UH..0.870|
000016A0: 00 D4 1E 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);|
000016B0: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
000016C0: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
000016D0: 52 4E 3E 22 00 E5 1E 66 03 55 48 B2 30 3A 99 22 |RN>"...f.UH.0:."|
000016E0: 13 11 22 3A 8E 00 04 1F 6B 03 8F 20 2A 2A 20 50 |..":....k.. ** P|
000016F0: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001700: 4B 20 2A 2A 00 3A 1F 70 03 99 C8 28 55 44 24 2C |K **.:.p...(UD$,|
00001710: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001720: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001730: 45 2E 2E 2E 20 20 20 20 20 22 00 40 1F 75 03 8E |E... ".@.u..|
00001740: 00 5D 1F 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |.].... ** SET UP|
00001750: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 A8 1F | VARIABLES **...|
00001760: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
00001770: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001780: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00001790: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
000017A0: 3A 55 55 B2 31 30 32 34 00 E6 1F 86 03 55 54 B2 |:UU.1024.....UT.|
000017B0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
000017C0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
000017D0: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
000017E0: 30 30 30 33 2C 30 00 29 20 87 03 8B C2 28 35 30 |0003,0.) ....(50|
000017F0: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001800: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001810: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001820: 34 3A 55 55 B2 32 30 34 38 00 68 20 88 03 8B C2 |4:UU.2048.h ....|
00001830: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001840: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001850: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001860: 34 3A 55 4F B2 31 39 38 00 8C 20 89 03 55 44 24 |4:UO.198.. ..UD$|
00001870: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001880: 11 11 11 11 11 11 11 11 11 11 11 22 00 BE 20 8A |...........".. .|
00001890: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 0C | "..|
000018C0: 21 8B 03 55 54 24 B2 22 20 C4 C9 D3 CB A0 C3 CF |!..UT$." .......|
000018D0: CD CD C1 CE C4 D3 A0 A0 A0 A0 A0 22 3A 8F 20 50 |...........":. P|
000018E0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
000018F0: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
00001900: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 12 21 8C |!!!!!!!!!***..!.|
00001910: 03 8E 00 2C 21 8E 03 8F 20 2A 2A 20 53 45 54 20 |...,!... ** SET |
00001920: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 35 21 93 |VARIABLES **.5!.|
00001930: 03 8D 39 30 30 00 52 21 94 03 86 20 53 59 4E 24 |..900.R!... SYN$|
00001940: 28 31 32 2C 33 29 2C 53 45 4E 54 24 28 31 32 2C |(12,3),SENT$(12,|
00001950: 35 29 00 6D 21 98 03 8F 20 2A 2A 20 43 48 45 43 |5).m!... ** CHEC|
00001960: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 8B 21 |K FOR 8032 **..!|
00001970: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
00001980: 49 46 54 45 44 20 53 50 41 43 45 00 A2 21 A2 03 |IFTED SPACE..!..|
00001990: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
000019A0: 30 30 00 BB 21 A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00..!... ** MEMO|
000019B0: 52 59 20 43 48 45 43 4B 20 2A 2A 00 CF 21 A4 03 |RY CHECK **..!..|
000019C0: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
000019D0: FD 21 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |.!..."....THIS M|
000019E0: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
000019F0: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 21 22 |HAVE ENOUGH.".!"|
00001A00: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001A10: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
00001A20: 22 00 2C 22 A7 03 9E 55 55 AA 37 31 00 32 22 A8 |".,"...UU.71.2".|
00001A30: 03 80 00 4C 22 A9 03 99 22 93 05 22 3A 8B C2 28 |...L"..."..":..(|
00001A40: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 7B 22 AC |50003).0.962.{".|
00001A50: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
00001A60: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
00001A70: 36 34 20 53 45 54 55 50 20 2A 2A 00 B9 22 AD 03 |64 SETUP **.."..|
00001A80: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
00001A90: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
00001AA0: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001AB0: 97 31 30 38 31 2C 31 34 35 00 EF 22 AE 03 97 31 |.1081,145.."...1|
00001AC0: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001AD0: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001AE0: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001AF0: 11 23 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.#...1104,145:.1|
00001B00: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001B10: 34 00 28 23 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.(#....(50003).|
00001B20: B1 31 36 30 A7 39 35 35 00 57 23 B6 03 97 31 30 |.160.955.W#...10|
00001B30: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
00001B40: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
00001B50: 32 38 3A 89 39 36 35 00 6C 23 BB 03 8B C2 28 35 |28:.965.l#....(5|
00001B60: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 9B 23 C0 |0003)..1.990..#.|
00001B70: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
00001B80: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
00001B90: 30 32 2C 32 33 30 3A 89 39 36 35 00 D5 23 C2 03 |02,230:.965..#..|
00001BA0: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001BB0: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001BC0: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001BD0: 30 35 2C 32 31 00 11 24 C3 03 97 32 31 30 36 2C |05,21..$...2106,|
00001BE0: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001BF0: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001C00: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001C10: 31 00 4B 24 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1.K$...2123,20:.|
00001C20: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
00001C30: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
00001C40: 2C 32 31 3A 97 32 31 32 39 2C 33 00 69 24 C5 03 |,21:.2129,3.i$..|
00001C50: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
00001C60: 20 53 54 4F 50 20 4B 45 59 00 7A 24 CA 03 8D 38 | STOP KEY.z$...8|
00001C70: 30 30 3A 8F 20 54 49 54 4C 45 00 8A 24 D4 03 89 |00:. TITLE..$...|
00001C80: 33 30 30 3A 8F 20 4D 45 4E 55 00 BB 24 DE 03 99 |300:. MENU..$...|
00001C90: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
00001CA0: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001CB0: 4D 41 43 48 49 4E 45 21 22 3A 80 00 F0 24 E8 03 |MACHINE!":...$..|
00001CC0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001CD0: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001CE0: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001CF0: 00 1C 25 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |..%..."..";:.:..|
00001D00: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001D10: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 3E 25 ED |,6:.53280,14.>%.|
00001D20: 03 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00001D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 5D |--------------.]|
00001D40: 25 F2 03 8F 20 57 52 49 54 54 45 4E 20 42 59 3A |%... WRITTEN BY:|
00001D50: 20 4A 2E 20 4D 2E 20 53 49 53 53 4F 4E 00 7A 25 | J. M. SISSON.z%|
00001D60: F3 03 8F 20 42 52 41 4E 54 46 4F 52 44 2C 4F 4E |... BRANTFORD,ON|
00001D70: 54 2E 2C 43 41 4E 41 44 41 2E 00 88 25 F4 03 8F |T.,CANADA...%...|
00001D80: 20 4E 33 52 20 32 43 35 00 A5 25 F5 03 8F 20 53 | N3R 2C5..%... S|
00001D90: 54 55 44 45 4E 54 20 4F 46 20 42 2E 43 2E 49 2E |TUDENT OF B.C.I.|
00001DA0: 26 56 2E 53 2E 00 C3 25 F6 03 8F 20 52 45 56 49 |&V.S...%... REVI|
00001DB0: 53 45 44 20 42 59 20 4A 2E 20 4D 2E 20 53 49 53 |SED BY J. M. SIS|
00001DC0: 53 4F 4E 00 E5 25 F7 03 8F 20 2D 2D 2D 2D 2D 2D |SON..%... ------|
00001DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001DE0: 2D 2D 2D 2D 2D 00 EB 25 FC 03 8F 00 F1 25 1A 04 |-----..%.....%..|
00001DF0: 3A 00 F7 25 24 04 3A 00 06 26 2E 04 97 20 35 39 |:..%$.:..&... 59|
00001E00: 35 30 30 2C 31 34 00 1D 26 38 04 99 22 93 11 11 |500,14..&8.."...|
00001E10: 11 11 11 11 22 3A 97 55 54 2C 55 4C 25 00 46 26 |....":.UT,UL%.F&|
00001E20: 42 04 99 22 20 20 20 20 A4 A4 A4 A4 A4 A4 A4 A4 |B.." ........|
00001E30: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001E40: A4 A4 A4 A4 A4 22 00 70 26 4C 04 99 22 20 20 20 |.....".p&L.." |
00001E50: 20 12 D7 4F 52 4B 49 4E 47 20 D7 49 54 48 20 D4 | ..ORKING .ITH .|
00001E60: 48 45 20 C4 49 53 4B 20 D3 59 53 54 45 4D 20 22 |HE .ISK .YSTEM "|
00001E70: 00 A8 26 56 04 99 22 11 11 11 11 11 11 11 11 11 |..&V..".........|
00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 CA 2E CD | ...|
00001EA0: 2E D3 49 53 53 4F 4E 22 00 D8 26 60 04 99 22 20 |..ISSON"..&`.." |
00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 | 81|
00001ED0: 2D 31 31 2D 32 35 20 22 00 E2 26 6A 04 8D 20 38 |-11-25 "..&j.. 8|
00001EE0: 33 35 00 12 27 74 04 99 22 93 11 11 11 11 11 11 |35..'t..".......|
00001EF0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00001F00: 20 20 20 D2 45 41 44 49 4E 47 20 C4 41 54 41 20 | .EADING .ATA |
00001F10: 21 22 00 1C 27 7E 04 8D 20 33 39 39 00 22 27 5A |!"..'~.. 399."'Z|
00001F20: 05 20 00 42 27 64 05 8F 20 52 45 41 44 49 4E 47 |. .B'd.. READING|
00001F30: 20 41 4E 44 20 50 52 49 4E 54 49 4E 47 20 44 41 | AND PRINTING DA|
00001F40: 54 41 00 53 27 6E 05 81 20 44 20 B2 20 31 20 A4 |TA.S'n.. D . 1 .|
00001F50: 20 31 32 00 63 27 78 05 81 20 47 20 B2 20 31 20 | 12.c'x.. G . 1 |
00001F60: A4 20 33 00 73 27 82 05 87 20 53 59 4E 24 28 44 |. 3.s'... SYN$(D|
00001F70: 2C 47 29 00 79 27 8C 05 82 00 7F 27 96 05 82 00 |,G).y'.....'....|
00001F80: 90 27 A0 05 81 20 50 20 B2 20 31 20 A4 20 31 32 |.'... P . 1 . 12|
00001F90: 00 A0 27 AA 05 81 20 45 20 B2 20 31 20 A4 20 35 |..'... E . 1 . 5|
00001FA0: 00 B1 27 B4 05 87 20 53 45 4E 54 24 28 50 2C 45 |..'... SENT$(P,E|
00001FB0: 29 00 B7 27 BE 05 82 00 BD 27 C8 05 82 00 C3 27 |)..'.....'.....'|
00001FC0: D2 05 8C 00 E6 27 DC 05 8F 20 2A 2A 2A 20 50 52 |.....'... *** PR|
00001FD0: 49 4E 54 4F 55 54 20 49 4E 46 4F 52 4D 41 54 49 |INTOUT INFORMATI|
00001FE0: 4F 4E 20 2A 2A 2A 00 FD 27 E1 05 55 47 24 B2 22 |ON ***..'..UG$."|
00001FF0: 20 20 20 20 20 20 D0 41 47 45 20 23 22 00 03 28 | .AGE #"..(|
00002000: E6 05 3A 00 14 28 F0 05 81 20 49 20 B2 20 31 20 |..:..(... I . 1 |
00002010: A4 20 31 32 00 24 28 F5 05 55 50 B2 49 AB 31 3A |. 12.$(..UP.I.1:|
00002020: 8D 38 35 30 00 3D 28 FA 05 99 22 11 20 12 22 3B |.850.=(...". .";|
00002030: 53 59 4E 24 28 49 2C 31 29 3B 22 92 22 00 43 28 |SYN$(I,1);".".C(|
00002040: 04 06 3A 00 53 28 0E 06 81 20 4A 20 B2 20 31 20 |..:.S(... J . 1 |
00002050: A4 20 35 00 68 28 18 06 99 22 11 20 22 3B 53 45 |. 5.h(...". ";SE|
00002060: 4E 54 24 28 49 2C 4A 29 00 6F 28 22 06 82 4A 00 |NT$(I,J).o("..J.|
00002070: 81 28 2C 06 99 22 11 20 D3 D9 CE D4 C1 D8 20 3A |.(,..". ...... :|
00002080: 22 00 A1 28 36 06 99 22 11 20 C4 CF D3 20 28 3E |"..(6..". ... (>|
00002090: 29 20 20 20 3D 20 22 3B 53 59 4E 24 28 49 2C 33 |) = ";SYN$(I,3|
000020A0: 29 00 C1 28 40 06 99 22 11 20 C2 C1 D3 C9 C3 20 |)..(@..". ..... |
000020B0: 34 2E 30 20 3D 20 22 3B 53 59 4E 24 28 49 2C 32 |4.0 = ";SYN$(I,2|
000020C0: 29 00 CA 28 4A 06 8D 38 33 35 00 D0 28 5E 06 82 |)..(J..835..(^..|
000020D0: 00 D6 28 86 06 3A 00 E5 28 9F 06 55 50 B2 31 32 |..(..:..(..UP.12|
000020E0: 3A 8D 38 35 30 00 1B 29 A4 06 99 22 11 11 11 11 |:.850..)..."....|
000020F0: 11 11 11 11 11 11 11 20 20 20 20 C8 4F 50 45 20 |....... .OPE |
00002100: 59 4F 55 20 48 41 56 45 20 4C 45 41 52 4E 45 44 |YOU HAVE LEARNED|
00002110: 20 53 4F 4D 45 54 48 49 4E 47 22 00 24 29 AE 06 | SOMETHING".$)..|
00002120: 8D 38 33 35 00 30 29 B8 06 8F 20 44 45 4C 41 59 |.835.0)... DELAY|
00002130: 00 36 29 CC 06 8E 00 4F 29 08 07 8F 20 2A 2A 2A |.6)....O)... ***|
00002140: 2A 2A 2A 20 44 41 54 41 20 2A 2A 2A 2A 2A 2A 00 |*** DATA ******.|
00002150: 66 29 12 07 8F 22 20 C4 41 54 41 20 46 4F 52 20 |f)..." .ATA FOR |
00002160: 53 59 4E 24 20 22 00 A4 29 1C 07 83 20 22 C6 4F |SYN$ "..)... ".O|
00002170: 52 4D 41 54 54 49 4E 47 22 2C 22 48 45 41 44 45 |RMATTING","HEADE|
00002180: 52 27 46 4E 27 2C 44 28 44 52 29 2C 49 28 58 58 |R'FN',D(DR),I(XX|
00002190: 29 22 2C 22 3E 4E 28 44 52 29 3A 46 4E 2C 49 28 |)",">N(DR):FN,I(|
000021A0: 58 58 29 22 00 D7 29 26 07 83 20 22 C9 4E 49 54 |XX)"..)&.. ".NIT|
000021B0: 49 41 4C 49 5A 49 4E 47 22 2C 22 C4 4F 4E 45 20 |IALIZING",".ONE |
000021C0: C1 55 54 4F 4D 41 54 49 43 41 4C 4C 59 22 2C 22 |.UTOMATICALLY","|
000021D0: 3E 49 28 44 52 29 22 00 21 2A 30 07 83 20 22 C4 |>I(DR)".!*0.. ".|
000021E0: 49 52 45 43 54 4F 52 59 22 2C 22 44 49 52 45 43 |IRECTORY","DIREC|
000021F0: 54 4F 52 59 20 44 28 44 52 29 20 4F 52 20 20 20 |TORY D(DR) OR |
00002200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002210: 20 20 20 43 41 54 41 4C 4F 47 20 44 28 44 52 29 | CATALOG D(DR)|
00002220: 22 00 2F 2A 3A 07 83 22 3E 24 28 44 52 29 22 00 |"./*:..">$(DR)".|
00002230: 58 2A 44 07 83 20 22 D6 41 4C 49 44 41 54 45 22 |X*D.. ".ALIDATE"|
00002240: 2C 22 43 4F 4C 4C 45 43 54 44 28 44 52 29 22 2C |,"COLLECTD(DR)",|
00002250: 22 3E 56 28 44 52 29 22 00 8A 2A 4E 07 83 20 22 |">V(DR)"..*N.. "|
00002260: D3 43 52 41 54 43 48 22 2C 22 53 43 52 41 54 43 |.CRATCH","SCRATC|
00002270: 48 44 28 44 52 29 2C 27 46 4E 27 22 2C 22 3E 53 |HD(DR),'FN'",">S|
00002280: 28 44 52 29 3A 27 46 4E 27 22 00 D0 2A 58 07 83 |(DR):'FN'"..*X..|
00002290: 20 22 D2 45 4E 41 4D 45 22 2C 22 52 45 4E 41 4D | ".ENAME","RENAM|
000022A0: 45 44 28 44 52 29 2C 27 4F 46 4E 27 20 54 4F 20 |ED(DR),'OFN' TO |
000022B0: 27 4E 46 4E 27 22 2C 22 3E 52 28 44 52 29 3A 27 |'NFN'",">R(DR):'|
000022C0: 4E 46 4E 27 3D 28 44 52 29 3A 27 4F 46 4E 27 22 |NFN'=(DR):'OFN'"|
000022D0: 00 E9 2A 62 07 83 20 22 C3 4F 50 59 20 D3 49 4E |..*b.. ".OPY .IN|
000022E0: 47 4C 45 20 46 49 4C 45 22 00 24 2B 6C 07 83 22 |GLE FILE".$+l.."|
000022F0: 43 4F 50 59 20 44 28 53 44 52 29 2C 27 53 46 4E |COPY D(SDR),'SFN|
00002300: 27 20 54 4F 20 20 20 20 20 20 20 20 20 20 20 20 |' TO |
00002310: 20 20 20 20 20 20 20 20 44 28 44 52 29 2C 27 44 | D(DR),'D|
00002320: 46 4E 27 22 00 41 2B 76 07 83 22 3E 43 28 44 44 |FN'".A+v..">C(DD|
00002330: 52 29 3A 44 46 4E 3D 28 53 44 52 29 3A 53 46 4E |R):DFN=(SDR):SFN|
00002340: 22 00 7A 2B 80 07 83 20 22 C3 4F 50 59 20 C1 CC |".z+... ".OPY ..|
00002350: CC 22 2C 22 43 4F 50 59 20 44 28 53 44 52 29 20 |.","COPY D(SDR) |
00002360: 54 4F 20 44 28 44 44 52 29 22 2C 22 3E 43 28 53 |TO D(DDR)",">C(S|
00002370: 44 52 29 3D 28 44 44 52 29 22 00 BF 2B 8A 07 83 |DR)=(DDR)"..+...|
00002380: 22 C3 4F 4E 43 41 54 22 2C 22 43 4F 4E 43 41 54 |".ONCAT","CONCAT|
00002390: 44 28 53 44 52 29 2C 27 53 46 4E 27 20 54 4F 20 |D(SDR),'SFN' TO |
000023A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000023B0: 20 20 44 28 44 44 52 29 2C 27 44 46 4E 27 22 00 | D(DDR),'DFN'".|
000023C0: D7 2B 94 07 83 22 CE 4F 20 D3 55 43 48 A0 C6 55 |.+...".O .UCH..U|
000023D0: 4E 43 54 49 4F 4E 22 00 11 2C 9E 07 83 22 C2 41 |NCTION"..,...".A|
000023E0: 43 4B 55 50 22 2C 22 42 41 43 4B 55 50 44 28 53 |CKUP","BACKUPD(S|
000023F0: 44 52 29 20 54 4F 20 44 28 44 44 52 29 22 2C 22 |DR) TO D(DDR)","|
00002400: CE 4F 20 D3 55 43 48 20 C6 55 4E 43 54 49 4F 4E |.O .UCH .UNCTION|
00002410: 22 00 3C 2C A8 07 83 22 CC 4F 41 44 20 41 20 46 |".<,...".OAD A F|
00002420: 49 4C 45 22 2C 22 44 4C 4F 41 44 27 46 4E 27 2C |ILE","DLOAD'FN',|
00002430: 44 28 44 52 29 22 2C 22 2F 46 4E 22 00 6E 2C B2 |D(DR)","/FN".n,.|
00002440: 07 83 22 CC 4F 41 44 20 26 20 D2 55 4E 20 41 20 |..".OAD & .UN A |
00002450: 46 49 4C 45 22 2C 22 CE 4F 20 D3 55 43 48 20 C6 |FILE",".O .UCH .|
00002460: 55 4E 43 54 49 4F 4E 22 2C 22 5E 46 4E 22 00 86 |UNCTION","^FN"..|
00002470: 2C BC 07 8F 22 44 41 54 41 20 46 4F 52 20 53 45 |,..."DATA FOR SE|
00002480: 4E 54 24 20 20 22 00 B4 2C C6 07 83 22 D4 48 49 |NT$ "..,...".HI|
00002490: 53 20 45 52 41 53 45 53 20 41 4C 4C 20 50 52 4F |S ERASES ALL PRO|
000024A0: 47 52 41 4D 53 20 4F 46 46 20 54 48 45 20 44 49 |GRAMS OFF THE DI|
000024B0: 53 4B 2E 22 00 DB 2C D0 07 83 22 41 4E 44 20 53 |SK."..,..."AND S|
000024C0: 45 54 53 20 49 54 20 55 50 20 52 45 41 44 59 20 |ETS IT UP READY |
000024D0: 46 4F 52 20 55 53 45 2E 20 20 22 00 04 2D DA 07 |FOR USE. "..-..|
000024E0: 83 22 CE CF D4 C5 3A 20 54 48 45 20 46 4F 52 4D |."....: THE FORM|
000024F0: 41 54 54 45 44 20 44 49 53 4B 53 20 41 52 45 20 |ATTED DISKS ARE |
00002500: 4E 4F 54 22 00 36 2D E4 07 83 22 49 4E 54 45 52 |NOT".6-..."INTER|
00002510: 43 48 41 4E 47 45 41 42 4C 45 20 57 49 54 48 20 |CHANGEABLE WITH |
00002520: 52 45 47 41 52 44 53 20 54 4F 22 2C 22 D3 C1 D6 |REGARDS TO","...|
00002530: C5 49 4E 47 2E 22 00 60 2D EE 07 83 22 D4 48 49 |.ING.".`-...".HI|
00002540: 53 20 53 45 54 53 20 54 48 45 20 44 45 56 49 43 |S SETS THE DEVIC|
00002550: 45 20 55 50 2C 20 52 45 41 44 59 20 46 4F 52 22 |E UP, READY FOR"|
00002560: 00 8B 2D F8 07 83 22 55 53 45 2E 20 D7 49 54 48 |..-..."USE. .ITH|
00002570: 20 54 48 45 20 4E 45 57 20 44 49 53 4B 20 4C 41 | THE NEW DISK LA|
00002580: 4E 47 55 41 47 45 20 54 48 45 22 00 B3 2D 02 08 |NGUAGE THE"..-..|
00002590: 83 22 44 45 56 49 43 45 20 48 41 53 20 42 45 43 |."DEVICE HAS BEC|
000025A0: 4F 4D 45 20 41 4E 20 49 4E 54 45 4C 4C 49 47 45 |OME AN INTELLIGE|
000025B0: 4E 54 22 00 E4 2D 0C 08 83 22 53 59 53 54 45 4D |NT"..-..."SYSTEM|
000025C0: 20 53 4F 20 54 48 49 53 20 49 53 20 44 4F 4E 45 | SO THIS IS DONE|
000025D0: 20 41 55 54 4F 4D 41 54 49 43 41 4C 59 20 21 20 | AUTOMATICALY ! |
000025E0: 22 2C 22 22 00 12 2E 16 08 83 22 C7 49 56 45 53 |",""......".IVES|
000025F0: 20 59 4F 55 20 41 20 4C 49 53 54 20 4F 46 20 49 | YOU A LIST OF I|
00002600: 4E 46 4F 52 4D 41 54 49 4F 4E 20 4F 4E 20 54 48 |NFORMATION ON TH|
00002610: 45 22 00 3A 2E 20 08 83 22 44 49 53 4B 2E 20 C9 |E".:. .."DISK. .|
00002620: 54 20 54 45 4C 4C 53 20 59 4F 55 20 20 20 20 46 |T TELLS YOU F|
00002630: 49 4C 45 20 4E 41 4D 45 53 22 00 64 2E 2A 08 83 |ILE NAMES".d.*..|
00002640: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002650: 20 20 20 20 20 20 20 54 59 50 45 20 4F 46 20 46 | TYPE OF F|
00002660: 49 4C 45 22 00 94 2E 34 08 83 22 20 20 20 20 20 |ILE"...4.." |
00002670: 20 20 20 20 54 48 45 20 23 20 4F 46 20 42 4C 4F | THE # OF BLO|
00002680: 43 4B 53 20 4F 46 20 45 41 43 48 20 46 49 4C 45 |CKS OF EACH FILE|
00002690: 22 2C 22 22 00 C3 2E 3E 08 83 22 D2 45 43 4F 4E |",""...>..".ECON|
000026A0: 53 54 52 55 43 54 53 20 54 48 45 20 12 C2 92 4C |STRUCTS THE ...L|
000026B0: 4F 43 4B 20 12 C1 92 56 41 49 4C 49 42 49 4C 49 |OCK ...VAILIBILI|
000026C0: 54 59 22 00 F1 2E 48 08 83 22 12 CD 92 41 50 2E |TY"...H.."...AP.|
000026D0: 20 C9 54 20 49 53 20 55 53 45 44 20 54 4F 20 43 | .T IS USED TO C|
000026E0: 4F 52 52 45 43 54 20 50 52 4F 42 4C 45 4D 53 2E |ORRECT PROBLEMS.|
000026F0: 22 00 1F 2F 52 08 83 22 D0 52 4F 42 4C 45 4D 53 |"../R..".ROBLEMS|
00002700: 20 41 52 45 20 49 44 45 4E 54 49 46 49 45 44 20 | ARE IDENTIFIED |
00002710: 42 59 20 41 4E 20 41 53 54 45 52 49 53 4B 22 00 |BY AN ASTERISK".|
00002720: 4A 2F 5C 08 83 22 57 48 49 43 48 20 41 50 50 45 |J/\.."WHICH APPE|
00002730: 41 52 53 20 4C 45 46 54 20 4F 46 20 54 48 45 20 |ARS LEFT OF THE |
00002740: 46 49 4C 45 20 54 59 50 45 22 00 72 2F 66 08 83 |FILE TYPE".r/f..|
00002750: 22 43 4F 4C 55 4D 4E 20 28 41 54 20 54 48 45 20 |"COLUMN (AT THE |
00002760: 41 52 45 41 20 4F 46 20 50 52 4F 42 4C 45 4D 53 |AREA OF PROBLEMS|
00002770: 29 22 00 9D 2F 70 08 83 22 D2 45 4D 4F 56 45 53 |)"../p..".EMOVES|
00002780: 20 41 20 46 49 4C 45 20 4F 52 20 41 20 53 45 52 | A FILE OR A SER|
00002790: 49 45 53 20 4F 46 20 46 49 4C 45 53 22 00 C5 2F |IES OF FILES"../|
000027A0: 7A 08 83 22 4F 46 46 20 54 48 45 20 44 49 53 4B |z.."OFF THE DISK|
000027B0: 2E 20 C2 C5 D7 C1 D2 C5 20 49 46 20 4E 4F 20 46 |. ...... IF NO F|
000027C0: 4E 20 49 53 22 00 EF 2F 84 08 83 22 53 54 41 54 |N IS"../..."STAT|
000027D0: 45 44 20 49 54 20 57 49 4C 4C 20 45 52 41 53 45 |ED IT WILL ERASE|
000027E0: 20 41 4C 4C 20 50 52 4F 47 52 41 4D 53 2E 22 00 | ALL PROGRAMS.".|
000027F0: 19 30 8E 08 83 22 C2 C1 D3 C9 C3 20 34 2E 30 20 |.0..."..... 4.0 |
00002800: 43 48 45 43 4B 53 20 54 4F 20 53 45 45 20 49 46 |CHECKS TO SEE IF|
00002810: 20 59 4F 55 20 41 52 45 22 00 43 30 98 08 83 22 | YOU ARE".C0..."|
00002820: 53 55 52 45 3B 49 46 20 27 59 27 20 49 53 20 4E |SURE;IF 'Y' IS N|
00002830: 4F 54 20 55 53 45 44 20 49 54 20 41 42 4F 52 54 |OT USED IT ABORT|
00002840: 53 2E 22 00 71 30 A2 08 83 22 C1 4C 4C 4F 57 53 |S.".q0...".LLOWS|
00002850: 20 54 48 45 20 55 53 45 52 20 54 4F 20 D2 45 4E | THE USER TO .EN|
00002860: 41 4D 45 20 41 20 46 49 4C 45 20 57 49 54 48 20 |AME A FILE WITH |
00002870: 22 00 8C 30 AC 08 83 22 41 20 4E 45 57 20 4E 41 |"..0..."A NEW NA|
00002880: 4D 45 22 2C 22 22 2C 22 22 2C 22 22 00 B7 30 B6 |ME","","",""..0.|
00002890: 08 83 22 CD 41 4B 45 53 20 41 4E 20 45 58 41 43 |..".AKES AN EXAC|
000028A0: 54 20 43 4F 50 59 20 4F 46 20 4F 4E 45 20 50 52 |T COPY OF ONE PR|
000028B0: 4F 47 52 41 4D 2C 22 00 EE 30 C0 08 83 22 54 41 |OGRAM,"..0..."TA|
000028C0: 4B 49 4E 47 20 49 54 20 46 52 4F 4D 20 4F 4E 45 |KING IT FROM ONE|
000028D0: 20 44 52 49 56 45 20 54 4F 20 54 48 45 20 4F 54 | DRIVE TO THE OT|
000028E0: 48 45 52 2E 22 2C 22 22 2C 22 22 2C 22 22 00 17 |HER.","","",""..|
000028F0: 31 CA 08 83 22 C3 4F 50 49 45 53 20 41 4C 4C 20 |1...".OPIES ALL |
00002900: 46 49 4C 45 53 20 46 52 4F 4D 20 4F 4E 45 20 44 |FILES FROM ONE D|
00002910: 49 53 4B 20 54 4F 22 00 37 31 D4 08 83 22 41 4E |ISK TO".71..."AN|
00002920: 4F 54 48 45 52 2E 20 C3 4F 4E 53 49 53 54 49 4E |OTHER. .ONSISTIN|
00002930: 47 20 4F 46 20 3A 22 00 46 31 DE 08 83 22 20 20 |G OF :".F1..." |
00002940: 20 4E 41 4D 45 22 00 56 31 E8 08 83 22 20 20 20 | NAME".V1..." |
00002950: 46 49 4C 45 53 22 00 6A 31 F2 08 83 22 20 20 20 |FILES".j1..." |
00002960: 53 45 43 54 4F 52 49 4E 47 22 00 96 31 FC 08 83 |SECTORING"..1...|
00002970: 22 D4 48 49 53 20 57 49 4C 4C 20 4D 45 52 47 45 |".HIS WILL MERGE|
00002980: 20 4F 4E 45 20 46 49 4C 45 20 54 4F 20 41 4E 4F | ONE FILE TO ANO|
00002990: 54 48 45 52 2E 22 00 A7 31 06 09 83 22 22 2C 22 |THER."..1..."","|
000029A0: 22 2C 22 22 2C 22 22 00 D0 31 10 09 83 22 D4 48 |","",""..1...".H|
000029B0: 49 53 20 41 4C 4C 4F 57 53 20 54 48 45 20 55 53 |IS ALLOWS THE US|
000029C0: 45 52 20 54 4F 20 4D 41 4B 45 20 41 4E 20 20 22 |ER TO MAKE AN "|
000029D0: 00 EE 31 1A 09 83 22 45 58 41 43 54 20 43 4F 50 |..1..."EXACT COP|
000029E0: 59 20 4F 46 20 41 20 44 49 53 4B 20 2E 22 00 FC |Y OF A DISK ."..|
000029F0: 31 24 09 83 22 22 2C 22 22 2C 22 22 00 2A 32 2E |1$.."","","".*2.|
00002A00: 09 83 22 C1 4C 4C 4F 57 53 20 54 48 45 20 55 53 |..".LLOWS THE US|
00002A10: 45 52 20 54 4F 20 4C 4F 41 44 20 41 20 50 52 4F |ER TO LOAD A PRO|
00002A20: 47 52 41 4D 20 4F 46 46 20 22 00 44 32 38 09 83 |GRAM OFF ".D28..|
00002A30: 22 54 48 45 20 44 49 53 4B 2E 22 2C 22 22 2C 22 |"THE DISK.","","|
00002A40: 22 2C 22 22 00 71 32 42 09 83 22 D4 48 49 53 20 |","".q2B..".HIS |
00002A50: 41 4C 4C 4F 57 53 20 54 48 45 20 55 53 45 52 20 |ALLOWS THE USER |
00002A60: 54 4F 20 CC 4F 41 44 20 41 4E 44 20 D2 55 4E 20 |TO .OAD AND .UN |
00002A70: 22 00 94 32 4C 09 83 22 41 20 50 52 4F 47 52 41 |"..2L.."A PROGRA|
00002A80: 4D 20 4F 46 20 C4 49 53 4B 2E 22 2C 22 22 2C 22 |M OF .ISK.","","|
00002A90: 22 2C 22 22 00 AE 32 C4 09 8F 20 2A 2A 2A 20 45 |",""..2... *** E|
00002AA0: 4E 44 20 4F 46 20 44 41 54 41 20 2A 2A 2A 00 00 |ND OF DATA ***..|
00002AB0: 00 FF 30 2C 08 BF EB |..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 **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-..UC,0.*
.2..UI$:.UI$."".50.T.7..UI$.G(13).C(UR$)
..1..UC,1:." .";:.85.G.<..UI$.G(20).105.
{.>.. C(UR$)..UL.50. .A..120:. CHECK FOR
VALID CHARACTER...F.UR$.UR$.UI$...K..UI
$;.B.P..50...U.. +++ CHECK FOR HELP REQU
EST +++...Z..UR$.UX$.195:. EXIT TO HELP
ROUTINE..._..UF.1..240.+.D.UF.0:.:..D.F.
. ++ CHECK DELETE ++.U.I..C(UR$).1.50.M.
N.UR$.H(UR$,C(UR$).1)..S..". ..";:.50.
..X.. ++ CHECK FOR VALID CHARACTERS ++..
.}..C(US$).0.150.I....US.1.C(US$)......U
I$.J(US$,US,1).............UI$."":......
. ** STANDARD INPUT **......F(UI$).46...
0....UI$.G(32)...M. ..F(UI$).48.F(UI$).5
7.170.S.....P....F(UI$).65.F(UI$).90.180
.V..........F(UI$).193.F(UI$).218.UI$.""
:.......B(UT).UU%.UI$.G(F(UI$).128):..C.
....P...UI$."":....C.UF.1:. +++ HELP ROU
TINE EXIT +++...E..250...H..245.&.M..UQ.
UB.(U2%.256.U1%.U3%.2).B.R.UQ%(UQ.UB).B(
UQ):.:.".".U.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.W...UT$.UL$:.
".";:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).
.....UQ,UQ%(UQ.UB):.......U1,U1%......U2
,U2%......U4,U4%......U3,U3%.1.&....35.X
...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).....UJ$.
US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.........
,.. ** MENU **...-.:.3....".":.UT,UU%:.B
(50003).0..53281,9:.53280,8.9./.:.V.1.."
. MENU"...6.." ----------
----------------------------"...;.."..
1. BEGIN DISK COMMANDS".X.@.."..
2. STUDENT INSTRUCTIONS"...E..".
. 3. TEACHER INSTRUCTIONS"...O..
".. 4. QUIT..".M.T.." ----------
----------------------------".X.Y.."..
PRESS A NUMBER KEY (1-5) ";. .^.UL.
1:US$."1234":.35:. INPUT ROUTINE...`.US$
."".H.C..E(UR$).1000,400,500,396.Q.H..30
0...... ** RE-ENABLE STOP KEY AND END **
.'....B(50003)..1.B(50003)..160.B(50003)
..0.399.Q....UU.71:.B(50003).0..53281,6:
.53280,14.]...."..":..H....875:....... *
* STUDENT INSTRUCTIONS **......".":.UT,U
L%:.B(50003).0..53281,0:.53280,0.....UH.
1:UP.0:UG$."STUDENT INST":.850......"...
. THIS PROGRAM SHOULD HELP YOU".7.
..". TO UNDERSTAND HOW TO USE THE".
W....". 4040 DISK SYSTEM ".V....".
WITH DOS 2.0 AND"......". BASI
C 4.0 DISK LANGUAGE.".N....". (THIS PROG
RAM WILL NOT HARM YOUR DISK.)"...... 835
:UP.1:UH.1:. 850......".... THE PRO
GRAM WILL GIVE YOU ".C....". THE CO
MMANDS FOR THE DISK DRIVE,".I....".
USING THE DOS WEDGE (>)"......".
AND "......". BASIC 4.0 D
ISK LANGUAGE.".H.... 835:UP.2:UH.1:. 850
......"........ THE PRESENTATION
"......". WILL BE IN THE FOLLOWI
NG".8....". MANNER ... ".R.... 8
35:UP.3:UH.1:. 850.I....". .COMMAND NAME
"......"...... THE INFORMATION "..
.B.."..... SYNTAX...D..". DOS 2.0
= ".Q.F..". BASIC 4.0 = "...H.. 835:UP.4
:UH.1:. 850...J.."... NOTE : TO ADVANCE
FROM ONE SCREEN ".>.L..". TO T
HE NEXT PRESS".`.N..". THE <SPAC
E> BAR.".Z.V.. 835:UP.5:UH.1:. 850...X..
".. NOTE : YOU SHOULD KNOW THE ".K.Z.."
. FOLLOWING ABBREVIATIONS!".....
.". (DR) : DRIVE #"......".
(DDR) : DESTINATION DRIVE #".D...
.". (SDR) : SOURCE DRIVE #".M..
..". FN : FILE NAME "...
...". OFN : OLD FILE NAME
".G....". NFN : NEW FILE NAM
E "...... 835:UP.6:UH.1:. 850......"
. (XX) : ALPHA-NUMERIC".1...."
IDENTIFICATION".E...."
. '' : NOTE THE ";G(34);" ";
G(34)......" IS USED MO
STLY"......" WITH BASIC
4.0"......835.R....UZ.1..UP%:.217.X....
...... ** TEACHER INSTRUCTIONS **.)...."
.":.UT,UL%:.B(50003).0..53281,2:.53280,1
0.J...UP.0:UG$."TEACHER INST":.850.X....
".. TO THE BEST OF OUR KNOWLEDGE,."
......" THIS PROGRAM IS IN THE PUBLIC.
".M...." DOMAIN. IF THIS IS NOT THE C
ASE."......" PLEASE CONTACT:..."......
" COMMODORE BUSINESS MACHINES.".7..
.." 3370 PHARMACY AVE..[...."
AGINCOURT, ONTARIO".}...."
CANADA M1W 2K4"......" (4
16) 499-4292".....UP.1:. 835:. 850:.....
." ..PROGRAM NAME: DISK COMMANDS....
..." WRITTEN BY : JOHN SISSON..'...
." UPGRADED BY : ..R...."
.THIS PROGRAM WILL RUN ON ANY...Y....
" BASIC 2.0 PET COMPUTER.. ...."
BASIC 4.0 PET COMPUTER..B...."
8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER......835...N..UZ
.1..UP%:.217...W...0.X.. ** PROGRAM MODI
FICATION INST **.6.....[.... ** TO USE 8
032 LOAD CBM4032 **...F..".....BEFORE RU
NNING THIS PROGRAM ON AN 8032 ...G.P.."
LOAD THE 'CBM 4032' PROGRAM.......
......".R.Z..UU.71.X.......... ** TO USE
8032 LOAD CBM4032 **.H...."....BEFORE R
UNNING THIS PROGRAM ON AN 8032 ..LOAD C
BM 4032 PROGRAM".T....1093:..T. .. ** T
I T L E P A G E **...".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6...$..I.
1.38:."...";:..V.&..I.1.22:.".....";:...
.(..I.1.37:.".....";:....*..I.1.22:."...
..";:..+.,.."...........................
..M...."................... . . ...N.
0.."................... . ......2.."...
................. ....4..".............
.C O M M O D O R E...W.6..".............
..EDUCATIONAL.....8.."................SO
FTWARE...:.. ** COMMODORE LOGO **.I.;..H
(UD$,24);"..........PRESS SPACE BAR OR W
AIT.":I.0.K.<..A$:.A$.." ".I.I.1:.I.250.
828...>.T1$."":T2$."":T3$."":T4$."":I.0.
..@..300...C.. ** SPACE BAR PRESS **...H
..UO,0:.H(UD$,24);".......PRESS SPACE BA
R TO CONTINUE."...L..UI$:.UI$.." ".844..
.N...,.R.. ** PAGE DESIGN ROUTINE **.8.T
.UP.UP.1.B.W.."."H(UT$.UP$,21);I(UP$.UG$
.D(UP),18)...\.." ----------------------
----------------". .`..UH..0.870.T.A..H(
UD$,24);H(UP$,7);"HELP - PRESS H <RETU
RN>"...F.UH.0:."..":....K.. ** PLEASE WA
IT REMARK **.:.P..H(UD$,24);"
ONE MOMENT PLEASE... ".@.U...].... *
* SET UP VARIABLES **.....UX$."H":.UQ%(1
000):UB.32768:U1.196:U2.197:U3.198:U4.21
6:UC.167:UU.1024.....UT.59468:UU%.12:UL%
.14:UP%.1146:UM.32768:UO.158:. 50003,0.)
...B(50003).0.UB.1024:U1.209:U2.210:U3.
211:U4.214:UC.204:UU.2048.H ...B(50003).
0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.102
4:UO.198.. ..UD$."......................
...".. ..UP$."
"..!..UT$." DISK COMMANDS
":. PLACE PROGRAM TITLE HERE !!!!!!!!
!!!!!!!!!***..!....,!... ** SET VARIABLE
S **.5!...900.R!... SYN$(12,3),SENT$(12,
5).M!... ** CHECK FOR 8032 **..!...".":.
" ":. SHIFTED SPACE..!...B(UB.40)..96..7
00..!... ** MEMORY CHECK **.O!... .(0).2
000.937..!..."....THIS MACHINE DOES NOT
HAVE ENOUGH.".!"..."MEMORY TO RUN THIS P
ROGRAM !".,"...UU.71.2"....L"..."..":.B(
50003).0.962.{"... ** BASIC 2.0 OR 4.0
OR C-64 SETUP **.."...1075,133:.1076,
144:.1077,234:.1079,4:.1080,133:.1081,14
5.."...1091,155:.1098,133:.1099,144:.110
0,234:.1103,133..#...1104,145:.1105,234:
.1082,234.(#...B(50003)..160.955.W#...10
93,88:.1094,228:.1097,85:.1102,228:.965.
L#...B(50003)..1.990..#...1093,49:.1094,
230:.1097,46:.1102,230:.965.U#B..2099,14
1:.2100,20:.2101,3:.2103,8:.2104,141:.21
05,21..$C..2106,3:.2115,145:.2117,52:.21
18,234:.2121,49:.2122,141.K$D..2123,20:.
2124,3:.2126,234:.2127,141:.2128,21:.212
9,3.I$E..UU.48:. DISABLE STOP KEY.Z$J..8
00:. TITLE..$T..300:. MENU..$...".THE PG
M WILL NOT WORK ON THIS MACHINE!":...$..
.UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS
HERE **..%..."..";:.:.B(50003).0..53281
,6:.53280,14.>%... ---------------------
------.]%... WRITTEN BY: J. M. SISSON.Z%
... BRANTFORD,ONT.,CANADA...%... N3R 2C5
..%... STUDENT OF B.C.I.&V.S..C%... REVI
SED BY J. M. SISSON..%... --------------
-------------..%.....%..:..%$.:..&... 59
500,14..&8..".......":.UT,UL%.F&B.."
.............................".P&L.."
.WORKING WITH THE DISK SYSTEM "..&V..".
........ J.M
.SISSON".X&`.."
81-11-25 "..&J.. 835..'T..".......
...... READING DATA !"..'~..
399."'Z. .B'D.. READING AND PRINTING DA
TA.S'N.. D . 1 . 12.C'X.. G . 1 . 3.S'..
. SYN$(D,G).Y'....'.....' .. P . 1 . 12
. '... E . 1 . 5..'... SENT$(P,E)..'....
.'H...C'R....'... *** PRINTOUT INFORMATI
ON ***..'..UG$." PAGE #"..(..:..(..
. I . 1 . 12.$(..UP.I.1:.850.=(...". .";
SYN$(I,1);".".C(..:.S(... J . 1 . 5.H(..
.". ";SENT$(I,J).O("..J..(,..". SYNTAX :
"..(6..". DOS (>) = ";SYN$(I,3).A(@.."
. BASIC 4.0 = ";SYN$(I,2).J(J..835.P(^..
.V(..:..(..UP.12:.850..)..."...........
HOPE YOU HAVE LEARNED SOMETHING".$)..
.835.0)... DELAY.6)L...O)... ****** DATA
******.F)..." DATA FOR SYN$ "..)... "FO
RMATTING","HEADER'FN',D(DR),I(XX)",">N(D
R):FN,I(XX)".W)&.. "INITIALIZING","DONE
AUTOMATICALLY",">I(DR)".!*0.. "DIRECTORY
","DIRECTORY D(DR) OR
CATALOG D(DR)"./*:..">$(DR)".X*D.. "V
ALIDATE","COLLECTD(DR)",">V(DR)"..*N.. "
SCRATCH","SCRATCHD(DR),'FN'",">S(DR):'FN
'".P*X.. "RENAME","RENAMED(DR),'OFN' TO
'NFN'",">R(DR):'NFN'=(DR):'OFN'"..*B.. "
COPY SINGLE FILE".$+L.."COPY D(SDR),'SFN
' TO D(DR),'DFN'".A+V
..">C(DDR):DFN=(SDR):SFN".Z+... "COPY AL
L","COPY D(SDR) TO D(DDR)",">C(SDR)=(DDR
)"..+..."CONCAT","CONCATD(SDR),'SFN' TO
D(DDR),'DFN'".W+..."NO
SUCH FUNCTION"..,..."BACKUP","BACKUPD(S
DR) TO D(DDR)","NO SUCH FUNCTION".<,..."
LOAD A FILE","DLOAD'FN',D(DR)","/FN".N,.
.."LOAD & RUN A FILE","NO SUCH FUNCTION"
,"^FN"..,..."DATA FOR SENT$ "..,F.."THI
S ERASES ALL PROGRAMS OFF THE DISK."..,P
.."AND SETS IT UP READY FOR USE. "..-Z.
."NOTE: THE FORMATTED DISKS ARE NOT".6-.
.."INTERCHANGEABLE WITH REGARDS TO","SAV
EING.".`-..."THIS SETS THE DEVICE UP, RE
ADY FOR"..-..."USE. WITH THE NEW DISK LA
NGUAGE THE"..-..."DEVICE HAS BECOME AN I
NTELLIGENT"..-..."SYSTEM SO THIS IS DONE
AUTOMATICALY ! ",""......"GIVES YOU A L
IST OF INFORMATION ON THE".:. .."DISK. I
T TELLS YOU FILE NAMES".D.*.."
TYPE OF FILE"...4.."
THE # OF BLOCKS OF EACH FILE","".C.>
.."RECONSTRUCTS THE .B.LOCK .A.VAILIBILI
TY"...H..".M.AP. IT IS USED TO CORRECT P
ROBLEMS."../R.."PROBLEMS ARE IDENTIFIED
BY AN ASTERISK".J/\.."WHICH APPEARS LEFT
OF THE FILE TYPE".R/F.."COLUMN (AT THE
AREA OF PROBLEMS)"../P.."REMOVES A FILE
OR A SERIES OF FILES".E/Z.."OFF THE DISK
. BEWARE IF NO FN IS"../..."STATED IT WI
LL ERASE ALL PROGRAMS."..0..."BASIC 4.0
CHECKS TO SEE IF YOU ARE".C0..."SURE;IF
'Y' IS NOT USED IT ABORTS.".Q0..."ALLOWS
THE USER TO RENAME A FILE WITH "..0..."
A NEW NAME","","",""..0..."MAKES AN EXAC
T COPY OF ONE PROGRAM,"..0..."TAKING IT
FROM ONE DRIVE TO THE OTHER.","","",""..
1J.."COPIES ALL FILES FROM ONE DISK TO".
71T.."ANOTHER. CONSISTING OF :".F1..."
NAME".V1..." FILES".J1..." SECTORIN
G"..1..."THIS WILL MERGE ONE FILE TO ANO
THER."..1..."","","","".P1..."THIS ALLOW
S THE USER TO MAKE AN "..1..."EXACT COP
Y OF A DISK ."..1$.."","","".*2..."ALLOW
S THE USER TO LOAD A PROGRAM OFF ".D28..
"THE DISK.","","","".Q2B.."THIS ALLOWS T
HE USER TO LOAD AND RUN "..2L.."A PROGRA
M OF DISK.","","",""..2D.. *** END OF DA
TA ***....0,...
> CLICK IMAGE PREVIEW FOR FULL MODAL