Listing of file='IDS2PC03' on disk='vmedia/701-2725B.wvd.zip'
# Sector 599, program filename = 'IDS2PC03' 1000 REM 'IDS2PC03' - CONVERSION MODULE - LOADED BY PF12, LOADS PF11 FOR EACH ALT, THEN LOADS PF14 1010 MAT REDIM F$(6)83 : DATA LOAD DC OPEN T#5,C7$ : DATA LOAD DC #5,F$() : P7=P7+1 : IF P7>16OR STR(F$(),8*P7+267,8)=" "THEN 1030 : E9$(1)=STR(F$(),8*P7+267,8) : LOAD T#2,"IDS2PF11"1000, 1030 E3$()=" " : E3$(1)=STR(F$(),82,8) : STR(E3$(),9,128)=STR(F$(),275,128) : E$="Y" : R3$(1)="IDS2PC04" : LOAD T#2,"IDS2PF14"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC03" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"