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"