home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Productivity Pak 2 / rerun-productivity-pak-ii.d64 / datafile (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  9KB  |  272 lines
  1. 5 iffl=0thenfl=1:load"dp] ssort",8,1
  2. 6 iffl=1thenfl=2:load"dp] dos5.1",8,1
  3. 7 iffl=2thenfl=3::sys52224
  4. 8 rem ssort by david peterson, dos5.1 (c) by commodore
  5. 10 rem datafile 3.6 (c)1986 by mike konshak
  6. 12 poke53280,0:poke53281,0:print"[158]":gosub16:gosub600:goto68
  7. 16 d$="":mr$=d$:dr$=d$:s=0:b1$=d$:pw=0:cw=0:b$=chr$(32):fl=0:l$="":e=0
  8. 18 nc=0:nl=0:pg=0:f1=0:f2=0:f3=0:l$=d$:rl=0:sb$=d$:cr$=chr$(13):hn$=d$:id$=d$
  9. 20 a$=d$:c$=d$:t%=0:i$=d$:ck=0:i=0:j=0:k=0:l=0:m=0:n=0:rw=5:sf=0:z=0:e$="eof"
  10. 22 en=0:em$=d$:et=0:es=0:a1$=d$:a2$=d$:a3$=d$:s1$=d$:ts%=0:mem=29500:return
  11. 24 dim f$(f+1),l%(f+1):return
  12. 26 dim rec$(r+1,f+1),k%(r+1),s(6):return
  13. 28 :
  14. 30 geta$:ifa$=""then30
  15. 32 return
  16. 34 :
  17. 36 ifck<>0thengosub394:ifa$<>"n"then68
  18. 37 clr:goto40
  19. 38 print"[147]    initialize (create) a record file  ":return
  20. 40 gosub38:gosub16:input"how many fields in each record[158]? 0 [157][157][157][157]";f
  21. 41 iff=0then68
  22. 42 gosub24
  23. 43 fori=1tof
  24. 44 gosub38:print"[153]field #";i:print"[153]title[158] ? >[145]":printtab(8)f$(i)
  25. 46 print"[153]length[158]? 0[145]":printtab(7)l%(i)""
  26. 47 print"";tab(6);:inputf$(i):iff$(i)=""thenf$(i)=">"
  27. 48 printtab(6);:inputl$:ifl$="0"then68
  28. 49 ifval(l$)>(78-len(f$(i)))orval(l$)=0thengosub602:print"[145][145]":goto48
  29. 50 l%(i)=val(l$):nexti:rl=0
  30. 51 :
  31. 52 forj=0tof:rl=rl+l%(j):nextj:rl=rl+3*(f+1)+5:r=int((mem-12*(f+1)-2100)/rl)
  32. 54 print"[153] your selections allow [158]"r"[153]records."
  33. 56 print" a[146][153]ccept c[146][153]hange field data or r[153][146]eject?[158]"
  34. 57 gosub30:ifa$="r"then37
  35. 58 ifa$="c"then43
  36. 59 ifa$="a"thengosub26:ck=1:goto61
  37. 60 gosub602:goto57
  38. 61 fori=1tof:iflen(f$(i))>s1thens1=len(f$(i))
  39. 62 nexti:goto68
  40. 64 :
  41. 68 print"[147][158]  datafile 3.6 (c)1986 by mike konshak "
  42. 70 printtab(3)"c[153][146]reate new file   q[153][146]uit program
  43. 72 [153][163]3)"aprintwaitdd record to current file
  44. 74 printtab(3)"m[153][146]odify record in current file
  45. 76 [153][163]3)"dprintwaitelete record in current file
  46. 78 printtab(3)"v[153][146]iew or edit file [158]"nf$"[146][153]
  47. 80 [153][163]3)"sprintwaitort records by field
  48. 82 printtab(3)"p[153][146]rint records using [158]dfprint[153]/[158]dfcalc
  49. 84 [153][163]3)"rprintwaitead (load) old file from disk
  50. 86 printtab(3)"w[153][146]rite (save) current file to disk
  51. 88 [153][163]3)"@printwait disk drive commands $wait 4waitprint directory"
  52. 90 [153]"sys       press the appropriate key       "
  53. 92 [153]"print  there aresys";x;"printrecords in memorysys"
  54. 94 [139]r[177]0[167][153]"print  space forsys";r[171]x;"printmore recordsonsys"
  55. 96 [141]30:[139]a$[178]"a"[167][141]350:[139]fl[178]0[167]124
  56. 98 [139]a$[178]"m"[167][141]354:[139]fl[178]0[167]244
  57. 100 [139]a$[178]"d"[167][141]354:[139]fl[178]0[167]272
  58. 102 [139]a$[178]"c"[167]36
  59. 104 [139]a$[178]"r"[167]170
  60. 106 [139]a$[178]"p"[167]358
  61. 108 [139]a$[178]"v"[167][141]354:[139]fl[178]0[167]192
  62. 110 [139]a$[178]"w"[167][141]350:[139]fl[178]0[167]144
  63. 112 [139]a$[178]"s"[167][141]354:[139]fl[178]0[167]304
  64. 114 [139]a$[178]"q"[167]342
  65. 116 [139]a$[178]"@"[167]462
  66. 117 [139]a$[178]"$"[176]a$[178]"4"[167][141]422:[137]68
  67. 118 [139]fl[179][177]0[167]fl[178]0:[137]68
  68. 120 [141]602:[137]96
  69. 122 :
  70. 124 [129]i[178]x[170]1[164]r:[153]"loadprint press the returnwaitprint key after each entry"
  71. 126 [153]" press returnprintwait without any entry to stopsys"
  72. 128 [153]" record number ";i;""
  73. 130 [129]n[178]1[164]f
  74. 132 [153]f$(n)[166]s1[171][195](f$(n)))"   >cmdcmdcmd";:[133]rec$(i,n)
  75. 133 [139]rec$(i,n)[178]""[167]rec$(i,n)[178]">"
  76. 134 [139][195](rec$(i,n))[177]l%(n)[167][141]140:[137]132
  77. 135 [139]rec$(i,n)[178]"="[167]rec$(i,n)[178]rec$(i[171]1,n)
  78. 136 [139]rec$(i,1)[178]">"[167] x[178]i[171]1:ck[178]1:[137]68
  79. 138 [130]n:k%(i)[178]i:[130]i:x[178]r:ck[178]1:[137]68
  80. 140 [153]" defcannot exceed"[196](l%(n))" characterswaitsys":[141]602:[142]
  81. 142 :
  82. 144 [153]"loadprintenter name of current file to be saved"
  83. 146 [153]"(12 characters max).  any existing file"
  84. 148 [153]"with the same name will be scratched.sys"
  85. 150 [153]"  ";nf$:[133]"on";nf$:[139]nf$[178]""[167]68
  86. 152 [159]15,8,15:[152]15,"s0:df] "[170][200](nf$,8)[170]".bak":[141]414:[139]et[178]8[167]68
  87. 154 [152]15,"r0:df] "[170][200](nf$,8)[170]".bak=df] "[170]nf$:[141]414:[139]et[178]8[167]68
  88. 156 [159]5,8,5,"0:df] "[170]nf$[170]",s,w":[141]414:[139]et[178]8[167]68
  89. 158 [152]5,r;cr$;f;cr$;x:[129]n[178]1[164]f:[152]5,f$(n);cr$;l%(n):[130]n
  90. 159 [141]414:[139]et[178]8[167]68
  91. 160 [129]i[178]1[164]x:[153]"print saving record #sys"i"onon"
  92. 162 [129]n[178]1[164]f:[152]5,rec$(k%(i),n):[130]n:[130]i:[153]:[141]414:[139]et[178]8[167]68
  93. 166 [160]5:[160]15:ck[178]0:[137]68
  94. 168 :
  95. 170 [139]ck[179][177]0[167][141]394:[139]a$[179][177]"n"[167]68
  96. 171 [153]"loadprint available files on disk are:sys":@"$0:df]*"
  97. 172 [156]:[141]16:[153]"print enter name of file to be loadedsys":[133]nf$
  98. 173 [139]nf$[178]""[167]68
  99. 174 [159]15,8,15:[159]5,8,5,"0:df] "[170]nf$[170]",s,r":[141]414:[139]et[178]8[167]68
  100. 175 [139]en[178]62[167][141]416:[137]68
  101. 176 [132]5,r,f,x:[141]414:[139]et[178]8[167]68
  102. 177 [141]24:[141]26:[129]n[178]1[164]f:[132]5,f$(n),l$:l%(n)[178][197](l$)
  103. 178 [130]n:[141]414:[139]et[178]8[167]68
  104. 179 [129]i[178]1[164]x:k%(i)[178]i:[153]"printloading record #sys"i"onon"
  105. 180 [129]n[178]1[164]f:[132]5,rec$(i,n):[130]n
  106. 182 [130]i:[153]:[141]414:[139]et[178]8[167]68
  107. 184 s[178]st:[139]s[179][177]0[167]188
  108. 188 [160]5:[160]15:[137]61
  109. 190 :
  110. 192 i[178]1
  111. 194 [139]i[178]0[167]i[178]x
  112. 196 [139]i[177]x[167]i[178]1
  113. 198 [153]"load record number:"[196](i)"  file:"nf$""
  114. 200 [129]n[178]1[164]f:[153]"print"f$(n)[166]s1[171][195](f$(n)))" sys"rec$(k%(i),n):[130]n
  115. 202 [153]" nprintwaitext    lprintwaitast    jprintwaitump    fprintwaitind"
  116. 203 [153]" mprintwaitodify  dprintwaitelete  pprintwaitrint   eprintwaitxitsys"
  117. 204 [141]30:[139]a$[178]"n"[167]i[178]i[170]1:[137]194
  118. 206 [139]a$[178]"l"[167]i[178]i[171]1:[137]194
  119. 207 [139]a$[178]"m"[167][141]256:[137]198
  120. 208 [139]a$[178]"j"[167]216
  121. 209 [139]a$[178]"d"[167][141]284:[137]198
  122. 210 [139]a$[178]"f"[167]218
  123. 212 [139]a$[178]"e"[167]68
  124. 213 [139]a$[178]"p"[167][159]4,4:[152]4,"record#"i"in file: "nf$:[152]4:[137]215
  125. 214 [141]602:[137]204
  126. 215 [129]n[178]1[164]f:[152]4,rec$(k%(i),n):[130]n:[152]4:[152]4:[160]4:[137]204
  127. 216 [133]"print jump to record numbersys";i:[137]194
  128. 218 [153]"load    find records with common items "
  129. 220 [129]n[178]1[164]f:[153]" ";n;"printwait ";f$(n):[130]n
  130. 222 [133]"print which field is to be searchedsys? 0 cmdcmdcmdcmd";sf:[139]sf[178]0[167]68
  131. 224 [139]sf[179]1[176]sf[177]f[167][153]"ononon":[137]222
  132. 226 [153]"print enter common itemwait ":[153]" (the entire string is not required)sys"
  133. 228 [153]"";f$(sf);"wait ";:[133]t$:[139]t$[178]d$[167]68
  134. 230 j[178]i:[129]i[178]1[164]x:[153]"print searching recordssys"i"onon"
  135. 232 [139]t$[178][200](rec$(k%(i),sf),[195](t$))[167]236
  136. 234 [137]241
  137. 236 j[178]i:[153]"load record #";i;""
  138. 237 [129]n[178]1[164]f:[153]"print"f$(n)[166]s1[171][195](f$(n)))" sys"rec$(k%(i),n):[130]n
  139. 238 [153]" nprintwaitext  mprintwaitodify  dprintwaitelete  ewaitprintxitsys":[141]30:[139]a$[178]"e"[167]198
  140. 239 [139]a$[178]"m"[167][141]256:[137]236
  141. 240 [139]a$[178]"d"[167][141]284:[137]236
  142. 241 [130]i:i[178]j:[137]198
  143. 242 :
  144. 244 [153]"loadprint modify which record? enter #waitprint or aprintwaitllsys"
  145. 245 [133]mr$:[139]mr$[178]d$[167]68
  146. 246 [139]mr$[178]"a"[167]mr$[178]d$:[137]254
  147. 248 i[178][197](mr$):mr$[178]d$
  148. 250 [139]i[177]x[167][141]348:[137]244
  149. 252 [141]256:[137]68
  150. 254 [129]i[178]1[164]x:[141]256:[153]" nwaitprintext or eprintwaitxitsys":[141]30:[139]a$[178]"e"[167]68
  151. 255 [130]i:[137]68
  152. 256 [153]"loadprint to modify record #sys";i;"print, make changes"
  153. 258 [153]" as each field is displayed, then returnwaitsys":[129]n[178]1[164]f
  154. 260 [153]"print"f$(n)" sys":[153]"   ";rec$(k%(i),n)
  155. 261 [139][195](rec$(k%(i),n))[177]36[167][153]"on";
  156. 262 [153]"on ";:[133]rec$(k%(i),n)
  157. 264 [139][195](rec$(k%(i),n))[177]l%(n)[167][141]140:[137]260
  158. 265 [139]rec$(k%(i),n)[178]"="[167]rec$(k%(i),n)[178]rec$(k%(i[171]1),n)
  159. 266 [139]rec$(k%(i),n)[178]""[167]rec$(k%(i),n)[178]">"
  160. 267 [139][200](rec$(k%(i),n),1)[178]">"[167]rec$(k%(i),n)[178]">"
  161. 268 [130]n:ck[178]1:[142]
  162. 270 :
  163. 272 [153]"loadprint delete which record?