image of READY prompt

Wang2200.org

Listing of file='IDS2PP13' on disk='vmedia/701-2717B.wvd.zip'

# Sector 824, program filename = 'IDS2PP13'
1000 REM "IDS2PP13" - Release 2.1 - PROGRAM GENERATOR- PASS/FAIL SPECS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM C9,F1$8,F2$8
   : F$(1)=HEX(1B)
1040 IF LEN(F$())>2000THEN 1590
   : IF E2(7)>E2(6)THEN 1590
1060 X,E2(8)=E2(8)+1
   : IF E2(8)>50THEN 1590
   : IF E$(X*18+536)=" "THEN 1060
   : PRINT HEX(06);@E1$(2);AT(23,0);STR(E$(),,POS(E$()=00));" P/F";E2(8);"type
      ";E$(E2(8)*18+537);TAB(80);
   : E6$,E$=STR(E$(),X*18+536,18)
   : F1$=STR(E$,3)
   : F2$=STR(E$,11)
   : E2(7)=E2(7)+1
   : C9=VAL(STR(E$,2))-64
   : IF C9<0THEN C9=27
   : F0$,E$=HEX(9F)
1150 IF E6$="P"THEN E$=E$&"H>0"
   : IF E6$="P"THEN F0$=F0$&"H=0"
   : IF E6$="F"THEN E$=E$&"H=0"
   : IF E6$="F"THEN F0$=F0$&"H>0"
   : FOR I=1TO 2
   : F5$=F1$
   : F1$=F2$
   : F2$=F5$
   : IF VER(F5$,"IFFLGXOX")<8AND VER(F5$,"ORFLGXOX")<8THEN 1179
   : GOSUB 3030
   : GOSUB '71(VAL(STR(F5$,6))-47)
   : E$=E$&"F6$("&E8$&")="
   : F0$=F0$&"F6$("&E8$&")="
1177 IF STR(F5$,8)="N"THEN E$=E$&HEX(225922)
   : ELSE E$=E$&HEX(224E22)
   : IF STR(F5$,8)="N"THEN F0$=F0$&HEX(224E22)
   : ELSE F0$=F0$&HEX(225922)
1179 IF VER(F5$,"IFLFKXXX")<8AND VER(F5$,"ORLFKXXX")<8THEN 1185
   : GOSUB 3030
   : E$=E$&HEX(DC)&"F6$(15))"&STR(F5$,6,1)
   : F0$=F0$&HEX(DC)&"F6$(15))"
   : IF STR(F5$,6,1)="<"THEN F0$=F0$&">="
   : IF STR(F5$,6,1)="="THEN F0$=F0$&"<>"
   : IF STR(F5$,6,1)=">"THEN F0$=F0$&"<="
1183 IF STR(F5$,7)<>"OF"AND STR(F5$,7)<>"ON"THEN 1184
   : F0$=F0$&"255"
   : E$=E$&"255"
   : GOTO 1200
1184 E$=E$&STR(F5$,7)
   : F0$=F0$&STR(F5$,7)
1185 IF VER(F5$,"IFERR###")<8AND VER(F5$,"ORERR###")<8THEN 1186
   : GOSUB 3030
   : CONVERT STR(F5$,6)TO Q
   : F6$=BIN(Q)
   : HEXUNPACKF6$TO F9$
   : E$=E$&"F6$(55)="&HEX(D2)&F9$&")"
   : F0$=F0$&"F6$(55)<>"&HEX(D2)&F9$&")"
   : GOTO 1200
1186 IF VER(F5$,"IFOLDPF")<7AND VER(F5$,"OROLDPF")<7OR POS("PF"=STR(F5$,8))=0T
     HEN 1200
   : GOSUB 3030
   : F6$="="
   : IF STR(F5$,8)="P"THEN F6$=">"
   : E$=E$&"F6$(56)"&F6$&HEX(D2)&"00)"
   : F6$=XOR HEX(03)
   : F0$=F0$&"F6$(56)"&F6$&HEX(D2)&"00)"
1200 NEXT I
   : IF LEN(E$)=1THEN E$=" "
   : ELSE E$=E$&HEX(B1)
   : IF LEN(F0$)=1THEN F0$=" "
   : IF F0$=" "THEN 1210
   : UNPACK(####)C0$TO Q
   : PACK(####)F9$FROMQ+E2(7)
   : F0$=F0$&HEX(B1FF)&STR(F9$,,2)&HEX(BA)
1210 E4$()=" "
   : FOR I=1TO 2
   : F5$=F1$
   : F1$=F2$
   : F2$=F5$
   : E0$()=" "
   : IF VER(F5$,"FLAGX=OX")<8THEN 1230
   : GOSUB '71(VAL(STR(F5$,5))-47)
   : E4$()=E4$()&"F6$("&E8$&")="&HEX(22)
   : IF STR(F5$,8)="N"THEN E4$()=E4$()&"Y"
   : ELSE E4$()=E4$()&"N"
   : E4$()=E4$()&HEX(22BA)
   : E0$()="Set system flag "&STR(F5$,5,1)
1230 IF VER(F5$,"SEQX=###")<8THEN 1240
   : CONVERT STR(F5$,6)TO Q
   : GOSUB '71(Q)
   : E4$()=E4$()&"F6$(16)="&HEX(DE)&E8$&")"&HEX(BA)
   : E0$()="Set next sequence number"
1240 IF VER(F5$,"LSTFK=OF")<8THEN 1250
   : E4$()=E4$()&"F6$(15)="&HEX(D2464629BA)
   : E0$()="Turn last function key indicator off"
1250 IF VER(F5$,"LSTFK=##")<8THEN 1260
   : CONVERT STR(F5$,7)TO Q
   : GOSUB '71(Q)
   : E4$()=E4$()&"F6$(15)="&HEX(DE)&E8$&HEX(29BA)
   : E0$()="Set last function key indicator"
1260 IF VER(F5$,"SKIP##PF")<8THEN 1270
   : UNPACK(####)C0$TO Q
   : CONVERT STR(F5$,5,2)TO A
   : PACK(####)F9$FROMQ+E2(7)+A
   : E4$()=E4$()&HEX(9CFF)&STR(F9$,,2)&HEX(BA)
   : E0$()="Skip "&STR(F5$,5,2)&" pass/fail action"
   : IF STR(F5$,5,2)>"01"THEN E0$()=E0$()&"s"
1270 IF VER(F5$,"BACK##PF")<8THEN 1280
   : UNPACK(####)C0$TO Q
   : CONVERT STR(F5$,5,2)TO A
   : PACK(####)F9$FROMQ+E2(7)-A-2
   : E4$()=E4$()&HEX(9CFF)&STR(F9$,,2)&HEX(BA)
   : E0$()="Skip back "&STR(F5$,5,2)&" pass/fail action"
   : IF STR(F5$,5,2)>"01"THEN E0$()=E0$()&"s"
1280 IF F5$<>"SETOLDPF"THEN 1281
   : E4$()=E4$()&"F6$(56)="&HEX(DEC8F7)&"0,H)))"&HEX(BA)
   : E0$()="Store the current pass/fail condition"
1281 IF F5$<>"GETOLDPF"THEN 1285
   : E4$()=E4$()&"H="&HEX(DC)&"F6$(56))"&HEX(BA)
   : E0$()="Recall previously stored pass/fail condition"
1285 IF E2(2)>0AND E0$()>" "THEN E4$()=E4$()&HEX(A2)&E0$()&HEX(BA)
   : NEXT I
   : E0$()=" "
   : ON C9GOTO 1310,1320,1330,1340,1350,1360,1370,1380,1390,1390,1400,1400,140
     0,1400,1420,1420,1430,1430,1440,1440,1450,1450,1460,1460,1470,1480,1570
1310 E6$="Y"
   : E0$()="Enable skip ahead keys"
   : GOTO 1325
1320 E6$="N"
   : E0$()="Disable skip ahead keys"
1325 E4$()=E4$()&"F6$(12)="&HEX(22)&E6$&HEX(22BA)
   : GOTO 1570
1330 E6$="Y"
   : E0$()="Enable skip back keys"
   : GOTO 1345
1340 E6$="N"
   : E0$()="Disable skip back keys"
1345 E4$()=E4$()&"F6$(13)="&HEX(22)&E6$&HEX(22BA)
   : GOTO 1570
1350 E6$="Y"
   : E0$()="Enable cancel key"
   : GOTO 1365
1360 E6$="N"
   : E0$()="Disable cancel key"
1365 E4$()=E4$()&"F6$(11)="&HEX(22)&E6$&HEX(22BA)
   : GOTO 1570
1370 E4$()=E4$()&"F6$(14)="&HEX(224E22BA)
   : E0$()="Disable system error messages"
   : GOTO 1570
1380 LOAD DA T#2,(D$(14))1000,
1390 LOAD DA T#2,(D$(15))1000,
1400 LOAD DA T#2,(D$(16))1000,
1420 LOAD DA T#2,(D$(18))1000,
1430 LOAD DA T#2,(D$(19))1000,
1440 LOAD DA T#2,(D$(20))1000,
1450 LOAD DA T#2,(D$(21))1000,
1460 LOAD DA T#2,(D$(22))1000,
1470 LOAD DA T#2,(D$(23))1000,
1480 LOAD DA T#2,(D$(24))1000,
1570 IF E2(2)>0AND E0$()>" "THEN E4$()=E4$()&HEX(A2)&E0$()&HEX(BA)
   : IF STR(E4$(),LEN(E4$()))=HEX(BA)THEN STR(E4$(),LEN(E4$()))=HEX(1B)
   : IF POS(E4$()=BA)>0THEN E$=F0$
   : IF E$<>" "THEN STR(F$(),LEN(F$())+1)=E$
   : IF E4$()<>" "THEN STR(F$(),LEN(F$())+1)=STR(E4$(),POS(E4$()>20))
   : GOTO 1040
1590 IF F$(LEN(F$()))=HEX(BA)THEN F$(LEN(F$()))=HEX(1A)
   : LOAD DA T#2,(D$(29))1000,
3000 STOP #
3020 DEFFN'71(Q)
   : E8$=" "
   : $PACK(F=HEX(1006))E8$FROMQ
   : E8$=STR(E8$,POS(E8$>20))
   : RETURN
3030 IF STR(F5$,,2)="IF"THEN F9$=HEX(8A)
   : IF STR(F5$,,2)="OR"THEN F9$=HEX(8B)
   : IF LEN(E$)>1THEN E$=E$&F9$
   : $TRAN(F9$,HEX(8A8B8B8A))R
   : IF LEN(F0$)>1THEN F0$=F0$&F9$
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP13"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"