image of READY prompt

Wang2200.org

Listing of file='IDS2PC08' on disk='vmedia/701-2725B.wvd.zip'

# Sector 659, program filename = 'IDS2PC08'
1000 REM 'IDS2PC08'- SCREEN CONVERSION- GET AND VALIDATE DEVICES AND FILE NAME
     S
1005 IF R4$<>"TJB"THEN 1010
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM D1$3,C2$3,C3$3,F1$8,J2$8,J3$8,D1,D2,D3
   : DIM J4$8,J5$8
   : GOSUB '32("IDS2sC08")
   : GOSUB '36
   : GOSUB '53("Enter device numbers and file names for screens ")
   : F=0
   : GOSUB '45(1,D9$(10))
   : GOSUB '45(3,D9$(3))
   : GOSUB '45(6,D9$(5))
1040 F=F+1
   : IF F>7THEN 1200
   : E3$=HEX(1F)
   : IF F<5THEN GOSUB '34(F)
   : IF F>5AND J4$<>" "THEN GOSUB '34(F)
   : IF VAL(E6$)=31THEN 1230
   : ON FGOTO 1050,1060,1070,1080
   : IF J4$=" "THEN 1040
   : ON F-5GOTO 1100,1110
   : GOTO 1040
1050 D1$=E$
   : GOSUB 1590
   : D1=E1
   : IF E1>0THEN 1040
   : GOSUB '35("Invalid device address specification")
   : F=F-1
   : GOTO 1040
1060 F1$=E$
   : MAT SEARCHD9$(),=D1$TO F9$STEP 3
   : D1=(VAL(F9$,2)+2)/3
   : IF D1>1AND D1<>6THEN 1061
   : F=F-2
   : GOTO 1040
1061 LIMITS T#D1,F1$,A,B,B,B
   : IF B=0THEN 1065
   : DATA LOAD BA T#D1,(A)STR(E4$(),,256)
   : IF STR(E4$(),1,4)<>HEX(8201BE03)THEN 1069
   : DATA LOAD BA T#D1,(A+7)STR(E4$(),,256)
   : IF STR(E4$(),215,8)<>F1$THEN 1069
   : J4$=STR(E4$(),231,8)
   : GOSUB '45(5,J4$)
   : GOTO 1040
1065 GOSUB '35("Invalid file name -- re-enter")
   : F=F-1
   : GOTO 1040
1069 F0$="File "&F1$&" is not a valid screen file. Please re-enter."
   : GOSUB '35(F0$)
   : F=F-1
   : GOTO 1040
1070 C2$=E$
   : GOSUB 1590
   : D2=E1
   : IF E1>0THEN 1040
   : GOSUB '35("Invalid device address specification")
   : F=F-1
   : GOTO 1040
1080 J2$=E$
   : LIMITS T#D2,J2$,A,B,B,B
   : IF B=0THEN 1090
   : F0$="File "&J2$&" already exists. Please re-enter."
   : GOSUB '35(F0$)
   : GOSUB '45(F," ")
   : F=F-1
   : GOTO 1040
1090 IF STR(J2$,,4)<>"IDS2"THEN 1040
   : GOSUB '35("File name may not begin with IDS2-- Please re-enter.")
   : F=F-1
   : GOTO 1040
1100 C3$=E$
   : GOSUB 1590
   : D3=E1
   : IF E1>0THEN 1040
   : GOSUB '35("Invalid device specification")
   : F=F-1
   : GOTO 1040
1110 J3$=E$
   : IF C3$=" "THEN GOTO 1040
   : J5$=J3$OR ALL(20)
   : GOSUB '39(J5$,D3)
   : IF Q=2THEN 1120
   : F0$="Control File for "&J3$&" does not exist. Please re-enter."
   : GOSUB '35(F0$)
   : F=F-1
   : GOTO 1040
1120 E4$()=" "
   : DATA LOAD BA T#D3,(A)STR(E4$(),,256)
   : IF STR(E4$(),1,4)<>HEX(8201D3E3)THEN 1140
   : GOTO 1040
1140 F0$="File "&J3$&" is not a valid data file. Please re-enter."
   : GOSUB '35(F0$)
   : F=F-1
   : GOTO 1040
1200 GOSUB '53("Press 'EXEC' to accept screen, 'EDIT' to modify, FN '31 to can
     cel")
   : GOSUB '34(250)
   : IF Q=240OR Q=33THEN 1220
   : IF Q=32THEN 1250
   : IF Q=31THEN 1230
   : PRINT HEX(07);
   : GOTO 1200
1220 F=0
   : GOTO 1040
1230 COM CLEAR D1$
   : LOAD T#2,"IDS2PCMN"1000,
1250 LOAD DC T#2,"IDS2PC09"1000,
1590 MAT SEARCHD9$(),=E$TO F9$STEP 3
   : IF F9$>HEX(0000)THEN I=(VAL(F9$,2)+2)/3
   : ELSE I=0
   : IF I>1AND I<>6THEN E1=I
   : ELSE E1=0
   : RETURN
2090 ON ERRORD8$,E$GOTO 2140
2140 PRINT AT(23,0,80);"Unanticipated error # ";D8$;" at line # ";E$;".  No re
     covery has been programmed.";HEX(0107);
   : STOP "ERROR !"
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PC08"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"