DISKPICKER
FILE INFORMATION
FILENAME(S): DISKPICKER
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-12-01 13:41:54
APPEARS ON: 1 disk(s)
FILE HASH
107db69ef38d292e53056d3e3020562ead5d668e692b8593cbcd7e6e51ac5c08
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NISSE | DISKPICKER | PRG | hedning, smalandsstenar | 34 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 1E 00 97 35 32 2C 33 31 3A 97 35 36 |.......52,31:.56|
00000010: 2C 33 31 00 1B 08 23 00 8A 34 30 00 44 08 28 00 |,31...#..40.D.(.|
00000020: 97 35 33 32 38 30 2C 31 31 3A 97 35 33 32 38 31 |.53280,11:.53281|
00000030: 2C 31 31 3A 9C 3A 86 45 52 24 28 31 31 29 3A 8D |,11:.:.ER$(11):.|
00000040: 33 30 30 30 00 70 08 2D 00 99 22 93 9E 20 20 20 |3000.p.-..".. |
00000050: 20 20 20 44 49 53 4B 50 49 43 4B 45 52 88 20 50 | DISKPICKER. P|
00000060: 53 49 44 41 43 28 43 29 38 34 20 56 42 4E 05 22 |SIDAC(C)84 VBN."|
00000070: 00 90 08 32 00 99 22 11 20 20 20 20 20 20 20 20 |...2..". |
00000080: 20 20 20 2A 2A 2A 20 4D 45 4E 55 20 2A 2A 2A 22 | *** MENU ***"|
00000090: 00 BB 08 3C 00 99 22 11 28 31 29 20 54 52 41 4E |...<..".(1) TRAN|
000000A0: 53 46 45 52 20 44 49 53 4B 20 4D 45 4D 4F 52 59 |SFER DISK MEMORY|
000000B0: 20 54 4F 20 42 55 46 46 45 52 22 00 DB 08 41 00 | TO BUFFER"...A.|
000000C0: 99 22 11 28 32 29 20 45 4E 41 42 4C 45 20 4D 4F |.".(2) ENABLE MO|
000000D0: 4E 49 54 4F 52 20 4D 4F 44 45 22 00 06 09 46 00 |NITOR MODE"...F.|
000000E0: 99 22 11 28 33 29 20 54 52 41 4E 53 46 45 52 20 |.".(3) TRANSFER |
000000F0: 42 55 46 46 45 52 20 54 4F 20 44 49 53 4B 20 4D |BUFFER TO DISK M|
00000100: 45 4D 4F 52 59 22 00 2E 09 4B 00 99 22 11 28 34 |EMORY"...K..".(4|
00000110: 29 20 44 49 52 45 43 54 20 45 58 45 43 55 54 45 |) DIRECT EXECUTE|
00000120: 20 55 53 45 52 20 50 52 4F 47 52 41 4D 22 00 59 | USER PROGRAM".Y|
00000130: 09 4E 00 99 22 11 28 35 29 20 4A 4F 42 20 51 55 |.N..".(5) JOB QU|
00000140: 45 20 45 58 45 43 55 54 45 20 54 4F 20 44 49 53 |E EXECUTE TO DIS|
00000150: 4B 20 42 55 46 46 45 52 22 00 80 09 50 00 99 22 |K BUFFER"...P.."|
00000160: 11 28 36 29 20 4C 4F 41 44 20 53 45 43 54 4F 52 |.(6) LOAD SECTOR|
00000170: 20 54 4F 20 44 49 53 4B 20 42 55 46 46 45 52 22 | TO DISK BUFFER"|
00000180: 00 9F 09 52 00 99 22 11 28 37 29 20 49 4E 49 54 |...R..".(7) INIT|
00000190: 49 41 4C 49 5A 45 20 44 49 53 4B 20 49 4F 22 00 |IALIZE DISK IO".|
000001A0: BB 09 53 00 99 22 11 28 38 29 20 46 4F 52 4D 41 |..S..".(8) FORMA|
000001B0: 54 20 44 49 53 4B 45 54 54 45 22 00 DF 09 55 00 |T DISKETTE"...U.|
000001C0: 85 22 11 53 45 4C 45 43 54 20 43 48 4F 49 43 45 |.".SELECT CHOICE|
000001D0: 22 3B 43 48 24 3A 43 48 B2 C5 28 43 48 24 29 00 |";CH$:CH..(CH$).|
000001E0: EC 09 58 00 8B 43 48 B1 38 A7 34 30 00 16 0A 5A |..X..CH.8.40...Z|
000001F0: 00 91 43 48 20 89 20 31 30 30 2C 33 30 30 2C 34 |..CH . 100,300,4|
00000200: 30 30 2C 35 30 30 2C 36 30 30 2C 37 30 30 2C 38 |00,500,600,700,8|
00000210: 30 30 2C 39 30 30 00 1E 0A 5F 00 89 34 30 00 50 |00,900..._..40.P|
00000220: 0A 64 00 99 22 93 11 28 31 29 20 54 52 41 4E 53 |.d.."..(1) TRANS|
00000230: 46 45 52 20 44 49 53 4B 20 4D 45 4D 4F 52 59 20 |FER DISK MEMORY |
00000240: 54 4F 20 42 55 46 46 45 52 22 3A 8D 32 30 30 30 |TO BUFFER":.2000|
00000250: 00 7F 0A 69 00 85 22 11 49 4E 50 55 54 20 44 49 |...i..".INPUT DI|
00000260: 53 4B 20 53 54 41 52 54 20 41 44 44 52 45 53 53 |SK START ADDRESS|
00000270: 22 3B 58 24 3A 8D 31 30 30 30 3A 53 41 B2 58 00 |";X$:.1000:SA.X.|
00000280: AC 0A 6E 00 85 22 11 49 4E 50 55 54 20 44 49 53 |..n..".INPUT DIS|
00000290: 4B 20 45 4E 44 20 41 44 44 52 45 53 53 22 3B 58 |K END ADDRESS";X|
000002A0: 24 3A 8D 31 30 30 30 3A 45 41 B2 58 00 E5 0A 78 |$:.1000:EA.X...x|
000002B0: 00 85 22 11 49 4E 50 55 54 20 42 55 46 46 45 52 |..".INPUT BUFFER|
000002C0: 20 41 44 44 52 45 53 53 22 3B 58 24 3A 8D 31 30 | ADDRESS";X$:.10|
000002D0: 30 30 3A 42 41 B2 58 3A 8B 58 B3 38 31 39 32 A7 |00:BA.X:.X.8192.|
000002E0: 8D 32 30 33 30 00 F8 0A 7D 00 8B 58 B1 33 32 37 |.2030...}..X.327|
000002F0: 36 37 A7 8D 32 30 34 30 00 39 0B 82 00 99 22 11 |67..2040.9....".|
00000300: 44 49 53 4B 20 4D 45 4D 2E 20 54 4F 20 42 55 46 |DISK MEM. TO BUF|
00000310: 46 2E 20 54 52 41 4E 53 46 45 52 20 49 4E 20 50 |F. TRANSFER IN P|
00000320: 52 4F 43 45 53 53 22 3A 99 22 11 42 59 54 45 20 |ROCESS":.".BYTE |
00000330: 43 4F 55 4E 54 20 3D 22 3B 00 62 0B 8C 00 4E 42 |COUNT =";.b...NB|
00000340: B2 45 41 AB 53 41 3A 53 48 B2 B5 28 53 41 AD 32 |.EA.SA:SH..(SA.2|
00000350: 35 36 29 3A 53 4C B2 53 41 AB 28 53 48 AC 32 35 |56):SL.SA.(SH.25|
00000360: 36 29 00 78 0B 96 00 9F 31 35 2C 38 2C 31 35 3A |6).x....15,8,15:|
00000370: 81 4C 50 B2 30 A4 4E 42 00 A6 0B A0 00 98 31 35 |.LP.0.NB......15|
00000380: 2C 22 4D 2D 52 22 C7 28 53 4C 29 C7 28 53 48 29 |,"M-R".(SL).(SH)|
00000390: 3A A1 23 31 35 2C 41 24 3A 50 4E B2 C6 28 41 24 |:.#15,A$:PN..(A$|
000003A0: AA C7 28 30 29 29 00 D6 0B AA 00 97 42 41 2C 50 |..(0))......BA,P|
000003B0: 4E 3A 42 41 B2 42 41 AA 31 3A 53 4C B2 53 4C AA |N:BA.BA.1:SL.SL.|
000003C0: 31 3A 8B 53 4C B2 32 35 36 A7 53 4C B2 30 3A 53 |1:.SL.256.SL.0:S|
000003D0: 48 B2 53 48 AA 31 00 E7 0B AF 00 99 A3 31 32 29 |H.SH.1.......12)|
000003E0: 4C 50 22 91 22 3A 82 00 12 0C B4 00 A0 31 35 3A |LP".":.......15:|
000003F0: 99 22 11 11 45 4E 44 20 54 52 41 4E 53 46 45 52 |."..END TRANSFER|
00000400: 22 3A 81 54 44 B2 31 A4 33 30 30 30 3A 82 3A 8A |":.TD.1.3000:.:.|
00000410: 34 30 00 37 0C 2C 01 85 22 11 50 52 49 4E 54 45 |40.7.,..".PRINTE|
00000420: 52 20 59 2F 4E 22 3B 59 4E 24 3A 8B 59 4E 24 B2 |R Y/N";YN$:.YN$.|
00000430: 22 59 22 A7 50 B2 31 00 5A 0C 2E 01 8B 59 4E 24 |"Y".P.1.Z....YN$|
00000440: B3 B1 22 59 22 AF 59 4E 24 B3 B1 22 4E 22 A7 99 |.."Y".YN$.."N"..|
00000450: 22 91 91 91 22 3A 89 33 30 30 00 6D 0C 31 01 99 |"...":.300.m.1..|
00000460: 3A 8B 50 B2 31 A7 9F 34 2C 34 3A 9D 34 00 78 0C |:.P.1..4,4:.4.x.|
00000470: 36 01 9E 33 32 37 36 38 00 7E 0C 40 01 80 00 B0 |6..32768.~.@....|
00000480: 0C 90 01 99 22 93 11 28 33 29 20 54 52 41 4E 53 |...."..(3) TRANS|
00000490: 46 45 52 20 42 55 46 46 45 52 20 54 4F 20 44 49 |FER BUFFER TO DI|
000004A0: 53 4B 20 4D 45 4D 4F 52 59 22 3A 8D 32 30 30 30 |SK MEMORY":.2000|
000004B0: 00 DF 0C 95 01 85 22 11 49 4E 50 55 54 20 44 49 |......".INPUT DI|
000004C0: 53 4B 20 53 54 41 52 54 20 41 44 44 52 45 53 53 |SK START ADDRESS|
000004D0: 22 3B 58 24 3A 8D 31 30 30 30 3A 53 41 B2 58 00 |";X$:.1000:SA.X.|
000004E0: 0C 0D 9A 01 85 22 11 49 4E 50 55 54 20 44 49 53 |.....".INPUT DIS|
000004F0: 4B 20 45 4E 44 20 41 44 44 52 45 53 53 22 3B 58 |K END ADDRESS";X|
00000500: 24 3A 8D 31 30 30 30 3A 45 41 B2 58 00 45 0D A4 |$:.1000:EA.X.E..|
00000510: 01 85 22 11 49 4E 50 55 54 20 42 55 46 46 45 52 |..".INPUT BUFFER|
00000520: 20 41 44 44 52 45 53 53 22 3B 58 24 3A 8D 31 30 | ADDRESS";X$:.10|
00000530: 30 30 3A 42 41 B2 58 3A 8B 58 B3 38 31 39 32 A7 |00:BA.X:.X.8192.|
00000540: 8D 32 30 33 30 00 58 0D A9 01 8B 58 B1 33 32 37 |.2030.X....X.327|
00000550: 36 37 A7 8D 32 30 34 30 00 99 0D AE 01 99 22 11 |67..2040......".|
00000560: 42 55 46 46 2E 20 54 4F 20 44 49 53 4B 20 4D 45 |BUFF. TO DISK ME|
00000570: 4D 2E 20 54 52 41 4E 53 46 45 52 20 49 4E 20 50 |M. TRANSFER IN P|
00000580: 52 4F 43 45 53 53 22 3A 99 22 11 42 59 54 45 20 |ROCESS":.".BYTE |
00000590: 43 4F 55 4E 54 20 3D 22 3B 00 C2 0D B8 01 4E 42 |COUNT =";.....NB|
000005A0: B2 45 41 AB 53 41 3A 53 48 B2 B5 28 53 41 AD 32 |.EA.SA:SH..(SA.2|
000005B0: 35 36 29 3A 53 4C B2 53 41 AB 28 53 48 AC 32 35 |56):SL.SA.(SH.25|
000005C0: 36 29 00 D8 0D C2 01 9F 31 35 2C 38 2C 31 35 3A |6)......15,8,15:|
000005D0: 81 4C 50 B2 30 A4 4E 42 00 02 0E CC 01 50 4E B2 |.LP.0.NB.....PN.|
000005E0: C2 28 42 41 29 3A 98 31 35 2C 22 4D 2D 57 22 C7 |.(BA):.15,"M-W".|
000005F0: 28 53 4C 29 C7 28 53 48 29 C7 28 31 29 C7 28 50 |(SL).(SH).(1).(P|
00000600: 4E 29 00 2B 0E D6 01 42 41 B2 42 41 AA 31 3A 53 |N).+...BA.BA.1:S|
00000610: 4C B2 53 4C AA 31 3A 8B 53 4C B2 32 35 36 A7 53 |L.SL.1:.SL.256.S|
00000620: 4C B2 30 3A 53 48 B2 53 48 AA 31 00 3C 0E DB 01 |L.0:SH.SH.1.<...|
00000630: 99 A3 31 32 29 4C 50 22 91 22 3A 82 00 67 0E E0 |..12)LP".":..g..|
00000640: 01 A0 31 35 3A 99 22 11 11 45 4E 44 20 54 52 41 |..15:."..END TRA|
00000650: 4E 53 46 45 52 22 3A 81 54 44 B2 31 A4 33 30 30 |NSFER":.TD.1.300|
00000660: 30 3A 82 3A 8A 34 30 00 96 0E F4 01 99 22 93 11 |0:.:.40......"..|
00000670: 28 34 29 20 44 49 52 45 43 54 20 45 58 45 43 55 |(4) DIRECT EXECU|
00000680: 54 45 20 55 53 45 52 20 50 52 4F 47 52 41 4D 22 |TE USER PROGRAM"|
00000690: 3A 8D 32 30 30 30 00 CB 0E F9 01 85 22 11 49 4E |:.2000......".IN|
000006A0: 50 55 54 20 44 49 53 4B 20 50 52 4F 47 2E 20 45 |PUT DISK PROG. E|
000006B0: 4E 54 52 59 20 41 44 44 52 45 53 53 22 3B 58 24 |NTRY ADDRESS";X$|
000006C0: 3A 8D 31 30 30 30 3A 53 41 B2 58 00 EB 0E FE 01 |:.1000:SA.X.....|
000006D0: 53 48 B2 B5 28 53 41 AD 32 35 36 29 3A 53 4C B2 |SH..(SA.256):SL.|
000006E0: 53 41 AB 28 53 48 AC 32 35 36 29 00 10 0F 08 02 |SA.(SH.256).....|
000006F0: 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 4D 2D |.15,8,15:.15,"M-|
00000700: 45 22 C7 28 53 4C 29 C7 28 53 48 29 3A A0 31 35 |E".(SL).(SH):.15|
00000710: 00 47 0F 12 02 99 22 11 50 52 4F 47 52 41 4D 20 |.G....".PROGRAM |
00000720: 45 58 45 43 55 54 49 4F 4E 20 45 4E 41 42 4C 45 |EXECUTION ENABLE|
00000730: 44 22 3A A0 31 35 3A 81 54 44 B2 31 A4 33 30 30 |D":.15:.TD.1.300|
00000740: 30 3A 82 3A 8A 34 30 00 77 0F 58 02 99 22 93 11 |0:.:.40.w.X.."..|
00000750: 28 35 29 20 4A 4F 42 20 51 55 45 20 45 58 45 43 |(5) JOB QUE EXEC|
00000760: 55 54 45 2D 55 53 45 52 20 50 52 4F 47 52 41 4D |UTE-USER PROGRAM|
00000770: 22 3A 8D 32 30 30 30 00 B8 0F 5D 02 99 22 11 49 |":.2000...]..".I|
00000780: 4E 50 55 54 20 4A 4F 42 20 43 48 4F 49 43 45 11 |NPUT JOB CHOICE.|
00000790: 22 3A 99 22 31 32 38 3D 52 45 41 44 22 3A 99 22 |":."128=READ":."|
000007A0: 31 34 34 3D 57 52 49 54 45 22 3A 99 22 31 36 30 |144=WRITE":."160|
000007B0: 3D 56 45 52 49 46 59 22 00 F0 0F 62 02 99 22 31 |=VERIFY"...b.."1|
000007C0: 37 36 3D 53 45 45 4B 22 3A 99 22 31 38 34 3D 53 |76=SEEK":."184=S|
000007D0: 45 43 20 53 45 45 4B 22 3A 99 22 31 39 32 3D 42 |EC SEEK":."192=B|
000007E0: 55 4D 50 22 3A 99 22 32 30 38 3D 4A 55 4D 50 22 |UMP":."208=JUMP"|
000007F0: 00 29 10 67 02 99 22 32 32 34 3D 45 58 45 43 55 |.).g.."224=EXECU|
00000800: 54 45 22 3A 85 22 11 43 48 4F 49 43 45 22 3B 43 |TE":.".CHOICE";C|
00000810: 48 24 3A 43 48 B2 C5 28 43 48 24 29 3A 58 24 B2 |H$:CH..(CH$):X$.|
00000820: 43 48 24 3A 8D 31 31 30 30 00 37 10 69 02 8B 43 |CH$:.1100.7.i..C|
00000830: 48 B2 30 A7 36 30 30 00 48 10 6A 02 8B 43 48 B3 |H.0.600.H.j..CH.|
00000840: B1 32 32 34 A7 36 34 30 00 8D 10 6C 02 99 22 11 |.224.640...l..".|
00000850: 53 45 4C 45 43 54 20 45 58 45 43 55 54 45 20 53 |SELECT EXECUTE S|
00000860: 54 41 52 54 49 4E 47 20 41 44 44 52 45 53 53 22 |TARTING ADDRESS"|
00000870: 3A 99 22 11 41 44 44 52 45 53 53 45 53 20 41 56 |:.".ADDRESSES AV|
00000880: 41 49 4C 41 42 4C 45 20 41 52 45 3A 22 00 C2 10 |AILABLE ARE:"...|
00000890: 71 02 99 22 11 28 31 29 3D 30 33 30 30 22 3A 99 |q..".(1)=0300":.|
000008A0: 22 28 32 29 3D 30 34 30 30 22 3A 99 22 28 33 29 |"(2)=0400":."(3)|
000008B0: 3D 30 35 30 30 22 3A 99 22 28 34 29 3D 30 36 30 |=0500":."(4)=060|
000008C0: 30 22 00 D2 10 74 02 99 22 28 35 29 3D 30 37 30 |0"...t.."(5)=070|
000008D0: 30 22 00 F2 10 76 02 85 22 11 43 48 4F 49 43 45 |0"...v..".CHOICE|
000008E0: 22 3B 43 48 24 3A 58 24 B2 43 48 24 3A 8D 31 31 |";CH$:X$.CH$:.11|
000008F0: 30 30 00 18 11 78 02 43 31 B2 C5 28 43 48 24 29 |00...x.C1..(CH$)|
00000900: 3A 91 43 31 89 36 34 30 2C 36 34 30 2C 36 34 30 |:.C1.640,640,640|
00000910: 2C 36 34 30 2C 36 34 30 00 21 11 7B 02 89 36 32 |,640,640.!.{..62|
00000920: 30 00 2B 11 80 02 8D 32 30 30 30 00 50 11 82 02 |0.+....2000.P...|
00000930: 4F 4B 24 B2 22 4E 22 3A 85 22 11 4D 55 4C 54 49 |OK$."N":.".MULTI|
00000940: 20 53 45 43 54 4F 52 20 59 2F 4E 22 3B 4F 4B 24 | SECTOR Y/N";OK$|
00000950: 00 84 11 85 02 85 22 93 11 49 4E 50 55 54 20 48 |......"..INPUT H|
00000960: 45 41 44 45 52 20 23 31 20 22 3B 58 24 3A 54 4E |EADER #1 ";X$:TN|
00000970: B2 C5 28 58 24 29 3A 8B 58 24 B2 22 58 22 A7 8D |..(X$):.X$."X"..|
00000980: 31 31 30 30 00 A2 11 88 02 8B 4F 4B 24 B2 22 59 |1100......OK$."Y|
00000990: 22 A7 81 53 4E B2 32 30 A4 30 A9 AB 31 3A 89 36 |"..SN.20.0..1:.6|
000009A0: 35 31 00 D5 11 8A 02 85 22 11 49 4E 50 55 54 20 |51......".INPUT |
000009B0: 48 45 41 44 45 52 20 23 32 20 22 3B 58 24 3A 53 |HEADER #2 ";X$:S|
000009C0: 4E B2 C5 28 58 24 29 3A 8B 58 24 B2 22 58 22 A7 |N..(X$):.X$."X".|
000009D0: 8D 31 31 30 30 00 E2 11 8B 02 9F 31 35 2C 38 2C |.1100......15,8,|
000009E0: 31 35 00 F3 11 8C 02 8B 43 48 B3 B1 32 32 34 A7 |15......CH..224.|
000009F0: 36 35 35 00 1B 12 8D 02 8B 43 31 B2 31 A7 98 31 |655......C1.1..1|
00000A00: 35 2C 22 4D 2D 57 22 C7 28 36 33 29 C7 28 30 29 |5,"M-W".(63).(0)|
00000A10: C7 28 31 29 C7 28 43 31 AB 31 29 00 4B 12 8E 02 |.(1).(C1.1).K...|
00000A20: 8B 43 31 B3 B1 31 A7 98 31 35 2C 22 4D 2D 57 22 |.C1..1..15,"M-W"|
00000A30: C7 28 30 29 C7 33 29 C7 28 33 29 C7 28 37 36 29 |.(0).3).(3).(76)|
00000A40: C7 28 30 29 C7 28 43 31 AA 32 29 00 6A 12 8F 02 |.(0).(C1.2).j...|
00000A50: 98 31 35 2C 22 4D 2D 57 22 C7 28 36 29 C7 28 30 |.15,"M-W".(6).(0|
00000A60: 29 C7 28 31 29 C7 28 54 4E 29 00 89 12 94 02 98 |).(1).(TN)......|
00000A70: 31 35 2C 22 4D 2D 57 22 C7 28 37 29 C7 28 30 29 |15,"M-W".(7).(0)|
00000A80: C7 28 31 29 C7 28 53 4E 29 00 A8 12 99 02 98 31 |.(1).(SN)......1|
00000A90: 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 29 C7 |5,"M-W".(0).(0).|
00000AA0: 28 31 29 C7 28 43 48 29 00 CA 12 9E 02 99 22 11 |(1).(CH)......".|
00000AB0: 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 49 4F |PROGRAM EXECUTIO|
00000AC0: 4E 20 45 4E 41 42 4C 45 44 22 00 02 13 A3 02 98 |N ENABLED"......|
00000AD0: 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 30 29 |15,"M-R".(0).(0)|
00000AE0: 3A A1 23 31 35 2C 41 24 3A 4F 50 B2 C6 28 41 24 |:.#15,A$:OP..(A$|
00000AF0: AA C7 28 30 29 29 3A 8B 4F 50 B1 31 32 37 A7 36 |..(0)):.OP.127.6|
00000B00: 37 35 00 32 13 A8 02 99 22 11 54 52 4B 2E 22 54 |75.2....".TRK."T|
00000B10: 4E 22 20 53 45 43 2E 22 53 4E 22 20 20 20 4F 50 |N" SEC."SN" OP|
00000B20: 20 53 54 41 54 55 53 20 43 4F 44 45 20 3D 20 22 | STATUS CODE = "|
00000B30: 4F 50 00 46 13 AD 02 99 22 9E 11 22 45 52 24 28 |OP.F....".."ER$(|
00000B40: 4F 50 29 22 05 22 00 63 13 B2 02 8B 4F 4B 24 B2 |OP)".".c....OK$.|
00000B50: 22 59 22 A7 A0 31 35 3A 82 3A 8D 32 30 30 30 3A |"Y"..15:.:.2000:|
00000B60: 8A 34 30 00 75 13 B7 02 A0 31 35 3A 8D 32 30 30 |.40.u....15:.200|
00000B70: 30 3A 8A 34 30 00 A3 13 BC 02 99 22 93 11 28 36 |0:.40......"..(6|
00000B80: 29 20 4C 4F 41 44 20 53 45 43 54 4F 52 20 54 4F |) LOAD SECTOR TO|
00000B90: 20 44 49 53 4B 20 42 55 46 46 45 52 22 3A 8D 32 | DISK BUFFER":.2|
00000BA0: 30 30 30 00 CC 13 C1 02 85 22 11 49 4E 50 55 54 |000......".INPUT|
00000BB0: 20 54 52 41 43 4B 20 23 20 22 3B 58 24 3A 54 4E | TRACK # ";X$:TN|
00000BC0: B2 C5 28 58 24 29 3A 8D 31 31 30 30 00 F6 13 C6 |..(X$):.1100....|
00000BD0: 02 85 22 11 49 4E 50 55 54 20 53 45 43 54 4F 52 |..".INPUT SECTOR|
00000BE0: 20 23 20 22 3B 58 24 3A 53 4E B2 C5 28 58 24 29 | # ";X$:SN..(X$)|
00000BF0: 3A 8D 31 31 30 30 00 0E 14 CB 02 9F 31 35 2C 38 |:.1100......15,8|
00000C00: 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 45 |,15:.2,8,2,"#".E|
00000C10: 14 D0 02 98 31 35 2C 22 55 31 3A 22 32 3B 30 3B |....15,"U1:"2;0;|
00000C20: 54 4E 3B 53 4E 3A 84 31 35 2C 41 24 2C 42 24 2C |TN;SN:.15,A$,B$,|
00000C30: 43 24 2C 44 24 3A 99 22 11 22 41 24 2C 42 24 2C |C$,D$:."."A$,B$,|
00000C40: 43 24 2C 44 24 00 56 14 D5 02 81 54 44 B2 31 A4 |C$,D$.V....TD.1.|
00000C50: 33 30 30 30 3A 82 00 65 14 DA 02 A0 32 3A A0 31 |3000:..e....2:.1|
00000C60: 35 3A 8A 34 30 00 7F 14 20 03 9F 31 35 2C 38 2C |5:.40... ..15,8,|
00000C70: 31 35 2C 22 49 30 22 3A A0 31 35 3A 8A 34 30 00 |15,"I0":.15:.40.|
00000C80: AD 14 84 03 99 22 93 49 4E 53 45 52 54 20 44 49 |.....".INSERT DI|
00000C90: 53 4B 45 54 54 45 20 54 4F 20 42 45 20 46 4F 52 |SKETTE TO BE FOR|
00000CA0: 4D 41 54 54 45 44 22 3A 8D 32 30 30 30 00 D3 14 |MATTED":.2000...|
00000CB0: 89 03 85 22 11 44 49 53 4B 45 54 54 45 20 4E 41 |...".DISKETTE NA|
00000CC0: 4D 45 22 3B 58 24 3A 4E 4D 24 B2 58 24 3A 8D 31 |ME";X$:NM$.X$:.1|
00000CD0: 31 30 30 00 FD 14 8E 03 85 22 11 44 49 53 4B 45 |100......".DISKE|
00000CE0: 54 54 45 20 49 44 22 3B 58 24 3A 49 44 24 B2 58 |TTE ID";X$:ID$.X|
00000CF0: 24 3A 8D 31 31 30 30 3A 8D 32 30 30 30 00 20 15 |$:.1100:.2000. .|
00000D00: 93 03 99 22 93 46 4F 52 4D 41 54 20 45 4E 41 42 |...".FORMAT ENAB|
00000D10: 4C 45 44 20 50 4C 45 41 53 45 20 57 41 49 54 22 |LED PLEASE WAIT"|
00000D20: 00 54 15 98 03 9F 31 35 2C 38 2C 31 35 3A 98 31 |.T....15,8,15:.1|
00000D30: 35 2C 22 4E 30 3A 22 4E 4D 24 3B C7 28 34 34 29 |5,"N0:"NM$;.(44)|
00000D40: 3B 49 44 24 3A 84 31 35 2C 41 24 2C 42 24 2C 43 |;ID$:.15,A$,B$,C|
00000D50: 24 2C 44 24 00 7D 15 A2 03 99 22 11 22 41 24 2C |$,D$.}...."."A$,|
00000D60: 42 24 2C 43 24 2C 44 24 3A A0 31 35 3A 81 54 44 |B$,C$,D$:.15:.TD|
00000D70: B2 31 A4 33 30 30 30 3A 82 3A 8A 34 30 00 8D 15 |.1.3000:.:.40...|
00000D80: E8 03 8B 58 24 B2 22 58 22 A7 8A 34 30 00 AA 15 |...X$."X"..40...|
00000D90: ED 03 81 49 B2 31 A4 34 3A 44 24 28 49 29 B2 CA |...I.1.4:D$(I)..|
00000DA0: 28 58 24 2C 49 2C 31 29 3A 82 00 C3 15 F2 03 81 |(X$,I,1):.......|
00000DB0: 49 B2 31 A4 34 3A 44 28 49 29 B2 C5 28 44 24 28 |I.1.4:D(I)..(D$(|
00000DC0: 49 29 29 00 DA 15 FC 03 8B 44 24 28 49 29 B2 22 |I))......D$(I)."|
00000DD0: 41 22 A7 44 28 49 29 B2 31 30 00 F1 15 01 04 8B |A".D(I).10......|
00000DE0: 44 24 28 49 29 B2 22 42 22 A7 44 28 49 29 B2 31 |D$(I)."B".D(I).1|
00000DF0: 31 00 08 16 06 04 8B 44 24 28 49 29 B2 22 43 22 |1......D$(I)."C"|
00000E00: A7 44 28 49 29 B2 31 32 00 1F 16 0B 04 8B 44 24 |.D(I).12......D$|
00000E10: 28 49 29 B2 22 44 22 A7 44 28 49 29 B2 31 33 00 |(I)."D".D(I).13.|
00000E20: 36 16 10 04 8B 44 24 28 49 29 B2 22 45 22 A7 44 |6....D$(I)."E".D|
00000E30: 28 49 29 B2 31 34 00 4D 16 15 04 8B 44 24 28 49 |(I).14.M....D$(I|
00000E40: 29 B2 22 46 22 A7 44 28 49 29 B2 31 35 00 53 16 |)."F".D(I).15.S.|
00000E50: 1A 04 82 00 97 16 24 04 44 28 31 29 B2 44 28 31 |......$.D(1).D(1|
00000E60: 29 AC 34 30 39 36 3A 44 28 32 29 B2 44 28 32 29 |).4096:D(2).D(2)|
00000E70: AC 32 35 36 3A 44 28 33 29 B2 44 28 33 29 AC 31 |.256:D(3).D(3).1|
00000E80: 36 3A 58 B2 44 28 31 29 AA 44 28 32 29 AA 44 28 |6:X.D(1).D(2).D(|
00000E90: 33 29 AA 44 28 34 29 00 9D 16 29 04 8E 00 AC 16 |3).D(4)...).....|
00000EA0: 4C 04 8B 58 24 B3 B1 22 58 22 A7 8E 00 B4 16 51 |L..X$.."X".....Q|
00000EB0: 04 8A 34 30 00 D5 16 D0 07 99 22 11 43 48 45 43 |..40......".CHEC|
00000EC0: 4B 20 44 49 53 4B 20 54 48 45 4E 20 50 52 45 53 |K DISK THEN PRES|
00000ED0: 53 20 46 37 22 00 ED 16 DA 07 A1 46 37 24 3A 8B |S F7"......F7$:.|
00000EE0: 46 37 24 B3 B1 22 88 22 A7 32 30 31 30 00 F3 16 |F7$..".".2010...|
00000EF0: E4 07 8E 00 2B 17 EE 07 99 22 9E 11 42 55 46 46 |....+...."..BUFF|
00000F00: 20 41 44 44 52 45 53 53 20 54 4F 4F 20 4C 4F 57 | ADDRESS TOO LOW|
00000F10: 05 22 3A 81 54 44 B2 31 A4 32 30 30 30 3A 82 3A |.":.TD.1.2000:.:|
00000F20: 99 22 93 22 3A 89 31 32 30 3A 8E 00 64 17 F8 07 |.".":.120:..d...|
00000F30: 99 22 9E 11 42 55 46 46 20 41 44 44 52 45 53 53 |."..BUFF ADDRESS|
00000F40: 20 54 4F 4F 20 48 49 47 48 05 22 3A 81 54 44 B2 | TOO HIGH.":.TD.|
00000F50: 31 A4 32 30 30 30 3A 82 3A 99 22 93 22 3A 89 31 |1.2000:.:.".":.1|
00000F60: 32 30 3A 8E 00 7C 17 B8 0B 81 52 50 B2 31 A4 31 |20:..|....RP.1.1|
00000F70: 31 3A 87 45 52 24 28 52 50 29 3A 82 00 C3 17 C2 |1:.ER$(RP):.....|
00000F80: 0B 83 22 41 4C 4C 20 4F 4B 22 2C 22 4E 4F 20 48 |.."ALL OK","NO H|
00000F90: 45 41 44 45 52 20 46 4F 55 4E 44 22 2C 22 4E 4F |EADER FOUND","NO|
00000FA0: 20 53 59 4E 43 20 46 4F 55 4E 44 22 2C 22 44 41 | SYNC FOUND","DA|
00000FB0: 54 41 20 42 4C 4F 43 4B 20 4E 4F 54 20 46 4F 55 |TA BLOCK NOT FOU|
00000FC0: 4E 44 22 00 0D 18 CC 0B 83 22 43 48 45 43 4B 53 |ND"......"CHECKS|
00000FD0: 55 4D 20 45 52 52 4F 52 20 49 4E 20 44 41 54 41 |UM ERROR IN DATA|
00000FE0: 22 2C 22 42 59 54 45 20 44 45 43 4F 4E 44 49 4E |","BYTE DECONDIN|
00000FF0: 47 20 45 52 52 4F 52 22 2C 22 57 52 49 54 45 20 |G ERROR","WRITE |
00001000: 56 45 52 49 46 59 20 45 52 52 4F 52 22 00 52 18 |VERIFY ERROR".R.|
00001010: D6 0B 83 22 57 52 49 54 45 20 50 52 4F 54 45 43 |..."WRITE PROTEC|
00001020: 54 20 4F 4E 22 2C 22 43 48 45 43 4B 53 55 4D 20 |T ON","CHECKSUM |
00001030: 45 52 52 4F 52 20 49 4E 20 48 45 41 44 45 52 22 |ERROR IN HEADER"|
00001040: 2C 22 4C 4F 4E 47 20 44 41 54 41 20 42 4C 4F 43 |,"LONG DATA BLOC|
00001050: 4B 22 00 6A 18 E0 0B 83 22 44 49 53 4B 20 49 44 |K".j...."DISK ID|
00001060: 20 4D 49 53 4D 41 54 43 48 22 00 72 18 EA 0B 8C | MISMATCH".r....|
00001070: 3A 8E 00 00 00 |:.... |
.......52,31:.56,31...#..40.D.(..53280,1
1:.53281,11:.:.ER$(11):.3000.P.-.."..
DISKPICKER. PSIDAC(C)84 VBN."...2..".
*** MENU ***"...<..".(1) TRAN
SFER DISK MEMORY TO BUFFER"...A..".(2) E
NABLE MONITOR MODE"...F..".(3) TRANSFER
BUFFER TO DISK MEMORY"...K..".(4) DIRECT
EXECUTE USER PROGRAM".Y.N..".(5) JOB QU
E EXECUTE TO DISK BUFFER"...P..".(6) LOA
D SECTOR TO DISK BUFFER"...R..".(7) INIT
IALIZE DISK IO"...S..".(8) FORMAT DISKET
TE"...U..".SELECT CHOICE";CH$:CH.E(CH$).
..X..CH.8.40...Z..CH . 100,300,400,500,6
00,700,800,900..._..40.P.D.."..(1) TRANS
FER DISK MEMORY TO BUFFER":.2000..I..".
INPUT DISK START ADDRESS";X$:.1000:SA.X.
..N..".INPUT DISK END ADDRESS";X$:.1000:
EA.X...X..".INPUT BUFFER ADDRESS";X$:.10
00:BA.X:.X.8192..2030...}..X.32767..2040
.9....".DISK MEM. TO BUFF. TRANSFER IN P
ROCESS":.".BYTE COUNT =";.B...NB.EA.SA:S
H..(SA.256):SL.SA.(SH.256).X....15,8,15:
.LP.0.NB... ..15,"M-R"G(SL)G(SH):.#15,A$
:PN.F(A$.G(0)).V....BA,PN:BA.BA.1:SL.SL.
1:.SL.256.SL.0:SH.SH.1.......12)LP".":..
.... 15:."..END TRANSFER":.TD.1.3000:.:.
40.7.,..".PRINTER Y/N";YN$:.YN$."Y".P.1.
Z....YN$.."Y".YN$.."N".."...":.300.M.1..
:.P.1..4,4:.4.X.6..32768.~.@........"..(
3) TRANSFER BUFFER TO DISK MEMORY":.2000
......".INPUT DISK START ADDRESS";X$:.10
00:SA.X......".INPUT DISK END ADDRESS";X
$:.1000:EA.X.E....".INPUT BUFFER ADDRESS
";X$:.1000:BA.X:.X.8192..2030.X....X.327
67..2040......".BUFF. TO DISK MEM. TRANS
FER IN PROCESS":.".BYTE COUNT =";.B...NB
.EA.SA:SH..(SA.256):SL.SA.(SH.256).X.B..
15,8,15:.LP.0.NB...L.PN.B(BA):.15,"M-W"G
(SL)G(SH)G(1)G(PN).+.V.BA.BA.1:SL.SL.1:.
SL.256.SL.0:SH.SH.1.<.....12)LP".":..G..
. 15:."..END TRANSFER":.TD.1.3000:.:.40.
....."..(4) DIRECT EXECUTE USER PROGRAM"
:.2000.K....".INPUT DISK PROG. ENTRY ADD
RESS";X$:.1000:SA.X.....SH..(SA.256):SL.
SA.(SH.256)......15,8,15:.15,"M-E"G(SL)G
(SH): 15.G....".PROGRAM EXECUTION ENABLE
D": 15:.TD.1.3000:.:.40.W.X.."..(5) JOB
QUE EXECUTE-USER PROGRAM":.2000...]..".I
NPUT JOB CHOICE.":."128=READ":."144=WRIT
E":."160=VERIFY"...B.."176=SEEK":."184=S
EC SEEK":."192=BUMP":."208=JUMP".).G.."2
24=EXECUTE":.".CHOICE";CH$:CH.E(CH$):X$.
CH$:.1100.7.I..CH.0.600.H.J..CH..224.640
...L..".SELECT EXECUTE STARTING ADDRESS"
:.".ADDRESSES AVAILABLE ARE:".B.Q..".(1)
=0300":."(2)=0400":."(3)=0500":."(4)=060
0".R.T.."(5)=0700"...V..".CHOICE";CH$:X$
.CH$:.1100...X.C1.E(CH$):.C1.640,640,640
,640,640.!.{..620.+....2000.P...OK$."N":
.".MULTI SECTOR Y/N";OK$......"..INPUT H
EADER #1 ";X$:TN.E(X$):.X$."X"..1100....
..OK$."Y"..SN.20.0..1:.651.U....".INPUT
HEADER #2 ";X$:SN.E(X$):.X$."X"..1100...
...15,8,15......CH..224.655......C1.1..1
5,"M-W"G(63)G(0)G(1)G(C1.1).K....C1..1..
15,"M-W"G(0)G3)G(3)G(76)G(0)G(C1.2).J...
.15,"M-W"G(6)G(0)G(1)G(TN)......15,"M-W"
G(7)G(0)G(1)G(SN)......15,"M-W"G(0)G(0)G
(1)G(CH).J....".PROGRAM EXECUTION ENABLE
D"......15,"M-R"G(0)G(0):.#15,A$:OP.F(A$
.G(0)):.OP.127.675.2....".TRK."TN" SEC."
SN" OP STATUS CODE = "OP.F....".."ER$(
OP)".".C....OK$."Y". 15:.:.2000:.40.U...
15:.2000:.40......"..(6) LOAD SECTOR TO
DISK BUFFER":.2000.L.A..".INPUT TRACK #
";X$:TN.E(X$):.1100...F..".INPUT SECTOR
# ";X$:SN.E(X$):.1100...K..15,8,15:.2,8
,2,"#".E.P..15,"U1:"2;0;TN;SN:.15,A$,B$,
C$,D$:."."A$,B$,C$,D$.V.U..TD.1.3000:..E
.Z. 2: 15:.40.. ..15,8,15,"I0": 15:.40.
.....".INSERT DISKETTE TO BE FORMATTED":
.2000.S....".DISKETTE NAME";X$:NM$.X$:.1
100......".DISKETTE ID";X$:ID$.X$:.1100:
.2000. ....".FORMAT ENABLED PLEASE WAIT"
.T....15,8,15:.15,"N0:"NM$;G(44);ID$:.15
,A$,B$,C$,D$.}...."."A$,B$,C$,D$: 15:.TD
.1.3000:.:.40......X$."X"..40......I.1.4
:D$(I).J(X$,I,1):..C....I.1.4:D(I).E(D$(
I)).Z....D$(I)."A".D(I).10......D$(I)."B
".D(I).11......D$(I)."C".D(I).12......D$
(I)."D".D(I).13.6....D$(I)."E".D(I).14.M
....D$(I)."F".D(I).15.S.......$.D(1).D(1
).4096:D(2).D(2).256:D(3).D(3).16:X.D(1)
.D(2).D(3).D(4)...).....L..X$.."X".....Q
..40.U.P..".CHECK DISK THEN PRESS F7"...
Z..F7$:.F7$..".".2010.......+...."..BUFF
ADDRESS TOO LOW.":.TD.1.2000:.:.".":.12
0:..D...."..BUFF ADDRESS TOO HIGH.":.TD.
1.2000:.:.".":.120:..|....RP.1.11:.ER$(R
P):..C.B.."ALL OK","NO HEADER FOUND","NO
SYNC FOUND","DATA BLOCK NOT FOUND"...L.
."CHECKSUM ERROR IN DATA","BYTE DECONDIN
G ERROR","WRITE VERIFY ERROR".R.V.."WRIT
E PROTECT ON","CHECKSUM ERROR IN HEADER"
,"LONG DATA BLOCK".J...."DISK ID MISMATC
H".R....:....
> CLICK IMAGE PREVIEW FOR FULL MODAL