0 REM CREATE RELATIVE FILE
1 SYS65517:IFPEEK(781)=40THENMT$="":GOTO3
2 MT$=""
3 PRINTMT$"[147] THIS DISK IS WRITE":PRINT" PROTECTED[146]. PLEASE"
4 PRINT" INSERT A DIFFERENT":PRINT" DISK TO SAVE THE"
5 PRINT" FILES CREATED WITH"
6 PRINT" THIS PROGRAM.":PRINT" PRESS ANY KEY TO":PRINT"     CONTINUE"
9 WAIT198,1:POKE198,0
10 PRINTMT$"[147]LENGTH OF RECORD":INPUT RL:RL=RL+1
20 PRINT"TOTAL NUMBER OF":INPUT"RECORDS";RN:RN=RN+1
30 HB=INT(RN/256)
40 LB=RN-HB*256
50 OPEN15,8,15
60 OPEN1,8,2,"REL.FILE,L,"+CHR$(RL)
70 PRINT#15,"P"+CHR$(2+96)+CHR$(LB)+CHR$(HB)+CHR$(1)
80 PRINT#1,"END"
90 CLOSE1
95 INPUT#15,E,E$:PRINT"DISK STATUS:":PRINTE$:CLOSE15
99 REM PREPARE TO WRITE FILE
100 RC=RC+1
110 RC$=""
120 SP$="                              "
130 PRINT"FIRST NAME":INPUTNF$
140 PRINT"MIDDLE NAME":INPUTMN$
150 PRINT"LAST NAME":INPUTLN$
160 PRINT"STREET ADDRESS":INPUTSA$
170 PRINT"CITY":INPUTCI$
180 PRINT"STATE":INPUTST$
190 PRINT"ZIP CODE":INPUTZI$
200 PRINT"PHONE NUMBER":INPUTPH$
210 RC$=RC$+LEFT$(NF$+SP$,15)
220 RC$=RC$+LEFT$(MN$+SP$,15)
230 RC$=RC$+LEFT$(LN$+SP$,15)
240 RC$=RC$+LEFT$(SA$+SP$,30)
250 RC$=RC$+LEFT$(CI$+SP$,25)
260 RC$=RC$+LEFT$(ST$+SP$,3)
270 RC$=RC$+LEFT$(ZI$+SP$,5)
280 RC$=RC$+LEFT$(PH$+SP$,12)
299 REM WRITE TO FILE
300 OPEN15,8,15
310 OPEN1,8,2,"REL.FILE"
320 HB=INT(RC/256)
330 LB=RC-HB*256
340 PRINT#15,"P"+CHR$(2+96)+CHR$(LB)+CHR$(HB)+CHR$(1)
350 PRINT#1,RC$
360 CLOSE1
370 INPUT#15,E,E$:PRINT"DISK STATUS:":PRINTE$:CLOSE15
380 PRINT:PRINT"ANOTHER ENTRY?"
390 GETG$:IFG$=""THEN390
400 IFG$="N"THEN500
410 IFG$="Y"THEN100
420 GOTO390
499 REM READ RELATIVE FILE IN ORDER
500 FORA=1TORC:RC$="":PRINT"RECORD #";A
510 OPEN15,8,15
520 OPEN1,8,2,"REL.FILE"
530 HB=INT(A/256)
540 LB=A-HB*256
550 PRINT#15,"P"+CHR$(2+96)+CHR$(LB)+CHR$(HB)+CHR$(1)
560 FORB=1TO120:GET#1,A$:RC$=RC$+A$:NEXT
570 CLOSE1:CLOSE15
580 PRINTMID$(RC$,1,15)
590 PRINTMID$(RC$,16,15)
600 PRINTMID$(RC$,31,15)
610 PRINTMID$(RC$,46,30)
620 PRINTMID$(RC$,76,25)
630 PRINTMID$(RC$,101,3)
640 PRINTMID$(RC$,104,5)
650 PRINTMID$(RC$,109,12)
660 NEXT
699 REM READ INDIVIDUAL RECORD
700 PRINT"RECORD # TO READ":INPUTRE
710 PRINT"STARTING AT POSITION":INPUTPO
720 HB=INT(RE/256):LB=RE-HB*256
730 OPEN15,8,15
740 OPEN1,8,2,"REL.FILE"
750 PRINT#15,"P"+CHR$(2+96)+CHR$(LB)+CHR$(HB)+CHR$(PO)
760 FORA=POTO120:GET#1,A$:PRINTA$;:NEXT
770 INPUT#15,E,E$:PRINT"DISK STATUS:":PRINTE$
780 CLOSE1:CLOSE15
790 PRINT"PRESS ANY KEY TO CONTINUE"
800 GETG$:IFG$=""THEN800
810 GOTO700