image of READY prompt

Wang2200.org

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

# Sector 758, program filename = 'IDS2PC18'
1000 REM 'IDS2PC18'-- REPORT CONVERSION -- DEVICE ADDRESSES AND FILE NAMES
   : REM 06/30/81 BY TJB
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM E3,E4,E6,C5$1,Z,J4,D1$3,C2$3,C3$3,D4$3,F1$8,F2$8,D1,D2,D3,D4
   : GOSUB '32("IDS2sC10")
   : F6$(11)="N"
   : GOSUB '36
   : GOSUB '53("Enter device numbers and file names for old and new reports")
   : F=0
1035 GOSUB '45(1,D9$(10))
   : GOSUB '45(3,D9$(12))
   : GOSUB '45(4,D9$(3))
   : GOSUB '45(6,D9$(5))
1040 F=F+1
   : IF F>6THEN 1200
   : E3$=HEX(1F)
   : GOSUB '34(F)
   : IF VAL(E6$)=31THEN 1300
   : ON FGOTO 1050,1060,1070,1075,1080,1095
   : GOTO 1040
1050 D1$=E$
   : GOSUB 1590
   : D1=E1
   : IF E1>0THEN 1040
1055 GOSUB '35("Invalid device address specification; please re-enter")
   : GOSUB '45(F," ")
   : 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 1062
   : F=F-1
   : GOTO 1055
1062 LIMITS T#D1,F1$,A,B,B,B
   : IF B=0THEN 1065
   : DATA LOAD BA T#D1,(A)STR(E4$(),,256)
   : IF STR(E4$(),2,8)<>F1$THEN 1069
   : E$=F1$OR ALL(20)
   : LIMITS T#D1,E$,A,B,B,B
   : IF B=0THEN 1067
   : DATA LOAD BA T#D1,(A)STR(E4$(),,256)
   : IF STR(E4$(),1,8)<>F1$THEN 1069
   : GOTO 1040
1065 GOSUB '35("File does not exist -- re-enter")
   : F=F-1
   : GOTO 1040
1067 GOSUB '35("Report program control file does not exist -- re-enter")
   : F=F-1
   : GOTO 1040
1069 F0$="File "&F1$&" is not a valid report program. Please re-enter."
   : GOSUB '35(F0$)
   : F=F-1
   : GOTO 1040
1070 C3$=E$
   : GOSUB 1590
   : D3=E1
   : IF E1>0THEN 1040
   : GOTO 1055
1075 C2$=E$
   : GOSUB 1590
   : D2=E1
   : IF E1>0THEN 1040
   : GOTO 1055
1080 F2$=E$
   : MAT SEARCHD9$(),=C2$TO F9$STEP 3
   : D2=(VAL(F9$,2)+2)/3
   : IF D2>1AND D2<>6THEN 1085
   : F=F-1
   : GOTO 1055
1085 LIMITS T#D2,F2$,A,B,B,B
   : IF B=0THEN 1090
   : F0$="File "&F2$&" already exists. Please re-enter."
   : GOSUB '35(F0$)
   : F=F-1
   : GOTO 1040
1090 IF STR(F2$,1,4)<>"IDS2"THEN 1040
   : GOSUB '35("File name may not begin with IDS2-- Please re-enter.")
   : F=F-1
   : GOTO 1040
1095 D4$=E$
   : GOSUB 1590
   : D4=E1
   : IF E1>0THEN 1040
   : GOTO 1055
1200 GOSUB '63("Press 'EXEC' to ","accept screen, 'EDIT' to modify, FN '31 to
     cancel "," ")
   : GOSUB '34(250)
   : IF Q=240OR Q=33THEN 1220
   : IF Q=32THEN 1250
   : IF Q=31THEN 1300
   : GOTO 1200
1220 F=0
   : GOTO 1040
1250 LOAD DC T#2,"IDS2PC19"1000,
1300 COM CLEAR E3
   : LOAD T#2,"IDS2PCMN"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 !"
   : GOTO 2140
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PC18"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"