' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0((*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  ψ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# 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 WITHx0PRINTER QUESTIONS 42(4)"BLOADCATPATCH"><3000HP1000m+ *** BULLETPROOF GET (Y/N) ***,YES0:YES$:((YES$,1)"N"(YES$,1)"n")330:((YES$,1)"Y"(YES$,1)"y")340:300JYES$: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$):(37)((37)0):958:5ALL-PURPOSE MENU/SUBMENUIA(0):49168,0:48,160:K039:0,47K::48,32:K3931:16,32K:$BR$(91)" "(93):ME$(3)BR$" PRINT "H$" IN MEMORY":ME$(2)BR$" LOAD AN OLD "H$r8ME$(1)BR$" START A NEW "TF$(Y$,J11):700:J10TF$(Y$,J1)/ 630= LM:TF$;O (TF$)MCĺ\ TF$"":s WAIT FOR KEYPRESS 23:16:"...ANY KEY TO CONTINUE.":H(16384):H128800 *16368,0:H155ġ:10 4 QRETURNS CURSOR TO PREVIOUS POSITIONR %ABOVE LINE DRAWS BOTTOM? WANTI-SPLITWORD WORD ROUTINEU XNC0NCSW:MC40n bMCNCMCMC40:610 lLM((MCNC)2)1 v(TF$,1)" "TF$(TF$,2):630 (TF$)NC700 Y$TF$ J1NC101:(Y$,J1,1)" "680 :J1NC1& 16368,0:H141H(V9)::4080& 8 BASIC WINDOWX ::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:::X(20(IS$)2):23:(X):IS$;:35,21::qLLLL& 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(C$):255$ V:TAB::(C$,C,1)N H(16384):H128CC1L(CL):410T o H(16384):H128440 16368,0:H141H(V9)::1160  H(16384):H128470 16368,0:H141H(V9)::1280  H(16384):H128470 URSOR> KK1LL:(95);::(91):1:((37)((LL1)40)):Y +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$"!/-"(92):C1:LL*** FORMS PROGRAM *** Z D$"BLOADCATPATCH":YY8000,8100,9000,10000,12000,16700P48,160:K3901:0,47K:::WIPES SCREEN FROM LEFT TO RIGHTcINPUT ANYTHING ROUTINEdIA,IN$:IN$(17)ġ:10000n DRAWS A LINE/REPOSITIONS C         !                                 "2,47K:::X(20(IS$)2):23:(X):IS$;:35,21::J WANTI-SPLIT WORDS` XNC0NCSW:MC40y bMCNCMCMC40:610 lLM((MCNC)2)1 v(TF$,1)" "TF$(TF$,2):630 (TF$)NC700 Y$TF$ J1NC101:(Y$,J1,1)" "680 :J) H(16384):H128CC1L(CL):410/ J H(16384):H128440o 16368,0:H141H(V9)::1160u  BASIC WINDOW ::48,32:K039:0,7K: :(39((B1$))):2:B1$:(39((B2$))):B2$:2:2:H$:34,4:4 48,32:K039:4   1:((37)((LL1)40)):4 +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$"!/-"(92):C1:L(C$):255 V:TAB::(C$,C,1)L$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  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <  䬠捠宍堤󍠠򍠠󮍍󺠠占쬠쬠덠嬠占ЮϮ謠̠嬠ҠĠŮ嬠󍠠썠宍ﬠ宠󍠠::12:"I CAN'T SEE. DO I NEED TO START A NEW PAGE ON THE PRINTER? (Y/N) ";:300aeYESıeD$;"PR#";SL:I$:SP$;FF$;DS$::D$"PR#0"::E dIA,IN$:IN$(17)ġ:1600 n DRAWS A LINE/REPOSITIONS CURSOR KK1LL:(95);::(91):0:MM$(X)MM$(X)" "BR$:l%vBFIRST TIME THROUGH ONLYh:17:22:" PRINTER SETUP. ":D$;"BLOAD CHAIN,A520"520"PRINTER QUESTIONS"IZE VARIABLES  (IA2179:N30:W$(N),J$(N),CO$(N),UN$(N),T$(N),T(N),RA$(N),R$(N)RENT BUSINESS NAME, WRITE/EXAMINE PURCHASE ORDER, WRITE/EXAMINE INVOICE, PRINT LETTERHEAD, PRINT BUSINESS CARDSX PRINT MISCELLANEOUS FORMS, PRINT LABELS/ENVELOPES/ETC, PRINT USER'S MANUAL, LINE-AT-A-TIME TYPEWRITER, QUIT AND EXIT TO BASICbX01K:: 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$):       E:","MAIN ADDRESS LINE:","STREET ADDRESS:" 0 "CITY, STATE, ZIP:","INDIVIDUAL'S NAME:","TITLE:","FULL ADDRESS:","BUSINESS DESCRIPTION:","TELEPHONE #:" : *** MAIN MENU ITEMS *** DMM$(11):X010:MM$(X):oNENTER NEW BUSINESS NAME, LOAD DIFFEPRINT ADDRESS LINEIS^D$;"PR#";SL:I$;SP$:AL$:REG$;DS$:D$;"PR#0":oSASK ABOUT TOP OF PAGE ON PRINTERS::12:"I CAN'T SEE. DO I NEED TO START A NEW PAGE ON THE PRINTER? (Y/N) ";:300SYESıTD$;"PR#";SL:I$:SP$;FF$;DS$:D$"PR#0"RI1NH:EM$;H$:GRI16:LF$::X(EM(B1$)):Y(EM(B2$)):EM$sRI1NH:EM$;EM(B1$));B1$::LF$;EM$RI1NH:EM$;EM(B2$));B2$::LF$;NM$;CDS$RI1NH:J1CDS:"H";:::RI1NH:J1CDS:"O";::::LF$;DS$::D$;"PR#0"ST#Q_MISCELLANEOUS PRINTER ROUTINESdQ`CDS$:I1NH:J1CDS:(173);::::REG$:: LONG LINEQjCDS$:I1NH:95):J136:(173);::::REG$:: SHORT LINEQHEADER PRINTING ROUTINEQD$;"PR#";SL:I$;VO$;SP$;REG$;LF$:H$""60320ԠՠōЮϮؠȬ̠ŠōҠҍŠҠҠΠȠԠՠŠŠڢӬƠҠЮϮؠȬ̠ЮϮؠȬ̠ŠڢӍƠҍŠҠҠΠȠ 嬠󍠠ˠ󮠠占󍠠뮍𠭭󍠠󬍠占ΠźI1PG500:17000:34,12:N1ePG17050:IS$"PRESS FOR NEXT ITEM ":540:K$:K$:K(K$)PGK32NN1:N(NJ1)18370PG18340PG::"TOTAL: $";TT$::TF$"REMARK: "R$:600:IS$"THAT'S ALL. ANY KEY FOR THE MENU. ":540:K$:K$:16700$:100:SA$IN$:100:Z$IN$O|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$:OG100:DL$IN$:100:SI$IN$:100:DT$IN$:100:TT(IN$):100:TT$IN$:100:R$IN$PGD$;"CLOSE":F SEE?":"P.O.";:100:FI$IN$>N,GFI$"C"FI$"c"İ3000:18200ON6GFI$""1000dN@GFILE$"P.O."FI$NJGER0ĺD$"VERIFY";FILE$:18270NTG2600:216,0:18200N^GD$;"OPEN";FILE$NhGD$;"READ";FILE$OrG100:DP$IN$:100:PO$IN$:100:TA$IN$:100:CC$INF2700:216,0:167001MFD$"CLOSE";FILE$:16700SMG * LOAD P.O. FILE & VIEW ITMG::18:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;". TO GO":"BACK TO MENU, TAP RETURN WITH NO ENTRY.)":8:ER0:2500N"GFI$"":"WHICH PURCHASE ORDER DO YOU WANT TO18000LxFD$;"DELETE";FILE$1LFD$;"OPEN";FILE$GLFD$;"WRITE";FILE$yLFER0ĺDP$:PO$:TA$:CC$:SA$:Z$:NJ:18090LF18105LFER0āN1NJ:DE$(N):Q$(N):PR$(N):TP(N):TP$(N)::18100LF18105LFER0ĺDL$:SI$:DT$:TT:TT$:R$:18110MFILE$"P.O."FI$:FI$"C"FI$"c"İ3000KdF:"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$""18000KnFER0ĺD$"OPEN ";FILE$:18040LsF2700:216,0:0":&JNFPURCHASE ORDER FILE HANDLING8JOF * SAVE P.O.JPFFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:" JUST A MINUTE, PLEASE FOR THE MENU.":4000JUFER0:2500JZF8:"FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;" ..."'K_F UNABLE TO MEET THIS DEADLINE.)":LF$;LF$;LF$;REG$bIDLL$"":I1NH:1);"AUTHORIZED BY: ";LL$:IDCDS$:27);:J183:(95);::LF$::D$;"PR#0":IDD$;"PR#";SL:I$;REG$:R$""ī17640IDLF$;NM$;REG$:I1NH:16);R$:IDFF$;DS$JDD$;"PR# THIS PURCHASE ORDER:";:32((TT$)));"$ ";TT$::LF$;LF$gHfDI1NH:2);"INSTRUCTIONS: ";SI$::LF$HpDI1NH:6);"DELIVERY: VIA ";DL$::LF$HDI1NH:1);"DATE REQUIRED: ";DT$::LF$:NM$;CDS$2ID28);"(PLEASE NOTIFY US IMMEDIATELY IF YOU ARE::17410G DD$;"PR#0":+G)DFEED A FORMEG*DD$;"PR#";SL:I$:SP$G4DFF$:PP1:I1NH:5);CC$;" PURCHASE ORDER, PAGE ";P::LF$,LF$,LF$:DS$G>DD$;"PR#0":G[D * BOTTOM OF P. O.G\DD$;"PR#";SL:I$:SP$;LF$:HaD60010:LF$:I1NH:16);"TOTAL450FDD$;"PR#";SL:I$:SP$RFDREG$:I1NH:3);"DESCRIPTION: ";DE$(N)::LF$FDJREG44((Q$(N)))((PR$(N)))((TP$(N))) G DI1NH:6);"QUANTITY: ";Q$(N);" @ $";PR$(N);" PER UNIT, TOTAL: ";:K1J:".";::" $ ";TP$(N)::LF$;LF$:PR1NNJĂNDP$::LF$1ECI1NH:8);"NUMBER: ";PO$::LF$?ECNM$;CDS$EC28);"(THIS ORDER NUMBER MUST APPEAR ON ALL CORRESPONDENCE, INVOICES, PACKAGES, ETC.)":LF$;LF$;LF$:DS$ECD$;"PR#0":EC * PRINT ITEM(S) INFOECPR1āN1NJ1FCPR1N8İ17DaC * PRINT VENDOR INFORMATIONNDbCD$"PR#";SL:I$;SP$;REG$;NM$;LF$;LF$;LF$:rDlCI1NH:12);"TO: ";TA$::LF$DvCI1NH:16);CC$::LF$DCI1NH:16);SA$::LF$DCI1NH:16);Z$::LF$;LF$;LF$DC60000:LF$;LF$ ECI1NH:10);"DATE: ";(39(DP$)):DP$:(39(PO$)):PO$:TA$:CC$:SA$:Z$:I140:"-";::hCBDISPLAY INDIVIDUAL ITEM(S)CB:TF$"DESCRIPTION: "DE$(N):600:"QUANTITY: ";Q(N):"UNIT PRICE: ";PR(N):"TOTAL: ";TP$(N):C/CPRINTOUTC0C60550:60300:: *TOP OF FORMR#0":16550B;A P.O. SUBMENULB?17400:TTTTTP(N):PUTT:1400:TT$PU$>?:IS$"DO YOU HAVE ANOTHER ITEM TO ADD? (Y/N)":540:300>?YES16400>?16210?@INPUT DELIVERY INFORMATION & AUTHORIZA:100:IN$""İ850:16280=?((IN$,1))44((IN$,1))57((IN$,1))47IN$"":850:"NUMBERS ONLY, PLEASE.";:KK11000::850:16280=?ITEM$(K)IN$:K3::1500:K1:DE$(N)ITEM$(K):KK1:Q$(N)ITEM$(K):KK1:PR$(N)ITEM$(K)Q>?Q(N)(Q$(N)):PR(N)M$(K)IN$:KK1:958:] TO RETURN TO P.O. MENU":540u;Q?INPUT ITEM(S) TO BE ORDERED;R?K1:NN1:N8İ17450;W?17000:34,12;\?23:"THIS IS ITEM # ";N"AT WHAT STREET ADDRESS?":200:100:ITEM$(K)IN$:KK1: ?"CITY, STATE AND ZIP, PLEASE":200:100:ITEM$(K)IN$:?:1500; ?K1:DP$ITEM$(K):KK1:PO$ITEM$(K):KK1:TA$ITEM$(K):KK1:CC$ITEM$(K):KK1:SA$ITEM$(K):100:ITEM$(K)IN$:KK1X9>"WHAT PURCHASE ORDER NUMBER?":200:100:ITEM$(K)IN$:KK19>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?"LE MORE? (Y/N) ";:300%8*0YES12000/8404000C8>PURCHASE ORDERI8>:T8>172008>:N0:P1:TT0:PR0:IS$"ENTER TO RETURN TO P.O. MENU ":500:5408>INPUT VENDOR INFORMATION9>:K1:LL20:"WHAT DATE GOES ON THIS PURCHASE ORDER?":200NH:EM$;DC((B2$)));B2$::LF$;NM$;CDS$P7/I1NH:72);:J154:"H";:::|7/I1NH:72);:J154:"O";::::LF$7/72);CS$:LF$:72);FA$:LF$:72);TL$:LF$;LF$:CDS1);(95):7 0REG$;FF$;DS$8%0D$;"PR#0"::8:"WOULD YOU LIKE A COUP!6X/D$;"PR#";SL:I$;SP$;NM$;CDS$46]/I115:LF$:I6b/NA$"*"NA$" "]6l/TI$"*"TI$""6/(95);CDS2);(95):LF$;LF$:72);NA$:LF$6/72);TI$;:I14:LF$::DC(CDS2)3: FOR IDS SET DC=706/I1NH:EM$;DC((B1$)));B1$::LF$)7/I120:LF$:11220:LF$;LF$:85+LF$;LF$:11220:LF$;LF$:N5+11220:LF$;LF$:x5+EM$;V1$;3);V1$:EM$;V2$;3);V2$::5.BUSINESS CARD/NOTE5.60550::12:"NOW PRINTING TWO BUSINESS CARDS."5&/12120:LF$;LF$:I1CDS:(95);::LF$:12125:12320EM$;" SPECIAL HANDLING";5);"SPECIAL HANDLING"::11190y4p+I1NH:EM$;" PRIORITY MAIL!";7);"PRIORITY MAIL!"::112004z+REG$;NM$;FF$;DS$4+D$;"PR#0"4+:10:"WOULD YOU LIKE ANOTHER SET? (Y/N) ";:3004+YES109104+100005+LF$;LF$:112LASS MAIL";4);"FOURTH CLASS MAIL"::LF$g3H+I1NH:EM$;" PARCEL POST";10);"PARCEL POST"::111903R+I1NH:EM$;"AIR MAIL AIR MAIL";4);"AIR MAIL AIR MAIL"::111903\+I1NH:EM$;" SPECIAL DELIVERY";5);"SPECIAL DELIVERY"::1119074f+I1NH: !";12);"! RIGHT !"::LF$[2 +I1NH:EM$;" THIS SIDE UP!";8);"THIS SIDE UP!"::111902*+I1NH:EM$;" FIRST CLASS MAIL";5);"FIRST CLASS MAIL"::1119024+I1NH:EM$;" THIRD CLASS MAIL";5);"THIRD CLASS MAIL"::11190)3>+I1NH:EM$;"FOURTH COM";9);"PROTECT FROM"::LF$e1*I1NH:EM$;"ELECTRONIC FIELDS!";3);"ELECTRONIC FIELDS!"::111901+I1NH:EM$;4);"!! OOPS !!";11);"!! OOPS !!"::LF$1 +I1NH:EM$;" OTHER SIDE UP!";7);"OTHER SIDE UP!"::111902+I1NH:EM$;" ! RIGHT>>>>>>>"$0*I$;SP$;REG$;EM$:11210f0*I1NH:EM$;3);"!! FRAGILE !!";8);"!! FRAGILE !!"::111900*I1NH:EM$;"MAGNETIC MATERIAL";4);"MAGNETIC MATERIAL"::LF$0*I1NH:EM$;4);"ENCLOSED";13);"ENCLOSED"::LF$1*I1NH:EM$;" PROTECT FR;"TO: ";NM$;TA$::LF$:SHOULD BE SPC( 20) FOR IDSi/b*I1NH:46);CC$::LF$:I1NH:46);SA$::LF$/v*I1NH:46);Z$::LF$;FF$;DS$:D$;"PR#0":10000/*REM MAILING STICKERS/*60550::D$"PR#";SL0*V1$"<<<<<<<<<<<<<<<<<<":V2$">>>>>>>>>>>*LL31:"STREET ADDRESS":200:100:ITEM$(K)IN$::KK1{.*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$3/N*I1NH:EM$;18)::LF$;CDS$--)I1NH:J1CDS:"H";:::N-)I1NH:J1CDS:"O";:::u-)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$::KK17.;FF$:D$;"PR#0":10200$,5)ENVELOPE/,6)60550P,h)D$"PR#";SL:I$;SP$;NM$;CDS$b,|)I19:LF$:{,)(95);CDS2);(95),)EM$;REG$;LF$;LF$;LF$,)I1NH:EM$;B1$::LF$,)I1NH:EM$;B2$::LF$,)NM$;REG$:I1NH:ST$::LF$ -)I1NH:CZ$:+(I15:LF$::60000W+(D$;"PR#0":"WANT TO PRINT ANOTHER LABEL? (Y/N) ";:300f+(YES10200q+(10000+):"THIS PAGE HOLDS ONLY THREE (3) LABELS.":" WOULD YOU LIKE TO PRINT MORE? (Y/N) ";:300+)YES10000+)C0,")D$;"PR#";SL:SP$$"*Z(I1NH:32);CZ$::LF$;LF$I*d(I1NH:10);:J158:"H";:::*n(I1NH:10);:J158:"O";::::LF$;LF$;REG$;EM$*(I1NH:EM$;11);"TO:";NM$;4);TA$::LF$*(I1NH:32);CC$::LF$*(I1NH:32);SA$::LF$+(I1NH:32);Z$KK1:SA$ITEM$(K):KK1:Z$ITEM$(K)M)((D$"PR#";SL:I$;SP$;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$::LF200:100:ITEM$(K)IN$:KK1T('LL30:"COMPANY NAME":200:100:ITEM$(K)IN$::KK1((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):84):H128100608'V'16368,0:H141H(V2)6::10090>'`'w'j'V:TAB:" "::H10150,10550,10910,9000,4000:10000''PACKAGE LABELS''C0:60550''D$;"PR#"SL:CC1:C3ī10500:DS$('D$;"PR#0":K1::LL30:"(OPTIONAL) TO THE ATTENTION OF":ING ";Q$;"STICKERS";Q$:]&'17:BR$;" MEMO/REPLY FORMS"::17:BR$;" OTHER FORMS OPTIONS":&$'9:16:"ANY KEY TO MOVE --":16:" TO ACCEPT.":V12:TAB18:&.'V:TAB:" ":VV2:V24V14&8'V:TAB:"!":400:10060:10030&B''L'H(1631NH:70);:J162:"O";::::9360:E%$NM$;CDS$:66)"!":LF$:k%' * MAILING LABELS SUBROUTINE *%'MAILING LABELS MENU%'49168,0:80:48,32:K47221:15,39K:&'14:17::BR$;" PACKAGE LABEL"::17:BR$;" ENVELOPE"::17:BR$;" MAILORM ON THIS PAGE? (Y/N) ";:300-$,$YES9050B$6$D$;"PR#0":4000y$J$D$;"PR#0":"DO YOU NEED MORE MEMOS? (Y/N) ";:300$T$YES9000$^$4000$h$I1NH:J162:"H";:::$r$I1NH:70);:J162:"H";:::$|$I1NH:J162:"O";:::'%$I##9320:"PLEASE JOT YOUR RESPONSE AND RETURN TO ME AS SOON AS POSSIBLE";REG$;:EM$;">";:REG$;NM$##42);"TO: ";NA$:LF$:47);ST$;LF$:47);CZ$;LF$##NA$B1$" "B2$NA$"*"#$CDS$;LF$;LF$:C12ĺFF$:9290#$60000$"$D$;"PR#0":"ANOTHER F16);"REPLY"::9360M"#7);"TO: "N1$:9360:9320:NA$"*"NA$B1$" "B2$"#7);"FROM THE COMPUTER OF ... ";NA$;":";43(NA$)):"FROM ... ";N1$:I1NH:9360::C0"#C0"#CC1:J162:"-";::8);:J162:"-";::9360:9360"#C9ī9150c!'#MEMO/REPLY ROUTINE&!(#C10:60550j!Z#:LL30:"TO WHOM ARE YOU SENDING THIS MEMO?":200:100:N1$IN$z!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";ER!"0LF$:I1NH:27);:J175:"H";:::W&I1NH:27);:J175:"O";:::0LF$:J1NH:27);"THIS ";Q$;"TRY BEFORE YOU BUY";Q$" COPY, COURTESY OF ";NAME$::720XCDS$;LF$;23);"+";81);"+";LF$:BULLETPROOF INPUTNYSTEM SOFTWARE"XJ1NH: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 PAP1):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-SFF$;NM$;REG$ hD$;"PR#0":70Bq*** 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$(0r without pain:";LF$XTLF$;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::edged razor blade or utility knife handy?"y 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 papeDING 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:"LOA;SL:I$;SP$;LF$;LF$;LF$;DS$::D$;"PR#0"W N ::12:"WANT ANOTHER FORM? (Y/N) ";:300 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 8270ARACTERS AND SPACES).":600:0 32,5::"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#"1200& H8220,2200,4000,2400:8200 :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 CHLETTERHEAD&@H$"LETTERHEAD":1200G|H8070,2200,4000,2400:8000_H$"":60550:60300D$;"PR#";SL:SP$;I$;LF$;LF$;LF$;DS$D$;"PR#0":4000D$;"PR#";SL:SP$;FF$;DS$:D$;"PR#0": MISC. FORMS ::H$"MISCELLANEOUS FORM":򍠠嬠䍠宠썠宍堯젢䮍嬍));B2$::LF$;NM$;CDS$7dI1NH:J1CDS:"H";:::ndI1NH: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 ***UeM$(X))):MM$(X)::d7:17:"OTHER FORMS OPTIONS":21:"ANY KEY TO MOVE, TO ACCEPT":V9TAB32::V:TAB:" ":VV1:V19V10V:TAB:"!":400:480:4060V:TAB:" "::H16700,2300,8000,12000,8100,10000,2000,2200,2400:4000 ?0525:30520:30530:3020:30000Fc *** HEADER PRINTING ROUTINE ***ucD$;"PR#";SL:I$;SP$;REG$;LF$:H$""60320cI1NH:EM$;H$::FLĺLF$:I1NH:EM$;H2$:cI15:LF$:cI1NH:EM$;EM(B1$));B1$::LF$;EM$dI1NH:EM$;EM(B2$y500::5700:MC39:NC38+b"yNNJİ30500ib,yNNJĹ34,10:::"THAT'S ALL OF THE ITEMS.":3020:31060b6y22:" PRESS ANY KEY FOR NEXT JOB.":" -Q FOR INVOICE MENU. ";:K$:K$:K(K$)b@yK1730000bJyNN1:31010cTy::30510:3$:IA,TP$:IA,CC$:IA,SA$:IA,Z$:IA,TA$}axIA,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,0:N1ay ** VIEW ITEM INVOICE **bTHE ";Q$;"INV.";Q$;" AND ";Q$;".I";Q$;" PREFIX AND":"SUFFIX: ";:100:FI$IN$p`nxFI$"C"FI$"c"İ3000:30810`xxFILE$"INV."FI$".I"`xER0ĺD$"VERIFY ";FILE$:30870`x2600:216,0:30800`xD$"OPEN";FILE$`xD$"READ";FILE$(axIA,N$:IA,DA0720_w2700:216,0:306004_xD$;"CLOSE";FILE$:P_Ox * LOAD ITEM INVOICE *_Px::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8_ZxER0:2500N`dxFI$"":"WHICH INVOICE DO YOU NEED TO REVIEW? ENTER JUST THE NAME, PLEASE -- I WILL ADD LE$"INV."FILE$".I":FL3:60700^wER0:2500j^wER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:NJ:ER30700u^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$:ER3NTER A FILENAME FOR THIS INVOICE, 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 ^wFI"SHIPPING CHARGES: ";SC$:V\BwNC39:MC40::TF$"SHIPPED VIA "SH$" ON "SD$:600:t\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.":30000q]w:"PLEASE ESD$::FF$;DS$::D$;"PR#0":7[#w * SCREEN 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::95);"SHIPPING CHARGES:";15((SC$)));"$ ";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":[wD$"PR#";SL:I$;SP$;REG$;LF$;LF$:ZZ1NH:5);"SHIPPED VIA "SH$" ON ":D$;"PR#0":vYvD$;"PR#";SL:I$;SP$;CDS$;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":EZ wD$;"PR#";SL:I$;SP$;CDS$;LF$N):600:I$:PR1NNJĂN:30425AXvDS$:D$"PR#0":NC39:MC39:XvD$;"PR#";SL:I$;SP$;LF$:5650:CDS$;LF$::95);"SUBTOTAL:";23((SB$)));"$ ";SB$:DS$::D$;"PR#0": YvTX$"N/C"ĺ:D$;"PR#";SL:I$;SP$;CDS$;LF$:95);"SALES TAX:";21);"N/C":DS$:F$;DS$::D$;"PR#0":)WvPR1āN1NJ1WvD$;"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$ XvD$"PR#0"::D$"PR#";SL:SP$;VO$;:NC60:MC116:TF$DE$('VvPR1İ5000:5050:DS$:D$;"PR#0":VvD$;"PR#";SL:I$;SP$;LF$:5600:CDS$:LF$:2);"QUANTITY";5);"QUANTITY";74);"UNIT":LF$:2);"ORDERED";6);"SHIPPED";6);Wv"STOCK NUMBER / DESCRIPTION";42);"PRICE";9);"UNIT";9);"AMOUNT":LF$:5600:LF$;L) ";:300!UvYESİ30600:30370JUvPR1:(N$,5)"-COPY"N$N$"-COPY"Uv30400:30410:30420:30440:30450:30470:30480:30490:30330Uv::8:"WOULD YOU LIKE TO START ANOTHER INVOICE?(Y/N) ";:300UvYES30000Uv30040Uv * PRINT OUT *LL18::"WHEN DID YOU SHIP THESE ITEM(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$ UzvD$"PR#0":NJN:::8:"WOULD YOU LIKE ANOTHER COPY OF ":"THIS INVOICE? (Y/NIS$"NEED TO ADD SHIPPING CHARGES? (Y/N) ":540:300vS>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:30520=T\v: "Q$"3.25"Q$" OR THIS: "Q$"4.0"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:305104S4v58:IS$"ANOTHER ITEM ON THIS INVOICE? (Y/N) ":540:300FQvYES30100Q vPUA:1400:SB$PU$:30440:IS$"DO YOU NEED TO ADD A SALES TAX? (Y/N) ":540:300QvYESTX$"N/C":PUA:30250R v:LL6:"WHAT PERCENT?"::TF$"YOUR ENTRY SHOULD LOOK LIKE THIS:E$(N)ITEM$(K):KK1:QO$(N)ITEM$(K):KK1:QS$(N)ITEM$(K):KK1:U$(N)ITEM$(K):KK1:UP$(N)ITEM$(K)PuQS(N)(QS$(N)):UP(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)7Qu:9? E.G., 'EACH', 'DOZEN', '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::1500ePuK1:DE THE ITEM YOU'RE SHIPPING.":200:100:ITEM$(K)IN$:KK1:958NuLL10::"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$:KK1~OuLL12:TF$"WHAT UNITS ARE YOU SELLING IN30 CHARACTERS AND SPACES FOR EACH.":600MvuTF$"PLEASE ENTER NUMBERS WITHOUT DOLLAR SIGNS OR COMMAS -- I'LL ADD THOSE.":600:3020Mu * ITEM DATA ENTRY *Mu4250:K1:NN1:34,11::12:20:"THIS IS ITEM # ";N:34,12:NC40:MC40?NuLL230:"DESCRIB* START NEW INVOICE **=LXu4000:::A0:T(N)0:PR0:N0:NR2iLbu5000:500::4080:5050:30410:5700:(Mlu::TF$"THIS INVOICE IS DESIGNED TO USE ONLY ONE PAGE. SO, IT WILL HOLD MORE ITEMS IF YOU KEEP THE DESCRIPTION(S) SHORT. BUT YOU CAN USE UP TO 2***hK0u::12:"ITEMS. I'LL GET THAT MENU FOR YOU ...":NC39:MC39:H$"ITEMS INVOICE":216,0:49168,0rK5u1000K:uH30040,30800,30020,1600,2200,2000,2460KDu1300:PR1:NR2:4000:30400:30410:30420:30440:30450:30470:30480:30490:30000LWu *,SA$:IA,Z$:IA,TA$:IA,CO$:IA,DE$:IA,PU$:IA,R$NJQD$;"CLOSE":FI1:216,0aJR * VIEW IT *JR::500::SW39:NC39:MC40:5700:20510:20520JR:"WANT TO LOAD & VIEW ANOTHER ONE? (Y/N) ";:300JRYES20000J&R20800K/u *** ITEM INVOICE ND ";Q$;".P";Q$;" PREFIX AND":"SUFFIX: ";:100:FI$IN$ZI^QFI$"C"FI$"c"İ3000:20810tIhQFILE$"INV."FI$".P"IrQER0ĺD$;"VERIFY ";FILE$:20870I|Q2600:216,0:20800IQD$"OPEN";FILE$IQD$"READ";FILE$2JQIA,N$:IA,DA$:IA,TP$:IA,CC$:IA:300HPYES20000 HP20100>H?Q * READ & DISPLAY FILE *H@Q::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8:ER0:25008IJQFI$"":"WHICH INVOICE DO YOU NEED TO REVIEW? ENTER JUST THE NAME, PLEASE -- I WILL ADD THE ";Q$;"INV.";Q$;" AOU SURE? (Y/N) ";:300&GPYES20600MGPFILE$"INV."FILE$".P":FL2:6070GPER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:CO$:DE$:A$:R$:ER20700GP2700:D$;"CLOSE":216,0:20000GPD$;"CLOSE";FILE$HP::"NEED TO START ANOTHER INVOICE? (Y/N)";HE MENU.":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:2500GPV1:"--> INV.";FILE$;".P"::"ARE YY ON SCREEN *ZEP34,11::"YOUR ORDER #: ";CO$:"PROJECT DESCRIPTION: "::TF$DE$:600:zE(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 T10);"YOUR 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 * DISPLA"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  C$OR$CR$R$""C.O20420PC8O:"NEED ANOTHER COPY OF THIS ONE? (Y/N)";:300`CBOYES20600CLOPR1:(N$,5)"-COPY"N$N$"-COPY"CVO5000:5050:20400:20420:20280CO * PRINT PROJECT INVOICE *.DOSW0:NC50::D$;"PR#";SL:SP$;LF$;LF$;LF$::300BNYES20200cBO35,24:::LL10:"HOW MUCH ARE YOU CHARGING FOR THIS? ":200:100:A$IN$BOPU(A$):1400:A$PU$:20520:20400BOD$"PR#0":34,11::LL63:"ANY REMARK YOU'D LIKE TO INCLUDE? ":CR$:"IF NOT, PRESS RETURN."::200:100:R$IN$3020~AN:::TF$"(INCIDENTALLY, IF YOU NEED MORE THAN 40 WORDS, ENTER A -Q, AND CHOOSE THE MEMO TYPEWRITER.)":600AN3020AN:LL230:34,11:"PLEASE DESCRIBE YOUR PROJECT NOW:":200:100:DE$IN$BN20510::IS$"ARE YOU SURE? (Y/N) ":540 NUMBER (OR 'VERBAL'): ":200:100:CO$IN$:NC39:MC40AN::TF$"I WILL GIVE YOU 230 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 PART.":600:,2460;?4N1300:PR1:4000:5000:5050:20400:20420:20000Y?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:6@NLL30::"CLIENT ORDERz"#   Ӡ̠  ˠ̠ҠҠӠ2ΠȠ  Ӡ̠ŠƠŵ Ŷ ŷ Ÿ Ź  Ӡ_ ϠҠ ҠŠӠa ҠӠ" ٮʰψ ϮР֠ ΠՠŠϠ. Ӡ͠N፠䠢֬ҠӢ占䠢Ϣ䠢Ţ󮠠占뮍ĠŠč󮍍ԠŠٍ謠䠢ҍӢ򮠠􍠠àԧӠԠǍ쬠፠󮠠占뮠占嬠΢讠ͧ占􍠠쮠󠍠􍠠󮠠占򩬠嬠󬍠䮠򮍌ĠԠōESS PAPERS. I HOPE WE'RE MAKING MONEY.":600:5j I ONERR ROUTINESc 850:EC(222):ER1:|' 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.":600x2 D CHAIN, A520"5:12:9:"JUST A MOMENT, PLEASE."O520"MEMO TYPEWRITER"gCHAIN TO INVOICES :12:9:"JUST A MOMENT, PLEASE." D$;"BLOAD CHAIN, A520":520"INVOICES"_ QUIT FOR NOW/` ::(15):TF$"THANKS FOR USING THE D.I.Y. BUSIN:"OLD LINE = ";ITEM$(LINE)J""CORRECT LINE = ";:100:ITEM$(LINE)IN$V,:1500\6{CHAIN TO D.I.Y. MAIN MENU:12:9:"JUST A MOMENT, PLEASE."D$;"BLOAD CHAIN,A520":520"MAIN MENU"QUIT & CHAIN TO MEMO TYPEWRITERD$;"BLOAPU)"0":1430%PUPU100:PU$(PU)5NL(PU$):ICHANGE ROUTINEOmI1K:I;". ";ITEM$(I)::"ANY CHANGES? (Y/N) ";:300YES1590:"WHICH LINE NUMBER? ";:V(37):LINE$:LINE$:LINE(LINE$)LINEKĢV:958:1540EY...";:K$:K$::15:9);"JUST A MOMEMT, PLEASE.":16700O;FLAG-TEST GOSUB`<FIġ:1300fFwPRINT USING FORMATTERxPU100(PU.005):PU(PU):(PU(PU100)100)0PUPU100:PU$(PU)".00":1430 (PU(PU10)10)0PUPU100:PU$(AB:"!":400:470:1260,V:TAB:" "::LFLAG FOR NO FILE IN MEMORY:10:TF$"YOU DON'T HAVE A "H$" FILE IN MEMORY RIGHT NOW. I'LL RETURN YOU TO THE "H$" MENU SO YOU CAN LOAD THE ONE YOU WISH TO WORK WITH TODAY.":600::"PRESS ANY K-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:4:"ANY KEY TO MOVE, TO ACCEPT":V9TAB6::V:TAB:" ":VV1:V14V10V:T16V10)tV:TAB:"!":400:440:1120>V:TAB:" "::dLETTERHEAD & MISC. FORMS SUBMENUxA(0):49168,0:48,160:K039:0,47K::48,32:K3931:16,28K:BR$(91)" "(93)ME$(7)BR$" PRINT A "H$:ME$(8)BR$" LINE-ATH$:ME$(4)BR$" LINE-AT-A-TIME TYPEWRITER":ME$(5)BR$" OTHER FORMS OPTIONS":ME$(6)BR$" QUIT AND EXIT TO BASIC"LV10:V:X16:5::ME$(X):::7:4:H$;" OPTIONS:":18:4:"ANY KEY TO MOVE, TO ACCEPT":V9`TAB6::V:TAB:" ":VV1:V 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 INVOICE LISTING ***f :" FILES LABELED WITH ";Q$;"INV.";Q$;" ARE INVO ** 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.":600  EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOUR DISK IS SICK. I HOPE IT'S THEOOPS. I CAN'T FIND THAT FILE. PLEASE CHECK YOUR SPELLING, AND MAKE SURE THE RIGHT DISK IS IN THE DRIVE.":6002 EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOUR DISK IS SICK. I HOPE IT'S YOUR DRIVE DOOR. PLEASE CHECK.":600< :800:: ANT 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 ROUTINES *** 850:EC(222):ER1:' ** LOAD ERROR MESSAGES **m( EC6ĺ:TF$"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 YOU ...":2000y AS$"2"1600~ AS$"3"2470 2400) :12:"DO YOU REALLY W"::D$;"BLOAD CHAIN,A520":520"MAIN MENU":2600:2000`*** CHAIN TO MEMO TYPEWRITER ***pER0:2500D$;"BLOAD CHAIN, A520":520"MEMO TYPEWRITER"2600:2200_ *** QUIT FOR NOW ***h` 50:48,32:K024:22,32K:::13:" BACK BILLS "Q$"PROFESSIONAL"Q$" HOURS OR UNITS BY THE JOB, AND THE THIRD LETS YOU ENTER A DETAILED DESCRIPTION OF A SINGLE PROJECT.":600: *** CHAIN TO S.B.H. MAIN MENU ***ER0:2500*ER0ė:12:"JUST A MINUTE, PLEASE, FOR THE MAIN MENUH141H((V2)7)::1690 RV:TAB:" "::H30000,4800,20000,2400:1600t ** EXPLAIN INVOICE FORMS **1:TF$"PLEASE CHOOSE WHICH INVOICE FORM YOU WANT. THE FIRST BILLS PHYSICAL ITEMS COMPLETE WITH SALES TAX.":600:TF$"THE SECOND;" HOURS/UNITS"::18:BR$;" PROJECT"::18:BR$;" QUIT":T11:16:"ANY KEY TO MOVE --":16:" TO ACCEPT.":1700:V14:TAB19^:V:TAB:" ":VV2:V24V16hV:TAB:"!":400:1660:1630r|H(16384):H128166016368,0:LINEKĢV1:15405:"OLD LINE = ";ITEM$(LINE)b""CORRECT LINE = ";:100:ITEM$(LINE)IN$n,:1500t6? *** SELECT WHICH KIND OF INVOICE ***@216,0:49168,0:::50:48,32:K47261:15,32K::J16:18::BR$;" ITEMS"::18:BR$0PUPU100:PU$(PU)"0":14307PUPU100:PU$(PU)GNL(PU$):d *** CHANGE ROUTINE ***k::I1K:I;". ";ITEM$(I)::"ANY CHANGES? (Y/N) ";:300YES1590:"WHICH LINE NUMBER? ";:V(37):LINE$:LINE$:LINE(LINE$)MENU SO YOU CAN SELECT THE TYPE YOU WISH TO WORK WITH TODAY.":600f2:"PRESS ANY KEY... ";:K$:K$p<1600vFwPRINT USINGxPU0ı}PU100(PU.005):PU(PU):(PU(PU100)100)0PUPU100:PU$(PU)".00":1430(PU(PU10)10)TAB:" ":VV1:V17V10:tV:TAB:"!":400:440:1120OV:TAB:" "::oFLAG FOR NO FILE IN MEMORYFIġ:13201350B(NC39:MC40::10:TF$"YOU DON'T HAVE AN INVOICE FILE IN MEMORY RIGHT NOW. I'LL RETURN YOU TO THE FIRST INVOICE ANGE TYPE OF INVOICE FORM":ME$(5)BR$" RUN MEMO TYPEWRITER":ME$(6)BR$" RETURN TO MAIN MENU":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:ALL-PURPOSE MENU/SUBMENU6 49168,0:MM(0):216,0s :48,160:K039:0,47K::48,32:K3931:16,34K: $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$" CH1NC11 TF$(Y$,J11):700:J10TF$(Y$,J1): 630H LM:TF$;Z (TF$)MCĺg TF$"":~ WAIT FOR KEYPRESS 23:16:"...ANY KEY TO CONTINUE.":H(16384):H128800 *16368,0:H155ġ:1000 4 >(37)((37)0):958: VOICE #: ";N$::LF$;LF$T+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 *** PRINT INDIVIDUAL JOB(S),P2200,2000,2460G*1300:PR1:4000:5000:5050:5200:5500:5550:4800[* PRINT INVOICEk* HARD COPY*60550:60300:: HEADER SECTION* *** PRINT CLIENT INFO.*D$;"PR#";SL:I$;SP$;LF$;LF$+I1NH:55);DA$::LF$:I1NH:55);"IN THAN ONE, I'LL ADD AN ";Q$;"S";Q$;")."::200:100:ITEM$(K)IN$:UN$IN$:KK1:j) ** INVOICE SUB-MENU)::12:TF$"UNITS. I'LL GET THAT MENU FOR YOU ... ":600:F$"INV.":H$"UNITS INVOICE":NR2)216,0:49168,0:1000*H4040,6300,4830,1600,50:5200:5500:5550:4560]( ::8:"WOULD YOU LIKE TO START ANOTHER INVOICE?(Y/N) ";:300l(YES4800v( 4040([ *** GET UNIT OF BILLING ***P)\LL12:"PLEASE ENTER YOUR NEW UNIT OF BILLING. MAKE IT A SINGULAR WORD, PLEASE (IF I DETECT MOREUDE? ":CR$:"IF NOT, PRESS RETURN."::200:100:R$IN$I'R$CR$R$""X'5550:DS$'D$"PR#0":NJN:::8:"WOULD YOU LIKE ANOTHER COPY OF ":"THIS INVOICE? (Y/N) ";:300'YESİ6000:4620'PR1:(N$,5)"-COPY"N$N$"-COPY"(5000:50RA$(N)ITEM$(K)1&T(N)(T$(N)):RA(N)(RA$(N))E&:5200:AATT(N)&D34,11::958:IS$"ANOTHER JOB ON THIS INVOICE? (Y/N) ":540:300&XYESC74260&lYESC1104280&v55007'DS$:D$"PR#0":34,12::LL63:"ANY REMARK YOU'D LIKE TO INCL((RA$(N),1))44((RA$(N),1))57((RA$(N),1))47İ830:"NUMBERS ONLY, PLEASE.":ZZ11000::830:4340%ITEM$(K)RA$(N)::K6:1500&K1:W$(N)ITEM$(K):KK1:J$(N)ITEM$(K):KK1:CO$(N)ITEM$(K):KK1:UN$(N)ITEM$(K):KK1:T$(N)ITEM$(K):KK1:";: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):KK1$"AT WHAT UNIT RATE? ";:100:RA$(N)IN$:RA$(N)""İ830:KK1:4340l%ETURN> IF NONE): ":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/N)":600:300:YESITEM$(K)"HOUR":KK1:UN$"HOUR":4320#4700,$"HOW MANY ";UN$;"S? ";N:34,12"N74290'"N7:5400j"4250:C1C11:NN1::12:20:"THIS IS JOB # ";N:C110İ5400"K1:LL54:"WORK YOU DID?":200:100:ITEM$(K)IN$:KK1/#LL54::"ON WHAT PROJECT?":200:100:ITEM$(K)IN$:KK1:LL10:"CLIENT ORDER # ? (-Q AND TO QUIT FOR NOW":540: "4250:CC1:NN1:34,11::12:20:"THIS IS JOB # CLIENT COMPANY NAME?":200:100:ITEM$(K)IN$:KK1m T"CLIENT STREET ADDRESS?":200:100:ITEM$(K)IN$:KK1 ^"CLIENT CITY, STATE AND ZIP":200:100:ITEM$(K)IN$:KK1 h"TO THE ATTENTION OF?":200:100:ITEM$(K)IN$ r:1500_!|K1:N$ITEM$(K):LL18:"WHAT DATE ON THE INVOICE ":200:100:ITEM$(K)IN$:KK1NC39:MC40::"WOULD YOU LIKE TO OFFER A 2% DISCOUNT FOR PAYMENT IN TEN DAYS? (Y/N) ";:300YESTP$" DUE ON RECEIPT":4170@TP$" 2% FOR 10 DAYS, NET 30 DAYS."2 JLL35::"00:500TIS$"-Q AND FOR INVOICE MENU":540:PRINT "HEADER" SCREENd4080:4230 *** ENTER CLIENT AND OTHER INFORMATION ***K1::LL10:"WHAT INVOICE NUMBER: ":"I'LL ADD THE NUMBER SIGN (#).":200:100:ITEM$(K)IN$:KK1@BILL?":32,6::"1) INVOICE"::7:"OR"::"2) STATEMENT OF ACCOUNT":dK$:(K$)1(K$)24010(K$)1H$"INVOICE":FL0:4035(K$)2H$"STATEMENT":H2$"OF ACCOUNT":FL132,0:K$:4000:NR2:A0:C0:TT(N)0:C17:P1:N0:PR0:50ICES":" ";Q$;".I";Q$;"=ITEMS, ";Q$;".U";Q$;"=UNITS, ";Q$;".P";Q$;"=PROJECT":ZZ140:"-";::34,3:z D$;"CATALOG": :16:"... ANY KEY TO CONTINUE ";:K$:K$: *** TIME/PROJECT INVOICE ***F:12:"WHICH HEADER DO YOU PREFER ON THIS 占Ϡ򍠠נϠō宍䍠ϮЬ占ﬠ􍠠䮠ᠢ䬠뮠٢򍠠堭占讠占󮍍ŠŮ謠嬠󠭭占宠占ᠠ嬠덠ﮍ墠쮍嬠堨占堢󩮍欍󍠠󮠠󍠠婠墍栱󮠠󍠠𠠠䮍䠨䬠ﬠ堨٧ӠӬō̠Š٬Š̠ˬ穬嬠占䮠占򍠠뮠ҠנӠŢ占󮠠󍠠占䍠ϮТ讠򍠠󮍍宠欠썠Ϡ讍,R$(N),R(N),TT$(N),TT(N),PU(N),PU$(N)A 249168,0:300:500:100J <700 d48,32:K47401:15,33K:::17:22:"BE RIGHT WITH YOU.": n20: D$;"BLOAD CHAIN, A520" 520"MAIN MENU"  ,N(50):I$(9)(75)(9)"132N":VO$(9)"13b(103)1ĺ(4)"BLOADIA":103,(217612):104,(217613):(103)(104)2561,0:(4)"RUNIV"44601,32:44602,0:44603,3 1:1:"VERSION 1.05"INITIALIZE VARIABLES% (IA2179:N30:W$(N),J$(N),CO$(N),UN$(N),T$(N),T(N),RA$(N),RA(N)PR1A0:P1:N1NJ&,QNJ75205@,RPR1N8İ5400:5205U,SPR1N18İ5400,UD$"PR#";SL:I$;SP$;LF$;LF$:CO$(N)""CO$(N)"YOUR ORDER #: "CO$(N)-ZI1NH:9);;W$(N)::LF$:I1NH:9);J$(N)::LF$:CO$(N)""āI1NH:9);CO$(N)::LF$ﬠ䍠󮠠፠嬠占򍌍󮠠Ԡ፠嬠䍠宍ō󺠠Ӡ썠栢쮢ӯӠ󮠠󍠠獠󮠠嬠ᠢЮϮ荠占躍Šҍ퍠򠭭占0"7FILE$"INV."FILE$".U":FL1B7ER0ĺD$"OPEN";FILE$:6080Y72700:216,0:6110o7D$"DELETE";FILE$7D$"OPEN";FILE$7D$;"WRITE";FILE$:7FL160007FL2206007FL3306008ER0ĺN$:DA$:TP$:CC$:SA$:Z$:TA$:NJ:ER6 THIS INVOICE, THEN TAP RETURN (I WILL ADD A PREFIX AND A SUFFIX TO IDENTIFY IT)."::25006z"--> INV.";:V(37):100:FILE$IN$:FILE$""60006(V1):"--> INV.";FILE$;".U":6"ARE YOU SURE? (Y/N) ";:3006YES600076060:614 ";"$ ";PU$:5R$:<5n *** INVOICE DATA FILE HANDLING]5o *** SAVE THE INVOICE FILE5pFILE$"":::8:"WANT TO SAVE A COPY TO DISK? (Y/N) ";:300:YESė:8:"JUST A MOMENT, PLEASE, FOR THE MENU.":4800e6uER0::"PLEASE ENTER A FILENAME FOR INDIVIDUAL JOB INFO94v:TF$W$(N):600:TF$J$(N):6004TF$T$(N)" "UN$(N)"S @ $"RA$(N)" PER "UN$(N)": $"TT$(N):600434,14:4 *** PUT SUBTOTAL, TOTAL, & REMARK ON SCREEN ***4:"SUBTOTAL: ";"$ ";PU$: 5PUA:1400:"TOTAL DUE:NES83CDS$:J1CDS:(173);:::REG$:: LONG LINEw3CDS$:95);:J136:(173);:::REG$:: SHORT LINE3B DISPLAY ON SCREEN3C CLIENT INFO3D:19:DA$:19:"INVOICE #: ";N$:TA$:CC$:SA$:Z$3NI039:"-";::TP$:34,12:4u;SL:I$;SP$;LF$:5650:::PUA:1400a2LF$:I1NH:9);"TOTAL DUE:";:55NL);"$ ";PU$::DS$r2D$;"PR#0":2 *** PRINTS REMARK ***2D$;"PR#";SL:I$;SP$:R$""55702LF$;LF$:I1NH:9);R$:2FF$;DS$2D$;"PR#0":5820:3 LISP$,LF$:C10k1"5650:LF$:TT(N)A:PUTT(N):1400:PU$(N)PU$:I1NH:9);"SUBTOTAL:";:56NL);"$ ";PU$:1,PP1:FF$;LF$;LF$:I1NH:5);CC$;" INVOICE, PAGE ";P::LF$;LF$;LF$;DS$16D$;"PR#0":5800:1{ *** PRINTS TOTAL ***$2|5810:D$"PR#"400PR153300PU(N)TT(N):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" "UN$(N);CR$::I1NH:74NL);"$ ";PU$(N)::PR053400DS$:D$;"PR#0":AATT(N)::PR1NNJĂN:52020DS$:D$;"PR#0":0 PRINTS SUBTOTAL(S) 1D$;"PR#";SL:I$,$(N)PU$:CR$:I1NH:74NL);"$ ";PU$(N)::PR05340K/PR1N7İ5400`/PR1N17İ5400/D$;"PR#";SL:I$;SP$:T(N)153200PU(N)TT(N):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" ";UN$(N)"S";CR$::I1NH:74NL);"$ ";PU$(N)::PR053UN$(N)":":e.PU(N)TT(N):PUPU(N):1400:PU$(N)PU$:CR$:I1NH:74NL);"$ ";PU$(N)::PR05340t.PR15330.PU(N)RA(N):PUPU(N):1400:PU$(N)PU$:I1NH:9);T(N);" ";UN$(N)" @ $ ";PU$(N);" PER "UN$(N)":":7/PU(N)TT(N):PUPU(N):1400:PU-dTT(N)T(N)RA(N):NR2:DS$_-nD$;"PR#0":34,13:IS$"INCLUDE UNIT RATE? (Y/N) ":540:300n-xYES5305-D$;"PR#";SL:I$;SP$-T(N)15290 .PU(N)RA(N):PUPU(N):1400:PU$(N)PU$:I1NH:T(N)1ĺ9);T(N);" ";UN$(N)"S @ $ ";PU$(N);" PER "225EZ1ZZ:V:1:(L$,ZZ1Z,Z);:41Z:(L$,ZZ1,Z);:24::Z120ZZ:V:Z:" ";(L$,ZZ);:41ZZZ:(L$,ZZ);" ";: 255:34,0::*************************: THIS HELLO : 2)Z$Z$" ":ZZ1Y Z10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255:c 34,V ZZ(L$):ZZ2(ZZ2)L$L$" " ZZ(L$)2 160:23 Z1(L$)2:1:(L$,ZZ1Z,1);:40:(L$,ZZZ,1);: 65 Z123VZZ:: 39X,X47X $47X,XX$ .X; 8(16384)136ī32A B L:V8::Z$"COMPUTER EDUCATION CENTRE":1170:V9:Z$"P.O. BOX 209 NTH. CARLTON":1170:V10:Z$"VICTORIA, 3054, AUSTRALIA":1170:? VV15:Z$" DISC PREPARED ":1170:V16:Z$"YOURSELF":"BUSINESS":"PAPERS": 255:32,15:17:"COPYRIGHT 1986 BY":"SOLUTIONS!SOFTWORKS":"ALL RIGHTS RESERVED":32,0 (4);"RUNIV" : " "::49234,0:X039 ((1)16) X,39XX X,47X39X "PROGRAM UPGRADES ,FEES ETC., ":"PLEASE CONTACT " (:" HONOR-SYSTEM SOFTWARE":" P.O. BOX 338A":" MEDINAH, IL 60157" <255:ZZ11500:ZZ:16368,0:" ::48,32:K030:15,33K::32,17::170:11:"DO-IT-": 1000:A Q$(34):255:48,32:K3961:4,11K::32,7:33,34:4:" BUSINESS PAPERS ":" ":32,6:225:8:"FOR THE LATEST INFORMATION ON":"ON THIS 'HONOR-WARE' SOFTWARE,"G"" EC8ĺ:TF$"OOPS. EITHER THE DRIVE DOOR IS OPEN, OR YOUR DISK IS SICK. I HOPE IT'S YOUR DRIVE DOOR. PLEASE CHECK.":600< :800:: SAVE ERROR MESSAGES* EC4ĺ:TF$"OOPS. THIS DISK SEEMS TO BE WRITE-PROTECTED. EITHER INSERT ANOTHER ONE, OR PEE 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     16082700:216,0:6000y8ER0āN1NJ:W$(N):J$(N):CO$(N):UN$(N):T$(N):RA$(N):TT(N):N:A:R$:PU$:ER6190861508.D$"CLOSE";FILE$:8 *** READ & VIEW INVOICE FILE9::22:"(FOR A CATALOG, ENTER JUST A ";Q$;"C";Q$;")":8:ER0ϭԭƠӠӍҧӠ̍ō占宠󍠠䮠                        ! ! ! ! ! !!!!!!!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$)NC7009 Y$TF$_ J1NC111:(Y$,J1,1)" "680m :J1NC1 TF$(Y$,J11):700:J10TF$(Y$,J1) 630 LM:TF$; (TF$)MCĺ TF$"":  *** WAIT FOR KEYPRESS ***. 23:16:"..K4701:0,39K:::BOTTOM TO TOPV 048,160:K3901:0,47K:::RIGHT TO LEFT 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$):255? V:TAB:(C$,C,1)i H(16384):H128CC1L(CL):410o  H(16384):H1281100 16368,0:H141HV6::1100   WIPES 48,160:K047:0,39K:::TOP TO BOTTOM$ 48,160:_ (103)1ĺ(4)"BLOADIA":103,(217612):104,(217613):(103)(104)2561,0:(4)"RUNORDER ENVELOPE" D$"BLOADCATPATCH":350:640 TINITIALIZE VARIABLES ^D$(4):I$(9)(75)(9)"254N":VO$(9)"132N":NH2:G$(07):Q$(34) rLF$       笠󬍠Ԡ􍠠󮍍ˮ󍌍󮠠Ӯ䍠쮍ᠢ̍Ţ亍ҠǠĠǍΠҠӠԍà󩬠占獠堢ΠԍԢ󮍠堢ҠǠĠǢ􍠠䠢ΠҠӠԢ䬍􍠠䮠򍠠ӯӢ宍堢ˠՠĿ宍묍ŠԠſٯΩά򍠠쮍嬠Ӯ占썠嬠Ŭ٬ˬȬŢ宍堭נ٠Ǡӿ򍠠堢ԠԠԠſ占宍䠢ҢӢ占󮍍Š̠ԠӯӢӯӠ占󮠠ᠢ2N":NH2: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$"RETUԍŲŲԍԍ΍N)):IA,TT(N)8; TT$(N)(TT(N))::IA,A:IA,R$:IA,PU$Y;D$"CLOSE";FILE$:FI1:216,0y;c *** REM VIEW INVOICE ***;d500::5700:N1NJ;nNNJĹ34,12::"THIS IS JOB #: "N::34,14:::5750: !";((CDS24)2)18);"You'll be hearing QUIT7:14:"DO YOU REALLY WANT TO QUIT NOW? (Y/N) ";:A$:A$N A$"Y"A$"y"800W670~ ::14:18:"BYE!":J1500:::*:6504CHECK ENVELOPE>D$;"PR#";SL:I$;REG$;EM$;"2.";EM5);"3."CNM$;CDS$;LF$;"Now fold !";CD"/32,0:33,40:18:9:"PLEASE CHOOSE A NUMBER":18:6:A$J(A$)49(A$)51690iA$:A(A$):A810,730,770 RUN MAIN PROGRAMS:14:" JUST A MOMENT, PLEASE."::12:" YOU'RE ONE OF THE GOOD GUYS. THANKS!":1580PRINTER ON, MAKE 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" bD$;"PR#";SL:SP$;I$:S lD$;"PR#0"::"DIG THAT RHYTHM!":"DON'T WORRY, I'M ALMOST DONE!"n vD$;"PR#";SL:SP$;I$: ::14:16::" HOORAY! ":::" ANOTHER HONEST APPLE OWNER!":1530:14:16::" HOORAY! ":O20:"PLEASE TURN YOUR KNOW HOW!" :D$;"PR#";SL:SP$;I$:p 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.D$;"PR#";SL:SP$;I$:B 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(10):FF$(12):CR$(13):IA2179m |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.  D$;"PR#0"::"OH THANKYOU!, THANKYOU! FOR THE ORDER!" LL:(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󮍠占֮բɢᠢТ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ıE 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,4000K ::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 󍠠箠덠謠󍠠쮍к򍠠荠򮠠좠堠䬠占𮠠򍠠ᠢ䬢堨򩬠󠵰፠󮠠荠堢碠뮠占򮠠𬍠썠렭Ӡįō嬠宠宍䮠󍠠 ӬԠšɠš덠󮠠􍠠䬠占Ͽ堢ᢠ箍뮠󍠠荠ŭԭŠҠ򮍠䍠笠宍ﬠ֮֮ŮծբĬϠӠӍuggestions!";CDS24);"! into the";LF$ 600("you'd like !";6);"Suggestions? Problems? ";:J1(CDS60):(95);::6);"! resulting";LF$2"to share. !";CDS24);"! pocket.";LF$<11);"!";6);:J1(CDS36):(95);::6);"!";LF$F11ing !";6);"City, State & Zip ";:J1(CDS54):(95);::6);"! tuck your";LF$p"any prob- !";CDS24);"! check for";LF$ "lems or !";6);"Phone ";:J1(45):(95);::" Printer model ";:J1(CDS102):(95);::6);"! just $30";LF$"sr name ";:J1(CDS46):(95);::6);"! Fold this";LF$Y"fill out !";CDS24);"! flap up on";LF$"this form !";6);"Address ";:J1(CDS44):(95);::6);"! the line";LF$580"completely !";CDS24);"! above, and";LF$A"includ20);"P.O. Box 338A"::LF$:J1NH:EM$;EM20);"Medinah, IL"::LF$kJ1NH:EM$;EM13);"60157"::J14:LF$:t560NM$;REG$;CDS$:J1CDS:(95);::J13:LF$:REG$;EM$;"1.";EM5);"4.";LF$;NM$;CDS$)"Please !";6);"Youd you";LF$`540+j11);"!";CDS24);"! like to";LF$Qo11);"!";CDS24);"! see us";LF$yt11);"!";CDS24);"! publish?";LF$~J1NH:REG$;EM$;EM24);"To: HONOR-SYSTEM"::LF$J1NH:EM$;EM20);"SOFTWARE"::LF$ J1NH:EM$;EM:!$I1NH:15);:J1(CDS31):"H";:::@.11);"!";CDS24);"!";LF$p8"Any !";CDS24);"! What other";LF$B"comments !";CDS24);"! kinds of";LF$L"you'd like !";CDS24);"! programs";LF$V"to make? !";CDS24);"! woulIN$")":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.":600Y7000: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.":600'x7000: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.":600&Z7000:DS$((IN$)):Z3$":DS$=CHR$("IN$")":YESZ3$":DS$THING.":600r27000:SP$((IN$)):Z2$":SP$=CHR$("IN$")":YESZ2$":SP$=CHR$(27)+CHR$("IN$")":SP$(27)SP$x<5F540::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:800|540::TF$"PLEASE GIVE ME THE ASCII NUMBER OF THE CHARACHE ASCII NUMBERS OF YOUR PRINTER'S CONTROL CODES.":600:TF$"PLEASE SEE IF YOU CAN FIND IT, AND THEN WE'LL GO ON.":600:800K540: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:67: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."j600::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:KTF$"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. VARIABLES"JD$;"WRITEPRINTER VARIABLES"hT"FP":"LOADHELLO":"POKE2922,15":"UNLOCKHELLO":"SAVEHELLO":"RUNIV"x^D$;"CLOSE"hD$;"EXECPRINTER VARIABLES"DPRINTER VARIABLES"5)(9)"254N":VO$(9)"132N":NH2:G$(07):Q$(34) rLF$P"D$;"READLOGO.STARTUP"bIA,B1$:IA,B2$:IA,AL$:IA,ST$:IA,CZ$:IA,NA$:IA,TI$:IA,CS$:IA,FA$:IA,TL$t"D$;"CLOSE":+CIVILIZED WAY BACK INTO PROGRAMS,D$;"OPENPRINTER VARIABLES"6D$;"DELETEPRINTER VARIABLES"@D$;"OPENPRINTER);"!";CDS24);"!";LF$P620HZ11);"!";6);:J1(CDS36):(95);::6);"!";LF$gd11);"!";CDS24);"!";LF$n11);"!";6);:J1(CDS36):(95);::6);"!";NM$;REG$;FF$xD$"PR#0": *** LOAD A LOGO FILE ***D$;"OPENLOGO.STARTUSP$(17):DS$(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"^/+Z37)1):8100?-LINE5150,5190,5230,5260,5290,5320,5050:8000[-k FORMATING DISPLAY INFOy-l (FM$)27ĺ(FM$);")":-v "27)+CHR$ (";((FM$,1));")":- -'APPLE -'13000 -)C. ITOH -)13000 -*EPSON -*520:10:5040R.+ CHR$(";:83000,:"PRINTER SLOT = ";SL:32,0h,23:5:"WANT TO CHANGE ANY OF THESE? (Y/N) ";:300w,YES5495,23:5:868:"WHICH LINE NUMBER? ";:LINE$:LINE$:LINE(LINE$),(LINE$)13Ģ((37)2):8100 -(LINE$)55(LINE$)49Ģ((PRINTER:":" 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:":" :"AND THEN PRESS : ";: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,8N+r2:FM$SP$:"SELECT R ENVELOPE":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")H*X14:"ENTER THE DECIMAL ASCII NUMBER,"HANGES&(pD$;"OPENPRINTER VARIABLES"H(zD$;"DELETEPRINTER VARIABLES"h(D$;"OPENPRINTER VARIABLES"(D$;"WRITEPRINTER VARIABLES"("FP":"LOAD DISK LABEL PRINTER":ZZ$:ZX$:"UNLOCK DISK LABEL PRINTER":"SAVE DISK LABEL PRINTER"E)"LOAD ORDE ORIGINAL, NOT 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 COICE A PERMANENT PART OF THIS DISK? (Y/N) ";:300:YES5350&z:10:"NOW INSTALLING PRINTER VARIABLES, AND GETTING READY TO TURN MYSELF OFF."::e'|TF$"WHEN YOU GIVE COPIES OF THESE PROGRAMS TO SOMEONE ELSE, PLEASE MAKE SURE THEY ARE FROM THEDS1325%JX2$":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:5470A&w540::10:"READY FOR ME TO MAKE YOUR CHHARACTERS ONA 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:CDS132C"IF WE'RE OKAY 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$:600$":"PLEASE ENTER THE NUMBER OF CH EXPANDED LETTERS ...":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$-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 ...":(9);"250N";CDS$;:K1150:"I";:;":REG$;"AND WITRINTERS, 16.5 C-P-I ON OTHERS).":600 7000:CDS$((IN$)):Z7$":CDS$=CHR$("IN$")":YESZ7$":CDS$=CHR$(27)+CHR$("IN$")":CDS$(27)CDS$  8000X!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$_% 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 PCIFIC 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.  I110:FH$(I):* & "1ST NAME LINE:","2ND NAME LIN렭􍠠宠嬠嬠𮍍占宠䬠䮍占忍䍠占򮍍䬠󍠠堭獠嬠кRN TO MAIN MENU "BR$| TM7$"PACKAGE LABEL "BR$:M8$"BUSINESS-SIZE ENVELOPE "BR$:M9$"MAILING "Q$"STICKERS"Q$" "BR$ hLF$(10):FF$(12):CR$(13) rSW39:NC39:MC40 z # {NEXT TWO LINES ARE UNIQUE TO SPE *** CORRECTION ROUTINE ***q8PSL2:SP$(27)(17):DP$(19):REG$(27)(29):EM$(01):NM$(02):CDS$(31):w8.FS$:((YES$,1)"N"(YES$,1)"n")330:((YES$,1)"Y"(YES$,1)"y")340:300 JYES$: TYES1:YES$:  *** WHIRLING CURSORCHR$(18)":Z5$":EM$=CHR$(14)":Z6$":NM$=CHR$(20)":Z7$":CDS$=CHR$(15)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"74ZX$"390 XX$=CHR$(27)+CHR$(53)+CHR$(27)+CHR$(70)+CHR$(27)+CHR$(72)+CHR$(24):REMTURN OFF NASTIES"745495 76:"DROP THROUGH!":8OFR$(27)+CHR$(73)+CHR$(27)+CHR$(54):REM TURN OFF NASTIES."D635495 ^64STAR MICRONICS 10X q64520:10:504064SP$(17):DS$(19):REG$(18):EM$(14):NM$(20):CDS$(15):REG79:CDS132:EM39p74Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=M$(31):NM$(30):CDS$(29):REG79:CDS132:EM3953Z2$":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"863ZX$"390 XX$=CHR$(27)+CHR$(48)+CH7$":CDS$=CHR$(27)+CHR$(81)":X1$":REG=79":X2$":CDS=132":X3$":EM=39"42ZX$"390 XX$=CHR$(27)+CHR$(78)+CHR$(27)+CHR$(34):REM TURN OFF PROPORTIONAL AND BOLDFACE."425495 43OKIDATA 92,93,84 43520:10:5040253SP$(17):DS$(19):REG$(30):E495 32NEC 8023A )32520:10:504032SP$(17):DS$(19):REG$(27)(78):EM$(14):NM$(15):CDS$(27)(81):REG79:CDS132:EM39F42Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(27)+CHR$(78)":Z5$":EM$=CHR$(14)":Z6$":NM$=CHR$(15)":ZCHR$(84)":Z5$":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"20ZX$"390 XX$=CHR$(27)+CHR$(86)+CHR$(27)+CHR$(65)+CHR$(44)+CHR$(48)+CHR$(44)+CHR$(48):REM TURN OFF NASTIES305495 1.IDS 460/PRISM (1.11500 =10MPI PRINTMATE P10520:10:504010SP$(17):DS$(19):REG$(27)(84):EM$(27)(78):NM$(27)(79):CDS$(27)(95):REG79:CDS132:EM3920Z2$":SP$=CHR$(17)":Z3$":DS$=CHR$(19)":Z4$":REG$=CHR$(27)+:Z3$":DS$=CHR$(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"0 -ZX$"390 XX$=CHR$(06)+CHR$(05)+CHR$(02):REM TURN OFF PROPORTIONAL, RIGHT JUSTIFCATION AND GRAPHICS."1-5X$"390 XX$=CHR$(27)+CHR$(02)+CHR$(27)+CHR$(70)+CHR$(27)+CHR$(72)+CHR$(24):REMTURN OFF NASTIESj/ +5495 ~/,IDS 440, 445 /,520:10:5040/,SP$(17):DS$(19):REG$(29):EM$(01):NM$(02):CDS$(31):REG79:CDS132:EM440-Z2$":SP$=CHR$(17)"򮍠ξ堍󮍍占נϠŠΠō፠碠婠宍占婬捠砢占宠к獠፠Š̠͍󠭭쬍堨占󩬠獠ᠢ䬢讠󍠠󮠠栠宠ǠŠŠŠӠŠ򬍠Ьˬ͠٩󮍍󍠠Ġ썠󮍍占占占Ӭ덠宍ԠǠҠǠĠ򍠠庍䬍󮠠䬠䮍ˠԠҠ捠󍠠庠Š፠嬠Ǡﮠ􍠠 O SAVE YOUR FILE TO.":600) :800::c INDIVIDUAL B.P. OR INVOICE OR PURCHASE ORDER LISTING ::" LOOK FOR FILES WITH A ";Q$;"P.O.";Q$;" PREFIX. ":34,1:: ER0:2500 ER0ĺD$;"CATALOG":3040 2500:3000 :"ANY KEY TO CONT ";:216,0:((N$(27))1000:1020?*** 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,AME$"":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):1020 N$(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,  !!!        ҠӠҍȩŬӠō͠ҠƠӠΠŭȠōͤΠΠŭȠӍͤΠƠŠȠӍ̠ԠĠӠōǤԠ̠ӠҠȩӠҠƠӠΠĠŬӠύǠҠƠӠΠĠŠĠҤФԠҠҤӤԠҠҤƤ͠ĠҤҤŠΠҤӤ򺍍ɤ̾ɬˢ̾ɬ΢ϠӍŠӠԠĠӍƤ󍠠Ԡ荠宍卌󮠠󬍠宍󍠠𮍍к󍠠客򠠠宠嬠堼̾󍠠ѬξŠȠԠӍ堢ҠӢ󮠠󠶰򍠠ξ򍠠堼þ򍠠􍠠󍠠󮍍ŭԭŠҍ󮠠쬠󍠠荠宠宠􍠠Ӡ󍠠򮠠𮍍笠占󩮍𬍠󍠠嬠􍠠占栳򍠠堨INUE.";:K$:K$ %FORMS MENU=A(0):49168,0::z48,160:K3001:0,47K:::48,32:K034:16,37K:V10:V:X27:5(29(MM$(X)))::MM$(X):WN$(1)"MAIN PROGRAM MENU "BR$5(29(WN$(1))):WN$(1):X910:5(29(M + +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 single-ﬠ̠ō򮠠󍠠嬠쮍§笠箠宬占嬠뮠占䬠䍠󍠠䠤ﺠҬ㮍쬠ɠ占˭򮍍Ӎ󺠠䍠ͩ䍠򍠠孍ĠŠӍ䢠占묠䬠ˠ̠Ң䮠΢嬠쮠󍠠򍠠宍䠨ͤ占宠፠ͤԮξŠ֠ξРӠĠȍ梠䠢䬠堢䮍䠢֢򍠠뮠􍠠󍠠庍ˠ֠ԠҠҠҠȠҠƠӠөŠΠȠŠݍ穮 TO TOP WIPE# RUN MAIN PROGRAMSR 150:14:" JUST A MOMENT, PLEASE."c D$;"RUN IV"i s 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:::BOTTOMLL OVER FROM ":"THE BEGINNING? (Y/N)":3007>'YESıC>$':1600h>N *** SINGLE PROJECT INVOICE ***> N216,0::12:"PROJECT. JUST A MINUTE FOR THAT MENU.":49168,0:H$"PROJECT INVOICE":NR2:NC40:MC40:1000?*NH20100,20800,20020,1600,2200,2000Y/N) ";:300=YES4810d=: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 ***+>'::"WOULD YOU LIKE TO START A JOBS.":6570l<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 (OR ADD) THE REMARK NOW? ( 򮠠󍠠嬠쮍§笠箠宬ﬠ̠占嬠뮠占䬠䍠䠤ﺠҬ㮍쬠ɠ占졠졍Ӎ󺠠䍠ͩ䍠󍠠򮠠𡩍孍˭򮠠􍠠󮍠砭嬠捠ĭɭ٠󍠠􍠠獠嬠ؠ󠮮򍠠嬠ᠠ䮠΢嬠򍠠򍠠宍ĠŠӍ䢠占묠䬠ˠ̠Ң PROGRAMMED 6: FOR THE c:COMPUTER EDUCATION CENTRE : BY: LACHLAN ARNOTT 1989 :************************* "FOR THE C.E.C.":1170:V17:Z$" BY LACHLAN ARNOTT 1989":1170g `:V21:L$"BUSINESS PAPERS":1190:z jZZ11500:ZZ tZ124::ZZ(16336)(16336):ZQ150:: ~:22:"PLEASE WAIT - PROGRAM LOADING"::255  235:Z(Z$):Z2(Z: