X$"XX":I.3:X$X$X$:9X$X$"XXXXXXX":1502_ THE DISK LABELERSP1000  BY D LAYBERGERNOV 1986  SEIKOSHA MODICATIS  BY JUDY LAROCT 1986   OKAY USE BUT SELL : [ ""CY$S2$BL$R$S1$:53281,11 60:Y24:X.:20:BL$S1$CY$S3$;:2023,160:56295,3: ("",Y)X);: 47:Y24:X47:20:R$CY$" PRESS ' ^ ' TO RETURN ";:I$"". Y24:X20(P$)2:20:W$P$;:I1200:O AA11:199,A:I$:I$""31U !v -Y24:X.:20:BL$S3$R$" "O$; .Y24:X20(P$)2:20:P$;: /Y24:X40:20:CY$S3$W$;: 060:45:47: 2Y22:X8:20:R$W$"INSERT "P$" DISKETTE ";:? <Y3:X.:20:I323:" "G =:| K808,225:A1(55):A2(56):55,(51):56,(52): MA(.):55,A1:56,A2:808,237:A3000 PY10:X11:20:"PROGRAM MAY PAUSE" QY11:X9:20:"FOR GARBAGE COLLECTION":Z(.)0 RY10:X11:20:" "_ TY11:X9:20:" ":u Z ** ERR HANDLING [15,ER,ER$,T,S: \60:Y22:X9:20:53281,2:ER;ER$;T;S:P$S6$:30: ]P$P1$:48:15:15,DD,15,"I"((DR),2,1)":":91: ^92:X(152):I1X:(601)::- d ** CHANGEh fY24:X47:20:R$CY$"PRESS 'RETURN' TO CONTINUE";:U hX21(P$):20:W$P$;:Y24:X21 j75 lA$J$(A$,JI):20:R$A$;:20:R$J$;:IJ""; n198,1:I$:198,.:I$(13)134-pI$(19)I$(34)I$""I$(131)I$(147)I$(141)108ZrI1I$(20)I$(157)I.:J$"":108tI$(29)IJII1:J$(A$,I):108vI$(148)108xI$(20)I$(157)J$(J$,(J$)1):II1:108zI$(17)"":J$(J$,(J$)):108|I$(145)"":J$(J$,(J$)):108+~KI$"*"130ISL1I$"*"JI1:132aIJI$(13)108yJ$J$I$:II1:10877: *** PRINTER CODESR(X)((IPCL(IPCL))CL.5):SA0:Z.:IPNC3$(14):C4$(15)H1$E$(120)(0):H2$E$(120)(1)IT1$E$"S"(1)E$"3"(18):T2$E$"T"E$"3"(36)A2:PC212,214,216,218,220,221,222,224,226,228,230,232,234E1:B.:C1:D.:CL3:PL1:E1:B2:C.:D1:CL3:PL10:E1:B2:C.:D1:CL3:PL16: E1:B2:C2:D9:CL3:PL16:-E8:B4:C.:D1:CL4:PL28:SA10:E6:B2:C.:D1:CL3:PL34:tE1:B2:C.:D1:CL3:PL14:E7:B1:C.:D2:CL4:PL22:E7:B1:C.:D1:CL4:PL28:E10:B4:C1:D3:CL4:PL36:E19:B8:C1:D1:CL5:PL30:2388E19:B8:C1:D1:CL5:PL30:T1$E$"G":T2$E$"H":238vA2:E19:B6:C1:D1:CL3:PL48:P$" * * * * * * * * * *"SA.:T1$E$(120)(0):T2$E$(120)(1)X(IPCL):RR(X):R.RCLXX1, *** Y/N.U3:Y20:X17(P$)2:20:P$:XX(P$)24020:W$"NO ":YY1:20:R$"YES"G2952:I$"^"g4I$"N":C1I$"Y":SB,160m6 ** LOAD FILESF$":\*":U1:602:ERN.:430:I$"^"NF.P$P7$:30:F$V$(B40BB):430:I$"^"93:1,DD,.,((DR),2,1)":"F$",S,R""91:ER94I75:1,N:1,DT$:1,ID$:1,BK$:1,Pg2060:MAD$ID$:ID$"\\"F$D$ID$:I$"":Y5:X5:20:W$R$"LOADING..."Y6:20:N10)DT$" "ID$850,76:851,88:852,3:952,21I1N:DL:T$(I)(X$,20)Y7:20:R$I10)T$(I):&77:91:ER94C1:BK$(" "BK$,4):d75:I1NF:V$(I)""::77:x ** SAVE FILESP$S9$:50:P$S6$:30:I$"^"93:F$"\"(DT$,15)1,DD,8,((DR),2,1)":"F$",S,W"91:ER63P$S5$:528ER94-Y5:X5:20:W$R$"SAVING"N" PROGRAMS"B2060:MAID$D$e1,N:1,DT$:1,ID$:1,BK$:1,P|2060:MAID$"\\"I1N:1,T$(I) Y7:20:I;10)T$(I) :91:ER941:U10:1:48:I$I$"Y"P$P1$:45:15,"S"((DR),2,1)":"F$:504 I$"N"528DY2:X60(H$)2:20:R$W$H$;:\X ** READ DIRECTORYiZN1616\Y10:X12:20:R$"CAUTION..."W$^R$"ENTRIES CURRENTLY IN THE "`R$"COMPUTER'S MEMORY ARE LOST "bR$"WHEN A FILE IS LOADED UNLESS"?dR$"IT HAS BEEN SAVED PRIOR TO "kfR$"LOADING THE NEW FILE. "hP$S8$:U.P$S9$j50:P$S6$:30:I$"^"lU.93:624nP$P1$:48:15:15,SD,15,"I"((SR),2,1)":":P$S8$p850,32:851,228:852,255:952,29:rU.1,DD,.,"$"((DR),2,1)F$:630Zt1,SD,.,"$"((SR),2,1)F$iv91:ER94xN175:I.N:T$(I)""::77:N.:Z(.)zDL:DT$(X$,7,16):ID$(X$,25,2)|H$DT$ID$:534~ ** SYS DIR READNF1:850,76:851,100:852,3:952,24:75KDL:B$(X$,1):C$(X$,2,1):S$((C$)256(B$))iS$(" "S$,4):ST652Y5:X9:20:W$R$(X$,3,19)S$NFNF1:V$(NF)(X$,3,16)(X$,20,2)S$64277:91:ER94BK$S$:I$"^"N.1:NF.H$H$BK$" BKS FREE":5340 ** FILE SELECTIONZ60:P4$P5$;:U1Y25:X.:20: S0$;tS1145:B.:K.NF38Y4:X2:J.18SL13:X2:766:YY1:Y23Y4:JKNFJ37:X2SB,62:198,.:198,1:I$"I$""BB40:SB40,160:B40SB,160:B1840:722\I$""BB40:SB40,160:B1940SB,160:B.:722ySB40,160:I$""726S1164SB,160:SS19:X2:726S1145SB,160:SS19:X22U1I$"E"I$"^"KNF::776:U.: U2I$"^"KNF::776:U.:I$"E"752AI$"S"U1774:SB,160:706[I$"^"KNF::776:NF37I$"N"60:B.:S1145::702I$"P"K.KK38:B.:S1145:60:706I$(13)714BBK:198,.:YB404:20:S1164BBK19:X21U1V$(B40BB)""9X(B40BB)1X(B40BB).:O$;:750]X(B40BB).X(B40BB)1:R$;q20:764::714P$W$P2$:45:47:I$:I$"Y"U9:758I$"N"752Y24:X.:20:P4$P5$;:X2:YY1:71475:P$P1$:48+N1:I.NF:X(I)1T$(N)(V$(I),17)(V$(I),3):X(I).:NN1JV$(I)""::77:NN1:P1:W$(V$(B40BB),SL)(V$(B40BB),SL4,1)(V$(B40BB),3);:20:X(KJ)1R$;W$(V$(KJ),SL)(V$(KJ),SL4,1)(V$(KJ),3)O$;X(KJ19)1R$;, ""(V$(KJ19),SL)(V$(KJ19),SL4,1)(V$(KJ19),3):J I.NF:X(I)X(I)11::u P$P1$:48:I.NF:X(I).:V$(I)""::  ** SORT "1023,.:P$"SORTING"(N)" FILES":48:ML,T$(.):P. $1015,SD:1016,DD:1017,SR:1018,DR:1019,SA:! ** ADD/SEARCH,j1108V,lW$R$""P8$`,n1128w,~ ** PRINT OPTIONS,P$BL$:48:P$"PRINT OPTIONS":Y4:X13:20:CY$P$,6)"VERTICAL X HORIZONTAL SIZE"-X4:Y7:I113:20:R$W$((I)" ",2,2)O$PC$(I):YY1:'-U2:952:I$"^"=-PCC1:P$BL$:48-P$"COMMENT/DATE/ETC...":J17:A$(" ",J(D$))-45:J$D$:I(D$)-Y22:X5:20:"NO COMMAS,SEMICOLONS OR COLONS":102:D$J$-- ** PRINT TO PRINTER..P$BL$:48:P$"SET/RESET OPTIONS?":302:I$"^"@.I$"Y"1152N.K11212.P$BL$:48:Y18:X4:20:R$"PREPARE PRINTER & POSITION LABELS".10,4,10:10:10.P$S6$:30:I$"^".P$T3$:E$(27):S4:S:S,S,SA:202:MPC101328/K1P$""B/PGPL:S,E$"U"(0)(A2)1);:I1CL:S,P$BA);::SP/K11224/P$"TEST ALIGNMENT AGAIN?":302:S4:P$T3$:202:I$"^"S:/I$"Y"LN.:1212/S,H2$;:CI1C:S:/P$S4$:48:Y4:X5:20:PC112340S,C3$E)DT$C4$:I$:I$"^"1326?0S,C3$E)ID$" "(((BK$)),2)" BLKS FREE"C4$\0S,""E3)D$H2$:S:13260S,C3$E2)DT$ID$C4$:I$:I$13260S,""E)(((BK$)),2)" BLKS FREE - "D$H2$;0X(IPCL):NPGCLXPL:IPPGCL113,4,13:13:13: **CONDENSED PRINT MODE91C32X:C43X:C54X:RR(X):R.RCLXX1o1C32X:C43X:C54X:CL1244,1246,1250,1258,12681C3IP:C4IP:C5IP:12781RC32X1112781R1254,1256: **CL=3112781C3X:C42X1:12781C43X1:12782R1262,1264,1266: **CL=42127892C32X1:C43X2:1278L2C43X1:1278V21278u2R1272,1274,1276: **CL=5212782C32X1:C43X2:C54X3:12782C43X1:C54X2:12782C54X12S:S,4,SA:S,T1$2DI1D:S:$3S,""A2);:I1CL1:S,P9$B);::S,P9$M3PC11XPL1I1((PLX)2):S:3Z.C3C3Z:C4C4Z:C5C5Z:NPGCLIPIPZ3I1X:I$:I$"^"IX::13263 S,""A2)T$(IZ)B);3 C3IXZS,T$(IXZ)B);3IC3IPS:13064C4IC3S,T$(IC3)B);'4IC4IPS:1306E4C5IC4S,T$(IC4)B);[4IC5IPS:1306w4C5XIC5S,T$(IC5)4:PC11XPL1I1((PLX)2):S:4PC11X1S4S,""A2):I1CL1:S,P9$B);::NPGCLS,P9$:13145 S,"-----CONTINUED------"+5"PC7PC8I15:S:>5$NPGCL1326U5&S:S,4:S,T2$;H1$h5(CI1C:S:5*S,""A2)DT$ID$" CONTINUED...":S,A2)"PAGE#"(PGPL)1" - "D$H2$;5,ZPGCL:IPN(PGCL):PGPGPL:12385.S:S,4:S,T2$;:S:60J66:JJ7:PC11J132:JJ10&62XJJJLN1336@64PC11S,E$"3"(18);n66I1JLN:S::LN.:PC11S,E$"3"(36);68LNLNJJX:LNJLN.6:6x ** EQUIP SETUP OPTIONS6z48:Z.:U.:I.:P$R$" "O$W$7|SDSDI:1438:Y7:X4:20:W$"SOURCE DEVICE #:",P$SD:UP7~DDDDI:1438:Y9:20:"MASTER DEVICE #:",P$DD:U7SRSRI:1438:Y11:20:"SOURCE DRIVE #:",,P$SR:U7DRDRI:1438:Y13:20:"MASTER DRIVE #:",,P$DR:U7SASAI:Y15:20:"SECONDARY ADDRESS:",P$SA:U&8Y19:20:R$"USE CURSOR KEYS TO SELECT"U8Y21:20:W$R$"USE +/- KEYS TO CHANGE"847:Y24:X47:20:R$CY$" PRESS ' ^ ' TO RETURN ";:Z18Y7:U18I.:X28:20:R$W$">>":X4:I$:I$"-"II1:14348I$"+"II1:143459I$""I$""X25:20:P$:YY2:UU1:X28:I.:Y15Y7:U1x9I$""I$""X25:20:P$:YY2:UU1:X28:I.:Y7Y15:U59I$"^"I$(13)1456914229U1404,1406,1408,1410,141299SD8SD159SD15SD89DD8DD15:DD15DD8:SR.SR1 :SR1SR./:DR.DR1>:DR1DR.D:U:SD8DD8:P$BL$:48:P$"CHANGE DEVICE #?":302:I$"N"I$"^":P$BL$:48:Y17:X7:20:R$"TURN OFF ALL DRIVES EXCEPT":YY1:20:R$" THE ONE TO BE CHANGED. "7;P$"OLD DEVICE # ":J2:A$" ":J$"8":I1:102:J$""U;OD(J$):OD8OD151464;P$"NEW DEVICE # ":J2:A$" ":J$"9":I1:102:J$"";ND(J$):ND8ND151468;15:15,OD,15;15,"M-W"(119)(.)(2)(ND32)(ND64):P$BL$:486<Y20:X10:20:R$"TURN ON OTHER DRIVE!":P$S6$:30:15:S< ** INITILIZE VARIABLESx<(142):ML(45)256(46)2623<:R$"":O$"":BL$"":CY$"":W$"":53280,7:53281,11<V$(152),T$(152),M$(15),PC$(13):DL830:SD8:DD8:SA.:CL3<=(1015).SD(1015):DD(1016):SR(1017):DR(1018):SA(1019)H=X(152)=M$(.):I115:M$(I):M$(I)(M$(I)" ",18):=I113:PC$(I)::D$"DISK LABELER+"=S1$" ">S2$" THE DISK LABELER+/SP1000 "S>S3$" ">S4$"PRESS & HOLD '^' TO STOP PRINTING">S5$"REPLACE EXISTING FILE (Y/N)?>S6$"PRESS A KEY TO CONTINUE">S7$"SELECT ONE">S8$"SOURCE"?S9$"MASTER"?P1$"WORKING"8?P2$"SELECTION OK (Y/N)?"W?P3$"NO FILES AVAILABLE!"?P4$"CRSR=MOVEMENT N=NEXT P=PREVIOUS"?P5$"RETURN=SELECT S=SWAP E=END ^=MENU"?S0$" RETURN=SELECT ^=MENU "'@ P6$"C=CHANGE D=DELETE P=PREVIOUS OTHERS=NEXT"M@ P7$"NO DISK LABELER FILES FOUND"l@P8$"FILENAME T SZ"@P9$"--------------------"@T3$" * * * * * *"@10:Y3:X2:20:W$R$" MODIFIED/C64/1541/SEIKOSHA SP1000VC"AP$:Y5:X4:20:""R$P$:X2!AY713:P$:20:W$R$P$:IAY1622:P$:X20(P$)2:20:P$:]A(DL)1601568A1,8,.,"0:DISK LAB.DIR,S,R":IDLDL148:1,A:I,A::1A Z(.):I$"":P$" INSTRUCTIONS (Y/N)? ":198,.:30:I$"Y"2000B"CP$S9$:50:P$S6$:30:I$"^"DB$1:15,DD,15:S3:1,DD,.,((DR),2,1)":DISK LAB.INST,S,R"^B&91:ER94:10:1568zB(60:X.:Y4:20:S4SB*1,P$:P$"END"P$S6$:30:1590B,I$"^"1590B.R$""P$:S4S,P$B0(214)221578C2P$S6$:30:I$"P"S4:S:S,4,SA C41576C61:S:U11C ** MAIN MENUfC2060:10:X(152):I1X:(601)::P0$"SORTED"CG2:U8G4:U10G.C198,.:K.:M.:LN.:J$"":F$DT$CN1N.:DT$"NO FILE NAME ":ID$"?":BK$"00":P1:G.DY4:X10:20:M$(.):Y5:BK$""BK$" ?"ADI115:P$R$:N1I3I4I5I6I8P$O$UDI6P.P$O$lDI7I8MAP$O$DI11P2P$O$DI10I11MA.P$O$D20:W$P$(" "(I),2)W$;DO$M$(I):YY1::PP0$"UNSORTED":P2P0$"ALPHABETIZED"$EP$DT$:N.P$P$ID$BK$" BKS FREE"_EY21:X20(P$)2:20:W$P$:P$(N)" PROGRAMS : "P0$EY22:X20(P$)2:20:R$P$EF$""::U1:952:GC:U2050ECC1:C1C2C7C9C12C13C14C152042EC6P.SB,160:2032FC10C11MA.SB,160:2032,FN1SB,160:2032LFC7C8MASB,160:2032jFC11P2SB,160:2032FP$BL$:48:53280,7:C22060FC602,402,1102,1202,502,802,902,904,1002,1022,1052,1150,1402,1570,2052F2060:2002FN.2058&G"";:P$"HAVE YOU SAVED CURRENT FILE?"@G302:I$"N"I$"^"bG "HAPPY COMPUTING!!"::G (DT$,7)"\MASTER"53280,13:MA1:GMA.:53280,7:G ** MENU CHOICESG" MAIN MENU ","CREATE A NEW FILE","LOAD A FILE"-H"VIEW/EDIT ENTRIES","PRINT ENTRIES","SAVE ENTRIES"fH"SORT ENTRIES","ADD A SINGLE ITEM","SEARCH BY NAME"H"CREATE MASTER FILE","PRINT MASTER FILE","ALPHABETIZE MASTER"H"PRINT OPTIONS","EQUIPMENT SETUP","INSTRUCTIONS","EXIT TO BASIC"I ** PRINT OPTIONS/I" 15/16 X 3 1/2 HEADER INFO ONLY"vI"1 7/16 X 4 MAILING LABEL","1 15/16 X 4 MAILING LABEL"I"2 15/16 X 4 SHIPPING LABEL","2 15/16 X 5 3/4 SHIPPING LABEL"I"3 1/2 X 4 1/2 SHIPPING LABEL"(J"2 1/16 X 4 ROTARY FILE CARD","3 X 5 ROTARY FILE CARD"_J"3 X 5 FILE CARD","4 X 6 FILE CARD"J"5/SUP ACROSS PAGE","5/CON ACROSS PAGE","3/REG ACROSS PAGE"J"**** USER SUPPORTED SOFTWARE ****"J"YOU ARE ENCOURAGED TO COPY AND SHARE"!K"THIS PROGRAM WITH OTHER USERS ON THE"MK"CONDITIONS THAT THE PROGRAM IS NOT "yK"DISTRIBUTED IN MODIFIED FORM, THAT "K"NO FEE OR CONSIDERATION IS CHARGED, "K"AND THAT THIS NOTICE IS NOT BYPASSED"K"OR REMOVED. "'L" IF YOU FIND THIS PROGRAM TO BE "QL" OF VALUE, A CONTRIBUTION TO THE "L" AUTHOR WILL BE APPRECIATED. ":"L"FREDIE J. LAYBERGER"L"14524 'N' STREET "L"OMAHA, NE 68137 "< s /0EȱFeHȱeh2٥1`ȱiiڥii3ii̭ĭ `ȱڅȱڅ搨 ڭȥڥȥڥ