& 32& X&HFF00:Y&HFF7E&, X1,52&BX3,63: X35,60&J 3&S( A$&j) A$"EX" 110&t- 50&~. 40&2I(A$)&< Z1 I&F Y,((A$,Z,1)): 10&P Z&Z Y,32&d&n"V5;L64;G;B;G;B;G;A;G;A"&x"BOOT"& 32& X&HFF00:Y&HFF7E&, X1,52&BX3,63: X35,60&J 3&S( A$&j) A$"EX" 110&t- 50&~. 40&2I(A$)&< Z1 I&F Y,((A$,Z,1)): 10&P Z&Z Y,32&d&n"V5;L64;G;B;G;B;G;A;G;A"&x"BOOT"" gary james is cool, but he " "can't get this word processor to " "print right!!~" "~" "" L 1,1 840%7,2,U+7' 3,2,U]( 5,5:"Skynet Systems v1.0 1992"m,T1200:T{= 3,2: 4F 5,5:"1 Terminal"P 5,7:"2 Database"Z 5,9:"3 Word Processor"d 5,11: "4 Directory"n 7,20:3,2: "OPERATION ?";Oo 4p O1 200.r O2 250>t O3 300Nv O4 350dx O1 O4 112z"V2;L16;A;B;C;D"Ҏ"RB-PHONE/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"h)r 5,20: " To Return to Menu..."K|A$: A$"M" 61 : 380dx O1 O4 112z"V2;L16;A;B;C;D"Ҏ"RB-PHONE/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"G 1,1 840 ,' 3,2,UR( 5,5:"Skynet Systems v1.0 1992"b,T1200:Tv= 3,2: 4: 4,2F 5,5:"1 Terminal"P 5,7:"2 Database"Z 5,9:"3 Word Processor"d 5,11: "4 Directory"n 7,20:3,2: "OPERATION ?";O o 4p O1 200)r O2 2509t O3 300Iv O4 350_x O1 O4 112u"V2;L16;A;B;C;D"Ҏ"RB-PHONE/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"h$r 5,20: " To Return to Menu..."F|A$: A$"M" 61 : 380_x O1 O4 112u"V2;L16;A;B;C;D"Ҏ"RB-PHONE/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"h$"RADIO SHACK","GENESEE VALLEY","LINDEN RD","FLINT","MI"," ","230-7760 (313)","CORNER OF MILLER AND LINDEN RD."," ","MANAGER MICKEY"," ","1 XEP" "RADIO SHACK","YORKSHIRE PLAZA","G-3306 MILLER RD.","FLINT","MI","","733-0850 (313)","ON MILLER NEAR I-75","","","","2 XEP" "RADIO SHACK","COURTLAND CENTER"," CENTER RD.","BURTON","MI","","742-9580 (313)","CORNER OF COURT AND CENTER RD.","","","","3 XEP" "RADIO SHACK","DORT HWY.","3206 SOUTH DORT HWY.","FLINT ","MI","","744-9103 (313)","JUST NORTH OF ATHERTON RD.","","","","4 XEP" "RADIO SHACK","ROBBINS ELECTRONICS","MONROE ROAD PLAZA","DURAND","MI","48429","288-2762 (313)","MONROE PLAZA ON MILLER RD.","","","","5 XEP" "ELECTRONIC PARTS SPECIALISTS","FLINT","711 KELSO ST.","FLINT","MI","","238-7311 (313)","NORTH OF COURT ON KELSO ST.","","","","6 XEP" "SHAND ELECTRONICS INC.","FLINT","2401 S. DORT HWY.","FLINT","MI"," ","232-4800 (313)","ON DORT JUST SOUTH OF LIPPINCOTT","8:00AM - 5:00PM MONDAY THRU FRIDAY CLOSED SAT & SUN","","","7 XEP" "SPECMO ENTERPRISES","FLINT","G-3189 S. DORT HWY.","FLINT","MI","","744-2940 (313)","ON DORT HWY. NEAR HEMPHIL","","","","8 XEP" "DISCOUNT COMPUTERS","FLINT","G-4296 CORUNNA RD.","FLINT","MI","","732-2885 (313)","ON CORUNNA JUST EAST OF LINDEN RD.","","","","9 XCS" "ALPHA TECH - OF MICH.","BURTON","G-4159 FENTON RD.","BURTON","MI","48529","239-0000 OR 239-0001 (313)","FENTON RD. NEAR PROFFERS CYCLE SALES","","","","10 XCS" "SUBURBAN AUTO SUPPLY","SWARTZ CREEK","5083 S.MORRISH RD.","SWARTZ CREEK","MI","48473","635-4428 (313)","1/4 MILE SOUTH OF MILLER RD","","","","11 XVP" "OFFICE MAX","PINE RIDGE CENTRE","G-3136 S. LINDEN RD.","FLINT","MI","","230-1220 (313)","JUST SOUTH OF LENNON RD.","","","","12 XOP" "OFFICE-HOME-SCHOOL SUPPLY","EASTSIDE","1522 DAVISON RD.","FLINT","MI","","232-6655 (313)","UNKNOWN","","","","13 XOP" "OFFICE PRODUCTS CENTER","WEST SIDE","G-4205 MILLER RD.","FLINT","MI","","733-1511 (313)","UNKNOWN","","","","14 XOP" "FLINT BLUE PRINT SUPPLY","DOWNTOWN","520 W. 3RD ST.","FLINT","MI","","234-0275 (313)","FENTON & COURT ST.","","","","15 XOP" "COUNTRY WINDOW","WESTSIDE","G-5182 MILLER RD.","FLINT","MI","","230-9677 (313)","MILLER AT BRISTOL RD.","","","","16 XEM" "LITTLE CAESARS PIZZA","SWARTZ CREEK","CARRIAGE PLAZA","SWARTZ CREEK","MI","48473","635-2997 (313)","SEYMOR & MILLER","UNKNOWN","","","18 XFF" "COUNTRY CARRIAGE FAMILY RESTAURANT"," ","9237 MILLER RD.","SWARTZ CREEK","MI","48473","635-2431 (313)","SEYMOR","UNKNOWN","","","19 XFF" "ICHI BON FAMILY RESTAURANT","SW CK","9041 MILLER RD","SWARTZ CREEK","MI","48473","635-8020 (313)","SEYMOR","UNKNOWN","","","20 XFF" "CARRIAGE PLAZA VIDEO","","9041 MILLER RD.","SWARTZ CREEK","MI","48473","635-8454 (313)","SEYMOR RD.","UNKNOWN","","","21 XVS" "DIPRO","DORT HWY","G-6106 S DORT","GRAND BLANC","MI","","695-6120","","","","","XCS" "RS ELECTRONICS","MAPLE","2442 E MAPLE","FLINT","MI","","742-5000","","","","","XEP" "MICHIGAN ELECTRONICS","BRISTOL","G-3101 W BRISTOL","FLINT","MI","","232-6550","","","","","XEP" "SERVICE DEPOT","CARRIAGE PLAZA","9061 MILLER","SWARTZ CREEK","MI","48473","635-2461","","","","","XAR" "COCOPRO","YPSILANTI","P.O.BOX 763","YPSILANTI","MI","48197","481-3283","","","","","XCS" "PREOWNED ELECTRONICS","","","","","","1-800-274-5343","","","","NEW & USED APPLE PRODUCTS","XCS" "DON DELDUCA WELDING","FLINT","4420 S. DORT HWY.","FLINT","MI"," ","743-1990 (313)","DORT NEAR MAPLE","","DOES ALUMINUM WELDING ","WILL WELD ANYTHING REFERED BY CHESLEY","XAW" "CHIEF PONTIAC FED. CREDIT UNION","NEW","1465 BROWN RD.","ORION","MI","48359","391-1950 (313)","BROWN NEAR GIDDINGS","9:30-5:00 MO,TU,TH,FR 9:30-1:30 WED","THIS IS THE NEW BRANCH","","XBI" "CHIEF PONTIAC FED. CREDIT UNION","OLD","790 JOSLYN AVE.","PONTIAC","MI","48340","335-9493 (313)","UNKNOWN","9:30-5:00 MO.TU,TH,FR 9:30-1:30 WED","THIS IS THE OLD BRANCH","","XBI" GS","9:30-5:00 MO,TU,TH,FR 9:30-1:30 WED","THIS IS THE NEW BRANCH","","XBI" "CHIEF PONTIAC FED. CREDIT UNION","OLD","790 JOSLYN AVE.","PONTIAC","MI","48340","335-9493 (313)","UNKNOWN","9:30-5:00 MO.TU,TH,FR 9:30-1:30 WED","THIS IS THE OLD BRANCH","","XB & MILLER","UNKNOWN","","","18 XFF" "COUNTRY CARRIAGE FAMILY RESTAURANT"," ","9237 MILLER RD.","SWARTZ CREEK","MI","48473","635-2431 (313)","SEYMOR","UNKNOWN","","","19 XFF" "ICHI BON FAMILY RESTAURANT","SW CK","9041 MILLER RD","SWARTZ CREEK","MI","48473","635-8020 (313)","SEYMOR","UNKNOWN","","","20 XFF" "CARRIAGE PLAZA VIDEO","","9041 MILLER RD.","SWARTZ CREEK","MI","48473","635-8454 (313)","SEYMOR RD.","UNKNOWN","","","21 XVS" "DIPRO","DORT HWY","G-6106 S DORT","GRAND BLANC","MI","","695-6120","","","","","XCS" "RS ELECTRONICS","MAPLE","2442 E MAPLE","FLINT","MI","","742-5000","","","","","XEP" "MICHIGAN ELECTRONICS","BRISTOL","G-3101 W BRISTOL","FLINT","MI","","232-6550","","","","","XEP" "SERVICE DEPOT","CARRIAGE PLAZA","9061 MILLER","SWARTZ CREEK","MI","48473","635-2461","","","","","XAR" "COCOPRO","YPSILANTI","P.O.BOX 763","YPSILANTI","MI","48197","481-3283","","","","","XCS" "PREOWNED ELECTRONICS","","","","","","1-800-274-5343","","","","NEW & USED APPLE PRODUCTS","XCS" "DON DELDUCA WELDING","FLINT","4420 S. DORT HWY.","FLINT","MI"," ","743-1990 (313)","DORT NEAR MAPLE","","DOES ALUMINUM WELDING ","WILL WELD ANYTHING REFERED BY CHESLEY","XAW" "CHIEF PONTIAC FED. CREDIT UNION","NEW","1465 BROWN RD.","ORION","MI","48359","391-1950 (313)","BROWN NEAR GIDDINGS","9:30-5:00 MO,TU,TH,FR 9:30-1:30 WED","THIS IS THE NEW BRANCH","","XBI" "CHIEF PONTIAC FED. CREDIT UNION","OLD","790 JOSLYN AVE.","PONTIAC","MI","48340","335-9493 (313)","UNKNOWN","9:30-5:00 MO.TU,TH,FR 9:30-1:30 WED","THIS IS THE OLD BRANCH","","XBI" GS","9:30-5:00 MO,TU,TH,FR 9:30-1:30 WED","THIS IS THE NEW BRANCH","","XBI" "CHIEF PONTIAC FED. CREDIT UNION","OLD","790 JOSLYN AVE.","PONTIAC","MI","48340","335-9493 (313)","UNKNOWN","9:30-5:00 MO.TU,TH,FR 9:30-1:30 WED","THIS IS THE OLD BRANCH","","XB" Dear Sir,~" " This is a test to see if this " "word processor does truly work.~" "I am in hopes that it does. If this " "test proves to be successful than I " "will try to print the document. I " "that also is in good working order " "I will keep this program and put it " "to good use.~" " ~" " Sincerly Yours" " Kenneth James~" "" t proves to be successful than I " "will try to print the document. I " "that also is in good working order " "I will keep thisA & SAVE DATA TO DISKA 0A: :"ENTER NAME FOR DATA";F$AH D"O",1,F$Aa N#1,(34)F$(34)Ap XE$"00000"A~ bI1 10A lE$E$(126)P$(I)A vRS$(P$(I),3)A RS$"END" 3220A IA E$E$(126)(N)(126)B #1,(34)E$(34)B J1NB) #1,(34)M$(J)(34)B1 JB? Ƈ#1,"EOF"BG К:B ڞ0:"":" THANK YOU FOR ACCESSING":" DATABASE!":"":" 1 EXIT PROGRAM":"":" 2 RESTART PROGRAM":""B E: E2 10B E1 "BOOT/SYS"C E2 3290Cc "":" FILE NOT FOUND":" ":" RE-LOADING PROGRAM": TIME12000: TIME:Cy X&HFF00:Y&HFF7EC  X1,52C X3,63: X35,60C *I(A$)C 4 Z1IC > Y,((A$,Z,1))C H ZC R Y,32C \D( fA$"HELP CHANGE ADD SORT LIST SEARCH RUBOUT SAVE END": 3340DG p:" HELP":""Df z" CHANGE":""D " ADD":""D " SORT":""D " LIST":""D " SEARCH":""D " RUBOUT":""E " SAVE":""E/ " END"EL ʀ W1 2000: W:: 20 CHANGE":""D " ADD":""D " SORT":""D " LIST":""D " SEARCH":""D " RUBOUT":""E "RADIO SHACK","GENESEE VALLEY","LINDEN RD","FLINT","MI"," ","230-7760 (313)","CORNER OF MILLER AND LINDEN RD."," ","MANAGER MICKEY"," ","1 XEP" "RADIO SHACK","YORKSHIRE PLAZA","G-3306 MILLER RD.","FLINT","MI","","733-0850 (313)","ON MILLER NEAR I-75","","","","2 XEP" "RADIO SHACK","COURTLAND CENTER"," CENTER RD.","BURTON","MI","","742-9580 (313)","CORNER OF COURT AND CENTER RD.","","","","3 XEP" "RADIO SHACK","DORT HWY.","3206 SOUTH DORT HWY.","FLINT ","MI","","744-9103 (313)","JUST NORTH OF ATHERTON RD.","","","","4 XEP" "RADIO SHACK","ROBBINS ELECTRONICS","MONROE ROAD PLAZA","DURAND","MI","48429","288-2762 (313)","MONROE PLAZA ON MILLER RD.","","","","5 XEP" "ELECTRONIC PARTS SPECIALISTS","FLINT","711 KELSO ST.","FLINT","MI","","238-7311 (313)","NORTH OF COURT ON KELSO ST.","","","","6 XEP" "SHAND ELECTRONICS INC.","FLINT","2401 S. DORT HWY.","FLINT","MI"," ","232-4800 (313)","ON DORT JUST SOUTH OF LIPPINCOTT","8:00AM - 5:00PM MONDAY THRU FRIDAY CLOSED SAT & SUN","","","7 XEP" "SPECMO ENTERPRISES","FLINT","G-3189 S. DORT HWY.","FLINT","MI","","744-2940 (313)","ON DORT HWY. NEAR HEMPHIL","","","","8 XEP" "DISCOUNT COMPUTERS","FLINT","G-4296 CORUNNA RD.","FLINT","MI","","732-2885 (313)","ON CORUNNA JUST EAST OF LINDEN RD.","","","","9 XCS" "ALPHA TECH - OF MICH.","BURTON","G-4159 FENTON RD.","BURTON","MI","48529","239-0000 OR 239-0001 (313)","FENTON RD. NEAR PROFFERS CYCLE SALES","","","","10 XCS" "SUBURBAN AUTO SUPPLY","SWARTZ CREEK","5083 S.MORRISH RD.","SWARTZ CREEK","MI","48473","635-4428 (313)","1/4 MILE SOUTH OF MILLER RD","","","","11 XVP" "OFFICE MAX","PINE RIDGE CENTRE","G-3136 S. LINDEN RD.","FLINT","MI","","230-1220 (313)","JUST SOUTH OF LENNON RD.","","","","12 XOP" "OFFICE-HOME-SCHOOL SUPPLY","EASTSIDE","1522 DAVISON RD.","FLINT","MI","","232-6655 (313)","UNKNOWN","","","","13 XOP" "OFFICE PRODUCTS CENTER","WEST SIDE","G-4205 MILLER RD.","FLINT","MI","","733-1511 (313)","UNKNOWN","","","","14 XOP" "FLINT BLUE PRINT SUPPLY","DOWNTOWN","520 W. 3RD ST.","FLINT","MI","","234-0275 (313)","FENTON & COURT ST.","","","","15 XOP" "COUNTRY WINDOW","WESTSIDE","G-5182 MILLER RD.","FLINT","MI","","230-9677 (313)","MILLER AT BRISTOL RD.","","","","16 XEM" "LITTLE CAESARS PIZZA","SWARTZ CREEK","CARRIAGE PLAZA","SWARTZ CREEK","MI","48473","635-2997 (313)","SEYMORECORDS/VNN1: N1N11/8` "YOU ADDED";N1;" RECORDS"/>j/\t ROUTINE TO LIST RECORDS/~ 2180: DETERMINE RECORD RANGE TO LIST/ T10 1450/ T4 1360/"WOULD YOU LIKE TO TEST LABEL ALIGNMENT";Z$0, Z$"NO" "PRESS ENTER WHEN YOU ARE READY TO PRINT DATA";EN$: 13600c "ALIGN PRINTOUT AND PRESS WHEN READY";W90q I1 20Ā J1 50·#2,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"0؋ J0#2: I1" "PRESS WHEN YOU ARE READY TO PRINT THE DATA";EN$: 13601Y ROUTINE TO SEARCH RECORDS AND PERFORM SUMMATIONS1"ENTER THE NUMBER OF THE FIELD TO BE SUMMED";VQ1 (P$(VQ),6,1)"N" 13201"INCORRECT TYPE OF FIELD, PLEASE RE-ENTER"1 12802("DO YOU WANT TO SUM OVER ALL RECORDS?(Y/N)";S1$2C2 S1$"Y" 1340 : V0: 13502<"ENTER THE FIELD NUMBER AND EXPRESSION TO BE COMPARED";V,S$2FT11: SM0: T2N2P IT1 T22ZRS$M$(I)2dE$(RS$,5)2nT3(E$)2xE$RS$2RS$(126)3 2990 :ROUTINE TO PARSE STRING3# 15103@ RUBOUT COMMAND ROUTINE3OFDT2T113b IT21 N13uM$(IFD)M$(I)3}ȋ I3NNFD3ܐ3 T4 15903 V0 1540 :SUM THE RECORDS3 C$(V)S$ 1890 : GOTO SEARCH ROUTINE4 T7 16904 "(";I;")";4)T3(C$(VQ))46"SMSMT34B, 18904^6 T1 1690,1690,16004|@ ROUTINE TO PRINT LABELS4J J1 54T C$(J)"END" 16504^#2, C$(J)4h J4r#24| 189045 "YOU HAVE EXCEEDED THE ALLOWED RECORD LENGTH, PLEASE RE-ENTER"5) I;") "58 J1 105Y (P$(J),3)"END" 17905p P$(J);": ";C$(J)5… T3 17705̉ RS$5օ RS$"-" 17705C$(J)RS$5 J55 T3 18906P$C$(0) :ROUTINE TO ADD A CHANGED RECORD6  P$6E$P$(126)6+& J1 106N0 (E$)(C$(J))245 16806f:E$E$C$(J)(126)6D P$(J)"END" 18806N J6XM$(I)E$6b I6l T8 19206v "THE SUM OF RECORD ";P$(VQ);" = ";SM66 LOAD DATA FROM DISK7@:J1::"":"DO NOT TYPE THE EXT.":"ENTER FILE NAME TO LOAD";F$7Z 3330:"I",1,F$7e#1,E$7vJJ1:#1,E$7 E$"EOF" 20107M$(J)E$7Ё19707E$M$(0)7RS$(126)7 29807 I1 308P$(I)C$(I): (P$(I),3)"END" 20708 I:II18&N(C$(I1))82 :7708F* HELP SEQUENCE8a4"COMMANDS AVAILABLE:"8>"ADD: ADDS RECORDS TO THE FILE":"":"CHANGE: CHANGES RECORDS IN THE FILE":""9H"RUBOUT: DELETES A RECORD FROM THE FILE":"":"LIST: LIST ALL OR CERTAIN RECORDS":""9cR"LABELS: LINE PRINTS CONTENTS OF THE FILE":"":"SAVE:LOADS DATA TO DISK":""9\"SORT: SORTS RECORDS INTO ALPHANUMERIC ORDER BY A SPECIFIED FIELD":"":"SUM: SUMS A SPECIFIED FIELD OVER A GROUP OF RECORDS":"":)f"SEARCH: FINDS A RECORD CONTAINING A SPECIFIED FIELD":"":gp"HELP: BRINGS YOU HERE":"":"END: ENDS THE PROGRAM":"":mz: DETERMINE THE RANGE: N0 "EMPTY FILE": N0 770: "ENTER MODE:A(ALL),O(ONE),R(RANGE)": E$: E$"A" 2260;T2N:T11;ʁ 2400;(ԅ E$"O" 2310;Jމ "ENTER NUMBER OF RECORD";T1;\ T1N 2410;fT2T1;r 2400;  E$"R" 2340; "IMPROPER SYNTAX, PLEASE RE-ENTER";  2210; $"INPUT THE LOWER BOUND"; . T1; 8 T11T11< B T1N 2410<$ L"INPUT THE UPPER BOUND";T2<6 V T2N 2410<< ` ( IT1 T2> 2E$M$(I)>$ 0 F 2980>@ PD$(I)C$(V)>H Z I>i d (P$(V),6,1) "A" 2690>r nVR1>~ x 2730> (P$(V),6,1)"N" 2720> "ERROR: THE WRONG FIELD TYPE WAS INPUTTED"> 770> VR2> SORT ROUTINE> MN? M(M2)? ȅ M0 2970?$ J1?. KNM?6 IJ?@ LIM?R VR2 2840?k  D$(I)D$(L) 2940?w  2850?  (D$(I))(D$(L)) 2940? "E$D$(I)? ,D$(I)D$(L)? 6D$(L)E$? @E$M$(I)? JM$(I)M$(L)? TM$(L)E$? ^IIM@ h I1 2940@ r 2800@ |JJ1@/ JK 2750@; 2790@E 770@K @h STRING PARSING ROUTINE@q K1@ €J21(E$)@ ̅ RS$(E$,J2,1)3050@ ֋ J2@ @ QJ21@ KK1@ C$(K)(E$,1,Q)@ E$(E$,J21)@ J20@  3010K 1,1 840%7,2,U+7' 3,2,U]( 5,5:"Skynet Systems v1.0 1992"m,T1200:T{= 3,2: 4F 5,5:"1 Terminal"P 5,7:"2 Database"Z 5,9:"3 Word Processor"d 5,11: "4 Directory"n 7,20:3,2: "OPERATION ?";Oo 4p O1 200.r O2 250>t O3 300Nv O4 350dx O1 O4 112z"V2;L16;A;B;C;D"Ҏ"SKYTERM/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"h(r 5,20: " To Return to Menu..."J|A$: A$"M" 61 : 3800dx O1 O4 112z"V2;L16;A;B;C;D"Ҏ"SKYTERM/SYS""V2;L16;B;C;D;C""DATABASE/SYS","V2;L16;C;D;E;F;G"6"WORD PRO/SYS"^ "V2;L16;C;A;B;D"hM&  40&. 3,2::"":" DATABASE PROGRAM"&SA$"WELCOME TO DATABASE": 3340&_"":""& T1 1000: T:A$"BEGIN NEW FILE LOAD OLD FILE LIST COMANDS PLEASE CHOOSE THE COMAND YOU DESIRE. THEN PRESS ENTER.": 3340' " 1 BEGIN NEW FILE":""'-(" 2 LOAD OLD FILE":""'Q2" 3 LIST COMMANDS":""' REQUIRES ABOUT 15K MEMORY. INITIALIZED FOR UP TO 200 RECORDS WITH 30 FIELDS EACH' 6000: 'CLEAR 600' RESERVES 6000 BYTES FOR STRINGS( ALTER THESE DIM STATEMENTS TO ALLOW FOR MORE RECORDS(G P$(30),C$(31),F$(31),M$(200),D$(200)(O V(jA$"THANK YOU": 3340({ V3 3430( :CLEARS SCREEN( V2 1930(F1$" ": C$"":P$(0)"BUFFER EMPTY":N0(:)G&A$"PLEASE INPUT FEELD NAME FEELD TYPE AND THE CORRESPONDING LETTER, A FOR ALPHA, N FOR NUMARIC.":3340)0"INPUT FIELD NAME, FIELD TYPE (A=ALPHA, N=NUMERIC)"):)D I1 30)N I;") ";)XE$"": E$,RS$)b E$"" 690)l (RS$"A") (RS$"N") 630 : 640*3vA$"INCORRECT SYNTAX, PLEASE RE-ENTER":3340:A$: 600*OE$(E$F1$,4)","RS$* 2440 :ROUTINE TO THROW-OUT EXTRANEOUS SPACES*P$(I)E$* I* 700*P$(I)"END"*::" THE RECORDS AND FIELDS ENTERED WERE :"*ƀ I1 10+Ѕ (P$(I),3)"END" 750++ڇ I;": ";P$(I)+3 I+A: 770+A$ "INCORRECT SYNTAX, PLEASE RE-ENTER YOUR COMAND":3340+A$"NEXT COMAND PLEASE":3340: "COMMAND";E$:A$E$:3340+ N10:++ Z$,T+* Z$"##" 760, 4 (Z$,3)(E$,3) 800,N> T 870,1150,1150,1150,2090,3290,1340,1270,3110,1150,2570,YH 770,R ADD,1,LIST,2,CHANGE,3,LABELS,4,HELP,5,END,6,SEARCH,7,\ SUM,8,SAVE,9,RUBOUT,10,SORT,11,##,-1,f ADD RECORD ROUTINE-p "BEGIN ADDING RECORDS. TYPE 'END' WHEN FINISHED."-*zNN1: N1N11: E$""-9 N;") ";-H I1 30-i (P$(I),3)"END" 1030-~7) P$(I);": ";-RS$" ": RS$-- RS$"" RS$" "-ʅ RS$"END" 1100-ԅ (P$(I),6,1)"N" 1000.ޅ (RS$)43 (RS$)58 1000. .C (E$)(RS$)245 1060 : E$E$(126)RS$.K I.XP$(N).mE$P$E$(126).y 1070.$ "YOU HAVE EXCEEDED THE ALLOWED RECORD LENGTH, PLEASE RE-ENTER": 900..M$(N)E$.8.B 890/L END OF ADDITION TO Rf 1,1 840%7,2,U+7' 3,2,U]( 5,5:"Skynet Systems v1.0 1992"m,T1200:T-A$"Skynet Systems v1.0 1992"2 5,7: A$: T1200: T4 5,9: A$: T1200:T6 5,11:A$:T1200:T8 5,13:A$:T1200:T: 5,15:A$:T1200:T9< 5,17:A$:T1200:T:3,2G= 3,2: 2_F 5,5:"1 Terminal"wP 5,7:"2 Database"Z 5,9:"3 Word Processor"d 5,11: "4 Directory"n 5,13:"5 Business Phone"x 5,15:"6 Tele-Voice" 5,17:"7 Exit Skynet Systems"0 7,20:3,2: "OPERATION ?";O8 4H O1 580X O2 600h… O3 620x̅ O4 640օ O5 690 O6 710 O7 720: O1 O7 430D"V2;L16;A;B;C;D"N"SKYTERM/SYS"X"V2;L16;B;C;D;C"b"DATABASE/SYS")l"V2;L16;C;D;E;F;G"=v"WORD PRO/SYS"T "V2;L16;C;A;B;D"Z 5,20: " To Return to Menu..."A$: A$"M" 61 : 670"V2;L16;C;A;D;C""B-PHONE/SYS"Ǝ"VOICE/SYS"!О 4: 4,0::"<<<>>>": A1 1200: AW"V5;L64;A;C;A;C;B;C;B;C;D;C;D;C;E;C;E;C;F;C;F;C"e 4,2::" To Return to Menu..."A$: A$"M" 61 : 670"V2;L16;C;A;D;C""B-PHONE/SYS"Ǝ"VOICE/SYS"!О 4: 4,0::"<<<:+Y:LEFT MARGIN (FOR TV)+eLFMAR0+l:+:FOREGROUND COLOR (WHITE)+FCOLORC+:+:BACKGROUND COLOR (BLACK)+BCOLOR0+:+:---BAUD RATE---+BBAUD+ :,:TIMER SET TO 7X BAUD RATE,: T((143181814)(BAUD7)),K*T1(T256),[4T2T256T1,b>:,uH:---AUTOLF---,RAUTOLF0,\: 0-NO,f: 1-YES,p:,z:---DUPLEX---,DUPLEX0,: 0-FULL,: 1-HALF,:, 80- &H200,CAX- &H201,LMAX-)ʒ &H202,LFMAR-<Ԓ &H203,FCOLOR-Oޒ &H204,BCOLOR-^ &H205,T1-m &H206,T2- &H207,AUTOL- &H208,DUPLEX- 5,9:A$ "READY TO INITIALIZE PORT ?....":A$:5000:T12600:T-"V1;L18;A;D;B;D;C;D;E;D;". : .T11200:.*X&HFF00:Y&HFF7E.7 X1,52.N X3,63: X35,60.[I(A$).g Z1I.~ Y,((A$,Z,1)).ċ Z.Β Y,32.ؐ,9:A$ "READY TO INITIALIZE PORT ?....":A$:5000:T12600:T-"V1;L18;A;D;B;D;C;D;E;D;". $%()*+,BOOT SYS iSKYTERM SYS!TERM3 COM"}WORD PROSYS#SKYNET SYSNDATABASESYSPBBS LISTDAT&B-PHONE SYS'PH-B RBPTEST WRDES RBPVOICE SYS- SYSO BASJAMECO DATCATALOGSDAT.ORD PROBAS/ BASEST DAT`s`@8Y X1?&n5'u @'}'d 4 &Z&Y 5' 瀌Y&X94'@& =' 594 $ ' '&  }' <䧄 5$ %$  Z '  9@X=0X:9@XO3J=1>& J&9LP&@DVDVDV@ 1?&9P,## "0)` \9 &> ' & '&瀌Z&Y  VYY ' ' ="V$ 3 &+  '"VV  瀌Y&X ;`@ 1?&9P,## "0)` \9 &> ' & J:WRITE III - COCO III WORD PROCESSOR (C) 1986 BY BILL COOK 11/19/86a1:12000:L$(200)&HFFD9,0: 9000: 10000 CR40:FG3:BG1:CR: : 1,0: 2:7,1:XL200:X14:X(X)X340::XX247 PR$(CR,"-"):BL$(CR1,32):DF$":0":DF0 Start New File,Load Old File,Save Current File,Edit/Review File,Print Current File,Resume Document,Kill File,View Directory,Exit to Main I19:M$(I)::10033:HCR428A$:A$""17A(A$):AN$""316:A1325:A3420:A2150:A9354:A9520:A9120IA12L$(N)AN$:hA8AN$AN$A$:A$;:20(AN$)019:AN$(AN$,(AN$)1):(8);:20A13L$(N)AN$(126):NN1: NXL 80(126):AN$"":33:20 (AN$,H,1)" "HH1:28EL$(N)(AN$,H):H,V:(CR2H,32):NN1: NXL 80dAN$(AN$,H1):AN$;:33m20}!X$,X,H,V:%H,V:'ZZ(CR2)((Z$)2): ZZ,V:7,1:Z$:3,1:.RP0:X14:(X(X))XX RP1:X(X),255:::0H246:RP1(AN$)0AN$(AN$,(AN$)1):(8);:HH(H11):H,V:50 :20646:RP1(AN$)76AN$AN$" ":" ";:HH(H1CR4):H,V:54 :20FF$""100G(1,F$,"/")0 (1,F$,".")0 F$F$".DAT"*H"D",1,F$,1:LO(1):LO0 :"File not found."::F$:TD11000::UN1: : :d:H0:V0:H,V:Z$"Write III --- CoCo III Word Processor":39:VV1:Z$"By Bill Cook":39:PR$;:3,1nI19:CR212,I5:I;(8);". ";M$(I):sCR212,16:"File in memory : ";F$tCR212,17:"No. Lines :";N;uCR212,18:"Space Remaining:";200Nx CR216,21: 7,1,B:"Select the option of your choice...";: FG,BGA$:A$""130:A(A$)A1A9100,1:130:: A 1000,2000,3000,4000,5000,6000,7000,8000,9000100,1:140ȁ 200(:START NEW DOCUMENTuF$"":H0:V0:282,0:H,V:Z$M$(1)"..Press for MENU":39:PR$;I0XL:L$(I)""::N0:19:282,255::100I0N1:L$(I)::L$(N);:33:INTOXL:L$(I)""::19:282,255:100:LOAD DOCUMENTՒ&HFFD8,0:H0:V05ڞ:Z$M$(2):39:PR$;m"Enter Filename/Ext:";:F$:70:UN1UN0:20107,1::"Loading "F$:1,1:AN$"""I",1,F$:X0 (1)12100 #1,L$(X):XX120504:NX:&HFFD9,0:100 :SAVE DOCUMENT &HFFD8,0:H0:V06 ž:Z$M$(3):39:PR$;\ ̇"Enter Filename/Ext:";:F$:70u 7,1::"Saving "F$ "O",1,F$:I0N:#1,(34)L$(I)(34): :&HFFD9,0:100:EDIT DISPLAYwM1$" orward ack nsert line elete line dit line enu ":M2$"orward ack nsert line":M3$"elete line dit line enu":V0:Z$M$(4):39:PR$;PP0:SC1:LP18:LV0 0,2:282,255:A$:XLPPP LPPPLP:" "L$(X)::V22:0,21:PR$;:CR80Z$M1$:39'CR40 0,22:M2$;M3$;FLV0H0:VLV:37:4040WH0:V2:37A$:A$""4040 : A((94)(10)(8)(9)"IDMEFB",A$): A 4120,4120,4120,4120,4140,4150,4160,4170,4180,4190Ҡ100,1:4040 (341)247 V2 341,255:VV1:37:TD140: _"(342)247 (VLP2 NON1)342,255:VV1:37:TD140: #(344)247 HCR3344,255:HH1:37:4200 $(343)247 H0343,255:HH1:37:4200 'NOLPPPV2:4040!5,NOLPPPV2:N12000,22:"Only 200 lines allowed.....":100,5:TD12000::100!L-N0100,1:4040!.0,22:10)"Making room for insert.....":I1N NO 1:I203: I214146!/I3((L$(I1))I2)!0((L$(I11))I2),I3!2 I2,I1:L$(NO)(32):NN1:LVV:4020"6NOLPPPV2:N0100,5:4040"P70,22:10)"Deleting line.....":I1NO1 N"\8I203"l9I21 4157":I3((L$(I1))I2)";((L$(I11))I2),I3"=I2,I1:NN1:LVV:4020"@100#1JNOLPPPV2:0,22:7,1:"Line Edit Mode: Press to Exit":0,23:BL$;:282,0:N0100,5:4010#KA$L$(NO):Z1$" !#$%&'()*=1234567890:-@+;?/>.<,ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz":1,V:1,1:A$;:H0H1:37 :37$LZ$:Z$""4172 :(343)247343,255:HH1 :(344)247344,255:HH1$9MH1H1 :H(A$)1 H(A$)1$NZ$(13)1,V:3,1:A$;:L$(NO)A$:282,255:0,V:33:100,1:0,22:CR80M1$:0,V:4040 :M2$;M3$;:0,V:4040%POZ$(21)(A$)133:Z$:(A$,H1);" ";:37:A$(A$,H1)(A$,H1):4172 :Z$(21)(A$)133:(A$,H1);" ";:37:A$(A$,H1):4172%PZ$(93)(A$)CR233:Z$:" ";(A$,H);:37:A$(A$,H1)" "(A$,H):4172%Q(Z1$,Z$)04179&4R(H1 HCR2)A$(A$,H1)Z$(A$,H1):HH1:1,V:A$; : (H1HCR2)A$Z$(A$,H1):HH1:1,V:A$;&DS37:4172&uT(PP1)LPN PPPP1:4020 :100,5:4040&^PPLP0 PPPP1:4020 : 100,5:4040&h4040&:PRINT':"Is printer on (Y/N)?";:Y$:(Y$,1)"Y" (Y$,1)"y"PR1 :PR0'B"How many copies";:NC:Q1 NC::Z$M$(5):39:PR$;'~LM10:RM10:LG80LMRM:LP55:PG0:L10:SP1:BF0:B$""'I0N:IN LF1'A$B$L$(I):B$"":(A$,1)";" 5500 :PRINTER COMMAND'LL(A$)'LLLG 5040("X(A$,(126)):X0(A$,X,1)(32):B$""(-5055(MB$(A$,LG1):A$(A$,LG)((A$,1)" "B$(A$,1)B$:A$(A$,(A$)1):5041(5400(X(B$,(126)):X0A$B$:B$"":5030(ċI,Q(100(33:LM,V:&HFFD8,0:A$)"L1L1SP:SP2 : SP3:)1#PR05490 :#2,LM);A$)R'SP2#2::SP3#2:#2),(L1LP LF1) #2:L1L11:L160 #2,35);"-";PG1;"-":#2,(12):L11:PGPG1:LF0::5420)6BF0#2,(27);"E"; :EMPHASIZED FOR EPSON MX- ON*.7BF0#2,(27);"F"; :EMPHASIZED FOR EPSON MX- OFF*>r&HFFD9,0:*U|:PRINTER COMMANDS*X(A$,"LM="):X0 LM((A$,X3,2)):LM20LM20*X(A$,"RM="):X0 RM((A$,X3,2)):RM20RM20+X(A$,"LP="):X0LP((A$,X3,2)):LP66 LP66+/X(A$,"PG="):X0PG((A$,X3,2))+fX(A$,"SP="):X0SP((A$,X3,2)):SP3SP3+X(A$,"BF="):X0BF((A$,X3,2))+X(A$,";N"):X0LF1 : LF0+LG80LMRM+́5060+p:RESUME,z:H0:V0:Z$M$(6):39:PR$;,>I0N1:L$(I)::L$(N);:282,0:33:20:282,255:100,IX:KILL,W]&HFFD8,0,ub:Z$M$(7):39:PR$;::,l"Enter Filename/Ext:";:F$:70:UN1UN0:7010,v1,1::"Are you sure? (Y/N)?";:S$:(S$,1)"Y"70010-7,1:"Killing "F$: F$:&HFFD9,0:100-!@:DIR-IJ:&HFFD8,0:Z$M$(8):39:PR$;::-T7,1:"Press any key to return to MENU":44539:&HFFD9,0:100-#(&HFFD8,0:282,255: :3,2::"BOOT/SYS"-' 3000:"ERROR #";;"IN LINE";:90007,1:"Killing ""BBS LIST" "00000~BBS ,A~PH# ,N~END~ 30~" " 12~Bunker~736-4686~" " 2~Caesar's Palace~736-8522~" " 25~Carnival~235-0158~" " 14~Cat's Meow~235-6094~" " 23~Crazy Horse's~732-8279~" " 18~CyberDen~1-313-621-9437~" " 18~Death~232-7869~" " 30~Dojo BBS~733-6057~" " 22~F.A.C.E. BBS~230-8433~" " 10~Fantasia~744-4694~" " 11~Flayer's Lair~787-3957~" " 29~FlintStones~732-3517~" " 19~Fox Fire~785-9307~" " 6~Galactron~232-6359~" " 3~Inner Circle~736-1838~" " 13~Invincible Empire~238-5515~" " 8~Iron Legion~736-5628~" " 5~Logic Board~736-5937~" " 28~MegaBoard~238-0220~" " 9~Midnight Express~736-8672~" " 26~Mithrander's Magic Shop~239-7890~" " 20~Never Board~736-3472~" " 15~Nine Planes~233-6095~" " 27~Scorpion's Nest~232-1905~" " 4~Temple of Doom~733-5667~" " 1~Tim's Place~235-8829~" " 24~Totem Pole~238-1178~" " 17~Vehicle City~736-1163~" " 16~Wild Blue~743-8464~" " 21~World of Wonder~233-0824~" EOF ver Board~736-3472~" " 15~Nine Planes~233-6095~" " 27~Scorpion's Nest~232-1905~" " 4~Temple of Doom~733-5667~" " 1~Tim's Place~2351:7000:65497,0:F$(101),L$(101),A$(101),C$(101),S$(101),Z$(101),P$(101),SP$(101),D1$(101),D2$(101),DA$(101),CO$(101):N0 :V$"T200O3EADGBE":40::SS$(40,"-")::3,2,B:"****************************************"; 3,2 "....BOOTING RB-PHONE..."% 60023,0:0,10:"Do You Wish To Load The Data File PH-B?":2,0:14,12:"(Yes or No)":18,14:3,0,B:" ?";:19,14:4005I$"Y"712:200,3:T,0:"Rec. ";:"###";N;:(0(39(FG$))2),3:FG$:31,3:"Left ";:"###";100N;:0,0:" ";:* 600265497,0:T4:M2:B3:D$"BUSINESS LISTING,ADD....DATA.,LIST...DATA.,SORT...DATA.,PRINT..DATA.,SEARCH.DATA.,SAVE...DISK.,LOAD...DISK.,END....PROG.":5000I 100,200,300,400,500,600,700,6000d:** ADD DATA **fN10020UiT5:M3:B3:D$"ADD NEW DATA,Add New Data,Exit/Menu":5000enI 115,20sD$"ADD NEW DATA":5000:NN1:Q$"Record # ":(0(39(Q$))2),3:3,0:Q$;:22,3:Nox0,6:0,0:"BUS NAME : ";F$(N):"LOCATION : ";L$(N):"ADDRESS : ";A$(N):"CITY : ";C$(N):"STATE : ";S$(N):"ZIP CODE : ";Z$(N):"PHONE : ";P$(N)}"CROSSROAD : ";SP$(N):"HOURS OPEN: ";D1$(N):"NOTES : ";D2$(N):"NOTES : ";DA$(N):"CODE......: ";CO$(N)8:3,0:"Is this correct? (Yes or No)";:0,0::4005:I$"Y"135:NN1B100X:** LIST DATA **`R1yʅN020:205:220͞:V$:Q$"Record # ":(0(39(Q$))2),0:3,0:Q$:22,0:R:0,0:G0,1:3,2:F$(R);" ";L$(R):A$(R):C$(R);" ";S$(R);" ";Z$(R)::"PHONE NO. ";P$(R)::SP$(R)"":215:"LOCATION ";SP$(R):rӅD1$(R)"":212:"HOURS ";D1$(R):ԅD2$(R)"":213:"NOTES ";D2$(R)ՅDA$(R)"":215:"" ; DA$(R)ׇ"Code: ";CO$(R):܇::4,0:SS$:3,0:" =Next Record =First Record":" =Last Record =Edit Record ":" =Delete Record =Main Menu =Back-Previous =Copy Record";:0,0:38,22ၦ4005I$(13)RR1:RN RN:202:202I$"F"201I$"L"RN:202I$"E"800I$"D"900'I$"M"20MI$"B"RR1:R1R1:202:202fI$"C"4700:202p225,:** SORT DATA **.N0201T3:M3:B2:D$"SORT DATA,BUS NAME,LOCATION,ADDRESS,CITY,STATE,EXIT/MENU":5000 6I 315,320,325,330,335,340,204;4050:V1:4065:4060:4030:20]@4050:V2:4065:4060:4030:20E4050:V3:4065:4060:4030:20J4050:V4:4065:4060:4030:20O4050:V5:4065:4060:4030:20T4050:V6:4065:4060:4030:20%:** PRINTER DATA FOR DMP110 **aN020:X11:150,87:65496,0:#2,(27);(66);:JK6W0:T3:M3:B2:D$"PRINTER DATA,PRINT ADD. LABELS,PRINT ADD. LIST,PRINT RECORD(S),TYPE (PRINT) HEADER,EXIT/MENU":5000I 415,425,435,464,20cT6:M3:B2:D$"PRINT ADDRESS LABELS,ALL RECORDS,SELECT RECORD(S),EXIT/MENU":5000:I 416,420,405rA1:4300 A2:D$"SELECT LABEL(S) SEARCH":5000:0,7:2,4:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No) ":0,0::4005:I$"Y"4300:405 jD$"PRINT BUSINESS PH. LIST,ALL RECORDS,SELECT RECORD(S),EXIT/MENU":5000:I 426,430,405 yA3:4300! A4:D$"SELECT LIST SEARCH":5000:0,7:1,0:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No)":0,0::4005:I$"Y"4300:405!gD$"PRINT FULL RECORD(S),ALL RECORDS,SELECT RECORDS,EXIT/MENU":5000:I 436,440,405!uA5:444" A6:D$"SELECT RECORD(S) SEARCH":5000:0,7:1,0:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No)":0,0::4005:I$"Y"444:405"(:** PRINT ALL RECORDS **"SX11:A5R1:446:A64120:446"205:#2,JK15);:#2,19);F$(R);" ";L$(R):#2,19);A$(R):#2,19);C$(R);", ";S$(R);" ";Z$(R):#2,19);"PHONE ";P$(R):#2:#2,19);"CROSS RD.";SP$(R)##2,19);F$(R);" THE HOURS OPEN ARE: ";D1$(R):SP$(R)""#2:#2:#2,19);SP$(R);" NOTES ARE: ";D2$(R):DA$(R)""#2:#2,19);"NOTES: ";DA$(R)##2:RN A0:20:A6X1X11:4610:R:4134:RR1:X1X11:4610:446#:** (1) WIDE **$+ÅA3 A1R1:452:A4 A24120:452$ā205:#2,JK);:#2,4);L$(R);", ";F$(R);:JK4:SP$(R)""#2:454:#2," & ";SP$(R)$Ƈ#2,4);A$(R):#2,4);C$(R);", ";S$(R);" ";Z$(R)$ȅA3 A4#2,4);"PHONE NO. P$(R)%DʅA3 A1RR1:RN 462:A3X1X11:#2:4600:452:A1#2:#2:#2:452%̅A4X1X11:4600:#2:R:#2:A0:4134:A2#2:#2:#2:R:#2:#2:#2:A0:4134%΅A3#2:20:A1#2:#2:#2:20:20&HT4:D$"TYPE (PRINT) HEADER":5000:Q$"Type Out Header To Printer":(0(39(Q$))2),7:1,0:Q$:0,11:Q$&{҇#2,0(79(Q$))2);Q$:#2:#2:JK4:405&:** (2) WIDE **&݅A3 A1R1 N 2:205:#2,JK);:#2,4);L$(R);", ";F$(R);:SP$(R)""478:#2," & ";SP$(R);'ޅA3 A1R1N #2:479:A3 A1#2,JK40);:#2,44);L$(R1);", ";F$(R1);:JK4:SP$(R1)""#2:479:#2," & ";SP$(R1)(.߅A3 A1#2,4);A$(R);:#2,44);A$(R1):#2,4);C$(R);", ";S$(R);" ";Z$(R);:R1N #2:480:RR1:205:RR1:#2,44);C$(R1);", ";S$(R1);" ";Z$(R1)(A3#2,4);"PHONE NO. P$(R);:IFR+1>N THENPRINT#-2:GOTO481ELSEPRINT#-2,TAB(44);"PHONE NO. P$(R1):A1#2(A3X1X11:#2:4600:R:20:A1#2:#2:R:20(H0:L0:I24120)QI2H0 L1F1R:HH1:485:I2H1 L1F2R:HH1:487:I2H1 L1487)I2H0 L1492:I2205:#2,JK);:#2,4);L$(F1);", ";F$(F1);:SP$(F1)""486:#2," & ";SP$(F1);)I2H1 L1R:L1*VI2H0:L1#2:488:#2,JK40);:#2,44);L$(F2);", ";F$(F2);:JK4:SP$(F2)""#2:488:#2," & ";SP$(F2)*I2#2,4);A$(F1);:L1#2:489:#2,44);A$(F2)+I2#2,4);C$(F1);", ";S$(F1);" ";Z$(F1);:L1#2:490:205:#2,44);C$(F2);", ";S$(F2);" ";Z$(F2)+iA4#2,4);"PHONE NO P$(F1);:IFL=1THENPRINT#-2:GOTO491ELSEPRINT#-2,TAB(44);"PHONE NO";P$(F2)+A2494:A4 RN1 492:A4 L1492:A4X1X11:4600:#2:R:492+A4A0:#2:4134:A2A0:#2:#2:#2:4134,5A2 RN1 492:A2 L1492:A2#2:#2:#2:R:492,M:** SEARCH DATA **,YN020,T2:M2:B3:D$"SEARCH DATA,SEARCH DATA,EXIT/MENU":5000,I 515,20- 4100:" LIST OF SEARCH CODES"::3,2::"ELECTRICAL PARTS-XEP";" CB PARTS -XCB"-o"COMPUTER SUPPLYS-XCS";" OFFICE PROD. -XOP":"MOTORCYCLE PARTS-XMP";" BARGAN OUTLET-XBO"-"APPLIANCE REPAIR-XAR";" VEHICLE PARTS-XVP":"APPLIANCE PARTS -XAP";" AUTO SERVICE -XAS".2"APPLIANCE OUTLET-XAO";" BALL BEARINGS-XBB":"HEAT&COOL REPAIR-XHC";" DEPT STORES -XDS.=2,0:.3,0:" Do You Want To List The Next Page?"::2,0:" (Yes or No)":3,0,B:26,22:"?":26,22:4005:I$"Y"535:590/0::3,2:"HARDWARE STORES -XHS";" FAST FOOD -XFF":"BUILDING SUPPLY -XBS";" VIDEO STORES -XVS"/"INSURANCE AGENCY-XIA";" LIBRARIES -XLI":"MEDICAL OFFICES -XMO";" BANKING INST.-XBI"/"EDUCATIONAL OFF.-XEO";" SALVAGE YARDS-XSY":"EMPLOYMENT -XEM";" STEEL OUTLET -XSO"0V"ALUMINUM WELDING-XAW";" OPEN CATAGORY ":"OPEN CATAGORY ";"ADD CODE TO LINE 538"0+3,0::" Do You Wish To Back Up A Page?"::2,0:" (Yes or No)":3,0,B:26,20:"?":26,20:4005:I$"Y"515:5901'N:11,7:3,0:"ENTER SEARCH DATA":17,9:2,0:"> ";O$::4120:201?X:** SAVE (DISK) **1KZN1201]T6:M4:B3:D$"SAVE TO DISK,Save New Data File,Save Old Data File,Directory of Files,Exit/Menu":5000:I 610,615,640,202bD$"SAVE TO DISK":5000:Q$"Enter New File Name":(0(39(Q$))2),7:2,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:(NN$)8NN$(NN$,8)".DAT":NN$NN$".DAT"3+gNN$""605:D$"SAVE TO DISK":5000:Q$NN$:(0(39(Q$))2),7:2,0:Q$:Q$"Saving To Disk":(0(39(Q$))2),11:3,0,B:Q$:0,0:0,12:65496,03;l"O",#1,NN$3qX1 N:#1,F$(X),L$(X),A$(X),C$(X),S$(X),Z$(X),P$(X),SP$(X),D1$(X),D2$(X),DA$(X),CO$(X)3v:#14{65497,0:Q$"File Saved To Disk":V$:(0(39(Q$))2),15:3,0:Q$:0,0:0,16:4030:204O65496,0::::"FREE GRANS (";(0);:")":0,0::65497,0:4005: 605 4g:** LOAD (DISK) **4T2:M4:B3:D$"LOAD FROM DISK,Load File,Directory Of Files,Exit/Menu":5000:I 710,750,205D$"LOAD FROM DISK":5000:Q$"Enter File Name":(0(39(Q$))2),7:3,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:FG$"- "NN$" -":NN$NN$".DAT":7155Ȟ:Q$"File Name is PH-B":(0(39(Q$))2),7:3,0:Q$:NN$"PH-B.RBP"6VD$"LOAD FROM DISK":5000:Q$NN$:(0(39(Q$))2),7:4,0:Q$:Q$"Loading From Disk":(0(39(Q$))2),11:3,0,B:Q$:0,0:0,87 ̀X1 N:F$(X)F$(0):L$(X)L$(0):A$(X)A$(0):C$(X)C$(0):S$(X)S$(0):Z$(X)Z$(0):P$(X)P$(0):SP$(X)SP$(0):D1$(X)D1$(0):D2$(X)D2$(0):DA$(X)DA$(0):CO$(X)CO$(0):X:N1:65496,07Й"I",#1,NN$7/Յ (1)17407ډ#1,F$(N),L$(N),A$(N),C$(N),S$(N),Z$(N),P$(N),SP$(N),D1$(N),D2$(N),DA$(N),CO$(N)7NN1:7257#1:NN1765497,0:Q$"File Loaded From Disk":V$:(0(39(Q$))2),15:3,0:Q$:0,0:0,16:40308:3,0:4,10:"Do You Wish To Search For Data?":2,0:14,12:"(Yes or No)":3,0,B:19,14:"?":19,14:4005:I$"Y"515:20865496,0::::"FREE GRANS (";(0);")":0,0::65497,0:4005: 7058 :** EDIT ROUTINE **9%T3:M2:B3:D$"EDIT DATA,EDIT DATA,EXIT/MENU":50009.*I 812,209>,815:8209/:V$:Q$"Record # ":(0(39(Q$))2),0:3,0:Q$;:22,0:R:Q$"PRESS = NO CHANGE":(0(39(Q$))2),21:2,0:Q$;:940,3:2,0:"BUS NAME : ";F$(R):Q$:Q$""821:F$(R)Q$:35"LOCATION : ";L$(R):Q$:Q$""822:L$(R)Q$:g6"ADDRESS : ";A$(R):Q$:Q$""823:A$(R)Q$:7"CITY : ";C$(R):Q$:Q$""824:C$(R)Q$:8"STATE : ";S$(R):Q$:Q$""825:S$(R)Q$;9"ZIP CODE : ";Z$(R):Q$:Q$""826:Z$(R)Q$;7:"PHONE NO. : ";P$(R):Q$:Q$""827:P$(R)Q$;m;"CROSSROAD : ";SP$(R):Q$:Q$""828:SP$(R)Q$;<815:0,3:2,0;="HOURS OPEN: ";D1$(R):Q$:Q$""830:D1$(R)Q$;>"NOTES : ";D2$(R):Q$:Q$""831:D2$(R)Q$<#?"NOTES : ";DA$(R):Q$:Q$""832:DA$(R)Q$F$(X)F$(X1):L$(X)L$(X1):A$(X)A$(X1):C$(X)C$(X1):S$(X)S$(X1):Z$(X)Z$(X1):P$(X)P$(X1):SP$(X)SP$(X1):D1$(X)D1$(X1):D2$(X)D2$(X1):DA$(X)DA$(X1):CO$(X)CO$(X1)>$X:NN1>lQ$"Finished":(0(39(Q$))2),15:4,0:V$:Q$:0,0::4030:20>:** SUBROUTINES **>I$:I$""4005:>X11200::>T3:D$"SORT DATA":5000?Q$"SORTING":(0(39(Q$))2),9:3,0,B:Q$:0,0::?KV$:Q$"Sort Finished":(0(39(Q$))2),17:4,0:Q$:0,0::?cX1 N1:JX1 N?V1F$(X)F$(J)4079?V2L$(X)L$(J)4079?V3C$(X)C$(J)4079?V4S$(X)S$(J)4079?V5Z$(X)Z$(J)4079@ V6P$(X)P$(J)4079@AA$F$(X):AB$L$(X):AC$A$(X):AD$C$(X):AE$S$(X):AF$Z$(X):AG$P$(X):AH$SP$(X):AI$D1$(X):AJ$D2$(X):AK$DA$(X):AL$CO$(X)A*F$(X)F$(J):L$(X)L$(J):A$(X)A$(J):C$(X)C$(J):S$(X)S$(J):Z$(X)Z$(J):P$(X)P$(J):SP$(X)SP$(J):D1$(X)D1$(J):D2$(X)D2$(J):DA$(X)DA$(J):CO$(X)CO$(J)AF$(J)AA$:L$(J)AB$:A$(J)AC$:C$(J)AD$:S$(J)AE$:Z$(J)AF$:P$(J)AG$:SP$(J)AH$:D1$(J)AI$:D2$(J)AJ$:DA$(J)AK$:CO$(J)AL$AJA18,13:3,0:"###";X;:0,0:" ";:XABD$"SEARCH ON <1> FIELD":5000:BR1 NB*(F$(R),O$)4140BA(L$(R),O$)4140BX(A$(R),O$)4140Bo(C$(R),O$)4140B(S$(R),O$)4140B(Z$(R),O$)4140B(P$(R),O$)4140B (SP$(R),O$)4140B!(D1$(R),O$)4140B"(D2$(R),O$)4140C#(DA$(R),O$)4140C,$(CO$(R),O$)4140CB%R:W2L1:484C&W0:T4:D$"SEARCH DATA":5000:Q$"ALL RECORDS FOUND!":(0(39(Q$))2),7:3,0:Q$:Q$"PRESS ":(0(39(Q$))2),20:3,0:Q$:0,0::4005:I$(13)20:4134D,W1452:W2484:A6446:205:::4,0::SS$::2,0:" =NEXT =MAIN MENU":" =EDIT RECORD =DELETE RECORD":0,0:38,22D14005:I$(13)R:4134:I$"M"20:I$"E"800:I$"D"900:4145E5T2:M2:B6:D$"PRINTER COLUMNS,(1) WIDE,(2) WIDE,EXIT/MENU":5000:WI:I 450,475,405EZX111G116:#2:G:X11::E~X16G116:#2:G:X11::F5\N110020:V$:NN1:F$(N)F$(R):L$(N)L$(R):A$(N)A$(R):C$(N)C$(R):S$(N)S$(R):Z$(N)Z$(R):P$(N)P$(R):SP$(N)SP$(R):D1$(N)D1$(R):D2$(N)D2$(R):DA$(N)DA$(R):CO$(N)CO$(R):FN:** MENU ROUTINE **FLN0:LL0:MG0:MD1:40::5008::V$:TB((39(DT$))2):0,0:T,0:TB)DT$:TB)((DT$),(158)): (D$,",")0 M,0:F5008:LNLN1: (DT$)LL LL(DT$)G%DT$(LN)DT$: CM0 5014 : 5004G]CM((D$,MD),","): CM0 DT$(D$,MD): 5012G}DT$(D$,MD,CM1):MDMDCMGH0,0:MG((32LL)2):MG$(MG," "):X1 (18LN)2:::M,0:X1 LN:MG$;X"- ";DT$(X)::18:QQ$"YOUR CHOICE ":(0(39(QQ$))2),22:B,0:QQ$;H;B,0,B:(63):0,0:39,22HQI$:I$""5018H{I(I$): I1 ILN 100,2:5018H0,0:Hp:** END PROGRAM **IPr:V$:V$:3,0:1,4:"ARE YOU SURE YOU WANT TO END PROGRAM?"::3,2::" Did You Save Your Data File?":::2,0::" (Yes or No)":3,0,B:26,11:"?":26,11It4005:I$"Y":65496,0:0,0: 32:"BOOT/SYS":20** END PROGRAM **IPr:V$:V$:3,0:1,4:"ARE YOU SURE YOU WANT TO END PROGRAM?"::3,2::" Did You Save Y 32 X&HFF00:Y&HFF7E, X1,52BX3,63: X35,60K 40} 3:"TYPE THE WORDS THAT YOU WANT ME TO SAY"!"THEN PRESS THE KEY":"TYPE XXX THEN PRESS TO EXIT"( A$) A$"XXX" 110- 50. 402I(A$)< Z1 I7F Y,((A$,Z,1)): 10?P ZJZ Y,32Pdnn"V5;L64;G;B;G;B;G;A;G;A"x: "BOOT/SYS"THEN PRESS THE KEY":"TYPE XXX THEN PRESS TO EXIT"( A$) A$"XXX" 110- 50. 40"CATALOGS" "00000~BUS.,A~ADDR,N~CSZ ,N~END~ 7~" " 1~JDR Microdevices~1224 S. Bascom Ave.~San Jose CA 95128~~" " 2~Dick Smith Electronics~P.O.Box 8021~Redwood CA 94063~~" " 3~DIGIKEY~P.O. Box 677~Thief River Falls MN 56701~~" " 4~Mark V Electronics~248 East Main St.~Alhambra CA 91801~~" " 5~Jameco Electronics~1355 Shoeway Rd.~Belmont CA 94002~" " 6~Sescom Inc.~2100 Ward Dr.~Henderson NV 89015-4249~" " 7~Campus Car Stereo~941 Mt. Comfort Rd.~Fayetteville AZ 72703~" EOF 1~~" " 4~Mark V Electronics~248 EJ:WRITE III - COCO III WORD PROCESSOR (C) 1986 BY BILL COOK 11/19/86a1:12000:L$(200)&HFFD9,0: 9000: 10000 CR40:FG3:BG1:CR: : 1,0: 2:7,1:XL200:X14:X(X)X340::XX247 PR$(CR,"-"):BL$(CR1,32):DF$":0":DF0 Start New File,Load Old File,Save Current File,Edit/Review File,Print Current File,Resume Document,Kill File,View Directory,Exit to Main I19:M$(I)::10033:HCR428A$:A$""17A(A$):AN$""316:A1325:A3420:A2150:A9354:A9520:A9120IA12L$(N)AN$:hA8AN$AN$A$:A$;:20(AN$)019:AN$(AN$,(AN$)1):(8);:20A13L$(N)AN$(126):NN1: NXL 80(126):AN$"":33:20 (AN$,H,1)" "HH1:28EL$(N)(AN$,H):H,V:(CR2H,32):NN1: NXL 80dAN$(AN$,H1):AN$;:33m20}!X$,X,H,V:%H,V:'ZZ(CR2)((Z$)2): ZZ,V:7,1:Z$:3,1:.RP0:X14:(X(X))XX RP1:X(X),255:::0H246:RP1(AN$)0AN$(AN$,(AN$)1):(8);:HH(H11):H,V:50 :20646:RP1(AN$)76AN$AN$" ":" ";:HH(H1CR4):H,V:54 :20FF$""100G(1,F$,"/")0 (1,F$,".")0 F$F$".DAT"*H"D",1,F$,1:LO(1):LO0 :"File not found."::F$:TD11000::UN1: : :d:H0:V0:H,V:Z$"Write III --- CoCo III Word Processor":39:VV1:Z$"By Bill Cook":39:PR$;:3,1nI19:CR212,I5:I;(8);". ";M$(I):sCR212,16:"File in memory : ";F$tCR212,17:"No. Lines :";N;uCR212,18:"Space Remaining:";200Nx CR216,21: 7,1,B:"Select the option of your choice...";: FG,BGA$:A$""130:A(A$)A1A9100,1:130:: A 1000,2000,3000,4000,5000,6000,7000,8000,9000100,1:140ȁ 200(:START NEW DOCUMENTuF$"":H0:V0:282,0:H,V:Z$M$(1)"..Press for MENU":39:PR$;I0XL:L$(I)""::N0:19:282,255::100I0N1:L$(I)::L$(N);:33:INTOXL:L$(I)""::19:282,255:100:LOAD DOCUMENTՒ&HFFD8,0:H0:V05ڞ:Z$M$(2):39:PR$;m"Enter Filename/Ext:";:F$:70:UN1UN0:20107,1::"Loading "F$:1,1:AN$"""I",1,F$:X0 (1)12100 #1,L$(X):XX120504:NX:&HFFD9,0:100 :SAVE DOCUMENT &HFFD8,0:H0:V06 ž:Z$M$(3):39:PR$;\ ̇"Enter Filename/Ext:";:F$:70u 7,1::"Saving "F$ "O",1,F$:I0N:#1,(34)L$(I)(34): :&HFFD9,0:100:EDIT DISPLAYwM1$" orward ack nsert line elete line dit line enu ":M2$"orward ack nsert line":M3$"elete line dit line enu":V0:Z$M$(4):39:PR$;PP0:SC1:LP18:LV0 0,2:282,255:A$:XLPPP LPPPLP:" "L$(X)::V22:0,21:PR$;:CR80Z$M1$:39'CR40 0,22:M2$;M3$;FLV0H0:VLV:37:4040WH0:V2:37A$:A$""4040 : A((94)(10)(8)(9)"IDMEFB",A$): A 4120,4120,4120,4120,4140,4150,4160,4170,4180,4190Ҡ100,1:4040 (341)247 V2 341,255:VV1:37:TD140: _"(342)247 (VLP2 NON1)342,255:VV1:37:TD140: #(344)247 HCR3344,255:HH1:37:4200 $(343)247 H0343,255:HH1:37:4200 'NOLPPPV2:4040!5,NOLPPPV2:N12000,22:"Only 200 lines allowed.....":100,5:TD12000::100!L-N0100,1:4040!.0,22:10)"Making room for insert.....":I1N NO 1:I203: I214146!/I3((L$(I1))I2)!0((L$(I11))I2),I3!2 I2,I1:L$(NO)(32):NN1:LVV:4020"6NOLPPPV2:N0100,5:4040"P70,22:10)"Deleting line.....":I1NO1 N"\8I203"l9I21 4157":I3((L$(I1))I2)";((L$(I11))I2),I3"=I2,I1:NN1:LVV:4020"@100#1JNOLPPPV2:0,22:7,1:"Line Edit Mode: Press to Exit":0,23:BL$;:282,0:N0100,5:4010#KA$L$(NO):Z1$" !#$%&'()*=1234567890:-@+;?/>.<,ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz":1,V:1,1:A$;:H0H1:37 :37$LZ$:Z$""4172 :(343)247343,255:HH1 :(344)247344,255:HH1$9MH1H1 :H(A$)1 H(A$)1$NZ$(13)1,V:3,1:A$;:L$(NO)A$:282,255:0,V:33:100,1:0,22:CR80M1$:0,V:4040 :M2$;M3$;:0,V:4040%POZ$(21)(A$)133:Z$:(A$,H1);" ";:37:A$(A$,H1)(A$,H1):4172 :Z$(21)(A$)133:(A$,H1);" ";:37:A$(A$,H1):4172%PZ$(93)(A$)CR233:Z$:" ";(A$,H);:37:A$(A$,H1)" "(A$,H):4172%Q(Z1$,Z$)04179&4R(H1 HCR2)A$(A$,H1)Z$(A$,H1):HH1:1,V:A$; : (H1HCR2)A$Z$(A$,H1):HH1:1,V:A$;&DS37:4172&uT(PP1)LPN PPPP1:4020 :100,5:4040&^PPLP0 PPPP1:4020 : 100,5:4040&h4040&:PRINT':"Is printer on (Y/N)?";:Y$:(Y$,1)"Y" (Y$,1)"y"PR1 :PR0'B"How many copies";:NC:Q1 NC::Z$M$(5):39:PR$;'~LM10:RM10:LG80LMRM:LP55:PG0:L10:SP1:BF0:B$""'I0N:IN LF1'A$B$L$(I):B$"":(A$,1)";" 5500 :PRINTER COMMAND'LL(A$)'LLLG 5040("X(A$,(126)):X0(A$,X,1)(32):B$""(-5055(MB$(A$,LG1):A$(A$,LG)((A$,1)" "B$(A$,1)B$:A$(A$,(A$)1):5041(5400(X(B$,(126)):X0A$B$:B$"":5030(ċI,Q(100(33:LM,V:&HFFD8,0:A$)"L1L1SP:SP2 : SP3:)1#PR05490 :#2,LM);A$)R'SP2#2::SP3#2:#2),(L1LP LF1) #2:L1L11:L160 #2,35);"-";PG1;"-":#2,(12):L11:PGPG1:LF0::5420)6BF0#2,(27);"E"; :EMPHASIZED FOR EPSON MX- ON*.7BF0#2,(27);"F"; :EMPHASIZED FOR EPSON MX- OFF*>r&HFFD9,0:*U|:PRINTER COMMANDS*X(A$,"LM="):X0 LM((A$,X3,2)):LM20LM20*X(A$,"RM="):X0 RM((A$,X3,2)):RM20RM20+X(A$,"LP="):X0LP((A$,X3,2)):LP66 LP66+/X(A$,"PG="):X0PG((A$,X3,2))+fX(A$,"SP="):X0SP((A$,X3,2)):SP3SP3+X(A$,"BF="):X0BF((A$,X3,2))+X(A$,";N"):X0LF1 : LF0+LG80LMRM+́5060+p:RESUME,z:H0:V0:Z$M$(6):39:PR$;,>I0N1:L$(I)::L$(N);:282,0:33:20:282,255:100,IX:KILL,W]&HFFD8,0,ub:Z$M$(7):39:PR$;::,l"Enter Filename/Ext:";:F$:70:UN1UN0:7010,v1,1::"Are you sure? (Y/N)?";:S$:(S$,1)"Y"70010-7,1:"Killing "F$: F$:&HFFD9,0:100-!@:DIR-IJ:&HFFD8,0:Z$M$(8):39:PR$;::-T7,1:"Press any key to return to MENU":44539:&HFFD9,0:100-#(&HFFD8,0:282,255: :3,2:"BOOT/BAS"-' 3000:"ERROR #";;"IN LINE";:9000-7,1:"Killing "