CONVERT DATAFILE

00000000: 01 1C 45 1C 0A 00 8F 20  20 43 4F 4E 56 45 52 54  |..E....  CONVERT|
00000010: 20 44 41 54 41 46 49 4C  45 20 31 2E 31 20 28 43  | DATAFILE 1.1 (C|
00000020: 29 31 39 38 35 20 42 59  20 4D 49 4B 45 20 4B 4F  |)1985 BY MIKE KO|
00000030: 4E 53 48 41 4B 20 44 42  41 20 4D 49 43 48 41 45  |NSHAK DBA MICHAE|
00000040: 4C 53 4F 46 54 00 8E 1C  0F 00 8F 20 20 34 38 32  |LSOFT......  482|
00000050: 31 20 48 41 52 56 45 53  54 20 43 4F 55 52 54 2C  |1 HARVEST COURT,|
00000060: 20 43 4F 4C 4F 52 41 44  4F 20 53 50 52 49 4E 47  | COLORADO SPRING|
00000070: 53 2C 20 43 4F 2E 2C 20  38 30 39 31 37 20 20 50  |S, CO., 80917  P|
00000080: 48 20 33 30 33 2F 35 39  36 2D 34 32 34 33 00 B7  |H 303/596-4243..|
00000090: 1C 14 00 D7 33 30 3A 54  42 B2 30 3A 8B CE 09 28  |....30:TB.0:...(|
000000A0: 32 29 B2 38 30 A7 54 42  B2 31 39 3A FE 25 3A E7  |2).80.TB.19:.%:.|
000000B0: 36 2C 31 3A 89 34 30 00  CC 1C 19 00 FE 26 3A E7  |6,1:.40......&:.|
000000C0: 30 2C 31 3A E7 34 2C 31  3A 89 34 30 00 FB 1C 1E  |0,1:.4,1:.40....|
000000D0: 00 99 22 11 96 C5 D2 D2  CF D2 99 2E 2E 2E 20 D0  |.."........... .|
000000E0: 52 45 53 53 20 05 12 C1  4E 59 20 CB 45 59 92 99  |RESS ...NY .EY..|
000000F0: 22 3A A1 F9 41 24 3A D6  31 30 30 00 01 1D 23 00  |":..A$:.100...#.|
00000100: 3A 00 3F 1D 28 00 99 C7  28 31 34 29 22 93 22 A3  |:.?.(...(14)".".|
00000110: 54 42 29 22 99 20 12 20  C4 C1 D4 C1 C6 C9 CC C5  |TB)". . ........|
00000120: 20 54 4F 20 44 46 49 4C  45 31 32 38 20 C6 49 4C  | TO DFILE128 .IL|
00000130: 45 20 C3 4F 4E 56 45 52  53 49 4F 4E 20 92 22 00  |E .ONVERSION .".|
00000140: 78 1D 2D 00 99 22 11 20  D4 48 49 53 20 50 52 4F  |x.-..". .HIS PRO|
00000150: 47 52 41 4D 20 57 49 4C  4C 20 43 4F 4E 56 45 52  |GRAM WILL CONVER|
00000160: 54 20 41 20 12 C4 C1 D4  C1 C6 C9 CC C5 92 22 3B  |T A ..........";|
00000170: 3A 8B 54 42 B2 30 A7 99  00 A8 1D 32 00 99 22 20  |:.TB.0.....2.." |
00000180: C4 C2 CD D3 20 52 45 43  4F 52 44 20 46 49 4C 45  |.... RECORD FILE|
00000190: 20 53 54 52 55 43 54 55  52 45 44 20 46 4F 52 20  | STRUCTURED FOR |
000001A0: 54 48 45 20 C3 36 34 22  00 E1 1D 37 00 99 22 20  |THE .64"...7.." |
000001B0: 49 4E 20 D5 D0 D0 C5 D2  20 C3 C1 D3 C5 2F C7 D2  |IN ..... ..../..|
000001C0: C1 D0 C8 C9 C3 D3 20 4D  4F 44 45 20 49 4E 54 4F  |...... MODE INTO|
000001D0: 20 41 20 46 49 4C 45 22  3B 3A 8B 54 42 B2 30 A7  | A FILE";:.TB.0.|
000001E0: 99 00 0F 1E 3C 00 99 22  20 43 4F 4D 50 41 54 49  |....<.." COMPATI|
000001F0: 42 4C 45 20 57 49 54 48  20 12 44 46 49 4C 45 31  |BLE WITH .DFILE1|
00000200: 32 38 92 20 C4 C2 CD D3  20 46 49 4C 45 53 22 00  |28. .... FILES".|
00000210: 48 1E 41 00 99 22 20 4F  4E 20 54 48 45 20 C3 4F  |H.A.." ON THE .O|
00000220: 4D 4D 4F 44 4F 52 45 20  31 32 38 20 D0 45 52 53  |MMODORE 128 .ERS|
00000230: 4F 4E 41 4C 20 C3 4F 4D  50 55 54 45 52 2E 22 3B  |ONAL .OMPUTER.";|
00000240: 3A 8B 54 42 B2 30 A7 99  00 77 1E 46 00 99 22 20  |:.TB.0...w.F.." |
00000250: D4 48 45 20 4E 55 4D 42  45 52 20 4F 46 20 50 4F  |.HE NUMBER OF PO|
00000260: 53 53 49 42 4C 45 20 52  45 43 4F 52 44 53 20 57  |SSIBLE RECORDS W|
00000270: 49 4C 4C 20 42 45 22 00  AC 1E 4B 00 99 22 20 41  |ILL BE"...K.." A|
00000280: 50 50 52 4F 58 49 4D 41  54 45 4C 59 20 44 4F 55  |PPROXIMATELY DOU|
00000290: 42 4C 45 44 20 41 4E 44  20 54 48 45 20 46 49 52  |BLED AND THE FIR|
000002A0: 53 54 22 3B 3A 8B 54 42  B2 30 A7 99 00 DA 1E 50  |ST";:.TB.0.....P|
000002B0: 00 99 22 20 4C 45 54 54  45 52 20 49 4E 20 45 56  |.." LETTER IN EV|
000002C0: 45 52 59 20 57 4F 52 44  20 57 49 4C 4C 20 42 45  |ERY WORD WILL BE|
000002D0: 20 C3 C1 D0 C9 D4 C1 CC  2D 22 00 12 1F 55 00 99  | .......-"...U..|
000002E0: 22 20 C9 DA C5 C4 20 53  49 4E 43 45 20 12 44 46  |" .... SINCE .DF|
000002F0: 49 4C 45 31 32 38 92 20  55 53 45 53 20 CC 4F 57  |ILE128. USES .OW|
00000300: 45 52 2F D5 D0 D0 C5 D2  22 3B 3A 8B 54 42 B2 30  |ER/.....";:.TB.0|
00000310: A7 99 00 3F 1F 5A 00 99  22 20 43 41 53 45 20 4D  |...?.Z.." CASE M|
00000320: 4F 44 45 2E 20 C9 46 20  59 4F 55 20 53 4F 20 44  |ODE. .F YOU SO D|
00000330: 45 53 49 52 45 2C 20 C1  CC CC 20 54 48 45 22 00  |ESIRE, ... THE".|
00000340: 77 1F 5C 00 99 22 20 43  48 41 52 41 43 54 45 52  |w.\.." CHARACTER|
00000350: 53 20 49 4E 20 54 48 45  20 46 49 4C 45 20 57 49  |S IN THE FILE WI|
00000360: 4C 4C 20 42 45 20 53 48  49 46 54 45 44 22 3B 3A  |LL BE SHIFTED";:|
00000370: 8B 54 42 B2 30 A7 99 00  93 1F 5D 00 99 22 20 54  |.TB.0.....].." T|
00000380: 4F 20 D5 D0 D0 C5 D2 20  C3 C1 D3 C5 20 4F 4E 4C  |O ..... .... ONL|
00000390: 59 2E 22 00 C1 1F 5F 00  99 22 11 11 11 20 D0 52  |Y."..._.."... .R|
000003A0: 45 53 53 20 12 05 C1 4E  59 20 CB 45 59 99 92 20  |ESS ...NY .EY.. |
000003B0: 54 4F 20 C3 4F 4E 54 49  4E 55 45 22 3A A1 F9 41  |TO .ONTINUE":..A|
000003C0: 24 00 F9 1F 64 00 99 22  93 99 22 A3 54 42 29 22  |$...d.."..".TB)"|
000003D0: 20 12 20 20 20 20 C4 C1  D4 C1 C6 C9 CC C5 20 54  | .    ........ T|
000003E0: 4F 20 44 46 49 4C 45 31  32 38 20 C3 4F 4E 56 45  |O DFILE128 .ONVE|
000003F0: 52 54 45 52 20 20 20 20  22 00 2F 20 69 00 99 A3  |RTER    "./ i...|
00000400: 54 42 AA 35 29 22 11 11  12 05 CC 92 99 4F 41 44  |TB.5)".......OAD|
00000410: 20 C4 41 54 41 46 49 4C  45 20 C6 49 4C 45 20 54  | .ATAFILE .ILE T|
00000420: 4F 20 42 45 20 C3 4F 4E  56 45 52 54 45 44 22 00  |O BE .ONVERTED".|
00000430: 50 20 6E 00 99 A3 54 42  AA 35 29 22 11 12 05 C4  |P n...TB.5)"....|
00000440: 99 92 49 53 4B 20 C4 49  52 45 43 54 4F 52 59 22  |..ISK .IRECTORY"|
00000450: 00 6F 20 73 00 99 A3 54  42 AA 35 29 22 11 12 05  |.o s...TB.5)"...|
00000460: D1 99 92 55 49 54 20 D0  52 4F 47 52 41 4D 22 00  |...UIT .ROGRAM".|
00000470: A5 20 78 00 99 A3 54 42  29 22 11 11 20 12 20 20  |. x...TB)".. .  |
00000480: 20 20 20 D0 52 45 53 53  20 54 48 45 20 C1 50 50  |   .RESS THE .PP|
00000490: 52 4F 50 52 49 41 54 45  20 CB 45 59 20 20 20 20  |ROPRIATE .EY    |
000004A0: 20 20 20 92 22 00 BD 20  7D 00 A1 F9 41 24 3A 8B  |   .".. }...A$:.|
000004B0: 41 24 B2 22 51 22 A7 99  22 93 22 3A 80 00 F0 20  |A$."Q"..".":... |
000004C0: 82 00 8B 41 24 B2 22 44  22 A7 99 22 93 22 3A FE  |...A$."D"..".":.|
000004D0: 0C 3A 99 22 D0 52 45 53  53 20 12 05 C1 4E 59 20  |.:.".RESS ...NY |
000004E0: CB 45 59 92 99 22 3A A1  F9 41 24 3A 89 31 30 30  |.EY..":..A$:.100|
000004F0: 00 00 21 87 00 8B 41 24  B2 22 4C 22 A7 31 35 30  |..!...A$."L".150|
00000500: 00 0E 21 8C 00 8D 35 31  35 3A 89 31 32 35 00 14  |..!...515:.125..|
00000510: 21 91 00 3A 00 49 21 96  00 99 22 99 93 20 C9 4E  |!..:.I!...".. .N|
00000520: 53 45 52 54 20 C4 49 53  4B 20 C3 4F 4E 54 41 49  |SERT .ISK .ONTAI|
00000530: 4E 49 4E 47 20 12 C4 C1  D4 C1 C6 C9 CC C5 92 22  |NING .........."|
00000540: 3B 3A 8B 54 42 B2 30 A7  99 00 75 21 9B 00 99 22  |;:.TB.0...u!..."|
00000550: 20 52 45 43 4F 52 44 20  46 49 4C 45 20 49 4E 54  | RECORD FILE INT|
00000560: 4F 20 44 52 49 56 45 20  30 2C 20 44 45 56 49 43  |O DRIVE 0, DEVIC|
00000570: 45 20 38 2E 22 00 A7 21  A0 00 99 22 20 C5 4E 54  |E 8."..!..." .NT|
00000580: 45 52 20 54 48 45 20 4E  41 4D 45 20 4F 46 20 54  |ER THE NAME OF T|
00000590: 48 45 20 53 45 51 55 45  4E 54 49 41 4C 22 3B 3A  |HE SEQUENTIAL";:|
000005A0: 8B 54 42 B2 30 A7 99 00  CC 21 A5 00 99 22 20 52  |.TB.0....!..." R|
000005B0: 45 43 4F 52 44 20 46 49  4C 45 20 54 4F 20 42 45  |ECORD FILE TO BE|
000005C0: 20 43 4F 4E 56 45 52 54  45 44 2E 22 00 01 22 AA  | CONVERTED."..".|
000005D0: 00 99 22 20 C4 CF 20 CE  CF D4 20 45 4E 54 45 52  |.." .. ... ENTER|
000005E0: 20 54 48 45 20 53 50 45  43 49 41 4C 20 43 48 41  | THE SPECIAL CHA|
000005F0: 52 41 43 54 45 52 53 22  3B 3A 8B 54 42 B2 30 A7  |RACTERS";:.TB.0.|
00000600: 99 00 2E 22 AF 00 99 22  20 57 48 49 43 48 20 50  |..."..." WHICH P|
00000610: 52 45 43 45 45 44 20 54  48 45 20 46 49 4C 45 20  |RECEED THE FILE |
00000620: 4E 41 4D 45 20 41 53 20  53 48 4F 57 4E 22 00 6A  |NAME AS SHOWN".j|
00000630: 22 B4 00 99 22 20 4F 4E  20 54 48 45 20 44 49 52  |"..." ON THE DIR|
00000640: 45 43 54 4F 52 59 2E 20  C5 D8 C1 CD D0 CC C5 3A  |ECTORY. .......:|
00000650: 20 9E 12 44 46 5D 20 41  44 44 52 45 53 53 92 99  | ..DF] ADDRESS..|
00000660: 22 3B 3A 8B 54 42 B2 30  A7 99 00 97 22 B9 00 99  |";:.TB.0...."...|
00000670: 22 20 53 48 4F 55 4C 44  20 42 45 20 45 4E 54 45  |" SHOULD BE ENTE|
00000680: 52 45 44 20 41 53 3A 20  9E 12 41 44 44 52 45 53  |RED AS: ..ADDRES|
00000690: 53 99 92 2E 11 11 22 00  B1 22 BE 00 9C 3A D7 33  |S.....".."...:.3|
000006A0: 30 3A 8B CE 09 28 32 29  B2 38 30 A7 54 42 B2 31  |0:...(2).80.TB.1|
000006B0: 39 00 D1 22 C3 00 4E 46  24 B2 22 22 3A 85 22 9E  |9.."..NF$."":.".|
000006C0: 22 3B 4E 46 24 3A 8B 4E  46 24 B2 22 22 A7 31 30  |";NF$:.NF$."".10|
000006D0: 30 00 08 23 C8 00 9F 31  35 2C 38 2C 31 35 3A 9F  |0..#...15,8,15:.|
000006E0: 35 2C 38 2C 35 2C 22 30  3A 44 46 5D 20 22 AA 4E  |5,8,5,"0:DF] ".N|
000006F0: 46 24 AA 22 2C 53 2C 52  22 3A 8D 34 37 35 3A 8B  |F$.",S,R":.475:.|
00000700: 45 54 B2 38 A7 31 30 30  00 1D 23 CD 00 8B 45 4E  |ET.8.100..#...EN|
00000710: B2 36 32 A7 8D 34 38 30  3A 89 31 30 30 00 41 23  |.62..480:.100.A#|
00000720: D2 00 84 35 2C 52 2C 46  2C 58 3A 86 52 45 43 24  |...5,R,F,X:.REC$|
00000730: 28 52 2C 46 29 2C 46 24  28 46 29 2C 4C 25 28 46  |(R,F),F$(F),L%(F|
00000740: 29 00 5E 23 D7 00 81 4E  B2 31 A4 46 3A 84 35 2C  |).^#...N.1.F:.5,|
00000750: 46 24 28 4E 29 2C 4C 25  28 4E 29 3A 82 4E 00 8D  |F$(N),L%(N):.N..|
00000760: 23 DC 00 81 49 B2 31 A4  58 3A 99 A3 54 42 29 22  |#...I.1.X:..TB)"|
00000770: 99 11 20 D2 45 41 44 49  4E 47 20 D2 45 43 4F 52  |.. .EADING .ECOR|
00000780: 44 20 23 9E 22 3B 49 3B  22 99 91 91 22 00 AB 23  |D #.";I;"..."..#|
00000790: E1 00 81 4E B2 31 A4 46  3A 84 35 2C 52 45 43 24  |...N.1.F:.5,REC$|
000007A0: 28 49 2C 4E 29 3A 82 4E  3A 82 49 00 B6 23 E6 00  |(I,N):.N:.I..#..|
000007B0: A0 35 3A A0 31 35 00 BC  23 EB 00 3A 00 D6 23 F0  |.5:.15..#..:..#.|
000007C0: 00 81 4A B2 30 A4 46 3A  52 4C B2 52 4C AA 4C 25  |..J.0.F:RL.RL.L%|
000007D0: 28 4A 29 3A 82 4A 00 F5  23 F5 00 52 4C B2 52 4C  |(J):.J..#..RL.RL|
000007E0: AA 35 AC 46 AA 35 3A 4E  52 B2 B5 28 35 36 32 35  |.5.F.5:NR..(5625|
000007F0: 36 AD 52 4C 29 00 29 24  FA 00 99 22 93 99 20 D9  |6.RL).)$...".. .|
00000800: 4F 55 52 20 C6 49 4C 45  20 53 54 52 55 43 54 55  |OUR .ILE STRUCTU|
00000810: 52 45 20 41 4C 4C 4F 57  53 9E 22 4E 52 22 99 22  |RE ALLOWS."NR"."|
00000820: 3B 3A 8B 54 42 B2 30 A7  99 00 53 24 FF 00 99 22  |;:.TB.0...S$..."|
00000830: 20 50 4F 53 53 49 42 4C  45 20 52 45 43 4F 52 44  | POSSIBLE RECORD|
00000840: 53 20 55 53 49 4E 47 20  12 44 46 49 4C 45 31 32  |S USING .DFILE12|
00000850: 38 92 2E 00 86 24 04 01  99 22 20 C6 49 4C 45 20  |8....$..." .ILE |
00000860: 9E 22 4E 46 24 22 99 20  43 4F 4E 54 41 49 4E 53  |."NF$". CONTAINS|
00000870: 9E 22 58 22 99 52 45 43  4F 52 44 53 22 3B 3A 8B  |."X".RECORDS";:.|
00000880: 54 42 B2 30 A7 99 00 B9  24 09 01 99 22 20 28 9E  |TB.0....$..." (.|
00000890: 22 CA 28 C4 28 52 29 2C  32 29 22 20 99 50 4F 53  |".(.(R),2)" .POS|
000008A0: 53 49 42 4C 45 20 52 45  43 4F 52 44 53 20 49 4E  |SIBLE RECORDS IN|
000008B0: 20 41 20 C3 36 34 29 2E  22 00 EF 24 0E 01 99 A3  | A .64)."..$....|
000008C0: 54 42 29 22 11 11 12 05  C3 99 92 41 50 49 54 41  |TB)".......APITA|
000008D0: 4C 49 5A 45 20 31 53 54  20 CC 45 54 54 45 52 20  |LIZE 1ST .ETTER |
000008E0: 49 4E 20 45 56 45 52 59  20 D7 CF D2 C4 2E 22 00  |IN EVERY .....".|
000008F0: 23 25 10 01 99 A3 54 42  29 22 11 12 05 D3 99 92  |#%....TB)"......|
00000900: 48 49 46 54 20 C1 CC CC  20 C3 C8 C1 D2 C1 C3 D4  |HIFT ... .......|
00000910: C5 D2 D3 20 54 4F 20 D5  D0 D0 C5 D2 20 C3 C1 D3  |... TO ..... ...|
00000920: C5 2E 22 00 5A 25 13 01  99 A3 54 42 29 22 11 12  |..".Z%....TB)"..|
00000930: 05 D7 99 92 52 49 54 45  20 28 D3 41 56 45 29 20  |....RITE (.AVE) |
00000940: 52 45 53 54 52 55 43 54  45 52 45 44 20 46 49 4C  |RESTRUCTERED FIL|
00000950: 45 20 57 49 54 48 4F 55  54 22 00 89 25 18 01 99  |E WITHOUT"..%...|
00000960: A3 54 42 AA 31 29 22 C3  41 50 49 54 41 4C 49 5A  |.TB.1)".APITALIZ|
00000970: 49 4E 47 20 57 4F 52 44  53 20 4F 52 20 43 48 41  |ING WORDS OR CHA|
00000980: 52 41 43 54 45 52 53 2E  22 00 B0 25 1A 01 99 A3  |RACTERS."..%....|
00000990: 54 42 29 22 11 12 05 C5  99 92 58 49 54 20 54 48  |TB)"......XIT TH|
000009A0: 49 53 20 D2 45 43 4F 52  44 20 C6 49 4C 45 2E 22  |IS .ECORD .ILE."|
000009B0: 00 E4 25 1D 01 99 A3 54  42 29 22 11 11 20 12 20  |..%....TB)".. . |
000009C0: 20 20 20 D0 52 45 53 53  20 54 48 45 20 C1 50 50  |   .RESS THE .PP|
000009D0: 52 4F 50 52 49 41 54 45  20 CB 45 59 20 20 20 20  |ROPRIATE .EY    |
000009E0: 20 20 92 22 00 F9 25 22  01 A1 F9 41 24 3A 8B 41  |  ."..%"...A$:.A|
000009F0: 24 B2 22 57 22 A7 33 39  35 00 09 26 27 01 8B 41  |$."W".395..&'..A|
00000A00: 24 B2 22 43 22 A7 33 31  30 00 19 26 29 01 8B 41  |$."C".310..&)..A|
00000A10: 24 B2 22 45 22 A7 31 30  30 00 29 26 2A 01 8B 41  |$."E".100.)&*..A|
00000A20: 24 B2 22 53 22 A7 36 31  30 00 37 26 2C 01 8D 35  |$."S".610.7&,..5|
00000A30: 31 35 3A 89 32 39 30 00  3D 26 31 01 3A 00 69 26  |15:.290.=&1.:.i&|
00000A40: 36 01 81 49 B2 31 A4 58  3A 99 22 99 93 20 C3 41  |6..I.1.X:.".. .A|
00000A50: 50 49 54 41 4C 49 5A 49  4E 47 20 D2 45 43 4F 52  |PITALIZING .ECOR|
00000A60: 44 20 23 9E 22 49 22 11  22 00 92 26 3B 01 81 4E  |D #."I"."..&;..N|
00000A70: B2 31 A4 46 3A 99 22 12  05 22 4E 22 9E 92 20 22  |.1.F:.".."N".. "|
00000A80: 52 45 43 24 28 49 2C 4E  29 3A 82 4E 3A 99 22 13  |REC$(I,N):.N:.".|
00000A90: 11 22 00 BC 26 40 01 81  4E B2 31 A4 46 3A 41 24  |."..&@..N.1.F:A$|
00000AA0: B2 52 45 43 24 28 49 2C  4E 29 3A 44 24 B2 22 22  |.REC$(I,N):D$.""|
00000AB0: 3A 42 24 B2 22 22 3A 43  24 B2 22 22 00 CB 26 45  |:B$."":C$.""..&E|
00000AC0: 01 81 4A B2 31 A4 C3 28  41 24 29 00 EB 26 4A 01  |..J.1..(A$)..&J.|
00000AD0: 42 24 B2 CA 28 41 24 2C  4A 2C 31 29 3A 43 24 B2  |B$..(A$,J,1):C$.|
00000AE0: CA 28 41 24 2C 4A AA 31  2C 31 29 00 27 27 4F 01  |.(A$,J.1,1).''O.|
00000AF0: 8B 4A B2 31 AF 28 42 24  B1 B2 22 41 22 AF 42 24  |.J.1.(B$.."A".B$|
00000B00: B3 B2 22 5A 22 29 A7 42  24 B2 C7 28 C6 28 42 24  |.."Z").B$..(.(B$|
00000B10: 29 AA 31 32 38 29 3A 44  24 B2 44 24 AA 42 24 AA  |).128):D$.D$.B$.|
00000B20: 43 24 3A 89 33 35 35 00  51 27 54 01 8B 4A B2 31  |C$:.355.Q'T..J.1|
00000B30: AF 28 42 24 B3 22 41 22  B0 42 24 B1 22 5A 22 29  |.(B$."A".B$."Z")|
00000B40: A7 44 24 B2 44 24 AA 42  24 AA 43 24 3A 89 33 35  |.D$.D$.B$.C$:.35|
00000B50: 35 00 8D 27 59 01 8B 28  42 24 B2 C7 28 33 32 29  |5..'Y..(B$..(32)|
00000B60: B0 42 24 B2 C7 28 31 36  30 29 29 AF 28 43 24 B1  |.B$..(160)).(C$.|
00000B70: B2 22 41 22 AF 43 24 B3  B2 22 5A 22 29 A7 43 24  |."A".C$.."Z").C$|
00000B80: B2 C7 28 C6 28 43 24 29  AA 31 32 38 29 00 9A 27  |..(.(C$).128)..'|
00000B90: 5E 01 44 24 B2 44 24 AA  43 24 00 AE 27 63 01 82  |^.D$.D$.C$..'c..|
00000BA0: 4A 3A 52 45 43 24 28 49  2C 4E 29 B2 44 24 00 C7  |J:REC$(I,N).D$..|
00000BB0: 27 68 01 99 22 12 99 22  4E 22 9E 92 20 22 52 45  |'h..".."N".. "RE|
00000BC0: 43 24 28 49 2C 4E 29 00  D1 27 6D 01 82 4E 3A 82  |C$(I,N)..'m..N:.|
00000BD0: 49 00 F9 27 72 01 99 22  99 11 D0 52 45 53 53 20  |I..'r.."...RESS |
00000BE0: 05 12 C3 99 92 4F 4E 54  49 4E 55 45 20 4F 52 20  |.....ONTINUE OR |
00000BF0: 05 12 C5 99 92 58 49 54  22 00 0E 28 77 01 A1 F9  |.....XIT"..(w...|
00000C00: 41 24 3A 8B 41 24 B2 22  43 22 A7 33 39 35 00 1E  |A$:.A$."C".395..|
00000C10: 28 7C 01 8B 41 24 B2 22  45 22 A7 31 30 30 00 2C  |(|..A$."E".100.,|
00000C20: 28 81 01 8D 35 31 35 3A  89 33 37 35 00 32 28 86  |(...515:.375.2(.|
00000C30: 01 3A 00 6C 28 8B 01 99  22 99 93 20 C9 4E 53 45  |.:.l(...".. .NSE|
00000C40: 52 54 20 44 49 53 4B 20  54 4F 20 52 45 43 45 49  |RT DISK TO RECEI|
00000C50: 56 45 20 43 4F 4E 56 45  52 54 45 44 20 46 49 4C  |VE CONVERTED FIL|
00000C60: 45 2E 22 3B 3A 8B 54 42  B2 30 A7 99 00 99 28 90  |E.";:.TB.0....(.|
00000C70: 01 99 22 20 C5 4E 54 45  52 20 4E 41 4D 45 20 4F  |.." .NTER NAME O|
00000C80: 46 20 46 49 4C 45 20 54  4F 20 42 45 20 53 41 56  |F FILE TO BE SAV|
00000C90: 45 44 2E 20 20 C1 4E 59  22 00 CB 28 95 01 99 22  |ED.  .NY"..(..."|
00000CA0: 20 46 49 4C 45 53 20 57  49 54 48 20 54 48 45 20  | FILES WITH THE |
00000CB0: 53 41 4D 45 20 4E 41 4D  45 20 57 49 4C 4C 20 42  |SAME NAME WILL B|
00000CC0: 45 22 3B 3A 8B 54 42 B2  30 A7 99 00 0A 29 9A 01  |E";:.TB.0....)..|
00000CD0: 99 22 20 53 43 52 41 54  43 48 45 44 21 20 28 31  |." SCRATCHED! (1|
00000CE0: 32 20 43 48 41 52 41 43  54 45 52 53 20 4D 41 58  |2 CHARACTERS MAX|
00000CF0: 49 4D 55 4D 29 2E 11 11  22 3A 43 52 24 B2 C7 28  |IMUM)...":CR$..(|
00000D00: 31 33 29 3A 46 46 24 B2  22 22 00 37 29 9F 01 99  |13):FF$."".7)...|
00000D10: A3 54 42 29 22 20 20 9E  22 4E 46 24 3A 99 22 91  |.TB)"  ."NF$:.".|
00000D20: 22 A3 54 42 29 3B 3A 85  46 46 24 3A 8B 46 46 24  |".TB);:.FF$:.FF$|
00000D30: B2 22 22 A7 31 35 30 00  69 29 A4 01 99 A3 54 42  |."".150.i)....TB|
00000D40: 29 22 99 11 20 D3 41 56  49 4E 47 20 12 44 46 49  |)".. .AVING .DFI|
00000D50: 4C 45 31 32 38 92 20 52  45 43 4F 52 44 20 46 49  |LE128. RECORD FI|
00000D60: 4C 45 3A 20 9E 22 46 46  24 00 76 29 A9 01 9F 31  |LE: ."FF$.v)...1|
00000D70: 35 2C 38 2C 31 35 00 9B  29 AE 01 98 31 35 2C 22  |5,8,15..)...15,"|
00000D80: 53 30 3A 44 46 5D 20 22  AA 46 46 24 3A 8D 34 37  |S0:DF] ".FF$:.47|
00000D90: 35 3A 8B 45 54 B2 38 A7  33 39 35 00 C9 29 B3 01  |5:.ET.8.395..)..|
00000DA0: 9F 35 2C 38 2C 35 2C 22  30 3A 44 46 5D 20 22 AA  |.5,8,5,"0:DF] ".|
00000DB0: 46 46 24 AA 22 2C 53 2C  57 22 3A 8D 34 37 35 3A  |FF$.",S,W":.475:|
00000DC0: 8B 45 54 B2 38 A7 33 39  35 00 DF 29 B8 01 98 35  |.ET.8.395..)...5|
00000DD0: 2C 4E 52 3B 43 52 24 3B  46 3B 43 52 24 3B 58 00  |,NR;CR$;F;CR$;X.|
00000DE0: 00 2A BD 01 81 4E B2 31  A4 46 3A 98 35 2C 46 24  |.*...N.1.F:.5,F$|
00000DF0: 28 4E 29 3B 43 52 24 3B  4C 25 28 4E 29 3A 82 4E  |(N);CR$;L%(N):.N|
00000E00: 00 2C 2A C2 01 81 49 B2  31 A4 58 3A 99 A3 54 42  |.,*...I.1.X:..TB|
00000E10: 29 22 99 11 20 D3 41 56  49 4E 47 20 D2 45 43 4F  |)".. .AVING .ECO|
00000E20: 52 44 20 23 9E 22 49 22  99 91 91 22 00 62 2A C7  |RD #."I"...".b*.|
00000E30: 01 81 4E B2 31 A4 46 3A  8B 52 45 43 24 28 49 2C  |..N.1.F:.REC$(I,|
00000E40: 4E 29 B2 22 22 B0 52 45  43 24 28 49 2C 4E 29 B2  |N)."".REC$(I,N).|
00000E50: C7 28 30 29 A7 52 45 43  24 28 49 2C 4E 29 B2 22  |.(0).REC$(I,N)."|
00000E60: 3E 22 00 7D 2A CC 01 98  35 2C 51 54 24 3B 52 45  |>".}*...5,QT$;RE|
00000E70: 43 24 28 49 2C 4E 29 3A  82 4E 3A 82 49 00 8D 2A  |C$(I,N):.N:.I..*|
00000E80: D1 01 A0 35 3A A0 31 35  3A 89 31 30 30 00 93 2A  |...5:.15:.100..*|
00000E90: D6 01 3A 00 BC 2A DB 01  84 31 35 2C 45 4E 2C 45  |..:..*...15,EN,E|
00000EA0: 4D 24 2C 45 54 2C 45 53  3A 8B 45 4E B3 32 30 B0  |M$,ET,ES:.EN.20.|
00000EB0: 45 4E B2 36 32 A7 45 54  B2 30 3A 8E 00 F3 2A E0  |EN.62.ET.0:...*.|
00000EC0: 01 99 A3 54 42 29 22 96  11 20 C4 49 53 4B 20 C5  |...TB)".. .ISK .|
00000ED0: 52 52 4F 52 12 22 45 4E  22 9D 2C 20 22 45 4D 24  |RROR."EN"., "EM$|
00000EE0: 22 2C 22 45 54 22 9D 2C  22 45 53 22 99 22 3A 45  |","ET".,"ES".":E|
00000EF0: 54 B2 38 00 21 2B E5 01  8B 45 4E B2 37 34 A7 99  |T.8.!+...EN.74..|
00000F00: A3 54 42 29 22 20 C9 4E  53 45 52 54 20 C4 49 53  |.TB)" .NSERT .IS|
00000F10: 4B 20 41 4E 44 20 C3 4C  4F 53 45 20 C4 4F 4F 52  |K AND .LOSE .OOR|
00000F20: 22 00 59 2B EA 01 8B 45  4E B2 32 31 A7 99 A3 54  |".Y+...EN.21...T|
00000F30: 42 29 22 20 C4 49 53 4B  20 CD 41 59 20 CE 4F 54  |B)" .ISK .AY .OT|
00000F40: 20 42 45 20 D0 52 45 53  45 4E 54 20 4F 52 20 C6  | BE .RESENT OR .|
00000F50: 4F 52 4D 41 54 54 45 44  22 00 92 2B EF 01 8B 45  |ORMATTED"..+...E|
00000F60: 4E B2 36 32 A7 99 A3 54  42 29 22 20 C3 48 45 43  |N.62...TB)" .HEC|
00000F70: 4B 20 C4 49 52 45 43 54  4F 52 59 20 46 4F 52 20  |K .IRECTORY FOR |
00000F80: C3 4F 52 52 45 43 54 20  C6 49 4C 45 20 CE 41 4D  |.ORRECT .ILE .AM|
00000F90: 45 22 00 C1 2B F4 01 99  A3 54 42 29 22 20 D0 52  |E"..+....TB)" .R|
00000FA0: 45 53 53 20 05 12 C1 4E  59 20 CB 45 59 92 99 20  |ESS ...NY .EY.. |
00000FB0: 54 4F 20 C3 4F 4E 54 49  4E 55 45 22 3A A1 F9 41  |TO .ONTINUE":..A|
00000FC0: 24 00 CE 2B F9 01 A0 35  3A A0 31 35 3A 8E 00 D4  |$..+...5:.15:...|
00000FD0: 2B FE 01 3A 00 E6 2B 03  02 DA 31 2C 31 35 30 30  |+..:..+...1,1500|
00000FE0: 30 2C 31 30 3A 8E 00 12  2C 62 02 81 49 B2 31 A4  |0,10:...,b..I.1.|
00000FF0: 58 3A 99 22 99 93 20 C3  41 50 49 54 41 4C 49 5A  |X:.".. .APITALIZ|
00001000: 49 4E 47 20 D2 45 43 4F  52 44 20 23 9E 22 49 22  |ING .ECORD #."I"|
00001010: 11 22 00 3B 2C 67 02 81  4E B2 31 A4 46 3A 99 22  |.".;,g..N.1.F:."|
00001020: 12 05 22 4E 22 9E 92 20  22 52 45 43 24 28 49 2C  |.."N".. "REC$(I,|
00001030: 4E 29 3A 82 4E 3A 99 22  13 11 22 00 65 2C 6C 02  |N):.N:."..".e,l.|
00001040: 81 4E B2 31 A4 46 3A 41  24 B2 52 45 43 24 28 49  |.N.1.F:A$.REC$(I|
00001050: 2C 4E 29 3A 44 24 B2 22  22 3A 42 24 B2 22 22 3A  |,N):D$."":B$."":|
00001060: 43 24 B2 22 22 00 74 2C  71 02 81 4A B2 31 A4 C3  |C$."".t,q..J.1..|
00001070: 28 41 24 29 00 94 2C 76  02 42 24 B2 CA 28 41 24  |(A$)..,v.B$..(A$|
00001080: 2C 4A 2C 31 29 3A 43 24  B2 CA 28 41 24 2C 4A AA  |,J,1):C$..(A$,J.|
00001090: 31 2C 31 29 00 C7 2C 7B  02 8B 42 24 B1 B2 22 41  |1,1)..,{..B$.."A|
000010A0: 22 AF 42 24 B3 B2 22 5A  22 A7 42 24 B2 C7 28 C6  |".B$.."Z".B$..(.|
000010B0: 28 42 24 29 AA 31 32 38  29 3A 44 24 B2 44 24 AA  |(B$).128):D$.D$.|
000010C0: 42 24 3A 89 36 35 35 00  D4 2C 8A 02 44 24 B2 44  |B$:.655..,..D$.D|
000010D0: 24 AA 42 24 00 E8 2C 8F  02 82 4A 3A 52 45 43 24  |$.B$..,...J:REC$|
000010E0: 28 49 2C 4E 29 B2 44 24  00 01 2D 94 02 99 22 12  |(I,N).D$..-...".|
000010F0: 99 22 4E 22 9E 92 20 22  52 45 43 24 28 49 2C 4E  |."N".. "REC$(I,N|
00001100: 29 00 0B 2D 99 02 82 4E  3A 82 49 00 33 2D 9E 02  |)..-...N:.I.3-..|
00001110: 99 22 99 11 D0 52 45 53  53 20 05 12 C3 99 92 4F  |."...RESS .....O|
00001120: 4E 54 49 4E 55 45 20 4F  52 20 05 12 C5 99 92 58  |NTINUE OR .....X|
00001130: 49 54 22 00 48 2D A3 02  A1 F9 41 24 3A 8B 41 24  |IT".H-....A$:.A$|
00001140: B2 22 43 22 A7 33 39 35  00 58 2D A8 02 8B 41 24  |."C".395.X-...A$|
00001150: B2 22 45 22 A7 31 30 30  00 66 2D AD 02 8D 35 31  |."E".100.f-...51|
00001160: 35 3A 89 36 37 35 00 00  00                       |5:.675...       |

..E....  CONVERT DATAFILE 1.1 (C)1985 BY
 MIKE KONSHAK DBA MICHAELSOFT......  482
1 HARVEST COURT, COLORADO SPRINGS, CO., 
80917  PH 303/596-4243.....W30:TB.0:.N.(
2).80.TB.19:.%:.6,1:.40.L....&:.0,1:.4,1
:.40......"..ERROR.... PRESS ..ANY KEY..
":..A$:V100...#.:.?.(..G(14)".".TB)". . 
DATAFILE TO DFILE128 FILE CONVERSION .".
X.-..". THIS PROGRAM WILL CONVERT A .DAT
AFILE.";:.TB.0.....2.." DBMS RECORD FILE
 STRUCTURED FOR THE C64"...7.." IN UPPER
 CASE/GRAPHICS MODE INTO A FILE";:.TB.0.
....<.." COMPATIBLE WITH .DFILE128. DBMS
 FILES".H.A.." ON THE COMMODORE 128 PERS
ONAL COMPUTER.";:.TB.0...W.F.." THE NUMB
ER OF POSSIBLE RECORDS WILL BE"...K.." A
PPROXIMATELY DOUBLED AND THE FIRST";:.TB
.0...Z.P.." LETTER IN EVERY WORD WILL BE
 CAPITAL-"...U.." IZED SINCE .DFILE128. 
USES LOWER/UPPER";:.TB.0...?.Z.." CASE M
ODE. IF YOU SO DESIRE, ALL THE".W.\.." C
HARACTERS IN THE FILE WILL BE SHIFTED";:
.TB.0.....].." TO UPPER CASE ONLY.".A._.
."... PRESS ..ANY KEY.. TO CONTINUE":..A
$...D.."..".TB)" .    DATAFILE TO DFILE1
28 CONVERTER    "./ I...TB.5)"....L..OAD
 DATAFILE FILE TO BE CONVERTED".P N...TB
.5)"...D..ISK DIRECTORY".O S...TB.5)"...
Q..UIT PROGRAM".. X...TB)".. .     PRESS
 THE APPROPRIATE KEY       .".. }...A$:.
A$."Q"..".":... ...A$."D"..".":..:."PRES
S ..ANY KEY..":..A$:.100..!...A$."L".150
..!...515:.125..!..:.I!...".. INSERT DIS
K CONTAINING .DATAFILE.";:.TB.0...U!..."
 RECORD FILE INTO DRIVE 0, DEVICE 8."..!
 .." ENTER THE NAME OF THE SEQUENTIAL";:
.TB.0...L!..." RECORD FILE TO BE CONVERT
ED.".."..." DO NOT ENTER THE SPECIAL CHA
RACTERS";:.TB.0...."..." WHICH PRECEED T
HE FILE NAME AS SHOWN".J"..." ON THE DIR
ECTORY. EXAMPLE: ..DF] ADDRESS..";:.TB.0
...."..." SHOULD BE ENTERED AS: ..ADDRES
S.....".."...:W30:.N.(2).80.TB.19.Q"C.NF
$."":.".";NF$:.NF$."".100..#H..15,8,15:.
5,8,5,"0:DF] ".NF$.",S,R":.475:.ET.8.100
..#M..EN.62..480:.100.A#R..5,R,F,X:.REC$
(R,F),F$(F),L%(F).^#W..N.1.F:.5,F$(N),L%
(N):.N..#...I.1.X:..TB)".. READING RECOR
D #.";I;"..."..#...N.1.F:.5,REC$(I,N):.N
:.I..#.. 5: 15..#..:.V#...J.0.F:RL.RL.L%
(J):.J..#..RL.RL.5.F.5:NR..(56256.RL).)$
...".. YOUR FILE STRUCTURE ALLOWS."NR"."
;:.TB.0...S$..." POSSIBLE RECORDS USING 
.DFILE128....$..." FILE ."NF$". CONTAINS
."X".RECORDS";:.TB.0....$..." (."J(D(R),
2)" .POSSIBLE RECORDS IN A C64)."..$....
TB)"....C..APITALIZE 1ST LETTER IN EVERY
 WORD.".#%....TB)"...S..HIFT ALL CHARACT
ERS TO UPPER CASE.".Z%....TB)"...W..RITE
 (SAVE) RESTRUCTERED FILE WITHOUT"..%...
.TB.1)"CAPITALIZING WORDS OR CHARACTERS.
"..%....TB)"...E..XIT THIS RECORD FILE."
..%....TB)".. .    PRESS THE APPROPRIATE
 KEY      ."..%"...A$:.A$."W".395..&'..A
$."C".310..&)..A$."E".100.)&*..A$."S".61
0.7&,..515:.290.=&1.:.I&6..I.1.X:.".. CA
PITALIZING RECORD #."I"."..&;..N.1.F:.".
."N".. "REC$(I,N):.N:.".."..&@..N.1.F:A$
.REC$(I,N):D$."":B$."":C$."".K&E..J.1.C(
A$)..&J.B$.J(A$,J,1):C$.J(A$,J.1,1).''O.
.J.1.(B$.."A".B$.."Z").B$.G(F(B$).128):D
$.D$.B$.C$:.355.Q'T..J.1.(B$."A".B$."Z")
.D$.D$.B$.C$:.355..'Y..(B$.G(32).B$.G(16
0)).(C$.."A".C$.."Z").C$.G(F(C$).128)..'
^.D$.D$.C$..'C..J:REC$(I,N).D$.G'H..".."
N".. "REC$(I,N).Q'M..N:.I..'R.."..PRESS 
..C..ONTINUE OR ..E..XIT"..(W...A$:.A$."
C".395..(|..A$."E".100.,(...515:.375.2(.
.:.L(...".. INSERT DISK TO RECEIVE CONVE
RTED FILE.";:.TB.0....(..." ENTER NAME O
F FILE TO BE SAVED.  ANY".K(..." FILES W
ITH THE SAME NAME WILL BE";:.TB.0....)..
." SCRATCHED! (12 CHARACTERS MAXIMUM)...
":CR$.G(13):FF$."".7)....TB)"  ."NF$:.".
".TB);:.FF$:.FF$."".150.I)....TB)".. SAV
ING .DFILE128. RECORD FILE: ."FF$.V)...1
5,8,15..)...15,"S0:DF] ".FF$:.475:.ET.8.
395.I)...5,8,5,"0:DF] ".FF$.",S,W":.475:
.ET.8.395..)...5,NR;CR$;F;CR$;X..*...N.1
.F:.5,F$(N);CR$;L%(N):.N.,*B..I.1.X:..TB
)".. SAVING RECORD #."I"...".B*G..N.1.F:
.REC$(I,N)."".REC$(I,N).G(0).REC$(I,N)."
>".}*L..5,QT$;REC$(I,N):.N:.I..*Q. 5: 15
:.100..*V.:..*...15,EN,EM$,ET,ES:.EN.20.
EN.62.ET.0:...*....TB)".. DISK ERROR."EN
"., "EM$","ET".,"ES".":ET.8.!+...EN.74..
.TB)" INSERT DISK AND CLOSE DOOR".Y+...E
N.21...TB)" DISK MAY NOT BE PRESENT OR F
ORMATTED"..+...EN.62...TB)" CHECK DIRECT
ORY FOR CORRECT FILE NAME".A+....TB)" PR
ESS ..ANY KEY.. TO CONTINUE":..A$.N+.. 5
: 15:..T+..:..+..Z1,15000,10:...,B..I.1.
X:.".. CAPITALIZING RECORD #."I".".;,G..
N.1.F:.".."N".. "REC$(I,N):.N:."..".E,L.
.N.1.F:A$.REC$(I,N):D$."":B$."":C$."".T,
Q..J.1.C(A$)..,V.B$.J(A$,J,1):C$.J(A$,J.
1,1).G,{..B$.."A".B$.."Z".B$.G(F(B$).128
):D$.D$.B$:.655.T,..D$.D$.B$..,...J:REC$
(I,N).D$..-...".."N".. "REC$(I,N)..-...N
:.I.3-..."..PRESS ..C..ONTINUE OR ..E..X
IT".H-....A$:.A$."C".395.X-...A$."E".100
.F-...515:.675...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL