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"