Listing of file='IDS2PIX0' on disk='vmedia/701-2717B.wvd.zip'
# Sector 502, program filename = 'IDS2PIX0'
0001 REM "IDS2PIX0" - USED WITH START MODULE AT RUN TIME TO SAVE PARAMETERS
: REM LINE 1 TO CLEAR SUB MODULE
1001 COM E(8),E8,E9,E,G,A
: IF VER(R2$,"######")<6OR LEN(R2$)>6OR VER(R8$,"H")<1OR LEN(R8$)>1OR LEN(R
4$)<>3THEN 1007
1002 DIM F9$(250)1
: READ F9$()
: IF STR(F9$(),2,8)="IDS2PCST"THEN 1007
: READ STR(F9$(),246)
: CONVERT STR(F9$(),231,4)TO E9
: ERRORE9=256
1004 CONVERT STR(F9$(),240,5)TO E
: ERRORE=256
1005 CONVERT STR(F9$(),247,4)TO G
: ERRORG=0
1006 G=G+1
: COM CLEAR A
: LOAD T#2,"IDS2PIX8"1,1010BEG 1002
1007 DATA LOAD DC OPEN T#15,"IDS2fI00"
: ERRORGOTO 1009
1008 $OPEN #15
: IF LEN(R2$)>6OR NUM(R2$)<>6THEN R2$=" "
: IF LEN(E4$)>6OR NUM(E4$)<>6THEN E4$=" "
: IF LEN(R4$)>3THEN R4$=" "
: IF LEN(R8$)>1THEN R8$=" "
: DATA SAVE DC #15,E8,STR(R2$,1,LEN(R2$)),STR(E4$,1,LEN(E4$)),STR(R4$,1,LEN
(R4$)),STR(R8$,1,LEN(R8$))
: DBACKSPACE #15,BEG
: COM CLEAR
: LOAD T#15,"IDS2PIX1"1,1010BEG 1002
1009 DATA SAVE DC OPEN T#15,(3)"IDS2fI00"
: ERRORPRINT HEX(0307)
: PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX0"
: PRINT "Start module unable to open necessary system file IDS2fI00"
: END
1010 DSKIP #15,1S
: DATA SAVE DC #15,END
: GOTO 1007