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"