Wang 2200 Virtual Media

Listing of file='IDS2PI06' on disk='vmedia/701-2717B.wvd.zip'
# Sector 919, program filename = 'IDS2PI06'
1000 REM "IDS2PI06" - "START" PROGRAM REGENERATION AFTER SPECIFICATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1020 GOSUB '39(E9$(3),4)
   : F8=A
   : J5=P
   : IF A>0THEN 1025
   : STOP "ERROR - FILE NOT FOUND"
   : GOTO 1020
1025 $TRAN(E$(),HEX(A222))R
   : FOR I=1TO 9
   : DATA LOAD BA T#J5,(F8+I)STR(F$(),1,256)
   : ON IGOTO 1060
   : STR(F$(),7,POS(STR(F$(),8)=22))=STR(E$(),(I-2)*245+1)
   : GOTO 2000
1060 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
   : LOAD T#2,"IDS2MI01"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PI06"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"