MS-DOS.64
FILE INFORMATION
FILENAME(S): MS-DOS.64
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-12-01 02:25:33
APPEARS ON: 1 disk(s)
FILE HASH
60c198bcff32173ab67dae339563f39d02ec36079e590a4a52190a12ffaa56df
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | MS-DOS.64 | PRG | hedning, shine | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 64 00 3A 20 8F 20 49 42 4D 20 4D 53 |..!.d.: . IBM MS|
00000010: 2D 44 4F 53 20 28 36 34 20 56 45 52 53 49 4F 4E |-DOS (64 VERSION|
00000020: 29 00 41 08 6E 00 3A 20 8F 20 2D 2D 2D 2D 2D 2D |).A.n.: . ------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 00 49 08 78 00 3A 20 8F 00 62 08 82 00 3A 20 |-.I.x.: ..b...: |
00000050: 8F 20 42 59 20 4D 49 43 48 41 45 4C 20 47 52 45 |. BY MICHAEL GRE|
00000060: 47 47 00 80 08 8C 00 3A 20 8F 20 4F 4E 20 51 2D |GG.....: . ON Q-|
00000070: 4C 49 4E 4B 3A 20 4D 49 43 48 41 45 4C 47 32 35 |LINK: MICHAELG25|
00000080: 00 88 08 96 00 3A 20 8F 00 AD 08 A0 00 3A 20 8F |.....: ......: .|
00000090: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS|
000000A0: 20 41 20 53 49 4D 55 4C 41 54 49 4F 4E 00 CA 08 | A SIMULATION...|
000000B0: AA 00 3A 20 8F 20 4F 46 20 54 48 45 20 49 42 4D |..: . OF THE IBM|
000000C0: 27 53 20 4D 53 2D 44 4F 53 2E 00 D2 08 B4 00 3A |'S MS-DOS......:|
000000D0: 20 8F 00 F6 08 BE 00 3A 20 8F 20 49 20 43 48 41 | ......: . I CHA|
000000E0: 4E 47 45 44 20 49 54 20 54 4F 20 57 4F 52 4B 20 |NGED IT TO WORK |
000000F0: 4F 4E 20 54 48 45 00 14 09 C8 00 3A 20 8F 20 43 |ON THE.....: . C|
00000100: 36 34 20 26 20 43 31 32 38 20 28 31 32 38 20 4D |64 & C128 (128 M|
00000110: 4F 44 45 29 00 1C 09 D2 00 3A 20 8F 00 41 09 DC |ODE).....: ..A..|
00000120: 00 3A 20 8F 20 46 49 4C 45 4E 41 4D 45 53 20 46 |.: . FILENAMES F|
00000130: 4F 52 20 42 4F 54 48 20 46 49 4C 45 53 20 41 52 |OR BOTH FILES AR|
00000140: 45 00 5A 09 E6 00 3A 20 8F 20 20 43 36 34 20 2D |E.Z...: . C64 -|
00000150: 20 4D 53 2D 44 4F 53 2E 36 34 00 74 09 F0 00 3A | MS-DOS.64.t...:|
00000160: 20 8F 20 43 31 32 38 20 2D 20 4D 53 2D 44 4F 53 | . C128 - MS-DOS|
00000170: 2E 31 32 38 00 7C 09 FA 00 3A 20 8F 00 9F 09 04 |.128.|...: .....|
00000180: 01 3A 20 8F 20 49 20 48 4F 50 45 20 59 4F 55 20 |.: . I HOPE YOU |
00000190: 45 4E 4A 4F 59 20 54 48 49 53 2E 20 41 4E 44 00 |ENJOY THIS. AND.|
000001A0: C0 09 0E 01 3A 20 8F 20 50 4C 45 41 53 45 20 4C |....: . PLEASE L|
000001B0: 45 41 56 45 20 4D 45 20 45 4D 41 49 4C 2E 2E 2E |EAVE ME EMAIL...|
000001C0: 00 C6 09 18 01 3A 00 DC 09 22 01 3A 20 44 41 54 |.....:...".: DAT|
000001D0: 45 24 B2 22 31 32 2F 37 2F 38 37 22 00 EF 09 2C |E$."12/7/87"...,|
000001E0: 01 3A 20 99 C7 28 31 34 37 29 C7 28 31 34 29 00 |.: ..(147).(14).|
000001F0: 09 0A 36 01 3A 20 97 20 35 33 32 38 30 2C 30 3A |..6.: . 53280,0:|
00000200: 97 20 35 33 32 38 31 2C 30 00 28 0A 40 01 3A 20 |. 53281,0.(.@.: |
00000210: 99 22 99 13 13 C9 42 4D 20 CD D3 2D C4 CF D3 20 |."....BM ..-... |
00000220: 46 4F 52 20 C3 36 34 22 00 50 0A 4A 01 3A 20 99 |FOR .64".P.J.: .|
00000230: 22 C3 4F 50 59 52 49 47 48 54 20 28 C3 29 20 C4 |".OPYRIGHT (.) .|
00000240: 45 43 45 4D 42 45 52 20 37 2C 20 31 39 38 37 22 |ECEMBER 7, 1987"|
00000250: 00 7D 0A 54 01 3A 20 99 22 C2 59 20 2D 20 CD 49 |.}.T.: .".Y - .I|
00000260: 43 48 41 45 4C C7 32 35 20 20 C4 45 43 45 4D 42 |CHAEL.25 .ECEMB|
00000270: 45 52 20 37 2C 20 31 39 38 37 22 3A 99 00 92 0A |ER 7, 1987":....|
00000280: 5E 01 3A 20 42 24 B2 22 22 3A 99 20 22 99 C1 3E |^.: B$."":. "..>|
00000290: 22 3B 00 98 0A 68 01 3A 00 B7 0A 72 01 3A 20 A1 |";...h.:...r.: .|
000002A0: 41 24 3A 8B 41 24 B2 22 22 A7 99 22 12 20 92 9D |A$:.A$.""..". ..|
000002B0: 22 3B 3A 89 33 37 30 00 DE 0A 7C 01 3A 20 8B 41 |";:.370...|.: .A|
000002C0: 24 B2 22 91 22 B0 41 24 B2 22 11 22 B0 41 24 B2 |$.".".A$.".".A$.|
000002D0: 22 9D 22 B0 41 24 B2 22 1D 22 A7 33 37 30 00 FE |".".A$.".".370..|
000002E0: 0A 86 01 3A 20 8B 41 24 B2 22 13 22 B0 41 24 B2 |...: .A$.".".A$.|
000002F0: 22 93 22 B0 41 24 B2 22 94 22 A7 33 37 30 00 19 |".".A$.".".370..|
00000300: 0B 90 01 3A 20 8B 41 24 B2 C7 28 32 30 29 AF 42 |...: .A$..(20).B|
00000310: 24 B2 22 22 A7 89 33 37 30 00 4A 0B 9A 01 3A 20 |$.""..370.J...: |
00000320: 8B 41 24 B2 C7 28 32 30 29 A7 99 22 20 9D 9D 20 |.A$..(20).." .. |
00000330: 9D 22 3B 3A 42 24 B2 C8 28 42 24 2C C3 28 42 24 |.";:B$..(B$,.(B$|
00000340: 29 AB 31 29 3A 89 20 33 37 30 00 65 0B A4 01 3A |).1):. 370.e...:|
00000350: 20 8B 41 24 B2 C7 28 31 33 29 A7 99 22 20 22 3A | .A$..(13).." ":|
00000360: 89 31 30 30 30 00 6B 0B AE 01 3A 00 85 0B B8 01 |.1000.k...:.....|
00000370: 3A 20 42 24 B2 42 24 AA 41 24 3A 99 41 24 3B 3A |: B$.B$.A$:.A$;:|
00000380: 89 20 33 37 30 00 8B 0B C2 01 3A 00 91 0B CC 01 |. 370.....:.....|
00000390: 3A 00 B4 0B E8 03 3A 20 8F 20 2A 2A 2A 2A 2A 2A |:.....: . ******|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 00 D7 0B F2 03 3A 20 8F 20 2A 20 44 |****.....: . * D|
000003C0: 45 54 45 52 4D 49 4E 45 20 57 48 41 54 20 43 4F |ETERMINE WHAT CO|
000003D0: 4D 4D 41 4E 44 20 2A 00 FA 0B FC 03 3A 20 8F 20 |MMAND *.....: . |
000003E0: 2A 20 45 58 45 43 55 54 45 2E 2E 2E 2E 2E 2E 2E |* EXECUTE.......|
000003F0: 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 1D 0C 06 04 3A |........ *.....:|
00000400: 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | . *************|
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 23 0C |*************.#.|
00000420: 10 04 3A 00 3F 0C 1A 04 3A 20 8B 20 C8 28 42 24 |..:.?...: . .(B$|
00000430: 2C 33 29 B2 22 44 49 52 22 A7 31 30 30 30 30 00 |,3)."DIR".10000.|
00000440: 59 0C 24 04 3A 20 8B 20 42 24 B2 22 54 49 4D 45 |Y.$.: . B$."TIME|
00000450: 22 20 A7 20 31 31 30 30 30 00 74 0C 2E 04 3A 20 |" . 11000.t...: |
00000460: 8B 20 42 24 B2 22 44 41 54 45 22 20 A7 20 31 32 |. B$."DATE" . 12|
00000470: 30 30 30 22 00 8F 0C 38 04 3A 20 8B 20 42 24 B2 |000"...8.: . B$.|
00000480: 22 42 41 53 49 43 22 20 A7 20 36 33 30 30 30 00 |"BASIC" . 63000.|
00000490: AE 0C 42 04 3A 20 8B 20 C8 28 42 24 2C 36 29 B2 |..B.: . .(B$,6).|
000004A0: 22 52 45 4E 41 4D 45 22 A7 31 33 30 30 30 00 C6 |"RENAME".13000..|
000004B0: 0C 4C 04 3A 20 8B 20 42 24 B2 22 44 53 22 20 A7 |.L.: . B$."DS" .|
000004C0: 20 31 34 30 30 30 00 DD 0C 56 04 3A 20 8B 20 42 | 14000...V.: . B|
000004D0: 24 B2 22 43 4C 53 22 20 A7 20 33 30 30 00 FA 0C |$."CLS" . 300...|
000004E0: 60 04 3A 20 8B 20 C8 28 42 24 2C 34 29 B2 22 43 |`.: . .(B$,4)."C|
000004F0: 4F 50 59 22 A7 31 35 30 30 30 00 18 0D 6A 04 3A |OPY".15000...j.:|
00000500: 20 8B 20 C8 28 42 24 2C 35 29 B2 22 45 52 41 53 | . .(B$,5)."ERAS|
00000510: 45 22 A7 31 36 30 30 30 00 32 0D 74 04 3A 20 8B |E".16000.2.t.: .|
00000520: 20 42 24 B2 22 48 45 4C 50 22 20 A7 20 31 37 30 | B$."HELP" . 170|
00000530: 30 30 00 46 0D 7E 04 3A 20 8B 20 42 24 B2 22 22 |00.F.~.: . B$.""|
00000540: 20 A7 20 33 35 30 00 6D 0D 88 04 3A 20 99 22 C2 | . 350.m...: .".|
00000550: 41 44 20 43 4F 4D 4D 41 4E 44 20 4F 52 20 46 49 |AD COMMAND OR FI|
00000560: 4C 45 4E 41 4D 45 22 3A 89 20 33 35 30 00 73 0D |LENAME":. 350.s.|
00000570: 92 04 3A 00 79 0D 9C 04 3A 00 99 0D 10 27 3A 20 |..:.y...:....': |
00000580: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B9 0D 1A 27 3A 20 |*********....': |
000005A0: 8F 20 2A 20 56 49 45 57 20 44 49 53 4B 20 44 49 |. * VIEW DISK DI|
000005B0: 52 45 43 54 4F 52 59 20 2A 00 D9 0D 24 27 3A 20 |RECTORY *...$': |
000005C0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 0D 2E 27 3A 00 |*********....':.|
000005E0: F9 0D 38 27 3A 20 8B 42 24 B2 22 44 49 52 22 20 |..8': .B$."DIR" |
000005F0: A7 20 44 52 49 56 45 B2 38 00 16 0E 42 27 3A 20 |. DRIVE.8...B': |
00000600: 8B 42 24 B2 22 44 49 52 20 41 3A 22 20 A7 20 44 |.B$."DIR A:" . D|
00000610: 52 49 56 45 B2 38 00 33 0E 4C 27 3A 20 8B 42 24 |RIVE.8.3.L': .B$|
00000620: B2 22 44 49 52 20 42 3A 22 20 A7 20 44 52 49 56 |."DIR B:" . DRIV|
00000630: 45 B2 39 00 43 0E 56 27 3A 20 43 24 B2 C7 28 30 |E.9.C.V': C$..(0|
00000640: 29 3A 99 00 62 0E 60 27 3A 20 9F 35 2C 44 52 49 |):..b.`': .5,DRI|
00000650: 56 45 2C 30 2C 22 24 22 3A A1 23 35 2C 41 24 2C |VE,0,"$":.#5,A$,|
00000660: 41 24 00 68 0E 6A 27 3A 00 89 0E 74 27 3A 20 A1 |A$.h.j':...t': .|
00000670: 23 35 2C 41 24 2C 41 24 3A 8B 41 24 B2 22 22 A7 |#5,A$,A$:.A$."".|
00000680: A0 35 3A 99 3A 89 33 35 30 00 B1 0E 7E 27 3A 20 |.5:.:.350...~': |
00000690: A1 23 35 2C 41 24 2C 42 24 3A 99 C6 28 41 24 AA |.#5,A$,B$:..(A$.|
000006A0: 43 24 29 AA C6 28 42 24 AA 43 24 29 AC 32 35 36 |C$)..(B$.C$).256|
000006B0: 3B 00 D6 0E 88 27 3A 20 A1 23 35 2C 41 24 3A 99 |;....': .#5,A$:.|
000006C0: 41 24 3B 42 24 3B 3A 8B 41 24 B2 22 22 A7 99 3A |A$;B$;:.A$.""..:|
000006D0: 89 31 30 31 30 30 00 E4 0E 92 27 3A 20 89 20 31 |.10100....': . 1|
000006E0: 30 31 32 30 00 EA 0E 9C 27 3A 00 0C 0F F8 2A 3A |0120....':....*:|
000006F0: 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | . *************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2E 0F 02 |************....|
00000710: 2B 3A 20 8F 20 2A 20 56 49 45 57 20 26 20 45 4E |+: . * VIEW & EN|
00000720: 54 45 52 20 54 48 45 20 54 49 4D 45 20 2A 00 50 |TER THE TIME *.P|
00000730: 0F 0C 2B 3A 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..+: . *********|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000750: 00 5D 0F 16 2B 3A 20 45 54 24 B2 22 22 00 96 0F |.]..+: ET$.""...|
00000760: 20 2B 3A 20 99 22 D4 48 45 20 54 49 4D 45 20 49 | +: .".HE TIME I|
00000770: 53 20 2D 20 22 3B C8 28 54 49 24 2C 32 29 22 3A |S - ";.(TI$,2)":|
00000780: 22 CA 28 54 49 24 2C 33 2C 32 29 22 3A 22 C9 28 |".(TI$,3,2)":".(|
00000790: 54 49 24 2C 32 29 00 B2 0F 2A 2B 3A 20 99 22 C5 |TI$,2)...*+: .".|
000007A0: 4E 54 45 52 20 4E 45 57 20 54 49 4D 45 20 2D 20 |NTER NEW TIME - |
000007B0: 22 3B 00 B8 0F 34 2B 3A 00 D9 0F 3E 2B 3A 20 A1 |";...4+:...>+: .|
000007C0: 41 24 3A 8B 41 24 B2 22 22 A7 99 22 12 20 92 9D |A$:.A$.""..". ..|
000007D0: 22 3B 3A 89 31 31 30 37 30 00 02 10 48 2B 3A 20 |";:.11070...H+: |
000007E0: 8B 41 24 B2 22 91 22 B0 41 24 B2 22 11 22 B0 41 |.A$.".".A$.".".A|
000007F0: 24 B2 22 9D 22 B0 41 24 B2 22 1D 22 A7 31 31 30 |$.".".A$.".".110|
00000800: 37 30 00 24 10 52 2B 3A 20 8B 41 24 B2 22 13 22 |70.$.R+: .A$."."|
00000810: B0 41 24 B2 22 93 22 B0 41 24 B2 22 94 22 A7 31 |.A$.".".A$.".".1|
00000820: 31 30 37 30 00 41 10 5C 2B 3A 20 8B 41 24 B2 C7 |1070.A.\+: .A$..|
00000830: 28 32 30 29 AF 45 54 24 B2 22 22 A7 31 31 30 37 |(20).ET$."".1107|
00000840: 30 00 77 10 66 2B 3A 20 8B 41 24 B2 C7 28 32 30 |0.w.f+: .A$..(20|
00000850: 29 A7 99 22 20 9D 9D 20 9D 22 3B 3A 45 54 24 B2 |).." .. .";:ET$.|
00000860: C8 28 45 54 24 2C C3 28 45 54 24 29 AB 31 29 3A |.(ET$,.(ET$).1):|
00000870: 89 20 31 31 30 37 30 00 93 10 70 2B 3A 20 8B 41 |. 11070...p+: .A|
00000880: 24 B2 C7 28 31 33 29 A7 99 22 20 22 3A 89 31 31 |$..(13).." ":.11|
00000890: 31 36 30 00 99 10 7A 2B 3A 00 B6 10 84 2B 3A 20 |160...z+:....+: |
000008A0: 45 54 24 B2 45 54 24 AA 41 24 3A 99 41 24 3B 3A |ET$.ET$.A$:.A$;:|
000008B0: 89 31 31 30 37 30 00 BC 10 8E 2B 3A 00 E4 10 98 |.11070....+:....|
000008C0: 2B 3A 20 8B C3 28 45 54 24 29 B3 B1 38 A7 99 22 |+: ..(ET$)..8.."|
000008D0: C9 4E 56 41 4C 49 44 20 54 49 4D 45 22 3A 99 3A |.NVALID TIME":.:|
000008E0: 89 33 35 30 00 EA 10 A2 2B 3A 00 11 11 AC 2B 3A |.350....+:....+:|
000008F0: 20 54 49 24 B2 C8 28 45 54 24 2C 32 29 AA CA 28 | TI$..(ET$,2)..(|
00000900: 45 54 24 2C 34 2C 32 29 AA C9 28 45 54 24 2C 32 |ET$,4,2)..(ET$,2|
00000910: 29 00 1E 11 B6 2B 3A 20 99 3A 89 33 35 30 00 3E |)....+: .:.350.>|
00000920: 11 E0 2E 3A 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...: . *********|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5E |**************.^|
00000940: 11 EA 2E 3A 20 8F 20 2A 20 56 49 45 57 20 26 20 |...: . * VIEW & |
00000950: 53 45 54 20 54 48 45 20 44 41 54 45 20 2A 00 7E |SET THE DATE *.~|
00000960: 11 F4 2E 3A 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...: . *********|
00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8A |**************..|
00000980: 11 FE 2E 3A 20 42 24 B2 22 22 00 A8 11 08 2F 3A |...: B$.""..../:|
00000990: 20 99 22 D4 48 45 20 44 41 54 45 20 49 53 20 2D | .".HE DATE IS -|
000009A0: 20 22 3B 44 41 54 45 24 00 C4 11 12 2F 3A 20 99 | ";DATE$..../: .|
000009B0: 22 C5 4E 54 45 52 20 4E 45 57 20 44 41 54 45 20 |".NTER NEW DATE |
000009C0: 2D 20 22 3B 00 CA 11 1C 2F 3A 00 EB 11 26 2F 3A |- ";..../:...&/:|
000009D0: 20 A1 41 24 3A 8B 41 24 B2 22 22 A7 99 22 12 20 | .A$:.A$.""..". |
000009E0: 92 9D 22 3B 3A 89 31 32 30 37 30 00 14 12 30 2F |..";:.12070...0/|
000009F0: 3A 20 8B 41 24 B2 22 91 22 B0 41 24 B2 22 11 22 |: .A$.".".A$."."|
00000A00: B0 41 24 B2 22 9D 22 B0 41 24 B2 22 1D 22 A7 31 |.A$.".".A$.".".1|
00000A10: 32 30 37 30 00 36 12 3A 2F 3A 20 8B 41 24 B2 22 |2070.6.:/: .A$."|
00000A20: 13 22 B0 41 24 B2 22 93 22 B0 41 24 B2 22 94 22 |.".A$.".".A$."."|
00000A30: A7 31 32 30 37 30 00 52 12 44 2F 3A 20 8B 41 24 |.12070.R.D/: .A$|
00000A40: B2 C7 28 32 30 29 AF 42 24 B2 22 22 A7 31 32 30 |..(20).B$."".120|
00000A50: 37 30 00 84 12 4E 2F 3A 20 8B 41 24 B2 C7 28 32 |70...N/: .A$..(2|
00000A60: 30 29 A7 99 22 20 9D 9D 20 9D 22 3B 3A 42 24 B2 |0).." .. .";:B$.|
00000A70: C8 28 42 24 2C C3 28 42 24 29 AB 31 29 3A 89 31 |.(B$,.(B$).1):.1|
00000A80: 32 30 37 30 00 A0 12 58 2F 3A 20 8B 41 24 B2 C7 |2070...X/: .A$..|
00000A90: 28 31 33 29 A7 99 22 20 22 3A 89 31 32 31 36 30 |(13).." ":.12160|
00000AA0: 00 A6 12 62 2F 3A 00 C1 12 6C 2F 3A 20 42 24 B2 |...b/:...l/: B$.|
00000AB0: 42 24 AA 41 24 3A 99 41 24 3B 3A 89 31 32 30 37 |B$.A$:.A$;:.1207|
00000AC0: 30 00 C7 12 76 2F 3A 00 EB 12 80 2F 3A 20 8B 42 |0...v/:..../: .B|
00000AD0: 24 B2 22 22 A7 99 22 C9 4E 56 41 4C 49 44 20 44 |$.""..".NVALID D|
00000AE0: 41 54 45 22 3A 99 3A 89 33 35 30 00 F1 12 8A 2F |ATE":.:.350..../|
00000AF0: 3A 00 07 13 94 2F 3A 20 44 41 54 45 24 B2 42 24 |:..../: DATE$.B$|
00000B00: 3A 99 3A 89 33 35 30 00 21 13 C8 32 3A 20 8F 20 |:.:.350.!..2: . |
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B20: 2A 00 3B 13 D2 32 3A 20 8F 20 2A 20 52 45 4E 41 |*.;..2: . * RENA|
00000B30: 4D 45 20 41 20 46 49 4C 45 20 2A 00 55 13 DC 32 |ME A FILE *.U..2|
00000B40: 3A 20 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |: . ************|
00000B50: 2A 2A 2A 2A 2A 00 5B 13 E6 32 3A 00 6D 13 F0 32 |*****.[..2:.m..2|
00000B60: 3A 20 4E 24 B2 22 22 3A 4F 24 B2 22 22 00 73 13 |: N$."":O$."".s.|
00000B70: FA 32 3A 00 B3 13 04 33 3A 20 8B CA 28 42 24 2C |.2:....3: ..(B$,|
00000B80: 38 2C 31 29 B3 B1 22 41 22 20 B0 20 CA 28 42 24 |8,1).."A" . .(B$|
00000B90: 2C 38 2C 31 29 B3 B1 22 42 22 20 A7 20 44 52 49 |,8,1).."B" . DRI|
00000BA0: 56 45 24 B2 22 C1 22 3A 53 B2 38 3A 44 52 49 56 |VE$.".":S.8:DRIV|
00000BB0: 45 B2 38 00 E2 13 0E 33 3A 20 8B CA 28 42 24 2C |E.8....3: ..(B$,|
00000BC0: 38 2C 31 29 B2 22 41 22 20 A7 20 44 52 49 56 45 |8,1)."A" . DRIVE|
00000BD0: 24 B2 22 C1 22 3A 53 B2 31 30 3A 44 52 49 56 45 |$.".":S.10:DRIVE|
00000BE0: B2 38 00 11 14 18 33 3A 20 8B CA 28 42 24 2C 38 |.8....3: ..(B$,8|
00000BF0: 2C 31 29 B2 22 42 22 20 A7 20 44 52 49 56 45 24 |,1)."B" . DRIVE$|
00000C00: B2 22 C2 22 3A 53 B2 31 30 3A 44 52 49 56 45 B2 |.".":S.10:DRIVE.|
00000C10: 39 00 17 14 22 33 3A 00 2B 14 2C 33 3A 20 81 20 |9..."3:.+.,3: . |
00000C20: 4B B2 53 20 A4 20 C3 28 42 24 29 00 3F 14 36 33 |K.S . .(B$).?.63|
00000C30: 3A 20 20 5A 24 B2 CA 28 42 24 2C 4B 2C 31 29 00 |: Z$..(B$,K,1).|
00000C40: 57 14 40 33 3A 20 20 8B 20 5A 24 B2 22 3D 22 20 |W.@3: . Z$."=" |
00000C50: A7 20 31 33 31 36 30 00 67 14 4A 33 3A 20 20 4E |. 13160.g.J3: N|
00000C60: 24 B2 4E 24 AA 5A 24 00 71 14 54 33 3A 20 82 20 |$.N$.Z$.q.T3: . |
00000C70: 4B 00 77 14 5E 33 3A 00 8D 14 68 33 3A 20 81 20 |K.w.^3:...h3: . |
00000C80: 4F B2 4B AA 31 20 A4 20 C3 28 42 24 29 00 A1 14 |O.K.1 . .(B$)...|
00000C90: 72 33 3A 20 20 5A 24 B2 CA 28 42 24 2C 4F 2C 31 |r3: Z$..(B$,O,1|
00000CA0: 29 00 B7 14 7C 33 3A 20 20 8B 5A 24 B2 22 3D 22 |)...|3: .Z$."="|
00000CB0: 20 A7 31 33 32 32 30 00 C7 14 86 33 3A 20 20 4F | .13220....3: O|
00000CC0: 24 B2 4F 24 AA 5A 24 00 D1 14 90 33 3A 20 82 20 |$.O$.Z$....3: . |
00000CD0: 4F 00 D7 14 9A 33 3A 00 DF 14 A4 33 3A 20 99 00 |O....3:....3: ..|
00000CE0: 07 15 AE 33 3A 20 99 22 C9 4E 53 45 52 54 20 C4 |...3: .".NSERT .|
00000CF0: 49 53 4B 20 49 4E 54 4F 20 C4 52 49 56 45 20 22 |ISK INTO .RIVE "|
00000D00: 3B 44 52 49 56 45 24 00 0F 15 B8 33 3A 20 99 00 |;DRIVE$....3: ..|
00000D10: 30 15 C2 33 3A 20 99 22 D0 52 45 53 53 20 D2 C5 |0..3: .".RESS ..|
00000D20: D4 D5 D2 CE 20 57 48 45 4E 20 52 45 41 44 59 22 |.... WHEN READY"|
00000D30: 00 48 15 CC 33 3A 20 99 3A 99 22 4F 52 20 D1 20 |.H..3: .:."OR . |
00000D40: 54 4F 20 51 55 49 54 22 00 63 15 D6 33 3A 20 A1 |TO QUIT".c..3: .|
00000D50: 41 24 3A 8B 41 24 B2 22 51 22 20 A7 20 89 31 33 |A$:.A$."Q" . .13|
00000D60: 33 33 30 00 7A 15 E0 33 3A 20 8B 41 24 B3 B1 C7 |330.z..3: .A$...|
00000D70: 28 31 33 29 A7 31 33 32 37 30 00 8D 15 EA 33 3A |(13).13270....3:|
00000D80: 20 9F 31 35 2C 44 52 49 56 45 2C 31 35 00 A7 15 | .15,DRIVE,15...|
00000D90: F4 33 3A 20 98 31 35 2C 22 52 30 3A 22 AA 4F 24 |.3: .15,"R0:".O$|
00000DA0: AA 22 3D 22 AA 4E 24 00 B1 15 FE 33 3A 20 A0 31 |."=".N$....3: .1|
00000DB0: 35 00 B7 15 08 34 3A 00 C5 15 12 34 3A 20 99 3A |5....4:....4: .:|
00000DC0: 89 20 33 35 30 00 DD 15 B0 36 3A 20 8F 20 2A 2A |. 350....6: . **|
00000DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F5 15 |*************...|
00000DE0: BA 36 3A 20 8F 20 2A 20 44 49 53 4B 20 53 54 41 |.6: . * DISK STA|
00000DF0: 54 55 53 20 2A 00 0D 16 C4 36 3A 20 8F 20 2A 2A |TUS *....6: . **|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 13 16 |*************...|
00000E10: CE 36 3A 00 1B 16 D8 36 3A 20 99 00 21 16 E2 36 |.6:....6: ..!..6|
00000E20: 3A 00 30 16 EC 36 3A 20 9F 31 35 2C 38 2C 31 35 |:.0..6: .15,8,15|
00000E30: 00 45 16 F6 36 3A 20 84 31 35 2C 45 4E 2C 45 54 |.E..6: .15,EN,ET|
00000E40: 24 2C 54 2C 53 00 4F 16 00 37 3A 20 A0 31 35 00 |$,T,S.O..7: .15.|
00000E50: 55 16 0A 37 3A 00 70 16 14 37 3A 20 8F 20 20 45 |U..7:.p..7: . E|
00000E60: 4E 20 3D 20 45 52 52 4F 52 20 4E 55 4D 42 45 52 |N = ERROR NUMBER|
00000E70: 00 89 16 1E 37 3A 20 8F 20 45 54 24 20 3D 20 45 |....7: . ET$ = E|
00000E80: 52 52 4F 52 20 54 59 50 45 00 9D 16 28 37 3A 20 |RROR TYPE...(7: |
00000E90: 8F 20 20 20 54 20 3D 20 54 52 41 43 4B 00 B2 16 |. T = TRACK...|
00000EA0: 32 37 3A 20 8F 20 20 20 53 20 3D 20 53 45 43 54 |27: . S = SECT|
00000EB0: 4F 52 00 B8 16 3C 37 3A 00 EB 16 46 37 3A 20 99 |OR...<7:...F7: .|
00000EC0: 20 22 C4 C9 D3 CB A0 D3 D4 C1 D4 D5 D3 20 12 22 | "........... ."|
00000ED0: 3B 45 4E 3B 22 9D 2C 22 3B 45 54 24 3B 22 2C 22 |;EN;".,";ET$;","|
00000EE0: 3B 54 3B 22 9D 2C 22 3B 53 3A 99 00 F6 16 50 37 |;T;".,";S:....P7|
00000EF0: 3A 20 89 33 35 30 00 0E 17 98 3A 3A 20 8F 20 2A |: .350....:: . *|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 |**************.&|
00000F10: 17 A2 3A 3A 20 8F 20 2A 20 43 4F 50 59 20 41 20 |..:: . * COPY A |
00000F20: 46 49 4C 45 20 2A 00 3E 17 AC 3A 3A 20 8F 20 2A |FILE *.>..:: . *|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 44 |**************.D|
00000F40: 17 B6 3A 3A 00 71 17 C0 3A 3A 20 8B CA 28 42 24 |..::.q..:: ..(B$|
00000F50: 2C 36 2C 31 29 B3 B1 22 41 22 A7 44 52 49 56 45 |,6,1).."A".DRIVE|
00000F60: B2 38 3A 44 52 49 56 45 24 B2 22 C1 22 3A 53 B2 |.8:DRIVE$.".":S.|
00000F70: 36 00 9E 17 CA 3A 3A 20 8B 20 CA 28 42 24 2C 36 |6....:: . .(B$,6|
00000F80: 2C 31 29 B2 22 41 22 A7 44 52 49 56 45 B2 38 3A |,1)."A".DRIVE.8:|
00000F90: 44 52 49 56 45 24 B2 22 C1 22 3A 53 B2 38 00 A4 |DRIVE$.".":S.8..|
00000FA0: 17 D4 3A 3A 00 AA 17 DE 3A 3A 00 B0 17 E8 3A 3A |..::....::....::|
00000FB0: 00 C4 17 F2 3A 3A 20 81 20 4F B2 53 20 A4 20 C3 |....:: . O.S . .|
00000FC0: 28 42 24 29 00 D8 17 FC 3A 3A 20 20 5A 24 B2 CA |(B$)....:: Z$..|
00000FD0: 28 42 24 2C 4F 2C 31 29 00 EF 17 06 3B 3A 20 20 |(B$,O,1)....;: |
00000FE0: 20 8B 5A 24 B2 22 3D 22 A7 20 31 35 31 35 30 00 | .Z$."=". 15150.|
00000FF0: 01 18 10 3B 3A 20 20 43 31 24 B2 43 31 24 AA 5A |...;: C1$.C1$.Z|
00001000: 24 00 09 18 1A 3B 3A 20 82 00 0F 18 24 3B 3A 00 |$....;: ....$;:.|
00001010: 25 18 2E 3B 3A 20 81 20 4F 31 B2 4F AA 31 20 A4 |%..;: . O1.O.1 .|
00001020: C3 28 42 24 29 00 3A 18 38 3B 3A 20 20 5A 24 B2 |.(B$).:.8;: Z$.|
00001030: CA 28 42 24 2C 4F 31 2C 31 29 00 4C 18 42 3B 3A |.(B$,O1,1).L.B;:|
00001040: 20 20 43 32 24 B2 43 32 24 AA 5A 24 00 54 18 4C | C2$.C2$.Z$.T.L|
00001050: 3B 3A 20 82 00 5A 18 56 3B 3A 00 62 18 60 3B 3A |;: ..Z.V;:.b.`;:|
00001060: 20 99 00 8C 18 6A 3B 3A 20 99 22 C9 4E 53 45 52 | ....j;: .".NSER|
00001070: 54 20 44 49 53 4B 20 49 4E 54 4F 20 44 52 49 56 |T DISK INTO DRIV|
00001080: 45 20 22 3B 44 52 49 56 45 24 3A 99 00 AF 18 74 |E ";DRIVE$:....t|
00001090: 3B 3A 20 99 22 D0 52 45 53 53 20 D2 C5 D4 D5 D2 |;: .".RESS .....|
000010A0: CE 20 57 48 45 4E 20 52 45 41 44 59 22 3A 99 00 |. WHEN READY":..|
000010B0: C7 18 7E 3B 3A 20 99 22 4F 52 20 D1 20 54 4F 20 |..~;: ."OR . TO |
000010C0: 51 55 49 54 22 3A 99 00 CD 18 88 3B 3A 00 D7 18 |QUIT":.....;:...|
000010D0: 92 3B 3A 20 A1 41 24 00 EF 18 9C 3B 3A 20 8B 41 |.;: .A$....;: .A|
000010E0: 24 B2 C7 28 31 33 29 20 A7 20 31 35 33 30 30 00 |$..(13) . 15300.|
000010F0: 06 19 A6 3B 3A 20 8B 41 24 B2 22 51 22 20 A7 20 |...;: .A$."Q" . |
00001100: 99 3A 89 33 35 30 00 14 19 B0 3B 3A 20 89 20 31 |.:.350....;: . 1|
00001110: 35 32 35 30 00 1A 19 BA 3B 3A 00 2D 19 C4 3B 3A |5250....;:.-..;:|
00001120: 20 9F 31 35 2C 44 52 49 56 45 2C 31 35 00 49 19 | .15,DRIVE,15.I.|
00001130: CE 3B 3A 20 98 31 35 2C 22 43 30 3A 22 AA 43 32 |.;: .15,"C0:".C2|
00001140: 24 AA 22 3D 22 AA 43 31 24 00 53 19 D8 3B 3A 20 |$."=".C1$.S..;: |
00001150: A0 31 35 00 59 19 E2 3B 3A 00 67 19 EC 3B 3A 20 |.15.Y..;:.g..;: |
00001160: 99 3A 89 20 33 35 30 00 80 19 80 3E 3A 20 8F 20 |.:. 350....>: . |
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 00 99 19 8A 3E 3A 20 8F 20 2A 20 45 52 41 53 45 |....>: . * ERASE|
00001190: 20 41 20 46 49 4C 45 20 2A 00 B2 19 94 3E 3A 20 | A FILE *....>: |
000011A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000011B0: 2A 2A 00 B8 19 9E 3E 3A 00 C7 19 A8 3E 3A 20 4E |**....>:....>: N|
000011C0: 41 4D 45 24 B2 22 22 00 CD 19 B2 3E 3A 00 09 1A |AME$.""....>:...|
000011D0: BC 3E 3A 20 8B CA 28 42 24 2C 37 2C 31 29 B3 B1 |.>: ..(B$,7,1)..|
000011E0: 22 41 22 B0 CA 28 42 24 2C 37 2C 31 29 B3 B1 22 |"A"..(B$,7,1).."|
000011F0: 42 22 A7 44 52 49 56 45 B2 38 3A 44 52 49 56 45 |B".DRIVE.8:DRIVE|
00001200: 24 B2 22 C1 22 3A 53 B2 37 00 35 1A C6 3E 3A 20 |$.".":S.7.5..>: |
00001210: 8B CA 28 42 24 2C 37 2C 31 29 B2 22 41 22 A7 44 |..(B$,7,1)."A".D|
00001220: 52 49 56 45 B2 38 3A 44 52 49 56 45 24 B2 22 C1 |RIVE.8:DRIVE$.".|
00001230: 22 3A 53 B2 39 00 61 1A D0 3E 3A 20 8B CA 28 42 |":S.9.a..>: ..(B|
00001240: 24 2C 37 2C 31 29 B2 22 42 22 A7 44 52 49 56 45 |$,7,1)."B".DRIVE|
00001250: B2 39 3A 44 52 49 56 45 24 B2 22 C2 22 3A 53 B2 |.9:DRIVE$.".":S.|
00001260: 39 00 67 1A DA 3E 3A 00 7B 1A E4 3E 3A 20 81 20 |9.g..>:.{..>: . |
00001270: 4B B2 53 20 A4 20 C3 28 42 24 29 00 98 1A EE 3E |K.S . .(B$)....>|
00001280: 3A 20 20 4E 41 4D 45 24 B2 4E 41 4D 45 24 AA CA |: NAME$.NAME$..|
00001290: 28 42 24 2C 4B 2C 31 29 00 A0 1A F8 3E 3A 20 82 |(B$,K,1)....>: .|
000012A0: 00 A6 1A 02 3F 3A 00 AE 1A 0C 3F 3A 20 99 00 D6 |....?:....?: ...|
000012B0: 1A 16 3F 3A 20 99 22 C9 4E 53 45 52 54 20 44 49 |..?: .".NSERT DI|
000012C0: 53 4B 20 49 4E 54 4F 20 44 52 49 56 45 20 22 3B |SK INTO DRIVE ";|
000012D0: 44 52 49 56 45 24 00 DE 1A 20 3F 3A 20 99 00 FF |DRIVE$... ?: ...|
000012E0: 1A 2A 3F 3A 20 99 22 D0 52 45 53 53 20 D2 C5 D4 |.*?: .".RESS ...|
000012F0: D5 D2 CE 20 57 48 45 4E 20 52 45 41 44 59 22 00 |... WHEN READY".|
00001300: 07 1B 34 3F 3A 20 99 00 1D 1B 3E 3F 3A 20 99 22 |..4?: ....>?: ."|
00001310: 4F 52 20 D1 20 54 4F 20 51 55 49 54 22 00 25 1B |OR . TO QUIT".%.|
00001320: 48 3F 3A 20 99 00 2F 1B 52 3F 3A 20 A1 41 24 00 |H?: ../.R?: .A$.|
00001330: 44 1B 5C 3F 3A 20 8B 41 24 B2 22 51 22 A7 99 3A |D.\?: .A$."Q"..:|
00001340: 89 33 35 30 00 5C 1B 66 3F 3A 20 8B 41 24 B2 C7 |.350.\.f?: .A$..|
00001350: 28 31 33 29 20 A7 20 31 36 32 36 30 00 6A 1B 70 |(13) . 16260.j.p|
00001360: 3F 3A 20 89 20 31 36 32 31 30 00 70 1B 7A 3F 3A |?: . 16210.p.z?:|
00001370: 00 83 1B 84 3F 3A 20 9F 31 35 2C 44 52 49 56 45 |....?: .15,DRIVE|
00001380: 2C 31 35 00 99 1B 8E 3F 3A 20 98 31 35 2C 22 53 |,15....?: .15,"S|
00001390: 30 3A 22 AA 4E 41 4D 45 24 00 A3 1B 98 3F 3A 20 |0:".NAME$....?: |
000013A0: A0 31 35 00 A9 1B A2 3F 3A 00 B7 1B AC 3F 3A 20 |.15....?:....?: |
000013B0: 99 3A 89 20 33 35 30 00 CF 1B 68 42 3A 20 8F 20 |.:. 350...hB: . |
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000013D0: E7 1B 72 42 3A 20 8F 20 2A 20 49 20 4E 45 45 44 |..rB: . * I NEED|
000013E0: 20 48 45 4C 50 20 2A 00 FF 1B 7C 42 3A 20 8F 20 | HELP *...|B: . |
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001400: 05 1C 86 42 3A 00 0D 1C 90 42 3A 20 99 00 28 1C |...B:....B: ..(.|
00001410: 9A 42 3A 20 99 22 12 CD D3 2D C4 CF D3 20 C3 CF |.B: ."...-... ..|
00001420: CD CD C1 CE C4 D3 92 22 00 30 1C A4 42 3A 20 99 |.......".0..B: .|
00001430: 00 3D 1C AE 42 3A 20 99 22 44 49 52 22 00 4D 1C |.=..B: ."DIR".M.|
00001440: B8 42 3A 20 99 22 44 49 52 20 41 3A 22 00 5D 1C |.B: ."DIR A:".].|
00001450: C2 42 3A 20 99 22 44 49 52 20 42 3A 22 00 6B 1C |.B: ."DIR B:".k.|
00001460: CC 42 3A 20 99 22 54 49 4D 45 22 00 79 1C D6 42 |.B: ."TIME".y..B|
00001470: 3A 20 99 22 44 41 54 45 22 00 88 1C E0 42 3A 20 |: ."DATE"....B: |
00001480: 99 22 42 41 53 49 43 22 00 AE 1C EA 42 3A 20 99 |."BASIC"....B: .|
00001490: 22 52 45 4E 41 4D 45 20 50 52 4F 47 52 41 4D 20 |"RENAME PROGRAM |
000014A0: 4E 41 4D 45 3D 4E 45 57 20 4E 41 4D 45 22 00 D6 |NAME=NEW NAME"..|
000014B0: 1C F4 42 3A 20 99 22 52 45 4E 41 4D 45 20 41 3A |..B: ."RENAME A:|
000014C0: 50 52 4F 47 52 41 4D 20 4E 41 4D 45 3D 4E 45 57 |PROGRAM NAME=NEW|
000014D0: 20 4E 41 4D 45 22 00 FE 1C FE 42 3A 20 99 22 52 | NAME"....B: ."R|
000014E0: 45 4E 41 4D 45 20 42 3A 50 52 4F 47 52 41 4D 20 |ENAME B:PROGRAM |
000014F0: 4E 41 4D 45 3D 4E 45 57 20 4E 41 4D 45 22 00 0A |NAME=NEW NAME"..|
00001500: 1D 08 43 3A 20 99 22 44 53 22 00 17 1D 12 43 3A |..C: ."DS"....C:|
00001510: 20 99 22 43 4C 53 22 00 3D 1D 1C 43 3A 20 99 22 | ."CLS".=..C: ."|
00001520: 43 4F 50 59 20 41 3A 50 52 4F 47 52 41 4D 20 4E |COPY A:PROGRAM N|
00001530: 41 4D 45 3D 4E 45 57 20 4E 41 4D 45 22 00 59 1D |AME=NEW NAME".Y.|
00001540: 26 43 3A 20 99 22 45 52 41 53 45 20 50 52 4F 47 |&C: ."ERASE PROG|
00001550: 52 41 4D 20 4E 41 4D 45 22 00 77 1D 30 43 3A 20 |RAM NAME".w.0C: |
00001560: 99 22 45 52 41 53 45 20 41 3A 50 52 4F 47 52 41 |."ERASE A:PROGRA|
00001570: 4D 20 4E 41 4D 45 22 00 95 1D 3A 43 3A 20 99 22 |M NAME"...:C: ."|
00001580: 45 52 41 53 45 20 42 3A 50 52 4F 47 52 41 4D 20 |ERASE B:PROGRAM |
00001590: 4E 41 4D 45 22 00 A3 1D 44 43 3A 20 99 22 48 45 |NAME"...DC: ."HE|
000015A0: 4C 50 22 00 AB 1D 4E 43 3A 20 99 00 B7 1D 58 43 |LP"...NC: ....XC|
000015B0: 3A 20 89 20 33 35 30 00 CF 1D 18 F6 3A 20 8F 20 |: . 350.....: . |
000015C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000015D0: E7 1D 22 F6 3A 20 8F 20 2A 20 45 4E 54 45 52 20 |..".: . * ENTER |
000015E0: 42 41 53 49 43 20 2A 00 FF 1D 2C F6 3A 20 8F 20 |BASIC *...,.: . |
000015F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001600: 05 1E 36 F6 3A 00 0D 1E 40 F6 3A 20 99 00 42 1E |..6.:...@.: ..B.|
00001610: 4A F6 3A 20 99 22 D4 D9 D0 C5 20 12 CC CF C1 C4 |J.: .".... .....|
00001620: 22 AA C7 28 33 34 29 AA 22 CD D3 2D C4 CF D3 2E |"..(34)."..-....|
00001630: 36 34 22 AA C7 28 33 34 29 AA 22 2C 38 3A D2 D5 |64"..(34).",8:..|
00001640: CE 22 00 48 1E 54 F6 3A 00 50 1E 5E F6 3A 20 A2 |.".H.T.:.P.^.: .|
00001650: 00 00 00 |... |
..!.D.: . IBM MS-DOS (64 VERSION).A.N.:
. -----------------------.I.X.: ..B...:
. BY MICHAEL GREGG.....: . ON Q-LINK: MI
CHAELG25.....: .... .: . THIS PROGRAM IS
A SIMULATION.J...: . OF THE IBM'S MS-DO
S..R...: ......: . I CHANGED IT TO WORK
ON THE...H.: . C64 & C128 (128 MODE)...R
.: ..A...: . FILENAMES FOR BOTH FILES AR
E.Z...: . C64 - MS-DOS.64.T...: . C128
- MS-DOS.128.|...: ......: . I HOPE YOU
ENJOY THIS. AND.....: . PLEASE LEAVE ME
EMAIL....F...:...".: DATE$."12/7/87"...,
.: .G(147)G(14)...6.: . 53280,0:. 53281,
0.(.@.: ."...IBM MS-DOS FOR C64".P.J.: .
"COPYRIGHT (C) DECEMBER 7, 1987".}.T.: .
"BY - MICHAELG25 DECEMBER 7, 1987":....
^.: B$."":. ".A>";...H.:...R.: .A$:.A$."
"..". ..";:.370...|.: .A$.".".A$.".".A$.
".".A$.".".370.....: .A$.".".A$.".".A$."
.".370.....: .A$.G(20).B$.""..370.J...:
.A$.G(20).." .. .";:B$.H(B$,C(B$).1):. 3
70.E...: .A$.G(13).." ":.1000.K...:.....
: B$.B$.A$:.A$;:. 370...B.:...L.:.....:
. **************************.W...: . * D
ETERMINE WHAT COMMAND *.....: . * EXECUT
E............... *.....: . *************
*************.#...:.?...: . H(B$,3)."DIR
".10000.Y.$.: . B$."TIME" . 11000.T...:
. B$."DATE" . 12000"...8.: . B$."BASIC"
. 63000...B.: . H(B$,6)."RENAME".13000.F
.L.: . B$."DS" . 14000...V.: . B$."CLS"
. 300...`.: . H(B$,4)."COPY".15000...J.:
. H(B$,5)."ERASE".16000.2.T.: . B$."HEL
P" . 17000.F.~.: . B$."" . 350.M...: ."B
AD COMMAND OR FILENAME":. 350.S...:.Y...
:....': . ***********************....':
. * VIEW DISK DIRECTORY *.Y.$': . ******
*****************....':...8': .B$."DIR"
. DRIVE.8...B': .B$."DIR A:" . DRIVE.8.3
.L': .B$."DIR B:" . DRIVE.9.C.V': C$.G(0
):..B.`': .5,DRIVE,0,"$":.#5,A$,A$.H.J':
...T': .#5,A$,A$:.A$."". 5:.:.350...~':
.#5,A$,B$:.F(A$.C$).F(B$.C$).256;.V..':
.#5,A$:.A$;B$;:.A$.""..:.10100....': . 1
0120....':....*: . *********************
****....+: . * VIEW & ENTER THE TIME *.P
..+: . *************************.]..+: E
T$.""... +: ."THE TIME IS - ";H(TI$,2)":
"J(TI$,3,2)":"I(TI$,2)...*+: ."ENTER NEW
TIME - ";...4+:.Y.>+: .A$:.A$.""..". ..
";:.11070...H+: .A$.".".A$.".".A$.".".A$
.".".11070.$.R+: .A$.".".A$.".".A$.".".1
1070.A.\+: .A$.G(20).ET$."".11070.W.F+:
.A$.G(20).." .. .";:ET$.H(ET$,C(ET$).1):
. 11070...P+: .A$.G(13).." ":.11160...Z+
:....+: ET$.ET$.A$:.A$;:.11070....+:....
+: .C(ET$)..8.."INVALID TIME":.:.350....
+:....+: TI$.H(ET$,2).J(ET$,4,2).I(ET$,2
)....+: .:.350.>...: . *****************
******.^...: . * VIEW & SET THE DATE *.~
...: . ***********************.....: B$.
""..../: ."THE DATE IS - ";DATE$.D../: .
"ENTER NEW DATE - ";.J../:...&/: .A$:.A$
.""..". ..";:.12070...0/: .A$.".".A$."."
.A$.".".A$.".".12070.6.:/: .A$.".".A$.".
".A$.".".12070.R.D/: .A$.G(20).B$."".120
70...N/: .A$.G(20).." .. .";:B$.H(B$,C(B
$).1):.12070. .X/: .A$.G(13).." ":.12160
...B/:.A.L/: B$.B$.A$:.A$;:.12070.G.V/:.
.../: .B$."".."INVALID DATE":.:.350..../
:..../: DATE$.B$:.:.350.!.H2: . ********
*********.;.R2: . * RENAME A FILE *.U..2
: . *****************.[..2:.M..2: N$."":
O$."".S..2:....3: .J(B$,8,1).."A" . J(B$
,8,1).."B" . DRIVE$."A":S.8:DRIVE.8....3
: .J(B$,8,1)."A" . DRIVE$."A":S.10:DRIVE
.8....3: .J(B$,8,1)."B" . DRIVE$."B":S.1
0:DRIVE.9..."3:.+.,3: . K.S . C(B$).?.63
: Z$.J(B$,K,1).W.@3: . Z$."=" . 13160.
G.J3: N$.N$.Z$.Q.T3: . K.W.^3:...H3: .
O.K.1 . C(B$)...R3: Z$.J(B$,O,1)...|3:
.Z$."=" .13220.G..3: O$.O$.Z$.Q..3: .
O.W..3:....3: .....3: ."INSERT DISK INTO
DRIVE ";DRIVE$....3: ..0.B3: ."PRESS RE
TURN WHEN READY".H.L3: .:."OR Q TO QUIT"
.C.V3: .A$:.A$."Q" . .13330.Z..3: .A$..G
(13).13270....3: .15,DRIVE,15....3: .15,
"R0:".O$."=".N$....3: 15....4:.E..4: .:
. 350....6: . ***************....6: . *
DISK STATUS *...D6: . ***************...
N6:...X6: ..!..6:.0..6: .15,8,15.E..6: .
15,EN,ET$,T,S.O..7: 15.U..7:.P..7: . E
N = ERROR NUMBER....7: . ET$ = ERROR TYP
E...(7: . T = TRACK...27: . S = SECT
OR...<7:...F7: . "DISK STATUS .";EN;".,"
;ET$;",";T;".,";S:....P7: .350....:: . *
**************.&..:: . * COPY A FILE *.>
..:: . ***************.D..::.Q..:: .J(B$
,6,1).."A".DRIVE.8:DRIVE$."A":S.6...J::
. J(B$,6,1)."A".DRIVE.8:DRIVE$."A":S.8..
.T::....::....::.D..:: . O.S . C(B$).X..
:: Z$.J(B$,O,1)....;: .Z$."=". 15150.
...;: C1$.C1$.Z$....;: ....$;:.%..;: .
O1.O.1 .C(B$).:.8;: Z$.J(B$,O1,1).L.B;:
C2$.C2$.Z$.T.L;: ..Z.V;:.B.`;: ....J;:
."INSERT DISK INTO DRIVE ";DRIVE$:....T
;: ."PRESS RETURN WHEN READY":..G.~;: ."
OR Q TO QUIT":..M..;:.W..;: .A$....;: .A
$.G(13) . 15300....;: .A$."Q" . .:.350..
..;: . 15250....;:.-.D;: .15,DRIVE,15.I.
N;: .15,"C0:".C2$."=".C1$.S.X;: 15.Y..;
:.G..;: .:. 350....>: . ****************
....>: . * ERASE A FILE *....>: . ******
**********....>:.G..>: NAME$."".M..>:...
.>: .J(B$,7,1).."A".J(B$,7,1).."B".DRIVE
.8:DRIVE$."A":S.7.5.F>: .J(B$,7,1)."A".D
RIVE.8:DRIVE$."A":S.9.A.P>: .J(B$,7,1)."
B".DRIVE.9:DRIVE$."B":S.9.G.Z>:.{..>: .
K.S . C(B$)....>: NAME$.NAME$.J(B$,K,1)
. ..>: .....?:....?: ..V..?: ."INSERT DI
SK INTO DRIVE ";DRIVE$... ?: ....*?: ."P
RESS RETURN WHEN READY"...4?: ....>?: ."
OR Q TO QUIT".%.H?: ../.R?: .A$.D.\?: .A
$."Q"..:.350.\.F?: .A$.G(13) . 16260.J.P
?: . 16210.P.Z?:....?: .15,DRIVE,15....?
: .15,"S0:".NAME$....?: 15....?:....?:
.:. 350.O.HB: . ***************...RB: .
* I NEED HELP *...|B: . ***************.
...B:....B: ..(..B: .".MS-DOS COMMANDS."
.0..B: ..=..B: ."DIR".M..B: ."DIR A:".].
BB: ."DIR B:".K.LB: ."TIME".Y.VB: ."DATE
"....B: ."BASIC"....B: ."RENAME PROGRAM
NAME=NEW NAME".V..B: ."RENAME A:PROGRAM
NAME=NEW NAME"....B: ."RENAME B:PROGRAM
NAME=NEW NAME"....C: ."DS"....C: ."CLS".
=..C: ."COPY A:PROGRAM NAME=NEW NAME".Y.
&C: ."ERASE PROGRAM NAME".W.0C: ."ERASE
A:PROGRAM NAME"...:C: ."ERASE B:PROGRAM
NAME"...DC: ."HELP"...NC: ....XC: . 350.
O...: . ***************...".: . * ENTER
BASIC *...,.: . ***************...6.:...
@.: ..B.J.: ."TYPE .LOAD".G(34)."MS-DOS.
64".G(34).",8:RUN".H.T.:.P.^.: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL