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"