home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04b.d64 / net (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  178 lines
  1. 4000 rem copyright 1994 - compute publications intl ltd - all rights reserved
  2. 4002 forh=685to709:reada:pokeh,a:next
  3. 4004 data32,158,173,32,247,183,32,19,166,165,95,56
  4. 4006 data233,1,176,2,198,96,133,65,165,96,133,66,96
  5. 4007 d=200:dim n(d),nc$(d),c$(d),n1$(d),n2$(d),yl$(d),ad$(d),p$(d),f$(d)
  6. 4008 a=0:y$=",":print"[147]"                                      "
  7. 4016 [153]"      1=add new member"
  8. 4020 [153]"      2=search data for change or info"
  9. 4024 [153]"      3=save"
  10. 4026 [153]"      4=end"
  11. 4027 [153]"      5=start net"
  12. 4028 [153]"      6=list check-ins"
  13. 4029 [153]"      7=save ck-in list"
  14. 4030 [153]"      8=read ck-in list from disk"
  15. 4031 [153]"      9=view directory"
  16. 4032 [153]"     10=print ck-in list to printer"
  17. 4033 [153]"     11=net count"
  18. 4036 [133]"nr.";b:[145]b[137]4038,4152,4262,4269,4186,4212,4270,4288,4600,4604,4447
  19. 4038 y$[178]",":d$[178]"data":[143]-item 1 add new member - - - - - - - - - - -
  20. 4040 [153]"loadfirst name. ('menu'=menu)":[133]n1$:[139]n1$[178]"menu"[167]4008
  21. 4042 [133]"last name (u=unknown)";n2$:[139]n2$[178]"u"[167]n2$[178]"------"
  22. 4044 [133]"xyl-name/n/?";yl$:yl$[178]"("[170]yl$[170]")":[133]"call";c$
  23. 4046 [133]"phone no./none";p$:[139]p$[178]"none"[167]p$[178]"--------"
  24. 4048 [153]"street & 1st 3 ltrs of city u=unk":[133]a$:[139]a$[178]"u"[167]a$[178]"-------unk"
  25. 4050 c[178][198]([202](c$,2,1)):[139]c[177]46[175]c[179]58[167]c1$[178][202](c$,3):c2$[178][200](c1$,1):[137]4054
  26. 4052 c[178][198]([202](c$,3,1)):[139]c[177]46[175]c[179]58[167]c1$[178][202](c$,4):c2$[178][200](c1$,1):[137]4054
  27. 4054 s$[178]n1$[170]y$[170]n2$[170]y$[170]c$[170]y$[170]yl$[170]y$[170]p$[170]y$[170]a$
  28. 4056 x[178][198](c2$)[172]100:[139]h$[178]"+4"[167][140]x:[137]4060
  29. 4058 [158](685)x
  30. 4060 [135]n1$,n2$,c$,yl$,p$,a$:x[178]x[170]1:[139]n1$[178]"!"[167]dl[178]x:[137]4064
  31. 4062 [137]4060
  32. 4064 [153][199](147);dl;d$;s$
  33. 4065 [129] i[178]1 [164] 1000:[130]
  34. 4066 [153]"run4002"
  35. 4070 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[128]
  36. 4152 y[178]6500:dl[178]y:[139]h$[178]"+4"[167][140]6500:[137]4156
  37. 4153 [143] search data statements
  38. 4154 [158](685)6500
  39. 4155 [153]"load enter item to search for in following categories:"
  40. 4156 [133]"first/last name/yl name/call/3 ltr city";z$:[153]"close"
  41. 4158 [153]"is this a: (use number)":[153]"1 first name":[153]"2 last name"
  42. 4160 [153]"3 call":[153]"4 yl name":[153]"5 city"
  43. 4162 [133]n:
  44. 4164 [135]n1$,n2$,c$,yl$,p$,a$:[139]n1$[178]"!"[167]y[178]y[170]100:dl[178]y:[137]4164
  45. 4166 [139]n1$[178]"."[167][153]" search completed. change if necessary.":[137] 4016
  46. 4168 [139]n[178]1[175]n1$[178]z$[167][137]4180
  47. 4170 [139]n[178]2[175]n2$[178]z$[167][137]4180
  48. 4172 [139]n[178]3[175]c$[178]z$[167][137]4180
  49. 4174 [139]n[178]4[175]yl$[178]"("[170]z$[170]")"[167][137]4180
  50. 4176 [139]n[178]5[175][201](a$,3)[178]z$[167][137]4180
  51. 4178 dl[178]dl[170]1:[137]4164
  52. 4180 s$[178]n1$[170]y$[170]n2$[170]y$[170]c$[170]y$[170]yl$[170]y$[170]p$[170]y$[170]a$
  53. 4182 [153]dl;"data"[170]s$:[153]"":dl[178]dl[170]1:[137]4164
  54. 4186 n[178]0:[153]"enter call suffix+*for no cmt,enter \ to return to menu";
  55. 4188 [133]z$:n[178]n[170]1:x[178][195](z$):[139][201](z$,1)[178]"*"[167]z$[178][200](z$,x[171]1):nc$[178]"**"
  56. 4190 [139]z$[178]"\"[167]4008:n[178]n[171]1
  57. 4192 z1$[178][200](z$,1):z1[178] [198](z1$)[172]100:[139]z1[177]9100[176]z1[179]6500[167]4188
  58. 4196 [158](685)z1
  59. 4198 [135]n1$,n2$,c$,yl$,p$,a$
  60. 4200 [139]n1$[178]"!"[167][153]n;z$;"  not listed-get call & name" :[141]11000:[137]4188
  61. 4202 c[178][198]([202](c$,2,1)):[139]c[177]46[175]c[179]58[167]c1$[178][202](c$,3):[137]4206
  62. 4204 d[178][198]([202](c$,3,1)):[139]d[177]46[175]d[179]58[167]c1$[178][202](c$,4):[137]4206
  63. 4206 [139]z$[178]c1$[167]4210
  64. 4208 [137]4198
  65. 4210 n(n)[178]n:nc$(n)[178]nc$:c$(n)[178]c$:n1$(n)[178]n1$:n2$(n)[178]n2$:p$(n)[178]p$
  66. 4211 [153]n;nc$;c$;" ";n1$;" ";n2$;" ";p$;:nc$[178]"":[137] 4188
  67. 4212 [153]"load":ln[178]1:pn[178]22:[129] i[178]ln [164] pn
  68. 4213 [153]i" ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  69. 4214 [130] i
  70. 4218 [153] "press + for next page,- for previous page,up arrow to resume listing"
  71. 4219 [153] "press \ to return to menu"
  72. 4220 [161] a$:[139] a$[178]""[167] 4220
  73. 4221 [139] a$[178]"^"[167] n[178]n[171]1:[137]4188
  74. 4222 [139] a$[178]"+"[167] ln[178]ln[170]22:[139] ln[177]n[167] ln[178]1
  75. 4224 [139] a$[178]"-"[167] ln[178]ln[171]22:[139] ln[179]1[167] ln[178]1
  76. 4225 [139] a$[178]"\"[167] [153] [199](147):[137]4016
  77. 4226 [153]"load":[129] i[178]ln [164] ln[170]22
  78. 4227 [139] i[177]n [167] i[178]ln[170]22:[137] 4230
  79. 4228 [153]i " ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  80. 4230 [130] i
  81. 4240 [137] 4220
  82. 4246 [143] n=n-1:goto4220
  83. 4262 [143]-item 3 - save---saves program to include any change to data statements
  84. 4263 [153] "save net program"
  85. 4264 [133]"are you sure yes/no  ycmdcmdcmd";yn$:[139] yn$[178]"n"[167] 4008:[143] resaving
  86. 4266 [153]"loadscratching":[160]15:[159]15,8,15,"s:net":[160]15
  87. 4267 [153]"loadsaving":[148]"net",8:[137]4016
  88. 4269 [128]
  89. 4270 [133]"date ie 1-19-93";w$:[139] w$[178]""[167] 4016
  90. 4272 [159] 1,8,3,"0:net "[170]w$[170]"s,w"
  91. 4275 [152]1,n
  92. 4276 [129] i [178] 1 [164] n[171]1
  93. 4278 [152]1,i" ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  94. 4282 [130] i
  95. 4284 [152]1:[160]1
  96. 4286 [137] 4016
  97. 4287 [143] read ck-in file from disk
  98. 4288 [153]"use date ie 1-19-93 for filename"
  99. 4290 [133]" date";r$:[139] r$[178]""[167] 4016
  100. 4292 [159] 1,8,3,"0:net "[170]r$[170]"s,r"
  101. 4294 [132]1,n
  102. 4295 [129] i[178]1 [164] n[171]1
  103. 4296 [132]1,c$(i)
  104. 4297 [153]c$(i)
  105. 4300 [130] i
  106. 4302 [152]1:[160]1
  107. 4304 n[178]n[171]1:[153] "type run to resume":[128]
  108. 4445 [153]"":[153]"":[153]"":[153]"         press any key"
  109. 4446 [161]b$:[139]b$[178]""[167]4446
  110. 4447 [143]*****summing the weekly count
  111. 4448 [133]"see or add to count s/a";c$:[139]c$[178]"s"[167]4452
  112. 4450 [155]4452[171]4476:[128]
  113. 4452 [153]"----------------1993--------"
  114. 4454 [153]"jan";:[153]15[170]11[170]16[170]11[170]4[170]9[170]7 ;:[153]"qsts";:[153]1[170]1[170]2
  115. 4456 [153]"feb";:[153]2[170]15;:[153] "qsts";:[153] 2
  116. 4458 [153]"mar";:[153] 3[170]12;:[153]"qsts";:[153] 2[170]2[170]2
  117. 4460 [153]"apr";:[153] 25[170]1;:[153]"qsts";:[153] 2[170]2
  118. 4462 [153]"may";:[153]
  119. 4464 [153]"jun";:[153]
  120. 4466 [153]"jul";:[153]
  121. 4468 [153]"aug";:[153]
  122. 4470 [153]"sep";:[153]
  123. 4472 [153]"oct";:[153]
  124. 4474 [153]"nov";:[153]
  125. 4476 [153]"dec";:[153]
  126. 4484 [137] 4016
  127. 4504 [153]"any key"
  128. 4506 [161]d$:[139]d$[178]""[167]4506
  129. 4508 [137]4008
  130. 4600 [158]49152:[137] 4016
  131. 4601 [161] a$:[139] a$[178]""[167] 4601
  132. 4602 [153] "load":[137]4016
  133. 4603 [143] list ck ins to printer
  134. 4604 [159] 4,4
  135. 4606 [129] i[178]1 [164] n[171]1
  136. 4608 [152]4,n(i)" ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  137. 4610 [130] i
  138. 4612 [152]4:[160]4
  139. 4614 [137] 4016
  140. 6499 [143]-*********  net check ins  ******************************************
  141. 6500 [131]roy,frazor,ws5a,(n),622-6410,1220 no. main ros
  142. 6599 [131]!,!,!,!,!,!
  143. 6699 [131]!,!,!,!,!,!
  144. 6799 [131]!,!,!,!,!,!
  145. 6899 [131]!,!,!,!,!,!
  146. 6999 [131]!,!,!,!,!,!
  147. 7099 [131]!,!,!,!,!,!
  148. 7199 [131]!,!,!,!,!,!
  149. 7299 [131]!,!,!,!,!,!
  150. 7399 [131]!,!,!,!,!,!
  151. 7499 [131]!,!,!,!,!,!
  152. 7599 [131]!,!,!,!,!,!
  153. 7699 [131]!,!,!,!,!,!
  154. 7799 [131]!,!,!,!,!,!
  155. 7899 [131]!,!,!,!,!,!
  156. 7999 [131]!,!,!,!,!,!
  157. 8099 [131]!,!,!,!,!,!
  158. 8100 [131]ralph,knight,ng5q,(fran),622-9250,1619 n. kansas ros
  159. 8102 [131]tom,coates,w8qd,((marge)),625-0987,1001 debremmond ros
  160. 8199 [131]!,!,!,!,!,!
  161. 8299 [131]!,!,!,!,!,!
  162. 8399 [131]!,!,!,!,!,!
  163. 8499 [131]!,!,!,!,!,!
  164. 8599 [131]!,!,!,!,!,!
  165. 8699 [131]!,!,!,!,!,!
  166. 8799 [131]!,!,!,!,!,!
  167. 8899 [131]!,!,!,!,!,!
  168. 8999 [131]!,!,!,!,!,!
  169. 9098 [131]!,!,!,!,!,!
  170. 9099 [131].,.,.,.,.,.
  171. 11000 [153]
  172. 11010 [153] "enter call,first name,last name, phone"
  173. 11020 [133]"call";c$(n)
  174. 11022 [133]"first name";n1$(n)
  175. 11024 [133]"last name";n2$(n)
  176. 11026 [133]"phone";p$(n)
  177. 11040 [142]
  178.