image of READY prompt

Wang2200.org

Listing of file='IDS2PR18' on disk='vmedia/701-2716B.wvd.zip'

# Sector 250, program filename = 'IDS2PR18'
1000 REM "IDS2PR18" - Release 2.1 - REPORT GENERATOR - PROGRAM GENERATOR - PAR
     T 2
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM F8$(256)1,E6,C4,C5,C6,C7,C0$2,F1,D7,C6$2,C7$8,C8$64,E2(8)
   : C8$=STR(E$(),2,8)&STR(E$(),78,56)
   : MAT E2=ZER
   : C7$=STR(E$(),2)
   : IF E$(172)="Y"THEN E2(1)=1
   : IF E$(169)="Y"THEN E2(2)=1
   : CONVERT STR(E$(),157,3)TO N
   : C7,Q=N
   : FOR I=1TO N
   : IF MOD(I-1,60)>0THEN 1120
1080 F8$()=HEX(00FF19)&BIN(149+INT((I-1)/60))&HEX(9446)
   : IF I<61THEN 1110
   : $PACK(F=HEX(1004))E$FROM1-I
   : F8$()=F8$()&STR(E$,1,4)
1110 F8$()=F8$()&HEX(9C)
1120 E$=HEX(FF1990)
   : F8$()=F8$()&STR(E$,1,3)&HEX(0D0000FD)&ALL(00)
   : IF I<NAND MOD(I,60)>0THEN STR(F8$(),POS(F8$()=0D))=","
   : IF I=NTHEN F8$(1)=HEX(20)
   : IF I=NTHEN $TRAN(F8$(),HEX(FEFD))R
   : IF I=NOR MOD(I,60)=0THEN GOSUB 2010
   : NEXT I
   : F1=1
   : D7=0
   : C0$=HEX(1999)
   : CONVERT STR(E$(),152,3)TO Q
   : C5=3*MAX(1,ABS(INT(-9*Q/249)))
   : C6=3*MAX(1,ABS(INT(-8*Q/249)))
1202 C7=3*MAX(1,ABS(INT(-C7*9/249)))
   : GOSUB '39(STR(E$(),10,8),3)
   : C4=A
   : F8$()=HEX(20FE)
   : LOAD T#2,"IDS2PR19"1000,
2000 STOP #
2010 DATA SAVE BA T#3,(E4,E4)F8$()
   : PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi
     ng sector";E4-E3+1;
   : RETURN
2040 DEFFN'71
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR18"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"