image of READY prompt

Wang2200.org

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"