home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / card control (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  7.2 KB  |  268 lines
  1. 10 gosub60100:print"[147][142]":poke650,128
  2. 100 poke53280,0:poke53281,0:poke646,5
  3. 110 printchr$(147):forx=1to10:print:next
  4. 150 n=100:dimd$(n),b$(n),e$(n),f$(n),l$(n),g$(40):bk$="[175]"
  5. 152 c$(1)="d":c$(2)="c":c$(3)="r":c$(4)="q"
  6. 155 print"[147][158]          credit card control
  7. 156 [153]"print          usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  8. 160 forx=1to6:print:next
  9. 170 printtab(14)"[158]*** menu ***":print
  10. 180 printtab(5)"[154]d - [159]display credit card data
  11. 190 [153][163]5)"contc - opencreate/add credit card data
  12. 200 printtab(5)"[154]r - [159]report lost or damaged cards
  13. 210 [153][163]5)"contq - openquit
  14. 220 print"[154]"tab(11)"enter selection: [157][153]";bk$;"[158]";
  15. 225 mo=16:nc=1:gosub60500
  16. 235 forb=1to4:ifc$(b)=a$thena=b:goto250
  17. 236 next
  18. 237 goto220
  19. 250 onagoto280,500,690,60000
  20. 260 :
  21. 270 :
  22. 280 print"[147][158]        display credit card data
  23. 281 [153]"print        usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  24. 285 gosub1240:ifabthen155
  25. 286 gosub1400
  26. 287 gosub1350:iferthen155
  27. 290 print"credit cards on file to date:":print
  28. 300 print"name[146]"tab(16)"acct. #[146]"tab(31)"exp date[146]
  29. 310 [153]"----"[163]16)"-------"[163]30)"--------
  30. 320 k1=0
  31. 330 forx=1ton
  32. 340 input#1,d$(x)
  33. 350 ifd$(x)="end"then440
  34. 360 ifk1<17then400
  35. 370 print:printtab(8)"press return[146] to continue":print
  36. 380 geta$:ifa$<>chr$(13)then380
  37. 390 k1=0
  38. 400 input#1,b$(x),e$(x),f$(x),l$(x)
  39. 410 printd$(x);tab(10);b$(x);tab(33);e$(x)
  40. 420 k1=k1+1
  41. 430 nextx
  42. 440 close1:print:print"end of file.":print:printtab(12)"press m for menu
  43. 450 [161]a$:[139]a$[178]""[167]450
  44. 460 [139]a$[179][177]"m"[167]450
  45. 470 [156]:[137]150
  46. 480 :
  47. 490 :
  48. 500 [153]"loadsys      create/add credit card data
  49. 501 print"[153]      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  50. 505 x[178]1
  51. 510 [141]1240:[141]1260:[141]1440:[153][199](147)
  52. 520 [129]x[178]x[164]n
  53. 530 [153]"load          listtype endlist to exit.
  54. 540 print"entry # [153]";x:print
  55. 545 print"            [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
  56. 550 print"[129]name of card:[158]";bk$;
  57. 555 mo=190:nc=30:gosub60500:d$(x)=a$
  58. 560 ifd$(x)="end"then670
  59. 565 print"          [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
  60. 570 print"[129]account #:[158]";bk$;
  61. 575 mo=2:nc=30:gosub60500:b$(x)=a$
  62. 577 print"                            [153][183][183][183][183][183][145][145]
  63. 580 [153]"forexpiration date (ex: 01/84):sys";bk$;
  64. 585 mo[178]130:nc[178]5:[141]60500:e$(x)[178]a$
  65. 587 [153]" printusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrononon
  66. 590 print"[129]company p.o. or street address"
  67. 595 print":[158]";bk$;:nc=38:mo=190:gosub60500:f$(x)=a$
  68. 597 print" [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145][145]
  69. 600 [153]"forcity state & zip (sorry, no commas.)":[153]":sys";bk$;
  70. 605 mo[178]190:nc[178]38:[141]60500:l$(x)[178]a$
  71. 620 [153]:[153]"is data correct (y/n)
  72. 630 getz$:ifz$=""then630
  73. 640 ifz$="y"then660
  74. 650 ifz$="n"thenprint"[145]    re-enter data[146]    ":fora=1to2000:next:goto530
  75. 660 print:print:nextx
  76. 670 close2:print"[147]";:goto1450
  77. 680 :
  78. 690 printchr$(147):gosub1440:print
  79. 700 print"[129]your name:[158]";bk$;:mo=190:nc=20:gosub60500:gosub 60600:yn$=a$
  80. 710 print"[129]street or post office:[158]";bk$;:gosub60500:gosub 60600:  ma$=a$
  81. 720 print"[129]city:[158]";bk$;:gosub60500:gosub 60600:ci$=a$
  82. 730 print"[129]state & zip code:[158]";bk$;:gosub60500:gosub 60600:sz$=a$
  83. 740 print"[129]today's date:[158]";bk$;:gosub60500:td$=a$
  84. 750 close2
  85. 760 printchr$(147):print
  86. 770 gosub1250:gosub1400:gosub1710:gosub1350:iferthen155
  87. 780 forx=1ton
  88. 790 input#1,d$(x)
  89. 800 ifd$(x)="end"then900
  90. 810 input#1,b$(x),e$(x),f$(x),l$(x)
  91. 820 print"[155]do you want a report for: ";d$(x):print"press: y [155]or n"
  92. 830 getq1$:ifq1$=""then830
  93. 840 ifq1$="n"then870
  94. 845 ifq1$="y"then850
  95. 846 goto830
  96. 850 print"[155]is card lost or destroyed:":print"press: l [155]or d
  97. 855 [161]w$:[139]w$[178]""[167]855
  98. 856 [139]w$[178]"l"[167]w$[178]"lost":[137]860
  99. 857 [139]w$[178]"d"[167]w$[178]"destroyed":[137]860
  100. 858 [137]855
  101. 860 [141]920
  102. 870 [139]st[178]0[167][130]x
  103. 880 [139]st[178]64[167]900
  104. 890 [139]st[179][177]0[175]st[179][177]64[167][153]"error...";st:[160]1:[128]
  105. 900 [160]1:[153]"end of file":[129]t[178]1[164]1000:[130]:[156]:[137]150
  106. 910 :
  107. 920 :
  108. 930 sn$[178]"(NULL)incerely,"
  109. 940 [159]4,4,7
  110. 950 [152]4
  111. 960 [152]4,""[163]80[171][195](ma$));ma$
  112. 970 [152]4,""[163]79[171][195](ci$)[171][195](sz$));ci$;" ";sz$
  113. 980 [152]4,""[163]80[171][195](td$));td$
  114. 990 a$[178]d$(x):[141]60600:[152]4,a$
  115. 1000 a$[178]f$(x):[141]60600:[152]4,a$
  116. 1010 a$[178]l$(x):[141]60600:[152]4,a$
  117. 1020 [152]4
  118. 1030 [152]4,"(NULL)val: atnccount # ";b$(x)
  119. 1040 [152]4
  120. 1050 [152]4,"str$ear (NULL)ir:
  121. 1060 print#4
  122. 1070 print#4,""tab(5)"[201]n regard to the above account,";
  123. 1075 print#4," [201] am reporting that my card was
  124. 1080 [152]4
  125. 1090 [152]4,w$;" on or about the above date.
  126. 1100 print#4:print#4
  127. 1110 print#4,""tab(5)"[208]lease take any necessary action";
  128. 1115 print#4," to insure that there is no
  129. 1120 [152]4
  130. 1130 [152]4,"unauthorized use of this card,";
  131. 1135 [152]4," and please issue a replacement as
  132. 1140 print#4
  133. 1150 print#4,"soon as possible.
  134. 1160 [152]4:[152]4
  135. 1170 [152]4,""[163]5)"(NULL)lease contact me if";
  136. 1175 [152]4," additional information is needed.
  137. 1180 forx=1to4:print#4:next
  138. 1190 print#4,""tab(70-len(sn$));sn$
  139. 1200 forx=1to4:print#4:next
  140. 1210 print#4,""tab(75-len(yn$));yn$
  141. 1220 print#4:close4
  142. 1230 return
  143. 1240 ab=.
  144. 1245 print"                  [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]
  145. 1250 [153]"opencardholder's name:sys";bk$;:mo[178]190:nc[178]16:[141]60500:fi$[178]a$
  146. 1255 [139]a$[178]""[167]ab[178]1
  147. 1256 [142]
  148. 1260 [153]:[153]"cont(acont)dd to existing file
  149. 1265 print"[154](n[154])ew file":print"[154](r[154])eturn to menu
  150. 1270 [161]z$:[139]z$[178]""[167]1270
  151. 1280 [139]z$[178]"n"[167][142]
  152. 1290 [139]z$[178]"a"[167]1620
  153. 1300 [139]z$[178]"r"[167][156]:[137]150
  154. 1310 [139]z$[179][177]"n"[175]z$[179][177]"a"[175]z$[179][177]"r"[167]1270
  155. 1340 [142]
  156. 1350 er[178].:[141]1730
  157. 1360 [161]z$:[139]z$[178]""[167]1360
  158. 1361 [139]z$[178]"t"[167]1370
  159. 1362 [159]3,8,3,""[170]fi$[170]"":[160]3:[159]15,8,15:[132]15,a$,b$:[160]15
  160. 1363 er[178].:[139]a$[178]"00"[167]1380
  161. 1364 [153]"defdisk error:";a$,b$
  162. 1365 [129]a[178]1[164]2000:[130]
  163. 1366 er[178]1:[142]
  164. 1370 [139]z$[178]"t"[167][159]1,1,0,fi$:[142]
  165. 1380 [139]z$[178]"d"[167][159]1,8,8,fi$[170]",s,r":[142]
  166. 1390 [139]z$[179][177]"t"[175]z$[179][177]"d"[167]1360
  167. 1400 [153]:[153]"open  insert source file and press return  wait
  168. 1410 getz$
  169. 1420 ifz$<>chr$(13)then1410
  170. 1430 return
  171. 1440 open2,0:return
  172. 1450 :
  173. 1460 gosub1400:gosub1560
  174. 1470 forx=1ton
  175. 1480 print#1,d$(x):print#1,b$(x):print#1,e$(x):print#1,f$(x):print#1,l$(x)
  176. 1490 ifd$(x)="end"then1510
  177. 1500 nextx
  178. 1510 close1
  179. 1515 open15,8,15:input#15,a$,b$:close15:print"[154]==>[159]";a$,b$
  180. 1520 print:print"do you want a backup copy (y/n)?
  181. 1530 [161]z$:[139]z$[178]""[167]1530
  182. 1540 [139][200](z$,1)[178]"y"[167]1460
  183. 1550 [156]:[137]150
  184. 1560 [141]1730
  185. 1565 ad$[178]"0":[139]ad[167]ad[178].:ad$[178]"@0"
  186. 1570 [161]z$:[139]z$[178]""[167]1570
  187. 1580 [139]z$[178]"t"[167][159]1,1,1,fi$:[142]
  188. 1590 [139]z$[178]"d"[167][159]1,8,8,[170]ad$[170]":"[170]fi$[170]",s,w":[142]
  189. 1600 [139]z$[179][177]"t"[175]z$[179][177]"d"[167]1570
  190. 1610 :
  191. 1620 :
  192. 1630 [141]1400:[141]1350
  193. 1635 [139]er[167]155
  194. 1640 [153][199](147)
  195. 1650 [129]x[178]1[164]n
  196. 1660 [132]1,d$(x),b$(x),e$(x),f$(x),l$(x)
  197. 1670 [139]d$(x)[178]"end"[175]st[178]64[167]1700
  198. 1680 [139]st[178]0[167][130]x
  199. 1690 [139]st[179][177]0[175]st[179][177]64[167][153]"error..."st:[160]1:[128]
  200. 1700 [160]1:ad[178]1:[142]
  201. 1710 [153]"   turn on printer and press return    wait":[141]1410:[142]
  202. 1730 [153]:[153]"twaitlistape or dwaitlistisk":[153]:[142]
  203. 60000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  204. 60010 [153]"load";:[139]er[179][177]63[167][128]
  205. 60020 [147]"hello connect",8
  206. 60100 pn$[178]"len(NULL)valstr$right$(NULL)closelenatn(NULL)str$ len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":an$[178]"peek(NULL):  (NULL)(NULL)peekval(NULL)(NULL) val. (NULL)(NULL)(NULL)ascval(NULL)
  207. 60110 bo=11:sc=15:cl=06:c1=12:c2=00:c3=12:c4=00:c5=00:c6=02:c7=09
  208. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  209. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  210. 60150 [151]646,c2:[153]" fn        (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)(NULL)val(NULL)val(NULL)(NULL)(NULL):        then
  211. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  212. 60180 [151]646,c6:[153]""[163]20[171][195](pn$)[173]2);pn$
  213. 60190 [151]646,c7:[153]""[163]20[171][195](an$)[173]2);an$
  214. 60200 [151]646,c5:[153]""[163]13)"len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL) 1986"
  215. 60210 [153][163]9)"len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val (NULL)(NULL)peek(NULL)right$lenatn(NULL)right$(NULL)(NULL)(NULL)"
  216. 60220 [151]646,c3:[153]" totototototototototototototototototototototototototototototototototototo
  217. 60230 poke646,c4:print" [165]                                  [167]
  218. 60240 [151]646,c3:[153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(wait";
  219. 60245 [151]198,.:[137]60360
  220. 60250 [151]646,cl
  221. 60255 [153]" *newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewrnd
  222. 60260 fora=1to3:gosub60470:next
  223. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  224. 60280 [129]a[178]1[164]16:[141]60470:[130]
  225. 60290 [153]"onandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand
  226. 60300 fora=1to3:gosub60470:next
  227. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  228. 60320 poke53280,bo:poke53281,sc:goto60140
  229. 60360 print"";
  230. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
  231. 60390 fora=1to100:geta$:ifa$=" "ora$="[160]"thenreturn
  232. 60400 next
  233. 60410 print"";
  234. 60420 print"[165]                                  [167]
  235. 60440 [129]a[178]1[164]100:[161]a$:[139]a$[178]" "[176]a$[178]"close"[167][142]
  236. 60450 [130]
  237. 60460 [137]60360
  238. 60470 [153]" getwaitget":[142]
  239. 60500 [129]z8[178]1[164]nc
  240. 60502 [161]a$:[139]a$[178]""[167]60502
  241. 60503 [139]a$[178]"?"[176]a$[178]","[167]60502
  242. 60504 [139]a$[178]"load"[176]a$[178]""[176]a$[178]"save"[176]a$[178]"on"[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]""[167]60502
  243. 60505 [139]a$[178][199](13)[176]a$[178][199](141)[167][153]"cmd ":[137]60544
  244. 60506 [139]a$[178]" "[176]a$[178]"close"[167]60540
  245. 60508 [139]a$[178][199](20)[175]z8[178]1[167]60502
  246. 60510 [139]a$[178][199](20)[167]z8[178]z8[171]1:[153]"cmdcmd  cmdcmd";bk$;:[137]60502
  247. 60520 [139]a$[177]"/"[175]a$[179]":"[175](mo[175]2)[167]60540
  248. 60522 [139]a$[177]" "[175]a$[179]"*"[175](mo[175]4)[167]60540
  249. 60524 [139]a$[177]"tan"[175]a$[179]"(NULL)"[175](mo[175]8)[167]60540
  250. 60526 [139]a$[177]"@"[175]a$[179]"["[175](mo[175]16)[167]60540
  251. 60528 [139]a$[177][199](160)[175]a$[179][199](192)[175](mo[175]32)[167]60540
  252. 60530 [139]a$[177][178][199](0)[175]a$[179]""[175](mo[175]64)[167]60540
  253. 60532 [139]a$[177]")"[175]a$[179]"0"[175](mo[175]128)[167]60540
  254. 60534 [139]a$[177]"9"[175]a$[179]"a"[175](mo[175]128)[167]60540
  255. 60536 [139]a$[177]"z"[175]a$[179]"for"[175](mo[175]128)[167]60540
  256. 60538 [137]60502
  257. 60540 [153]"cmd";a$;:[151]212,.:[153]bk$;
  258. 60542 g$(z8)[178]a$:[130]
  259. 60544 [153]"cmdwait "
  260. 60546 a$[178]"":[129]a[178]1[164]z8[171]1:a$[178]a$[170]g$(a):[130]:[139]z8[178]1[167]a$[178]""
  261. 60548 [142]
  262. 60600 b$[178]"":[129]a[178]1[164][195](a$)
  263. 60610 z$[178][202](a$,a,1)
  264. 60620 [139]z$[179][178]"z" [175] z$[178][177]"a" [167]z$[178][199]([198](z$)[170]128)
  265. 60630 b$[178]b$[170]z$
  266. 60640 [130]:a$[178]b$
  267. 60650 [142]
  268.