CTRL>/F while in Edit mode and the "Enter String To Find" pop-up box will appear. In the case of finding a line before "Astroff", type in "AST" (only a few beginning characters are needed), press and the cursor will go to "Astroff". As in the previous paragraph, press to free an open line. Keep in mind this will only find the line when you call for the pop-up String BEFORE the line you are seeking. Always easy to get to the top of your text by pressing /Up-Arrow from any cursor position. If the line you want is 400 lines from the beginning, it will take two or three seconds to bring your cursor that line. Deleting lines using TW128 is much easier than with a DataBase. Find the line, Press /K and the line is cleared. Remember to after any changes from the previous text. TEXT PRINTOUT CONTROL DEFINITIONS FOR TANDY DOT MATRIX PRINTER --------------------------------------------------------------- (CONTINUED) PAGE 2 EMBEDDED CONTROLS ("CTRL/." screens as Caret "/\" shown here as "k" since the embedded code is non-printable - do not type "k" - only type /. D and then the definable Number 1 thru - to be followed by the print code.) ^kkT 00 19 38 57 76 [Tab Sets - change the numerals if different columns are required. - Must be very first line Single digit numbers must start with ZERO.] ^kkD1 27 14 [Start Elongated Characters] ^kkD2 27 15 [End Control D1] ^kkD3 27 20 [Condensed Font] ^kkD5 27 19 [Standard Font] ^kkD6 15 [Start Underline1] ^kkD7 14 [End Control D6 15] ^kkD8 27 29 [NLQ Compressed Characters - 12 per inch] NOTE: Where End Control code is not given, you can change the font by defining ( 3 or 5, per example ) before text of the new required font. Set Format Menu Commands Margin - 5 Upper Margin -0 Characters Per Line - 127 Lines Per page - 64 Bottom Margin - 5 ^e( These parameters can be changed to suit your desired structure.)^f S A M P L E S P E C I M E N =========== =============== ^eMEMBERSHIP LIST - AS OF JANUARY 1, 1993^f ^d^eLAST NAME FIRST ADDRESS CITY ZIP PHONE^f Aboulafia Ruth & David 244-15 61 Ave. XXXXXXXXXXXXXX XXXXX XXX XXX XXXX Astroff June 61-50 L.Neck Pkway XXXXXXXXXXXXXX XXXXX XXX-XXX-XXXX Birnbaum Jerry 4 Richlee Court XXXXXXXXXXX XXXXX XXX-XXX-XXXX Bodell Ramona 35 Knightbridge Rd.XXXXXXXXXXXXXX XXXXX XXX XXX XXXX Bromberg Eleanor 2 Yukon Drive XXXXXXXXXXXX XXXX7 XXX-XXX-XXXX (*) - copyrighted by Cognitec, Del Mar, CA ^gmona 35 Knightbridge Rd.XXXXXXXXXXXXXX XXXXX XXX XXX XXX>1 : NIBSHOW 1.1 by Stuart T. Wyss-Gallifent>p: incorporating the NIB COMPRESSION SYSTEM by Rick Cooper>: NIBSHOW 1.1 (C) 1993>(: A few commands are duplicated within the program due to NIB interaction.>2 80: 0,0: 8,63:1?<8:500:FL$(26):370?[F&HF09D,0:&HF09E,2:&HF09F,0:&HF014,0::DRIVE,HSCREEN,LINES,BORDER?P&HF010,0:&HF011,0:&HF012,0:&HF013,0::COUNT,SS,SSK,DELAY?Z&HF016,1:&HF015,1:&HF017,0:&HF018,1?d: LOAD NIBLOADR.BIN FROM DRIVE 0?n0@x65496,0:M"NIBLOADR":65497,0@G(&HCFC3)&H8D &HE76,&HCE:&HE77,&HE7@Q380@u:CHECK DISK FOR NIB EXTENTIONS@9,55@A219:0,A::A@1,0:28,12:"Reading directory"@K0@ȀS311@Ғ65496,0: (&HF09D),17,S,A$,B$:65497,0A܀A1(A$)32AQ(A$,A8,3)"NIB"((A$,A,1))0KK1:FL$(K)(A$,A,8)AfK26K26:300AmAAA1(B$)32A(B$,A8,3)"NIB"((B$,A,1))0KK1:FL$(K)(B$,A,8)AK26K26:300A"A:SB,28,12:0,0:" "B6A1KB>@(FL$(A))8FL$(A)FL$(A)(32):320BEJABvT&HF010,K:&HF018,1:: SET NUMBER OF ENTRIESB^A1K:B18:&HF019A8B,((FL$(A),B,1)):B:ABh390Br500:FL$(26):370C|0::0,0:0,0:8,63:9,54:10,19:11,53C*&HF011,0::SET SLIDE SHOW TOGGLE OFFC0,0:"Current drive:"(&HF09D):28,0:1,0:"N I B S H O W 1.1":60,0:0,0:"Default Hscreen:"(&HF09E):"Vertical lines:";CL2(&HF09F):L20"192":L21"200":L22"225"D166,1:"Border:";:(&HF014)0"black";:(&HF014)63"white";D_(&HF016)1&HF016,0:A219:0,A::AD(&HF017)1&HF017,0:470:(&HF017)2&HF017,0:79,22:480D…(&HF010)0470D́930Eօ(445728)650,21:"Arrows:move Space:load ^kt 00 19 38 57 76 85 ^kd3 27 20 ^kd4 15 ^kd5 14 ^kd6 27 29 ^kd7 27 66 1 ^kd8 26 66 0 ^kT Set Printer on CODE - Char\127-Marg\5-Upper\0 ^kT These codes will take care of Printer settings. Only use On/Off toggle. ^gWORD PROCESSOR VS. DATABASE ^gRamblings by Bill Rosenfeld - The Island CoCo Club A good Word Processing program can be simpler and faster than a Database program to store and to alphabetically add/delete data when label or card printouts are not needed. Any Word Processor using its own embedded, ^enon-printable print control^f ^ecodes^f as well as those of 'Telewriter 128'(*) can use the procedure which is demonstrated in this article. Great for membership list maintenance.. The codes I commonly use are at the bottom-but it is not neccesary to use them if you are satified with Standard Font and press your space bar to find the start of each column in the same line. Otherwise you can set your own Tab Stops and increase characters per line from 81 to 127 in which case you would have to install the code for Condensed Font and reset Char/Line in Print Format Menu ( Get to it by pressing twice ). Using Block Copy commands you can copy [ /C after placing markers /B(^eeginning^f) and /E(^end^f)] the non-printable code table to the extreme left top of your New Document when you first start to enter text.. Using a WP program to record data of names, addresses, etc., enables you to easily make additions, deletions,corrections and comments. And you can easily control alphabetical order without going thru the sorting mode of a Data Base program. The WP search pattern permits you to pick line where you want to insert a new entry.Let's say the surname of the new line is "Arthur". Your previous list (in this case look at my sample specimen) shows "Arthur" should be before "Astroff". Bring cursor to beginning of line where "Astroff" appears and press . This will give you an open line to type in new entry in its proper alphabetical order. By using the Tab setting configuration installed first, before your text, you can move cursor from column to column in the same line by pressing / simultaneously.. To get to a line fast, press <ҶºʶºƾRDRUH2L5BE2BR7ABF2LD3RU2R7D4LDLDLDLD7RU6E4U5NL7BE2,BF3LDLD3RDRD2LDLD4RDRDR5URURU4LULU2RURU3HD3G3LDR2NUF2D2G2L3H2U2E2U2H2UE2HR5DNL3DBE4,BF3LDLD4RDRDR6D5LDL5ULULDF2R5E2U11LD5L5H2U2E2NR4HR5DRGBE4,BF4ERFL2GR3GLBD7GDFU2ED3EUBE5BU9BBF4ERFL2GR3GLBD7GDFU2ED4LDE2U3BE5BU8,BF6LDLDLDLDRDRDRDRDRDRDRDRUH6UE6HG3RE3BE2,BF5L4DR4ER4DL4BD7L5DR9UL3BE5BU8,BF2LDRDRDRDRDRDRD3LDLDLDLDLDLDRE7LURH6BE3BR6,BF3LDLD2RUE2R4DRD4LDL2DLD3BD3DRUBU3U2ERE2U4H2L5BE2BR7CBF3LDLD10RDRDR5URELGL4H2U8E2NR3HR5D2RD2L3DNR3ND3LD3F2RENL2ENL3NU6HU6BE3,BF3LDLD13RU13RUR5DRD5L6DR6D7RU13H2NL5BE2BR2,BF2LD15RU14R6DRD4LDL5DR5DRD4LDL5DR5E2U4HUEU4H2NL5BE2BR2,BF3LDLD11RDRDR5URURU2LDG2L3H2U9E2R4DRD2RU2H2NL5BE2BR2DBF2LD15RU14R6DRD11LDL5DR5E2U11H2NL5BE2BR2,BF2LD15R9UL8U6R5UL5U6R8UNL7BE2,BF2LD15RU7R5UL5U6R8UNL7BE2,BF3LDLD11RDRDR5URURU5L4DR3D3G2L3H2U9E2R4DRDDRUUH2NL5BE2BR2,BF2LD15RU7R7D7RU15LD7L7U6BE3BR7,BF2DR3D13L3DR7UL3U13R3UNL6BE2BR1EdBR9BD2D13LDL5ULU2LD2F2R5E2U13BE2,BF2LD15RU6R3DRDRDRDRD2RU2H5L3ER2E5U2LD2LDLDLDLDLDLLU6BE3BR7,BF2D14R8DL9U15BE2BR9,BF2LD15RU14RF2D7RU7E2RD14RU15L2G2LH2BE2BR7,BF2LD15RU14RD3RD2RD2RD2RD2RD2RDRU15LD13HUHUHUHUHUHUBE3BR6F?BF3DLUGD11RDRDR5URURU11LULUL5FR3F2D9G2L3H2U9BE5BR5,BF2LD15RU7R6URURU4LULUL5DR4F2D2G2L5U6BE3BR7,BF3LDLD11RDRDR5URFRHU12LULUL5FR3F2D10H3DF3L5H2U9EBE4BR5,BF2LD15RU7R3D2RDRDRDRD2RU2H4UR2URURU4LULUL5DR4F2D2G2L5U6BE3BR7G0BF3LDLD4RDRDR5DRD4LDL5ULU2LD2F2R5E2U4H2L4H2U2E2R4DRD2RU2H2L5BE2BR7,BF2LDR4D14RU14R4UL7BE2BR7,BF2LD13RDRDR5URURU13LD12G2L3H2U11BE3BR7,BF2LD3RD3RD3RD3E2LD5RU4FU3RU3RU3RU3LD2GD2GD2GLHU2HU2HUBE3BR7,BF2LD15RURE2RF3RU15LD14H3U6LD6G3U13BE3BR7GBF2LD4RDRDRD3LDLDLD4RU3E3U2RD2RDRDRD4RU4H3U2RURURU4LD3G3LH3U2BE3BR7,BF2LD5RDRDRDRD7RU7RURURURU5LD4G3LH3U3BE3BR7,BF2LDR8D3LDLDLDLDLDLDLDLD4R9UL8U2E8U4L7BE2BR7,BF2D15R7UL6U14RD14RU14R4DL3BE3BR3HBF2D4RDRDRDRDRDRDRDRD3RU3H8U3BR7BE2,BF2DR4D13L4DR5U15NL4RD15RU15BE2BR,BF4D2LD2LD2LDREURU5ED14RU8R2DRDRUHULU2HUD4LU6LBE2BR5,BF7RULGLFL3DL2DR2DR3GR3DLH3R6UL6BE8BU1,BD20,BF6L3DR5DRD2L6DLDLD3RDRDR7U5LD4L5H2UE2R6U3H2L2BE6IBF2LD15R7URURU6LULUL5DR4F2D4G2L5U13BE3BR7,BF6L3DLDLD7RDRDR5URURU2LDG2L3H2U5E2R4DRDDRUUHHLLBE6,BF2BR5DR2D5L6DLDLD5RDRDR7UL6H2U3E2R5D6RU13NL2BE2,BF6L3DLDLD7RDRDR6UL5H2U3R8U3LULULGRF2DL7UE2RBE7Jv BF4LD4L2DR2D7L2DR5UL2U7R4UL4U3E2L2ER3GRDR2DLU2BE3,BF6L3DLDLD3RDRDR6D4LDL5ULULDF2R5E2U11LD6L5H2UE2R4ULBE5BU,BF2LD15RU7ERURUR3DRD9RU9H2L3G3U6BE3BR7,BF6L3DR2D9L2DR5UL2U9BU4LURBE2BR4,BF7R2D10LDL5ULULDF2R5E2U11NL3BU3ULDBE3KN BF2LD15RU3EERDRDRDRDRDRUH5RURURURURU2LDG7U10BE3BR7,BF3R2D13L2DR5UL2U14NL3BE2BR4,BF6DLLULLGD10RU10RFRD9RU9ERDRD9RU10LUL2BE5BU1,BF6L2GLULD11RU9RER4DRD9RU9H2L2BE6,BF6L3DLDLD7RDRDR5URURU7LULULGRF2D5G2L3H2U5E2R2UBE6L,BF6L5D13R5UL4U5R6URURU3LULULGRF2DG2L5U5R3BE7,BF6L3DLDLD3RDRDR6D5L4DR5U13L3GR3D5L5H2UE2RBE7,BF7UR3D2LULGHDLFL2D7R2DL5UR2U9L2UR3D2BE8,BF6L4DLD4RDR7D4L8DR8EU4HL6HU2ER7UL4BE6,BF3URDGRGRFL4DR2D8RDRDR3URURULG2LH2U7R4UL2BE6LBF9D6LDL5ULU9LD9F2R5E2U9LD2BR3BU8,BF9LD2LD3L3U3LU2LU3LD3FDFDFDRD2RU2RUEUEUEU3LD2BE3BU5,BF6LD9L3U9LD9FRDRUR3DRUREU9LD9L3U9BE6,BD6BRD2RDRDRD3LDLDLD2RUE3URDRDRDRD2RU2H3U2RURURU2LDG3DLUH3UBE6BR4MBD6BRD5RDRDR6D4LDL5ULULDF2R5E2U11LD6L5H2U4BE6BR4,BD6BRDR7DG7D2R9UL8UE8LEL8BE6BR4,BR8,BFD5RU2NU4R4NU3D2LU6NL2BR3,BRD6R5L4U3NR2U3R4BR2,BRD6RU2RF2RH3E3LG3U3BR6,BRD6RU5NUFDRDRNU4D2RU6BR2N BRD6RU3NU3R3URULUNL2BR3,BRR2D6RU6R2BR2,BRD2FNU3RD3RU3RU3RND2BR2,BR5G3F3BE3BU3,BR2F3G3BE6NVIEW TITLE SCREEN,EDIT TITLE SCREEN,SAVE TITLE SCREEN,LOAD TITLE SCREEN,CLEAR TITLE SCREEN,CHANGE SCREEN COLOR,RECORD SEQUENCE,KILL AN OLD TITLE,EXIT PROGRAMOО0:2000:A$(109):(&HFFFE)256(&HFFFF)&H8C1B :&H95C9,&H17:&HFF22,&H10:1000:1000EW TITLE SCREEN,EDIT TITLE SCREEN,SAVE TITLE SCREEN,LOAD TITLE SCREEN,CLEAR TITLE SCREEN,CHANGE SCREEN COLOR,RECORD SEQUENCE,KILL AN OLD TITLE,EXIT PROGRAMOО0:2000:A$(109):(&HFFFE)256(&HFFFF)&H8C1B :&H95C9,&H17:&HFF22,&D:directory C:change drive number B:border swap H:hscreen swap L:192/200/225 lines select S:slide show X:exit"EA$:A$""480EA$"X"65496,0:500:0:1:FXA$"S"(&HF010)00,21:(160,32);:0,21:"Time delay between frames (in seconds, minimum=3): ";A$:(A$)3(A$)900380:&HF013,((A$)):850FA$"H"(&HF09E)2&HF09E,4:&HF017,2:400:(&HF09E)4&HF09E,2:&HF017,2:400GJA$"C"0,21:(160,32);:0,21:"New drive: ";A$:(A$)0(A$)3&HF017,1:400:&HF09D,((A$)):(&HF09D):&HF010,0:&HF016,1:400GA$"L"&HF09F,(&HF09F)1:(&HF09F)3&HF09F,0:&HF017,2:400:&HF017,2:400HA$"B"(&HF014)0&HF014,63:&HF017,2:400:(&HF014)63&HF014,0:&HF017,2:E";/hE421:G21:28:282,255:D$""C$(D)(21," "):F(D)1:200 :C$(D)D$:(D$)21 F(D)1:200/ه@386," TAP TO CENTER TEXT OR ENTER COLUMN NUMBER( 1 -";22(D$);")":@448,"":@481,(30," ");:22(D$)10 11:2210%ۇ@487,"THEN PRESS ";:E463:G2:28:B$D$0x݅B$"C"F(D)0:200 :(B$)1 (B$)22(C$(D)) 217 :F(D)(B$):2000,:******SAVE LOAD OR KILL TITLE TO FROM OR ON DISK ROUTINE*****************1.H0:I2:(7)1:@0,(32,128);:@8," DISK DIRECOTRY ";10A311:0,17,A,E$(1),E$(2):E$(3)E$(1)(E$(2),127):G07:E$(4)(E$(3),G321,11):((E$(4),1)(0)(E$(4),1)(255))30822(E$(4),3)"ATS"308 :HH1:@I32H108,(E$(4),8);:H3 II1:H0:I12 @453," ANY KEY TO VIEW MORE ";:11:I224G,A:@453,(22,((0,3)1)16143);:@420,(24," ");:@416," ROOM FOR"(0);"MORE TITLES."36@452," PRESS TO EXIT. ";:1535,143:@480,(31,".");:@480,"TYPE FILENAME TO ";:C3 D$"SAVE:" :C4 D$"LOAD:" :D$"KILL:"3R8A15:@497,(5," ");:230,1:E150::@497,D$;:E150:E,A3:E502:G8:28:D$"" :51512D$".ATS":&HC68C:J(&H973):(C8 J0)D$".ATS":300 :(C8 J0)3184o<(C3 J0)@452,(24," ");:@464(((D$)10)2),"'";D$;"' EXISTS!";:@480,(31," ");:@487,"OK TO ERASE (Y/N)?";:220,1:11:B$"Y"318 :B$"N"310 :3164>((C4 C8) J0)@452," FILENAME NOT FOUND!! ";:@480," CHECK DISK OR RETYPE FILENAME.";:200,1:11:3105P@E$D$:"D",#1,E$".ATS",23:#1,2 B$,21 D$:C3 A19:B$((F(A)),2):D$C$(A):#1,A::#1:5BA19:#1,A:F(A)(B$):D$(21," ")C$(A)"":328 :E05DEE1:(D$,E,1)" "324 :GE:E225EEE1:(D$,E,1)" "325 :HE15FC$(A)(D$,G,(HG))6H:#1:13:27:11:6U:*********CLEAR SCREEN AND ALL TEXT***************6(7)1:@294," ARE YOU SURE(Y/N)? ";:11:B$"Y" :0:A19:F(A)0:C$(A)"":::"L30O4CAC":6X:****CHANGE HIGH RESOLUTION SCREEN COLOR**********7Z44:27:11:75:******RECORD SEQUENCE*****7=A07iAA1:A10 705 :C$(A)""707 :7037:220,1:@198,"NO TITLE INFORMATION!":@256,"USE OPTION 2 OR 4 TO OBTAIN DATA":@325,"ANY KEY FOR MAIN MENU.":11:8xÞ(7)1:(32,128);:@7," RECORD SEQUENCE ";:A16335532:@A,(26," ");::@196,"1. LINE BY LINE DISPLAY";:@260,"2. FULL SCREEN DISPLAY";8ć@324,"3. RETURN TO MAIN MENU";:@427," TAP 1-3! ";:11:D(B$):D1 D3 707 :D3 9ƞ:" CONNECT THE PLUG OF A 'Y' CABLE ( 2 JACKS AND 1 PLUG) TO THE COMPUTERS VIDEO OUT. USE PATCH CORDS TO CONNECT THE TWO JACKS OF THE 'Y' TO THE VCR AND THE COMPUTER MONITOR RESPECTIVELY.:LJ"SET TAPE TO DESIRED POSITION FORTHE TITLE. PLACE VCR IN RECORD MODE(WITH PAUSE CONTROL ON). SETTITLE SEQUENCE TO DESIRED START-ING POINT. RELEASE PAUSE ON VCR.ADVANCE TITLE SEQUENCE TO ENDINGTHEN STOP VCR.TITLE NOW ON TAPE!":ɇ" AND TO ABORT!"::"BM3,6":D2 @484,"STANDBY-CREATING SCREEN.";:15;@ˠ250,1:@481,"TAP ANY KEY TO ADVANCE DISPLAY";:11:B$"\"719 :0:11:B$"\"719;y̿1,B:11:B$"\"719 :D2 717 :15:B$"\"719;ͼ:11:B$"\"719 :0,0:11;D0:13:707;:****EXIT MENU & ROUTINE****BF2DLDRDRURULUBF5LDLDLDLDLDLDLD3RU2E8U4LD4LBD7DLDRDRURULUBE3BU10,BF2DLD3RDRDRDLDLDLD4RDRDR2URER2D2RU2H2E2ULDGLH2GRDRDRDRGHDLGH2U2E5U4HND3L3DNR2GDF2RDEUBE6,BF4UED3FGDEU5FD3UBE5,BF4DLDLD7RDRDRDRDR4UL3H4U5E4R3UL4GDEBE3BR3?}BF2LDR4DRDRDRD7LDLDLDL4DR4E4U7H4L2BE2BR7,BF5URDGDL2ULULDF2DL2DR2D2LDLDRE2RD3RU3R2DRDRUH2NL4UNL4R2UL6UR4URURULG2LUBE6,BF5D4L4DR4D4RU4R4UL4U4BE5BR,BD19BR5E2UNG2L2ULURURDRDLBE6BU9,BF9RDL9UR7BE4BU5,BD15BR4RDRURULULDLBE8BU6@5BF2BR7D4LDLDLDLDLDLDLDLD3RU2E8U4BE2,BF3LDLD11RDRDR5URURU11L2FG6DE6D8G2L3H2U9E2HR5FNL4BE3,BF4LDR2D11L3DR7UL3U14LD2HBE3BR5,BF3LDLDRE2R4DRD4LDLDL2DLDL2DLD4R9UL8U2ERE2RE3U4H2L5BE2BR7A BF3LDLDRE2R4DRD4LDL4DR4DRD4LDL5ULULDF2R5E2U4HUEU4H2L5BE2BR7,BF5DLDLDLDLD3R6D5RU5R2UL8UE5D5RU8GDLDBE5BR,BF2LD6R6DRD6LDL4ULULDF2R4E2U6H2L5U4ER6DNL6BE3,BF3LDLD11RDRDR5URURU4LULUL5DR4F2D2G2L3H2U9E2R4D 0A Color Computer 2&3 0VCR Title Generator 0-----*----- 0by 0George Jurecka 1101 East Kabot Street 1Weimar, TX 78962-1005 1 0Copyright (C) 1992 e to to make VCR titles in 400H&A$"D"150H)0(&HF010)0470HC:A$(32)ASL:590HND1030HNF1$"":B18:F1$F1$((&HF019A8B)):BHX610Hb:ACTUALLY LOAD THE PICTURE AND DISPLAYHlX0(F1$)1Hv&HE92X,((F1$,X1,1)):XH&HE6E4,&HE6I (&HF09E)I$1:FL$(26):370I165496,0I<&HF00II65497,0Ic500:FL$(26):370I QZ0 3:DP(QZ)(&HFFBBQZ)64: QZIƒ&HFF9A,(&HF014):(&HF09E)4740JL2(&HF09F):L20&HFF99,158:L21&HFF99,190:L22&HFF99,126J ځ760JVL2(&HF09F):L20&HFF99,157:L21&HFF99,189:L22&HFF99,125J`760Jv(&HF011)1890JI$:I$""(&HE92)421110:770J I$"1"1JI$"2"2:(&HF09E)2710J I$"3"3J*I$"4"4:(&HF09E)4710KC4I$"L"&HF09F,(&HF09F)1:(&HF09F)3&HF09F,0:710:710K>I$"B"(&HF014)0&HF014,63:&HFF9A,63:770:(&HF014)63&HF014,0:&HFF9A,0:770KH770KR:SLIDE SHOWK\&HF011,1::SET SLIDE SHOW FLAGKf&HF012,1LApF1$"":B18:F1$F1$((&HF019(&HF012)8B)):B:P015:P,0:P:610LJz0L(&HF013)60910:""910:(&HE92)421110:900L&HF012,(&HF012)1:(&HF012)(&HF010)870:880L380L:MENULA1(&HF010)MHS(A1)(((A1)4)4):VS((A1)4)M(HS20,VS3M13,0MYԀB18:((&HF019A8B));:B:AMqSL(&HF018):OLSLMHS(SL1)(((SL1)4)4):VS((SL1)4):HS20,VS3M0,0:B18:((&HF019SL8B));:BM470NA$(10)SLSL4:SL(&HF010)SLSL4N4A$(94)SLSL4:SL1SLSL4NXA$(8)SLSL1:SL1SLSL1N$A$(9)SLSL1:SL(&HF010)SLSL1N.SLOL 1080 : 1020N8HS(OL1)(((OL1)4)4):VS((OL1)4):HS20,VS3OB3,0:B18:((&HF019OL8B));:BO"LOLSL:&HF018,SL:1000O0V:ANIMATEO<eHDP(3)Oef QZ3 1 1:DP(QZ)DP(QZ1): QZOqgDP(0)HOh QZ0 3: 11QZ,DP(QZ): QZOjT1(((&HE93)))15: T:(&HF011)1900:770HS20,VS3OB3,0:B18:((&HF019OL8)&%: A VCR TITLE GENERATOR FOR '&I: THE COLOR COMPUTER 2 OR 3 '&m: BY '&: GEORGE JURECKA '&: 101 EAST KABOT STREET '&: WEIMAR, TX 78962-1005 '&: COPYRIGHT 1992 ''2000', :*********SUBROUTINES*********'D B$:B$""11 :'^ :DRAW PMODE 4 SCREEN'r :1,B:"BM3,0"'A1 9:C$(A)""A$(64):23 :E(C$(A))'F(A)1 21 :F(A)0 KF(A)1:19 :K(21E)2:E2(E2) "BM+6,0":E20 21(G1 K:A$(0):G(pH1 E:I((C$(A),H,1))32:A$(I):H:"BM-255,+20;BR3":(C7 D1)11:B$"\"(wA(})(77,184)(180,192),,BF:"BM77,184"A$(99)A$(97)A$(92):A$(96)A$(91)A$(92):A$(95)A$(98)A$(91):A$(94)A$(93)A$(98)A$(100):):CONTROLLED INPUT ROUTINE LIMITS INPUT TO A GIVEN NUMBER OF CHARACTERS AND RETURNS THE OUTPUT AS D$)B$"":D$B$:A143:H46:IA) B$:@E,D$(A);:G(D$)34 :(G1(D$),H)(I);)"AA16:A271 A143*@$B$""32 :(B$(8)B$(13)B$(21))40 :G(D$)32*u&(B$)32 (B$)122 32 :D$D$B$:B$"":32*(B$(21)30 :B$(8)(D$)0 32 :D$(D$,(D$)1):32**@E,D$(G(D$),H)(I);:*,B1 B0 :B1*-1,B:+2:*********MAIN MENU*********+<4A(9):A2 52 :AA1+6A:@71," THE OPTIONS ARE: ";:A19:@32A100,(25," ");:@32A100,A;"- ";A$(100A);:+811:C(B$):C1 C9 52 ::C 100,200,300,300,500,600,700,300,900:52,.d:**********SHOW HIGH RESOLUTION SCREEN*********,Ce1,B:27:11:,d:***EDIT SCREEN ROUTINE****,ʇ@8,"SAMPLE TITLE SCREEN":@38,(142)(21,140)(141);:D0--DD1:D10 @358,(139)(21,131)(135);:207 :ED1:@E323,D:@E325,">";(138):C$(D)""@E328,(21," ");:205-w̅F(D)0 @E326((21(C$(D)))2)1,C$(D); :@E326F(D),C$(D)-͇@E3228,(133);:203. πA384 480 32:@A,(31," ");::@388,"ENTER LINE NUMBER (1-9).":@420,"H=HIGH RESOLUTION SCREEN":@461,"@=EXIT".Bс11:B$"@" :B$"H"12:27:11:0,0:209.yD(B$):D1 D9 209 :A384 448 32:@A,"":/Ւ282,0:@386,"ENTER TEXT FOR LINE NUMBER";D:@416,"":@453,"^-----TEXT LIMIT----^":@421,"";:@481,"SHIFT+0=UPPER/LOWERCASE TOGGL165,71),:(162,40),:(163,68),:(164,35),:(161,65),:(166,30),:(160,62),S(170,24),:(160,60),:(175,16),:(160,57),:(184,7),:(160,54),:(190,14),:(160,52),:(196,22),:(160,50),:(198,30),:(160,47),T(202,34),:(161,44),:(203,40),:(162,40),:(204,45),:(164,35),:(205,50),:(166,30),:(206,56),:(170,24),:(205,62),:(175,16),T(203,67),:(184,7),T T1500:Ui(136,7)(120,72),:(130,14),:(124,75),:(124,22),:(128,78),:(122,30),:(133,79),:(118,34),:(138,80),:(117,40),:(143,79),:(116,45),V (147,78),:(115,50),:(150,76),:(114,56),:(153,73),:(115,62),:(155,71),:(117,67),:(157,68),:(120,72),:(159,65),:(124,75),V(160,62),:(128,75),:(160,60),:(133,79),:(160,57),:(138,80),:(160,54),:(143,79),:(160,52),:(147,78),:(160,50),:(150,76),WI(160,47),:(153,73),:(159,45),:(155,71),:(158,40),:(157,68),:(156,35),:(159,65),:(154,30),:(160,62),:(150,24),:(160,60),W(145,16),:(160,57),:(136,7),:(160,54),:(130,14),:(160,52),:(124,22),:(160,50),:(122,30),:(160,47),:(118,34),:(159,44),X(117,40),:(158,40),:(116,45),:(156,35),:(115,50),:(154,30),:(114,56),:(150,24),:(115,62),:(145,16),:(117,67),:(136,7),X T1500:X:STRING BEAKX4,1Y^ (160,85)(150,76),:(160,85)(153,73),:(160,85)(155,71),:(160,85)(157,68),:(160,85)(159,65),:(160,85)(160,62),:(160,85)(161,65),:(160,85)(163,68),Y(160,85)(165,71),:(160,85)(167,73),:(160,85)(170,76),Y T1500:Y(:SET NAILS FOR BRANCHY27,1Z<(80,164):(100,166):(120,166):(140,168):(160,168):(180,169):(200,170):(220,171):(240,172):(260,174):(80,176):(100,176):(120,176):(140,176):(160,176):(180,176):(200,176)ZF(220,176):(240,175)ZP T1500:ZZ:STRING BRANCHZd13,1[n(80,164)(100,176),:(80,164)(120,176),:(80,164)(140,176),:(80,164)(160,176),:(80,164)(180,176),:(80,164)(200,176),:(80,164)(220,176),:(80,164)(240,175),\:x(260,174),:(80,176)(100,166),:(80,176)(120,166),:(80,176)(140,168),:(80,176)(160,168),:(80,176)(180,169),:(80,176)(200,170),:(80,176)(220,171),\b(80,176)(240,172),:(260,174),\r T1500:\:SET NAILS FOR FEET\7,1](170,164):(174,166):(164,180):(169,181):(175,180):(148,165):(152,164):(146,182):(151,183):(156,182)] T1500:](:STRING FEET]14,1](170,164)(164,180),:(170,164)(169,181),:(170,164)(175,180),:(174,166)(164,180),:(174,166)(169,181),:(174,166)(175,180),]܀ T1500:^](152,164)(156,182),:(152,164)(151,183),:(152,164)(146,182),:(148,165)(156,182),:(148,165)(151,183),:(148,165)(146,182),^m T1500:^:SET NAILS FOR MOON^7,1_3(256,16):(260,14):(263,13):(266,13):(270,14):(273,16):(276,19):(278,24):(279,29):(277,34):(275,38):(272,40):(268,42):(265,43):(262,43):(258,42)_C T1500:_U":STRING MOON_^,4,1_6(279,29)(256,16),:(277,34),:(260,14),:(275,38),:(263,13),:(272,40),:(266,14),:(268,42),:(270,14),:(265,43),:(273,16),`@(262,43),:(276,19),:(258,42),:(278,24),:(256,16),:(279,29),:(260,14),:(277,34),:(263,13),:(275,38),:(266,14),:(272,40),aJ(270,14),:(268,42),:(273,16),:(265,43),:(276,19),:(262,43),:(278,24),:(258,42),:(279,29),aT1620a%^:278,24),:(256,16),:(279,29),:(260,14),:(277,34),:(263,13),:(275,38),:(266,14),:(272,40),aJ(270,14),:(268,42),:(273,16),:(265,43),:(276,19),:(262,43),:(278,24),:(258@Ꮐπap8 ? ?poπ?x ?o?{pg?~À`~w?0`~a?8~pcympn~No>8h|c|ocwag~<8}cm|sp=w00`0Pv| ?>&78#>$$$H0hNT~No>8h|c|ocwag~<8}cm|sp=w00`0Pv|1##HH Z&1!&9CH 1,1992&d: SET BL AND KK FOR STORING&x 40: 50&( 0:: 65496,0:&2 65497,0&0123=>0$\ 405"9$\ ݝ9"SCREEN /NIB" !5%9o 1?@% o1?0 0@%9' &䆀1! ܎1?@$09o1?0 ~5@ˌ%9'5Öͧ٦'5Ö̪ &ֆ1! 'XXXX  TTTT 9@@%9 $ TPXPX PXPX PP PXP  PP  PPPPPPPPPPPPЀPX   PРPX    ЀPPPP(𠀠1 __p_( ppppppp          0                 ЀЀЀ 00Ѐ00PЀ0ЀЀ``pPЀ `pЀ pP0 P0Ѕ        ЀЀРp`pЀР`   p`0p0 Ч }  Ѐ     Ѐ p}  0Ѐ 0pp0 p0  p   g       Ѐppp  Ѐxppp   pxXh pppxpp   pppr  Ppx pK@PQ #)"    $\P@P Q@@x 0``0010& RESTORE& 32&" 1000&7M"MAKEDATA.DAT"&D(MD&HE00&L232&a< @12,"WARNING!"&F @98,"RUN THIS PROGRAM ONLY FROM A"&P @130,"BACKUP COPY OF PROGRAM DISK"&Z @323,"PRESS Y IF YOU ARE SURE!"&dI$: I$"" 100&nNT0:NS0'x I$"Y" 'NDMD';NDND1: (ND)255 140'GNDND1'^ (MD)255 230' (MD)254 390:MDMD1:160'NT(MD):NS(MD1):MDMD2'OT(ND):OS(ND1):NDND2' 0,OT,OS,A$,B$' 0,NT,NS,A$,B$'܁ 160( 0,17,12,A$,B$(-(A$,25,46)(46,255)(@ 0,17,2,A$,B$(N S3 8(d 0,17,S10,A$,B$(w 0,17,S,A$,B$(" S(,A$(128,255):B$A$(6 S9 11(@ 0,17,S,A$,B$(J S(T(^ "PROCESS COMPLETE"(h)r "SUGGEST MAKING A BACKUP OF THIS DISK")|)2 BLANK THIS SECTOR)X NS18 NSNS1 : NS1:NTNT1)qA$(128,255):B$A$) 0,NT,NS,A$,B$)255):B$A$(6 S9 11(@ 0,17,S,A$,B$(J S(T(^ "PROCESS COMPLETE"(h)r "SUGGEST MAKING A0`c0 `6 P00!  00)`00@` `( 00a``08`00` ` 00,` 0e20)0` L0f x P` `0 H@@(P@ ap`$: Q00 hP`A( 0` H<& Ho MCc$RHa@c11(P<`$6 `0(@0 (PX0A@@EfPP@aE3`(aA@ (ͨ`P$ S,(0`$( ~0E y7I D  ((3J)J1TR@ R*e1PT 0`U(l`J60(R-*(T @  U(0$J@R.P4 00$-((x0 Jh<`Ҁ\ 0 -(@ LHa` q(A@`` P 0EI F(a (JPc(J1 h`J00   0<$ 0 (`$` b <`$ 00$bh0:0`tI$lf``.{ P`$` S(0 d h@lv3 f`H) 0 It P `n0]M  "#&')*+-.012457889;;<<>>>???????>>><<;;987754210..-+*)'&$#"  """""#######""""   7J^r +Lo?qV(v!J/ 0 P C s_X`w&+ "$&)@+.M1L?#P0jßƟɟ0991PϦѦӦ՟9LëLƩLɩL̷ 1& ' Ǧ 9u&O9 (::(:(::(:JJ(J::J:J(J:JH(J:N:N(J:D:JJ"J22J2J"J2JH"J2N2J"J2@2D2 D2 D, , D2, D2 D2,D2 < @, D, @ <, : : :" :( :0 :: : " :( :0 @0@0@,@,@,6$6,:, <6@, D2H2J:H:"D:(@,@:2@:2@@"@(,:,2,@0@0@0$@(@0@60@0@0,$,$,$,$0$222"2"2(":2"JJ(J::J:J(J:JH(J:N:J(D:JJ:"J:2:2J:2J:"J:2J:H"J2N2J"J2@2D2 D2 D, , D2, D2 D2,D2 <@, D, D, @<, : : :" :( 0 :: : " :( :0 @0@,@,@,6$6,:, <@, D2H2J:H:"D:(@,@:2@:2@@"@(,:,2,@0@0@0$@0$@(@0@60@0@0@$ ,$0$222"2"  0" 0" 0":"0( 0 0$ , ,$,$0" 0"0" 0"0":(" 0( 0 0$ 0 ,$0 0 0" :" :( :0 :(::"6&6&2&6660606606660000@0 @ @" " @0( @:( @6((@4H4"H4(H4,D4,@4,>4>4>4>,&>6&>4&&>0D0D0(D,D,(D, @" H( H( H4H4"H4L4(L4L,ND>ND>N>&D>6&D>6&D>6D>6 D>6& >6&>6&JJ(J::J(J:JH(J:N:J(D:JJ:J:":2(J:2J:"J:2J:H"J2N2J"@2D2 D2 D, , D2, D2 D2,D2 <@, D, @<, : : :" :( :0 :: : " :( :0 @0@,@,@,6$6,:, <@, D2H2J:H:"D:(@,@:2@:2@@"@(:,:,2,@0@0@0$@(@0@60@0@0@$,$,$,$2$$2N2$R:2(T<2*X@2.ZPBZPB ZPB2ZPB2ZPB(ZPB2ZPBX@ ZB2^F2ZB T<2ZTB ZTBZTB$ZTB$ZTBZTB$ZTB XB Z@$ ^F$ ZB2 P8$ TTL8TL8$TLB$TLBTLB$TLBTLBTLB$< <B82B82B8 B82B82B82 B82( (( 2( 22( (( $$$$( (2( ((($$$$$(2&2(2(22 2*.***. . .( .( . .( . .(((8(88.8. 8. 8.8. 8. 8.8 8$@*<*8*6.6.$6*6*6$6*6<< <(<(<(8 @ @ @2( @2(@2(D<2D<2$D<2,F6.F6.F$<*<*<*<<*$*$*$J2P@.P@.(P@.(P@.P@(P@8N6P8(T<(P8P8(J2(P@8P@8P@8  P@8 P@8P@8 P@8N6P8 T<(P8(F.(JB2JB2 JB2**JB8*JB82JB8 JB8B82F*JB8J F B @6.@6.@6.$@6(@6.@6.@6@6.@6.$(@6.(@6.(F(F82 F82F82 <82$<82*@82* B<2 F<2 JB<$N<*P@8N@8J@8F@8 F@8(F@8.F@8F@8F8@  . F82F82$F82*82*F82*F82*F82*FF$F*2*2*P8*hPhPh^P(dP(dP(bP(^^X(Z(Z(T(XXP(T(T(N(PPF(F(F(F(hh^(d(d(b(^^X(Z(Z(T(XXP(T(T(N(PP8(8(8(8(NP8*hPhPh^P(dP(dP(bP(^^X(Z(Z(T(XXP(T(T(N(PPF(F(F(F(hh^(d(d(b(f@` P`S\` X` 0cv0 0`cP`0.0S`œ6I{0fPP((mvSPlh8 mvf*@(a6`PSi ,40kER  ` A 0(Nm@S@k @ `(' 9 `(Nkb($Hv S(E b((9  E DS^ A 0Aޫ{0 \d(PP$(27)(16)\ DP$(19)\6HL$(27)(28)\LFL$(27)(54)\bBO$(27)(31)\DM0:DE$NP$CI$CE$BO$:150,18:41601,0:41587,0:41583,0:]:SP,.:41594,13:41601,19:41587,21:41583,95:41591,32:80:1:218:32,12:"ALL FILES CLOSED":::]#ڀT110::T:].ہ 219][::T124:A$:T:T0 :ER$()::]ݞ:41594,13:40:3,0,U::" ";ER$();" ERROR ";"IN LINE NUMBER";:2,0:::"ALL FILES HAVE BEEN CLOSED":0,0::::^ ކ NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,/0,ID,TM,OS,LS,ST,CN,FD,AO,DN^e߆ IO,FM,NO,IE,DS,UF,NE,BR,DF,OB,WP,FN,FS,AE,FO,SE,VF,ER,DS,HR,HP^0:1:209:0,0:"This program part is not finished"::"Returning to Main Menu":1,0:T12000:T:15::::^ ކ NF,SN,RG,OD,FC,OV,OM,UL,BS@`0 !S )\{0S(@ S/T @\0S0S3I+.( U IH+ .j  (.ahg S0I S3&`P` ` h`P@R@ &v@$ S3v@ iJ@ # @ik 0  @bJp 0`@ `Q@S3`lL@J0 0) e+6(`()`1% S3 e+0 $0 {``  P  ^X ;`{02S3PI{a02`IL0{0 J@ i``@[0i(6h٢f S6@LR Bۀ@D@Rbf a 0Zc$  `0H @ (@~2Ia0  ccQP(ӉE:w {L~賈N88qAņ,Qj(bԝHNZ*a5?ߝ7ov ;/ϗ¾>]?[/phH߽U!:HxBs"厴I=xC gt[1͋x  q-&^ch=p0 pp008/         {  @ ?????yy?>?w``__``/??` `  o                                                                                                                         !!!!!!!!! ! ! ! ! !!!!!"""""""""                                 !!!!!!!!! ! ! ! ! !!!!!"""  L]Zڸڸڸڸڸۍڸڸڸ222 ] ޼޼޼޼޽1 P0P0P P0P0PPpP0PܾPܾ; P_PN<𠨠2P   .   J2  pP.ఘ ,  0ఐPpА  о pܰ޼똰P޼똰 а `p0Ppܾ   P  0P  аP P     p P   Pм  P 0 P P  P p P P  а PPаp P  p м p޼޼޼޼޼޼޼޼޼ аP ޼޼޼޼޼޼޼޼޼ްн ,  S. u   Pp  g 0ܿ@ c 0@0 0@0@  0 4@@A 0@@ 0@@`0#@ 04@P0P0p0PTT6PHNUJD%" DBN% D.WHUJD%" DBN% D&WH@@@$@ @ @H@@@@@@Ϊ$1(j`Bc D|@Dު$::@$c ' BtBKRD~i D@@DDܠQ  @{ JGAxP@BA{@A@.'H0$'JRd` $)@ p` )`  00p s (@ r (00 ()@` 123,125,127,129,131:FP,.:J4z: One line labelJ]{#2:#2:#2:T1:132:#2:#2:Js|: Two line labelJ}#2:#2,HL$:#2,FL$:T1 LL:132:T:#2,HL$:#2,FL$:J~: Three line labelJ#2:#2:T1LL:132:T:#2:K : Four line labelKK#2:#2,HL$:#2,FL$;:T1LL:132:T:#2,HL$:#2,FL$;:Kb: Five line labelK~#2:T1LL:132:T:K#2,DE$;A$(T);(27);(16);(0);(P(T));L$(T):KY3:T17:YY1:24,Y:(48,32):T:L: Screen print and other gosubs.L642,22:"PRESS BREAK FOR MAIN MENU":0,0:Ld39,3:"INPUT LINE NUMBER";LN:0,0:X,Y:L4,3:"SELECT CHARACTER STYLE LINE";LN;:0,0:218:ME51,13:2,0:"P R E S S":39,14:0,0:"[ ARROWS ] MANIPULATE THE CURSOR":39,15:"[ CLEAR: ] CLEAR WINDOW, AND PUT":51,16:"EDITOR IN DEFAULT MODE":Y17:147M51,Y:"AFTER EACH SINGLE LINE":Y18:147:51,Y:"1st EMPTY LINE: LENGTH":Y19:147:51,Y:"LINE 6: SAVE AND PRINT":39,20:"[ ALT: ] ALTERNATE EDITOR MODE"N)ED1 39,21:"[ SH.F2: ] SWITCH THE FIRST LINE"::NM39,Y:0,0:"[ ENTER: ]":0,0:N49,14:2,0:" P R E S S";:35,16:0,0:"RIGHT/LEFT ARROW FOR NEXT/PREVIOUS LABEL";:45,18:"[D] TO DELETE ";(253);:45,19:"[E] TO EDIT...";(253)O)45,20:"[P] TO PRINT..";(253):62,19:"THIS LABEL":0,0:O37,15:"RETURN ADDRESS PREVIOUSLY INPUTTED":218:44,16:"DO YOU WISH TO CHANGE":41,17:"YOUR PRESENT RETURN ADDRESS":48,18:"ES OR O":0,0:O40,3:2,0:"INPUT RETURN ADDRESS":0,0:P39,3:"LABEL NUMBER";I:0,0:PC1,0:T1321:35,T:(39,32):T:0,0:PED0 42,15:"1. SAVE LABEL / INPUT NEXT":0,0::ED1 42,15:2,0:"SAVING EDITED LABEL TO DISK":0,0:P42,17:"2. PRINT LABEL / INPUT NEXT":0,0:Q42,19:"3. HOW MANY .. / ";(125):0,0:QA45,20:"HOW MANY .. / ";(125):0,0:QvDM1IN$"6" IN$"2":DM1IN$"8" IN$"4":Q39,3:2,0:"EDITING LABEL NUMBER";I:0,0:RC43,13:2,0:"LOCATE LABEL BY LAST NAME":43,17:0,0:"ENTER SMALLEST NUMBER OF":44,18:"SIGNIFICANT CHARACTERS":46,19:"[ LAST NAME FIRST ]":0,0:Rx15,16:"1. LABEL# TO LABEL#";:0,0:RT1RT0:R47,16:"2. LETTER TO LETTER";:0,0:RT1RT0:S18,18:"FIRST LABEL:";:18,20:"LAST LABEL:";:27,23:3,0:"PRESS BREAK FOR MAIN MENU";:0,0S850,18:"FROM LETTER:":RT1RT0:SZ50,20:"TO LETTER:":0,0:S~33,14:"PLEASE SELECT:":0,0:T14,12:"INPUT PAST END OF FILE. THIS FILE CONTAINS";(1);"LABELS":12,14:"OR NUMBER ENTERED FOR LAST LABEL < NUMBER FOR FIRST LABEL":0,0:TH$(6)"PRINT LABELS: NO RETURN ADDRESS":H$(7)"PRINT LABELS: AND RETURN ADDRESS":H$(8)"PRINT RETURN ADDRESS LABELS ONLY":3,0:24,0:H$(S):24,1:(32,42):T218:20,14:"SECOND INPUT MUST BE GREATER THEN THE FIRST":0,0:UT13000:T:U=S(1,"ABCDEFGHIJKLMNOPQRSTUVWXYZ",S$):U[S(1,"0123456789",R$):U24,4:"ADDRESS LABEL NUMBER: ";I:0,0:U24,4:"RETURN ADDRESS LABEL:";R::0,0:U: Printer ready ?V_((&HFF22)1)0 :1:23,12:"P R I N T E R N O T R E A D Y":13,14:"TURN ON PRINTER - PROGRAM WILL CONTINUE AUTOMATICALLY":218:VLN1LL:CS(LN)((D$(LN),2,1)):S(1,D$(LN),"_"):L$(LN)(D$(LN),S1):L$(LN)(L$(LN),(L$(LN))2):191:LNW-S0:S(1,L$(1),"`"):S0 : L$(1)(L$(1),(L$(1))S)" "(L$(1),S1):WP: Set up editor default mode.WCS(LN)A:A1A2 AM32::A3A4 AM16::A5A6 AM38::AM19:X'0,0:T16:DW(T)DW(LN):CS(T)CS(LN):M$(T)"["((CS(T)),1)"] ":L$(T)(AM,127)" "(221):35,T5:M$(T):39,T5:L$(T):T:XQ: Switch first line around at comma.YA(1,L$(1),"`"):A0:B(1,L$(1),"_"):B0:C(1,L$(1),(221)):C0:L1$(L$(1),A1,B(A1))"`"(L$(1),A1)(L$(1),B,C):L$(1)L1$:39,6:L$(1):X,Y:"";:Y): Put printer codes into A$(LN)Y[ CS(LN) 192,193,194,195,196,197,198,199:YA$(LN)DE$:DW(LN)12:200:202:YA$(LN)IT$:DW(LN)12:200:202:YA$(LN)EL$:DW(LN)24:200:202:YA$(LN)IT$EL$:DW(LN)24:200:202:Z"A$(LN)CP$:DW(LN)12:200:203:ZMA$(LN)CP$IT$:DW(LN)12:200:203:ZxA$(LN)CP$EL$:DW(LN)24:200:203:ZA$(LN)CP$IT$EL$:DW(LN)24:200:203:ZL(LN)((L$(LN))DW(LN)):Z: Calculate printhead position.[P(LN)((390L(LN))2): : 10cpi[<P(LN)((468L(LN))2): : 12cpi[k: DMP130,131,132,133 Printer code module.[NP$(27)(18)[CP$(27)(29)[IT$(27)(66)(1)[CI$(27)(66)(0)[EL$(27)(14)[CE$(27)(15)\:D$(T)L$(T):T:SP,.:#1,I:FP,.:&HFF40,08:153:ED0 2,0:LN1:142:ACS(1):180:181:144:27 :ED1 2,0:152:148:T16:L$(T)(L$(T),(L$(T))2):T:ED0:738;: Get printer code for single line, editor gosub.9A(IN$):A1A8 60:180:M$(LN)"["((CS(LN)),1)"] ":0,0:L$(LN)(AM,127)" "(221):35,Y:M$(LN):39,Y:L$(LN):1,0:143:2,0:142:EP0:X39:42:?: Find specific label number.:@218:39,13:2,0:"PLEASE INPUT LABEL NUMBER":0,0:65,13:"";RN$:RN(RN$):RN0 65,13:" ":64;A153:IRN:I(1)218:2,0:39,13:"INPUT PAST END OF FILE":39,15:"THIS FILE CONTAINS";(1);"LABELS":218:170:64:IRN:148:70;AB: Find specific name. Search thru file.;{CRT1:56:160:282,255:41,15:"> ";NA$:LE(NA$);DRN1(1):SP,.:#1,RN:NA$(D$(1),3,LE)IRN:153:148:70;ERN:I(1):153:70;F#1,I:FP,0:RT1:56<GY5:T16:CS$(T)(D$(T),2,1):S(1,D$(T),(221)):L$(T)(D$(T),S):L$(T)(L$(T),(L$(T))2):M$(T)"["CS$(T)"]":YY1:35,Y:M$(T);:39,Y:L$(T):T<HI(1) 39,3:2,0:"L A S T L A B E L":62,3:"[ #";I;"]":0,0 :2,0:152= IP$:P$""73:282,255=-JP$(8) 80:P$(9) 81=bKP$"E" ED1:DF1:153:144:159:282,0:27=sLP$"D" 83>"MP$"P"LL((D$(1),1)):2,0:157:218:62,20:"";M$:M(M$):177:42,22:3,0:"NOW PRINTING LABEL NUMBER";:F1M:67,22:F;:121:218:F:148:3,0:141:73>+N73>PPI1 I(1):70 :II1:70>sQI(1)I1:70::II1:70>R: Delete a record.>SFD(1):(FD9)(FD9)FD(FD9):FD(FD9)1?*TFR(Z):FDFR 218:39,14:2,0,B:"DISK TOO FULL TO DELETE LABEL":0,0:170:153:148:73?U41598,255:39,3:218:2,0,B:"NOW DELETING LABEL NUMBER";I:0,0:#1,252 OF$:J1:SP,.:"D",#2,"TEMP/DAT",252:#2,252 NF$:II1(1):III 87?V#1,II:NF$OF$:#2,J:JJ1@WII::"LABEL/DAT":"TEMP/DAT""LABEL/DAT"@@X"D",#1,"LABEL/DAT",252:I(1) II1@^Y153:148:41598,3:70@rZ: Alphabetize.A [80:24,7:3,0:"S O R T I N G T H E F I L E";:24,8:(32,42):0,0:26,11:"1. SORT FILE BY LAST NAME":26,14:"2. ABORT. BACK TO MAIN MENU"A2\AP$:AP$"1"93:AP$"2"15:92A]:SP,.:41598,255:#1,252LF$:24,8:3,0:"N O W A L P H A B E T I Z I N G";:L(1):26,11:"THIS FILE CONTAINS";L;"LABELS":29,14:2,0:"P L E A S E W A I T";:0,0BK^I2(1):J1(I1):36,17:I;" ";J;:#1,I:R1$LF$:S1$(R1$,3,40):#1,J:R2$LF$:S2$(R2$,3,40)Bv_S2$S1$LF$R2$:#1,I:LF$R1$:#1,JB` J,I:FP,.Ba216:35,20:2,0,B:" D O N E";:170:0,0:216:41598,3:15Cb: Input numerical printing specifications. Get SL & ELC?c80:RA0:RT0:1:168:S7 RA2 :S8 RA1:112C\d2,0,B:166:161:218CeP$:P$""101:1,0:166:RT1:P$"1"2,0:161:102 :P$"2"2,0:162:106:2,0,B:166:218:101DJf218:33,18:S$:RT1:164:T1(S$):R$(S$,T,1):172:S0 (S$)0 218:33,18:" ";:102:T:SL(S$)Dg218:33,20:S$:165:T1(S$):R$(S$,T,1):172:S0 (S$)0 218:33,20:" ";:103::EL(S$)E6hEL(1)ELSL RT1:161:218:4,0:167:170:1,0:167:2,0,B:166:31,18:" ";:31,20:" ";:101:118Eui: Input alphabetical printing specifications. Get SL & ELEj218:63,18:S$:171:S0 (S$)1 63,18:" ":106 :SL$S$Fk218:63,20:S$:171:S0 (S$)1 63,20:" ":107 :FL$S$FPlFL$SL$ 2,0:169:170:1,0:169:63,18:" ":63,20:" ";:106FmSL0:EL0:RT1:56:I1(1):#1,I:SL0 (D$(1),3,1)SL$SLI :FL$"Z"EL(1):FL0(D$(1),3,1)FL$ELI1FnI:118Go : Retrieve return address from disk.GwpR1:2,0:174:F0:T1012:FF1:SP,.:Z,34,T,D$(F),D$(F1):FF1:T:FP,.:&HFF40,0:LL((D$(1),1)):RR1Gq177:Y5:LN1LL:YY1:24,Y:L$(LN):LN:RA1 115 :LN1LL:L1$(LN)L$(LN):A1$(LN)A$(LN):P1(LN)P(LN)::L1LL:115HZrY5:LLL1:LN1LL:YY1:L$(LN)L1$(LN):A$(LN)A1$(LN):P(LN)P1(LN):24,Y:L$(LN):LN:RT1 116HsRA2 116 :13,16:2,0:"HOW MANY RETURN ADDRESS LABELS DO YOU WANT TO PRINT":0,0:38,18:M$:M(M$):R1MHt2,0:174:121:RT1RT0::R:RA0:15Iu: Print labels:ImvISL EL:RT1:56:SP,.:#1,I:FP,.:&HFF40,0:LL((D$(1),1)):2,0:173:177IwY5:LN1LL:YY1:24,Y:L$(LN):191:LN:121:133:RA2 RT1:2,0:174:RR1 114:RR1:112:RR1IxI:RA0:15JySP,.: LL8&U: LABELPRC/BAS-RDOS Version 2.0 By: George Quellhorst. 06/24/1992 - 08/16/1992':80:2300:2,1000:ER$(41):&HF80F,0:&HF84F,0:&HF89C,0:0,1:1:18,12:"PLEASE WAIT, CHECKING DISK & DRAWING SCREEN":59078,51:282,255:SP65496:FP65497:SP,.:220'i1,63:2,27:3,54:8,63:9,1:10,27:11,54:12,18:(155)132 M"FONT/BIN":&HFF40,0:155,134(A 1. INPUT NEW OR ADDITIONAL LABELS,5. ALPHABETIZE LABELS BY LAST NAME,2. INSTALL RETURN ADDRESS ON DISK,6. PRINT LABELS; NO RETURN ADDRESS,3. SEARCH; SPECIFIC LABEL NUMBER,7. PRINT LABELS; AND RETURN ADDRESS( 4. SEARCH; SPECIFIC LAST NAME,8. PRINT RETURN ADDRESS LABELS ONLY,1. 10 CPI ................ <32>,,2. 10 CPI ITALIC ......... <32>,) 3. 10 CPI ELONGATED ...... <16>,,4. 10 CPI ELONGATED/ITALIC <16>,,,5. 12 CPI ................ <38>,,6. 12 CPI ITALIC ..........<38>,,7. 12 CPI ELONGATED ...... <19>,,8. 12 CPI ELONGATED/ITALIC <19>*E140,185:43350:Z(235):"D",#1,"LABEL/DAT",252:Z,17,2,A$,B$:(A$,68,1)(252)(A$,68,1)(242)11:(A$,68,1)(255)(A$,68,1)(252):Z,17,2,A$,B$:11*"GRANULE 67 ON THIS DISK IS PART OF AN EXISTING FILE"::"SINCE YOUR RETURN ADDRESS IS STORED ON THIS GRANULE"+3 :"THIS DISK CANNOT BE USED TO RUN THE LABEL PROCESSOR"::"PREPARE A NEWLY FORMATTED DISK AND RUN THIS PROGRAM"::+J : Draw Main Menu.+ &HFF40,0:205:176:#2,DP$;:FP,.:59065,57:4:59065,32:0:3:(18,1),"D E L U X E L A B E L P R O C E S S O R":(18,2),(43,42):2:(30,5),"M A I N M E N U",f Z$(252):1:T817:(0,T),Z$:(39,T),Z$:(79,T),Z$:::Y5:T14:A$,B$:YY3:(3,Y),A$:(42,Y),B$:, 3:(3,21),"P R E S S N U M B E R D E S I R E D / S P A C E B A R T O E N D":(3,22),(75,42):41591,96:15-: Display Main Menu.-6FP,.:59108,230:4:59108,231:65434,1:41594,13-IN$:IN$""16:S(1,"12345678 ",IN$): S 18,18,18,18,90,99,99,99,217:16-: Draw main input & edit screen..a80:1:6,0:3,0:"L A B E L P R O C E S S O R / P R I N T E R - E D I T O R";:6,1:(67,42)::T18:A$::Y4:T116:YY1:DM1Y16DM1Y202,0:0,0.A$:1,Y:A$::0,0:Y520:33,Y:Z$;:Y:5,22:3,0:"PRESS NUMBER DESIRED":141:35,5:2,0:"CRS":A1:180:181.(IN$) 21,23,64,67/&2,0:LN1:39,3:142:2,0,B:144:DF1:27/C: Input return address./SP,.:Z,17,2,A$,B$:&HFF40,0:FP,.:(A$,68,1)(242)2,0:150:282,255:24:25/P$:P$"Y"25:P$"N"15:24/RA1:DF1:2,0:151:1,0:150:144:270: The Editor0541594,95:EP0:X39:282,0:Y6:LN1:X,Y:"";0P$:P$(214)183:28:(342)191(343)191(344)191 28:P$""28:P$"_"EP1::0P$"_"LN6(L$(LN),X38)"_":39,Y:L$(LN):441(341)191 DF0:1,0:142:4,3:2,0,B:143:601V(X37)(L$(LN))P$"_"P$(8)P$"^"P$(10)218:281 P$(9)XX1 :P$(8)XX1:X39X39:2181!P$(10)UD1:YY1:Y11Y61"P$(94)UD1:YY1:Y6Y112#UD1 UD0:X39:LN(Y5):39,3:2,0:14222$P$(8)P$(9)P$(10)P$(94)422_%P$(12)DF1:ACS(1):180:181:272&(L$(LN),(X38),1)P$:P$;:(L$(LN),X37);:XX13+'P$"_"X40 TLN 5:(L$(LN),X39)P$:39,Y:L$(LN):YY1:LNLN1:T:183:Y11:LN6:X39:42 :P$"_"YY1:LNLN1:X39:Y11Y11:LN63^(EP1 DF0 1,0:142:4,3:2,0,B:143:603x)Y7 P$(95)1823*X,Y:"";:283+: Clean input window, print to screen. Create disk file.4,41594,13:T16:S(1,L$(T),"_"):S1 LLT1:45:T4U-LL$((LL),1):282,255:Y5:1,0:142:T16:CS$(T)(M$(T),2,1):YY15.R$(T)((L$(T))2,127)" "(221):N(1,L$(T),"_"):N$(L$(T),N):L$(T)N$(R$(T),(R$(T))(N$)):R$(T)(N$,(N$)1):39,Y:L$(T):CS(T)(CS$(T)):L$(T)LL$CS$(T)L$(T):5U/RA1 RA0:49 :153:0,0:154:ED0 155:156:51:515y0: Save return address to disk.671F0:SP,0:Z,17,2,A$,B$:(A$,68,1)(242):Z,17,2,A$,B$:T1012:FF1:Z,34,T,L$(F),L$(F1):FF1:T:FP,0:&HFF40,0:1,0:153:39,15:2,0,B:"DONE: PRESS BREAK FOR MAIN MENU":2196v2: Resave edited label, Save new label or Print new label.63ED0 I(1)1:52:5664P$:P$"1"55:P$"2"53:52652,0:155:2,0:156:218:61,19:M$:M(M$)76LN1LL:L$(LN)R$(LN):178:191:LN:B1M:42,22:3,0:"NOW PRINTING LABEL NUMBER";B:121::0,0:153:A1:180:181:144:3,0:141:2,0:LN1:142:27772,0:15478#1,42D$(1),42D$(2),42D$(3),42D$(4),42D$(5),42D$(6):RT1RT0:8+9T16$"N" 390/;^"Please type in the name of player 1": N1$/oh (N1$)12 "Your name is too long!": 350/r:"Please type in the name of player 2": N2$/| (N2$)12 "Your name is too long!": 3700A(2):::"I have decided that ";: A1 N1$ : N2$0*"will go first."0V:::"PRESS ANY KEY TO START": 445390_ 800v: DRAW THE SCREEN0 65497,00 2:30 4,1: 5,1: 8,1: 9,1: 10,1: 1,1: 0,1: 2,10 1,0:(0,132)(319,134),,BF:(0,174)(319,174),1^(65,134)(252,138),,BF:(0,144)(65,144),:(65,138),:(319,144)(252,144),:(252,138),1 8,0:(0,17),"PLAYER 1":(32,17),"PLAYER 2"1 9,0:(0,19),""N1$: 10,0:(40(N2$),19),""N2$1BS(NF2):FS160(14BS):NPNF:FFS:K02 (F,90),2,2:KK12- KNF 540 : FF14: 52029X1FS92&"BM"(X1)",90;S4C9;G5L10H10D10E10R10F5":(X12,90),9,9:(X15,89),2,020O2X1:O1X130:D184:D2962:(O1,D1)(O2,D2),13DX2F7:"BM"(X2)",90;S4C10;E5R10F10U10G10L10H5":(X22,90),10,10:(X25,89),2,036NO3X21:O4X230:D384:D4963MX(O3,D3)(O4,D4),23mb 8,0:(14,18),"YOUR TURN"3l"BM130,155;S8C4;L10U4G6F6U4R10U4"3v"BM172,155;S8C5;R10U4F6G6U4L10U4"3 8,0:(0,23),">>>Press the number of pieces to eat<<<"4((2,22),"Eat the last piece of food and "B$41,0:(0,0)(319,132),,B:(3,6)(316,132),,B: 8,3:(100,0)(210,6),,BF:(13,0),"COCO FISH NIM"4 8,63: 9,37: 10,54: 1,25: 0,0: 2,184 65496,04"T255L255"4 A 720,8205 ƅ A2 A1 : A2: 7005: PLAYER 15- 4,63: 5,15YI$: I$"" 740 : (I$)0 7405z (I$)3 740 : I(I$)5 LL1 I:V315 MM1 7:O1O12:O2O225 (O1,D1)(O2,D2),1,5"V"(V)";A":VV46 MM:NPNP1: NP0 EL1: 9206* LL: 7106&4: PLAYER 267> 4,1: 5,636cHI$: I$"" 840 : (I$)0 8406R (I$)3 840 : I(I$)6\ LL1 I:V316f MM1 7:O3O32:O4O426p(O3,D3)(O4,D4),2,6z"V"(V)";G":VV47 MM:NPNP1: NP0 EL2: 9207  LL: 71073: WIN OR LOSE7W 8,0:(13,5),"CONGRATULATIONS"7t B$"WIN." EL1 9807 B$"WIN." EL2 9807 B$"LOSE." EL1 EL2: 9807ʅ B$"LOSE." EL2 EL1: 9807ԅ EL1 N$N1$ : N$N2$8(20((N$)2),7),""N$8N FX1 A0(0) : G1 255 10: G,1: G8^ FL1 108 EL1 9,0: TT1 50: TT: 9,378 EL2 10,0: TT1 50: TT: 10,548 TT1 50: TT: FL9  8,0:(1,13),"Would you like to play again? (Y or N)"9$$I$: I$"" 10609D. I$"N" 80:1: : 2509X8: OPTIONS MENU9BA1(1):"OPTIONS MENU":"------------"9L:"Number of pieces of food on the screen:"::13)">>>>";NF;"<<<<":V:"Enter pieces of food (ENTER=no change)":"Range can be 5-15.": TE:+` TE0 1140:XjTE(TE): TE5 TE15 1110 : NFTE:}t:"Take the last piece and "B$:~"Change this ? (Y or N)":I$: I$""1160: I$"N" : I$"Y" 1160; B$"LOSE." B$"WIN." : B$"LOSE."; ; A&H400 &H43C: A$: A,("&H"A$): A: BD,B3,ED,5D,27,36,F7,04,1D,4F,B7,FF,D9,86,36,B7,FF,A1,5F,8E,20,00,A6,84,81,20,2F,08,80,00,A7,84,C6,01,20,04,86,20,A7,84,30,02,8C,2F,00,26,E7,C1,01,27,DF,86,79,B7,FF,A1,4F,B7,FF,D8,39<1&H400: ; A&H400 &H43C: A$: A,("&H"A$): A: BD,B3,ED,5D,27,36,F7,04,1D,4F,B7,FF,D9,86,36,B7,FF,A1,5F,8E,20,00,A6,84,81,20,2F,08,80,00,A7,84,C6,01,20,04,86,20,A7,84,30,02,8C,2F,00,26,E7,C1,01,27,DF,86,79,B7,FF,A1,4F,B7,FF,D8,39<1&H40  p p))$ p@@" (p `@@j`|P( @@ p r(" P(0@ @) @P`@ p@ )@ @ (p@ s@ P(" @@ @$r@ (( @ ()`@@ P@ x p))@ `p`@` @ 0 $"  0  рC * H B0㢀1*fh:Bǘ<a{ c͘<!ES(<c lBZ  (jP@*}; 0< < a>t0`$0: e@WV]2jQj(RE(0d#1\@HB "XP? @w`?0 }}p Wҿ ------------------------------------------------------- PREPARED BY GODFREY J. MOLL FEBRUARY 12,1993 1751 EAST ERIE APT 103 SPRINGFIELD, MO 65804 BLUE GREEN BLUE GRAY BLUE ---------------9=<`880 8 8888;qs;8|>p`?;`?= =   =  0= p``888808  88s ? À8π>0?>0<p<p<p``8 988>1π8 93<q?q`x0`p18???  o?$&6 ( 3&64$DT0dTHgL???  o?$&6 ( !?@   ?F`) r@rx i`) F'007@@L2׷#@BLvPo1@@ <cPV ǒP  v`pl`f> (0 p0A6`†5Z3@||f(?@ w@p 0A 55VJ@ 6 @3}q0  t0 3:@ la˥P R8paҥ #0ll aboӥ`4),`08p>`8 3cg!  arxrf`?@3T ;',g$'@  80 S:(+?:(2@:(9A:(BFFX1(IG:(PH:(WI:(^J:(eK:(P FX1 65496,0:M"QP":0&H0500(Z 1,300: 2,300(_ 5000(d FX1 PD3:SA3584:EA9727: 120: 140 : 140)n: DETERMINE AND POKE NEW ADDRESSES FOR VOICE)VxS1(SA256):S2SA(S1256):E1(EA256):E2EA(E1256)) &H51A,S1: &H51B,S2: &H52C,E1: &H52D,E2:) 2:0: 2,0::(9,5),"W E L C O M E T O")A$"U16F16U16BR16D16BR16U16F8E8D16")Y120: X20 40 5*$"BM"(X)","(Y)";C1S16"A$: X*Y 2,0:(4,17),"A game of strategy on the CoCo 3"* FX1 65496,0: (3584)238 M"WELCOME"*ȅ FX1 EA6800: 120 : TT1 1000: TT: 230*Ҁ PD3 38 5: &H524,PD:A0(0): PD+2ܒ &H524,30:EA9727: 120:A0(0): 65496,0:M"CONGRATS"+E: ACTUAL GAME+YNF8:B$"LOSE."+ 40:"Do you need instructions ? (Y or N)."+I$: I$"" 260 : I$"N" 320 : A1(1),"This version of NIM is called FISH NIM."::"NIM is a strategy game. Your and your opponent will see a certain number of pieces of food on the screen. You both are fish at either end of the food."-j:" You take it in turns to eat the food. During your turn, you may eat one, two, or three pieces of food. Depending on the settings, taking the LAST piece of food will cause you to winor lose."-":"When it is your turn, press the number that is the number of pieces of food youwant to eat. You'll need to think aheadin order to win!".P,::"Press M to see the options menu or any other key to begin the game.".6I$: I$"" 310 : I$"M" 1080:A1(1): 270.@: GET PLAYER NAMES.JA1(1):"Do you need to change player names?(Y/N)""/ TI$: I$"" 340 : I CoCo Max III COLOR GUIDE for RGB Monitor ---------------------------------------------------------------------- 00 01 02 03 04 05 06 07 BLACK CORN YELLOW LIGHT MAROON BLUE SPRING OFF FLOWER GREEN BLUE VIOLET GREEN GRAY BLUE ---------------------------------------------------------------------- O8 09 10 11 12 13 14 15 NAVY AQUA- GRAY LIGHT MIDNITE SKY LIGHT OFF BLUE MARINE BLUE BLUE BLUE BLUE GRAY BLUE --------------------------------------------------------------------- 16 17 18 19 20 21 22 23 FLAT SEA YELLOW LIGHT OLIVE FOREST GREEN GREEN GREEN GREEN GREEN GREEN GREEN GREEN YELLOW TINT ---------------------------------------------------------------------- 24 25 26 27 28 29 30 31 BLUE PERIWINKLE YELLOW OFF GRAY BLUE YELLOW WHITE GRAY TINT WHITE GREEN GRAY ---------------------------------------------------------------------- 32 33 34 35 36 37 38 39 MAGENTA THISTLE MAIZE GRAY ORANGE CARNATION APRICOT LAV- TINT RED PINK ENDER ---------------------------------------------------------------------- 40 41 42 43 44 45 46 47 LIGHT VIOLET VIOLET BLUE PINK LIGHT FLESH LAV- PURPLE BLUE GRAY TINT LAVENDER ENDER TINT ---------------------------------------------------------------------- 48 49 50 51 52 53 54 55 FLAT GREEN LIME DAQUIRI LIGHT BIEGE LEMON YELLOW GREEN GRAY YELLOW GREEN TAN YELLOW GREEN TINT ---------------------------------------------------------------------- 56 57 58 59 60 61 62 63 TEARDROP BLUE VAGABOND WHITE SWEET- ASH APRIL WHITE VIOLET BLUE BLUE CLOVER ROSE YELLOW RED RED ---------------------------------------------------------------------- * Color Names are from Jim Beltramo's Program "HGRCOLOR/BAS" Standard RGB Palette SLOT 0 1 2 3 4 5 6 7 63 54 46 38 25 16 15 56 WHITE LEMON FLESH APRICOT PERIWINKLE FLAT OFF TEARDROP YELLOW GREEN BLUE ---------------------------------------------------------------------- SLOT 8 9 10 11 12 13 14 15 07 34 40 32 10 02 09 00 OFF MAIZE LIGHT MAGENTA GRAY YELLOW AQUA- BLACK GRAY PURPLE BLUE GREEN MARINE PRINTING YOUR PICTURE IN BLACK/GRAY/WHITE SLOT 0 1 2 3 4 5 6 7 WHITE <------------LIGHT GRAY-----------------> MEDIUM GRAY ---------------------------------------------------------------------- SLOT 8 9 10 11 12 13 14 15 <--------------------------DARK GRAY---------------------> BLACK THIS ASSIGNMENT IS VALID REGARDLESS OF THE ACTUAL COLORS IN THE SLOTS. ** PAGE 36 CoCoMax III User's Manual --------------------------------------------------------------------- STANDARD CMP PALETTE (COMPOSITE MONITOR OR COLOR TV) SLOT 0 1 2 3 4 5 6 7 63 51 40 38 46 33 43 32 WHITE DAQUIRI LIGHT APRICOT FLESH THISTLE BLUE MAGENTA GREEN PURPLE TINT ---------------------------------------------------------------------- SLOT 8 9 10 11 12 13 14 15 16 20 08 06 13 14 11 00 FLAT OLIVE NAVY SPRING SKY LIGHT LIGHT BLACK GREEN GREEN BLUE GREEN BLUE GRAY BLUE ---------------I&k :LOADER FOR BOURREE, TRANSCRIBED USING MUSIC3+ PROGRAM BY GEORGE QUELLHORST IN RAINBOW 4/91 PAGE 10.&}12,63:13,40':@103,"BOURREE IN E MINOR":@174,"BY";:@229,"JOHANN SEBASTIAN BACH";:@323,"TRANSCRIBED BY: ROY ATKINS";:@422,"PRESS ANY KEY TO PLAY":44539'0M"BOURREE/BIN":&HFF40,0'H(65497,0::65496,0LLHORST IN RAINBOW 4/91 PAGE 10.&}12,63:13,40':@103,"BOURREE IN E MINOR":@174,"BY";:@229,"JOHANN SEBASTIAN BACH";:@323,"TRANSCRIBED BY: ROY ATKINS";:@422,"PRESS ANY {|.?~{K@'鞛O~mou?ϱF(t4O~bv|׀?|߀5q:p{ϟL?\3n5;흡 rːXp2s~@?;xOCߵf1|ߤ?َ6_p<nm`8Y/߇^@wy~#{߃g 39{iOO[a{e|ߏ o;|.;<{!o??!{>8}v>Ϗ;|3Ma @ >: 8:> 048 : 6 2 0,( &(,0,(&" ":> @ >: 8:> 048 : 62 0,(&&&(@( (:> @ >: 8:> 048 : 62 0,( &(,0,(&" ":> @ >: 8:> 048 : 62 0,(&&&(@( (0, 6,2 0@6 :06 20, *",0 2"0 , ,,,,,,6, 0@6 :06 2D: >4: 64"0".&.&.&.000000 0 H> B">: D:@ >:6 @6< :D: >4 : 880000:022"6&,$00 2"(", ,0 & ( &" "&((&"@" 0, 6,2 0@6 :06 20, *",0 2"0 , ,,,,,,6, 0@6 :06 2D: >4: 64"0".&.&.&.000000 0 H> B">: D:@ >:6 @6< :D: >4 : 880000:022"6&,$00 2"(", ,0 & ( &" "&((&"@" " N>: D:@ >:6 @6< :D: >4 : 880000:022"6&,$00 2"(", ,0 & ( &"  $&'*+,-./05678 BOURREE BAS LBOURREE BIN!<CATTRAX1BAS"CD BAS#)CM3PALETTXTCONGRATSBIN% FISHNIM BASFONT BIN(LABELDOCTEN)LABELPRCBASMAKEDATADATMEMORIESBAS1MEMORIESBINgPRINT MEBAS2PRINTME BAS3QP BIN;RESTORE BASSTRING6 BAS4)TITLE ATS VCRTITLEBAS WELCOME BIN WPVSDB TXT   *3CCLITENIB.*3MESS NIBERICMIKENIB NIBLOADRBIN`NIBSHOW BASSELFPORTNIBWATERFALNIBq&W 80:65497,0:2:X222:1,X:0,6:(78," ");::X321:3,X:0,4:(74," ");:&|15,32: 282,0: LOWER CASE POKE&12,5:3,7,U:7,0:"W H E R E I N T H E W O R L D I S C O C O C A T ?";:3,4:" ";'8,7:0,4:L717:L$:14,L:L$;::8,19:7,4:"Follow his tracks by answering the questions and collecting clues.";:29,20:"-=PRESS ENTER TO PLAY=-";:3,4:" ";(U( "Since The RAINBOW has faded and now gone away,","Our mascot, the CoCo Cat, has no place to stay."," ","He's abandoned; he's orphaned; he's now all alone!!","He's looking all over for a new, friendly home.")2 " ","Now we have the place and we'll invite him right in.","We, the CoCo Friends, will have him purring again!"," ","But where in the world did that sweet kitty cat roam?")I< "Let's follow his tracks, find him, and give him a home!!!")VA65496,0)nF44539:5:0,0:0,4)x2000)1220:1220)C$"!w1QhAZv2WiSX#j3lEDCk$4RbmFVg%n5cTGxBo&f6YuHN'e7UJpM(8aIdKy<,)9rOL.>z0P;s+/?:*-q=t@ "(34)*D$"ZXCVBNM,<.>/?zxcvbnmASDFGHJKLasdfghjkl;+QWERTYUIOPqwertyuiop@1!23#4$5%6&7'8(9)0:*-= "(34):E$"/.,MNBVCXZmnbvcxz;LKJHGFDSAlkjhgfdsa@POIUYTREWQpoiuytrewq-:0987654321!#$%&'()*=+<>? "(34)+K$"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ^1234567890:-=!#$%&'()*@;+,<.>/?"(34)+"To find this month's clues, answer this question:"::"What is the first name of the artist who originated CoCo Cat? ";,$CC$"":CC$:N1(C$,(CC$,1)):N2(C$,(CC$,2,1)):N3(C$,(CC$,3,1)):N4(C$,(CC$,1)),[.N11N21N31N41N185N285N385N4851,4:"IMPROPER ENTRY":X1600::1060,8C$(C$,N1)(C$,85N1):D$(D$,N2)(D$,85N2):E$(E$,N3)(E$,85N3):K$(K$,N4)(K$,85N4)-,BI$"":C0:CM$"7d-L"(34)"wl4z')YK%lXtZQ!28fqN*anI@@2,3V*M@9Ix7jtF?'aFBJnzBM/vy3HVM)K4OsQzPA"-2L-MV65497,0:N1 (CM$)-l`L$(CM$,N,1):I(K$,L$)-jL$(E$,I,1):II(E$,L$):I(D$,L$)-tLL$(C$,I,1)-~LL$;-C$(C$,II)(C$,85II)-"T255L255C":N:65496,0-CM$(NB)DM$.c::"IF YOU CAN'T READ THIS, PRESS SPACE BAR TO TRY AGAIN. PRESS BREAK TO END":44539::1020.v44539:I$:.I$:I$""1210:(C$,I$)01210:.Ē65496,0:32:: 282,255:"FIND MORE CLUES NEXT TIME. BYE."N:65496,0-CM$(NB)DM$ &&$:****************************&G:* CD/BAS *&j:* MUSIC FILE LOADER *&:* (C) MARCH 24, 1993 *&:* BY *&:* LESLIE WALTZ *&:* 720 CARVER ST., N.W. *':* MASSILLON, OHIO 44647 *'<:* FOR CFDM FRIENDS *'_ :****************************' :40: 5000:CM$(10),FD$(35),FT$(35),FX$(35),F$(35),NM$(5):CR$"=>":CT0:DN(235):M1:FP65497:SP65496:&HF80F,0:&HF84F,0:&HF89C,0:250:420(3:((65314)1)1 40(X230,1:12,11:7,4:"TURN OFF PRINTER";:J1500:J:20(u(J110:D$:CM$(J)D$:J(2D$: D$"XX" NM$(M)D$:MM1:50)<:14,2:3,2:"CoCo DISK";:13,4:"DIGITAL MUSIC";:12,6:"Transcribed by:";:3,20:"Scanning directory...please wait.";)FY7:J1(M2):X20((NM$(J))2):YY1:X,Y:NM$(J):J:19,Y1:"&":(20((NM$(M1))2)),Y2:NM$(M1))PSP,0: DN:CT0:J311: DN,17,J,A$,B$)ZC$A$(B$,127):F$(0)(C$,8):FX$(0)(C$,9,3)*(dK17:F$(K)(C$,K321,8):FX$(K)(C$,9K32,3):K*3nK07*[x (F$(K),1)(255) FP,0:190*x (F$(K),1)(0) K* FX$(K)"BIN" CTCT1:FD$(CT)F$(K):FD$(T)FD$(CT)*CT34 170 : K*J*J11000:J*FP,0+J: CT1 1,11:3,3:"There are no music files on this disk!";:3,2:J12500:J:SP,0:+4,0:"Use arrow keys for selection...":11,2:"then press ";:3,3:" ENTER";:8,22:3,2:"Press ";:3,3:" BREAK ";:3,2:" to quit.",X4:Y3:CT0 : J1CT:220:X,Y:FD$(J):J:1,4:CR$;:260,4܅ J18 X4:YJ3,T J35 J17 X24:YJ14,Z,SP,0:::230,1:12,11:"Hope you enjoyed!":200:A2000:44609 A:0,0,1,A$,B$:113,0:- X1:Y4:C1:270:F1$FD$(SE):230,1:X,Y:" ";:1,4:CR$;:16,21:F1$;:430-44539:S$:S$(8) 370 : S$(9) 350 : S$(10) 280 : S$(13) 400 : S$(94) 310 : 230,1:270-X,Y:" ";: CCT 390 :DOWN-"CC1:YY1: CCT1 Y21 XX20:Y4-,390. 6X,Y:" ";: C1 390 :UP..@CC1:YY1: C17 X1:Y20.EJ C34 X21:Y20.OT390.^X,Y:" ";: (C17)34 (C17)CT 390 :RIGHT.hCC17:XX20:390.rX,Y:" ";: (C17)1 390 :LEFT.|CC17:XX20.X,Y:CR$;:270/SEC: :ENTER/ 270/PSP,0::10,13:"Program halted by error#";;" in line ";:/c:16,11: F1$/n SP,0/M F1$"/BIN":"P1"/€T11500:T:460::510/̒FP,0:/X((10))/SP,0/T11500:T/020((CM$(X))2),11:CM$(X):J11500:J::2000r "PRETTY NEAT, HUH?","CLASSY!","FEEL BETTER NOW?","SWEET...","PLAY IT AGAIN, SAM!"0 "HOPE YOU ENJOYED","HOW ABOUT ANOTHER NUMBER?","THAT WAS JUST FOR YOU","ONE MORE TIME","ANOTHER CLASSIC"1% "Herb Schuler","Ray Berney","MUSIC3+ by George Quellhorst",XX NEAT, HUH?","CLASSY!","FEEL BETTER NOW?","SWEET...","PLAY IT AGAIN, SAM!"0 "HOPE YOU ENJOYED","HOW ABOUT ANOTHER NUMBER?","THAT WAS JUST FOR YOU","ONE MORE TIME","ANOTHER CLASSIC"1% "Herb Schuler","Ray Ber ]E]|p | |  ]E]| p| ߰W]p|p|p| T EPp]| |p|pp߰K P@MO_]p]|pxp߰K ]@p p p K ]@Pp}p| pߺ@Pppp}@MOW ]_|p |TOp]pppppTMOW 9 _pxp}MOMOPpy9px MOW9]_+p MOPp]ppxppߐpy9-pxp $p9 p'pOM $ 9 ߐOW/ pM  $p_/𐏒ߐ$p9 'ߐ$9 9 pM]O9 9 ptߐ$ߏ/ 'M]O9ߏm 9)M$߿ 9pM $ p@M$9 )' O@O9  9)@M) O9ߏ 9@M $ 9)px@$9ߏ 9M $9ߏ 9)@M $9ߏ 9@M $_ߏ 9p @M@ @O 9) @Op pp)r) @p9 p 9x@M@ )$p9ߏp ) xMpp9 pppp@M@p/Ep9 p@M  /E pxx 9 I1lJ`HtJ1 I:̖6Q0`Df1B`f1lf610"ENyJi @@@@@@@@@@@@@O@ת@f@F@.ܷ@;@s@[@v_p@>@<@tws:@U"@@~yPA@ a@a`@ *cl@K@@Y&$@g0@$@vw!@?0@@@1@@@`@s&@@,p@,p@²²¶¾?-h@p-`h@8@8#BĒ@Q@@2X@@ @@ @  @  @  @fp @ 0 @A @Ap @C.@ @0M!@@!@ @@@ 8@@16 EC@7 P@E@ @{#  @@ p@1(0 @&r3@ @X Pɀ!?>@ 0$"N7@0xx000llllllll0|x 00f8l8vv00`0```0`00`f<x00000x xflxlf```bf8ll8ff|``xxff|lfxxx0000xxx0l88lx00xƌ2fx`````x`0 xx8l00x |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0` 0 f3f30 0&f` 00x |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0` 0 f3f30 0&f` PH0V_:s@ (/r@@eM*n)2@ cuG@(:ü@kA{S@@0 ?@fV d@}P(-:h@`0@0 f`@6< P^2O`@6@^]<@|4 tI(`@3{;@pI.0(7`@`ep ;(0_3<ǍP`>1`@?P 81@= Ӟp 8pR@w?{( < ۀh N8 < @Z?@)0DCǀG(pc@֍?Ԇ$(0A@`3]x p!@g߳X>@( pB cH@@ B"nw@ y B9p:#@xD Dlž#@ HtG 3 nb@Hx5aن@ @M~X0`0<,b@+N& 7 P@HK~q>laP준MA]z@c6g`2Al$a@M>= 3`P@D0"W@ P<J~@mmHd0 L 9~M@  L>nߞ@Ϲ~0pA$@^P`08@ `Ts@'@~G(@D0s(Gz<@ CHAPTER X DELETE A RECORD: Lines 83-89. Once a record has been placed on the disk, it can not be deleted, the file as a whole has to stay intact. It is therefore not possible to just delete a record from your file. But of course this computer has done many a thing it's designers said it could not do, like playing music in four part harmony for example. There are two ways one can actually delete a file. The first one would be to erase the record that is there, fill it with spaces, and put some kind of marker in the record, like an "*" on the first line for example, to let the computer know that that record is empty. This would work, except that you would end up with a file partially filled with empty records. A better way to delete a record is to copy the file and omit the record we want to delete while the file is being copied, and that is the way this program deletes a record. It stands to reason that if you are going to copy a file to the same disk there has to be enough room on the disk to hold another file that is the same length as the LABEL/DAT file on your disk. It would be nice if we could program the delete function to check if there is enough room on the disk to delete a file. However, while we can check, within a running program how many free granules are left on the disk, we cannot check how long a particular file is, or can we.? Well, since every problem has a solution, I figured out a way to do this. First I determined just exactly how many labels would fit on one granule of disk space. (Nine). Now line 83 checks and makes sure there is enough disk space to delete a record. 83 FD=LOF(1), LOF(1) as you should know by know is the amount of records in a file. We must now divide this number by nine to get the amount of granules our file takes up on the disk. IFINT(FD/9)=FD/9 THEN FD=INT(FD/9) ELSE FD=INT(FD /9)+1. We want to make absolutely sure that there is enough room on the disk, therefore if INT(FD/9) does not equal FD/9 it means that we have an amount of records in the file that is not divisible by 9. A file with 27 labels would use up 3 granules of disk space. But since a granule cannot be broken down into smaller units, a file with 28 labels would use 4 granules of disk space. Therefore, if INT(FD/9)<>FD/9 we add one granule to FD the variable for the length of the file in granules. Line 84. FR=FREE(Z) gives us the amount of free granules on the disk being used. Therefore, IF FD>FR, it means that the file is larger than the disk space available, the computer prints a warning message, stating that the disk is too full to delete a label, and returns to the edit menu. Line 85, disables the break key while we are deleting a record, just in case, (POKE41598,255), and prints a message to the screen stating "Now deleting label number XX". Since we want to transfer the entire record at once to the new file, we re-FIELD the file, giving each record a single variable, FIELD#1,252 AS OF$. OF stands for Old File. We also OPEN a new file called TEMP/DAT....... OPEN"D", #2,"TEMP/DAT,252:FIELD#2,252 AS NF$ (New File). Now we are ready to copy our Old File to this New File. When you pressed the letter "D" to delete a label, the record number of the label you wanted to delete was contained in the variable "I". Therefore, we must preserve this variable so that the computer will know which record to skip over while it is copying the file. Writing a Label Processor Page 50 We will use the variable "II" to set up a FOR NEXT loop to go thru the entire file one record at a time, line 85: FORII=1 TO LOF(1). If II=I it means that the next record we would GET from the disk is the one we want to delete. Therefore, IF II=I THEN 37. Line 37 contains the NEXT II statement, therefore the copy process is skipped over, we get the next record instead, and the label we wanted to delete is gone. If II does not equal I, we proceed to line 86. Line 86 GET's the record in the old file from the disk, LSET's and FIELD's it, and places it in the NEW file called TEMP/DAT. GET#1,II: LSETNF$=OF$. LSET's the New File equal to the Old File, PUT#2,J:J=J+1. "J" is the counter for the records in the NEW file, it was set to equal one in line 85 and each time we PUT a record in the NEW file. we increment "J" by "1". Line 87 finishes the job. NEXT II: as soon as II equals LOF(1), the FOR NEXT loop has run it's course, we give the UNLOAD command to close the two open files on the disk, LABEL/DAT and TEMP/DAT, we KILL"LABEL/DAT" and in the same line RENAME "TEMP/DAT" to "LABEL/DAT" and presto, the record is deleted, the file stayed in alphabetical order, and all is well. Line 88 opens up the new file, we closed it with the unload command, checks to make sure that "I" is not greater than LOF(1), which it would be, if you deleted the last record in the file, since the file is now one record shorter, and if it is subtracts "1" from the value of I. Line 89, besides doing some printing and erasing of screen messages, check the GOSUBS, brings the program back to line 70, which GET's record number "I" from the disk and displays it in the edit window. ALPHABETIZING THE FILE. alphabetizing a file in BASIC is a long and drawn out process, Look at the chart below were I timed the process for a file containing 70 labels. 43 Minutes and 24 Seconds using standard RS-DOS. 30 Minutes and 45 Seconds using EXTENDED ADOS 3. 3 Minutes and 57 Seconds using a RAM DRIVE. YES, THREE MINUTES 57 SECONDS ! If you do not have a ram drive and have a long file to sort I suggest you press the "Y" for yes at the prompt and go get a Dairy Queen or something, if you are lucky, it may just be finished by the time you get back. The disk IO consumes most of the time needed to sort the file, that is why the ram drive is so much faster. each record has to be retrieved from the disk and compared to another one to see if it is in the correct order on the disk. Note that, before you can sort a file, you MUST have entered the first line on the label so that the file can be sorted, see pages 25 and 26 of this article. Before we go into the actual program I would like to explain how the file is sorted, it will make it easier to follow the program later on. Record number 1 is retrieved from the disk, and the first line of the label is placed into a variable. Now record number 2 is retrieved from the disk and the first line of record number two is placed into another variable. Now that the first lines of both records are contained in a variable we can have the computer check which one of the two is smaller. ( See page 47 in last months article). If record number 2 is smaller than record number 1, the two records are switched around, that is to say, record number 2 becomes record number 1 and record number 1 becomes record number 2. Writing a Label Processor Page 51 In either case, once this first operation is completed record number 3 is retrieved from the disk, the first line is placed into the same variable as record number 2 was placed in earlier, and record number 3 is compared against record number 1. If record 3 is smaller than record number 1, the two are once more switched around. This process continues, until each record in the file has been compared against record number 1. 69 operations in a file containing 70 labels. After all that is done, the only thing we have accomplished is that record number 1 is now in the correct place, the rest of the file is still utter chaos. The next step, you guessed it, we get record number 2 from the disk, place the first line into the variable record number 1 was in earlier, we get record number 3 and compare it against record number 2 etc. 68 more operations and record number two is the correct place. In a file with 9 labels we will generate the following sequence to sort the file: COMPARE: 1 and 2, switch around if needed ..... 1 and 3 switch around if needed. 1 and 4, switch around if needed ..... 1 and 5 switch around if needed. 1 and 6, switch around if needed ..... 1 and 7 switch around if needed. 1 and 8, switch around if needed ..... 1 and 9 switch around if needed. 2 and 3, switch around if needed ..... 2 and 4 switch around if needed. 2 and 5, switch around if needed ..... 2 and 6 switch around if needed. 2 and 7, switch around if needed ..... 2 and 8 switch around if needed. 2 and 9, switch around if needed ..... 3 and 4 switch around if needed. 3 and 5, switch around if needed ..... 3 and 6 switch around if needed. 3 and 7, switch around if needed ..... 3 and 8 switch around if needed. 3 and 9, switch around if needed ..... 4 and 5 switch around if needed. 4 and 6, switch around if needed ..... 4 and 7 switch around if needed. 4 and 8, switch around if needed ..... 4 and 9 switch around if needed. 5 and 6, switch around if needed ..... 5 and 7 switch around if needed. 5 and 8, switch around if needed ..... 5 and 9 switch around if needed. 6 and 7, switch around if needed ..... 6 and 8 switch around if needed. 6 and 9, switch around if needed ..... 7 and 8 switch around if needed. 7 and 9, switch around if needed ..... 8 and 9 switch around if needed. To give you a visual idea of where the program is at, the two numbers being compared are printed on the screen while the program is sorting the file. Now that you have an idea how we sort the file, let's take a look at the code itself. Lines 91 and 92 print a short menu to the screen, this is your standard "OOPS" goodie, just in case you pressed the wrong number and did not want to sort the file at this time. It gives you a change to return to the main menu and abort the sorting process. Line 93: The first thing we must do is re-FIELD the file since it is presently FIELD'ed in six parts, one variable for each label line. FIELD#1,252 ASLF$ does the job. A message is printed to the screen informing you that the sorting has started, together with the amount of records in the file: L=LOF(1):PRINT "THIS FILE CONTAINS";L;"LABELS" etc. Writing a Label Processor Page 52 We must now set up our two FOR NEXT loops and place the lines to be compared into variables, see above, FORI=2 TO LOF(1), Sets up the loop of the records to be compared against record number one, the first time thru the file. FORJ=1 TO (I-1). Because each time the program starts a new loop, the first record we need is always immediately in front of the next record, ( we compare record number one against record number two, the second time around we compare number two against number three ), "J" the record we are comparing against, which is "I", is always one less, we can state FORJ=1 TO (I-1). You will notice that as soon as we start the FOR NEXT loops, "I" and "J" are printed to the screen in line 94. Next we GET#1,I. As soon as we GET this record from the disk it becomes LF$, since we FIELDed the file this way earlier. However, when the next record is "GET'ten" from the disk, IT also becomes LF$, therefore, we preserve the first record by placing it into a temporary variable: R1$=LF$. Record number "I" is 252 characters long, since we only want the compare the first line of the label we state: S1$=MID$(R1$,3,40). You should know by now why we have the use the MID$ command here and NOT the LEFT$ command. The first two characters on the label line are a "printcode variable" and a "amount of lines in the label variable". We must therefore, start our string with the third character. Since each label line is 40 characters long, on the disk anyway, the first label line is MID$(R1$,3,40). Now we GET#1,J, which at the start is record number one, and do the same thing: R2$=LF$:S2$=MID$(LF$,3,40). What we have accomplished is this: The first record is R2$, the first label line is S2$, the second record is R1$, the second label line is S1$. The first time thru the loop, and at the first comparison we make, "I" equals "2" and S1$ is the first line of record number TWO. "J" equals "1" and S2$ is the first line of record number ONE. Therefore, if S2$ is smaller than S1$ nothing needs to be done since the first record, (S2$), is already in the correct place when compared with record number two. If however, S1$ or record number two is smaller, than the two need to be switched around. Line 95: IF S2$>S1$, the records need to be switched, THEN LSET LF$=R2$:PUT#1,I record number 1, R2$, is PUT in the "I" or 2nd. position, LSET LF$=R1$:PUT#2,J, record number 2 is placed in the "J" or the first position. Now the records are switched around and in line 96, we do a NEXT J,I to get the next two records going. Etc. Etc. An interesting thing to note, and also something that not too many people realize is, is the fact that, in manipulating direct access files, you can take part of the file change it, and put the changed file back on the disk providing of course that you do not change the length of the record. In the following record, "CFFM MAGAZINE APRIL 2012" which is 24 characters long, you could FIELD it like this. FIELD#1,4 as A$, 20 AS B$: GET it from the disk, GET#1,1, and state S$="CFDM":LSETA$=S$:PUT#1,I and the "CFFM" will be changed to "CFDM" leaving the rest of the record intact. As a matter of fact, this is exactly what we do when we "edit" a label. Lines 98-110 are two selective inputs, see page 13, to printout the labels using either a numerical or alphabetical input. The numerical input needs no further commend. It is just a simple straight forward type of INKEY statement which we have covered before in earlier discussions Writing a Label Processor Page 53 Note however, that the alphabetical input has a few idiosyncrasies that are inherent to the Color Computer. If you would like to print labels starting with the letter "C" and up to and including the letter "F", and there are no labels in your file that start with the letter "C", the computer will print the first label starting with a "D" as the first label. Likewise if there are no "D's" in your file either, it will start with the "E's" and so on. If your file contains no "F's", the last letter you wanted to print, the last letter the computer will print are the labels starting with the letter "E". In the last issue, John Daniels noted a bug in the program, if you write the return address to the disk more than once in a single session, you will receive a BS error in line 49. The fix is to place the statement F=0 as the first statement in the line. Thanks John, I had noted this error myself on an earlier occasion, but failed to correct it in the program itself. Well, this puts an end to this series, if you have any questions regarding this program at all, I will do my best to get it to work for you. The only thing is it may take some time, as I had many many request for help from people that have printers other than the DMP130 series. But alas, I only have so much spare time. What next ? well, I'm not sure yet. But I am sure that something interesting will crop up before next months issue is mailed out. This has been a lot of work but also a lot of fun, and I enjoyed every second of it. See you next month. !!!! *********************************************************** George Quellhorst 203B Meadows Drive Painesville, Ohio. 44077-5361 Phone: (216) 350-9121 *********************************************************** Writing a Label Processor Page 54 f you are goi&E$> @w!\j0VP$YC:ߞVb*@Vs 0@sof@.VJa@x (`U)Qp@i߯& &XH7H@s #/[#*$ q `#pD`16A,w( ׍_d#8s(;`@-e H@d`ĀL#KV9 l@O݄b2'IEL z;n~R nH` H< Gm4H xP'w u,2@K7 *Cc AÀ`@I' \1h@t xo @8xN!_pS ,t@0 ^{~=od(0 W?{!PL`@~mp`p 4n`0 x@w+0\L`q`` :s@0H0\HCl`y(?T`P;@_@ 6uX#f@B#?h_p?wr|0 0@<W%>'= :`Knq>o,@o@ 87I A"?w `{ @l ` 'oa@*@ ?+Ӑ0S!@rvrt@ +rk8rt@eG'(P'`&k#h@F( C Hooa:PoFX@8`0 Á^ن`x x|w}_~?_|{_?~~Z}i;_ׯw~{|~=om{+w?>߱~O???_mn~w:~&*:MEMORIES LOADER BY CHARLES GIBSON &@ A$(90):S$(150)&hM"MEMORIES.BIN":&HFF40,0:65497,0&~4,1:1:1,1:0,1&(A$(32)"BR6&2A$(65)"BR8L2U3NL2BU2U2HGD2NR2BD2D3L2U8E2R2F2D8' ~_ O<\v_{7v pk( @@P@q8p@P@(p(q8p p@ ( (888P( @(p88(@(@P88G(9@8@p @ ( (P@PqG(P@P(( p(qqG8@(@P8 P@EqNp 8 P`|q`ssx{/???7??7?oo&?: PRINTME/BAS ' This file courtesy of Arthur S. Hallock.&2000:65496,.:140,180:150,87:&HF80F,0:&HF84F,0:&HF89C,0&:T1:43350:20:1,1:10,27:80:2:3,1'631,0:2,1:"COCO MAX III COLOR GUIDE":31,1:(24,42):5,4:"THIS PROGRAM WILL PRINT THE TWO PAGE COCO MAX III COLOR GUIDE":5,6'"TO YOUR PRINTER.":23,6:7,1:"BE SURE YOU HAVE ENOUGH PAPER, THERE ARE 02 PAGES"(20,9:3,1:"YOU MUST NOW SET THE BAUDRATE CONSTANT";:20,10:"TO CORRESPOND WITH THE ONE YOUR PRINTER";:30,11:"IS CURRENTLY SET TO"(1,14:2,1:"600 BAUD=87 / 1200 BAUD=41 / 2400 BAUD=18 / 4800 BAUD=7 / 9600 BAUD=1":18,16:"PLEASE INPUT PROPER BAUD RATE > "(50,16:BD$:BD(BD$)) BD87 BD41 BD18 BD7 BD1 150,BD:10 :49,16:" ":50,1:8) 10,19:1,1:"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":8,21:"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":25,23:2,1:"PLEASE PRESS TO START";) P$:P$(13)12:11*? :3,1:19,23:"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:21*N "I",#1,F$*^ (1) 18*t#1,L$:F1:AA1*L$:#2,L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"CM3PALET.TXT":+#1::"PRINTING ABORTED"::"ALL FILES CLOSED":NG HAS STARTED, PRESS BREAK TO ABORT";:21*N "I",#1,F$*^ (1) 18*t#1,L$:F1:AA1*L$:#2,L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"CM3PALET.TXT":+#1::"PRINTING ABORTED"::"ALLo?߿_?1381s1s81s81381s1s81c81381s1s81s81381s1s81c81381s1s81s81381s1s81c81381s1s81s81381s1s81c8@p?6.&8'"(  0.Ds1s81s81381s1s81c81381s1s81s81381s1s81c81381s1s81s81381s1s81c81381s1s81s81381s&?: PRINTME/BAS ' This file courtesy of Arthur S. Hallock.&2000:65496,.:140,180:150,18:&HF80F,0:&HF84F,0:&HF89C,0&:T1:43350:20:1,1:10,27:80:2:3,1'331,0:2,1:"LABEL PROCESSOR":31,1:(15,42):5,4:"THIS PROGRAM WILL PRINT THE ENTIRE TUTORIAL FOR THIS MONTH'S COLUMN":5,6'"TO YOUR PRINTER.":23,6:7,1:"BE SURE YOU HAVE ENOUGH PAPER, THERE ARE 07 PAGES"(20,9:3,1:"YOU MUST NOW SET THE BAUDRATE CONSTANT";:20,10:"TO CORRESPOND WITH THE ONE YOUR PRINTER";:30,11:"IS CURRENTLY SET TO"(1,14:2,1:"600 BAUD=87 / 1200 BAUD=41 / 2400 BAUD=18 / 4800 BAUD=7 / 9600 BAUD=1":18,16:"PLEASE INPUT PROPER BAUD RATE > "(50,16:BD$:BD(BD$)) BD87 BD41 BD18 BD7 BD1 150,BD:10 :49,16:" ":50,1:8) 10,19:1,1:"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":8,21:"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":25,23:2,1:"PLEASE PRESS TO START";) P$:P$(13)12:11*< :3,1:19,23:"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:21*K "I",#1,F$*[ (1) 18*q#1,L$:F1:AA1*L$:#2,(8,32);L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"LABELDOC.TEN":+#1::"PRINTING ABORTED"::"ALL FILES CLOSED":ARTED, PRESS BREAK TO ABORT";:21*K "I",#1,F$*[ (1) 18*q#1,L$:F1:AA1*L$:#2,(8,32);L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"LABELDOC.TEN":+#1::"PRINTING ABORTED":$ d ) ) )    ) )) ) ) / /   )/))  P)/ P  //)  _P )/ /__///__/_)_/__/_)_/__/_)/__ // //Ņ )ũQ / YQPXPXP XP:P󯟐x 🣯 🯐 T z@T z@T z?:zz ?:_zz@PzTz_T{_@_{z@O_zO{zzzxOp@O_T@zx@O_]@px_]@px@p^_W xp^_pxpxpxxppuppxpxppp^W@p p_;&& :***** STRING6 *****&4:BY NORMAN BARSON&H:7 RIDGE COURT&g(:EAST BRUNSWICK, NJ 08816&v2 1630&< :2&F1,0:2,63:3,38:4,55:5,42:6,43:7,44:8,22:9,31:10,17:11,18:12,3:13,56&P:TITLEPAGE&Z1:10,1'.d(10,185)(40,5),:(10,155),:(70,5),:(10,125),'bn(100,5),:(10,95),:(130,5),:(10,65),'x(160,5),:(10,35),:(190,5),:(10,5),:(10,185),'3,1'(310,5)(285,185),:(310,35),:(250,185),:(310,65),('(220,185),:(310,95),:(190,185),:(310,125),(o(160,185),:(310,155),:(130,185),:(310,185),:(310,5),(7,1:(14,9),"STRINGART VI(2,1:(19,12),"by(5,1:(14,14),"Norman Barson(Ȁ T1 1500:(:SET DOTS FOR NAILS OF BODY)1:7,1)(163,8):(169,9):(174,11):(178,13):(183,16):(189,22):(195,30):(201,41):(204,50):(206,58):(208,70):(210,82):(208,98):(206,116):(200,132):(191,149):(176,161):(160,164)*p(144,161):(129,149):(120,132):(114,116):(112,98):(110,82):(112,70):(114,58):(116,50):(119,41):(125,30):(131,22):(137,16):(142,13):(146,11):(151,9):(157,8)* T1500:*:STRING FIRST LAYER OF BODY*8,1+G(163,8)(210,82),:(169,9),:(208,98),:(174,11),:(206,116),:(178,13),:(200,132),:(183,16),:(191,149),:(189,22),:(176,161),+"(195,30),:(160,164),:(201,41),:(144,161),:(204,50),:(129,149),:(206,58),:(120,132),:(208,70),:(114,116),:(210,82),:(112,98),,,(208,98),:(110,82),:(206,116),:(112,70),:(200,132),:(114,58),:(191,149),:(116,50),:(176,161),:(119,41),:(160,164),:(125,30),-36(144,161),:(131,22),:(129,149),:(137,16),:(120,132),:(142,13),:(114,116),:(146,11),:(112,98),:(151,9),:(110,82),:(157,8),-@(112,70),:(163,8),:(114,58),:(169,9),:(116,50),:(174,11),:(119,41),:(178,13),:(125,30),:(183,16),:(131,22),:(189,22),.aJ(137,16),:(195,30),:(142,13),:(201,41),:(146,11),:(204,50),:(151,9),:(206,58),:(157,8),:(208,70),:(163,8),.qT T1500:.^:STRING SECOND LAYER OF BODY.h10,1/<r(163,8)(206,116),:(169,9),:(200,132),:(174,11),:(191,149),:(178,13),:(176,161),:(183,16),:(160,164),:(189,22),:(144,161),/|(195,30),:(129,149),:(201,41),:(120,132),:(204,50),:(114,116),:(206,58),:(112,98),:(208,70),:(110,82),:(210,82),:(112,70),0(208,98),:(114,58),:(206,116),:(116,50),:(200,132),:(119,41),:(191,149),:(125,30),:(176,161),:(131,22),:(160,164),:(137,16),1$(144,161),:(142,13),:(129,149),:(146,11),:(120,132),:(151,9),:(114,116),:(157,8),:(112,98),:(163,8),:(110,82),:(169,9),1(112,70),:(174,11),:(114,58),:(178,13),:(116,50),:(183,16),:(119,41),:(189,22),:(125,30),:(195,30),:(131,22),:(201,41),2T(137,16),:(204,50),:(142,13),:(206,58),:(146,11),:(208,70),:(151,9),:(210,82),:(157,8),:(208,98),:(163,8),2d T1500:2:STRING THIRD LAYER OF BODY211,133(160,164),:(169,9),:(144,161),:(174,11),:(129,149),:(178,13),:(120,132),:(183,16),:(114,116),:(189,22),:(112,98),:(195,30),3(110,82),:(201,41),:(112,70),:(204,50),:(114,58),:(206,58),:(116,50),:(208,70),:(119,41),:(210,82),:(125,30),:(208,98),4w(131,22),:(206,116),:(137,16),:(200,132),:(142,13),:(191,149),:(146,11),:(176,161),:(151,9),:(160,164),:(157,8),:(144,161),5(163,8),:(129,149),:(169,9),:(120,132),:(174,11),:(114,116),:(178,13),:(112,98),:(183,16),:(110,82),:(189,22),:(112,70),5(195,30),:(114,58),:(201,41),:(116,50),:(204,50),:(119,41),:(206,58),:(125,30),:(208,70),:(131,22),:(210,82),:(137,16),6?(208,98),:(142,13),:(206,116),:(146,11),:(200,132),:(151,9),:(191,149),:(157,8),:(176,161),:(163,8),6O T1500:6q:SET NAILS FOR EYES AND BEAK6z7,17;&(184,7):(190,14):(196,22):(198,30):(202,34):(203,40):(204,45):(205,50):(206,56):(205,62):(203,67):(200,72):(196,75):(192,78):(187,79):(182,80):(177,79):(173,78):(170,76)70(167,73):(165,71):(163,68):(161,65):(160,62):(160,60):(160,57):(160,54):(160,52):(160,50):(160,47):(161,44):(162,40):(164,35):(166,30):(170,24):(175,16)8:(136,7):(130,14):(124,22):(122,30):(118,34):(117,40):(116,45):(115,50):(114,56):(115,62):(117,67):(120,72):(124,75):(128,78):(133,79):(138,80):(143,79):(147,78):(150,76)9D(153,73):(155,71):(157,68):(159,65):(159,44):(158,40):(156,35):(154,30):(150,24):(145,16):(160,85)9,N T1500:9MX:STRING FIRST LAYER OF EYES9Vb9,19l(184,7)(173,78),:(190,14),:(170,76),:(196,22),:(167,73),:(198,30),:(165,71),:(202,34),:(163,68),:(203,40),:(161,65),:v(204,45),:(160,62),:(205,50),:(160,60),:(206,56),:(160,57),:(205,62),:(160,54),:(203,67),:(160,52),:(200,72),:(160,50),;0(196,75),:(160,47),:(192,78),:(161,44),:(187,79),:(162,40),:(182,80),:(164,35),:(177,79),:(166,30),:(173,78),:(170,24),;(170,76),:(175,16),:(167,73),:(184,7),:(165,71),:(190,14),:(163,68),:(196,22),:(161,65),:(198,30),:(160,62),:(202,34),v(160,62),:(115,50),:(160,60),:(114,56),:(160,57),:(115,62),:(160,54),:(117,67),:(160,52),:(120,72),:(160,50),:(124,75),?(160,47),:(128,78),:(159,44),:(133,79),:(158,40),:(138,80),:(156,35),:(143,79),:(154,30),:(147,78),:(150,24),:(150,76),?(145,16),:(153,71),:(136,7),:(155,71),:(130,14),:(157,68),:(124,22),:(159,65),:(122,30),:(160,62),:(118,34),:(160,60),@U(117,40),:(160,57),:(116,45),:(160,54),:(115,50),:(160,52),:(114,56),:(160,50),:(115,62),:(160,47),:(117,67),:(159,44),@(120,72),:(158,40),:(124,75),:(156,35),:(128,78),:(154,30),:(133,79),:(150,24),:(138,80),:(145,16),:(143,79),:(136,7),A T1500:A&:STRING SECOND LAYER OF EYESA/ 2,1A(184,7)(177,79),:(190,14),:(173,78),:(196,22),:(170,76),:(198,30),:(167,73),:(202,34),:(165,71),:(203,40),:(163,68),Bi (204,45),:(161,65),:(205,50),:(160,62),:(206,56),:(160,60),:(205,62),:(160,57),:(203,67),:(160,54),:(200,72),:(160,52),C *(196,75),:(160,50),:(192,75),:(160,47),:(187,79),:(161,44),:(182,80),:(162,40),:(177,79),:(164,35),:(173,78),:(166,30),C4(170,76),:(170,24),:(167,73),:(175,16),:(165,71),:(184,7),:(163,68),:(190,14),:(161,65),:(196,22),:(160,62),:(198,30),DH>(160,60),:(202,34),:(160,57),:(203,40),:(160,54),:(204,45),:(160,52),:(205,50),:(160,50),:(206,56),:(161,47),:(205,62),DH(161,44),:(203,67),:(162,40),:(200,72),:(164,35),:(196,75),:(166,30),:(192,78),:(170,24),:(187,79),:(175,16),:(182,80),DR(184,7),E\ T1500:Ef(136,7)(143,79),:(130,14),:(147,78),:(124,22),:(150,76),:(122,30),:(153,73),:(118,34),:(155,71),:(117,40),:(157,68),:(116,45),FOp(159,65),:(115,50),:(160,62),:(114,56),:(160,60),:(115,62),:(160,57),:(117,67),:(160,54),:(120,72),:(160,52),:(124,75),Fz(160,50),:(128,78),:(160,47),:(133,79),:(159,44),:(138,80),:(158,40),:(143,79),:(156,35),:(147,78),:(154,30),:(150,76),G(150,24),:(153,73),:(145,16),:(155,71),:(136,7),:(157,68),:(130,14),:(159,65),:(124,22),:(160,62),:(122,30),:(160,60),H.(118,34),:(160,57),:(117,40),:(160,54),:(116,45),:(160,52),:(115,50),:(160,50),:(114,56),:(160,47),:(115,62),:(159,44),H(117,67),:(158,40),:(120,72),:(156,35),:(124,75),:(154,30),:(128,78),:(150,24),:(133,79),:(145,16),:(138,80),:(136,7),H T1500:H:STRING THIRD LAYER OF EYESI4,1I(184,7)(187,79),:(190,14),:(182,80),:(196,22),:(177,79),:(198,30),:(173,78),:(202,34),:(170,76),:(203,40),:(167,73),:(204,45),JN(165,71),:(205,50),:(163,68),:(206,56),:(161,65),:(205,62),:(160,62),:(203,67),:(160,60),:(200,72),:(160,57),:(196,75),J(160,54),:(192,78),:(160,52),:(187,79),:(160,50),:(182,80),:(160,47),:(177,79),:(161,44),:(173,78),:(162,40),:(170,76),K(164,35),:(167,73),:(166,30),:(165,71),:(170,24),:(163,68),:(175,16),:(161,65),:(184,7),:(160,62),:(190,14),:(160,60),L-(196,22),:(160,57),:(198,30),:(160,54),:(202,34),:(160,52),:(203,40),:(160,50),:(204,45),:(160,47),:(205,50),:(161,44),L(206,56),:(162,40),:(205,62),:(164,35),:(203,67),:(166,30),:(200,72),:(170,24),:(196,75),:(175,16),:(192,78),:(184,7),L T1500:M(136,7)(133,79),:(130,14),:(138,80),:(124,22),:(143,79),:(122,30),:(147,78),:(118,34),:(150,76),:(117,40),:(153,73),:(116,45),N#(155,71),:(115,50),:(157,68),:(114,56),:(159,65),:(115,62),:(160,62),:(117,67),:(160,60),:(120,72),:(160,57),:(124,75),N(160,54),:(128,78),:(160,52),:(133,79),:(160,50),:(138,80),:(160,47),:(143,79),:(159,44),:(147,78),:(158,40),:(150,76),Ob$(156,35),:(153,73),:(154,30),:(155,71),:(150,24),:(157,68),:(145,16),:(159,65),:(136,7),:(160,62),:(130,14),:(160,60),P.(124,22),:(160,57),:(122,30),:(160,54),:(118,34),:(160,52),:(117,40),:(160,50),:(116,45),:(160,47),:(115,50),:(159,44),P8(114,56),:(158,40),:(115,62),:(156,35),:(117,67),:(154,30),:(120,72),:(150,24),:(124,75),:(145,16),:(128,78),:(136,7),PB T1500:PL:STRING FOURTH LAYER OF EYESPV3,1Qv`(184,7)(200,72),:(190,14),:(196,75),:(196,22),:(192,78),:(198,30),:(187,79),:(202,34),:(182,80),:(203,40),:(177,79),Rj(204,45),:(173,78),:(173,78),:(205,50),:(170,76),:(206,56),:(167,73),:(205,62),:(165,71),:(203,67),:(163,68),:(200,72),Rt(161,65),:(196,75),:(160,62),:(192,78),:(160,60),:(187,79),:(160,57),:(182,80),:(160,54),:(177,79),:(160,52),:(173,78),SV~(160,50),:(170,76),:(160,47),:(167,73),:(161,44),:(]@pxpxx p|up_]@ppppp_]@pppp_]@xxWp W_Tp  uW@pppp r|_W_Pppp  p r|Wp| p' pWǀ  |'  puu xp|  2x pp, , _p , , |^_PǏ p , ' |u_PLJ2|  p^pp ,   _P x    , ^_/  |p, ^xh, ,  , _P6p, ,| ,p0op| p p' p_\cp| p p p r__\`h, pp`h p,  _`p |  p|  _`j p,   |]px, pp_]_`px p,pppu`opx  pp   ]]_ |pp p__ pxp pu_ `j p pu x| pp r_ix  _ xpp |_  p, p| pu px  ' _]_ p|  rojx ,,  ,opp, ,  |x p , ux p , _x, ,  ,x  % ]M_߇r ,Rb_[ ]M_߇p p , , b_[ ]M_xp|  X&% M, Ũ% p/, Y&% M_ׂ,  ũb_M_p , b M_]| &/G_'  |p | r b ME|p |   |߰ME]| p|p p |z(ߩME]|p| | K ME| p| p|p|zߩ _   | pp|} W] p| |} Ppp pp|| |}?|?<6~<?=5i?=u}>uw{প෼ݼ$~ϟV_༯u~|owu_u$/g??x?o,'W?_o787?w|1mݏ}o7<=?Ξߧ㮿ٿw?~a]_yOwwo>r]w_}ﹿ?=f}`g<k׿/1vuo]}.ݼ=?*??[28`ۿ}LYٷk9w_,=UsIm;r϶›ߞo/u@>ן/?;tw֤_F=w7voq7?0:{}[o~oO/7;~0uwogsgoߣoϮp߼?;>a}n=v?>l_=9}c?zm~eɧx{wگÿ ߶ߟ}u?fϧ]^?{5tv~u+w_uj7/_w?{~~>>6gdyנno+_i-e~;f?}}^~}/}W}wm?}?c7m[ߏf x;cֿ__ǿ߿?<ߡ{~]%^|uoz{m3twk7/?=w`O?'W~|:7?s~Ug/?/6nomo:|?l>?~}{N=,=?4[W {߽?gӻhn?8|\ϟ|5֯?جrL 4vst7x~wt{@3S?g}'￟[>#&n-MwuW416'*ww᾿;>?|*|;.~?!?_\M}[ ??ہ5ywuࡿӿsu?L-o륣?q~oߟۇs_\߿^u5t]zntvwlw?^}?>w??x{w?Ϸmg/''glggmNe\vnmqo>7ﯘ||?g<}˼y ?u};*k5ah{uC:Vؾ^5A̫D; y]7vˆ÷|t|3rE1G|ף9[߶7?η8??_ߵ/O0.qpt?Ƀ<]՜d1=}uxMeA2`M5ÒǭV0՜:d~H@ fd}~C?89(~`;쀠ט޾< (@Q3 l?%~/`VC~  Lx ?>рS0{K`Հ@/mS`D@c1y p\0` _4a@&f7?0 `@9999_o}>o}w}7~ߏ?_׼6:?vG}owc?|{n7߿w_j~t}=?{o}}k1_w_oo]߻u~YP`y]gՑPeYQqyayqW Y]YQ V ]QՕѝQ]Y]]eaQWQ i]]Q]YiQQ]Y]WQ`i]pYY]PY]QQYYY YPYQYYY`YQQY]yYQ`YQYQ P`]i]Օ՝]YWՕՕՕ՝`e]Y]_YQ`YQYYQPՑP]YՕ]ՕY ]Q]YYQP`חWqWQYՕ[P `Q]Y`QYՕ]Y`QQՕѝPY]Q՗YQYPiQuQՕYQ]QY]ՕY[vY YYYQY Y]y QY `ѕ]Օ ]Օ E`VV]YՕYՑQ}Q]YYY[ iYY_PmpP]Y]Օ Q]QY]Q`YP`@WQQYQYQQyPY YY]PQ`iY  Y]VuѝiQ]]Y YiYP`i Y] Y]Y ] `iY  P`ՕѕiVQ]Q]QՑ`Q]QY]YyP`vPYQYY]YQYY חp  VVV ]iՐmi`P Y QY]Y`e`Q]Y YPe@`YՕ]YQYQY]PYP`l`PY emi`V]Y]՗ Օ YepP`FpPYQY PYY `V V e`i iV YY]WY`YYѕY YYV`QPQY`iYV Ր l l` eme``Y`YpuyuyY`]m]a`i m   YYQ֖V ]V``mi`iPW]YPmVPYՐPe `Vl l `e`e`e`iPi  ՕVm]VYe`i`Vl``m  i` `a`e]mPeV`miY` V`ae`me]PeV l` i`V `iVe`Vl``iY`V`ememe`l`i]Y`ieei`]YS\PVei`ee[_[[_[_[[[_[_[[[[[[[[[_[_[_[_[_[_[_[_[_[[_[[[[[[[[_[_[[[_[_[_[_[[_[[_[_[[_[[_[_[[[_[[[_[_[[_[[_[_[_[[_[_[[[_[_[[[[[[[[[_[_[_[_[_[_[_[_[_[[_[[[[[[[[_[_[[[_[_[_[_[[_[[_[_[[_[[_[_[[[_[[[_[_[[_[[_[_`1`c( ^c6L/F0c*,  < <3Ƙ p}Q|撞Na0Xx`c ۩t236`6Wm8fy+.'Z}E1Kc` 96,aWgۭ U0c  _0``fYN`+x!U锲okm@0uf/6ѵ0Q$Zeٌ7l}Cl`kB:mp`uc3fI P XOƬl0J<=Z`7 va}1 4@px<4;Wh 5,PLJE{n$s`0a.yn ^C-̫՚6C+ '`5 6@'k]Bn*Y@c.*J4l5`H?Im<V0σ϶mYpDx'(Q`&nAO\Ubk[x 61 (j: 0s#?\`0cC?&8`=C &0(;|KaA80Cfyn\{8-ZUkFb`1bjް0ǃX` |\Ա`P00Al CbWqپl2JĚN+Lw K]馀[o5*jx`3f`~@C ܉380n5yzMs f)}8ހQ3 95kY]Y3}p.omY냀)ik 7O~ۭݽ-2=o `.lO@~?ɠGJﮀBg''?w?67?וgݷoA??}|9}?}yqimw7c뻭ͥߛo߿﷯_u~4w~>?{7ߣ{:ʀu/Vgw=׵m]}~`0@? ``3B"GBp F  x08``2B CBp2C $@ 0``2BE"BBC ׀xg 80BFB\ @ 6)"E6$ADI(`I$D $d)@e@( 1 e)׺RHIDK<%@P) DE )IF f0 @l0 @`05M[3Gk?gzk,S+˭Յp>t^3Awv< D%gHF* wp`l08 80`0`p``p`0`008      n`f````~`~f````p600080yy}? Ϟߞߞߞߞٰٞٞxxxxxp0px|lokw0`0`008 00}|p?x`w?6.&=8"<(  D0dGK