image of READY prompt

Wang2200.org

Listing of file='IDS2PU17' on disk='vmedia/701-2724B.wvd.zip'

# Sector 799, program filename = 'IDS2PU17'
1000 REM "IDS2PU17" - File Dump Utility - Part 1 = Open Necessary File(s)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,D1$(254)1,D3$8,D2$32
   : D3$,F2$,E$=STR(E$(),2,8)
   : D2=SGN(VAL(E$(422)))+SGN(VAL(E$(425)))+SGN(VAL(E$(428)))+SGN(VAL(E$(431))
     )+SGN(VAL(E$(434)))
   : INIT(00)D1$()
   : FOR I=1TO D2
   : STR(D1$(),I,1)=STR(E$(),419+3*I,1)
   : NEXT I
   : D2$,F0$=STR(E$(),22,32)
1050 F5$=E$OR ALL(20)
   : MAT REDIM E$(6)83
1070 GOSUB '39(F5$,5)
   : IF Q<2THEN 1130
   : DATA LOAD DA T#P,(A)E$()
   : ERRORGOTO 1130
1100 IF STR(E$(),403,1)<HEX(05)THEN 1160
   : F5$=STR(E$(),82,8)OR ALL(20)
   : GOTO 1070
1130 E$="File is not an IDEAS2 data file."
   : GOTO 1590
1160 E$=" "
   : MAT REDIM E2$(24)83
   : DATA LOAD DA T#P,(A)E2$()
   : MAT REDIM E2$(1992)1
   : IF STR(E2$(),74,1)>R8$THEN E$="Current User Class Prohibits access to Fil
     e."
   : IF STR(E2$(),75,3)<>" "AND STR(E2$(),75,3)<>R4$THEN E$="Another User has
     exclusive READ right to file."
   : IF E$=" "THEN 1260
   : GOSUB '35(E$)
   : GOTO 1590
1260 CONVERT STR(E2$(),217,1)TO H
   : ERRORH=1
1270 H=H+INT((POS(-STR(E2$(),275,128)<>20)-1)/8)+1
   : UNPACK(####)STR(E2$(),405,2)TO D0
   : D1=VAL(E2$(413))
   : D3=0
   : MAT REDIM E2$(332)6
   : FOR I=1TO INT((POS(-STR(E2$(),499)<>00)-1)/6)+1
   : IF STR(E2$(83+I),4,1)<>HEX(00)THEN 1460
   : D3=D3+1
   : STR(D1$(),D3+5,1)=STR(E2$(83+I),3,1)
1460 NEXT I
   : IF F6$(53)<>"Y"THEN E9=D0+D1+D2+D3
   : STR(E2$(),1600)=BIN(D0,2)&BIN(D1,2)&BIN(D2,2)&BIN(D3,2)
   : STR(E2$(),1000,254)=D1$()
   : MAT REDIM E2$(E8)1
   : E=VAL(E2$(413))+VAL(E2$(417))
   : E$="IDS2P001IDS2PU18"
   : G=256
   : MAT REDIM E$(E8)1
   : IF F6$(53)="Y"THEN 1572
   : COM CLEAR E1$()
   : LOAD T#2,<2>E$
1572 LOAD T#2,"IDS2PU19"1000,
1590 E$=E$&" '31 to CANCEL"
   : GOSUB '35(E$)
   : GOSUB '34(250)
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PU17"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"