image of READY prompt

Wang2200.org

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

# Sector 759, program filename = 'IDS2PP29'
1000 REM "IDS2PP29" - Release 2.1 - PROGRAM GENERATOR - SAVE CUSTOM GENERATED
     CODE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB 3160
1030 IF LEN(F$())<2THEN 3000
   : X=POS(F8$()=FE)
   : Z=POS(STR(F$(),2)<20)
   : IF Z=0THEN Z=POS(-STR(F$(),2)=BA)
1051 IF POS(HEX(1A1BBA)=F$(Z+1))>0THEN 1060
   : P=POS(-STR(F$(),2,Z)=FF)
   : IF P>0AND P<ZTHEN Z=P+POS(STR(F$(),P+4)<20)+2
   : GOTO 1051
1060 P=2
   : GOTO 1070
   : IF X<6THEN P=2
   : ELSE P=1
1070 IF F$(1)=HEX(1A)THEN IF X+Z+5<256THEN 2000
   : IF F$(1)=HEX(1B)OR E2(6)=E2(7)THEN IF X+Z+10<256THEN 2000
   : STR(F8$(),X)=HEX(0D0000FE)
   : IF LEN(F$())<2THEN 1110
   : F8$(1)=HEX(00)
   : F8$(POS(F8$()=FE))=HEX(FD)
   : $TRAN(F8$(),HEX(3ABA))R
1110 IF E4<E3+185THEN DATA SAVE BA T#3,(E4,E4)F8$()
   : ELSE GOSUB '35("Program file is too large for work file")
   : GOSUB 3160
   : F$(1)=HEX(1B)
   : F8$()=HEX(20FE)
   : GOTO 1030
2000 IF X=2OR F$(1)<>HEX(1A)THEN 2020
   : F$(1)=":"
   : STR(F8$(),X)=STR(F$(),,Z)&HEX(FE)
   : GOTO 2040
2020 IF X>2THEN STR(F8$(),X)=HEX(0D0000FE)
   : STR(F8$(),POS(F8$()=FE))=HEX(FF)&STR(C0$,,2)&STR(F$(),2,Z-1)&HEX(FE)
   : UNPACK(####)C0$TO Q
   : PACK(####)C0$FROMQ+1
2040 F$()=STR(F$(),1+Z)
   : $TRAN(F8$(),HEX(3ABA))R
   : MAT SEARCHF8$(),=HEX(FFC0)TO F9$
   : IF F9$>HEX(0000)THEN STR(F8$(),VAL(F9$,2)+1,2)=C0$DSC HEX(01)
2050 MAT SEARCHF8$(),=HEX(9CFFFFFF)TO F9$
   : IF F9$=HEX(0000)THEN 1030
   : STR(F8$(),VAL(F9$,2)+2,2)=HEX(1032)
   : GOTO 2050
3000 GOTO 3010
   : UNPACK(####)C0$TO Q
   : PACK(####)C0$FROMQ+1
3010 IF E2(5)=0THEN 3130
3020 IF E2(5)>0THEN DATA LOAD BA T#3,(E2(5))E4$()
   : IF E4=E2(5)THEN E4$()=F8$()
   : MAT SEARCHE4$(),=HEX(FFFFFF)TO F9$
   : IF F9$>HEX(0000)THEN 3050
   : E2(5)=E2(5)+1
   : GOTO 3020
3050 UNPACK(####)C0$TO Q
   : PACK(####)STR(E4$(),VAL(F9$,2)+1,2)FROMQ+E2(6)
   : IF E4=E2(5)THEN F8$()=E4$()
   : IF E4=E2(5)THEN 3120
   : STR(E4$(),,1)=HEX(00)
   : $TRAN(E4$(),HEX(FDFE))R
   : DATA SAVE BA T#3,(E2(5))E4$()
3120 E2(5)=0
3130 IF E2(6)>E2(7)THEN 3140
   : E4$()=F8$()
   : $TRAN(E4$(),HEX(3ABA))R
   : STR(E4$(),POS(E4$()=FE))=HEX(0D0000FE)
   : DATA SAVE BA T#3,(E4)E4$()
   : IF STR(R3$(1),6,1)="P"THEN LOAD DA T#2,(D$(6))1000,
   : ELSE LOAD T#2,"IDS2PR19"1000,
3140 LOAD DA T#2,(D$(13))1000,
3150 STOP #
3160 PRINT HEX(06020402000E);AT(23,0);"Compiling BASIC program - Processing se
     ctor";E4-E3+1;TAB(80);
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP29"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"