L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`fN23:"SAVE TO DISK? (Y/N) ";:300:YES10000:4pN16170@4.NYTHINGkdIA,IN$:IN$(17)ġ:10000qn ** GET CATALOG **ER0:2500ER0ĺ:D$"CATALOG":1702600:140 *** DRAWS A LINE/REPOSITIONS CURSOR/ KK1ANCED A LOOK AS POSSIBLE.":600::800i3>N:LL16:"ENTER YOUR FIRST NAME:":200:100:ITEM$(K)IN$:KK13HNLL16:"AND NOW YOUR LAST NAME?":200:100:ITEM$(K)IN$:KK13RN16040:NA$"*":ITEM$(K)"*":KK1:TI$"*":ITEM$(K)"*":KK1:160903\N3140/42*NTF$"IF YOUR FIRST NAME IS SHORT AND YOUR LAST NAME IS LONG, YOU'LL PROBABLY WANT TO PUT YOUR MIDDLE INITIAL ON THE SAME LINE WITH YOUR FIRST NAME.":600:&34NTF$"OR, IF IT'S THE OTHER WAY AROUND, PUT THE INITIAL WITH YOUR LAST NAME. PLAN FOR AS BALITEM$(I):II1:TL$ITEM$(I):FA$ST$", "CZ$M1FNA$"*"NA0:TI$"*"TI0S1F~1N *** INDIVITUAL/PROFESSIONAL LOGO ***1 N15005:::K1:NA$"*":TF$"WE WILL PRINT YOUR NAME IN TWO LINES OF DOUBLE-WIDTH LETTERS NEAR THE TOP OF MOST FORMS.":600:(LINE$)49Ģ((37)1):18040:0FLINEKĢ((37)1):18040[0F:"OLD LINE = ";ITEM$(LINE)0F:"CORRECT LINE = ";:100:ITEM$(LINE)IN$0F18000-1FI1:B1$ITEM$(I):II1:B2$ITEM$(I):II1:ST$ITEM$(I):II1:CZ$ITEM$(I):II1:NA$ITEM$(I):II1:TI$I1K:I;". ";ITEM$(I):IY/_FNA$"*"Ģ23:"* NOT USED IN THIS INDIVIDUAL VERSION.":12/dF:"CHANGE ANY LINE? (Y/N) ";:300/nFYES18100/xF:"WHICH LINE NUMBER? ";:LINE$:LINE$:LINE(LINE$)/{F(LINE$)13Ģ((37)2):180400}F(LINE$)577140.BININ53:IN$(IN)::5:TF$"MY, THAT'S A LONG SLOGAN OR DESCRIPTION. IN FACT, YOU HAVE "IN$" TOO MANY CHARACTERS. YOU'D BETTER TRY AGAIN.":600:.B10:"ANY KEY TO CONTINUE.";:K$:K$:16095.OF *** CORRECTION ROUTINE ***.PF::5/ZFBK$"H"K$"h"ĺK$:4000:160957-BK$""ĺK$:16095B-B17030b-B ** COMPANY SLOGAN DATA **.BASINAS:AS$(AS)::5:TF$"MY, THAT'S A LONG SLOGAN OR DESCRIPTION. IN FACT, YOU HAVE "AS$" TOO MANY CHARACTERS. YOU'D BETTER TRY AGAIN.":600::1 TO SHORTEN SOME OF THE ITEMS OF DATA YOU JUST ENTERED.":600,|B:TF$"FOR SOME IDEAS ON HOW YOU CAN DO THAT, TAP THE "Q$"H"Q$" KEY. OTHERWISE, TAP "Q$"RETURN"Q$" TO CHANGE SOME OF YOUR ENTRIES.":600,BK$,BK$"H"K$"h"K$""17030!-:TI$:CS$:FA$:TL$:ERı3+@2700:216,0:16160O+gB *** TOO MUCH DATA ***+hB:23:TF$"THAT'S ALREADY LONGER THAN THE ADDRESS LINE CAN HOLD. AND YOU HAVEN'T TOLD ME WHAT YOU WANT YOUR COMPANY SLOGAN/DESCRIPTION TO BE YET.":600=,rB:TF$"YOU NEEDE TO ENTER ANOTHER SET? (Y/N) ";:3004*@YES11000U*@ *** CHAIN TO MAIN MENU ****@ER0:::12:" JUST A MINUTE, PLEASE, FOR THE MENU.":2500*@ER0ĺD$;"BLOAD CHAIN,A520":520"MAIN MENU"*@2600:16550+@ER0ĺB1$:B2$:AL$:ST$:CZ$:NA$:)B@D$;"WRITE LOGO.STARTUP":16590::D$;"CLOSE":216,0:J)`@ER0:2500m)j@ER0ĺD$;"OPEN ";FILE$:16500)o@2700:216,0:16160)t@D$;"DELETE ";FILE$)~@D$;"OPEN ";FILE$:16520:)@D$;"WRITE ";FILE$:16590:%*@D$;"CLOSE":216,0:::5:"LIKFILE TO DISK":16400N(H?34,0::12:"SAVING ";FILE$;" TO DISK":16480:16530k(@ *** SAVE LOGO FILE ***{(@ER0:2500(@ER0ĺD$;"OPEN LOGO.STARTUP":16430($@2700:216,0:16160(.@D$;"DELETE LOGO.STARTUP"(8@D$;"OPEN LOGO.STARTUP":16450: INFORMATION TO LOAD AUTOMATICALLY EACH TIME YOU USE THIS DISK? (Y/N) ";:300:YES16200'/?:10:TF$"YOU SHOULD SAVE THIS STARTUP LOGO ON YOUR PROGRAM DISK. MAKE SURE IT'S IN THE DRIVE, THEN TAP A KEY.":600:800(4?34,0::12:7:"SAVING STARTUP (IN$):INAS17100:IN5317120\&?CS$IN$:NA$"*"AL$CS$" . "ST$", "CZ$" . "TL$:& ?CS$IN$:AL$CS$" . "NA$", "TI$" . "ST$", "CZ$" . "TL$:&?3140& ?23:"SAVE TO DISK? (Y/N) ";:300:YES10000['*?:"WILL YOU WANT THIS SET OFR BUSINESS OR OCCUPATION. FOR HELP, ENTER JUST AN "Q$"H"Q$" -- TO CHANGE THE OTHER INFO ENTER JUST A "Q$"C"Q$" ...":600%>LLAS::"SLOGAN, SPECIALTY OR OCCUPATION?"%>200:100:IN$"H"IN$"h"İ4000:16095%>IN$"C"IN$"c"16095 &?IN$):NA(NA$):TI(TI$):TL(TL$):NA$"*"NA0:TI0:LL124^$>ADCZSTTLNATI:ADLL17000{$>AS(LLAD):AS53AS53$>AS$(AS):::ZZ$"YOU NOW HAVE --> "AS$" <-- ":958%>MC40:NC39:TF$ZZ$" SPACES LEFT FOR A SLOGAN OR DESCRIPTION OF YOU0:100:ITEM$(K)IN$:KK1:Z#>LL25:"INDIVIDUAL'S NAME?":200:100:ITEM$(K)IN$::KK1#>"AND HIS OR HER TITLE?":200:100:ITEM$(K)IN$::KK1#>LL14:"TELEPHONE NUMBER?":200:100:ITEM$(K)IN$:#>18000:LL119:$>CZ(CZ$):ST(ST$):TL(TLAN OPPORTUNITY TO REVISE YOUR ENTRIES AFTER EACH GROUP OF QUESTIONS. SO IF YOU MAKE A MISTAKE OR CHANGE YOUR MIND, JUST CONTINUE ON.":600:">LL30:"STREET ADDRESS OR BOX NUMBER, PLEASE:":200:100:ITEM$(K)IN$::KK1#>"CITY, STATE, AND ZIP?":20TEM$(K)IN$:KK1o!>LL16:"HOW'S THE SECOND LINE TO READ?":200:100:ITEM$(K)IN$:KK1:16040:16070:16150!>::TF$"WE'LL PUT TOGETHER THE BUSINESS DESCRIPTION AND ADDRESS LINES FROM THE INFORMATION YOU ENTER NOW.":600:">TF$"I WILL GIVE YOU 47:0,39K:: TOP DOWN WIPE# :@ >*** DATA FOR PAPERS ***] >:3:K1:NA$"*"NA$"" >TF$"WE WILL PRINT YOUR COMPANY NAME IN TWO DOUBLE - WIDTH LINES AT THE TOP OF MOST FORMS.":600:!>LL16:"PLEASE ENTER THE FIRST NAME LINE"::200:100:I"15052,:IN$"C"IN$"c"İ140:::15052B:FILE$"LOGO."IN$:(FILE$)28TF$"THAT'S LONGER THAN I CAN HANDLE. PLEASE TRY TO MAKE THE NAME SHORTER.":600:800:15040:"ARE YOU SURE? (Y/N) ";:300:YESĢ19:958:15052 :48,160:K2:12: LEFT TO RIGHT WIPE:TF$"PLEASE ENTER THE NAME YOU WILL USE TO REFER TO THIS FILE FROM NOW ON (FOR A CATALOG, ENTER JUST A "Q$"C"Q$"). I WILL ADD A "Q$"LOGO."Q$" PREFIX TO YOUR FILE NAME.":600:LL20:::200:1:"LOGO.";:100:IN$"00::TF$"YOU WILL NEED TO DO THIS JUST ONCE FOR EACH SEPARATE BUSINESS, AND ONCE FOR EACH INDIVIDUAL WITHIN THOSE BUSINESSES.":600:SW40:NC40:MC40:::800:::" & TO START OVER ";::34,1:48,160:K039:2,47K:NESS FIRM LOGOS ***%:15005:16000t::::"JUST & FOR MAIN MENU"::34,1:SW28:NC28:MC28:48,32:K39101:16,39K:::32,11:10:TF$"I WILL ASK YOU FOR THE INFORMATION TO MAKE ONE COMPLETE SET OF BUSINESS PAPERS.":6ECOND IS FOR THE INDIVIDUAL PROFESSIONAL WHO DOESN'T USE A COMPANY NAME, BUT HIS OR HER OWN.":600.TF$"FOR EXAMPLE, "Q$"JOSEPH S. JONES, ATTORNEY"Q$" OR "Q$"FRANK JOHNSON,"Q$" OR "Q$"ANNE STERNS, COMPUTER CONSULTANT."Q$:600::*** BUSI.::TF$"YOU MAY CHOOSE BETWEEN TWO KINDS OF LOGOS. THE FIRST USES A REGULAR BUSINESS NAME -- SUCH AS "Q$"SMITH ASSOCIATES"Q$" OR "Q$"ACME COMPUTER, INC."Q$" -- WITH THE INDIVIDUAL'S NAME AND TITLE IN THE ADDRESS LINE.".600:b.TF$"THE S ACCEPT":V16:TAB138+V:TAB:" ":VV2::V24V18\ +V:TAB:"!":400:11060:11030y4+H(16384):H12811060>+16368,0:H141H((V2)8)::11090H+R+V:TAB:" "::H15000,20000,16550:11000. *** ASK WHICH KIND OF LOGO ***":K1500::::8* *** ASK WHICH KIND OF LOGO ***e*::12000:48,32:K47321:10,38K:+18:12::BR$;" BUSINESS"::12:BR$;" INDIVIDUAL/PROFESSIONAL"::12:BR$;" BACK TO MAIN MENU": +19:" ANY KEY":" TO MOVE,":" ":"TOENTER INFO = 1":"GO TO MAIN MENU = 2":" QUIT TO BASIC = 3"::" NUMBER PLEASE? ";:32,0:}$'A$:A(A$):A1A310020)'A1ĺA$:11000.'A2ĺA$:165508':12:"DO YOU REALLY WANT TO QUIT NOW? (Y/N) ";:300:YES10000B':12:18:"BYE. A TYPE LINE OF LESS THAN 132 SPACES.";" NO BIG DEAL."::"EXPERIMENT. MAKE UP A HALF-DOZEN BUSINESSES TO FIT YOUR MOOD.":800:' *** ASK ABOUT STARTING OVER IN LINE# 10000 ***'48,32:K47341:14,35K:^'32,15:19::" RE-SEPARATES EACH OF YOUR FOUR ENTRIES WITH A ";Q$;" . ";Q$;" (SPACE-PERIOD";)"- SPACE), AND ADDS THOSE CHARACTERS TO THECOUNT TO ARRIVE AT WHAT'S LEFT."::"IF YOU WANT TO COUNT IT OUT, FINE. IF YOU DON'T, THE HEADING LOOKS ALMOST AS GOOD WITHj0 PRINTER QUESTIONS % 2(4)"BLOADCATPATCH"/ <30009 P1000^ + *** BULLETPROOF GET (Y/N) *** ,YES0:YES$:((YES$,1)"N"(YES$,1)"n")330:((YES$,1)"Y"(YES$,1)"y")340:300 JYES$: TYES1:YES$:  *** WHIRLING CURSOR                    050 V'!t'LL61:200:20:800,~'101002'U":3000:10000b IA,IN$:IN$(17)ġ:900hGET ROUTINE FOR II+ UPPER & LOWER CASEB$"":S1::I1300:A$:A(A$):A13100A17ġ:900A27S(S1)::Sĝ 2A8C(B$)::":18:4:"ANY KEY TO MOVE, TO ACCEPT":V9^`TAB6::V:TAB:" ":VV1:V16V10tV:TAB:"!":400:440:1120V:TAB:" ":: *** LETTERHEAD & MISC. FORMS SUBMENU ***A(0):49168,0:48,160:K039:0,47K::48,32:" PRINT "H$" IN MEMORY":ME$(2)BR$" LOAD AN OLD "H$8ME$(1)BR$" START A NEW "H$:ME$(4)BR$" LINE-AT-A-TIME TYPEWRITER":ME$(5)BR$" OTHER FORMS OPTIONS":ME$(6)BR$" QUIT AND EXIT TO BASIC"4LV10:V:X16:5::ME$(X):::7:4:H$;" OPTIONS8,0:H155ġ:104HQ *** RETURNS CURSOR TO PREVIOUS POSITION ***eR(37)((37)0):958:*** ALL-PURPOSE MENU/SUBMENU ***A(0):49168,0:48,160:K039:0,47K::48,32:K3931:16,32K:7$BR$(91)" "(93):ME$(3)BR$TF$) J1NC101:(Y$,J1,1)" "6807 :J1NC1b TF$(Y$,J11):700:J10TF$(Y$,J1)k 630y LM:TF$; (TF$)MCĺ TF$"":  *** WAIT FOR KEYPRESS *** 23:16:"...ANY KEY TO CONTINUE.":H(16384):H128800*1636qLLLL& R &ȥoȥp`HH Jhh +`  u& ߦ& 3զ&$ ` ` > KEY TOGGLES BETWEEN LOWER AND UPPER CASE. TAP JUST FOR A BLANK LINE. ENTER JUST TO QUIT.":5008'MC40:NC39:34,10::12:7:"MAKE SURE YOUR PRINTER IS ON.":21:APPLE210100B'LL61:200:10:B$IN$:IN$""B$" "L'800:10:X(20(IS$)2):23:(X):IS$;:35,21::R % ** ABOVE LINE DRAWS BOTTOM ***{ W*** ANTI-SPLITWORD WORD ROUTINE *** XNC0NCSW:MC40 bMCNCMCMC40:610 lLM((MCNC)2)1 v(TF$,1)" "TF$(TF$,2):630 (TF$)NC700 Y$(16384):H128470: 16368,0:H141H(V9)::4080@ Z *** BASIC WINDOW ***z ::48,32:K039:0,7K: :(39((B1$))):2:B1$:(39((B2$))):B2$:2:2:H$:34,4:: *** ABOVE LINES DRAW TOP ***+ 48,32:K039:42,47K::R% C$"!/-"(92):C1:L(C$):255> V:TAB::(C$,C,1)h H(16384):H128CC1L(CL):410n  H(16384):H128440 16368,0:H141H(V9)::1160  H(16384):H128470 16368,0:H141H(V9)::1280  H/REPOSITIONS CURSORL KK1LL:(95);::(91):1:((37)((LL1)40)):o +*** BULLETPROOF GET (Y/N) *** ,YES0:YES$:((YES$,1)"N"(YES$,1)"n")310:((YES$,1)"Y"(YES$,1)"y")320:300 6YES$: @YES1:YES$: *** WHIRLING CURSO:IA,TI$:IA,CS$:IA,FA$:IA,TL$8D$;"CLOSE";FILE$:y:90:48,32:K029:36,43K:::20:15:"AND HERE'S YOUR"X(25(FILE$)):(X):FILE$;" FILE"::23:/ *** INPUT/ANYTHING SETUP ***+0,39K::+ *** BULLETPROOF GET ***U ,YL$D$;"CLOSE";FILE$:[:90:48,32:K029:36,43K:::20:15:"AND HERE'S YOUR"X(25(FILE$)):(X):FILE$;" FILE"::23:/ *** INPUT/ANYTHING SETUP ****TO TOPZ48,160:K4701:0,39K::+ *** BULLETPROOF GET ***U ,YTE LOGO"'_ *** LOAD A LOGO FILE ***7`ER0:2500Fe90:60100kjER0ĺD$;"VERIFY ";FILE$:60030t2600:216,0:3250~D$;"OPEN ";FILE$D$;"READ ";FILE$IA,B1$:IA,B2$:IA,AL$:IA,ST$:IA,CZ$:IA,NA$:IA,TI$:IA,CS$:IA,FA$:IA,T3 *** QUIT ***V380:12:"ARE YOU SURE YOU WANT TO QUIT? (Y/N) ";:300:YES2000z3:12:18:"BYE":K1200:::: *** REM CHAIN TO CREATE LOGO ***:80:20:"I'LL GET MY LIST OF QUESTIONS FOR YOU.":D$;"BLOAD CHAIN,A520":520"CREAL$D$;"CLOSE";FILE$:[:90:48,32:K029:36,43K:::20:15:"AND HERE'S YOUR"X(25(FILE$)):(X):FILE$;" FILE"::23:/:Y WIPE SCREEN FROM BOTTOM TO TOPZ48,160:K4701:0,39K::+ *** BULLETPROOF GET ***U ,YTE LOGO"'_ *** LOAD A LOGO FILE ***7`ER0:2500Fe90:60100kjER0ĺD$;"VERIFY ";FILE$:60030t2600:216,0:3250~D$;"OPEN ";FILE$D$;"READ ";FILE$IA,B1$:IA,B2$:IA,AL$:IA,ST$:IA,CZ$:IA,NA$:IA,TI$:IA,CS$:IA,FA$:IA,T3 *** QUIT ***V380:12:"ARE YOU SURE YOU WANT TO QUIT? (Y/N) ";:300:YES2000z3:12:18:"BYE":K1200:::: *** REM CHAIN TO CREATE LOGO ***:80:20:"I'LL GET MY LIST OF QUESTIONS FOR YOU.":D$;"BLOAD CHAIN,A520":520"CREA00 *** GET CATALOG ***: ER = 0: ONERR GOTO 2500X ER0ĺD$;"CATALOG":3330h 2600:3300n ?PRINT USERS MANUAL@80:12:" PLEASE MAKE SURE YOUR PRINTER IS ON, AND SET AT THE BEGINNING OF A PAGE."JD$;"RUNUSERS MANUAL"U$;"LOGO.";QU$;" PREFIX (OR ENTER":"A ";Q$;"C";Q$;" FOR CATALOG).";:" --> ";FILE${ FILE$""2000: BACK TO MAIN MENU FILE$"C"FILE$"c"İ3170::3260 49168,0:FILE$"LOGO."FILE$:60000:3040::" PRESS ANY KEY TO BEGIN... ";:K$:K$:20D ,X **** INDIVIDUAL B.P. LIST *****b :"FILES BEGINNING WITH 'LOGO.' ARE NAMES":K039:"-";::34,2::3300:3260 **** SELECT/SWITCH ROUTINE ***** :S "ENTER THE NAME OF THE SET YOU WANT TO":"LOAD ";::"WITHOUT";::" THE ";Q TF$FH$(2)" "B2$:600:: TF$FH$(3)" "AL$:600:V TF$FH$(4)" "ST$:600r TF$FH$(5)" "CZ$:600 TF$FH$(6)" "NA$:600 TF$FH$(7)" "TI$:600& TF$FH$(8)" "FA$:6000 TF$FH$(9)" "CS$:600: TF$FH$(10)" "TL$:600K. I HOPE IT'S YOUR DRIVE DOOR. PLEASE CHECK.":600B< :800::f ******* LIST LOGOS ******* 80:3040::"HERE'S THE ONE CURRENTLY IN MEMORY.":"DO YOU WISH TO LOAD ANOTHER? (Y/N) ";:300 YES3250 2000 TF$FH$(1)" "B1$:600 850:EC(222):ER1:7' ** LOAD ERROR MESSAGES **( EC6ĺ:TF$"OOPS. I CAN'T FIND THAT FILE. PLEASE CHECK YOUR SPELLING, AND MAKE SURE THE RIGHT DISK IS IN THE DRIVE.":60032 EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOUR DISK IS SICSINESS PAPERS":22:"ANY KEY TO MOVE, TO ACCEPT":V8g TAB32::V:TAB:" ":VV1:V20V9V:TAB:"!":400:440:2060 V:TAB:" "::H15000,3000,950,1000,900,940,910,930,8000,1050,13200:2000*: *** ONERR ROUTINES ***0: MEMO TYPEWRITER/$D$;"BLOAD CHAIN,A520"I.520"MEMO TYPEWRITER"b *** MAIN MENU ***vA(0):49168,048,160:K3901:0,47K:::48,32:K034:14,39K:=V9:V:X010:5(29(MM$(X)))::MM$(X):::6:6:"DO-IT-YOURSELF BU80:YY6:970:980: PURCHASE ORDERz 19:" JUST A MINUTE, PLEASE, WHILE I GET THAT PROGRAM FOR YOU.": D$;"BLOAD CHAIN,A520" 520"FORMS PROGRAM" 80:970: INVOICES D$;"BLOAD CHAIN,A520" 520"INVOICES"80:974(  *** CHAIN TO FORMS PROGRAM ***M 80:YY1:970:980: LETTERHEAD{ 80:YY2:970:980: MISCELLANEOUS FORMS 80:YY3:970:980: MEMO/REPLY 80:YY4:970:980: MAILING LABELS 80:YY5:970:980: BUSINESS CARDS/NOTES# (Y$,J1,1)" "680! :J1NC1L TF$(Y$,J11):700:J10TF$(Y$,J1)U 630c LM:TF$;u (TF$)MCĺ TF$"":  *** WAIT FOR KEYPRESS *** 23:16:"...ANY KEY TO CONTINUE.":H(16384):H128800 *16368,0:H155ġ:2000 INE TO YOUR PRINTER EACH TIME YOU TAP RETURN, AND THE PRINTER FOLLOWS ALONG LIKE A PUPPY DOG. NOT FANCY, BUT FINE FOR SHORT MEMOS.$'MC42:NC27:500w.'TF$"YOUR LEFT MARGIN IS SET AT 10. WE SUGGEST A LINE OF 60 LETTERS AND SPACES. ON A ][, THE YES0:YES$:((YES$,1)(L):(M$(L)(12)M$(L)"ALL DONE")510/ 5  0:1002::D$"CLOSE"::6:"OOPS. EITHER A DISK ERROR, OR A PAGE FILE IS MISSING. IF YOU CHOOSE "Q$"Y"Q$" BELOW, I'LL TRY STARTING OVER.":216,0:280 :12:"JUST A MINUTE, PLEASE FOR T+=h<<ȭJJJJ<`LLL <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <  ō300UYESı>UD$;"PR#";SL:I$:SP$;FF$;DS$:D$"PR#0":0,9000,10000,12000,16700P48,160:K3901:0,47K::: WIPES SCREEN FROM LEFT TO RIGHTc*** INPUT ANYTHING ROUTINE ***dIA,IN$:IN$(17)ġ:10000n *** DRAWS A LINE;::::LF$;DS$::D$;"PR#0"FTT *** PRINT ADDRESS LINE *** {T^D$;"PR#";SL:I$;SP$:AL$:REG$;DS$:D$;"PR#0":T *** ASKS ABOUT TOP OF PAGE ON PRINTER ***U::12:"I CAN'T SEE. DO I NEED TO START A NEW PAGE ON THE PRINTER? (Y/N) ";:$;VO$;SP$;REG$;LF$:H$""603205SI1NH:EM$;H$:hSI16:LF$::X(EM(B1$)):Y(EM(B2$)):EM$SI1NH:EM$;EM(B1$));B1$::LF$;EM$SI1NH:EM$;EM(B2$));B2$::LF$;NM$;CDS$SI1NH:J1CDS:"H";:::TI1NH:J1CDS:"O"ER'S MANUAL, LINE-AT-A-TIME TYPEWRITER, QUIT AND EXIT TO BASICbbX010:MM$(X)MM$(X)" "BR$:hlnvFIRST TIME THROUGH ONLY:17:22:" PRINTER SETUP. ":D$;"BLOAD CHAIN,A520"520"PRINTER QUESTIONS"DESSAGE ***@ d* DMM$(11):X010:MM$(X):NENTER NEW BUSINESS NAME, LOAD DIFFERENT BUSINESS NAME, WRITE/EXAMINE PURCHASE ORDER, WRITE/EXAMINE INVOICE, PRINT LETTERHEAD, PRINT BUSINESS CARDS>X PRINT MISCELLANEOUS FORMS, PRINT LABELS/ENVELOPES/ETC, PRINT USLD ROUTINE ***$ I110:FH$(I):s & "1ST NAME LINE:","2ND NAME LINE:","MAIN ADDRESS LINE:","STREET ADDRESS:" 0 "CITY, STATE, ZIP:","INDIVIDUAL'S NAME:","TITLE:","FULL ADDRESS:","BUSINESS DESCRIPTION:","TELEPHONE #:": *** MAIN MENU ITEMS **NEXT TWO LINES ARE UNIQUE TO SPECIFIC PRINTER VARIABLES. |SL1:SP$(17):DS$(19):REG$(30):EM$(31):NM$(30):CDS$(29):REG79:CDS132:EM39 XX$(27)(48)(27)(73)(27)(54): TURN OFF NASTIES.   *** FIEK:: 13:" BACK TO MAIN MENU = 1":" BACK TO TYPEWRITER = 2":" QUIT TO BASIC = 3":18::" PLEASE ENTER NUMBER "; AS$:AS$:AS$"1"1100 AS$"2"MC42:NC27::10030 AS$"3"1000 91048,160:K3901:0,47K::13:MCĺ TF$"":(  PRINTER ROUTINE5 CP(37)_ 4D$;"PR#";SL:B$""ĺ:D$"PR#0":CP: HB$" "B$:CP(37):35,11:10 \D$;"PR#";SL:I$;SP$:K1NH:B$::LF$;DS$ pD$;"PR#0":35,24:(CP1): ::12 48,32:K024:22,31NC40:MC40$ bMCNCMCMC40:610: lLM((MCNC)2)1^ v(TF$,1)" "TF$(TF$,2):630r (TF$)NC700} Y$TF$ J1NC111:(Y$,J1,1)" "680 :J1NC1 TF$(Y$,J11):700:J10TF$(Y$,J1) 630 LM:TF$; (TF$)ѱ *** WAIT FOR KEYPRESS[ 12:12:"... ANY KEY TO CONTINUE.":H(16384):H128400k 16368,0:  ERASE SCREEN WINDOW, PRINT NEXT SCREEN K2001:6,34K::2::600::400: W *** ANTI-SPLITWORD WORD @ 600 (A.S.W.R.) XNC0ĭC1B$(B$,(B$)1):A$;:906 <A8B$"":A$;:90R FA$;:B0:A64A91B1 PA31B$B$(AS32B):B(B$):B58Č198 Z d958:: n *** DRAWS A LINE/REPOSITIONS CURSOR KK1LL:(95);::(91):1:((37)((LL1)40)):3 *** MEMO TYPEWRITER *** DD$"BLOADCATPATCH":3000:10000b IA,IN$:IN$(17)ġ:900hGET ROUTINE FOR II+ UPPER & LOWER CASEB$"":S1::I1300:A$:A(A$):A13100A17ġ:900A27S(S1)::Sĝ 2A8C(B$):       K$:K$:16700:R_ *** MISCELLANEOUS PRINTER ROUTINES ***{R`CDS$:I1NH:J1CDS:(173);::::REG$:: LONG LINERjCDS$:I1NH:95):J136:(173);::::REG$:: SHORT LINER *** HEADER PRINTING ROUTINE ***SD$;"PR#";SL:IGD$;"CLOSE":FI1,QG500:17000:34,12:N1sQG17050:IS$"PRESS FOR NEXT ITEM ":540:K$:K$:K(K$)QGK32NN1:N(NJ1)18370QG18340 RG::"TOTAL: $";TT$::TF$"REMARK: "R$:600:IS$"THAT'S ALL. ANY KEY FOR THE MENU. ":540:N$:100:CC$IN$:100:SA$IN$:100:Z$IN$P|GNJ:N1NJ:100:DE$(N)IN$:100:Q$(N)IN$:Q(N)(Q$(N)):100:PR$(N)IN$:PR(N)(PR$(N)):100:TP(N)(IN$):100:TP$(N)IN$:PG100:DL$IN$:100:SI$IN$:100:DT$IN$:100:TT(IN$):100:TT$IN$:100:R$IN$QDO YOU WANT TO SEE?":"P.O.";:100:FI$IN$LO,GFI$"C"FI$"c"İ3000:18200]O6GFI$""1000rO@GFILE$"P.O."FI$OJGER0ĺD$"VERIFY";FILE$:18270OTG2600:216,0:18200O^GD$;"OPEN";FILE$OhGD$;"READ";FILE$(PrG100:DP$IN$:100:PO$IN$:100:TA$IԠՠōЮϮؠȬ̠ŠōҠҍŠҠҠΠȠԠՠŠŠڢӬƠҠЮϮؠȬ̠ЮϮؠȬ̠ŠڢӍƠҍŠҠҠΠȠ ":32,0PRINT CHR$ (4);"RUN IV""DO-IT-":"YOURSELF":"BUSINESS":"PAPERS":255:32,15:17:"COPYRIGHT 1985 BY":"HONOR-SYSTEM SOFTWARE":"BOX 338, MEDINAH, IL":32,0PRINT CHR$ (4);"RUN IV"Q ARE COPYRIGHTED, BUT"P "NOT COPY-PROTECTED. IF YOU USE":"THEM AND LI:R$:18110#NF2700:216,0:16700?NFD$"CLOSE";FILE$:16700aNG * LOAD P.O. FILE & VIEW ITNG::18:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;". TO GO":"BACK TO MENU, TAP RETURN WITH NO ENTRY.)":8:ER0:2500*O"GFI$"":"WHICH PURCHASE ORDER 2700:216,0:18000*MxFD$;"DELETE";FILE$?MFD$;"OPEN";FILE$UMFD$;"WRITE";FILE$MFER0ĺDP$:PO$:TA$:CC$:SA$:Z$:NJ:18090MF18105MFER0āN1NJ:DE$(N):Q$(N):PR$(N):TP(N):TP$(N)::18100MF18105 NFER0ĺDL$:SI$:DT$:TT:TT$Q$;" ..."5L_FFILE$"P.O."FI$:FI$"C"FI$"c"İ3000LdF:"PLEASE ENTER A FILENAME FOR THIS PURCHASE ORDER, THEN TAP ":"(I WILL ADD A ";Q$;"P.O.";Q$;" PREFIX)."::"P.O.";:100:FI$IN$:FI$""18000LnFER0ĺD$"OPEN ";FILE$:18040MsFDD$;"PR#0":4KNF *** PURCHASE ORDER FILE HANDLINGFKOF * SAVE P.O.KPFFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:" JUST A MINUTE, PLEASE FOR THE MENU.":4000KUFER0:2500 LZF8:"FOR A CATALOG, ENTER JUST A ";Q$;"C";F YOU ARE UNABLE TO MEET THIS DEADLINE.)":LF$;LF$;LF$;REG$kJDLL$"":I1NH:1);"AUTHORIZED BY: ";LL$:JDCDS$:27);:J183:(95);::LF$::D$;"PR#0":JDD$;"PR#";SL:I$;REG$:R$""ī17640JDLF$;NM$;REG$:I1NH:16);R$:JDFF$;DS$ K6);"TOTAL THIS PURCHASE ORDER:";:32((TT$)));"$ ";TT$::LF$;LF$pIfDI1NH:2);"INSTRUCTIONS: ";SI$::LF$IpDI1NH:6);"DELIVERY: VIA ";DL$::LF$IDI1NH:1);"DATE REQUIRED: ";DT$::LF$:NM$;CDS$;JD28);"(PLEASE NOTIFY US IMMEDIATELY I::17410H DD$;"PR#0":4H)D *** FEED A FORM ***NH*DD$;"PR#";SL:I$:SP$H4DFF$:PP1:I1NH:5);CC$;" PURCHASE ORDER, PAGE ";P::LF$,LF$,LF$:DS$H>DD$;"PR#0":H[D * BOTTOM OF P. O.H\DD$;"PR#";SL:I$:SP$;LF$CIaD60010:LF$:I1NH:1450GDD$;"PR#";SL:I$:SP$RGDREG$:I1NH:3);"DESCRIPTION: ";DE$(N)::LF$GDJREG44((Q$(N)))((PR$(N)))((TP$(N))) H DI1NH:6);"QUANTITY: ";Q$(N);" @ $";PR$(N);" PER UNIT, TOTAL: ";:K1J:".";::" $ ";TP$(N)::LF$;LF$:PR1NNJĂNDP$::LF$1FCI1NH:8);"NUMBER: ";PO$::LF$?FCNM$;CDS$FC28);"(THIS ORDER NUMBER MUST APPEAR ON ALL CORRESPONDENCE, INVOICES, PACKAGES, ETC.)":LF$;LF$;LF$:DS$FCD$;"PR#0":FC * PRINT ITEM(S) INFOFCPR1āN1NJ1GCPR1N8İ17EaC * PRINT VENDOR INFORMATIONNEbCD$"PR#";SL:I$;SP$;REG$;NM$;LF$;LF$;LF$:rElCI1NH:12);"TO: ";TA$::LF$EvCI1NH:16);CC$::LF$ECI1NH:16);SA$::LF$ECI1NH:16);Z$::LF$;LF$;LF$EC60000:LF$;LF$ FCI1NH:10);"DATE: ";DP$:(39(PO$)):PO$:TA$:CC$:SA$:Z$:I140:"-";::cDB *** DISPLAY INDIVIDUAL ITEM(S) ***DB:TF$"DESCRIPTION: "DE$(N):600:"QUANTITY: ";Q(N):"UNIT PRICE: ";PR(N):"TOTAL: ";TP$(N):D/C *** PRINTOUTD0C60550:60300:: *TOP OF FORMSUBMENU5C?ITEM$(K)PR$(N):K3::1500:K1:DE$(N)ITEM$(K):KK1:Q$(N)ITEM$(K):KK1:PR$(N)ITEM$(K)5??Q(N)(Q$(N)):PR(N)(PR$(N)):PUPR(N):1400:PR$(:200:100:Q$(N)IN$:Q$(N)""İ850:16250=?((Q$(N),1))44((Q$(N),1))57((Q$(N),1))47İ850:"NUMBERS ONLY, PLEASE.";:K11000::850:16250=?ITEM$(K)Q$(N):KK1=?"AT WHAT PRICE EACH?":200:100:PR$(N)IN$:PR$(N)""İ850:16280k>? P.O. MENU":5406 TO RETURN TO0:ITEM$(K)IN$:KK1:>LL35:"TO THE ATTENTION OF WHAT INDIVIDUAL?":TF$"YOU MAY WANT TO INCLUDE THE PERSON'S TITLE, TOO.":600:200:100:ITEM$(K)IN$:KK1:>"TO WHAT COMPANY NAME?":200:100:ITEM$(K)IN$:KK1;>"AT WHAT STREET ADDRESS?":200:1 9>17200Z9>:N0:P1:TT0:PR0:IS$"ENTER TO RETURN TO P.O. MENU ":500:540}9> *** INPUT VENDOR INFORMATION9>:K1:LL20:"WHAT DATE GOES ON THIS PURCHASE ORDER?":200:100:ITEM$(K)IN$:KK1:>"WHAT PURCHASE ORDER NUMBER?":200:10/I1NH:72);:J154:"O";::::LF$n8/72);CS$:LF$:72);FA$:LF$:72);TL$:LF$;LF$:CDS1);(95):8 0REG$;FF$;DS$8%0D$;"PR#0"::8:"WOULD YOU LIKE A COUPLE MORE? (Y/N) ";:3008*0YES1200084040008> *** PURCHASE ORDER ***9>:NA$""7l/TI$"*"TI$""K7/(95);CDS2);(95):LF$;LF$:72);NA$:LF$p7/72);TI$;EM$;REG$:I14:LF$:7/I1NH:EM$;(EM2)((B1$)));B1$::LF$7/I1NH:EM$;(EM2)((B2$)));B2$::LF$;NM$;CDS$7/I1NH:72);:J154:"H";:::(8F$:11220:LF$;LF$:*6+11220:LF$;LF$:T6+EM$;V1$;3);V1$:EM$;V2$;3);V2$::x6. *** BUSINESS CARD/NOTE ***6.605506&/12120:LF$;LF$:I1CDS:(95);::LF$:12125:123206X/D$;"PR#";SL:I$;SP$;NM$;CDS$6]/I115:LF$:7b/NA$"*" HANDLING"::11190U5p+I1NH:EM$;" PRIORITY MAIL!";7);"PRIORITY MAIL!"::11200k5z+REG$;NM$;FF$;DS$z5+D$;"PR#0"5+:10:"WOULD YOU LIKE ANOTHER SET? (Y/N) ";:3005+YES109105+100005+LF$;LF$:11220:LF$:11220:LF$;LF$:6+LF$;L:LF$C4H+I1NH:EM$;" PARCEL POST";10);"PARCEL POST"::111904R+I1NH:EM$;"AIR MAIL AIR MAIL";4);"AIR MAIL AIR MAIL"::111904\+I1NH:EM$;" SPECIAL DELIVERY";5);"SPECIAL DELIVERY"::111905f+I1NH:EM$;" SPECIAL HANDLING";5);"SPECIALNH:EM$;" THIS SIDE UP!";8);"THIS SIDE UP!"::11190|3*+I1NH:EM$;" FIRST CLASS MAIL";5);"FIRST CLASS MAIL"::1119034+I1NH:EM$;" THIRD CLASS MAIL";5);"THIRD CLASS MAIL"::111904>+I1NH:EM$;"FOURTH CLASS MAIL";4);"FOURTH CLASS MAIL":1NH:EM$;"ELECTRONIC FIELDS!";3);"ELECTRONIC FIELDS!"::11190|2+I1NH:EM$;4);"!! OOPS !!";11);"!! OOPS !!"::LF$2 +I1NH:EM$;" OTHER SIDE UP!";7);"OTHER SIDE UP!"::111902+I1NH:EM$;" ! RIGHT !";12);"! RIGHT !"::LF$73 +I1B1*I1NH:EM$;3);"!! FRAGILE !!";8);"!! FRAGILE !!"::111901*I1NH:EM$;"MAGNETIC MATERIAL";4);"MAGNETIC MATERIAL"::LF$1*I1NH:EM$;4);"ENCLOSED";13);"ENCLOSED"::LF$1*I1NH:EM$;" PROTECT FROM";9);"PROTECT FROM"::LF$A2*IIDS90b*I1NH:46);CC$::LF$:I1NH:46);SA$::LF$o0v*I1NH:46);Z$::LF$;FF$;DS$:D$;"PR#0":100000* *** REM MAILING STICKERS ***0*60550::D$"PR#";SL0*V1$"<<<<<<<<<<<<<<<<<<":V2$">>>>>>>>>>>>>>>>>>"1*I$;SP$;REG$;EM$:11210:KK1K/*LL31:"CITY, STATE AND ZIP":200:100:ITEM$(K)IN$::K4:1500/:*K1:TA$ITEM$(K):KK1:CC$ITEM$(K):KK1:SA$ITEM$(K):KK1:Z$ITEM$(K)/D*D$;"PR#";SL:I$;SP$;REG$;EM$0N*I1NH:EM$;18);"TO: ";NM$;TA$::LF$:SHOULD BE SPC( 20) FOR )I1NH:J1CDS:"O";:::E.)I18:LF$::DS$:D$;"PR#0"::6.)K1:LL31:"(OPTIONAL) TO THE ATTENTION OF:":200:100:ITEM$(K)IN$:KK1.*LL31:"COMPANY NAME":200:100:ITEM$(K)IN$::KK1/*LL31:"STREET ADDRESS":200:100:ITEM$(K)IN$: -h)D$"PR#";SL:I$;SP$;NM$;CDS$2-|)I19:LF$:K-)(95);CDS2);(95)e-)EM$;REG$;LF$;LF$;LF$-)I1NH:EM$;B1$::LF$-)I1NH:EM$;B2$::LF$-)NM$;REG$:I1NH:ST$::LF$-)I1NH:CZ$::LF$;CDS$-)I1NH:J1CDS:"H";:::.T ANOTHER LABEL? (Y/N) ";:300-,(YES102008,(10000,):"THIS PAGE HOLDS ONLY THREE (3) LABELS.":" WOULD YOU LIKE TO PRINT MORE? (Y/N) ";:300,)YES10000,)C0,")D$;"PR#";SL:SP$;FF$:D$;"PR#0":10200,5) ** ENVELOPE **,6)60550158:"H";:::I+n(I1NH:10);:J158:"O";::::LF$;LF$;REG$;EM$x+(I1NH:EM$;11);"TO:";NM$;4);TA$::LF$+(I1NH:32);CC$::LF$+(I1NH:32);SA$::LF$+(I1NH:32);Z$:+(I15:LF$::60000,(D$;"PR#0":"WANT TO PRINSP$;LF$;LF$;LF$;REG$\*2(FOR IDS PRINTERS, ALL "EM$;SPC(n)'S BELOW SHOULD BE INCREASED BY 2*<(I1NH:EM$;9);"FROM: ";B1$::LF$*F(I1NH:EM$;16);B2$::LF$;NM$*P(I1NH:32);ST$::LF$*Z(I1NH:32);CZ$::LF$;LF$+d(I1NH:10);:J0:100:ITEM$(K)IN$::KK1V)(LL30:"STREET ADDRESS":200:100:ITEM$(K)IN$::KK1) (LL30:"CITY, STATE AND ZIP":200:100:ITEM$(K)IN$:)(K4:1500)(K1:TA$ITEM$(K):KK1:CC$ITEM$(K):KK1:SA$ITEM$(K):KK1:Z$ITEM$(K)*((D$"PR#";SL:I$;:TAB:" "::H10150,10550,10910,9000,4000:10000R(' *** PACKAGE LABELS ***a('C0:60550('D$;"PR#"SL:CC1:C3ī10500:DS$('D$;"PR#0":K1::LL30:"(OPTIONAL) TO THE ATTENTION OF":200:100:ITEM$(K)IN$:KK1)'LL30:"COMPANY NAME":20" OTHER FORMS OPTIONS":b'$'9:16:"ANY KEY TO MOVE --":16:" TO ACCEPT.":V12:TAB18:'.'V:TAB:" ":VV2:V24V14'8'V:TAB:"!":400:10060:10030'B''L'H(16384):H12810060'V'16368,0:H141H(V2)6::10090'`'2(j'VILING LABELS SUBROUTINE *?&' **** MAILING LABELS MENU ****n&'49168,0:80:48,32:K47221:15,39K:&'14:17::BR$;" PACKAGE LABEL"::17:BR$;" ENVELOPE"::17:BR$;" MAILING ";Q$;"STICKERS";Q$:''17:BR$;" MEMO/REPLY FORMS"::17:BR$;"DO YOU NEED MORE MEMOS? (Y/N) ";:3005%T$YES9000?%^$4000_%h$I1NH:J162:"H";:::%r$I1NH:70);:J162:"H";:::%|$I1NH:J162:"O";:::%$I1NH:70);:J162:"O";::::9360:%$NM$;CDS$:66)"!":LF$:&' * MAAS SOON AS POSSIBLE";REG$;:EM$;">";:REG$;NM$e$#42);"TO: ";NA$:LF$:47);ST$;LF$:47);CZ$;LF$$$CDS$;LF$;LF$:C12ĺFF$:9290$$60000$"$D$;"PR#0":"ANOTHER FORM ON THIS PAGE? (Y/N) ";:300$,$YES9050$6$D$;"PR#0":4000'%J$D$;"PR#0":);"TO: "N1$:9360:9320v##7);"FROM THE COMPUTER OF ... ";NA$;":";43(NA$)):"FROM ... ";N1$:I1NH:9360::C0~##C0##CC1:J162:"-";::8);:J162:"-";::9360:9360##C9ī9150.$#9320:"PLEASE JOT YOUR RESPONSE AND RETURN TO ME 10:60550N"Z#:LL30:"TO WHOM ARE YOU SENDING THIS MEMO?":200:100:N1$IN$^"d#C1C11::"x#D$;"PR#";SL:I$;SP$:9360:9360:REG$"# FOR IDS, LINE 9110 SHOULD BE SPC(19) INSTEAD OF SPC(16)"#I1NH:EM$;2);"MEMO";16);"REPLY"::9360##7.!N ::12:"WANT ANOTHER FORM? (Y/N) ";:300g!X YESė:12:" RIGHT. BACK TO THE MENU!":4000!l :8:"SAME 'HEADER' OR A DIFFERENT ONE? (S/D) ";:ZZ$:ZZ$! ZZ$"S"8260! ZZ$"D"8220! 8270!'# ***** MEMO/REPLY ROUTINE ***** "(#C:"INQUIRY":"MEMO":"PRESS RELEASE":"HAPPY BIRTHDAY, MOM!":"INSERTION ORDER":"USER MANUAL":"CONTRACT":"LETTER OF AGREEMENT":"HI GRANDMA!" : 32,0::LL39:200:100:H$IN$ D ::60550:60300 I D$;"PR#";SL:I$;SP$;LF$;LF$;LF$;DS$::D$;"PR#0" :3:TF$"YOU MAY CHOOSE WHAT "Q$"HEADER"Q$" YOU WANT PRINTED AT THE TOP OF THIS FORM.":600& 5:TF$"HERE ARE SOME IDEAS, BUT YOU CAN TYPE IN ANYTHING YOUR HEART DESIRES (AS LONG AS IT'S SHORTER THAN 39 CHARACTERS AND SPACES).":600: 0 32,5:APER!"2LF$:I1NH:27);:J175:"H";:::Y&I1NH:27);:J175:"O";:::0LF$:J1NH:27);"THIS ";Q$;"TRY BEFORE YOU BUY";Q$" COPY, COURTESY OF ";NAME$::720XCDS$;LF$;23);"+";81);"+";LF$:BULLETPROOF INPUT-SYSTEM SOFTWARE"ZJ1NH:REG$;EM$;8);"DO-IT-YOURSELF";NM$;CDS$;CR$;102(A$));A$:LF$:J1NH:REG$;EM$;8);"BUSINESS PAPERS";NM$;CDS$;CR$;102(B$));B$:LF$:27);"INVOICES, LETTEHEADS, BUSINESS CARDS, EVERYTHING YOU NEED FROM PLAIN P(01):NM$(02):CDS$(31):REG79:CDS132:EM44XX$(06)(05)(02): TURN OFF PROPORTIONAL, RIGHT JUSTIFCATION AND GRAPHICS.J14:LF$::720:JJ16:500::FF$D$;"PR#0":70D$;"PR#";SL:SP$;I$:A$"COPYRIGHT 1985 BY":B$"HONOR:FF$;NM$;REG$"hD$;"PR#0":70Dq*** INITIALIZE VARIABLES ***rD$(4):I$(9)(75)(9)"132N":VO$(9)"132N":NH2:G$(07):Q$(34)v*** PRINTER VARIABLES ***wLF$(10):FF$(12):CR$(13).|SL2:SP$(17):DS$(19):REG$(29):EM$per without pain:";LF$ZTLF$;14);"1. CLAMP the straight-edge with your holding hand."YLF$;14);"2. LOOK that your fingers are out of the way.";LF$;14);"3. CUT with multiple passes instead of heavy pressure.^J14:LF$::720:JJ16:500:e-edged razor blade or utility knife handy?"{ ELF$;7);"We suggest you cut down the sides first, then just trim off";LF$ J7)"labels on the remaining tick-marks like slices of salami. Please"OLF$;7);"remember those three steps for trimming paDING PAGE "J" LINE #";:500::12:12:"PRINTING PAGE "JO |SL:(9)"80N"::W L0 LL1:(M$(L)"ALL DONE")420:M$(L):(M$(L)(12))360:400 0:1002::D$"CLOSE" 720 700 HT(36)1:VT(37)1:L0) LL1:VT:HT:L;:IA,M$ 15:"THERE ARE NINE PAGES. I'LL PRINT THEM DRAFT-QUALITY FOR SPEED, UNLESS YOU SET YOUR PRINTER DIP-SWITCHES DIFFERENTLY.":20:12:"...READY TO CONTINUE? (Y/N) ";:140 ,YES720 ^:D$"OPENPAGES":D$"READPAGES":J08 hJJ1:0::12:9:"LOATHE PRINTER? (Y/N) ";:300&eYESıVeD$;"PR#";SL:I$:SP$;FF$;DS$::D$"PR#0":3901:0,47K::: WIPES SCREEN FROM LEFT TO RIGHTc*** INPUT ANYTHING ROUTINE ***dIA,IN$:IN$(17)ġ:1600n *** DRAWS A LINE/REPOSITIONS CURI1NH:J1CDS:"O";::::LF$;DS$::D$;"PR#0"\dT *** PRINT ADDRESS LINE *** d^D$;"PR#";SL:I$;SP$:AL$:REG$;DS$:D$;"PR#0":d *** ASKS ABOUT TOP OF PAGE ON PRINTER ***e::12:"I CAN'T SEE. DO I NEED TO START A NEW PAGE ON ROUTINE ***:cD$;"PR#";SL:I$;SP$;REG$;LF$:H$""60320lcI1NH:EM$;H$::FLĺLF$:I1NH:EM$;H2$:~cI15:LF$:cI1NH:EM$;EM(B1$));B1$::LF$;EM$cI1NH:EM$;EM(B2$));B2$::LF$;NM$;CDS$cI1NH:J1CDS:"H";:::3dҭNNJĹ34,10:::"THAT'S ALL OF THE ITEMS.":3020:30970b6y22:" PRESS ANY KEY FOR NEXT JOB.":" -Q FOR INVOICE MENU. ";:K$:K$:K(K$)b@yK271000bJyN:30910bTy::30510:30520:30530:3020:30000 c *** HEADER PRINTING UaxIA,NJ:N1NJ:IA,DE$(N):IA,QO$(N):IA,QS$(N):IA,U$(N):IA,UP$(N):IA,T$(N):axIA,SB$:IA,TX$:IA,T$:IA,SC$:IA,A$:IA,SD$:IA,SH$axD$;"CLOSE";FILE$:FI1:216,0ay ** VIEW ITEM INVOICE **ay500::5700:N1NJa"yNNJİ305009b,yPREFIX AND":"SUFFIX: ";:100:FI$IN$H`nxFI$"C"FI$"c"İ3000:30810b`xxFILE$"INV."FI$".I"`xER0ĺD$"VERIFY ";FILE$:30870`x2600:216,0:30800`xD$"OPEN";FILE$`xD$"READ";FILE$axIA,N$:IA,DA$:IA,TP$:IA,CC$:IA,SA$:IA,Z$:IA,TA$OSE";FILE$:(_Ox * LOAD ITEM INVOICE *f_Px::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8v_ZxER0:2500&`dxFI$"":"WHICH INVOICE DO YOU NEED TO REVIEW? ENTER JUST THE NAME, PLEASE -- I WILL ADD THE ";Q$;"INV.";Q$;" AND ";Q$;".I";Q$;" 2200,4000,2400:8000,H$"":60550:60300UD$;"PR#";SL:SP$;I$;LF$;LF$;LF$;DS$jD$;"PR#0":4000D$;"PR#";SL:SP$;FF$;DS$:D$;"PR#0": *** MISC. FORMS *** ::H$"MISCELLANEOUS FORM":1200 H8220,2200,4000,2400:8200b0:2500B^wER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:NJ:ER30700M^w30715^wER0āN1NJ:DE$(N):QO$(N):QS$(N):U$(N):UP$(N):T$(N):N:ER30710^w30715^wER0ĺSB$:TX$:T$:SC$:A$:SD$:SH$:ER30720^w2700:216,0:30600 _xD$;"CL THEN TAP RETURN (I WILL ADD A PREFIX AND A SUFFIX TO IDENTIFY IT).":]w"--> INV.";:V(37):100:FILE$IN$:FILE$""30600]wV1:"--> INV.";FILE$;".I"::"ARE YOU SURE? (Y/N) ";:300]wYES30600]wFILE$"INV."FILE$".I":FL3:6070^wER40::TF$"SHIPPED VIA "SH$" ON "SD$:600:L\w ** SAVE ITEM INVOICE **\wFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:"JUST A MOMENT, PLEASE, FOR THE MENU.":30000I]w:"PLEASE ENTER A FILENAME FOR THIS INVOICE,REEN DISPLAYS *[$w:TF$"ITEM DESCRIPTION: "DE$(N):600:TF$"UNIT: "U$(N):600:TF$"UNIT PRICE: $"UP$(N):600:TF$"AMOUNT: $"T$(N):600[)w[.w"SALES TAX @ ";TX$"% = $";T$:[8w:"TOTAL DUE: ";A$:[=w:"SHIPPING CHARGES: ";SC$:.\BwNC39:MC;"$ ";SC$:DS$::D$;"PR#0":ZwD$"PR#";SL:I$;SP$;CDS$;LF$:5650:LF$;CDS$;95);"TOTAL DUE:";22((A$)));"$ ";A$:LF$;DS$::D$;"PR#0":ZwD$"PR#";SL:I$;SP$;REG$;LF$;LF$:ZZ1NH:5);"SHIPPED VIA "SH$" ON "SD$::FF$;DS$::D$;"PR#0":[#w * SCDS$;LF$:95);"SALES TAX @ ";TX$;"%:";14((T$)));"$ ";T$:DS$::D$;"PR#0":YwSC$"N/C"ĺ:D$;"PR#";SL:I$;SP$;CDS$;LF$:95);"SHIPPING CHARGES:";14);"N/C":DS$::D$;"PR#0":Z wD$;"PR#";SL:I$;SP$;CDS$;LF$:95);"SHIPPING CHARGES:";15((SC$)))vDS$:D$"PR#0":NC39:MC39:XvD$;"PR#";SL:I$;SP$:5650:CDS$;LF$::95);"SUBTOTAL:";23((SB$)));"$ ";SB$:DS$::D$;"PR#0":XvTX$"N/C"ĺ:D$;"PR#";SL:I$;SP$;CDS$;LF$:95);"SALES TAX:";21);"N/C":DS$::D$;"PR#0":NYvD$;"PR#";SL:I$;SP$;CNJ1WvD$;"PR#";SL:I$;SP$;LF$;CDS$:8(QO$(N)));QO$(N);13(QS$(N)));QS$(N);78(UP$(N)));"$ ";UP$(N);13(U$(N)));U$(N);13(T$(N)));"$ ";T$(N):DS$WvD$"PR#0"::D$"PR#";SL:SP$;VO$;:NC60:MC116:TF$DE$(N):600:I$:PR1NNJĂN:30425X":VvD$;"PR#";SL:I$;SP$;LF$:5600:CDS$:LF$:2);"QUANTITY";5);"QUANTITY";74);"UNIT":LF$:2);"ORDERED";6);"SHIPPED";6);Vv"STOCK NUMBER / DESCRIPTION";42);"PRICE";9);"UNIT";9);"AMOUNT":LF$:5600:LF$;LF$;DS$::D$;"PR#0":WvPR1āN1vPR1:(N$,5)"-COPY"N$N$"-COPY"iUv30400:30410:30420:30440:30450:30470:30480:30490:30330Uv::8:"WOULD YOU LIKE TO START ANOTHER INVOICE?(Y/N) ";:300UvYES30000Uv30040Uv * PRINT OUT *VvPR1İ5000:5050:DS$:D$;"PR#0EM(S)?":200:100:SD$IN$Tfv:TF$"HOW WERE THEY SHIPPED? (E.G., U.S. MAIL, U.P.S., FEDERAL EXPRESS)":600:200:100:SH$IN$:30490:DS$TzvD$"PR#0":NJN:::8:"WOULD YOU LIKE ANOTHER COPY OF ":"THIS INVOICE? (Y/N) ";:300TvYESİ30600:30370&UY/N) ":540:300RS>vYESSC$"N/C":30470:PUA:1400:A$PU$:30480:30525:30300SHv:LL5::"HOW MUCH?":200:100:SC$IN$:SC(SC$):PUSC:1400:SC$PU$:30470:30525:AASCSRvPUA:1400:A$PU$:30480:30520T\v:LL18::"WHEN DID YOU SHIP THESE IT"Q$" (WITH THE RIGHT TAX RATE FOR YOUR AREA, OF COURSE). I'LL ADD THE "Q$"%"Q$" SIGN."R%v600:200:100:TX$IN$:TX((TX$)100):TATX:AAT:PU(TX100):1400:TX$PU$:PUT:NR2:1400:T$PU$R*v30450:30510S4vIS$"NEED TO ADD SHIPPING CHARGES? (? (Y/N) ":540:300"QvYES30100wQ vPUA:1400:SB$PU$:30440:IS$"DO YOU NEED TO ADD A SALES TAX? (Y/N) ":540:300QvYESTX$"N/C":PUA:30250\R v:LL6:"WHAT PERCENT?"::TF$"YOUR ENTRY SHOULD LOOK LIKE THIS: "Q$"3.25"Q$" OR THIS: "Q$"4.0:QO$(N)ITEM$(K):KK1:QS$(N)ITEM$(K):KK1:U$(N)ITEM$(K):KK1:UP$(N)ITEM$(K)PuUP(N)(UP$(N)):PUUP(N):1400:UP$(N)PU$:UP$(N)"N/C"UP(N)0PuT(N)QS(N)UP(N):PUT(N):1400:T$(N)PU$:30425:AAT(N)Qu:958:IS$"ANOTHER ITEM ON THIS INVOICEZEN', '1/2 DOZEN.' (PLEASE USE AN ABBREVIATION SUCH AS 'EA' OR 'DOZ'.)":600:200:100:ITEM$(K)IN$:KK1OuLL10:"WHAT IS THE UNIT PRICE?":200:100:PU(IN$):1400:ITEM$(K)PU$:ITEM$(K)""ITEM$(K)"N/C"OuK5::1500QPuK1:DE$(N)ITEM$(K):KK1:ITEM$(K)IN$:KK1:958pNuLL10::"HOW MANY DID THEY ORDER?":200:100:ITEM$(K)IN$:QO(N)(ITEM$(K)):KK1Nu:"HOW MANY DID YOU SHIP?":200:100:ITEM$(K)IN$:QS(N)(ITEM$(K)):KK1jOuLL12:TF$"WHAT UNITS ARE YOU SELLING IN? E.G., 'EACH', 'DO00^MvuTF$"PLEASE ENTER NUMBERS WITHOUT DOLLAR SIGNS OR COMMAS -- I'LL ADD THOSE.":600:3020xMu * ITEM DATA ENTRY *Mu4250:K1:NN1:34,11::12:20:"THIS IS ITEM # ";N:34,12:NC40:MC40NuLL119:"DESCRIBE THE ITEM YOU'RE SHIPPING.":200:100::A0:T(N)0:PR0:N0:NR2GLbu5000:500::4080:5050:30410:5700:Mlu::TF$"THIS INVOICE IS DESIGNED TO USE ONLY ONE PAGE OF PAPER. THEREFORE, IT WILL HOLD MORE ITEMS IF YOU KEEP THE DESCRIPTION(S) TO ONE OR TWO LINES -- UP TO 120 CHARACTERS.":6 I'LL GET THAT MENU FOR YOU ...":NC39:MC39:H$"ITEMS INVOICE":216,0PK5u1000}K:uH30040,30800,30020,1600,2200,2000,2460KDu1300:PR1:NR2:4000:30400:30410:30420:30440:30450:30470:30480:30490:30000KWu ** START NEW INVOICE **LXu4000:O$:IA,DE$:IA,PU$:IA,R$5JQD$;"CLOSE":FI1:216,0HJR * VIEW IT *}JR::500::SW39:NC39:MC40:5700:20510:20520JR:"WANT TO LOAD & VIEW ANOTHER ONE? (Y/N) ";:300JRYES20000J&R20800J/u *** ITEM INVOICE ***FK0u::12:"ITEMS. AND":"SUFFIX: ";:100:FI$IN$AI^QFI$"C"FI$"c"İ3000:20810[IhQFILE$"INV."FI$".P"IrQER0ĺD$;"VERIFY ";FILE$:20870I|Q2600:216,0:20800IQD$"OPEN";FILE$IQD$"READ";FILE$JQIA,N$:IA,DA$:IA,TP$:IA,CC$:IA,SA$:IA,Z$:IA,TA$:IA,CP20100%H?Q * READ & DISPLAY FILE *oH@Q::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8:ER0:2500IJQFI$"":"WHICH INVOICE DO YOU NEED TO REVIEW? ENTER JUST THE NAME, PLEASE -- I WILL ADD THE ";Q$;"INV.";Q$;" AND ";Q$;".P";Q$;" PREFIX ? (Y/N) ";:300GPYES20600?GPFILE$FILE$".P":FL2:6050GPER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:CO$:DE$:PU$:R$:ER20700GP2700:216,0:20000GPD$;"CLOSE";FILE$GP::"NEED TO START ANOTHER INVOICE? (Y/N)";:300GPYES20000HNU.":20000F}P:"PLEASE ENTER A FILENAME FOR THIS INVOICE, THEN TAP RETURN (I WILL ADD A PREFIX AND A SUFFIX TO IDENTIFY IT).":FP"--> INV.";:V(37):100:FILE$IN$:FILE$""20600:ER0:2500GPV:"--> INV.";FILE$;".P"::"ARE YOU SURESCREEN *UEP34,11::"YOUR ORDER #: ";CO$:"PROJECT DESCRIPTION: "::TF$DE$:600:uE(P:"TOTAL DUE: ";"$ ";PU$:EwP * SAVE THE INVOICE * FxPFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:"JUST A MOMENT, PLEASE, FOR THE MEYOUR ORDER #: ";CO$:LF$;LF$:TF$DE$:600DOSW39:NC39:MC40::I$;SP$;LF$:ZZ1NH:10);"TOTAL DUE:";41(PU$));"$ ";PU$::DOD$;"PR#"SL:I$;SP$:R$""ĺFF$:20440DOI16:LF$::I1NH:10);R$::FF$;DS$DOD$;"PR#0":EP * DISPLAY ON $C$OR$CR$R$""C.O20420RC8O:"NEED ANOTHER COPY OF THIS ONE? (Y/N)";:300bCBOYES20600CLOPR1:(N$,5)"-COPY"N$N$"-COPY"CVO5000:5050:20400:20250CO * PRINT PROJECT INVOICE *)DOSW0:NC50::D$;"PR#";SL:SP$;LF$;LF$;LF$:10);"RE? (Y/N) ":540:300%BNYES20200BO::LL10:"HOW MUCH ARE YOU CHARGING FOR THIS? ":200:100:A$IN$:PU(A$):1400:20520BO20400COD$"PR#0":34,11::LL63:"ANY REMARK YOU'D LIKE TO INCLUDE? ":CR$:"IF NOT, PRESS RETURN."::200:100:R$INART.":600:3020AN:::TF$"(INCIDENTALLY, IF YOU NEED MORE THAN 40 WORDS, ENTER A -Q, AND CHOOSE THE MEMO TYPEWRITER.)":600AN3020AN:LL250:34,11:"PLEASE DESCRIBE YOUR PROJECT NOW:":200:14:100:DE$IN$BN20510::IS$"ARE YOU SUCLIENT ORDER NUMBER (OR 'VERBAL'): ":200:100:CO$IN$:NC39:MC40AN::TF$"I WILL GIVE YOU 250 SPACES -- APPROXIMATELY 40 WORDS -- TO DESCRIBE YOUR PROJECT. YOU NEED NOT INCLUDE THE AMOUNT YOU'RE BILLING. I'LL ASK YOU FOR THAT WHEN YOU FINISH THIS P0800,20020,1600,2200,2000,2460G?4NPR1:4000:5000:5050:20400:20000e?N ** START NEW INVOICE **?N4000:NC40:MC40:PR0:5000:500:IS$"-Q TO RETURN TO INVOICE MENU":540?N * CLIENT DATA *?N4080:5050:5700:4250:B@NLL30::""N"(YES$,1)"n")160:((YES$,1)"Y"(YES$,1)"n")180:140J YES$:\ YES1:YES$:q GET SLOT NUMBER ::12:"PLEASE ENTER YOUR PRINTER SLOT # ";:SL$:(SL$)48(SL$)54220 SL(SL$):D$(4):Q$(34) :PRINT-OUT USERS MANUALl(103)1ĺ(4)"BLOADIA":103,(217612):104,(217613):(103)(104)2561,0:(4)"RUNUSERS MANUAL"PRINT-OUT.USER'S.MANUAL (IA2179:M$(66):(4)"BLOADCATPATCH":220x*** BULLETPROOF GET (Y/N) ***> YES0:YES$:((YES$,1)D PRESS RETURN";:" ";DK$#936)I DISK COPY *a* COPYRIGHT BY *(* APPLE COMPUTER,INC. *2* 1980 *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISK DUPLICATION):K128330:16368,0:K141340:KK176:KLKH330:NKSO16368,0:K141340lPKK176:KLKH330tQNKT20:N;" ":^:22:"DEFAULT = ";:hMSSSırMDSDıw:(DK$,1)"D"ĺ|"INSERT ";DK$;" DISK AN19::16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300Z '(I$,1)"Y"160p ,(I$,1)"N"290 1::672:70,70: 6:1:I$;" SLOT: ";:L1:H7:350:N;::30:330: @350:N;::4:" DRIVE: ";:L1:H2:330::JK(16384DK$"DUPLICATE":360: GET DUP DISKH 8:24::"WRITING";::" "a 710: WRITE A HUNKw 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"E " ERROR!, 5:24:" ":(713)1290G FT255: NOT FIRST RDo DK$"DUPLICATE":360: GET DUP DISKy 275 8:24::"INITIALIZING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256% "3 704:717,SS16:718,MS16:719,SD:720,MDH 17:34,16:936U :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280: PROGRAM"::# Z704:CS(718)16? d715,(110)1:BUFSTARTY n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" *% ************************C* DISK COPY *a* COPYRIGHT BY *(* APPLE COMPUTER,INC. *2* 1980 *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISK DUPLICATION  >'::"WOULD YOU LIKE TO START ALL OVER FROM ":"THE BEGINNING? (Y/N)":300Y>'YESıe>$':1600>N *** SINGLE PROJECT INVOICE ***> N216,0::12:"PROJECT. JUST A MINUTE FOR THAT MENU.":H$"PROJECT INVOICE":NR2:NC40:MC40:1000?*NH20100,2OR ADD) THE REMARK NOW? (Y/N) ";:300==YES4810=:LL63:TF$"WHAT DO YOU WANT THE NEW REMARK TO BE? ":600:200:100=:"ARE YOU SURE? (Y/N) ";:300=YES6610=R$IN$=4810=' *** SEE IF PERSON WANTS TO START OVER ***M13:::5810::"THAT'S ALL OF THE JOBS.":6570<V(37)::"TAP FOR NEXT JOB.":"-Q FOR INVOICE MENU. ";:K$:K$:K(K$)<K13ĂN:34,10::6510<K174800<K13K27ī6420<<5820.=:"DO YOU WANT TO CHANGE (:IA,CO$(N):IA,UN$(N):IA,T(N):IA,RA(N):IA,TT(N)::IA,Aa; R$:100:R$IN$:PU$:100:PU$IN$;D$"CLOSE";FILE$:FI1:216,0;c *** REM VIEW INVOICE ***;d500::5700:N1NJ;nNNJė:"THIS IS JOB #: "N::34,14:::5750:/ TO ACCEPT":V9UTAB6::V:TAB:" ":VV1:V14V10vV:TAB:"!":400:470:1260V:TAB:" "::*** FLAG FOR NO FILE IN MEMORYO:10:TF$"YOU DON'T HAVE A "H$" FILE IN MEMORY RIGHT NOW. I'LL RETURN YOK3931:16,28K:,BR$(91)" "(93)rME$(7)BR$" PRINT A "H$:ME$(8)BR$" LINE-AT-A-TIME TYPEWRITER"ME$(9)BR$" OTHER FORMS OPTIONS":ME$(10)BR$" QUIT AND EXIT TO BASIC"+V10:V:X710:5::ME$(X):::7:4:H$;" OPTIONS:":16:4HE JOB, AND THE THIRD LETS YOU ENTER A DETAILED DESCRIPTION OF A SINGLE PROJECT.":600: *** CHAIN TO S.B.H. MAIN MENU ***D$;"BLOAD CHAIN,A520":520"MAIN MENU"*** CHAIN TO MEMO TYPEWRITER ***D$;"BLOAD CHAIN, A520" 520"MEMO TY:H30000,4800,20000,2400:1600A ** EXPLAIN INVOICE FORMS **1:TF$"PLEASE CHOOSE WHICH INVOICE FORM YOU WANT. THE FIRST BILLS PHYSICAL ITEMS COMPLETE WITH SALES TAX.":600:XTF$"THE SECOND BILLS "Q$"PROFESSIONAL"Q$" HOURS OR UNITS BY TQUIT":VT11:16:"ANY KEY TO MOVE --":16:" TO ACCEPT.":1700:V14:TAB19z^:V:TAB:" ":VV2:V24V16hV:TAB:"!":400:1660:1630r|H(16384):H128166016368,0:H141H((V2)7)::1690V:TAB:" ":RECT LINE = ";:100:ITEM$(LINE)IN$/,:150056`? *** SELECT WHICH KIND OF INVOICE ***@216,0:::50:48,32:K47261:15,32K:: CHANGE 13100 LATERJ16:18::BR$;" ITEMS"::18:BR$;" HOURS/UNITS"::18:BR$;" PROJECT"::18:BR$;" (PU$):% *** CHANGE ROUTINE ***,::JI1K:I;". ";ITEM$(I):m:"ANY CHANGES? (Y/N) ";:300|YES1590:"WHICH LINE NUMBER? ";:V(37):LINE$:LINE$:LINE(LINE$)LINEKĢV1:1540:"OLD LINE = ";ITEM$(LINE)#""CORKEY... ";:K$:K$<1600!FHw *** PRINT USING FORMATTER ***TxPU0ı}PU100(PU.005):PU(PU):(PU(PU100)100)0PUPU100:PU$(PU)".00":1430(PU(PU10)10)0PUPU100:PU$(PU)"0":1430PUPU100:PU$(PU)NLFLAG FOR NO FILE IN MEMORY+FIġ:132051350(NC39:MC40::10:TF$"YOU DON'T HAVE AN INVOICE FILE IN MEMORY RIGHT NOW. I'LL RETURN YOU TO THE FIRST INVOICE MENU SO YOU CAN SELECT THE TYPE YOU WISH TO WORK WITH TODAY.":6002:"PRESS ANY NU":ME$(7)BR$" QUIT AND EXIT TO BASIC"LV10:V:X17:5::ME$(X):::7:4:H$;" OPTIONS:":19:4:"ANY KEY TO MOVE, TO ACCEPT":V9`TAB6::V:TAB:" ":VV1:V17V10tV:TAB:"!":400:440:1120V:TAB:" ":: *** 32:K3931:16,34K:s$BR$(91)" "(93):ME$(3)BR$" PRINT "H$" IN MEMORY":ME$(2)BR$" LOAD AN OLD "H$(8ME$(1)BR$" START A NEW "H$:ME$(4)BR$" CHANGE TYPE OF INVOICE FORM":ME$(5)BR$" RUN MEMO TYPEWRITER":ME$(6)BR$" RETURN TO MAIN ME"":$  *** WAIT FOR KEYPRESS ***b 23:16:"...ANY KEY TO CONTINUE.":H(16384):H128800 *16368,0:H155ġ:1000 4 >(37)((37)0):958: *** ALL-PURPOSE MENU/SUBMENU *** MM(0):216,0:48,160:K039:0,47K::48,bMCNCMCMC40:610, lLM((MCNC)2)1P v(TF$,1)" "TF$(TF$,2):630d (TF$)NC700o Y$TF$ J1NC101:(Y$,J1,1)" "680 :J1NC1 TF$(Y$,J11):700:J10TF$(Y$,J1) 630 LM:TF$; (TF$)MCĺ TF$:(39((B2$))):B2$:2:2:H$:34,4:K  *** ABOVE LINES DRAW TOP *** 48,32:K039:42,47K:::X(20(IS$)2):23:(X):IS$;:35,21:: % ** ABOVE LINE DRAWS BOTTOM *** W *** ANTI-SPLITWORD WORD ROUTINE *** XNC0NCSW:MC40 "(92):C1:L(C$):2551 V:TAB::(C$,C,1)[ H(16384):H128CC1L(CL):410a | H(16384):H128440 16368,0:H141H(V9)::1160   *** BASIC WINDOW *** ::48,32:K039:0,7K:& :(39((B1$))):2:B1$SOR< KK1LL:(95);::(91):1:((37)((LL1)40)):a + *** BULLETPROOF GET (Y/N) *** ,YES0:YES$:((YES$,1)"N"(YES$,1)"n")310:((YES$,1)"Y"(YES$,1)"y")320:300 6YES$: @YES1:YES$:  *** WHIRLING CURSOR C$"!/-W]*** INVOICES *** J(D$"BLOADCATPATCH":49168,0:1600:*SUB-MENU248,160:K3901:0,47K::: WIPES SCREEN FROM LEFT TO RIGHTc*** INPUT ANYTHING ROUTINE ***dIA,IN$:IN$(17)ġ:1600n *** DRAWS A LINE/REPOSITIONS CUR                """               M$(K):KK1:CO$(N)ITEM$(K):KK1:T$(N)ITEM$(K):KK1:RA$(N)ITEM$(K)g&T(N)(T$(N)):R(N)(RA$(N)){&:5200:AATT(N)&D34,11::958:IS$"ANOTHER JOB ON THIS INVOICE? (Y/N) ":540:300&XYESC74260&lYESC1104280&v5500m'DS$:DH%"AT WHAT UNIT RATE? ";:100:RA$(N)IN$:RA$(N)""İ830:KK1:4340%((RA$(N),1))44((RA$(N),1))57((RA$(N),1))47İ830:"NUMBERS ONLY, PLEASE.":ZZ11000::830:4340%ITEM$(K)RA$(N)::K5:1500F&K1:W$(N)ITEM$(K):KK1:J$(N)ITE)":600:300:YESUN$(N)"HOUR":43200$4700y$"HOW MANY ";UN$(N);"S? ";:100:T$(N)IN$:T$(N)""İ830:KK1:4320$((T$(N),1))44((T$(N),1))57((T$(N),1))47İ830:"NUMBERS ONLY, PLEASE.":ZZ11000::830:4320%ITEM$(K)T$(N):KK1K1#LL54::"ON WHAT PROJECT?":200:100:ITEM$(K)IN$:KK1:LL10:"CLIENT ORDER NUMBER? (OR 'VERBAL'): ":200:100:ITEM$(K)IN$:KK1&$TF$"I WILL USE "Q$"HOUR"Q$" FOR THE BILLING UNIT UNLESS YOU TELL ME NOT TO. DO YOU WANT TO CHANGE IT? (Y/NRETURN> TO QUIT FOR NOW":540:a"4250:CC1:NN1:34,11::12:20:"THIS IS JOB # ";N:34,12v"C7NN1:5400"N74290"4250:C1C11:NN1::12:20:"THIS IS JOB # ";N:C110İ5400#K1:LL54:"WORK YOU DID?":200:100:ITEM$(K)IN$:KK16!h"TO THE ATTENTION OF?":200:100:ITEM$(K)IN$B!r:1500!|K1:N$ITEM$(K):KK1:DA$ITEM$(K):KK1:CC$ITEM$(K):KK1:SA$ITEM$(K):KK1:Z$ITEM$(K):KK1:TA$ITEM$(K):!5050:5700:4260! ** JOB DATA ENTRY **"IS$"-Q AND -Q AND FOR INVOICE MENU":540:PRINT "HEADER" SCREEN4080:4230 *** ENTER CLIENT AND OTHER INFORMATION ***SK1::LL10:"W:' *** TIME/PROJECT INVOICE ***:12:"WHICH HEADER DO YOU PREFER ON THIS BILL?":32,6::"1) INVOICE"::7:"OR"::"2) STATEMENT OF ACCOUNT":K$:(K$)1(K$)24010(K$)1H$"INVOICE":FL0:4035(K$)2H$"STATEMENT":H2$** INDIVIDUAL INVOICE LISTING *** :" FILES LABELED WITH ";Q$;"INV.";Q$;" ARE INVOICES":" ";Q$;".I";Q$;"=ITEMS, ";Q$;".U";Q$;"=UNITS, ";Q$;".P";Q$;"=PROJECT":ZZ140:"-";::34,3: D$;"CATALOG": :16:"... ANY KEY TO CONTINUE ";:K$:K$EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOUR DISK IS SICK. I HOPE IT'S THE DRIVE DOOR. PLEASE CHECK.":600 EC9ĺ:TF$"OOPS. THIS DISK IS FULL. PLEASE INSERT ANOTHER INITIALIZED ONE FOR ME TO SAVE YOUR FILE TO.":600 :800::! *UR DISK IS SICK. I HOPE IT'S YOUR DRIVE DOOR. PLEASE CHECK.":600P< :800::q ** SAVE ERROR MESSAGES ** EC4ĺ:TF$"OOPS. THIS DISK SEEMS TO BE WRITE-PROTECTED. EITHER INSERT ANOTHER ONE, OR PEEL THAT LITTLE TAB OFF THE LEFT SIDE.":600w UTINES ***$ 850:EC(222):ER1:E' ** LOAD ERROR MESSAGES **( EC6ĺ:TF$"OOPS. I CAN'T FIND THAT FILE. PLEASE CHECK YOUR SPELLING, AND MAKE SURE THE RIGHT DISK IS IN THE DRIVE.":600A2 EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOOU ...":2000y AS$"2"16001~ AS$"3"2470; 2400 :12:"DO YOU REALLY WANT TO QUIT NOW? (Y/N) ";:300:YES1600 ::(15):TF$"THANKS FOR USING THE DO-IT-YOURSELF BUSINESS PAPERS. I HOPE WE'RE MAKING MONEY.":600:  *** ONERR ROPEWRITER"%_ *** QUIT FOR NOW ***` 50:48,32:K024:22,32K:::13:" BACK TO MAIN MENU = 1":" BACK TO INVOICES = 2":" OR QUIT TO BASIC = 3":18::" PLEASE ENTER NUMBER "; t AS$:AS$:AS$"1"İ50:15:"RIGHT. I'LL GET THE MENU FOR YϠ讍䍠ϮТ讠򍠠뮍ĠŠč宠欠썠򮠠􍠠à፠䠢֬ҠӢ占䠢Ϣ䠢Ţ󮠠占፠獠󮍍ԠŠٍ謠䠢ҍӢ嬠΢ԧӠԠǍ􍠠󮠠占뮠占占򩬠讠ͧ占宍ĠԠō쮠󠍠􍠠󮠠蠠򍠠嬠䍠宠썠뮍젢䮍嬍Πź嬠󍠠ˠ󮠠占󍠠嬠𠭭䍠宍堤󍠠堤婮򬠍b(103)1ĺ(4)"BLOADIA":103,(217612):104,(217613):(103)(104)2561,0:(4)"RUNIV"44601,32:44602,0:44603,3*** INITIALIZE VARIABLES ***(IA2179249168,0:300:500:100<700c *** ADDITIONAL MESSAGE ***@ d    $"PR#0":34,12::LL63:"ANY REMARK YOU'D LIKE TO INCLUDE? ":CR$:"IF NOT, PRESS RETURN."::200:100:R$IN$'R$CR$R$""'5550:DS$'D$"PR#0":NJN:::8:"WOULD YOU LIKE ANOTHER COPY OF ":"THIS INVOICE? (Y/N) ";:300'YESİ6000:4620栱󮠠󍠠嬠堨占堢󩮍̠Š٬Š̠ˬ穬󮠠󍠠婠墍򍠠䮍䠨䬠ﬠ堨٧ӠӬō占嬠占䮠占󮍍뮠ҠנӠŢ占󮠠󍠠LF$:I1NH:9);"TOTAL DUE:";:55NL);"$ ";PU$::DS$I2D$;"PR#0":f2 *** PRINTS REMARK ***2D$;"PR#";SL:I$;SP$:R$""55702LF$;LF$:I1NH:9);R$:2FF$;DS$2D$;"PR#0":5820:2 LINES3CDS$:J1CDS:(173);:::REG$A:PUTT(N):1400:PU$(N)PU$:I1NH:9);"SUBTOTAL:";:55NL);"$ ";PU$:1,PP1:FF$:I1NH:5);CC$;" INVOICE, PAGE ";P::LF$;LF$;LF$;DS$16D$;"PR#0":5800:1{ *** PRINTS TOTAL ***1|5810:D$"PR#";SL:I$;SP$;LF$:5650:::PUA:140082):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" "UN$(N)"S";CR$::I1NH:74NL);"$ ";PU$(N)::PR053400DS$:D$;"PR#0":AAPU(N)::PR1NNJĂN:52020DS$:D$;"PR#0":0 PRINTS SUBTOTAL(S)0D$;"PR#";SL:I$,SP$,LF$J1"5650:LF$:TT(N)$ ";PU$(N)::PR05340+/PR1N7İ5400@/PR1N17İ5400g/D$;"PR#";SL:I$;SP$:T(N)15320/PU(N)TT(N):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" ";UN$(N)"S";CR$::I1NH:74NL);"$ ";PU$(N)::PR05340/PR15330k0PU(N)TT(NPU(N):1400:PU$(N)PU$:CR$:I1NH:74NL);"$ ";PU$(N)::PR05340U.PR15330.PU(N)R(N):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" ";UN$(N)" @ $ ";PU$(N);" PER "UN$(N)":":/PU(N)TT(N):PUPU(N):1400:PU$(N)PU$:CR$:I1NH:74NL);"$A-nD$;"PR#0":34,13:IS$"INCLUDE UNIT RATE? (Y/N) ":540:300P-xYES5305i-D$;"PR#";SL:I$;SP${-T(N)15290-PU(N)R(N):PUPU(N):1400:PU$(N)PU$:I1NH:T(N)1ĺ9);T(N);" ";UN$(N)"S @ $ ";PU$(N);" PER "UN$(N)":":F.PU(N)TT(N):PUPRINT INDIVIDUAL JOB(S)/,PPR1A0:N1NJ1I,RPR1N8İ5400:5205^,SPR1N18İ5400~,UD$"PR#";SL:I$;SP$;LF$;LF$,ZI1NH:9);;W$(N)::LF$:I1NH:9);J$(N)::LF$-dI1NH:9);"YOUR ORDER #: ";CO$(N)::LF$:TT(N)T(N)R(N):NR2:DSA$::LF$:I1NH:55);"INVOICE #: ";N$::LF$;LF$o+I1NH:4);"TO: ";TA$::LF$:I1NH:9);CC$::LF$+I1NH:9);SA$::LF$:I1NH:9);Z$::LF$;LF$:5600:LF$+I1NH:4);"TERMS OF PAYMENT: ";TP$::DS$+D$;"PR#0":,O *** )*H4040,6300,4830,1600,2200,2000,2460b*1300:PR1:4000:5000:5050:5200:5500:5550:4810v* PRINT INVOICE* HARD COPY*60550:60300:: HEADER SECTION* *** PRINT CLIENT INFO.*D$;"PR#";SL:I$;SP$;LF$;LF$3+I1NH:55);D. MAKE IT A SINGULAR WORD, PLEASE (IF I DETECT MORE THAN ONE, I'LL ADD AN ";Q$;"S";Q$;")."::200:100:UN$(N)IN$:) ** INVOICE SUB-MENU):12:TF$"HOURS. I'LL GET THAT MENU FOR YOU ... ":600:F$"INV.":H$"HOURS INVOICE":NR2)216,0:1000((PR1:(N$,5)"-COPY"N$N$"-COPY"P(5000:5050:5200:5500:5550:4560( ::8:"WOULD YOU LIKE TO START ANOTHER INVOICE?(Y/N) ";:300(YES4800( 4040([ *** GET UNIT OF BILLING ***v)\LL12:"PLEASE ENTER YOUR NEW UNIT OF BILLINGNY"KEY ";:A$:A$:48,160:K047:0,39K:10:10:"THAT'S ..."::10)"HONOR-SYSTEM SOFTWARE":10)"P.O. BOX 338A":10)"MEDINAH, IL 6015743614,0:3570,(3570)1:(4)"UNLOCKHELLO":(4)"SAVEHELLO":(3570)20ĺ(4)"RUNA": G::48OMEBODY":"ELSE, PLEASE BE SURE TO":"INCLUDE HIS OR HER NAME WITH":"YOUR $30 PAYMENT.": n"WE WILL PROMPTLY FORWARD $5":"OF IT TO YOUR ";Q$;"MENTOR";Q$;" FOR":"HELPING US DISTRIBUTE IN THIS";:"INEXPENSIVE AND HONEST WAY."x32,0:33,40::"...A"AFTER YOU HAVE REGISTERED,":"FOR EVERY PERSON WHO TELLS":"US THEY GOT THEIR COPY OF":"THE DO-IT-YOURSELF PAPERS":"FROM YOU WHEN THEY REGISTER,":"WE WILL MAIL YOU A CHECK":"FOR FIVE DOLLARS."K d:"SO IF YOU GOT THIS COPY OF":"THE PROGRAMS FROM SND SUPPORT AND ...":] <255:K47421:6,39K::::" TAP A KEY FOR THE GOOD NEWS.";:3::A$:A$: F48,160:K039:0,47K:::48,32:K040:2,9K: P75:32,3:33,37:15::"PAY"::"YOU"::"MONEY!"::32,0:33,29:32,11::255:3 ZKE THEM, WE ASK THAT":"YOU SEND YOUR NAME, ADDRESS, AND":"A CHECK FOR $30 TO:" (:" HONOR-SYSTEM SOFTWARE":" P.O. BOX 338A":" MEDINAH, IL 60157" 2:"WE WILL REGISTER YOU AS A LEGAL":"OWNER, GIVE YOU A PHONE NUMBER":"FOR UPDATES A$ Q$(34):::255:48,32:K3961:4,11K: :32,7:33,34:4:"PLEASE COPY THE ORIGINAL OF THIS":"DISK AND GIVE IT TO YOUR FRIENDS." :32,6:225:8:"THE PROGRAMS ARE COPYRIGHTED, BUT"A "NOT COPY-PROTECTED. IF YOU USE":"THEM AND LI  RIVE DOOR IS OPEN, OR YOUR DISK IS SICK. I HOPE IT'S YOUR DRIVE DOOR. PLEASE CHECK.":600 EC9ĺ:TF$"OOPS. THIS DISK IS FULL. PLEASE INSERT ANOTHER INITIALIZED ONE FOR ME TO SAVE YOUR FILE TO.":600 :800:: *** INDIVIDUAL B.P. OR INVOICE MR. NICE GUY. THIS PROGRAM IS ALTERED OR DELETED, THE WHOLE DISK WILL BOMB. }Z:1010,102:1011,213:1012,112:2049,1_49168,0 d:48,32:K014:5,13K:::6:8:"AHEM."::32,5::33,34::"YOU'VE BEEN USING THESE":"PROGRAMS FOR QUITE A 14:" DON'T WORRY, I DIDN'T BREAK ANYTHING. ":17:4)"THAT'S: HONOR-SYSTEM SOFTWARE":12)"P.O. BOX 338A":12)"MEDINAH, IL 60157" (4);"RUN IV"  SORRY, NO MORE MR. NICE GUY.SUT WE HAVEN'T HEARD":"FS HIS MIND!":23:35:"WOW!" :3:23:"THAT MAKES THREE!":21:"JIM! GO GET THAT ORDER FORM!":11:10:"SO I'M HURRYING, I'M HURRYING!":17:2:"HOLD ONTO HIM ANN!" :6:"YIPPIE!":255:23:216,0 (4);"RUN ORDER ENVELOPE" :216,0:$:32,0:33,40:48,160:J047:0,39J::14:"MAY I PRINT AN ORDER FORM FOR YOU? (Y/N)";| 20:A$:A$:A$"N"A$"n"180 A$"Y"A$"y"157 150 200::"CHARLIE! WE GOT AN ORDER!":13:14:"HEAR THAT ALAN?";:8:5:"HURRY, BEFORE HE CHANGEROM YOU."::"REMEMBER, PLEASE, IT'S ONLY":"THIRTY BUCKS TO:"::"HONOR-SYSTEM SOFTWARE":"P.O. BOX 338A":"MEDINAH, IL 60157" x:"THANKS. YOUR HONESTY IS":"WHAT MAKES LOW-COST PROGRAMS":"LIKE THIS POSSIBLE. "; 140 K14000:Y A$:AQ IF THIS PROGRAM IS ALTERED OR DELETED, THE WHOLE DISK WILL BOMB. ^_49168,0d:48,32:K014:5,13K:::6:8:"AHEM."::32,5::33,34::"YOU'VE BEEN USING THESE":"PROGRAMS FOR QUITE A WHILE," n"NOW, BUT WE HAVEN'T HEARD":"F     :: LONG LINEN3CDS$:95);:J136:(173);:::REG$:: SHORT LINEf3B DISPLAY ON SCREENx3C CLIENT INFO3D:19:DA$:19:"INVOICE #: ";N$:TA$:CC$:SA$:Z$3NI039:"-";::TP$:34,12:3u INDIVIDUAL JOB INFO?4v:TT(N)T(N)R(墠쮍ŠŮ謠嬠󠭭占欍󍠠嬠덠iq imo 膢 ȱ " [67 l67  8ij  o> TO ACCEPT"::4:7:"PRINTER CHOICES:": 49168,0:32,5:7:K115:BR$::220:32,9:7$,1)" "TF$(TF$,2):630 (TF$)NC700* Y$TF$P J1NC111:(Y$,J1,1)" "680^ :J1NC1 TF$(Y$,J11):700:J10TF$(Y$,J1) 630 LM:TF$; (TF$)MCĺ TF$"":  *** WAIT FOR KEYPRESS *** 23:16:"..K4701:0,39K:::BOTTOM TO TOPG 048,160:K3901:0,47K:::RIGHT TO LEFTv D48,160:K039:0,47K:::LEFT TO RIGHT W *** ANTI-SPLITWORD WORD ROUTINE *** XNC0NCSW:MCSW bMCNCMCMC40:610 lLM((MCNC)2)1 v(TF *** C$"!/-"(92):C1:L(C$):2550 V:TAB:(C$,C,1)Z H(16384):H128CC1L(CL):410` | H(16384):H1281100 16368,0:H141HV6::1100   WIPES 48,160:K047:0,39K:::TOP TO BOTTOM 48,160:& ORDER ENVELOPE G D$"BLOADCATPATCH":350:640mT***** INITIALIZE VARIABLES *****^D$(4):I$(9)(75)(9)"254N":VO$(9)"132N":NH2:G$(07):Q$(34)h*** PRINTER VARIABLES ***rLF$(10):FF$(12):CR$(13)W |       占󮠠ᠢנ٠Ǡӿ򍠠堢ԠԠԠſ占嬠占占󮍍Š̠ԠӯӢӯӠ䍠宍ﬠ䍠󮠠፠嬠쮢ӯӠ占򍌍󮠠Ԡ፠嬠ᠢЮϮ荠ō󺠠Ӡ썠栢򠭭占󮠠󍠠獠󮠠嬠宍占躍Šҍ퍠􍠠䮠占荠נϠō򍠠堭䍠ϮЬﬠ占󮍍ᠢ䬠뮠٢宠占占讠48,32:K47401:15,33K:::17:22:"BE RIGHT WITH YOU.":J n20:j *** CHAIN TO MAIN MENU *** D$;"BLOAD CHAIN, A520" 520"MAIN MENU" +***** INITIALIZE VARIABLES ***** ,N(50):I$(9)(75)(9)"132N":VO$(9)"132N":NH2ԍŲŲԍԍ΍ PLEASE, FOR THE MENU.":48006uER0::"PLEASE ENTER A FILENAME FOR THIS INVOICE, THEN TAP RETURN (I WILL ADD A PREFIX AND A SUFFIX TO IDENTIFY IT)."::25006z"--> INV.";:V(37):100:FILE$IN$:FILE$""60007(V1):"--> INV.";FILE$; SCREEN ****5:"SUBTOTAL: ";"$ ";PU$:S5PUA:1400:"TOTAL DUE: ";"$ ";PU$:]5R$:5n *** INVOICE DATA FILE HANDLING5o *** SAVE THE INVOICE FILE6pFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:"JUST A MOMENT,N):TF$W$(N):600:TF$J$(N):600:TF$"YOUR ORDER# "CO$(N):6004{T$(N)(T(N)):PUR(N):1400:R$(N)PU$:PUTT(N):1400:TT$(N)PU$4TF$T$(N)" "UN$(N)"S @ $"R$(N)" PER "UN$(N)":"TT$(N):600434,14: 5 *** PUT SUBTOTAL, TOTAL, & REMARK ONLF$:%J1CDS:(95);::LF$;LF$.520gLF$;11);"!";CDS41);:"-- STAMP --";:6);"!";LF$J1NH:NM$;REG$;9);NA$::LF$:J1NH:9);ST$:LF$:J1NH:9);CZ$::LF$;CDS$I1NH:15);:J1(CDS31):"O";:::$I1NH:4);"! whole";LF$;"this flap !";CDS24);"! sheet";LF$f"down on !";CDS24);"! over.";LF$"the line !";CDS24);"!";LF$"below, !";CDS24);"!";LF$"and tape !";CDS24);"!";LF$"shut. !";CDS24);"!";:J13:ay.";((CDS24)2)19);"! way you";LF$Sp"at top and !";CDS24);"! did the";LF$~z"bottom. !";CDS24);"! other";LF$11);"!";CDS24);"! side, and";LF$REG$;EM$;"5.";NM$;CDS$;CDS18);" turn the";LF$500"Now fold !";CDS2d";LF$5H"this flap !";CDS24);"! this flap";LF$R"backwards !";((CDS24)2)6);"THANKS A LOT.";((CDS24)2)7)"! under";LF$\"on these !";CDS24);"! the same";LF$&f"lines ---->!";((CDS24)2)18);"You'll be hearing from us right aw14:"DO YOU REALLY WANT TO QUIT NOW? (Y/N) ";:A$:A$L A$"Y"A$"y"800U670| ::14:18:"BYE!":J1500:::*:6504CHECK ENVELOPE>D$;"PR#";SL:I$;REG$;EM$;"2.";EM5);"3."CNM$;CDS$;LF$;"Now fold !";CDS24);"! Then fol0:18:9:"PLEASE CHOOSE A NUMBER":18:6:A$H(A$)49(A$)51690gA$:A(A$):A810,730,770 RUN MAIN PROGRAMS:14:" JUST A MOMENT, PLEASE."::12:" YOU'RE ONE OF THE GOOD GUYS. THANKS!":1580 QUIT5:SURE IT'S SET AT THE TOP OF A PAGE, AND THEN TAP ANY KEY ... ";:A$:A$:830 :48,32:J030:4,6J::32,5:33,31:12::"1":"2":"3": 32,8:12:"PRINT ANOTHER ORDER FORM":"RUN D-I-Y BUSINESS PAPERS":"QUIT AND EXIT TO BASIC"-32,0:33,4L:SP$;I$:Q lD$;"PR#0"::"DIG THAT RHYTHM!":"DON'T WORRY, I'M ALMOST DONE!"l vD$;"PR#";SL:SP$;I$: ::14:16::" HOORAY! ":::" ANOTHER HONEST APPLE OWNER!":1530:14:16::" HOORAY! ":M 20:"PLEASE TURN YOUR PRINTER ON, MAKE D$;"PR#";SL:SP$;I$:n DD$;"PR#0"::" CHA-CHA-CHA! THIS IS FUN!":" OKAY, OKAY, I'M HURRYING!" ND$;"PR#";SL:SP$;I$: XD$;"PR#0"::"JUST A FEW MOMENTS LONGER!":"YOU COULD HAVE BEEN MAKING":"OUT A CHECK, YOU KNOW." bD$;"PR#";SP$;I$:@ D$;"PR#0"::" OH MY! I WISH I COULD GO FASTER!"[ D$;"PR#";SL:SP$;I$: D$"PR#0"::"YOU WON'T CHANGE YOUR MIND, WILL YOU?" &D$;"PR#";SL:SP$;I$: 0D$;"PR#0"::"PLEASE BE PATIENT!":"I'M GOING AS FAST AS I KNOW HOW!" :SL2:SP$(17):DS$(19):REG$(29):EM$(01):NM$(02):CDS$(31):REG79:CDS132:EM44 XX$(06)(05)(02): TURN OFF PROPORTIONAL, RIGHT JUSTIFCATION AND GRAPHICS.  D$;"PR#0"::"OH THANKYOU!, THANKYOU! FOR THE ORDER!" D$;"PR#";SL:SLL:(95);::(91):1:((37)((LL1)40)):T + *** BULLETPROOF GET (Y/N) *** ,YES0:YES$:((YES$,1)"N"(YES$,1)"n")330:((YES$,1)"Y"(YES$,1)"y")340:300 JYES$: TYES1:YES$:  *** WHIRLING CURSOR *** C$"!/-"(92):C,32:K030:15,33K::32,17::170:11:"DO-IT-":"YOURSELF":"BUSINESS":"PAPERS":255:32,15:17:"COPYRIGHT 1985 BY":"SOLUTIONS SOFTWORKS":"ALL RIGHTS RESERVED":32,0(4);"RUNIV"M::48,32:K030:15,33K::32,17::170:11:OUR OWN PERSONAL COPY, AND MAYBE A FEW MORE FOR YOUR FRIENDS.":600: TF$"SQUIRREL THIS DISK AWAY IN CASE YOU EVER CHANGE PRINTERS. I'LL COME BACK WHEN YOU BOOT MY CLONE.":600 :5000:5070:5150:5190:5230:5260:5290:5320:5350NCA COPY, AND USE THAT FROM NOW ON.":600: :"IS THIS DISK YOUR ONLY COPY? IN OTHER WORDS, DO YOU NEED TO COPY THIS DISK BEFORE WE CONTINUE? (Y/N) ";:300:YESı6 14:TF$"PLEASE USE THE "Q$"COPY"Q$" PROGRAM ON YOUR SYSTEM MASTER TO MAKE Y1000,11000,11000,11500,11500,12000,12000,12500,13000,13250,13500,4000< ::6:TF$"AFTER YOU TELL ME WHAT PRINTER YOU HAVE, WE WILL BE MAKING SOME CHANGES TO THIS DISK THAT CANNOT BE REVERSED.":600: TF$"SO FIRST THING YOU SHOULD DO IS MAKE 󮍍󮍠占֮բ󍌍󮠠笠󬍠Ԡ􍠠򠠠ᠢ̍Ţˮ獠Ӯ䍠쮍䠢ΠҠӠԢ䬍亍ҠǠĠǍΠҠӠԍà󩬠占ӯӢ宍堢ˠՠĿ堢ΠԍԢ󮍠堢ҠǠĠǢ􍠠쮍嬠􍠠䮠򍠠嬠宍묍ŠԠſٯΩά򍠠宍堭Ӯ占썠䠢ҢӢŬ٬ˬȬŢ24);"! into the";LF$600("who gave !";6);"Name and address of your ";Q$;"mentor";Q$;:J1(CDS69):(95);::6);"! resulting";LF$2"you these !";CDS24);"! pocket.";LF$<"programs. !";6);:J1(CDS36):(95);::6);"!";LF$F State & Zip ";:J1(CDS54):(95);::6);"! tuck your";LF$m"an address !";CDS24);"! check for";LF$ "for the !";6);"Phone ";:J1(45):(95);::" Printer model ";:J1(CDS102):(95);::6);"! just $30";LF$"the person !";CDSS46):(95);::6);"! Fold this";LF$V"fill out !";CDS24);"! flap up on";LF$"this form !";6);"Address ";:J1(CDS44):(95);::6);"! the line";LF$580"completely !";CDS24);"! above, and";LF$>"including !";6);"City,8"::LF$7J1NH:EM$;EM20);"Medinah, IL"::LF$hJ1NH:EM$;EM13);"60157"::J14:LF$:q560NM$;REG$;CDS$:J1CDS:(95);::J13:LF$:REG$;EM$;"1.";EM5);"4.";LF$;NM$;CDS$&"Please !";6);"Your name ";:J1(CD40)j11);"!";CDS24);"! like to";LF$Oo11);"!";CDS24);"! see us";LF$wt11);"!";CDS24);"! publish?";LF$~J1NH:REG$;EM$;EM24);"To: HONOR-SYSTEM"::LF$J1NH:EM$;EM20);"SOFTWARE"::LF$ J1NH:EM$;EM20);"P.O. Box 3315);:J1(CDS31):"H";:::>.11);"!";CDS24);"!";LF$n8"Any !";CDS24);"! What other";LF$B"comments !";CDS24);"! kinds of";LF$L"you'd like !";CDS24);"! programs";LF$V"to make? !";CDS24);"! would you";LF$`5IN$")":EM$(27)EM$ 540::TF$"AND WHAT'S THE CHARACTER NUMBER THAT TURNS OFF THE DOUBLE-WIDTH LETTERS? ON SOME PRINTERS IT'S AS SIMPLE AS RESELECTING THE 10 CPI MODE. OTHERS USE CONTROL CHARACTERS SUCH AS ASCII #2 OR #15.":600J 7000:NMCHR$(27)+CHR$("IN$")":REG$(27)REG$540::TF$"NOW I NEED THE CHARACTER NUMBER FOR THE COMMAND THAT TURNS ON "Q$"EXPANDED"Q$" OR DOUBLE-WIDTH LETTERS.":6007000:EM$((IN$)):Z5$":EM$=CHR$("IN$")":YESZ5$":EM$=CHR$(27)+CHR$("=CHR$(27)+CHR$("IN$")":DS$(27)DS$dn540::TF$"THANK YOU. PLEASE ENTER THE CHARACTER NUMBER THAT SETS YOUR PRINTER FOR A NORMAL 10 CHARACTERS PER INCH (PICA) PRINTOUT.":600x7000:REG$((IN$)):Z4$":REG$=CHR$("IN$")":YESZ4$":REG$=Q$"OFF LINE"Q$" (USUALLY 19, A ).":600P:TF$"AGAIN, THE UPSIDE-DOWN GUYS REFER TO THIS COMMAND AS "Q$"SUPPRESS PRINTING,"Q$" BUT THEIR HEART'S IN THE RIGHT PLACE.":600Z7000:DS$((IN$)):Z3$":DS$=CHR$("IN$")":YESZ3$":DS$THING.":600c27000:SP$((IN$)):Z2$":SP$=CHR$("IN$")":YESZ2$":SP$=CHR$(27)+CHR$("IN$")":SP$(27)SP$i<&F540::TF$"NOW I NEED THE DECIMAL ASCII NUMBER FOR THE CODE THAT "Q$"DESELECTS"Q$" YOUR PRINTER -- IN OTHER WORDS, TAKES IT "TER THAT "Q$"SELECTS"Q$" YOUR PRINTER ... IN OTHER WORDS, PUTS IT "Q$"ON LINE"Q$" (USUALLY 17, A ).":600(:TF$"SOME PRINTER MANUALS GO AT IT BACKWARDS, AND CALL THIS CHARACTER "Q$"CANCEL PRINT SUPPRESS."Q$" THEY MEAN THE SAME ING A LETTER COMMAND. OTHERS STICK TO STRAIGHT CHARACTERS.":600 :TF$"I WILL ASK YOU EACH TIME IF THE CHARACTER IS NEEDED BEFORE THE COMMAND YOU ENTER.":600:800m540::TF$"PLEASE GIVE ME THE ASCII NUMBER OF THE CHARACHE ASCII NUMBERS OF YOUR PRINTER'S CONTROL CODES.":600s:TF$"PLEASE SEE IF YOU CAN FIND IT, AND THEN WE'LL GO ON.":600:800<540:3:TF$"SOME PRINTER MANUFACTURERS GET YOUR PRINTER'S ATTENTION BY SENDING AN CHARACTER (ASCII # 27) PRECEDUST CONTINUE ON. I WILL GIVE YOU AN OPPORTUNITY TO CHANGE EVERYTHING BEFORE WE FINISH.":600:800:540:6(:TF$"YOUR PRINTER MANUAL SHOULD HAVE A TABLE SOMEWHERE CALLED "Q$"SOFTWARE CONTROL CODES"Q$" OR "Q$"CHARACTER COMMANDS"Q$" THAT GIVES TU QUESTIONS ABOUT ASCII NUMBERS. THOSE ARE DECIMAL NUMBERS ASSIGNED TO EACH CHARACTER RECOGNIZED BY YOUR PRINTER. FOR EXAMPLE, IS (1), THE KEY IS (27), (32) IS A BLANK SPACE."[600::TF$"IF YOU MAKE A MISTAKE OR CHANGE YOUR MIND, JALLY ON AN APPLE (ALWAYS ON THE //C) IT IS CONNECTED TO SLOT # 1.":600::V((37)1):"YOUR PRINTER SLOT NUMBER? ";:SL$:SL$:SL(SL$):SL1SL6ĢV:868:5050Z1$"SL="(SL)540:3:"THANK YOU.":TF$"NOW, I'M GOING TO ASK YO":600:800540:3:TF$"I NEED YOUR RESPONSE TO SEVEN SHORT QUESTIONS. MOST OF THE ANSWERS ARE SOMEWHERE IN THAT PRINTER MANUAL. LET'S SEE IF WE CAN FIND THEM.":600:<TF$"FIRST, I NEED TO KNOW WHICH SLOT YOUR PRINTER CARD IS PLUGGED INTO. USU39:MC40:::6TF$"ALL IS NOT LOST. AS LONG AS YOUR PRINTER HAS BOTH EXPANDED AND CONDENSED CHARACTERS, WE CAN GET IT TO WORK WITH THESE PROGRAMS. PLEASE GO GET YOUR PRINTER MANUAL, AND SPREAD IT OPEN IN YOUR LAP.":600::TF$"I'LL WAIT HERE.NTER VARIABLES"0JD$;"WRITEPRINTER VARIABLES"yT"FP":"LOADHELLO":"POKE3570,15":"UNLOCKHELLO":"SAVEHELLO":"RUN"^D$;"CLOSE"hD$;"EXECPRINTER VARIABLES"0(07):Q$(34)h*** PRINTER VARIABLES ***rLF$(10):FF$(12):CR$(13)W |ARTUP"!D$;"READLOGO.STARTUP"uIA,B1$:IA,B2$:IA,AL$:IA,ST$:IA,CZ$:IA,NA$:IA,TI$:IA,CS$:IA,FA$:IA,TL$"D$;"CLOSE":+CIVILIZED WAY BACK INTO PROGRAMS,D$;"OPENPRINTER VARIABLES"6D$;"DELETEPRINTER VARIABLES"@D$;"OPENPRI11);"!";CDS24);"!";LF$#P620[Z11);"!";6);:J1(CDS36):(95);::6);"!";LF$zd11);"!";CDS24);"!";LF$n11);"!";6);:J1(CDS36):(95);::6);"!";NM$;REG$;FF$xD$"PR#0": *** LOAD A LOGO FILE ***D$;"OPENLOGO.ST(19):REG$(18):EM$(14):NM$(20):CDS$(15):REG79:CDS132:EM39/ +Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(18)":Z5$":EM$=CHR$(14)":Z6$":NM$=CHR$(20)":Z7$":CDS$=CHR$(15)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"A0+ZX$"390 XX$=CH.LINE5150,5190,5230,5260,5290,5320,5050:8000>.k FORMATING DISPLAY INFO\.l (FM$)27ĺ(FM$);")":.v "27)+CHR$ (";((FM$,1));")":. .'APPLE .'13000 .)C. ITOH .)13000 .*EPSON .*520:10:50405/+SP$(17):DS$00-:"PRINTER SLOT = ";SL:32,0M-23:5:"WANT TO CHANGE ANY OF THESE? (Y/N) ";:300Z-YES60-23:5:868:"WHICH LINE NUMBER? ";:LINE$:LINE$:LINE(LINE$)-(LINE$)13Ģ((37)2):8100-(LINE$)55(LINE$)49Ģ((37)1):8100" CHR$(";:8300::FM$DS$:"DESELECT PRINTER:":" CHR$(";:8300:,|FM$REG$:"REGULAR 10 CPI:":" CHR$(";:8300::FM$EM$:"EXPANDED ON:":" CHR$(";:8300:,FM$NM$:"EXPANDED OFF:":" CHR$(";:8300::FM$CDS$:"CONDENSED PRINT:":" CHR$(";:83PRESS : ";:V((37)):IA,IN:IN$(IN):IN0ĢV:7000+:"SHOULD THIS ONE BE PRECEDED BY AN":" CHARACTER (ASCII # 27)? (Y/N) ";:300:++@:48,32:K041:4,6K::2::K17:6:K:::::32,83,r2:FM$SP$:"SELECT PRINTER:":"ZZ$:ZX$:"UNLOCK ORDER ENVELOPE":"SAVE ORDER ENVELOPE"*"LOAD IV":ZZ$:ZX$:"60 GOTO 200:REMUSED TO BE GOTO 700":"UNLOCK IV":"SAVE IV":"DELETE PRINTER QUESTIONS":"RUN"*D$;"CLOSE"*-+X14:"ENTER THE DECIMAL ASCII NUMBER,":"AND THEN D$;"OPENPRINTER VARIABLES"-)zD$;"DELETEPRINTER VARIABLES"M)D$;"OPENPRINTER VARIABLES"n)D$;"WRITEPRINTER VARIABLES")"FP":"LOAD DISK LABEL PRINTER":ZZ$:ZX$:"UNLOCK DISK LABEL PRINTER":"SAVE DISK LABEL PRINTER"**"LOAD ORDER ENVELOPE":OT THIS DISK. IF YOU EVER CHANGE PRINTERS, YOU'LL NEED TO COPY THE ORIGINAL AGAIN.":600(A(0):ZZ$"380 "Z1$Z2$Z3$Z4$Z5$Z6$Z7$X1$X2$X3$(6000(23:34,22:(D$;"EXEC PRINTER VARIABLES"((oBUILD EXEC FILE FOR CHANGES )pPERMANENT PART OF THIS DISK? (Y/N) ";:300:YES5350'z:10:"NOW INSTALLING PRINTER VARIABLES, AND GETTING READY TO TURN MYSELF OFF."::J(|TF$"WHEN YOU GIVE COPIES OF THESE PROGRAMS TO SOMEONE ELSE, PLEASE MAKE SURE THEY ARE FROM THE ORIGINAL, N2$":CDS="(CDS):CDS9ĢV2:958:5440&^:"NOW THE NUMBER OF CHARACTERS ON A FULL EXPANDED, DOUBLE-WIDTH LINE, AND THEN ";:V((37)):IA,EM:X3$":EM="(EM1):EM9Ģ2:958:5470&'w540::10:"READY FOR ME TO MAKE YOUR CHOICE A A REGULAR 10-PER-INCH PICA LINE, AND TAP. ";:V((37)):IA,REG:X1$":REG="(REG2):REG9ĢV2:958:5410%@:"PLEASE ENTER THE NUMBER OF CHARACTERS ON A FULL CONDENSED LINE, AND TAP ";:V((37)):IA,CDS:CDS132CDS132&JXKAY SO FAR, I NEED ONE LAST CHECK TO BUTTON THINGS UP. PLEASE TAKE THE TIME TO COUNT THE NUMBER OF CHARACTERS ON A FULL LINE IN EACH SIZE. HINT: IT'S EASY IF YOU JUST MARK-OFF EVERY TENTH "Q$"I."Q$:600d%":"PLEASE ENTER THE NUMBER OF CHARACTERS ONETTERS ...":EM$;:K150:"I";::NM$;REG$;DS$#:D$"PR#0":520:6:TF$"THANK YOU. I HOPE IT WORKED! IF IT DIDN'T, PLEASE REFER TO THE MANUAL WHERE WE LIST VARIABLES THAT YOU (OR ANY BASIC PROGRAMMER) CAN HACK INTO SHAPE.":600:$TF$"IF WE'RE O-LINE. I WILL PRINT THREE TEST LINES, AND ASK YOU TO COUNT THEM OUT FOR ME.":600:800"D$;"PR#";SL:SP$;REG$;NM$;"THIS IS 10 C.P.I., NORMAL":K195:"I";:::"AND WITH CONDENSED LETTERS ...":CDS$;:K1150:"I";: #:REG$;"AND WITH EXPANDED LRINTERS, 16.5 C-P-I ON OTHERS).":600!7000:CDS$((IN$)):Z7$":CDS$=CHR$("IN$")":YESZ7$":CDS$=CHR$(27)+CHR$("IN$")":CDS$(27)CDS$!!8000I"520:10:TF$"GOOD. NOW LET'S SEE IF IT WORKS. PLEASE TURN YOUR PRINTER ON, AND PUT IT ON$((IN$)):Z6$":NM$=CHR$("IN$")":YESZ6$":NM$=CHR$(27)+CHR$("IN$")":NM$(27)NM$P !540::TF$"NOT MUCH LONGER, WE'RE ALMOST DONE! WHAT'S THE CHARACTER NUMBER THAT SELECTS THE MOST CONDENSED MODE OF PRINT (17 CHARACTERS PER INCH ON SOME PIN MENU "BR$t TM7$"PACKAGE LABEL "BR$:M8$"BUSINESS-SIZE ENVELOPE "BR$:M9$"MAILING "Q$"STICKERS"Q$" "BR$ g*** PRINTER AND ANTI-SPLIT-WORD VARIABLES *** hLF$(10):FF$(12):CR$(13) rSW39:NC39:MC40 z N {堢ᢠ箍䮠󍠠 ӬԠšɠšҠ򮍠􍠠䬠占Ͽ䍠ĬϠӠӍ뮠󍠠荠ŭԭŠɢᠢТ䍠笠宍ﬠ֮֮Ůծբ:G$(07):Q$(34) @BR$(91)" "(93):M1$"A PRINTOUT OF THIS "H$BR$:M2$"TO SEE ANOTHER "H$BR$:M3$"RETURN TO "H$" MENU "BR$ JD$(4)::D$;"NOMONICO":FILE$"STARTUP":M4$"PREPARE A NEW "H$BR$:M5$"REVIEW AN OLD "H$BR$:M6$"RETURN TO MAON ROUTINE ***T9PSL2:SP$(27)(17):DP$(19):REG$(27)(29):EM$(01):NM$(02):CDS$(31):Z9. ,YES0:YES$:((YES$,1)"N"(YES$,1)"n")330:((YES$,1)"Y"(YES$,1)"y")340:300 JYES$: TYES1:YES$:  *** WHIRLING CURSOR":EM$=CHR$(14)":Z6$":NM$=CHR$(20)":Z7$":CDS$=CHR$(15)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"84ZX$"390 XX$=CHR$(27)+CHR$(53)+CHR$(27)+CHR$(70)+CHR$(27)+CHR$(72)+CHR$(24):REMTURN OFF NASTIES"845495 86:"DROP THROUGH!":8OF *** CORRECTI)+CHR$(27)+CHR$(54):REM TURN OFF NASTIES."'735495 A74STAR MICRONICS 10X T74520:10:504074SP$(17):DS$(19):REG$(18):EM$(14):NM$(20):CDS$(15):REG79:CDS132:EM39S84Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(18)":Z5$(30):CDS$(29):REG79:CDS132:EM3963Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(30)":Z5$":EM$=CHR$(31)":Z6$":NM$=CHR$(30)":Z7$":CDS$=CHR$(29)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"73ZX$"390 XX$=CHR$(27)+CHR$(48)+CHR$(27)+CHR$(73(27)+CHR$(81)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"52ZX$"390 XX$=CHR$(27)+CHR$(78)+CHR$(27)+CHR$(34):REM TURN OFF PROPORTIONAL AND BOLDFACE."525495 53OKIDATA 92,93,84 53520:10:504063SP$(17):DS$(19):REG$(30):EM$(31):NM$ 8023A 42520:10:5040o42SP$(17):DS$(19):REG$(27)(78):EM$(14):NM$(15):CDS$(27)(81):REG79:CDS132:EM39)52Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(27)+CHR$(78)":Z5$":EM$=CHR$(14)":Z6$":NM$=CHR$(15)":Z7$":CDS$=CHR$":EM$=CHR$(27)+CHR$(78)":Z6$":NM$=CHR$(27)+CHR$(79)":Z7$":CDS$=CHR$(27)+CHR$(95)":X1$":REG=79":X2$":CDS=130":X3$":EM=39"30ZX$"390 XX$=CHR$(27)+CHR$(86)+CHR$(27)+CHR$(65)+CHR$(44)+CHR$(48)+CHR$(44)+CHR$(48):REM TURN OFF NASTIES305495 32NEC 460/PRISM 2.11500 20MPI PRINTMATE 320520:10:504020SP$(17):DS$(19):REG$(27)(84):EM$(27)(78):NM$(27)(79):CDS$(27)(95):REG79:CDS132:EM39n30Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(27)+CHR$(84)":Z5$$(19)":Z4$":REG$=CHR$(29)":Z5$":EM$=CHR$(01)":Z6$":NM$=CHR$(02)":Z7$":CDS$=CHR$(31)":X1$":REG=79":X2$":CDS=132":X3$":EM=44"1 -ZX$"390 XX$=CHR$(06)+CHR$(05)+CHR$(02):REM TURN OFF PROPORTIONAL, RIGHT JUSTIFCATION AND GRAPHICS."1-5495 1.IDSR$(27)+CHR$(02)+CHR$(27)+CHR$(70)+CHR$(27)+CHR$(72)+CHR$(24):REMTURN OFF NASTIESM0 +5495 a0,IDS 440, 445 t0,520:10:50400,SP$(17):DS$(19):REG$(29):EM$(01):NM$(02):CDS$(31):REG79:CDS132:EM44s1-Z2$":SP$=CHR$(17)":Z3$":DS$=CHR忍렭􍠠宠嬠嬠䬠占宠䬠䮍占󠠠嬠к䍠占򮍍덠謠󍠠󍠠堭獠򮠠좠󍠠箠䬢堨򩬠쮍к򍠠荠占򮠠䬠占𮠠򍠠ᠢ썠렭፠󮠠荠堢碠뮠宠宍𬍠덠󮠠Ӡįō嬠 =48,160:K3001:0,47K:::48,32:K034:16,37K:nV10:V:X27:5(29(MM$(X)))::MM$(X):WN$(1)"MAIN PROGRAM MENU "BR$5(29(WN$(1))):WN$(1):X910:5(29(MM$(X))):MM$(X)::'7:17:"OTHER FORMS OPTIONS":21:"A$" ";:216,0:*(N$(27))1000:1020A*** ONERR FIX ***^A2872028729:C:A,C: 104,168,104,166,223,154,72,152,72,96*** "CALL 28720" TO INVOKE ***2 YOUR NAME TO":"BE PRINTED ON THE LABELS,":"AND TAP ."! 32,NAME$"":X:Y1)#40:28720X:NAME$;::" ";::" ";:16384,128:16368,0:N$((16384)):(N$" ")1030:((NAME$)Y)1020:NAME$NAME$N$:1020N$(8)NAME$""Ĵ((NAME$)1)1000:NAME$(NAME$,(NAME$)1):1020N$(13)ĖX:NAME\* ,H $ hɛ`hhhhL<>  ,     hhߚHH`0:33,40:17:2:"-->";32);(91) (216,0:17:X5:Y31:1000:19:5:"SPELLING AND EVERYTHING OKAY?"::20:"(";Q$;"Y";Q$;" TO ACCEPT) ";:A$:A$ 2A$"Y"A$"y"70 <19:958:30 F150:48,32:J030:4,6J::32,5:33,31:12::"1":"2":"3": TLINES 510 & 520 SHOULD BE CHANGED FROM "SPC(8)" TO "SPC(9)" FOR IDS PRINTERS.x (4)"BLOADCATPATCH":370:4070::48,32:J030:4,6J::32,8:33,31:7:"PLEASE ENTER YOUR NAME TO":"BE PRINTED ON THE LABELS,":"AND TAP ."! 32,  !!!        󍠠嬠荠宠宠􍠠Ӡ󍠠栳򍠠堨占󩮍𬍠􍠠占碠婠宍򮍠ξ堍󮍍宠к獠占נϠŠΠō፠堨占󩬠占婬捠砢占󮠠占Š̠͍󠭭쬍Ġ󍠠ᠢ䬢򍠠讠퍠占占宠ǠŠŠŠӠŠ򬍠Ьˬ͠٩󮍍占󮍍占䬠䮍ˠԠҠӬ퍠宍ԠǠҠǠĠ󬠠嬠Ǡﮠ庍䬠􍠠󮠠𮍍捠󍠠庠Š፠NY KEY TO MOVE, TO ACCEPT":V9RTAB32::V:TAB:" ":VV1:V19V10sV:TAB:"!":400:480:4060V:TAB:" "::H16700,2300,8000,12000,8100,10000,2000,2200,2400:4000? *** LETTERHEAD ***@H$"LETTERHEAD":1200|H8070, - +PRINT SIX LABELS ,150:15:"PLEASE MAKE SURE YOUR PRINTER IS ON, AND SET AT THE TOP OF A PAGE. 623:14:"... TAP ANY KEY WHEN READY.";:23:12:A$:A$:, @D$"PR#";SL:SP$;I$;LF$;LF$;REG$;7);"Got your trusty singlݍ穮䠢֢򍠠뮠􍠠ӍͤΠƠŠȠӍ̠ԠҠҠҠȠҠƠӠөŠΠȠŠǠҠƠӠΠҠӠҍȩŬӠō͠ҠƠӠΠŭȠōͤΠΠŭȠȠҤҤŠΠҤӤԠĠӠōǤԠ̠ӠҠȩӠҠƠӠΠĠŬӠύӍŠӠԠĠӍƤĠŠĠҤФԠҠҤӤԠҠҤƤ͠Ġ宍򺍍ɤ̾ɬˢ̾ɬ΢Ϡ宍󍠠Ԡ荠󠠠客卌󮠠󬍠堢ҠӢ󍠠𮍍к󍠠򍠠堼þ򍠠宠嬠堼̾󍠠ѬξŠȠԠӍ󮠠쬠󍠠󮠠󠶰򍠠Π𮍍笠􍠠󍠠󮍍ŭԭŠҍ TO TOP WIPE# RUN MAIN PROGRAMSR 150:14:" JUST A MOMENT, PLEASE."e D$;"RUN BOOT"k u QUIT 150:14:"DO YOU REALLY WANT TO QUIT NOW? (Y/N) ";:A$:A$ A$"Y"A$"y"280 70 ::14:18:"BYE!":J1500::: *_ P32,8:12:"PRINT SIX DISK LABELS":"RUN D-I-Y BUSINESS PAPERS":"QUIT AND EXIT TO BASIC" Z32,0:33,40:18:9:"PLEASE CHOOSE A NUMBER":18:6:A$ d(A$)49(A$)5190 nA$:A(A$):A300,200,250 48,160:J4701:0,39J:::BOTTOMILEM9::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8:ER0:25009FI$"":"WHICH INVOICE DO YOU NEED TO REVIEW? ENTER JUST THE NAME, PLEASE -- I WILL ADD THE ";Q$;"INV.";Q$;" AND ";Q$;".U";Q$;" PREFIX AND":"SUFFIX: ";:100:FI$IN$ :8FL330600I8ER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:NJ:ER6160`82700:216,0:60008ER0āN1NJ:W$(N):J$(N):CO$(N):UN$(N):T$(N):RA$(N):TT(N):N:A:R$:PU$:ER6190861508.D$"CLOSE";FILE$:9 *** READ & VIEW INVOICE F".U":(7"ARE YOU SURE? (Y/N) ";:30077YES6000G76060:6140h7FILE$"INV."FILE$".U":FL17ER0ĺD$"OPEN";FILE$:608072700:216,0:61107D$"DELETE";FILE$7D$"OPEN";FILE$7D$;"WRITE";FILE$:7FL160008FL220600 򮠠󍠠嬠쮍§笠箠宬ﬠ̠占嬠뮠占䬠䍠䠤ﺠҬ㮍쬠ɠ占졠졍Ӎ󺠠䍠ͩ䍠󍠠򮠠𡩍孍˭򮠠􍠠󮍠砭嬠捠ĭɭ٠󍠠􍠠獠嬠ؠ󠮮򍠠嬠ᠠ䮠΢嬠򍠠򍠠宍ĠŠӍ䢠占묠䬠ˠ̠Ң쮠󍠠堢䮍䠨ͤ占宠፠ͤԮ󍠠庍ˠ֠ξŠ֠ξРӠĠȍ梠䠢