4000 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
4002 FORH=685TO709:READA:POKEH,A:NEXT
4004 DATA32,158,173,32,247,183,32,19,166,165,95,56
4006 DATA233,1,176,2,198,96,133,65,165,96,133,66,96
4007 D=200:DIM N(D),NC$(D),C$(D),N1$(D),N2$(D),YL$(D),AD$(D),P$(D),F$(D)
4008 A=0:Y$=",":PRINT"[147]"                                      "
4016 [153]"      1=ADD NEW MEMBER"
4020 [153]"      2=SEARCH DATA FOR CHANGE OR INFO"
4024 [153]"      3=SAVE"
4026 [153]"      4=END"
4027 [153]"      5=START NET"
4028 [153]"      6=LIST CHECK-INS"
4029 [153]"      7=SAVE CK-IN LIST"
4030 [153]"      8=READ CK-IN LIST FROM DISK"
4031 [153]"      9=VIEW DIRECTORY"
4032 [153]"     10=PRINT CK-IN LIST TO PRINTER"
4033 [153]"     11=NET COUNT"
4036 [133]"NR.";B:[145]B[137]4038,4152,4262,4269,4186,4212,4270,4288,4600,4604,4447
4038 Y$[178]",":D$[178]"DATA":[143]-ITEM 1 ADD NEW MEMBER - - - - - - - - - - -
4040 [153]"LOADFIRST NAME. ('MENU'=MENU)":[133]N1$:[139]N1$[178]"MENU"[167]4008
4042 [133]"LAST NAME (U=UNKNOWN)";N2$:[139]N2$[178]"U"[167]N2$[178]"------"
4044 [133]"XYL-NAME/N/?";YL$:YL$[178]"("[170]YL$[170]")":[133]"CALL";C$
4046 [133]"PHONE NO./NONE";P$:[139]P$[178]"NONE"[167]P$[178]"--------"
4048 [153]"STREET & 1ST 3 LTRS OF CITY U=UNK":[133]A$:[139]A$[178]"U"[167]A$[178]"-------UNK"
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
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
4054 S$[178]N1$[170]Y$[170]N2$[170]Y$[170]C$[170]Y$[170]YL$[170]Y$[170]P$[170]Y$[170]A$
4056 X[178][198](C2$)[172]100:[139]H$[178]"+4"[167][140]X:[137]4060
4058 [158](685)X
4060 [135]N1$,N2$,C$,YL$,P$,A$:X[178]X[170]1:[139]N1$[178]"!"[167]DL[178]X:[137]4064
4062 [137]4060
4064 [153][199](147);DL;D$;S$
4065 [129] I[178]1 [164] 1000:[130]
4066 [153]"RUN4002"
4070 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[128]
4152 Y[178]6500:DL[178]Y:[139]H$[178]"+4"[167][140]6500:[137]4156
4153 [143] SEARCH DATA STATEMENTS
4154 [158](685)6500
4155 [153]"LOAD ENTER ITEM TO SEARCH FOR IN FOLLOWING CATEGORIES:"
4156 [133]"FIRST/LAST NAME/YL NAME/CALL/3 LTR CITY";Z$:[153]"CLOSE"
4158 [153]"IS THIS A: (USE NUMBER)":[153]"1 FIRST NAME":[153]"2 LAST NAME"
4160 [153]"3 CALL":[153]"4 YL NAME":[153]"5 CITY"
4162 [133]N:
4164 [135]N1$,N2$,C$,YL$,P$,A$:[139]N1$[178]"!"[167]Y[178]Y[170]100:DL[178]Y:[137]4164
4166 [139]N1$[178]"."[167][153]" SEARCH COMPLETED. CHANGE IF NECESSARY.":[137] 4016
4168 [139]N[178]1[175]N1$[178]Z$[167][137]4180
4170 [139]N[178]2[175]N2$[178]Z$[167][137]4180
4172 [139]N[178]3[175]C$[178]Z$[167][137]4180
4174 [139]N[178]4[175]YL$[178]"("[170]Z$[170]")"[167][137]4180
4176 [139]N[178]5[175][201](A$,3)[178]Z$[167][137]4180
4178 DL[178]DL[170]1:[137]4164
4180 S$[178]N1$[170]Y$[170]N2$[170]Y$[170]C$[170]Y$[170]YL$[170]Y$[170]P$[170]Y$[170]A$
4182 [153]DL;"DATA"[170]S$:[153]"":DL[178]DL[170]1:[137]4164
4186 N[178]0:[153]"ENTER CALL SUFFIX+*FOR NO CMT,ENTER \ TO RETURN TO MENU";
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]"**"
4190 [139]Z$[178]"\"[167]4008:N[178]N[171]1
4192 Z1$[178][200](Z$,1):Z1[178] [198](Z1$)[172]100:[139]Z1[177]9100[176]Z1[179]6500[167]4188
4196 [158](685)Z1
4198 [135]N1$,N2$,C$,YL$,P$,A$
4200 [139]N1$[178]"!"[167][153]N;Z$;"  NOT LISTED-GET CALL & NAME" :[141]11000:[137]4188
4202 C[178][198]([202](C$,2,1)):[139]C[177]46[175]C[179]58[167]C1$[178][202](C$,3):[137]4206
4204 D[178][198]([202](C$,3,1)):[139]D[177]46[175]D[179]58[167]C1$[178][202](C$,4):[137]4206
4206 [139]Z$[178]C1$[167]4210
4208 [137]4198
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$
4211 [153]N;NC$;C$;" ";N1$;" ";N2$;" ";P$;:NC$[178]"":[137] 4188
4212 [153]"LOAD":LN[178]1:PN[178]22:[129] I[178]LN [164] PN
4213 [153]I" ";NC$(I)" ";C$(I)" ";N1$(I)" ";N2$(I)" ";P$(I)
4214 [130] I
4218 [153] "PRESS + FOR NEXT PAGE,- FOR PREVIOUS PAGE,UP ARROW TO RESUME LISTING"
4219 [153] "PRESS \ TO RETURN TO MENU"
4220 [161] A$:[139] A$[178]""[167] 4220
4221 [139] A$[178]"^"[167] N[178]N[171]1:[137]4188
4222 [139] A$[178]"+"[167] LN[178]LN[170]22:[139] LN[177]N[167] LN[178]1
4224 [139] A$[178]"-"[167] LN[178]LN[171]22:[139] LN[179]1[167] LN[178]1
4225 [139] A$[178]"\"[167] [153] [199](147):[137]4016
4226 [153]"LOAD":[129] I[178]LN [164] LN[170]22
4227 [139] I[177]N [167] I[178]LN[170]22:[137] 4230
4228 [153]I " ";NC$(I)" ";C$(I)" ";N1$(I)" ";N2$(I)" ";P$(I)
4230 [130] I
4240 [137] 4220
4246 [143] N=N-1:GOTO4220
4262 [143]-ITEM 3 - SAVE---SAVES PROGRAM TO INCLUDE ANY CHANGE TO DATA STATEMENTS
4263 [153] "SAVE NET PROGRAM"
4264 [133]"ARE YOU SURE YES/NO  YCMDCMDCMD";YN$:[139] YN$[178]"N"[167] 4008:[143] RESAVING
4266 [153]"LOADSCRATCHING":[160]15:[159]15,8,15,"S:NET":[160]15
4267 [153]"LOADSAVING":[148]"NET",8:[137]4016
4269 [128]
4270 [133]"DATE IE 1-19-93";W$:[139] W$[178]""[167] 4016
4272 [159] 1,8,3,"0:NET "[170]W$[170]"S,W"
4275 [152]1,N
4276 [129] I [178] 1 [164] N[171]1
4278 [152]1,I" ";NC$(I)" ";C$(I)" ";N1$(I)" ";N2$(I)" ";P$(I)
4282 [130] I
4284 [152]1:[160]1
4286 [137] 4016
4287 [143] READ CK-IN FILE FROM DISK
4288 [153]"USE DATE IE 1-19-93 FOR FILENAME"
4290 [133]" DATE";R$:[139] R$[178]""[167] 4016
4292 [159] 1,8,3,"0:NET "[170]R$[170]"S,R"
4294 [132]1,N
4295 [129] I[178]1 [164] N[171]1
4296 [132]1,C$(I)
4297 [153]C$(I)
4300 [130] I
4302 [152]1:[160]1
4304 N[178]N[171]1:[153] "TYPE RUN TO RESUME":[128]
4445 [153]"":[153]"":[153]"":[153]"         PRESS ANY KEY"
4446 [161]B$:[139]B$[178]""[167]4446
4447 [143]*****SUMMING THE WEEKLY COUNT
4448 [133]"SEE OR ADD TO COUNT S/A";C$:[139]C$[178]"S"[167]4452
4450 [155]4452[171]4476:[128]
4452 [153]"----------------1993--------"
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
4456 [153]"FEB";:[153]2[170]15;:[153] "QSTS";:[153] 2
4458 [153]"MAR";:[153] 3[170]12;:[153]"QSTS";:[153] 2[170]2[170]2
4460 [153]"APR";:[153] 25[170]1;:[153]"QSTS";:[153] 2[170]2
4462 [153]"MAY";:[153]
4464 [153]"JUN";:[153]
4466 [153]"JUL";:[153]
4468 [153]"AUG";:[153]
4470 [153]"SEP";:[153]
4472 [153]"OCT";:[153]
4474 [153]"NOV";:[153]
4476 [153]"DEC";:[153]
4484 [137] 4016
4504 [153]"ANY KEY"
4506 [161]D$:[139]D$[178]""[167]4506
4508 [137]4008
4600 [158]49152:[137] 4016
4601 [161] A$:[139] A$[178]""[167] 4601
4602 [153] "LOAD":[137]4016
4603 [143] LIST CK INS TO PRINTER
4604 [159] 4,4
4606 [129] I[178]1 [164] N[171]1
4608 [152]4,N(I)" ";NC$(I)" ";C$(I)" ";N1$(I)" ";N2$(I)" ";P$(I)
4610 [130] I
4612 [152]4:[160]4
4614 [137] 4016
6499 [143]-*********  NET CHECK INS  ******************************************
6500 [131]ROY,FRAZOR,WS5A,(N),622-6410,1220 NO. MAIN ROS
6599 [131]!,!,!,!,!,!
6699 [131]!,!,!,!,!,!
6799 [131]!,!,!,!,!,!
6899 [131]!,!,!,!,!,!
6999 [131]!,!,!,!,!,!
7099 [131]!,!,!,!,!,!
7199 [131]!,!,!,!,!,!
7299 [131]!,!,!,!,!,!
7399 [131]!,!,!,!,!,!
7499 [131]!,!,!,!,!,!
7599 [131]!,!,!,!,!,!
7699 [131]!,!,!,!,!,!
7799 [131]!,!,!,!,!,!
7899 [131]!,!,!,!,!,!
7999 [131]!,!,!,!,!,!
8099 [131]!,!,!,!,!,!
8100 [131]RALPH,KNIGHT,NG5Q,(FRAN),622-9250,1619 N. KANSAS ROS
8102 [131]TOM,COATES,W8QD,((MARGE)),625-0987,1001 DEBREMMOND ROS
8199 [131]!,!,!,!,!,!
8299 [131]!,!,!,!,!,!
8399 [131]!,!,!,!,!,!
8499 [131]!,!,!,!,!,!
8599 [131]!,!,!,!,!,!
8699 [131]!,!,!,!,!,!
8799 [131]!,!,!,!,!,!
8899 [131]!,!,!,!,!,!
8999 [131]!,!,!,!,!,!
9098 [131]!,!,!,!,!,!
9099 [131].,.,.,.,.,.
11000 [153]
11010 [153] "ENTER CALL,FIRST NAME,LAST NAME, PHONE"
11020 [133]"CALL";C$(N)
11022 [133]"FIRST NAME";N1$(N)
11024 [133]"LAST NAME";N2$(N)
11026 [133]"PHONE";P$(N)
11040 [142]