image of READY prompt

Wang2200.org

Listing of file='IDS2PIX3' on disk='vmedia/701-2717B.wvd.zip'

# Sector 924, program filename = 'IDS2PIX3'
1000 REM "IDS2PIX3" - START MODULE EXECUTION MODULE TO SET MOST VARIABLES
1035 DIM F0(6)
   : FOR A=1TO 15
   : IF STR(E$(),A*3+83,3)=" "THEN 1090
   : SELECT #A<STR(E$(),A*3+83,3)>
   : ERRORX=ERR
   : GOTO 1310
1090 NEXT A
   : HEXPACKE8$(7)FROMSTR(E$(),87,2)
   : ERRORX=ERR
   : GOTO 1310
1094 %SELECT #0<STR(E$(),95,3)>: ERROR X=ERR: GOTO 1310:REM SOON TO BE REMOVED
      BY ART
1096 F4$=STR(E$(),86,3)&STR(E$(),2,8)&STR(E$(),101,3)
   : CONVERT STR(E$(),231,4)TO E9
   : CONVERT STR(E$(),240,5)TO J
   : IF STR(E$(),247,4)<>" "THEN CONVERT STR(E$(),247,4)TO H
   : H=H+1
   : IF STR(F4$,4,7)="IDS2PCS"THEN H=24
   : F6$()=ALL(4E)
   : STR(F6$(),11,4)="YYYY"
   : F6$(15)=HEX(FF)
   : F6$(53)="Y"
   : R7$(1)=STR(E$(),147,64)
   : DATA LOAD DC OPEN T#2,"IDS2f001"
   : ERRORGOTO 1152
1151 GOTO 1160
1152 DATA SAVE DC OPEN T#2,(3)"IDS2f001"
   : ERRORPRINT HEX(0307)
   : PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
   : PRINT "Start module unable to open necessary system file IDS2f001"
   : END
1155 F0=1
   : F0(1)=#ID
   : R0=#PART
   : $OPEN #2
   : DATA SAVE DC #2,F0,F0()
   : DATA SAVE DC #2,END
   : GOTO 1200
1160 $OPEN #2
   : DATA LOAD DC #2,F0,F0()
   : R0=0
   : FOR I=1TO F0
   : IF F0(I)=#IDTHEN R0=(I-1)*16+#PART
   : NEXT I
   : IF R0>0THEN 1200
   : IF F0<6THEN 1175
   : $CLOSE#2
   : PRINT HEX(0307)
   : PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
   : PRINT "System CPU file IDS2f001 is full - Unable to add new CPU #"
   : END
1175 F0=F0+1
   : F0(F0)=#ID
   : R0=(F0-1)*16+#PART
   : DBACKSPACE #2,1S
   : DATA SAVE DC #2,F0,F0()
1200 E$="IDS2fsxx"
   : IF R0>=#PARTTHEN CONVERT (R0-#PART)/16+1TO STR(E$,7,2),(##)
   : LIMITS T#2,E$,A,B,C,D
   : IF D=2AND B-A>=165THEN 1300
   : IF D=0THEN 1230
   : DIM J1$8
   : J1=0
   : J1$="JUNKxxxx"
1220 J1=J1+1
   : CONVERT J1TO STR(J1$,5,4),(####)
   : LIMITS T#2,J1$,A,B,C,D
   : IF D<>0THEN 1220
   : SCRATCH T#2,E$
   : SAVE DC T#2,(E$)J1$1000,1000
   : SCRATCH T#2,J1$
1230 DATA SAVE DC OPEN T#2,(166)E$
   : ERRORPRINT HEX(0307)
   : PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
   : PRINT "Start module unable to open necessary system file ";E$
   : END
1240 DATA LOAD DC OPEN T#2,E$
   : MAT REDIM E3$(9)83
   : E3$()=" "
   : DATA SAVE DC #2,E3$()
   : DSKIP #2,161S
   : DATA SAVE DC #2,END
   : LIMITS T#2,E$,A,B,C,D
   : FOR I=A+3TO A+163
   : DATA SAVE BA T#2,(I)STR(E3$(),,256)
   : NEXT I
   : STR(E3$(),,8)=ALL(30)
   : DATA SAVE BA T#2,(A+3)STR(E3$(),,256)
1300 $CLOSE#2
   : LOAD T#2,"IDS2PIX4"1000,
1310 PRINT HEX(0607020402000E);AT(23,0);"Error message:   Fatal device selecti
     on error attempting to open #";A;"/ ";STR(E$(),A*3+83,3);" !";HEX(010F05)
   : IF STR(E$(),139,8)=" "THEN STOP
   : ELSE LOAD T#4,STR(E$(),139,8)1000,
   : STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P
     ACK"