10 REM"  [196][193][212][193][160][194][193][211][197] -- [193]LAN [215]. [199]ARDNER
20 [143]"    ASCRIGHT$(null)ATN(null)CLOSE(null)(null)(null)MID$VALLEN(null) -- LEN(null)LENCLOSE211
30 REM"       [215]RITTEN 9-5-85
40 [143]
50 [143]"(null)HIS PROGRAM IS DESIGNED TO KEEP
60 REM" TRACK OF NAMES, ADDRESSES, AND
70 [143]" PHONE NUMBERS IN A (null)VAL(null)ATIVE
80 REM" FILE.  [207]PTIONS INCLUDE SORTING,
85 [143]" ADDING, DELETING, VIEWING,
87 REM" SEARCHING, AND PRINTING DATA.
90 [143]
99 [143]
100 [141] 1000  : [143]  INITALIZE
110 [141] 2000  : [143]  MENU
120 INKEY[178][197](INKEY$)
130 [145] INKEY [141] 3000,4000,5000,6000,7000,8000,9000
140 [143]
150 [143]   3000  -- INPUT DATA
160 [143]   4000  -- DELETE ENTRY
170 [143]   5000  -- SORT DATA
180 [143]   6000  -- LIST DATA
185 [143]   7000  -- EDIT DEFAULTS
187 [143]   8000  -- SEARCH DATA
189 [143]   9000  -- PRINT DATA
190 [143]  60000  -- END PROGRAM
200 [143]
210 [139] INKEY[179][177]8[167]110 :[143] RETURN TO MENU
220 [137]60000 : [143]  GOTO EXIT
300 [143]
1000 [143]   INITIALIZE
1001 [159]8,8,8,"$":[129]C1[178]1[164]142:[161]#8,K$:[130]C1:[129]C1[178]144[164]160:[161]#8,K$:[130]
1002 [161]#8,L$,M$,N$
1004 ID$[178]M$[170]N$:[153]ID$
1006 [160]8
1010 CR$[178][199](13):RN[178]0:NR[178]0
1015 [159]15,8,15
1020 [151]53281,0:[151]53280,6:[153]"LOAD"
1030 [134] TEXT$(400),SERT$(400)
1040 [141]10000:  [143] OPEN FILE
1045 [141]16000:  [143] READ # OF RECORDS
1050 [141]11000:  [143] CLOSE FILE
1900 [142]
1910 :
2000 [143]   MAIN MENU
2010 [153]"LOADPRINT#           ** (null)R.(null)AILMAN **"
2012 [153]"     LEFT$E KNOWS EVERYONE'S ADDRESS!"
2013 [153]"                V. 3.9"
2020 [153]"       (null)RITTEN BY ATNLAN (null). CHR$ARDNER"
2025 [153]"LIST (null)UMBER OF PEOPLE ON FILE:"NR
2030 [153]" LEFT$ERE ARE YOUR OPTIONS."
2040 [153]" 1. ==> RIGHT$NPUT NEW DATA"
2050 [153]" 2. ==> STR$ELETE DATA"
2060 [153]" 3. ==> (null)ORT DATA"
2070 [153]" 4. ==> (null)IST CURRENT DATA"
2075 [153]" 5. ==> LENHANGE STR$EFAULTS"
2077 [153]" 6. ==> (null)EARCH STR$ATA"
2078 [153]" 7. ==> (null)RINT STR$ATA"
2080 [153]" 8. ==> VALXIT PROGRAM"
2090 [153]"(null)HICH WOULD YOU LIKE? ";
2100 [151]198,0:[146]198,1:[161] INKEY$
2110 [139] INKEY$[179]"1"[176]INKEY$[177]"8"[167][151]53280,[187](1)[172]15:[137]2100
2120 [153]INKEY$
2900 [142]
2910 :
3000 [143]   INPUT DATA FOR NEW RECORD
3001 [139]NR[179]4[167]3005
3002 [139]ID$[179][177]"\$"[167]3005
3003 [153]"LOAD(null)ORRY..NOT ENOUGH ROOM ON THIS (null)(null)ATNSTR$(null)(null)ATN(null)"
3004 [153]"DISK.  (null)LEASE COPY IT TO ANOTHER DISK.":[129]DL[178]1[164]2000:[130]DL:[142]
3005 LAST$[178]"":FIRST$[178]"":ADDR$[178]""
3006 CITY$[178]D1FAULT$:STATE$[178]D2FAULT$:ZIP$[178]D3FAULT$
3007 PHNUM$[178]"":COMMENT$[178]"":FLAG[178]0
3008 LI$[178]"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(TAB(TAB("
3009 BL$[178]"                       "
3010 [153]"LOAD"
3020 [153]"(null)LEASE ENTER DATA FOR PERSON NUMBER"NR[170]1"CMD."
3030 [153]"VALNTER '!' AS LAST NAME TO CANCEL."
3040 [153]:[153]
3050 [153]"(null)AST NAME    :  ";LAST$
3060 [153]"ASCIRST NAME   :  ";FIRST$
3070 [153]"ATNDDRESS      :  ";ADDR$
3080 [153]"LENITY         :  ";CITY$
3090 [153]"(null)TATE        :  ";STATE$
3100 [153]"(null)IP LENODE     :  ";ZIP$
3110 [153]"(null)HONE (null)UMBER :  ";PHNUM$
3120 [153]"LENOMMENT      :  ";COMMENT$
3125 :
3126 :
3130 XP[178]6:YP[178]14 : [143]  SET INIT POS
3135 [143]
3140 LI[178]20:[141]3600 : [143] DRAW UNDRLI
3145 [141]3500       : [143] POS CURSOR
3150 [141]3800       : [143] GET INPUT
3155 LAST$[178]KEY$      : [143] ASSIGN LAST$
3157 [139][200](LAST$,1)[178]"!"[167]3480
3160 [141]3700       : [143] BLANK LINE
3165 XP[178]XP[170]2         : [143] INC VERT POS
3167 [143]
3170 LI[178]20:[141]3600 : [143] DRAW UNDRLI
3175 [141]3500       : [143] POS CURSOR
3180 [141]3800       : [143] GET INPUT
3185 FIRST$[178]KEY$     : [143] ASSIGN FIRST$
3190 [141]3700       : [143] BLANK LINE
3195 XP[178]XP[170]2         : [143] INC VERT POS
3197 [143]
3200 LI[178]20:[141]3600 : [143] DRAW UNDRLI
3205 [141]3500       : [143] POS CURSOR
3210 [141]3800       : [143] GET INPUT
3215 ADDR$[178]KEY$      : [143] ASSIGN ADDR$
3220 [141]3700       : [143] BLANK LINE
3225 XP[178]XP[170]2         : [143] INC VERT POS
3227 [143]
3230 LI[178]20:[141]3600 : [143] DRAW UNDRLI
3235 [141]3500       : [143] POS CURSOR
3240 [141]3800       : [143] GET INPUT
3245 CITY$[178]KEY$      : [143] ASSIGN CITY$
3250 [141]3700       : [143] BLANK LINE
3255 XP[178]XP[170]2         : [143] INC VERT POS
3257 [143]
3260 LI[178]3:[141]3600  : [143] DRAW UNDRLI
3265 [141]3500       : [143] POS CURSOR
3270 [141]3800       : [143] GET INPUT
3275 STATE$[178]KEY$     : [143] ASSIGN STATE$
3280 [141]3700       : [143] BLANK LINE
3285 XP[178]XP[170]2         : [143] INC VERT POS
3287 [143]
3290 LI[178]11:[141]3600 : [143] DRAW UNDRLI
3295 [141]3500       : [143] POS CURSOR
3300 [141]3800       : [143] GET INPUT
3305 ZIP$[178]KEY$       : [143] ASSIGN ZIP$
3310 [141]3700       : [143] BLANK LINE
3315 XP[178]XP[170]2         : [143] INC VERT POS
3317 [143]
3320 LI[178]15:[141]3600 : [143] DRAW UNDRLI
3325 [141]3500       : [143] POS CURSOR
3330 [141]3800       : [143] GET INPUT
3335 PHNUM$[178]KEY$     : [143] ASSIGN PHNUM$
3340 [141]3700       : [143] BLANK LINE
3345 XP[178]XP[170]2         : [143] INC VERT POS
3347 [143]
3350 LI[178]24:[141]3600: [143] DRAW UNDRLI
3355 [141]3500       : [143] POS CURSOR
3360 [141]3800       : [143] GET INPUT
3365 COMMENT$[178]KEY$   : [143] ASSIGN COMMENT$
3370 [143]  IS INPUT OK?
3380 [153]"RIGHT$S THIS CORRECT ? (Y/N)WAIT"
3390 [151]198,0:[146]198,1:[161] IN$
3400 [139]IN$[179][177]"Y"[175]IN$[179][177]"N"[167][151]53280,[187](1)[172]15:[137]3390
3410 [139]IN$[178]"N"[167]FLAG[178]1:[137]3010
3420 [143]   YES, INPUT IS OK!
3430 [141]10000 : [143] OPEN FILE
3431 [139]BAD[178]1[167]3478
3432 [141]17000
3440 [141]16000 : [143] READ # OF RECORDS
3450 RN[178]NR[170]2    : [143] SET RECORD NUMBER
3460 [141]13000 : [143] WRITE RECORD RN
3462 [139]ER[179][177]0[167]40000 : [143]  ERROR HAPPENED
3475 NR[178]NR[170]1    : [143] INCREMENT NR
3477 [141]15000 : [143] RE-WRITE REC #1
3478 [141]11000 : [143] CLOSE FILE
3480 [142]     : [143] RETURN TO CALLER
3490 [143]
3495 [143]
3500 [143]   POSITION CURSOR
3505 [151]783,0         : [143] CLEAR CARR
3507 [151]781,XP        : [143] SET X POS
3508 [151]782,YP        : [143] SET Y POS
3510 [158]65520          : [143] ML PLOT
3515 [142]            : [143] RETURN
3520 [143]
3530 [143]
3600 [143]   DRAW UNDERLINE ON LINE XP+1
3605 [139]FLAG[179][177]0[167]3640
3606 YP[178]YP[170]2
3610 XP[178]XP[170]1:[141]3500 : [143] POSITION
3620 [153][200](LI$,LI): [143] PRINT UND
3630 XP[178]XP[171]1:YP[178]YP[171]2   : [143] RESET POS
3640 [142]            : [143] RETURN
3650 [143]
3655 [143]
3700 [143]   DRAW BLANK LINE ON LINE XP+1
3705 [139]FLAG[179][177]0[167]3640
3707 YP[178]YP[170]2
3710 XP[178]XP[170]1:[141]3500 : [143] POSITION
3720 [153]BL$          : [143] PRINT BLAN
3730 XP[178]XP[171]1:YP[178]YP[171]2   : [143] RESET POS
3740 [142]            : [143] RETURN
3750 [143]
3755 [143]
3800 [143]   INPUT KEY$ FROM LINE XP
3810 [141]3500         : [143] POSITION
3815 KEY$[178]""
3820 [133] KEY$        : [143] GET INPUT
3825 [139] KEY$[178]""[167]KEY$[178]" "
3827 [139][195](KEY$)[178][177]24[167]XP[178]XP[170]1:[153]"";[195](KEY$)
3830 [139][195](KEY$)[177]LI [167] KEY$[178][200](KEY$,LI)
3840 [142]            : [143] RETURN
3850 [143]
3860 [143]
4000 [143]   DELETE A RECORD
4010 [133]"(null)UMBER OF PERSON TO DELETE";DR$
4020 DR[178][197](DR$)
4025 [139]DR[178]0[167]4230
4030 [139]DR[179]1[176]DR[177]NR[167][153]"RIGHT$NVALID PERSON!  (null)RY AGAIN...":[137]4010
4040 [141]10000  :  [143]  OPEN FILE
4050 RN[178]DR[170]1     :  [143]  SET RECORD NUM
4060 [141]14000  :  [143]  READ RECORD
4070 [141]11000  :  [143]  CLOSE FILE
4080 [141]18000  :  [143]  DISPLAY RECORD
4090 [153]:[153]
4100 [133]"STR$ELETE THIS PERSON";KEY$
4110 [139]KEY$[179][177]"Y"[175]KEY$[179][177]"N"[167][151]53280,[187](1)[172]15:[153]"ON";:[137]4100
4120 [139]KEY$[178]"N"[167]4230
4130 [153]"(null)(null)...NOW DELETING..."
4135 [141]10000  :  [143]  OPEN FILE
4140 [139]DR[178]NR [176] NR[178]1 [167]4200
4150 RN[178]NR[170]1     :  [143]  SET REC #
4170 [141]14000  :  [143]  READ LAST REC
4180 RN[178]DR[170]1     :  [143]  SET REC # TO DELETE REC
4190 [141]13000  :  [143]  WRITE REC LAST TO DELETE
4200 NR[178]NR[171]1     :  [143]  SET NUMBER OF RECS
4210 [141]15000  :  [143]  RE-WRITE REC 1
4220 [141]11000  :  [143]  CLOSE FILE
4230 [142]      :  [143]  RETURN TO CALLER
4240 [143]
4250 [143]
5000 [143]   SORT DATA
5005 [139]NR[179]2 [167][153]"(null)OT ENOUGH PEOPLE TO SORT...":[129]DL[178]1[164]500:[130]:[137]5360
5010 [141]19000  :  [143]  PRINT FIELDS
5020 [153]"(null)HICH FIELD WOULD YOU LIKE TO SORT ON?"
5025 [153]"VALNTER 0 (ZERO) TO EXIT."
5030 [151]198,0:[146]198,1:[161] FIELD$
5035 [139] FIELD$[178]"0"[167]5360
5040 FIELD[178][197](FIELD$)
5050 [139] FIELD[179]1[176]FIELD[177]8[167][151]53280,[187](1)[172]15:[137]5030
5060 FIELD[178]FIELD[171]1  : [143]  SET TO 0-7
5070 [153]"(null)EADING DATA TO SORT..."
5080 [141]10000  :  [143]  OPEN FILE
5085 :
5090 [129] RN[178]2[164]NR[170]1
5100 [141]14000  :  [143]  READ RECORD
5110 [141]20000  :  [143]  ASSIGN A$(X) AND IN$
5120 TEXT$(RN)[178]IN$
5130 S$[178]A$(FIELD)
5135 [158]50000S$:SERT$(RN)[178]S$
5140 [130] RN
5145 :
5150 [153]"(null)ORTING DATA..."
5155 :
5160 [143] SHELL/METZNER SORT
5170 S[178]NR
5180 Z[178]0
5190 S[178][181](S[173]2)
5200 [129]I[178]2[164]NR[171]S[170]1
5210 [139]SERT$(I)[179][178]SERT$(I[170]S)[167]5270
5220 T$[178]SERT$(I):T2$[178]TEXT$(I)
5230 SERT$(I)[178]SERT$(I[170]S)
5240 TEXT$(I)[178]TEXT$(I[170]S)
5250 SERT$(I[170]S)[178]T$:TEXT$(I[170]S)[178]T2$
5260 Z[178]1:[151]53280,[187](1)[172]15
5270 [130]I
5280 [139](Z[178]1)[176](S[177]1)[167]5180
5290 :
5300 [143]   DONE WITH THE SORT
5310 [153]"(null)RITING DATA BACK TO FILE..."
5320 [129] RN[178]2[164]NR[170]1
5330 [141]12000  :  [143]  POSITION FILE
5340 [152]8,TEXT$(RN) : [143]  RE-WRITE
5350 [130] RN
5352 [141]11000  :  [143]  CLOSE FILE
5355 :
5360 [142]
5370 :
5380 :
6000 [143]   LIST FILE
6001 [153]"LOAD"      : [143]  CLEAR SCREEN
6002 [133]"(null)TARTING PERSON:   1CMDCMDCMD";BEGIN$:BEGIN[178][197](BEGIN$)
6003 [139]BEGIN[179]1[176]BEGIN[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]6002
6004 [153]"VALNDING PERSON: "NR"CMDCMDCMDCMD";:[133]HALT$:HALT[178][197](HALT$)
6005 [139]HALT[179]BEGIN [176] HALT[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]6004
6007 :
6010 [141]10000     : [143]  OPEN FILE
6015 [129] RN[178]BEGIN[170]1 [164] HALT[170]1
6020 [141]14000     : [143]  READ REC RN
6030 [141]18000     : [143]  PRINT DATA
6040 [153]"(null)RESS SPACE TO CONTINUE. ( _=VALXIT )WAIT"
6050 [151]198,0:[146]198,1:[161]KEY$
6060 [139]KEY$[179][177]" "[175]KEY$[179][177]"_"[167][151]53280,[187](1)[172]15:[137]6050
6070 [139]KEY$[178]"_"[167]6090
6080 [130] RN
6090 [141]11000     : [143]  CLOSE FILE
6095 [142]         : [143]  RETURN TO CALLER
6100 [143]
6110 [143]
7000 [143]   EDIT CITY, STATE, & ZIP DEFAULTS
7010 [153]"LOAD"
7020 [153][166]11)"LENURRENT STR$EFAULTS"
7030 [153]
7040 [153]"1 ==>  LENITY   :"D1FAULT$
7050 [153]"2 ==>  (null)TATE  :"D2FAULT$
7060 [153]"3 ==>  (null)IP    :"D3FAULT$
7070 [153]:[153]
7080 [153]"(null)HICH WOULD YOU LIKE TO EDIT?"
7090 [153]"VALNTER 0 (ZERO) TO EXIT."
7100 [151]198,0:[146]198,1:[161] KEY$
7110 [139]KEY$[178]"0"[167]7190
7120 KEY[178][197](KEY$)
7130 [139]KEY[179]1[176]KEY[177]3[167][151]53280,[187](1)[172]15:[137]7100
7140 :
7150 [139]KEY[178]1[167][133]"(null)EW LENITY DEFAULT";D1FAULT$
7160 [139]KEY[178]2[167][133]"(null)EW (null)TATE DEFAULT";D2FAULT$
7170 [139]KEY[178]3[167][133]"(null)EW (null)IP DEFAULT";D3FAULT$
7180 [137]7010
7190 [142]
7200 :
7210 :
8000 [143]   SEARCH DATA FOR STRING
8010 [141]19000  :  [143]  DISPLAY FIELDS
8020 [153]:[153]
8030 [153]"(null)EARCH IN WHAT FIELD?"
8040 [153]"VALNTER 0 (ZERO) TO EXIT."
8050 [151]198,0:[146]198,1:[161] FIELD$
8060 [139]FIELD$[178]"0"[167]8300
8070 FIELD[178][197](FIELD$)
8075 [139]FIELD[179]1[176]FIELD[177]8[167][151]53280,[187](1)[172]15:[137]8050
8080 [153]:[153]
8085 FIELD[178]FIELD[171]1
8090 [133]"(null)TRING TO SEARCH FOR";SEARCH$
8100 [141]10000  :  [143]  OPEN FILE
8105 BEGIN[178]2
8107 :
8110 [129] RN[178]BEGIN [164] NR[170]1
8120 [141]14000 : [143]  READ RECORD
8130 [141]20000 : [143]  ASSIGN STRINGS
8140 CHECK$[178]A$(FIELD)
8142 M%[178]0
8143 [143]   CASE CONVERT EACH STRING
8144 [158]50000CHECK$
8146 [158]50000SEARCH$
8150 :
8152 [143]  THE FOLLOWING IS AN INSTRING
8154 [143]  ROUTINE.  THAT IS WRITTEN BY
8156 [143]  BY ALAN W. GARDNER.  IT LOOKS
8157 [143]  FOR SEARCH$ IN CHECK$
8158 [143]  STARTING AT S%.  IF SEARCH$
8159 [143]  IS FOUND, THEN M%=BYTE INSIDE
8160 [143]  OF CHECK$ WHERE SEARCH$
8162 [143]  BEGINS.  IF M%=0 AFTER ML
8164 [143]  CALL, THEN SEARCH$<>IN CHECK$
8166 :
8170 [158]49152SEARCH$CHECK$M%
8180 [139]M%[179][177]0[167]8200 : [143]  FOUND
8190 [130] RN
8195 [153]"(null)OT FOUND...":[129]DL[178]1[164]500:[130]DL:[137]8300
8197 :
8200 [143]   SEARCH$ IS FOUND IN RECORD
8202 [143]   NUMBER RN. (PERSON RN-1)
8203 :
8210 [141]18000 : [143]  PRINT RECORD
8230 [153]:[153]
8240 [153]"(null)RESS SPACE TO CONTINUE (_=VALXIT)"
8250 [151]198,0:[146]198,1:[161] KEY$
8255 [139]KEY$[179][177]" "[175]KEY$[179][177]"_"[167][151]53280,[187](1)[172]15:[137]8250
8260 [139]KEY$[178]" "[167]BEGIN[178]RN[170]1:[153]"(null)EARCHING...":[139]BEGIN[179][178]NR[170]1[167]8110
8270 :
8300 [141]11000  :  [143]  CLOSE FILE
8310 [142]
8320 :
8330 :
9000 [143]    PRINT THE DATA TO PRINTER
9010 [153]"LOAD"  :  [143]  CLEAR SCREEN
9015 [153][166]13)"STR$UMP TO (null)RINTER":[153]
9020 [153]"1. ==> (null)RINT FULL RECORDS"
9030 [153]"2. ==> (null)RINT LABELS"
9035 [153]"3. ==> VALXIT TO MAIN MENU"
9040 [153]:[153]"(null)HICH?";:
9050 [151]198,0:[146]198,1:[161] KEY$
9060 [139]KEY$[178]"3"[167]9095
9065 [153]KEY$
9070 [141] 10000:  [143]  OPEN FILE
9080 [145] [197](KEY$) [141] 9200,9400
9090 [141] 11000:  [143]  CLOSE FILE
9095 [142]     :  [143]  RETURN TO MAIN
9100 [143]
9110 [143]
9200 [143]   FULL LABEL PRINTOUT
9210 [143]
9220 [153]"LOAD"  : [143]  CLEAR SCREEN
9222 [133]"(null)TARTING PERSON:   1CMDCMDCMD";BEGIN$:BEGIN[178][197](BEGIN$)
9224 [139]BEGIN[179]1[176]BEGIN[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]9222
9226 [153]"VALNDING PERSON: "NR"CMDCMDCMDCMD";:[133]HALT$:HALT[178][197](HALT$)
9228 [139]HALT[179]BEGIN [176] HALT[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]9226
9230 [143]
9235 [159]4,4,7   : [143] OPEN PRINTER
9240 [129] RN[178]BEGIN[170]1 [164] HALT[170]1
9250 [141] 14000 : [143] READ RECORD
9260 [141] 20000 : [143] ASSIGN A$(FIELD)
9265 [141] 18000 : [143] PRINT TO SCREEN
9270 [143]
9280 [152]4,LAST$", "FIRST$[166]40[171][195](LAST$[170]FIRST$));PHNUM$
9300 [152]4,ADDR$;[166]42[171][195](ADDR$));COMMENT$
9301 [152]4,CITY$", "STATE$"  "ZIP$
9305 [152]4
9310 [139][194](198)[178]0[167][130] RN
9320 RN[178]HALT[170]1
9330 [152]4:[160]4: [143]  CLOSE PRINTER
9340 [142]
9350 [143]
9360 [143]
9370 [143]
9400 [143]   PRINT LABELS
9410 [143]
9420 [153]"LOAD"  : [143]  CLEAR SCREEN
9422 [133]"(null)TARTING PERSON:   1CMDCMDCMD";BEGIN$:BEGIN[178][197](BEGIN$)
9424 [139]BEGIN[179]1[176]BEGIN[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]9422
9426 [153]"VALNDING PERSON: "NR"CMDCMDCMDCMD";:[133]HALT$:HALT[178][197](HALT$)
9428 [139]HALT[179]BEGIN [176] HALT[177]NR[167][151]53280,[187](1)[172]15:[153]"ON";:[137]9426
9430 [143]
9435 [159]4,4,7   : [143] OPEN PRINTER
9440 [129] RN[178]BEGIN[170]1 [164] HALT[170]1
9450 [141] 14000 : [143] READ RECORD
9460 [141] 20000 : [143] ASSIGN A$(FIELD)
9465 [141] 18000 : [143] PRINT TO SCREEN
9470 [143]
9580 [152]4,FIRST$" "LAST$
9590 [152]4,ADDR$
9600 [152]4,CITY$","STATE$"  "ZIP$
9605 [152]4:[152]4:[152]4
9610 [139][194](198)[178]0[167][130] RN
9620 [152]4:[160]4
9630 [142]
9640 [143]
9650 [143]
10000 [143]   OPEN THE DATA FILE
10010 [159]8,8,8,"DATA FILE":BAD[178]0
10020 [141] 17000  : [143] READ ERROR
10030 [139] ER[179][178]19[167] 10050
10040 [139]ER[178]62[167][160]8:[159]8,8,8,"0:DATA FILE,L,"[170][199](254) :[143] CREATE FILE
10045 [139]ER[178]62[167]RN[178]1:NR[178]0:[141]15000
10047 [139]ER[179][177]62[167][141]40000:BAD[178]1
10050 [142]
10060 :
11000 [143]   CLOSE THE FILE
11010 [160]8  : [143]   CLOSE 'DATA FILE'
11020 [142]
11030 :
12000 [143]" POSITION FILE POINTER TO
12010 REM" RECORD NUMBER [210][206].
12020 HB%[178]RN[173]256:LB%[178]RN[171]HB%[172]256
12030 PO$[178]"P"[170][199](8)[170][199](LB%)[170][199](HB%)[170][199](0)
12040 [152]15,PO$
12050 [141] 17000 : [143] READ ERROR
12060 [139] ER[179][178]19 [176] ER[178]50 [167] 12090
12070 [143] NO ERROR OR REC'D NOT PRESENT
12090 [142]
12100 :
13000 [143]"  WRITE RECORD (null)(null)
13002 ERR=0
13005 GOSUB20000
13010 OUT$=IN$
13020 GOSUB 12000  : REM POSITION FILE
13030 PRINT#8,OUT$
13040 GOSUB17000
13050 IF ER<=19 OR ER=50 THEN13080
13060 GOTO40000
13080 RETURN
13090 :
14000 REM"  READ RECORD [210][206]
14010 [141] 12000
14020 [132]8,LAST$
14030 [132]8,FIRST$
14040 [132]8,ADDR$
14050 [132]8,CITY$
14060 [132]8,STATE$
14070 [132]8,ZIP$
14080 [132]8,PHNUM$
14085 [132]8,COMMENT$
14090 [142]
14100 :
15000 [143]    RE-WRITE RECORD #1
15020 RN[178]1:[141]12000: [143] POSITION
15025 [141]17000
15030 [152]8,[196](NR)CR$
15040 [141]17000 : [143] ERROR CHANNEL
15050 [139] ER[179][178]19 [167] 15070
15060 :
15070 [142]
15080 :
16000 [143]    READ RECORD #1
16010 RN[178]1:[141]12000
16020 [132]8,NR    : [143]  # OF RECORDS
16030 [141]17000
16040 [139]ER[179][178]19[167]16060
16050 [153]"FIXIN NR":NR[178]0:[141]15000
16060 [142]
16070 :
17000 [143]    READ ERROR CHANNEL
17010 [132]15,ER,ER$,TR,SE
17020 [142]
17030 :
18000 [143]   WRITE DATA TO SCREEN
18010 [153]"LOAD(null)ERSON #"RN[171]1
18020 [153]LAST$","FIRST$
18030 [153]ADDR$
18040 [153]CITY$","STATE$"  "ZIP$
18050 [153]PHNUM$
18060 [153]COMMENT$
18070 [142]        : [143]  RETURN TO CALLER
18080 :
18090 :
19000 [143]   DISPLAY FIELDS
19010 [153]"LOAD"
19020 [153]"1 ==> (null)AST (null)AME"
19030 [153]"2 ==> ASCIRST (null)AME"
19040 [153]"3 ==> ATNDDRESS"
19050 [153]"4 ==> LENITY"
19060 [153]"5 ==> (null)TATE"
19070 [153]"6 ==> (null)IP"
19080 [153]"7 ==> (null)HONE (null)UMBER"
19090 [153]"8 ==> LENOMMENT"
19100 [142]
19110 :
19120 :
20000 [143]   ASSIGN A$(0-7) AND IN$
20010 A$(0)[178]LAST$
20020 A$(1)[178]FIRST$
20030 A$(2)[178]ADDR$
20040 A$(3)[178]CITY$
20050 A$(4)[178]STATE$
20060 A$(5)[178]ZIP$
20070 A$(6)[178]PHNUM$
20080 A$(7)[178]COMMENT$
20082 IN$[178]""
20085 [129] SPCK[178]0[164]7
20087 [139]A$(SPCK)[178]""[167]A$(SPCK)[178]" "
20088 IN$[178]IN$[170]A$(SPCK)[170]CR$
20089 [130] SPCK
20120 [142]
40000 [143]   ERROR !!!
40010 [153]"LOAD(null)ORRY...WE HAD AN ERROR WRITING THIS"
40020 [153]"PERSON'S DATA."
40030 [153]"VALRROR CODE IS:"ER
40040 [153]"VALRROR MESSAGE IS :"ER$
40050 [153]"(null)LEASE PRESS A KEY TO CONTINUE."
40060 [151]198,0:[146]198,1:[161] K$
40080 [142]
40100 :
60000 [143]    EXIT FROM PROGRAM
60005 [139]ID$[178]"\$"[167]60030
60010 [153]"LOADRUN  : <== PRESS RETURN TO RE-RUN."
60020 [128]
60030 [147]"PAYLOAD CONNECT",8