Listing of file='IDS2P004' on disk='vmedia/701-2715B.wvd.zip'
# Sector 111, program filename = 'IDS2P004' 1000 REM "IDS2P004" - OPEN SECURITY AND SPECIAL EDIT FILE 1010 MAT REDIM E$(6)83 : LIMITS T#2,"ids2f005",A,B,C,D : IF A=0THEN 1200 : DATA LOAD DA T#2,(A)E$() : LIMITS T#2,"IDS2f005",A,B,C,D : IF A=0THEN 1220 : E1$(1)="IDS2f005"&HEX(020001)&STR(E$(),403,1)&STR(E$(),405,42)&BIN(A,2) 1030 LIMITS T#2,"ids2fs00",A,B,C,D : IF A=0THEN 1210 : DATA LOAD DA T#2,(A)E$() : LIMITS T#2,"IDS2fs00",A,B,C,D : IF A=0THEN 1230 : E1$(2)="IDS2fs00"&HEX(020002)&STR(E$(),403,1)&STR(E$(),405,42)&BIN(A,2) : MAT REDIM E$(E8)1 : IF G=(VAL(STR(E1$(2),43),2)+1)*(VAL(STR(E1$(2),27))+4)THEN 1090 : G=(VAL(STR(E1$(2),43),2)+1)*(VAL(STR(E1$(2),27))+4) 1070 H=2 : E=21 : E8=2075 : E9=2250 : COM CLEAR Y : LOAD DC T#2,"IDS2P001"0,0BEG 1010 1090 STR(F6$(),11,4)="YYYY" : F6$(52),F6$(53)="N" : FOR A=1TO 2 : UNPACK(####)STR(E1$(A),13)TO B : STR(E1$(A),13,2)=BIN(B,2) : STR(E1$(A),19,2)=STR(E1$(A),48) : NEXT A : F0$=STR(R3$(),,9) : R3$()=STR(R3$(),10) : LOAD T#2,F0$1000, 1200 STOP "FATAL ERROR- Security file control file is not on disk" 1210 STOP "FATAL ERROR- Edit file control file is not on disk" 1220 STOP "FATAL ERROR- Security file is not on disk" 1230 STOP "FATAL ERROR- Edit file is not on disk"