Commodore 2031 - Page 92

900 REM ************************
901 REM SET RECORD'S TRACK, SECTOR & RECORD POINTER FROM INDEX ARRAYS
902 REM
905 D=RD
910 E=0
915 IF AS=-1 THEN RP=CR*RS+1:GOTO 950
920 RP=INT((CR-1)/RB+EP):IF RP> NB OR RP<0 THEN EN=41:GOTO 1900
930 T=IT%(RP):S=IS%(RP)
940 RP=INT(((CR-1)/RB-RP+EP)*RS*RB)+1
950 IF RP>254 THEN EN=41:GOTO 1900
960 RETURN
1000 REM ***********************
1001 REM INPUT 2040 ERROR STATUS
1002 REM
1005 INPUT#CC,EN$,ET$,ET,ES
1010 EN=VAL(EN$):E=0
1015 IF EN$=”00”THEN RETURN
1017 ET$=STR$(ET):ES$=STR$(ES)
1020 IF EN$<>RIGHT$(“0”+MID$(STR$(EN),2),2)THEN 1070
1030 IF EN=1 THEN EM$=ET$+” “+EM$:RETURN
1035 E=E+1
1040 EM$=”RVS ON”+EN$+”RVS OFF“+EM$ :REM RVS ON = REVERSE CHARACTERS, RVS OFF – TURN OFF REVERSE CHAR
1050 IF EN<30 OR EN=65 THEN EM$=EM$+” ON “+ET$+”, “+ES$
1060 RETURN
1070 EM$=”RVS ON SYSTEM NOT RESPONDING PROPERLY”
1080 EM$=EM$+EN$+EM$+ET$+ES$
1085 E=E+1
1090 RETURN
1100 REM *********************
1101 REM CREATE DESCRIPTOR FILE
1102 REM INPUT F$=FILENAME
1103 REM ID$,NR,NF,FS%(),FT%(),FH$()
1104 REM DD=DESCRIPTOR FILE DRIVE #
1105 REM RD=RANDOM DISK DRIVE #
1106 REM DRIVES MUST BE INITIALIZED
1109 REM
1110 RS=1:D=RD
1115 FOR A0=1 TO NF:FP%(A0)=RS:RS=FS%(A0)+RS+1:NEXT:RS=RS-1
1116 RB=INT(254/RS+EP)
1120 OPEN C0,DN,C0,”#”:GOSUB 1000:IF E THEN 1900
1121 GOSUB 1280
1122 PRINT#CC,”B-P:”C0;1
1123 FOR A0=1 TO RB:FOR A1=1 TO NF
1124 PRINT#C0,LEFT$(SP$,FS%(A1));M$;
1126 NEXT A1,A0
1130 NB=INT(NR/RB+EP):IF (NR/RB-NB)*RB>=1 THEN NB=NB+1
1135 T=1:S=0:GOSUB 150
1140 FOR A0=0 TO NB-1:GOSUB 710:IF E THEN 1900
1145 IT%(A0)=T:IS%(A0)=S:GOSUB 430:NEXT
1150 GOSUB 710
1152 PRINT#CC,”B-P:”C0;1
1155 PRINT#C0,NR;M$;1;M$;NB;M$;RS;M$RB;M$;NF;M$
1160 PRINT#CC,”B-W:”C0;D;T;S
1165 A$=STR$(DD)+”:”+LEFT$(F$+SP$,10)++”.DESCR,U,W”
1166 OPEN C1,DN,C1,A$
1167 GOSUB 1000:IF E THEN 1900
1168 PRINT#C1,ID$;M$;T;M$;S;M$
1170 FOR A0=1 TO NF:PRINT#C1,CHR$(FS%(A0));CHR$(FT%(A0));FH$(A0);M$;:NEXT
1175 FOR A0=0 TO NB-1:PRINT#C1,CHR$(IT%(A0));CHR$(IS%(A0));:NEXT
1180 CLOSE C1:CLOSE C0:RETURN
1200 REM *******************
1201 REM OPEN RELATIVE FILE
1202 REM INPUT F$= FILENAME
1203 REM DD= DESCRIPTOR FILE DRIVE #
1204 REM RD= RANDOM DISK DRIVE #
1205 REM DRIVES MUST BE INITIALIZED
1209 REM
1210 A$=STR$(DD)+”:”+LEFT$(F$+SP$,10)+”.DESCR,U,R”
88