image of READY prompt

Wang2200.org

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

# Sector 968, program filename = 'IDS2PP11'
1000 REM "IDS2PP11" - Release 2.1 - PROGRAM GENERATOR - RANGE TEST(S)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF STR(E$(),98,3)="ALL"THEN E6$=HEX(8A)
   : ELSE E6$=HEX(8B)
   : DIM J(2),C1$(2),E5$(2)
   : J5$=HEX(B1)&"H=1"&HEX(BAF2)&"H=0:"
   : Y=0
   : FOR I=0TO 5
   : F5$=STR(E$(),I*36+101)
   : C6$=E$(I*36+109)&E$(I*36+123)
   : IF F5$=" "OR C6$="NN"THEN 3050
1025 C1$(),E5$()=" "
   : MAT J=ZER
   : FOR J=1TO 2
   : IF STR(C6$,J,1)="N"THEN 1026
   : F5$=STR(E$(),I*36+(J-1)*14+110)
   : IF STR(C6$,J,1)="F"THEN GOSUB 3100
   : ELSE GOSUB 3120
   : J(J)=X
   : IF STR(C6$,J,1)="F"THEN C1$(J)=STR(E8$,,POS(E8$=")"))
   : ELSE C1$(J)=E$
   : IF STR(C6$,J,1)="F"THEN E5$(J)="E4$()"
   : ELSE E5$(J)=F0$
1026 NEXT J
   : F5$=STR(E$(),I*36+101)
   : IF F5$="LSTFNKEY"THEN 1045
   : GOSUB 3100
   : J1=X
   : J(1)=J(1)*X
   : J(2)=J(2)*X
   : E$=HEX(9A)&"'43"&E8$
   : GOTO 1060
1045 X,J1=1
   : E$="Q="&HEX(DC)&"F6$(15)):"
1060 X=POS(C6$="F")
   : IF X=0THEN 1070
   : IF J(X)=0THEN E$=E$&"F$()=E4$():"
   : ELSE E$="Z=Q:"
   : IF C6$<>"FF"OR J(1)=J(2)THEN 1065
   : IF J(1)=0THEN E$=E$&"F$()=E4$():"
   : ELSE E$=E$&"Z=Q:"
1065 E$=E$&HEX(9A)&"'43"&C1$(X)&":"
1070 E$=E$&HEX(9F)
   : IF STR(C6$,1,1)="N"THEN 2000
   : IF STR(C6$,1,1)="C"THEN 1090
   : IF J(1)=0THEN E$=E$&"F$()>=E4$()"
   : ELSE E$=E$&"Z>=Q"
   : IF C6$<>"FF"THEN 1900
   : E$=E$&HEX(B1)&"H=1"&HEX(BAF2)&"H=0:"&HEX(9A)&"'43"&C1$(2)&HEX(3A9F)&"H=1"
   : GOTO 1900
1090 IF X=0THEN 1100
   : IF J(1)=0THEN E$=E$&"F$()>="&E5$(1)
   : ELSE E$=E$&"Z>="&C1$(1)
   : GOTO 1900
1100 IF J(1)=0THEN E$=E$&"E4$()>="&E5$(1)
   : ELSE E$=E$&"Q>="&C1$(1)
1900 IF STR(C6$,2)<>"N"THEN E$=E$&HEX(8A)
2000 IF STR(C6$,2)="N"THEN 3000
   : F$()=F$()&E$
   : E$=ALL(20)
   : IF STR(C6$,2)="C"THEN 2020
   : IF J(2)=0THEN E$=E$&"F$()<=E4$()"
   : ELSE E$=E$&"Z<=Q"
   : GOTO 3000
2020 IF X=0THEN 2030
   : IF J(2)=0THEN E$=E$&"F$()<="&E5$(2)
   : ELSE E$=E$&"Z<="&C1$(2)
   : GOTO 3000
2030 IF J(2)=0THEN E$=E$&"E4$()<="&E5$(2)
   : ELSE E$=E$&"Q<="&C1$(2)
3000 IF Y>0THEN E$=E$&E6$&"H=1"
   : E$=E$&J5$
   : Y=1
   : F$()=F$()&E$
3050 NEXT I
   : $TRAN(F$()<,LEN(F$())>,HEX(1A3A))R
   : LOAD DA T#2,(D$(29))1000,
3070 STOP "LOAD P/F'S"
   : STOP "END IT"
3090 DEFFNZ(Z)=LEN(F$())+1
3100 MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
   : IF F9$=HEX(0000)THEN IF VER(F5$,"@TSTFLD#")=8THEN F9$=BIN(VAL(STR(F5$,8))
     *8+1619,2)
   : Q=INT((VAL(F9$,2)+7)/8)
   : IF Q=0THEN Q=250
   : IF F5$="@SYSBUF0"THEN Q=269
   : E8$=" "
   : $PACK(F=HEX(1006))E8$FROMQ
   : STR(E8$,,1)="("
   : STR(E8$,LEN(E8$)+1)="):"
   : X=0
   : IF Q<250THEN IF VAL(STR(E2$(Q),6))<64THEN X=1
   : RETURN
3120 E$=STR(E$(),I*36+(J-1)*14+110,13)
   : F0$=HEX(22)&E$&HEX(22)
   : IF NUM(E$)>LEN(E$)THEN X=1
   : ELSE X=0
   : IF X=1THEN CONVERT E$TO Q
   : RETURN
3130 F$(FNZ(Z))=HEX(9F)
   : IF J=1AND E$(I*56+109)<>" "THEN STR(F$(),FNZ(Z))=E7$&"1"&E$(I*56+126)
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP11"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"