Listing of file='IDS2PR19' on disk='vmedia/701-2716B.wvd.zip'
# Sector 258, program filename = 'IDS2PR19'
1000 REM "IDS2PR19" - Release 2.1 - RPT & BATCH PROGRAM GENERATOR - EDITS
1005 E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1010
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM E1,C8,D6$8,D7$6
: DIM C2$19,J7$12
: GOSUB 2070
1030 E1=MAX(E1,1)
: IF E1>249THEN 2030
: D7$,J7$=STR(F$(),E1*9-8,9)&ALL(00)
: IF D7$=" "OR D7$=HEX(000000000000)THEN 2030
: FOR I=1TO 12
: ROTATEC(STR(J7$,I),-2)
: NEXT I
: ADD(J7$,20)
: IF STR(J7$,9)>" "THEN 1100
1050 E2(3),E2(4)=0
: E1=E1+1
: GOTO 1030
1100 C2$=STR(C7$,,8)&STR(J7$,,8)&BIN(E2(3)+32)
: GOSUB '60(E1$(2),C2$)
: IF STR(E6$(),,16)<>STR(C2$,,16)THEN 1050
: E2(4)=E2(3)
: E2(3)=VAL(E6$(17))-31
: STR(C2$,17)=E6$(17)
: D7=VAL(E6$(18))-48
1145 E$()="Compiling BASIC program - Processing operation "&HEX(22)&STR(C2$,9,
8)&HEX(22)&" edit "&HEX(002000)
: CONVERT E2(3)TO STR(E$(),POS(E$()=00),2),(##)
: STR(E$(),76)=STR(E6$(),18,1)&"0"&STR(E6$(),17,1)&"N "&STR(E6$(),,16)
1150 GOSUB '62(E1$(2),1,0)
: ON VAL(F$(2))-47GOTO 1161,1162,1163,1164,1165,1166,1167,1168,1169
1161 STR(E$(),76)=STR(F$(),,250)
: GOTO 1170
1162 STR(E$(),326)=STR(F$(),23,228)
: GOTO 1170
1163 STR(E$(),554)=STR(F$(),23,228)
: GOTO 1170
1164 STR(E$(),782)=STR(F$(),23,228)
: GOTO 1170
1165 STR(E$(),1010)=STR(F$(),23,228)
: GOTO 1170
1166 STR(E$(),1238)=STR(F$(),23,228)
: GOTO 1170
1167 STR(E$(),1466)=STR(F$(),23,192)
: GOTO 1170
1168 STR(E$(),1658)=STR(F$(),23,192)
: GOTO 1170
1169 STR(E$(),1850)=STR(F$(),23,192)
1170 IF STR(E6$(),,17)=STR(C2$,,17)THEN 1150
: GOSUB 2070
: UNPACK(####)C0$TO Q
: Q=MAX(Q,2000)
: PACK(####)C0$FROMQ
: IF E2(4)>0THEN 1270
: X=E3+4
: X=X+INT((E1-1)/60)
: DATA LOAD BA T#3,(X)E4$()
: STR(E4$(),POS(E4$()=9C)+(MOD(E1-1,60)+1)*4-2,2)=C0$
: DATA SAVE BA T#3,(X)E4$()
1270 DATA LOAD BA T#3,(E4-1)E4$()
: STR(E4$(),,1)=HEX(00)
: $TRAN(E4$(),HEX(FDFE))R
: DATA SAVE BA T#3,(E4-1)E4$()
: F$()=HEX(1B)
: E2(5)=E4
: Q=POS(" 0123456789RP"=STR(J7$,9,1))
: CONVERT QTO F9$,(##)
: IF Q<10THEN F9$=STR(F9$,2)
: STR(F$(),2)=HEX(9F)&"J7<>"&F9$
: IF STR(J7$,10,1)=" "THEN 1342
1340 IF STR(J7$,11,1)="N"THEN E6$="Y"
: ELSE E6$="N"
: CONVERT VAL(STR(J7$,10))-47TO F9$,(##)
: IF VAL(F9$)=48THEN F9$=STR(F9$,2)
: F$()=F$()&HEX(8B)&"F6$("&F9$&")="&HEX(22)&E6$&HEX(22)
1342 IF E$(79)="N"THEN 1345
: IF E$(81)="N"THEN E6$="Y"
: ELSE E6$="N"
: CONVERT VAL(E$(80))-47TO F9$,(##)
: IF VAL(F9$)=48THEN F9$=STR(F9$,2)
: F$()=F$()&HEX(8B)&"F6$("&F9$&")="&HEX(22)&E6$&HEX(22)
1345 F$()=F$()&HEX(B1FFFFFFBA)
: IF D7=0OR D7=3THEN 1380
: IF E2(5)=0THEN E$="H=1"
: ELSE E$="H=1"
: STR(F$(),LEN(F$())+1)=E$&HEX(BA)
1380 LOAD T#2,"IDS2PP28"1000,
1500 STOP #
: STOP #
2000 IF LEN(F8$())<3THEN 2010
: F8$(1)=HEX(20)
: STR(F8$(),POS(F8$()=FE))=HEX(0D0000FE)
: DATA SAVE BA T#3,(E4,E4)F8$()
: GOTO 2020
2010 DATA LOAD BA T#3,(E4-1)F8$()
: F8$(1)=HEX(20)
: $TRAN(F8$(),HEX(FEFD))R
: DATA SAVE BA T#3,(E4-1)F8$()
2020 LOAD T#2,"IDS2PP04"1000,
2030 IF F8$()=HEX(20FE)THEN 2060
: IF POS(F8$()=FE)<244THEN 2050
: F8$(1)=HEX(00)
: STR(F8$(),POS(F8$()=FE))=HEX(0D0000FD)
: DATA SAVE BA T#3,(E4,E4)F8$()
: F8$()=HEX(20FF)
: GOTO 2060
2040 GOTO 2000
2050 STR(F8$(),POS(-F8$()>FC))=HEX(0D0000FF)
2060 STR(F8$(),POS(-F8$()>FC))=HEX(FF)&STR(C0$,,2)&"F=F1:"&HEX(9CFF1990FE)
: UNPACK(####)C0$TO Q
: PACK(####)C0$FROMQ+1
: GOTO 2040
2070 MAT REDIM E3$(249)8
: E3$()=" "
: MAT REDIM E2$(C5)83,E3$(C6)83,F$(C7)83
: DATA LOAD DA T#3,(C4+6)E2$(),E3$(),F$()
: MAT REDIM E2$(250)9,E3$(249)8,F$(E9)1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR19"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"