!:X$"XX":I.3:X$X$X$:9X$X$"XXXXXXX":12T DISK LAB.MSTSP100p SEIKOSHA SP100VC VER BY D LAYBERGER  OMAHA,NE SEP 1986 808,225:A1(55):A2(56):55,(51):56,(52): Z(.):55,A1:56,A2:808,237:7 :53280,13:53281,15:P$"WORKING...":P$T SD8:DD8:SR0:DR0:SA0 (1015).SD(1015):DD(1016):SR(1017):DR(1018):SA(1019) DL830:(DL)16024 1,DD,.,((DR),2,1)":DISK LAB.DIR,S,R":IDLDL148 1,A:I,A::1 15:15,DD,15:524N V$(152):(49152)32"DISK LAB.SORT",DD,1:524} 1,DD,.,((DR),2,1)":\\MASTER*,S,R":524 1,N:1,DT$:1,ID$:1,BK$:1,P:NF(BK$):NDN D$ID$:ID$"\\" "V$(.)DT$ID$(" "BK$,4):T$(NF1) $850,76:851,88:852,3:952,213 &8:I1N:DL:V$(I)(X$,16)S (""V$(I)::10:1 *NF1:P2U1:IN1:V$(I)" \MSORTED* ":48 ,150 .I1ND:P$20)"DIRECTORY"I" OF"ND 0""V$(I)""20)"PROGRAM MAY PAUSE"* 21:1,DD,DD,((DR),2,1)":"V$(I)",S,R":524:P1I25P 41,N:1,DT$:1,ID$:1,BK$:1,P:8q 6(DT$,7)"\MASTER"ID$"\\" 8J1N:DL:P1T$(NF)(X$,19):60 :T$(NF)(X$,16)(" "(I),3) <""(T$(NF),16)20)"ITEM"NF" OF "(V$(.),4) >P1JI10:8:II25] @NFNF1:NF1200NF((V$(.),4))1JN:IND:B$"GREATER THEN ":516{ B:10:P11:NNF1:104 D:1:NNF1:P$:Z(.) ENF((V$(.),4))B$"LESS THEN ":516 d" SORTING..."N"PROGRAMS"0f 49152,N,T$(1):P2:1015,SD:1016,DD:1017,SR:1018,DR:1019,SAfhDT$(V$(.),16):ID$(V$(.),17,2):BK$(V$(.),19)y ** MAIN MENU"DONE -CHOOSE ONE"""NF1"RECORDS ALPHABETIZED"P2" 1 ALPHABETIZE MASTER":NF1162" 2 PRINT TO SCREEN"3" 3 PRINT TO PRINTER"YU1" 4 SAVE SORTED FILE"" 5 RETURN TO DISK LABELER+"" 6 QUIT"A$:P2A$"1"46NF1P2176A$"2"502:150A$"3"402:150U1A$"4"302:150A$"5"202(A$"6"166.I ** RETURN TO LABELER1020,1:"LOAD "(34)"DISK LABELER+/S*"(34)(44)DD"RUN":198,8:I17:630I,13::"":, *** SAVE.P$:15,"S"((DR),2,1)":?\M*":F$" \MSORTED " 0ID$D$I21,DD,DD,((DR),2,1)":"F$",S,W":""F$""o41,N:1,DT$:1,ID$:1,BK$:1,P:8z6I1N8U1T$V$(I)" ":316:T$(T$(I),16)((T$(I),3)" ",4)<1,T$:""(T$,16);>" ITEM"I" OF"N::10"@1:524:U1NNF1:ID$"\\":ABF$"\\MASTER ":NNDRDU1:P$:306l ** PRINT TO PRINTER" PREPARE PRINTER AND ALIGN PAPER ":518:A$"^"" *** WORKING *** DO NOT DISTRUB ***"E$(27):S4:S:S,S,SA:S,H1$=R(X)((IPCL(IPCL))CL.5):Z.:IPN:C1$(15)gH1$E$(120)(1):H2$E$(120)(0)A2:E17:B8:C1:D1:CL3:PL56T1$E$"G":T2$E$"H":PGPLP1$"":P9$"-----------------------------------"S,E$"U"(0);:I1CL1:S,P1$BA);::S,P1$*S,H1$;:I1C:S:HS:S,E)(14)DT$ID$(15)sS,E)NF1" BLOCKS FREE - "D$;:S,H2$;X(IPCL):NPGCLXPL:IPPGCLC32X:C43X:C54X:RR(X):R.RCLXX1C32X:C43X:C54XR436,438: **CL=3440C3X:C42X1:440/C43X1:440DS:S,4,0:S,T1$Y13,4,13:13:13I1D:S::I1CL1:S,P9$B);::S,P9$Z.C3C3Z:C4C4Z:C5C5Z:NPGCLIPIPZF16:I1X:A$:A$"^"IX:500S,(T$(IZ),F)B5);"K((T$(IZ),3)):S,(V$(K),16)B);IC3IXZS,(T$(IXZ),F)B5);C3IXZK((T$(IXZ),3)):S,(V$(K),16)B);IC3IPS:476C4IC3S,(T$(IC3),F)B5);C4IC3K((T$(IC3),3)):S,(V$(K),16)B);IC4IPS:476'C5IC4S,(T$(IC4),F)B5);[C5IC4K((T$(IC4),3)):S,(V$(K),16)B);pIC5IPS:476C5XIC5S,(T$(IC5),F);C5XIC5K((T$(IC5),3)):S,(V$(K),16)B);S:XPLI1(PLX):S::X1SI1CL:S,P9$;B);::S:S'NPGCL500MS:S,4:S,H1$:S,T2$:I1C:S:X4,H1$S,(14)DT$ID$(15)" CONTINUED..."S,H1$"PAGE#"(PGPL)1" - "D$ZPGCL:IPN(PGCL):PGPGPL:426S:S,4:S,T2$;:S: *** PRINT TO SCREEN" FILENAME"23)"DISKNAME"*I1NC2)(T$(I),16)23);dK((T$(I),3)):(V$(K),16)(214)23518:"":A$"^"IN:::518"# OF AVAILABLE RECORDS IS"""B$"MASTER COUNT OF"(V$(.),4)"""" PRESS A KEY TO CONTINUE - '^'TO RETURN"5A$:A$""520; N 15,ER,ER$,T,SlER" "ER;ER$;T;S:518:r