Listing of file='IDS2PC15' on disk='vmedia/701-2725B.wvd.zip'
# Sector 720, program filename = 'IDS2PC15'
1000 REM "IDS2PC15" - "START" CONVERSION - SKELETON CREATION MODULE
1015 COM J3$8,F1,F2
: J3$=F1$OR ALL(20)
: MAT REDIM E4$(256)1
: SAVE T#D2,(8)F2$1000,1000
: ERRORGOTO 1281
1035 LIMITS T#D1,J3$,A,Q,Q,Q
: DATA LOAD BA T#D1,(A,F1)E4$()
: LIMITS T#D2,F2$,A,B,C,D
: PRINT AT(15,24);BOX(1,32);AT(15,25,50);HEX(0E);"Creating skeleton START m
odule";HEX(0F06)
: FOR I=1TO 10
: ON IGOTO 1080,,,,,,,,,1090
: F$()=HEX(00FF10)&BIN(15+I)&HEX(9722)
: IF I<9THEN STR(F$(),252)=HEX(220D0000FD)
: ELSE STR(F$(),42)=HEX(220D0000FE)&ALL(00)
1072 IF I=9THEN F$(1)=" "
: IF I>2THEN 1085
: STR(F$(),7,21)="\E9"&STR(F2$,1,8)&" "&STR(R4$,1,3)&STR(R2$,1,6)
: STR(F$(),68,1)="0"
: STR(F$(),80,1)="0"
: STR(F$(),92,45)=STR(E4$(),96)
: STR(F$(),137,8)=STR(E4$(),24,8)
: GOTO 1085
1080 F$()=HEX(00FF1000A2E92022)&STR(F2$,1,8)&HEX(22)&" - .....................
........... - REV# "&STR(R2$,1,6)&" BY "&STR(R4$,1,3)&HEX(0D0000FF)
: STR(F$(),81)=HEX(1001A6)&"E8"&HEX(0D0000FF10029F)&"E9=1E99"&HEX(B1FF10100
D0000FF1003)&"E8=0001"&HEX(0D0000FF)
1082 STR(F$(),121)=HEX(1004A5D7)&"15/"&STR(E4$(),99,3)&HEX(0D0000FF1005A1)&"T#
15,"&HEX(22)&"IDS2PIX0"&HEX(22FF10012CFF10100D)
: STR(F$(),161)=HEX(0000FF1010A1)&"T#02,"&HEX(22)&"IDS2PIX2"&HEX(22FF10012C
FF10100D0000FD)
1085 DATA SAVE BA T#D2,(A+I)STR(F$(),1,256)
: GOTO 1100
1090 F$()=HEX(20000B)&ALL(00)
: GOTO 1085
1100 NEXT I
1110 E9=1E99
: LOAD T#D2,F2$1000,1110
1190 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sI01")
: F6$(11)="N"
: E9=2250
: F0=36
: GOSUB '36
: F0=43
: DIM J2$(128)8,J4$8
1215 GOSUB '34(34)
: LIMITS T#D2,E$,A,B,C,D
: ON D+1GOTO 1246,1246,1244
: GOSUB '35("Specified load module is scratched")
: GOTO 1215
1244 GOSUB '35("Specified file must be a program file")
: GOTO 1215
1246 GOSUB '34(35)
: GOTO 1250
1250 GOSUB '53("Converting file names for START module")
: MAT REDIM F$(128)8
: FOR I=0TO 3
: DATA LOAD BA T#D1,(F1,F1)E4$()
: MAT COPY E4$()TO STR(F$(),I*256+1,256)
: NEXT I
: CONVERT STR(F$(),1001,3)TO F2
: IF F2>124THEN F2=124
1280 GOSUB '39("IDS2fC00",2)
: IF Q=2THEN 1300
: GOSUB '63("New data file na","mes are not available; Key EXEC to continue
or '31 to Cancel","!")
: GOSUB '34(250)
: IF Q=31THEN 1283
: IF Q<>32THEN 1280
: D7,D8=0
: J2$()=ALL(20)
: GOTO 1360
1281 GOSUB '35("Not enough room on output disk -- key FN '31 to CANCEL")
: GOSUB '34(250)
1283 COM CLEAR D1$
: MAT REDIM E4$(16)16
: LOAD T"IDS2PCMN"1000,
1300 DATA LOAD BA T#P,(A)E4$()
: CONVERT STR(E4$(),41,3)TO D7
: IF D7>256THEN D7=256
: IF D7>0THEN 1310
: D8=0
: J2$()=ALL(20)
: GOTO 1360
1310 D8=INT((D7-1)/16)+1
: FOR I=1TO D8
: DATA LOAD BA T#P,(A+I)E4$()
: FOR J=1TO F2
: MAT SEARCHE4$(),=F$(J)TO F9$STEP 16
: IF F9$=HEX(0000)THEN 1340
: J2$(J)=STR(E4$(),VAL(F9$,2)+8,8)
1340 NEXT J
: NEXT I
1360 DIM J3$(60)8
: D5,D6=0
: FOR J=1TO F2
: J4$=F$(J)OR ALL(20)
1380 LIMITS T#D3,J4$,A,M,N,Q
: IF Q=2THEN 1390
: PRINT AT(22,0,80);AT(22,10);HEX(0E);"Control file for ";F$(J);" is not on
device ";C3$;AT(23,0,80);"Mount appropriate platter and key RETURN to co
ntinue or FN '31 to CANCEL";
: F6$(11)="N"
: GOSUB '34(250)
: PRINT AT(22,0,80);AT(23,0,80)
: IF Q=31THEN 1283
: GOTO 1380
1390 DATA LOAD BA T#D3,(A)E4$()
: CONVERT STR(E4$(),24,1)TO J8
: IF J8<3THEN 1400
: GOTO 1450
1400 IF J2$(J)=" "THEN 1410
: D5=D5+1
: IF D5>60THEN 1440
: J3$(D5)=J2$(J)
: GOTO 1450
1410 J4$=" "
: IF D6>0THEN 1430
: PRINT HEX(030F)
: PRINT AT(6,23);BOX(1,34);AT(6,24);HEX(0E);"Data File Has Not Been Convert
ed ";
: PRINT AT(10,23);BOX(1,34);AT(10,26);"IDEAS1 Data File is: ";
: PRINT AT(13,20);BOX(3,40);AT(13,21);"NOTE: After converting all Data File
s,";
1420 PRINT AT(14,21);"remember to revise this START module ";AT(15,21);"and ad
d the necessary data files.";
1430 D6=1
: PRINT HEX(020402000E);AT(10,47,20);F$(J);
: GOSUB '53(" Key EXEC to Continue")
: GOSUB '34(250)
: PRINT AT(10,47,20)
: GOTO 1450
1440 GOSUB '63("Remaining files ","must be opened by another START module; Key
EXEC to continue","!")
: KEYIN E6$
: J=F2
: D5=60
1450 NEXT J
: MAT COPY STR(J3$(),1,D5*8)TO STR(E$(),251)
: CONVERT D5TO STR(E$(),245,2),(##)
: MAT REDIM E4$(16)16
: LOAD T#2,"IDS2PC16"1000,
1480 STOP #
: PRINT HEX(03);AT(5,0);HEX(0D0A);"N0. OF IDEAS1 FILES= ";F2;HEX(0D0A);
: PRINT "NO. OF FILE PAIRS IN SYSTEM FILE= ";D7;HEX(0D0A);
: PRINT "IDEAS1 DATA FILES--";HEX(0D0A);STR(F$(),1,F2*8);HEX(0D0A);
: PRINT "NEW NAMES FOR CONVERTED FILES--";HEX(0D0A);STR(J2$(),1,F2*8);
1500 PRINT HEX(0D0A);"IDEAS2 PRIMARY FILES FOR NEW START--";HEX(0D0A);STR(J3$(
),1,D5*8)
: PRINT HEX(0A);"TOTAL SPACE USED = ";SPACEK-SPACE/1024
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PC15"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"