Listing of file='IDS2PC17' on disk='vmedia/701-2725B.wvd.zip'
# Sector 752, program filename = 'IDS2PC17'
1000 REM "IDS2PC17" - "START" PROGRAM REGENERATION AFTER SPECIFICATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1030 GOSUB '39(STR(E$(),2,8),D2)
: F8=A
: J5=P
: GOSUB '53(" Saving START program to file")
: IF F8>0THEN 1040
: STOP "ERROR -- OUTPUT FILE NOT FOUND"
: GOTO 1030
1040 $TRAN(E$(),HEX(A222))R
: FOR I=1TO 9
: DATA LOAD BA T#J5,(F8+I)STR(F$(),1,256)
: ON IGOTO 1100
: STR(F$(),7,POS(STR(F$(),8)=22))=STR(E$(),(I-2)*245+1)
: GOTO 2000
1100 GOSUB '43(2)
: IF E$=" "THEN Q=-1
: GOSUB '55(2,Q+1)
: STR(F$(),60,3)=E$
: STR(F$(),64,6)=R2$
: STR(F$(),74,3)=R4$
: GOSUB '43(37)
: STR(F$(),113,4)=STR(E$,2)
: GOSUB '43(19)
: STR(F$(),128,3)=E$
: GOSUB '43(8)
: STR(F$(),21,32)=E$
: GOTO 2000
2000 DATA SAVE BA T#J5,(F8+I)STR(F$(),1,256)
: NEXT I
: COM CLEAR D1$
: LOAD T#2,"IDS2PCMN"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PC17"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"