image of READY prompt

Wang2200.org

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

# Sector 950, program filename = 'IDS2PUI6'
1000 REM "IDS2PUI6" - INSTALL AN APPLICATION - MOD 5, BEGUN 02/09/82, TSCHETTE
     R
1010 DIM F2$(6)36
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : P3=3
   : GOSUB 2010
   : F=0
   : D6$="IDS2PUI7"
   : LOAD T#2,D6$1000,
   : ERRORJ4=ERR
   : PRINT HEX(07);AT(19,0,);"Unexpected error ";J4
   : END
2010 F2$(1)="310320330B10B20B30350360370B50B60B70"
   : F2$(2)="D10D11D12D13D14D15D50D51D52D53D54D55"
   : F2$(3)="D20D21D22D23D24D25D60D61D62D63D64D65"
   : F2$(4)="D30D31D32D33D34D35D70D71D72D73D74D75"
   : F2$(5)="204211212213214215216"&ALL(00)
2060 F2$(6)="01901A01B01C01D01E01F"&ALL(00)
   : MAT REDIM E2$(9)83
   : SELECT #15<C9$(5)>
   : A=(R0-#PART)/16+1
   : F2$="IDS2fsxx"
   : IF A>0THEN CONVERT ATO STR(F2$,7,2),(##)
   : DATA LOAD DC OPEN T#15,F2$
   : DATA LOAD DC #15,E2$()
   : MAT REDIM E2$(250)9
   : IF P7=1OR P7=3THEN E$()="215"&STR(C9$(),,12)
   : ELSE E$()="215"&STR(C9$(),13)
   : STR(E$(),19)=STR(E2$(),45*#PART+1,27)
2120 IF E9$<>" "THEN STR(E$(),4,3)=E9$
   : GOSUB '32("IDS2s007")
   : PRINT AT(2,0);BOX(2,79);HEX(0E);AT(2,1);"Please enter all the destination
      addresses you need for your data files";AT(3,1);"so that they can be mov
     ed or allocated.";HEX(0F)
   : F=1
   : GOSUB '36
   : GOTO 2240
2170 E1=Q
2180 GOSUB '34(E1)
   : E0=E1
   : GOSUB 3000
   : IF E1=0THEN 2240
   : GOSUB '35("Invalid Device Selection, Please Re-enter")
   : GOTO 2180
2240 GOSUB '63("Touch FN key cor","responding to device to be changed, EXECUTE
      to accept as shown"," ")
   : GOSUB '34(250)
   : IF Q=32THEN 2290
   : IF Q=1THEN 2170
   : IF Q>5AND Q<16THEN 2170
   : ELSE PRINT HEX(07)
   : GOTO 2240
2290 FOR E0=1TO 15
   : GOSUB 3000
   : IF E1<>0THEN E0=15
   : NEXT E0
   : IF E1<>0THEN 2180
   : MAT REDIM E2$(9)83
   : SELECT #15<C9$(5)>
   : $OPEN #15
   : F0$="IDS2fs  "
   : CONVERT (R0-#PART)/16+1TO STR(F0$,7,2),(##)
   : IF F0$="IDS2fs00"THEN STOP "Invalid System File specs : Special Edit File
     "#
   : LIMITS T#15,F0$,A,B,C,D
   : @E2$(1)=BIN(A+3,2)
   : IF A=0THEN 3140
2390 IF @E2$(1)=HEX(0000)OR @E2$(1)=HEX(2020)THEN 3150
   : DATA LOAD DA T#15,(A)E2$()
   : STR(E2$(),#PART*45-17,45)=E$()
   : DATA SAVE DA T#15,(A)E2$()
   : $CLOSE#15
   : MAT REDIM E2$(250)9
   : RETURN
3000 E1=0
   : GOSUB '43(E0)
   : ON E0GOTO 3040,,,,,3060
   : MAT SEARCHSTR(F2$(),,144),=STR(E$,,3)TO L$STEP 3
   : GOTO 3080
3040 MAT SEARCHF2$(5),=STR(E$,,3)TO L$STEP 3
   : GOTO 3080
3060 IF STR(E$,,2)=" "THEN RETURN
   : MAT SEARCHF2$(6),=STR(E$,,3)TO L$STEP 3
3080 IF STR(L$,,2)=HEX(0000)THEN 3120
   : SELECT #E0<STR(E$,,3)>
   : ERRORGOTO 3120
3100 IF E0=1OR E0=6THEN STR(D2$,8,1)=HEX(00)
   : ELSE $GIO#E0,(0104020012124400,D2$)
   : ERRORGOTO 3120
3110 IF STR(D2$,8,1)<>HEX(10)THEN RETURN
3120 E1=E0
   : RETURN
3140 STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P
     ACK"
3150 STOP "Value of @E1$(1) Does not reflect valid location for System File "#