00000000: 01 1C 26 1C 05 00 8F 20 57 52 49 54 54 45 4E 20 |..&.... WRITTEN |
00000010: 49 4E 20 31 39 38 38 20 42 59 20 52 2E 43 4C 45 |IN 1988 BY R.CLE|
00000020: 4D 45 4E 54 53 2E 00 2C 1C 06 00 8F 00 79 1C 0A |MENTS..,.....y..|
00000030: 00 99 22 11 43 4F 4E 56 45 52 54 20 44 42 41 53 |..".CONVERT DBAS|
00000040: 45 20 31 32 38 20 56 31 2E 30 20 46 49 4C 45 20 |E 128 V1.0 FILE |
00000050: 54 4F 20 54 48 4F 53 45 20 20 20 20 53 55 49 54 |TO THOSE SUIT|
00000060: 41 42 4C 45 20 46 4F 52 20 44 42 41 53 45 20 31 |ABLE FOR DBASE 1|
00000070: 32 38 20 56 31 2E 31 2E 22 00 A5 1C 14 00 99 22 |28 V1.1."......"|
00000080: 11 45 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 20 |.ENTER FILENAME |
00000090: 4F 46 20 44 42 41 53 45 20 54 4F 20 43 48 41 4E |OF DBASE TO CHAN|
000000A0: 47 45 3A 11 22 00 08 1D 1E 00 99 C7 28 32 37 29 |GE:.".......(27)|
000000B0: 3B 22 41 22 3B 3A 97 32 31 2C 31 3A 85 22 5F 9D |;"A";:.21,1:."_.|
000000C0: 22 3B 5A 24 3A 97 32 31 2C 30 3A 99 C7 28 32 37 |";Z$:.21,0:..(27|
000000D0: 29 3B 22 43 22 3B C7 28 31 33 29 3B 3A 5A 24 B2 |);"C";.(13);:Z$.|
000000E0: C8 28 5A 24 2C C3 28 5A 24 29 AB 31 29 3A 5A 24 |.(Z$,.(Z$).1):Z$|
000000F0: B2 C8 28 5A 24 AA 22 20 20 20 20 20 20 20 20 20 |..(Z$." |
00000100: 20 20 20 22 2C 31 32 29 00 26 1D 28 00 99 22 11 | ",12).&.(..".|
00000110: 53 45 41 52 43 48 49 4E 47 20 46 4F 52 20 46 49 |SEARCHING FOR FI|
00000120: 4C 45 2E 2E 2E 22 00 44 1D 32 00 9F 38 2C 38 2C |LE...".D.2..8,8,|
00000130: 38 2C 22 30 3A 22 AA 5A 24 AA 22 2E 44 42 46 2C |8,"0:".Z$.".DBF,|
00000140: 55 2C 52 22 00 88 1D 3C 00 8B 20 44 53 B1 30 20 |U,R"...<.. DS.0 |
00000150: A7 20 A0 38 20 3A 99 22 2A 44 42 41 53 45 20 4E |. .8 :."*DBASE N|
00000160: 4F 54 20 4C 49 53 54 45 44 20 49 4E 20 44 49 52 |OT LISTED IN DIR|
00000170: 45 43 54 4F 52 59 2E 22 3A 99 22 2A 41 42 4F 52 |ECTORY.":."*ABOR|
00000180: 54 45 44 2A 11 22 3A 80 00 AC 1D 46 00 9F 39 2C |TED*.":....F..9,|
00000190: 38 2C 38 2C 22 30 3A 57 4F 52 4B 49 4E 47 20 20 |8,8,"0:WORKING |
000001A0: 20 20 20 2E 54 4D 50 2C 55 2C 57 22 00 BA 1D 4B | .TMP,U,W"...K|
000001B0: 00 EB 20 FD 20 53 54 B3 B1 30 00 C4 1D 50 00 84 |.. . ST..0...P..|
000001C0: 38 2C 41 24 00 D9 1D 55 00 8B 20 41 24 B2 22 22 |8,A$...U.. A$.""|
000001D0: 20 A7 20 41 24 B2 22 2D 22 00 E3 1D 5A 00 98 39 | . A$."-"...Z..9|
000001E0: 2C 41 24 00 E9 1D 5F 00 EC 00 F7 1D 64 00 A0 20 |,A$..._.....d.. |
000001F0: 38 20 3A 20 A0 20 39 00 03 1E 69 00 9F 31 2C 38 |8 : . 9...i..1,8|
00000200: 2C 31 35 00 25 1E 6E 00 98 31 2C 22 52 30 3A 22 |,15.%.n..1,"R0:"|
00000210: AA 5A 24 AA 22 2E 42 44 46 3D 22 AA 5A 24 AA 22 |.Z$.".BDF=".Z$."|
00000220: 2E 44 42 46 22 00 4D 1E 6F 00 98 31 2C 22 52 30 |.DBF".M.o..1,"R0|
00000230: 3A 22 AA 5A 24 AA 22 2E 44 42 46 3D 57 4F 52 4B |:".Z$.".DBF=WORK|
00000240: 49 4E 47 20 20 20 20 20 2E 54 4D 50 22 00 B0 1E |ING .TMP"...|
00000250: 7D 00 99 22 11 46 49 4C 45 20 43 4F 4E 56 45 52 |}..".FILE CONVER|
00000260: 54 49 4F 4E 20 43 4F 4D 50 4C 45 54 45 2E 22 3A |TION COMPLETE.":|
00000270: 99 22 11 11 43 4F 4E 56 45 52 54 20 41 4E 4F 54 |."..CONVERT ANOT|
00000280: 48 45 52 20 46 49 4C 45 3F 22 3A A1 F9 58 24 3A |HER FILE?":..X$:|
00000290: 8B 20 58 24 B2 22 59 22 20 A7 20 32 30 3A D5 20 |. X$."Y" . 20:. |
000002A0: 99 22 2A 46 49 4E 49 53 48 45 44 2A 11 22 3A 80 |."*FINISHED*.":.|
000002B0: 00 00 00 |... |
..&.... WRITTEN IN 1988 BY R.CLEMENTS..,
.....Y....".CONVERT DBASE 128 V1.0 FILE
TO THOSE SUITABLE FOR DBASE 128 V1.1.
"......".ENTER FILENAME OF DBASE TO CHAN
GE:."......G(27);"A";:.21,1:."_.";Z$:.21
,0:.G(27);"C";G(13);:Z$.H(Z$,C(Z$).1):Z$
.H(Z$." ",12).&.(..".SEARCHIN
G FOR FILE...".D.2..8,8,8,"0:".Z$.".DBF,
U,R"...<.. DS.0 . 8 :."*DBASE NOT LISTE
D IN DIRECTORY.":."*ABORTED*.":....F..9,
8,8,"0:WORKING .TMP,U,W"...K.. . ST.
.0.D.P..8,A$.Y.U.. A$."" . A$."-"...Z..9
,A$..._.....D. 8 : 9...I..1,8,15.%.N.
.1,"R0:".Z$.".BDF=".Z$.".DBF".M.O..1,"R0
:".Z$.".DBF=WORKING .TMP"...}..".FIL
E CONVERTION COMPLETE.":."..CONVERT ANOT
HER FILE?":..X$:. X$."Y" . 20:U ."*FINIS
HED*.":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL