' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 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õ`  \ 濭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- ( }  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠ܤˡ4ܤz# u` 3ikm4jln` COPYRIGHT 1982, KELLY W. PUCKETT` 8w<=80>?8<ޅ= < @6`2)+ # ")ɠ ee,,< 5e<e=l<kmajln`hhߚHH`  Lש`,24e48e8ee e e dedhehlelpeptetxex e e  e e ee$ %e%&e& !o|`^ ɮ hhhhL ^ PQ ְL ^ ɰLA٥zHyHvHuHH AL,,_   < 6  "@`afk'ɝ TO\T8> Lލ  lm`iLLOWEMUST BE SMALLER THAN +/- 1000000000UUU;2A`NVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS AРԤҠĔԛàԊҠϠ̀Dz屠ȠԅǁР頠頹ҠťàӀ麱堠砡ź٥࠽̠ZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEIɮ hhhhL APQ ְL8 ɰLA٥zHyHvHuHH AL,Dם鷧θݱٛA 7   e h  u { O % "  }  ` 3 , J , N / ƠåӟĠсŠӊP 0,20 ] x 4 Lw 9η r륢 # 4 x 4 8 09 .-$0 ,  C %0 L:ۥ8C J`ȹC`ȹEC#`99``$٩ix` , I0$%` , I0$L[)? La,$` ,2P],$:ȱ 0 L:ۅѠ,%0C L= A$PHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALLOWEMUST BE SMALLER THAN +/- 10000000002`頩ǐǍƠϩàZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAAL O u { % "  }  ` 3 J , N / ࠠŖ֠𸺠ĐӇ̠̣ӆРŤƅࠠԙàʠȠıؙӠǐ躱RAMMER A POWER- FUL AND FLEXIBLE EXTENSION TO APPLESOFT BASIC."::"ONLY A PORTION OF THE COMMANDS PROVIDED BY SHORTCUTS HAVE BEEN DEMONSTRATED HERE."':XIGITS ARE REQUIRED." 30%N17X,("(DDD) DDD-DDDD"),"PHONE NUMBER: A/C ";X$f10:1300::"THIS TUTORIAL PROGRAM IS NOW ENDED. ITSPURPOSE HAS BEEN TO DEMONSTRATE A FEW OF SHORTCUTS' MAJOR FEATURES.":"SHORTCUTS GIVES THE PROGEATER THAN "(Y)10:120020:"SHORTCUTS ALLOWS THE PROGRAMMER TO DE- FINE FORMATS FOR FIXED DATA TYPES.":"ALL THAT IS NECESSARY IS PROVIDE A 'PIC-TURE' OF THE DESIRED DATA:":1300:05000"THE 'D'S IN THE FORMAT STRING SPECIFY WHERE DR A NUMBER>> ";XY `10:110020:"THIS LOOP USES THE SAME VALIDATION TEST AS THE LAST BUT INCLUDES AN INFORMATIVE ERROR MESSAGE TO BE USED IF THE TEST FAILS:":12001220:0128030X0YX"ENTER A NUMBER>> ";XY,"MUST BE GR͠Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺԯԮĬ˨˨=80>?8<= < @6`2)+ # ")ɠ ee,,< e<e=l< e eee e ee e e  e e zeze% &e&'e' r ikmjln` COPYRIGHT 1982, KELLY W. PUCKETT` 8<< 6  @`afk'ɝ TOT8A L  ikmjln`hhߚHH`  Lש`,eececgeg e  .-$0 , { E a0 6L:ۥ8 J`ȹ`ȹE#```a ɮ hhhhLE ia PQ ְL a ɰLA٥zHyHvHuHH AL,,$C L[)? L,` ,P],:ȱ J0 L:ۅѠ,0 6L= $P 0,0 `   4 EL 9` r륢 # 4  R4 E8 {0,0` ` "  ɮ `X _ ` J LX`  $ [$L  $L  $٩A ix` , IB 0$B %C ` , IB 0B E:"& F:15::"BRUN APPENDER"::23 A΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺǮĬ˨˨  ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺǮĬ˨˨  ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺǮĬ˨˨  ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺǮĬ˨˨  ͠Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺԯԮĬ˨˨  Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺŮĬ˨˨  Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠ͠ŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺŮĬ˨˨  A$:5 A$"><><><><><><><><><><><><><><>":6:6:A$D 20:6:A$d 8:13:"DOS 3.3 IS LOADED" (:9:"TO LOAD SHORTCUTS, TYPE:" 2:16::"RUN LOADER": <:9:"TO APPEND SHORTCUTS TO A":9:"PROGRAM, FIRST, LOAD THE":9:"PROGRAM, THEN TYP afk'ɝ TOT8 L9  ikmjln`hhߚHH`  Lש`, J`ȹD `ȹED #`: : ` `  ɮ hhhh L )B  P Q ְL' ɰLA٥zHyHvHuHH AL,E ,CDE< 6 g q}@` :ȱ 0 L:ۅѠ,& 0D L= $P 0,3 0    4 L 9θ r륢 # 4  4 8 ;0:  @.-$0 ,  ; D  !& 0 L:ۥ8D  `ٰ  `  L`  $ [$L  $L@  $٩ ix` , gI 0$ % ` , gI 0 $ L[)? L,% ` f,3 P],%ܤˡ4ܤz#   "ҠҠׯϠӠ ӺǮĠ     Ҡ%ҠׯϠӠ ӠˠӠˠׯϠӠ  ĠŠ!ҮԠӺŠӺŮĠӺԯԠӺԯԮĠӺǠϠ      Ҡ Ҡ        ENTRIES. THIS LOOP WILL ACCEPT ONLY WHOLE NUMBERS FROM 1 TO 100:":10001010:01080h30:#(4)r(0)"ENTER A NUMBER>> ";X0X10010:1000820:"THESE STATEMENTS REQUIRE EACH NUMBER ENTERED TO BE GREATER THAN THE PREVIOUS E":0980ju:900:14:"THE QUESTION:":"NAME A PRESIDENT OF THE UNITED STATES DURING THE CIVIL WAR!"rz30"YOUR ANSWER>> ";X$"LINCOLN"X$"GRANT","SORRY, TRY AGAIN"10:900Y20:"VALIDATION CRITERIA CAN ALSO BE USED WITH NUMERIC800:14:"HERE IS THE QUESTION:":"NAME A PRESIDENT OF THE UNITED STATES DURING THE CIVIL WAR!"i30 "YOUR ANSWER>> ";X$"LINCOLN"X$"GRANT"*10:800 p20:"SAME QUESTION, BUT A BIT FRIENDLIER ERROR MESSAGE IS SUPPLIED BY THE PROGRAMCURACY.":078030$,(3)@"ENTER A NUMBER>> ";XM10:700 20:"SOMETIMES, ONLY A SPECIFIC GROUP OR RANGE OF RESPONSES IS VALID. SHORTCUTS ALLOWS THE PROGRAMMER TO DEFINE CRITERIAWHICH MUST BE MET BY THE INPUT.":0880a:30:#(15)X/b"ENTER AMOUNT>> $ ";X<l10:60020:"IN THIS SERIES:":700710:"COMPLEX CALCULATIONS ARE SUPPORTED.":"FOR EXAMPLE, 'SQR(63)' AND 'TAN(3)' ARE VALID. THE RESULT IS ROUNDED AND DIS- PLAYED TO 3 DECIMAL PLACES OF AC0D20:"ALLOWING CALCULATIONS AT INPUT TIME IS SIMPLE:":600610:"LINE 600 INSTRUCTS SHORTCUTS TO ACCEPT SIMPLE ARITHMETIC EXPRESSIONS.":0680I:"YOUR ENTRY MAY INCLUDE ANY OF THE ARITH-METIC OPERATORS: + - * / AS WELL AS PARENTHESES" N ENTRIES. LINE 500 SETS TWO DECIMAL PLA-CES, AND RIGHT JUSTIFICATION.":500:0580"LINE 510 GETS THE INPUT":510:"TRY ENTERING NUMBERS WITH MORE THAN TWO DIGITS AFTER THE DECIMAL POINT."30(2),#"ENTER AMOUNT>> $ ";X10:5000l|20:"NOW LET'S CHANGE SOME THINGS. WE'LL":"SET THE DISPLAY FOR RIGHT JUSTIFICATION:";:400:0480"AND ENTER SOME MORE STRINGS":41030$"ENTER A STRING>> ";X$10:400T20:"SHORTCUTS SUPPORTS FIXED DECIMAL PLACE OR APPLESOFT."!30:#,0280="ENTER A NUMBER>> ";XJ10:20020:"THIS IS A SIMPLE INPUT FOR THE INTEGER":"VARIABLE, X%":300:"TRY ENTRIES WHICH CANNOT BE VALID INTE-":"GERS.""30:0380,#,"ENTER A NUMBER>> ";X%610:3EYBOARD LOCKS.":"PRESS THE SPACE BAR TO CONTINUE."; V30U Z0180,("Z"),$(22)r d"ENTER A STRING>> ";X$ x10:10020:"THIS IS A SIMPLE NUMERIC INPUT FOR THE":"REAL VARIABLE, X:":200:"AGAIN, TRY ENTRIES WHICH WOULD CAUSE":"PROBLEMS F:"THIS IS A SIMPLE STRING INPUT":100 R"(TRY ENTERING COMMAS, CONTROL CHARAC-":"TERS, OR ANYTHING YOU THINK SHOULD":"CAUSE A PROGRAM CRASH)"3 T:"WHEN AN INPUT ERROR IS DISCOVERED, AN":"ERROR MESSAGE IS DISPLAYED, A BEEP":"IS SOUNDED, AND THE KOU MAY EXIT THIS PROGRAM BY ENTERING":"A 'CONTROL E' DURING ANY LOOP"z 2::"HIT ANY KEY TO START THE DEMONSTRATION " 7X$:34,1: <18:"----------------------------------------" FN16:"ER",110000,2,,$,#,#(11),$(20),(9),& P20 TO WHICH"} /"YOU ARE RESPONDING WILL BE LISTED IN":"THE UPPER PART OF THE SCREEN AND EXEC-":"UTED IN THE LOWER PART.": 0"EACH LOOP WILL BE EXECUTED UNTIL YOU HITTHE ESCAPE KEY WHICH WILL CAUSE THE PRO-GRAM TO ADVANCE TO THE NEXT LOOP."F 1:"Y1):# (::16);"SAMPLER";17): -:"THIS IS A PROGRAM DESIGNED TO":"DEMONSTRATE SOME OF SHORTCUTS'":"MAJOR COMMANDS AND CAPABILITIES" .:"THE PROGRAM CONSISTS OF A NUMBER OF":"PROGRAM LOOPS CONTAINING SHORTCUTS":"COMMANDS. THE STATEMENT(S)#?(((256(176))(175))208):((256(104))(103)4),178G40k (37),1):N)::(37)22Ģ19q3:34,2:35,17:: :35,24:34,18::23:"----------------------------------------":"USE TO ADVANCE E TO END",19,             LQ$ lƸ {,2䝰 ! h"L# r ᭸ȥLQ$ + h" $,2 { ( , "Lީ ! $L#,p % # c $ r륝 ϭ2F $,,'0 ' ( /( J /( ($P ``` $ $0$eȹD :5L%  !88, %%$0 $ ;LL 02 /(,0, J /(, $γ ( /( &", ' 9 Q(,0,p 0 ) 1",P ڹ ɠ2 "2`D*L=ۺ<`؍ghgh`hgؠ`څuۅv< h"$EɅ  !L# L$" { =۩; ޥ$$)2 &",'0 ' ( ߅ʹȘ ʹL `Lhh $0$0_   ꥢ; / 9 r # U,; L+` '2 D* J ', { L!GȱȄ e * 8D*LIiJ J : = '` - w0`ij8`,D*P X#8"P JLX Lh HHȹHLk :uȱve L`` ʎD*L L&`L$Pi(W` $ #$pL `& L  { ^i@` L$Pi( dvɮLɰ  g RPmQv`,L ,L ,L ?,L ?,L L L $pL 卄`, L `N` - " }L$L",'''W` ީ, a'$0' L 0ND*G'$0'$P`L'  { D*#mD*J^ʈ 'L" O`5 ZHhL ۩ L ^ '0̘ L EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALLOWEMUST BE SMALLER THAN +/- 10000000002``L" L`,%0 H HLhh ɒ堠ŰZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: +/- 10 ^ 37TH POWEINVALID ٛ  v, @ ru_ | !>8  ԥŠ谠҅𱠠ǟӠӱΰ à F SHORTCUTS' MAJOR FEATURES.":"SHORTCUTS GIVES THE PROGRAMMER A POWER- FUL AND FLEXIBLE EXTENSION TO APPLESOFT BASIC."::"ONLY A PORTION OF THE COMMANDS PROVIDED BY SHORTCUTS HAVE BEEN DEMONSTRATED HERE."':ם鷧θݯ05000R"THE 'D'S IN THE FORMAT STRING SPECIFY WHERE DIGITS ARE REQUIRED."Z 30cN17,("(DDD) DDD-DDDD"),"PHONE NUMBER: A/C ";X$10:1300::"THIS TUTORIAL PROGRAM IS NOW ENDED. ITSPURPOSE HAS BEEN TO DEMONSTRATE A FEW O30 X0YXO"ENTER A NUMBER>> ";XY,"MUST BE GREATER THAN "(Y)]10:120020:"SHORTCUTS ALLOWS THE PROGRAMMER TO DE- FINE FORMATS FOR FIXED DATA TYPES.":"ALL THAT IS NECESSARY IS PROVIDE A 'PIC-TURE' OF THE DESIRED DATA:":1300:NTRY:":11001120:01180"B30*GX02LYXPV"ENTER A NUMBER>> ";XY^`10:110020:"THIS LOOP USES THE SAME VALIDATION TEST AS THE LAST BUT INCLUDES AN INFORMATIVE ERROR MESSAGE TO BE USED IF THE TEST FAILS:":12001220:01280(e:" SHORTCUTS BY KELLY PUCKETT COPYRIGHT 1983, PENGUIN SOFTWARE"22:" A LICENSE IS REQUIRED FOR USE IN OTHER PRODUCTS FOR SALE, BUT NO FEE IS CHARGED"; A$"<> <>" N620:N:5:&ix` , 'I'0$'%(` , 'I'0'$(L[)? LQ(,` $,P],:ȱ '0 L:ۅѠ,0 )L= 1"$P 0,0 M!E%` /( Y'L&8%`ɰ8F`,pɫɨ ɯ ɫɭ` ',0` ` Y'"  'ɮ C'`=D` ' L'`  $ [$L  $L'  $٩G& ,LK%D5ɬɢ)ɮ!ɠ  ' 'нL&Nα.L' )L' ʆ,p n'L&, , ',0 ,0'$ H$hɈɕ (0II@)ߝɍL%, hhL$,0,  LWHȱh L% `P   `i0L  % 4` H ( ! ,(h n'L& ,,,,LK%ɠ )Ly% ,pj C',Q,0,0,B0ɮ,0,)ɠ%, 9',Г ' Y'L%,pLD FOUND!! HIT ANY KEY TO CONTINUE. ";CH$:: END OF FILE. NO MATCH FOUND!q': EXIT TO BASICPD$;RC:LN$:LN$TR$ī8040+^RCRC1:8020h1000:RD$;RC:2000:CL$:23,1),,(1),,"M)ODIFY C)ONTINUE E)ND SEARCH>> ";CH$"M"CH$"C"CH$"E"rCH$"C"ī8030|CH$"M"į,42110:6010CH$"E"ı[CL$:768:22,12),,,(1),,"NO RECOR:1000:xz2000:23,1),,(1),,"DO YOU WISH TO SAVE THIS RECORD? ";CH$"Y"CH$"N","A SIMPLE Y OR N WILL SUFFICE"CH$"Y"İ3000@ SEARCH FOR RECORD SUBROUTINEE21,1),,,(20),"ENTER LAST NAME>> ";TR$JRC1:8090TOP$:R15,7):"<2> RETRIEVE AN OLD RECORD"19,7),,,,(0),,(1),"WHAT IS YOUR CHOICE>> ";CH1CH2,"LIMIT CHOICE TO THOSE ON MENU!"""CH1ī4130RCTC1:6000:CH$"Y"TCTC1:OP$:WR$;0:TC:CL$4000"8000:4000 pRCTC1ILE AND RETURN MAIN MENUI:"(USE E TO EXIT TO BASIC)"l6,10):"*******************"7,10):"** ADDRESS BOOK **"8,10):"** MENU **"9,10):"*******************"13,7):"<1> CREATE A NEW RECORD"& ENTRY COMPLETE, Q INACTIVEP SUBROUTINE TO WRITE DATA TO RANDOM FILE OP$:WR$;RC: OPEN DATA FILE, GET SET TO WRITE TO RECORD NUMBER RC LN$:FM$:MN$:AD$:CT$:ST$:ZP$:HP$:WP$:NT$: WRITE DATA TO FILE CL$:: CLOSE F0),(29),12030,("B"),AD$: ,10,7),(20)12040,CT$] ,10,34),("LL"),12050,ST$ ,12,6),("DDDDD"),12060,ZP$ ,14,14),12070,(PH$),HP$ *,16,14),12080,(PH$),WP$ 4,18,8),(153),("X"),12090,NT$" >465535::1):"ZIP:"% 814,1):"HOME PHONE:"@ B16,1):"WORK PHONE:"V L18,1):"NOTES:"\ V  DATA INPUT SUBROUTINE. USED WITH KEYBOARD OR DISK ENTRY ,4,12),(20),LN$ ,6,8),(12),12010,FM$ ,6,27),12020,(12),,MN$ ,8,1L$:80: NOW FILE EXISTSL  SUBROUTINE TO CREATE DATA ENTRY SCREENt :1,9):"**** ADDRESS BOOK ****" 4,1):"LAST NAME:" 6,1):"FIRST:" 6,22):"MID:" 8,1):"ADDRESS:" 10,1):"CITY:" $10,30):"ST:" .12,D$(4):FL$"ADDRESS.DATA":OP$D$"OPEN"FL$",L294":RD$D$"READ"FL$",R":WR$D$"WRITE"FL$",R":CL$D$"CLOSE"FL$: SET UP DOS CONTROL STRINGS F90: ERROR WILL OCCUR IF NO DATA FILE EXISTS POP$:RD$;0:TC:CL$:4000 ZCL$:OP$:WR$;0:0:Cr  :: NORMAL DISPLAYK("A"): STRING ENTRY DEFAULT IS ALPHABETIC(0),: NUMERIC ENTRY DEFAULT--NO DECIMAL AND NO SIGNS("HERQ",210000,3: SET UP DEFAULT CONTROL COMMANDS2PH$"DDD/DDD-DDDD": PHONE NUMBER FORMAT STRING <       Lש`,L# $FPQ ְLFɰLA٥zHyHvHuHH AL,,G*   < 6 * * +@`afk'ɝ TOD*T8&Lƍ T&U&H*ikmI*jln`hhߚHH` h" 4 )Lg) 9E r륢 # 4 h" )4 )8 )0 ).-$0 , ) ) )0 )L:ۥ8 J`ȹ`ȹE#``٧`Fɮ hhhh17:T$T$T$::T$(T$,N):2,1):"ENTER DECIMAL PLACES DESIRED>>":70:505 (c 2,(30),,,240,070,12,1),(20,5),Xn <:50 F4,1):"--- '9' EQUALS SCIENTIFIC NOTATION ---":2,32),,(1),(0),,,,A%:(A%),(36),4,1):40): P864:: ENABLE RESET ZZi ::(37),"EHR",180,3," CHANGE DECIMAL E TO END",#:A%2:832: DISABLE RESET T$"*":N19:90:6,11):T$:11:"* CALCULATOR MODE *":11:"* DEMONSTRATION *":11:T$. T$"-":N40:90:13:T$:21:T$:20,36):"TOTAL":  ADR 18:2::"*** SHORTCUTS SUCCESSFULLY LOADED ***":::"IF THE DOS 'FP' COMMAND IS EXECUTED,":"SHORTCUTS MUST BE RELOADED"C(116))(115): CALCULATE HIMEMT xADRHMPL: CALCULATE DESIRED LOADING ADDRESS LM(256(110))(109): FIND END OF NUMERIC VARIABLE STORAGE LMADRė:12:"!!!! MEMORY CONFLICT !!!!":"UNABLE TO LOAD SHORTCUTS": (4);"BRUN";PG$;",A";2:4::"===>";::CH$:CH$(13)ĺ" ":CHCH1:40J 2CH70,80s <PL5188:PG$"SHORTCUTS:COMPLETE":90 FPL4521:PG$"SHORTCUTS:INPUT/OUTPUT":90 PPL1008:PG$"SHORTCUTS:SORTING" Z d18:8::"** LOADING SHORTCUTS **":" nHM(2563 :2:5::"***** SHORTCUTS LOADER *****":6:8)"INPUT/OUTPUT WITH SORTING"::8)"INPUT/OUTPUT ONLY"::8)"SORTING ONLY"14:"USE SPACEBAR TO SELECT VERSION DESIRED."::"LOADING WILL BEGIN WHEN IS HIT"< (CHCH(CH3):6CH   O 100:":10001010:01080*30:#(4)4(0)X"ENTER A NUMBER>> ";X0X100f10:1000820:"THESE STATEMENTS REQUIRE EACH NUMBER ENTERED TO BE GREATER THAN THE PREVIOUS ENTRY:":11001120:01180B30GX0LYXV"ENTEF THE UNITED STATES DURING THE CIVIL WAR!"4z30v"YOUR ANSWER>> ";X$"LINCOLN"X$"GRANT","SORRY, TRY AGAIN"10:90020:"VALIDATION CRITERIA CAN ALSO BE USED WITH NUMERIC ENTRIES. THIS LOOP WILL ACCEPT ONLY WHOLE NUMBERS FROM 1 TTED STATES DURING THE CIVIL WAR!"+30Z "YOUR ANSWER>> ";X$"LINCOLN"X$"GRANT"g*10:800p20:"SAME QUESTION, BUT A BIT FRIENDLIER ERROR MESSAGE IS SUPPLIED BY THE PROGRAM":0980,u:900:14:"THE QUESTION:":"NAME A PRESIDENT O;X10:700 20:"SOMETIMES, ONLY A SPECIFIC GROUP OR RANGE OF RESPONSES IS VALID. SHORTCUTS ALLOWS THE PROGRAMMER TO DEFINE CRITERIAWHICH MUST BE MET BY THE INPUT.":0880#:800:14:"HERE IS THE QUESTION:":"NAME A PRESIDENT OF THE UNI20:"IN THIS SERIES:":700710:"COMPLEX CALCULATIONS ARE SUPPORTED.":"FOR EXAMPLE, 'SQR(63)' AND 'TAN(3)' ARE VALID. THE RESULT IS ROUNDED AND DIS- PLAYED TO 3 DECIMAL PLACES OF ACCURACY.":078030,(3)"ENTER A NUMBER>> "600610:"LINE 600 INSTRUCTS SHORTCUTS TO ACCEPT SIMPLE ARITHMETIC EXPRESSIONS.":0680I:"YOUR ENTRY MAY INCLUDE ANY OF THE ARITH-METIC OPERATORS: + - * / AS WELL AS PARENTHESES"N30:#(15)Xb"ENTER AMOUNT>> $ ";Xl10:600KICATION.":500:0580"LINE 510 GETS THE INPUT":510:"TRY ENTERING NUMBERS WITH MORE THAN TWO DIGITS AFTER THE DECIMAL POINT."30(2),#"ENTER AMOUNT>> $ ";X10:500YD20:"ALLOWING CALCULATIONS AT INPUT TIME IS SIMPLE:":ISPLAY FOR RIGHT JUSTIFICATION:";:400:0480V"AND ENTER SOME MORE STRINGS":410^30f$"ENTER A STRING>> ";X$10:40020:"SHORTCUTS SUPPORTS FIXED DECIMAL PLACE ENTRIES. LINE 500 SETS TWO DECIMAL PLA-CES, AND RIGHT JUSTIF 10:20020:"THIS IS A SIMPLE INPUT FOR THE INTEGER":"VARIABLE, X%":300:"TRY ENTRIES WHICH CANNOT BE VALID INTE-":"GERS.""30:0380,#,"ENTER A NUMBER>> ";X%610:300.|20:"NOW LET'S CHANGE SOME THINGS. WE'LL":"SET THE DZ0180,("Z"),$(22)4 d"ENTER A STRING>> ";X$A x10:100 20:"THIS IS A SIMPLE NUMERIC INPUT FOR THE":"REAL VARIABLE, X:":200:"AGAIN, TRY ENTRIES WHICH WOULD CAUSE":"PROBLEMS FOR APPLESOFT." 30:#,0280 "ENTER A NUMBER>> ";XMAS, CONTROL CHARAC-":"TERS, OR ANYTHING YOU THINK SHOULD":"CAUSE A PROGRAM CRASH)" T:"WHEN AN INPUT ERROR IS DISCOVERED, AN":"ERROR MESSAGE IS DISPLAYED, A BEEP":"IS SOUNDED, AND THE KEYBOARD LOCKS.":"PRESS THE SPACE BAR TO CONTINUE." V30 NY LOOP"< 2::"HIT ANY KEY TO START THE DEMONSTRATION "L 7X$:34,1: <18:"----------------------------------------" FN16:"ER",110000,2,,$,#,#(11),$(20),(9), P20:"THIS IS A SIMPLE STRING INPUT":100U R"(TRY ENTERING COMPPER PART OF THE SCREEN AND EXEC-":"UTED IN THE LOWER PART.": 0"EACH LOOP WILL BE EXECUTED UNTIL YOU HITTHE ESCAPE KEY WHICH WILL CAUSE THE PRO-GRAM TO ADVANCE TO THE NEXT LOOP." 1:"YOU MAY EXIT THIS PROGRAM BY ENTERING":"A 'CONTROL E' DURING ADESIGNED TO":"DEMONSTRATE SOME OF SHORTCUTS'":"MAJOR COMMANDS AND CAPABILITIES" .:"THE PROGRAM CONSISTS OF A NUMBER OF":"PROGRAM LOOPS CONTAINING SHORTCUTS":"COMMANDS. THE STATEMENT(S) TO WHICH"? /"YOU ARE RESPONDING WILL BE LISTED IN":"THE U 40- (37),1):N)::(37)22Ģ193K3:34,2:35,17:::35,24:34,18::23:"----------------------------------------":"USE TO ADVANCE E TO END",19,1):(::16);"SAMPLER";17):Q -:"THIS IS A PROGRAM        1N:B%(TG%(I))::I13500::G I1N:B$(TG%(I))::I13500::A h@ rT(((T$,7,2))3600)(((T$,10,2))60)((T$,13,6))F |Z VT400,410,415{ I1N:A(I)::I12500:: I1N:A%(I)::I12500:: I1N:A$(I)::I12500:: VT430,440,450 I1N:B(TG%(I))::I13500:: IN#0": ,CH$"N"330- 6UT$"Y"İ420:3306 @390d JT$T2$:370:T2T:T$T1$:370:TTTT(T2T)l TIT ^:10:"ARRAY TYPE: ";V$(VT)::TR;" TRIALS"::"NUMBER OF ELEMENTS: ";N::"USING TAGS: ";UT$::"AVERAGE SORT TIME =":12);TTTR;" SECONDS"1N:A$(I)((1)1000)7 B$(I)A$(I):TG%(I)I::210] (4);"IN#4":T1$:VT220,240,260{ UT$"Y"į1N,A,TG%:290 1N,A:290 UT$"Y"į1N,A%,TG%:290 1N,A%:290 UT$"Y"į1N,A$,TG%:290 1N,A$:290 "T2$:(4);"IPVT90,100,110+ ZA(N),B(N),TG%(N):120H dA%(N),B%(N),TG%(N):120e nA$(N),B$(N),TG%(N):120w xTT0:IT1TR VT140,160,180 I1N:A(I)(1) B(I)A(I):TG%(I)I::210 I1N:A%(I)(1)1000 B%(I)A%(I):TG%(I)I::210 IH4V$(1)"REALS":V$(2)"INTEGERS":V$(3)"STRINGS"W:7:I13:I;" ";V$(I)::(" CHOOSE VARIABLE TYPE: ";VT:-"NUMBER OF TRIALS? ";TR:2"NUMBER OF ELEMENTS? ";N:<"USING TAGS? ";UT$:F"CHECK SORT VISUALLY? ";CH$:  L:ۥ8 J`ȹ`ȹE#`̪`ي`)oɮ hhhhbL :)xPQ ְL8 )oɰLA٥zHyHvHuHH AL,ם鷧θݱٛA 7   e h ` w,P],:ȱ 0 L:ۅѠ,0 L= $P 0,0 (  4 L 9( r륢 # 4  #4 8 L0 Q.-$0 ,d L ʹ 20  ɮ ` '`  L)`  $ [$L  $LQ  $٩ ix` , xI 0$ % ` , xI 0 $ L[)? L,p L, , ),0 ,0'$ H$hɈɕ (0II@)ߝɍL ,b hhL:,0,  L`  L8%`ɰ8F`,cpɫɨ ɯ ɫɭ` Ψ,0ΦΧ` ` ",,,,Lɠ bL ,pj ,cQ,0,0,B0ɮ,0,)ɠ%,c ,dГ  L,cpL ,L'5ɬɢ)ɮ!ɠ   нLNbcΔ.L `L ʆ,"Lީ  nL?,p  # c w r륝 ϭ2F n,,f0 [   J  $P ``` n $0$Hȱh L `P   `i0/   4` H   h L ;LL 0莥f2 ,b0, J ,b nΖ   ,  9 ,e0,p 0  ,P L lƸ {,2䝰  L? r ᭛ȥL +  nb,2 { ( , `څuۅv $EɅ  L? L:" { =۩; ޥosb2 ,P0 E  ߅eȹmgi'k :5L0 %  !88,d $0 : , L+` j2  J j, { L\*ȱȄΤ e * 8L0 IiJ J : = j ɠ2 2`ȅL=ۺ`؍ghgh`hgؠ HȹHLk :uȱve L`` ʎL L0 `L$Pi(:` $ #$pL< `͗Ș W ͗LW `L, hh $0$0B   ꥢ / 9 r # ULW ,LW ,LW ?,LW ?,LW d L0  L $pL< gki`, d L `N` ` w0`ij8`,P X#8"P JLX L< h H! { #mJ^ʈ jL O`5 ZHhL ۩ W LW ^ 0̘ W LW & LW  { ^i@` L0 $Pi( GYɮLɰ  g RPPQY`,eeeeeeeee``L c LY `,%0 HHLhh " }L$LC,Pf':b` ީ, af$0P L 0NGb$0L$P`LE 6  &@`afk'ɝ TOT8 LJeP eQ  :G ! $ eeee4e48e8 e e eS hhߚHH`  Lש`COPYRIGHT 1982, KELLY W. PUCKETT` i<i==i ?8<=< @6`2)+ # ")ɠ ee,,< T U V <        0,$  3Lg` ? iL8%`ɰ8F`,pɫɨ ɯ ɫɭ` &7,8056`8 765` i"  0ɮ8 S`ٯ`  L`  $ [$L  $L   0 iL,pLW ,L[5ɬɢ)ɮ!ɠ  & нLN##.L L ʆ,2p ~L,$ ,$ ,#0 ,(0'$ H$hɈɕ (0II@)ߝɍL, hhAL,#`  $0$Hȱh L$ `P   `i0  % 4`3 H   <h ~L ,,,,L[ɠ L ,2pj S,Q,50,60,7B0ɮ,20,88)ɠ%, I,Г A,2P La lƸ {,22䝰3  xL r *+ȥLa*+ + x ,42 { (3 , "Lީ3  L,2p % # c  r륝 ϭ,2F ,",0   ? J ? $P ``0   ߅*+-e2ȹ% :5L0 %  !88, 5$$0  ;LL 042 ?,0,' J ?, % % ? 6, C 9 a,0,2p 0C  = *+- ɠ,2 +2`TL=ۺB`:؍>g?h@3gh95`@h?g>ؠ:`څuۅvB x$EɅ 3 L L" { =۩; ޥ2, 6,$pL< &`&)Ș &)L`L, hh $0$0+*  +* ꥢ / 9 r # U, +*L+` 2 T J ,3 { LȱȄ3 e * 8TL0 IiJ J :A` g RPQ`  iћkLȘe`weyxez`&$p0&eeeHeh` H*he{e|ȱ`$0L녘p$ŀ PI8 `p` р`AL$Pi(` $ #yeuVzev$0 uv o}~uv F8uywvzx$0 wx F ^$XT 5 Fwx F$0wx oHH ohhȑ8wywxzx wx 5 F$0 o}uvuvL ΋0L @u HȹHLk :uȱve L'`(` ʎTL L0 `х   e  $0Lԅ{|&P,Vu@$pʆ8PV莋PL,L,L?,L?,L  L0 )  )L $pL< `,  )L "`N"` ` w0`ij8`,TP X#8"P JLX L< Ah H! { T#mTJ^Dʈ L+ OD`5 ZAHhL ۩  L ^ 0̘  L & L { ^i@` L0 $Pi( ɮLɰ  g RPQ`,`e`dedhehlelpep3e34e4;e;<e<``LA c LY `,&0W ~H}HLhh " }L$L,$'('` ީ, a$0 L 0NTG$0$P`L 6  &@`afk'ɝ TOTT8LJeP eQ de " ! % }e}~e~,e,0e0ee e e \e\DS hhߚHH`  Lש`COPYRIGHT 1982, KELLY W. PUCKETT` i<i==i?8<=< @6`2)+ # ")ɠ ee,,< <     L= I$P 0,0 e]   4 L 9] r륢 # 4  4 8 0 .-$0 ,   0 L:ۥ8 J`ȹ`ȹE#``ٿ  $٩> ix` , I? 0$? %@ ` , I? 0? $@ L[)? Li,` ,P],:ȱ 0 L:ۅѠ,0 L,0,  Lo` G qL8%`ɰ8F`,pɫɨ ɯ ɫɭ` .,0` ` q"  8ɮ [`U \ `  L`  $ [$L  $LГ 8 qL,pL_ ,Lc\ 5ɬɢ)ɮ!ɠ  . $нLN.L L ʆ,p L, , ,0 ,0'$ H$hɈɕ (0II@)ߝɍL, hh ```  $0$Hȱh L, `P   `i0d  - 4 ` H   Dh L ,,,,Lcɠ L ,pj [,Q,0,0,B0ɮ,0,)ɠ%, Q,  I,P Li lƸ {,2䝰  L r ȥLi +  ,2 { ( , "Lީ  L,p - # c  r륝 ϭ2F ,,0  " G J G $P  >,0  " ߅eȹ\  :5L %  !88, =$0  ;LL 02 G,0, J G,   G >,  9 i,0,p 0J J : =  ɠ2 32`\L=ۺT `؍ghͅg hӅ υ `hgؠ`څuۅvT  $EɅ  L L" { =۩; ޥ2$ #$pL `Ș L `L hh $0$0w   ꥢS  / 9 r # U,S  L+` 2 \ J , { L_ ȱȄ e * 8\L Ii, L`N` E ` E w0`ij8`,\P X#8"P JLX L h HHȹHLk :uȱve L`` ʎ\L L > `L$Pi(o` ^ 0̘ L & L  { ^i@` L $Pi( |ɮLɰ  g RPQ`,L ,L ,L ?,L ?,L L   L$pL 卜`%0 &H%HLhh " }L$L,'o` ީ, a$0 L 0N\G$0$P`L { \#m\J^ʈ L3 O`5 ZHhL ۩ L +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALLOWEMUST BE SMALLER THAN +/- 1000000000 2 ``L L `,ʠŠĠ蠅Ҡ֪蠗ﰗөɒ堠ŰZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: ם鷧θݱٛ  ' D  X  w 4V P / , ԠƠԥŠ谠҅𱠠ǟӠɹ΢ӱΰ àƠ̍ɂԪ     N.L L ʆ,p !LD, , X,0 ,0'$ H$hɈɕ (0II@)ߝɍL:, hhLi,0,  L `  LD8%`ɰ8F`,pɫɨ ɯ ɫɭ` ` H  A h !LD ,,,,Lɠ L, ,pj ,Q,0,0,B0ɮ,0,)ɠ%, ,Г  L,pL ,L_ 5ɬɢ)ɮ!ɠ   нL +  ,2 { ( , "Lީ A Ln,p  # c  r륝 ϭ2F ,,0    J  5$P ```  $0$Hȱh L `P   `i0g   4 Ѕ88, $0 i ;LL 02 ,0, J ,  5  ,  9 ,0,p 0 6 ,P L lƸ {,2䝰 A Ln r ȥL܅g h ޅ `hgؠ`څuۅvW  $EɅ  ALn Li" { =۩; ޥ2 ,0 t  ߅eȹ_  :5L %  ! ꥢV  / 9 r # U,V  L+` 2  J , { Lb ȱȄ e * 8L IiJ J : =  ɠ2 2`L=ۺW `؍gheeeHeh` H*he{e|ȱ`$0L녘p$ŀ PI8 `p` р`L$Pi(r` $ #$pL `Ș L`L hh $0$0z  ӰT  wx $0wx HH hhȑ8wywxzx wx  $0 }uvuvL΋0L@u` g RPQ`  iћkLȘe`weyxez`&$p0&  e  $0Lԅ{| P Vu@$pʆ8PV莋PyeuVzev$0 uv }~uv 8uywvzx$0 wx  +^$X 卟`,  L`N` T ` T w0`ij8`,P X#8"P JLX L h HHȹHLk :uȱve L`` ʎL L A `х  L ^ J0̘  L & L { ^i@` L $Pi( ɮLɰ  g RPQ`,L,L,L?,L?,L  L   L$pL  L `,&0 'H&HLhh " }L$Lr,'r` ީ, a$0 L 0NG$0{$P`Lt { #mJ^ʈ L O`5 ZHhL ۩ E: +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALLOWEMUST BE SMALLER THAN +/- 1000000000UUU 2 ``L6ɺɱ֠ɠŠ̠ԇ؃àà層𴢠򵥆ZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGם鷧θݱٛ  " 6 / S ~  g  e _ > ; Ӊ𠠍̠تРǠԅĖ̠Ԡ˰ӊԛՠ֥𠸦         ͠Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺԯԮĬ˨˨  @u` g RPQ`  iћkLȘe`weyxez`&$p0&eeeHeh` H*he{e|ȱ`$0L녘p$ŀ PI8 `p` р`,UUUPyeuVzev$0 uv t }~uv K 8uywvzx$0 wx K ^$XT : K wx K $0wx t HH t hhȑ8wywxzx wx : K $0 t }uvuvL ΋0L @`afkLFeP eQLɼ ɯLLԩх    e   $0Lԅ{| P Vu@$pʆ8PVFhhߚHH`  Lש`COPYRIGHT 1982, KELLY W. PUCKETT` i<i==i?8<م=< @6`2)+ # ")ɠ ee,,< N O P < 6    C1:OP$:WR$;0:TC:CL$"40002"8000:4000GpRCTC1:1000:z2000:23,1),,(1),,"DO YOU WISH TO SAVE THIS RECORD? ";CH$"Y"CH$"N","A SIMPLE Y OR N WILL SUFFICE"CH$"Y"İ3000@ SEARCH FOR RECORD SUBROUTINE"E21,1),******************":13,7):"<1> CREATE A NEW RECORD"d15,7):"<2> RETRIEVE AN OLD RECORD"19,7),,,,(0),,(1),"WHAT IS YOUR CHOICE>> ";CH1CH2,"LIMIT CHOICE TO THOSE ON MENU!"""CH1ī4130RCTC1:6000:CH$"Y"TCTP$:WP$:NT$: WRITE DATA TO FILEL CL$:: CLOSE FILE AND RETURN\ MAIN MENU:"(USE E TO EXIT TO BASIC)"6,10):"*******************"7,10):"** ADDRESS BOOK **"8,10):"** MENU **"9,10):"*,WP$, 4,18,8),(153),("X"),12090,NT$` >465535:: ENTRY COMPLETE, Q INACTIVE SUBROUTINE TO WRITE DATA TO RANDOM FILE OP$:WR$;RC: OPEN DATA FILE, GET SET TO WRITE TO RECORD NUMBER RC" LN$:FM$:MN$:AD$:CT$:ST$:ZP$:H(12),12010,FM$2 ,6,27),12020,(12),,MN$Y ,8,10),(29),12030,("B"),AD$x ,10,7),(20)12040,CT$ ,10,34),("LL"),12050,ST$ ,12,6),("DDDDD"),12060,ZP$ ,14,14),12070,(PH$),HP$ *,16,14),12080,(PH$)"ADDRESS:" 10,1):"CITY:"4 $10,30):"ST:"H .12,1):"ZIP:"c 814,1):"HOME PHONE:"~ B16,1):"WORK PHONE:" L18,1):"NOTES:" V  DATA INPUT SUBROUTINE. USED WITH KEYBOARD OR DISK ENTRY ,4,12),(20),LN$ ,6,8),ISTS# POP$:RD$;0:TC:CL$:4000W ZCL$:OP$:WR$;0:0:CL$:80: NOW FILE EXISTS  SUBROUTINE TO CREATE DATA ENTRY SCREEN :1,9):"**** ADDRESS BOOK ****" 4,1):"LAST NAME:" 6,1):"FIRST:" 6,22):"MID:" 8,1):MANDS9 2PH$"DDD/DDD-DDDD": PHONE NUMBER FORMAT STRING <D$(4):FL$"ADDRESS.DATA":OP$D$"OPEN"FL$",L294":RD$D$"READ"FL$",R":WR$D$"WRITE"FL$",R":CL$D$"CLOSE"FL$: SET UP DOS CONTROL STRINGS F90: ERROR WILL OCCUR IF NO DATA FILE EX?(((256(176))(175))208):((256(104))(103)4),178X :: NORMAL DISPLAY("A"): STRING ENTRY DEFAULT IS ALPHABETIC(0),: NUMERIC ENTRY DEFAULT--NO DECIMAL AND NO SIGNS ("HERQ",210000,3: SET UP DEFAULT CONTROL COM     ee,,< Ke< e=l<L  ikm jln`hhߚHH`  Lש`,H  e  e I ikmJ jln`COPYRIGHT 1982, KELLY W. PUCKETT` 8鎅<=8#>?8< =< @6`2)+ # ")ɐ`weyxez`&$p0&eeeHeh` H*he{e|ȱ`$0L녘p$ŀ PI8 `p` р`, < 6 "  , 8 @`afk8uywvzx$0 wx  S ^$XT  wx  $0wx : HH : hhȑ8wywxzx wx  $0 : }uvuvL΋0L@u` g RPQ`  iћkLȘe5UUUɼ ɯLLԩх   e  $0Lԅ{|PVu@$pʆ8PV莋PyeuVzev$0 uv : }~uv        ꥢ / 9 r # U, L+` 2 " J , { LȱȄΊ e * 8 "LuIiJ J : =  ɠ2 2` "L=ۺ``, "P X#8"P JLX LhHOHȹHLk :uȱve L~`` ʎ "L Lu`L$Pi( ` $ #$pL }`}Ș }L`Lqhh $0$0( $Pi( -?ɮLɰ  g RP6Q?`,L,L,L?,L?,L  Lu  L$pL MQO`,  Ly`Ny` ` w0`ij8` ީ, a$0 L 0N "G$0$P`L f {  "#m "J^ʈ L O`5 ZHhL ۩  L ^ `0̘  L & Lq { ^i@q` LuTE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALLOWEMUST BE SMALLER THAN +/- 10000000002``LL L`,%0ٱ HHLhh " }L$L,{~' HZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINVALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLEc(EHxqt ԥŠ谠҅𱠠ǟӠӱΰ à ɒ堠010CH$"E"ıCL$:768:22,12),,,(1),,"NO RECORD FOUND!! HIT ANY KEY TO CONTINUE. ";CH$:: END OF FILE. NO MATCH FOUND!': EXIT TO BASICם鷧θݱٛ|\Y? OR;>jg,,(20),"ENTER LAST NAME>> ";TR$2JRC1:8090WTOP$:RD$;RC:LN$:LN$TR$ī8040i^RCRC1:8020h1000:RD$;RC:2000:CL$:23,1),,(1),,"M)ODIFY C)ONTINUE E)ND SEARCH>> ";CH$"M"CH$"C"CH$"E"rCH$"C"ī8030|CH$"M"į,42110:6 "Q$":?";Q$;"SAVE THE APPENDED PROGRAM NOW, BEFORE RUNNING IT, USING A NEW FILE NAME";Q$y D$"CLOSE"F$:D$"EXEC"F$C"F$EXEC"F$F 13:?";Q$;"ONE LINE HAS BEEN ADDED TO YOUR PROGRAM:";Q$;";CHR$(13);";Q$;"0 CALL (((256 * PEEK (176)) + ...ETC";Q$ "VTAB16:?"Q$" "Q$":VTAB17:?";Q$;"THIS LINE IS REQUIRED TO INITIALIZE SHORTCUTS EACH TIME THE PROGRAM IS RUN";Q$\ "VTAB19:?"Q$""VTAB20"a "0CALL(((256*PEEK(176))+PEEK(175))-";CA;"):POKE((256*PEEK(104))+PEEK(103)+4),178" "VTAB21:?CHR$(4);";Q$;"BLOAD";PG$;",A";Q$;";(PEEK(175)+(256*PEEK(176)))" "VTAB21:CALL(PEEK(175)+(256*PEEK(176))+";PL;")"r "VTAB 11:CALL-958:VTAB. ZCA158:PL915:PG$"SHORTCUTS:SORTING.APND"4 d` n20:7::"** APPENDING SHORTCUTS **": xD$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$ "POKE 103, PEEK (672): POKE 104, PEEK (673): POKE 175, PEEK (674): POKE 176, PEEK (675):VTAB20" PROCESS WILL BEGIN WHEN YOU PRESS " 2CHCH(CH3):6CH2:4::"===>";::CH$:CH$(13)ĺ" ":CHCH1:50 <CH80,90 FCA208:PL5097:PG$"SHORTCUTS:COMPLETE.APND":100 PCA208:PL4430:PG$"SHORTCUTS:INPUT/OUTPUT.APND":100z( D$(4):F$"APPENDER.TXT":Q$(34)\:2:4::"***** SHORTCUTS APPENDER *****":6:8)"INPUT/OUTPUT WITH SORTING"::8)"INPUT/OUTPUT ONLY"::8)"SORTING ONLY". (14:"USE THE SPACEBAR TO SELECT THE VERSION DESIRED."::"THE APPENDING     vHuHH AL,,"< 6 " ""@`afk'ɝ TO "T8L "ikm"jln`hhߚHH`  Lש`,8 !0 !.-$0 ,J ! [!͚ w!|0 L!L:ۥ8 J`ȹ`ȹE#`̐`p`gUɮ hhhhHL[ ^PgQ ְL}UɰLA٥zHyH0$L[)? L ,{` ,P],{:ȱ `0 L:ۅѠ,|0 L!L= $P 0,0  1 4 [!L0! 9 r륢 # 4 1 h!4 [! ɫɭ` Ύ,0Ό΍` ` ""  ɮ ` ` ` Ln`  $ [$L  $L  $٩ix` , I0$%` , I нLNHzIz.L !L ʆ,p 7LZ,{ ,{ n,z0 ,0'$ H$hɈɕ (0II@)ߝɍLP,H hhL,z0,{  L `  "LZ8%`ɰ8F`,Ipɫɨ  4r` H  W h 7LZ ,,,,Lɠ !LB ,pj ,IQ,0,0,B0ɮ,0,)ɠ%,I ,JГ  "L,IpL ,L 5ɬɢ)ɮ!ɠ  ȥL + 1 H,2 { ( , "Lީ W L,p  # c  r륝 ϭ2F ,y,0    J  K $P ```  $0$Hȱh L `P   `i0 rLu%  !88,J {$0  ;LL 0莋L2 ,H0,~ J ,H | K |  ,  9  ,K0,p 0 L! ,P L lƸ {,2䝰 W 1L r ᭁ؍gh~gh`hgؠ`څuۅv 1$EɅ  WL L" { =۩; ޥH!2 ,0   ߅eȹS|MO Q :50Mghghggh j LΠĠ ͠Ӡ΢±ŠŠĠ͠׬ŠǠԬǠנŠŢ²̨˨˨ ̭ ŠŠӠΠĠϠҠͺҤ̠ˠâ±±ӠŠӠĠϠŠӠȠŠŠŠˠŠˠŠˠŠˠ²²̨˨˨Ũ˨˨²ҤӺԯԮĬ˨˨!! ! ,%  ,$ 0 ,) 0'$ H$hɈɕ (0II@)ߝɍL,  hhB L),$ 0,%   4 L`  L8%`ɰ8F`, pɫɨ ɯ ɫɭ` 8 ,9 06 7 `9 8 7 6 ` "  ɮ9  QL ,3 pj , Q,6 0,7 0,8 B0ɮ,3 0,9 9 )ɠ%,  , Г  Lq, pL ,L 5ɬɢ)ɮ!ɠ   нLxN $  $ .Lt OLt ʆ,3 p L,%   ]L.,3 p  # c f r륝 ϭ- 2F ],# ,U0 J }  J  $P ``` ] $0$Hȱh L `P   `i0    4 `4  H z  h L ,,,,Lɠ 2 , 0,(  J ,  ]& &  , tD 9 , 0,3 p 0D  ,3 P L lƸ {,3 2䝰4  L. r + , ȥL+ , +  ] ,5 2 { (4 , "Lީ4  C  $EɅ 4 L. L)" { =۩; ޥ^b r2- ,?0 4 } ߅+ , . e3 ȹ &    :5L%  !88,  % $0 ) ;LL 05` Y2  J Y,4  { LK ȱȄ4 e * 8LIiJ J : = Y+ , .  ɠ- 2 2`L=ۺ C `; ؍? g@ hA (g h. * `A h@ g? ؠ; `څuۅvuȱve L( `) ` ʎL L `B L$Pi( ` $ #$pL+ ' `' * Ș F' * LF`Lhh $0$0, +   , + ꥢ  / 9 r # U,  , + L+LF?,LF?,LF S L* p * Lp$pL+ `, S * Lp# `N# ` ` w0`ij8`,P X#8"P JLX L+B hHHȹHLk :J^E ʈ YL OE `5 ZB HhL ۩ F LF ^ 0̘ F LF & LF  { ^i@ ` L$Pi( ɮLɰ  g RP Q `,LF,LF,OWEMUST BE SMALLER THAN +/- 10000000000 26 ``LB  R LH `,%0[ H HLhh " }L$L2,?U% ( ) ' ` ީ, aU$0? L 0NGQ$0;$P`L4  { ͷ#mALID NUMBEENTRY MUST BE NUMERIOUT OF RANGE: -32767 TO 3276INVALID ENTROUT OF RANGE: +/- 10 ^ 37TH POWEINVALID EXPRESSION! CHECK SYNTAALPHABETIC ENTRY REQUIRECOMPLETE ENTRY REQUIREONLY 2 DECIMAL PLACES ALLOWEDIVISION BY ZERO ERRORONLY 9 DIGITS ALL҅𱠠ǟӠӱΰ à ɒ堠ŰZXBNADLENTRY TOO LONGILLEGAL CONTROL CHARACTEENTRY MUST BE WHOLE NUMBEINV:(A%),(36),4,1):40):6 P864:: ENABLE RESETY ZZ17:T$T$T$::T$(T$,N):ם鷧θݱٛ0&TWn {>dj lO" 9=   ԥŠ谠1:T$l T$"-":N40:90:13:T$:21:T$:20,36):"TOTAL":2,1):"ENTER DECIMAL PLACES DESIRED>>":70:50s ( 2,(30),,,240,070,12,1),(20,5),X <:50 F4,1):"--- '9' EQUALS SCIENTIFIC NOTATION ---":2,32),,(1),(0),,,,A%?(((256(176))(175))208):((256(104))(103)4),178 ::(37),"EHR",180,3," CHANGE DECIMAL E TO END",#:A%2:832: DISABLE RESET  T$"*":N19:90:6,11):T$:11:"* CALCULATOR MODE *":11:"* DEMONSTRATION *":1"" " " " " """""""""