home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01a.d64 / net (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  188 lines
  1. 4000 rem copyright 1994 - compute publications intl ltd - all rights reserved
  2. 4001 open 15,8,15
  3. 4002 forh=685to709:reada:pokeh,a:next
  4. 4004 data32,158,173,32,247,183,32,19,166,165,95,56
  5. 4006 data233,1,176,2,198,96,133,65,165,96,133,66,96
  6. 4007 d=200:dim n(d),nc$(d),c$(d),n1$(d),n2$(d),yl$(d),ad$(d),p$(d),f$(d)
  7. 4008 a=0:y$=",":print"[147]         ham net   ":print
  8. 4016 print"      1=add new member"
  9. 4020 print"      2=search data for change or info"
  10. 4024 print"      3=save"
  11. 4026 print"      4=end"
  12. 4027 print"      5=start net"
  13. 4028 print"      6=list check-ins"
  14. 4029 print"      7=save ck-in list"
  15. 4030 print"      8=read ck-in list from disk"
  16. 4031 print"      9=view directory"
  17. 4032 print"     10=print ck-in list to printer"
  18. 4033 print"     11=net count"
  19. 4036 input"nr.";b:onbgoto4038,4152,4262,4269,4184,4212,4270,4288,4600,4604,4446
  20. 4038 y$=",":d$="data":rem-item 1 add new member - - - - - - - - - - -
  21. 4040 print"[147]first name. ('menu'=menu)":inputn1$:ifn1$="menu"then4008
  22. 4042 input"last name (u=unknown)";n2$:ifn2$="u"thenn2$="------"
  23. 4044 input"xyl-name/n/?";yl$:yl$="("+yl$+")":input"call";c$
  24. 4046 input"phone no./none";p$:ifp$="none"thenp$="--------"
  25. 4048 print"street & 1st 3 ltrs of city u=unk":inputa$:ifa$="u"thena$="-------unk"
  26. 4050 c=asc(mid$(c$,2,1)):ifc>46andc<58thenc1$=mid$(c$,3):c2$=left$(c1$,1):goto4054
  27. 4052 c=asc(mid$(c$,3,1)):ifc>46andc<58thenc1$=mid$(c$,4):c2$=left$(c1$,1):goto4054
  28. 4054 s$=n1$+y$+n2$+y$+c$+y$+yl$+y$+p$+y$+a$
  29. 4056 x=asc(c2$)*100:ifh$="+4"thenrestorex:goto4060
  30. 4058 sys(685)x
  31. 4060 readn1$,n2$,c$,yl$,p$,a$:x=x+1:ifn1$="!"thendl=x:goto4064
  32. 4062 goto4060
  33. 4064 printchr$(147);dl;d$;s$
  34. 4066 print"run4002"
  35. 4070 poke631,19:poke632,13:poke633,13:poke198,3:end
  36. 4152 y=6500:dl=y:ifh$="+4"thenrestore6500:goto4156
  37. 4153 rem search data statements
  38. 4154 sys(685)6500
  39. 4155 print"[147] enter item to search for in following categories:"
  40. 4156 input"first/last name/yl name/call/3 ltr city";z$:print"[160]"
  41. 4158 print"is this a: (use number)":print"1 first name":print"2 last name"
  42. 4160 print"3 call":print"4 yl name":print"5 city"
  43. 4162 inputn:
  44. 4164 readn1$,n2$,c$,yl$,p$,a$:ifn1$="!"theny=y+100:dl=y:goto4164
  45. 4166 ifn1$="."thenprint" search completed. change if necessary.":goto 4016
  46. 4168 ifn=1andn1$=z$thengoto4180
  47. 4170 ifn=2andn2$=z$thengoto4180
  48. 4172 ifn=3andc$=z$thengoto4180
  49. 4174 ifn=4andyl$="("+z$+")"thengoto4180
  50. 4176 ifn=5andright$(a$,3)=z$thengoto4180
  51. 4178 dl=dl+1:goto4164
  52. 4180 s$=n1$+y$+n2$+y$+c$+y$+yl$+y$+p$+y$+a$
  53. 4182 printdl;"data"+s$:print"":dl=dl+1:goto4164
  54. 4184 print
  55. 4186 n=0:print"enter call suffix+*for no cmt,enter \ to return to menu";
  56. 4188 inputz$:n=n+1:x=len(z$):ifright$(z$,1)="*"thenz$=left$(z$,x-1):nc$="**"
  57. 4190 ifz$="\"then4008:n=n-1
  58. 4192 z1$=left$(z$,1):z1= asc(z1$)*100:ifz1>9100orz1<6500then4188
  59. 4196 sys(685)z1
  60. 4198 readn1$,n2$,c$,yl$,p$,a$
  61. 4200 ifn1$="!"thenprintn;z$;"  not listed-get call & name" :gosub11000:goto4188
  62. 4202 c=asc(mid$(c$,2,1)):ifc>46andc<58thenc1$=mid$(c$,3):goto4206
  63. 4204 d=asc(mid$(c$,3,1)):ifd>46andd<58thenc1$=mid$(c$,4):goto4206
  64. 4206 ifz$=c1$then4210
  65. 4208 goto4198
  66. 4210 n(n)=n:nc$(n)=nc$:c$(n)=c$:n1$(n)=n1$:n2$(n)=n2$:p$(n)=p$
  67. 4211 printn;nc$;c$;" ";n1$;" ";n2$;" ";p$;:nc$="":goto 4188
  68. 4212 print"[147]":ln=1:pn=22:for i=ln to pn
  69. 4213 printi" ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  70. 4214 next i
  71. 4218 print "press + for next page,- for previous page,up arrow to resume listing"
  72. 4220 get a$:if a$=""then 4220
  73. 4221 if a$="^"then n=n-1:goto4188
  74. 4222 if a$="+"then ln=ln+22:if ln>nthen ln=1
  75. 4224 if a$="-"then ln=ln-22:if ln<1then ln=1
  76. 4225 if a$="\"then print chr$(147):goto4016
  77. 4226 print"[147]":for i=ln to ln+22
  78. 4227 if i>n then i=ln+22:goto 4230
  79. 4228 printi " ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  80. 4230 next i
  81. 4240 goto 4220
  82. 4246 rem n=n-1:goto4220
  83. 4262 rem-item 3 - save---saves program to include any change to data statements
  84. 4263 print "save net program"
  85. 4264 input"are you sure yes/no  y[157][157][157]";yn$:if yn$="n"then 4008:rem resaving
  86. 4266 print"[147]scratching":close15:open15,8,15,"s:net":close15
  87. 4267 print"[147]saving":save"net",8:goto4016
  88. 4269 end
  89. 4270 input"date ie 1-19-94";w$:if w$=""then 4016
  90. 4272 open 1,8,3,"0:net "+w$+"s,w"
  91. 4273 gosub 10000:rem dos error?
  92. 4275 print#1,n
  93. 4276 for i = 1 to n-1
  94. 4278 print#1,i","nc$(i)","c$(i)","n1$(i)","n2$(i)","p$(i)
  95. 4282 next i
  96. 4284 print#1:close1
  97. 4286 goto 4016
  98. 4287 rem read ck-in file from disk
  99. 4288 print"use date ie 1-19-94 for filename"
  100. 4290 input" date";r$:if r$=""then 4016
  101. 4292 open 1,8,3,"0:net "+r$+"s,r"
  102. 4293 gosub 10000
  103. 4294 input#1,n
  104. 4295 for i=1 to n-1
  105. 4296 input#1,i,nc$(i),c$(i),n1$(i),n2$(i),p$(i)
  106. 4297 print i;" "nc$(i);" "c$(i);" "n1$(i);" "n2$(i);" "p$(i)
  107. 4300 next i
  108. 4302 print#1:close1
  109. 4304 n=n-1:goto4188
  110. 4432 print"":print"":print"":print"         press any key"
  111. 4434 getb$:ifb$=""then4434
  112. 4446 rem*****summing the weekly count
  113. 4448 input"see or add to count s/a";c$:ifc$="s"then4452
  114. 4450 list4452-4476:end
  115. 4452 print"----------------1994--------"
  116. 4454 print"jan";:print15+11+16+11+4+9+7 ;:print"qsts";:print1+1+2
  117. 4456 print"feb";:print
  118. 4458 print"mar";:print
  119. 4460 print"apr";:print
  120. 4462 print"may";:print
  121. 4464 print"jun";:print
  122. 4466 print"jul";:print
  123. 4468 print"aug";:print
  124. 4470 print"sep";:print
  125. 4472 print"oct";:print
  126. 4474 print"nov";:print
  127. 4476 print"dec";:print
  128. 4484 goto 4016
  129. 4504 print"any key"
  130. 4506 getd$:ifd$=""then4506
  131. 4508 goto4008
  132. 4600 sys49152
  133. 4601 get a$:if a$=""then 4601
  134. 4602 print "[147]":goto4016
  135. 4603 rem list ck ins to printer
  136. 4604 open 4,4
  137. 4606 for i=1 to n-1
  138. 4608 print#4,n(i)" ";nc$(i)" ";c$(i)" ";n1$(i)" ";n2$(i)" ";p$(i)
  139. 4610 next i
  140. 4612 print#4:close4
  141. 4614 goto 4016
  142. 6499 rem-*********  net check ins  ******************************************
  143. 6500 dataroy,frazor,ws5a,(n),622-6410,1220 no. main ros
  144. 6599 data!,!,!,!,!,!
  145. 6699 data!,!,!,!,!,!
  146. 6799 data!,!,!,!,!,!
  147. 6899 data!,!,!,!,!,!
  148. 6999 data!,!,!,!,!,!
  149. 7099 data!,!,!,!,!,!
  150. 7199 data!,!,!,!,!,!
  151. 7299 data!,!,!,!,!,!
  152. 7399 data!,!,!,!,!,!
  153. 7499 data!,!,!,!,!,!
  154. 7599 data!,!,!,!,!,!
  155. 7699 data!,!,!,!,!,!
  156. 7799 data!,!,!,!,!,!
  157. 7899 data!,!,!,!,!,!
  158. 7999 data!,!,!,!,!,!
  159. 8099 data!,!,!,!,!,!
  160. 8100 dataralph,knight,ng5q,(fran),622-9250,1619 n. kansas ros
  161. 8102 datatom,coates,w8qd,((marge)),625-0987,1001 debremmond ros
  162. 8199 data!,!,!,!,!,!
  163. 8299 data!,!,!,!,!,!
  164. 8399 data!,!,!,!,!,!
  165. 8401 datatom,jones,k5tom,(sue),555-4758,-------unk
  166. 8499 data!,!,!,!,!,!
  167. 8599 data!,!,!,!,!,!
  168. 8699 data!,!,!,!,!,!
  169. 8799 data!,!,!,!,!,!
  170. 8899 data!,!,!,!,!,!
  171. 8999 data!,!,!,!,!,!
  172. 9098 data!,!,!,!,!,!
  173. 9099 data.,.,.,.,.,.
  174. 10000 close15:open15,8,15
  175. 10010 input#15,en,em$,et,es
  176. 10020 if en=0 then return
  177. 10030 print "error on disk"
  178. 10040 print en;em$;et;es
  179. 10050 close1:close15
  180. 10060 goto4016
  181. 11000 print
  182. 11010 print "enter call,first name,last name, phone"
  183. 11020 input"call";c$(n)
  184. 11022 input"first name";n1$(n)
  185. 11024 input"last name";n2$(n)
  186. 11026 input"phone";p$(n)
  187. 11040 return
  188.