' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`SLOWERASE W/SOUND!"%9:8:"----"4SEC3:150o15:ST$"OF COURSE, BOTH THOSE ROUTINES ARE ALSO":104~SEC1:150&16:ST$"AVAILABLE WITHOUT SOUND AS SR104 & SR106":1040150:19:"YOU MAY HAVE NOTICED THE 'PRESS RETURN'"(D20:124!12:18::" WOW! ":0SEC2:150j4:ST$" THAT WAS THE '124-CENTER/OUT' ROUTINE":105150:12:18::" WOW! ":7:ST$"...AND THAT WAS '105-SLOWPRINT W/SOUND'":1108:8:"----"SEC2:1505:1077:20:"7-220:20:ST$".... WHILE THIS IS THE '113-BILLBOARD' ROUTINE ....":113PJ150T21:ST$"THIS IS THE '114-CENTERSPREAD' ROUTINE":114^150h100: (PRESS RETURN) r120:X120:::255|SEC1:150:I1800:"+";::100ON RAVEY":110SEC1:150W10:120:" HERE ARE BUT A FEW OF THE UNIQUE":22012:ST$"TECHNIQUES YOU CAN USE IN YOUR":11214:ST$"OWN PROGRAMS!":112"150,240:17:ST$"THIS IS THE '112-SLIDER' ROUTINE":1126SEC2:150G@:::MAIN PROGRAM:::: $::" S U P E R I O R S U B R O U T I N E S ":34,4:(SET TEXT WINDOW TO RETAIN TITLE)5:ST$"WRITTEN":1107:ST$"BY DVI$(VI):VI0VI$" ",F$VI$" "F$::NHNH9mVT(37):HT(36):V$:V(V$):VNHVNL149VT2::" MUST BE BETWEEN ";NL;" AND ";NH;" "::X11600::VT2:868:VT1:HT1:147SECSEC2(SEC0):X1SEC980:: :ASE1)SD(J)(S2(J))ICALCULATE STANDARD ERROR OF THE MEANcSE(J)SD(J)((CASE))iII1 I2CASE'A(I,J)MIN(J)820/ ZIA*MIN(J)A(Z,J)H4IN>dH CALCULATE RANGERRANGE(J)MAX(J)MIN(J)\f CALCULATE VARIANCE AND STANDARD DEVIATIONpSSOzI1CASESSSS(A(I,J)MEAN(J))2IS2(J)SS(CJ)SUM(J)A(I,J)bIl0v COMPUTE MEANHMEAN(J)SUM(J)CASENg FIND MAXIMUN VALUEyMAX(J)A(1,J)Z1I2CASEA(I,J)MAX(J)730ZIMAX(J)A(Z,J)I FIND MINIMUM VALUEMIN(J)A(1,J)ZРӠٮӍҍà׮ҍ׮ҫà׮ҫ٠ؠд׮ҩٍٮҬ؍؍ٍŠдŠŠϠϠ٠΍ΠԠŠРŠŠčٍÍӫРӮҫŠԮԍϮƮӍРӮҍӠԮԍƠ٠ҠŠčӍ٠ӠԠԠŠōϠˠϠŠǠЍԮԍĠϠנĠٍÍ׮ġԠӠŠ٠ȠӍ٠ӮҫŮҩٍٍӮҍŮҩٍ٠ҠԠӍàӮҍŠбàӮҫĠŠĿбϮƮŮҍ̠ŮҫԠРŠҍÍŮҍàŮҍŮҍŮҫàŮҫŮҫԠӠΠōӠҠŠԍŠԡנŠ+ 67LHH%hhL,, XhhL INFORMING YOU OF THE ACCEPTABLE RANGE...IN THIS CASE, 1-5 AND 6-20."~$ ::SEC6:150::" ANOTHER ";::"INCIDENTALLY..."%SEC1:150::"ALL THESE LITTLE PAUSES ARE DONE WITH '150-SEC DELAY', AFTER SETTING 'SEC' TO THE NUMBER OF SECONDS DELAY YODENTALLY, (I THOUGHT YOU WOULD NEVERASK!) YOUR ANSWERS TO HOW MANY DECIMAL PLACES AND THE STRING WIDTH WERE BOTH OBTAINED USING '146-RANGE GET'..."F$:SEC3:150:"IF YOU REPLIED WITH A NUMBER OUTSIDE OF THE PRESET RANGE, YOU WOULD HAVE SEEN A PROMPT0A"16:"ROUND TO HOW MANY DECIMAL PLACES";:NL1:NH5:146:NVv"18:"STRING LENGTH, TOTAL";:NL6:NH20:146:WV"SEC1:150:34,19:19:"OK, ENTER YOUR NUMBERS, ZERO TO QUIT:""12:V$:V(V$):V0İ125:V$:1250"150::123#3:"INCI220:ST$"----------------------------------------":114:255t!11:ST$"LET'S TRY IT AGAIN...BUT THIS TIME,":105!ST$"YOU CAN CHOOSE HOW MANY DECIMAL PLACES":105!ST$"TO ROUND TO, AND HOW LONG TO MAKE THE":105"ST$"STRING!":105:SEC1:1534,7:VT8 `7:16:V$& jV(V$)S t:V0İ125:VT:V$:VT(37)1:7:1120 ~255:34,3::4:"I HOPE YOU NOTICED THAT THE ROUTINE INSERTS THE COMMA, OVER $1,000, AND THAT IT ALWAYS ROUNDS TO THE NEAREST CENT!" SEC3:150=!10: O N G E R AND L O N G E R":104:100:121n8200:2:ST$"FORMATTING DECIMALS, LIKE $ AMOUNTS..."::114:}BSEC2:150L4:"LET'S USE THE '125-$ FORMAT' ROUTINE.. ENTER ANY DOLLAR/CENTS AMOUNT LESS THAN A MILLION $. TO QUIT, ENTER A ZERO:" V1. VTAB TO THE LINE BEFORE YOU GOSUB..":112;SEC2:150v9:ST$"2. DON'T VTAB LOWER THAN EXISTING LINES!":130$150:14:ST$"YOU MAY HAVE NOTICED THAT, AS YOU MAKE":104:160:ST$"THE LINE LONGER, AND VTAB LOWER,":104:120,.ST$"IT TAKES L:" 1 ";:23:" 0 ":%X12400:5255:100:f9:ST$"NOW HERE'S ONE YOU MIGHT LIKE!":130uSEC2:1502:ST$"THAT'S '130-FALLING LEAVES'...":112SEC1:1504:ST$"TWO THINGS YOU SHOULD KNOW:":112SEC3:150,6:ST$" 50918:ST$"A FEW SPECIAL ONES SHOULD BE NOTED:":116B15019:5:"TO GET 'PRESS-ANY-KEY' WITHOUT THE":8:"LINE-24 MESSAGE, GOSUB 101."SEC2:15022:5:"'102-Y/N?' SETS VARIABLE ";::"YES"::8:"TO IF YES, IF NOT.";::11"TO THE LINE NUMBER OF THE SUBROUTINE."7HSEC3:150oR12:ST$"FOR THE STRING-PRINTING SUBROUTINES,":ST$\ST$"THE INPUT STRING IS ALWAYS: ST$ .":ST$f150pST$"LIKEWISE, AN INPUT VALUE IS: V AND THEOUTPUT STRING IS: V$ .":ST$z1GLANCE AT THE SUBROUTINES":112SST$"IN THIS PROGRAM SHOULD MAKE IT CLEAR":112 ST$"WHAT VARIABLES, IF ANY, ARE NEEDED.":112*SEC2:15048:"THE SCREEN WIPES, ETC. DO NOT REQUIRE"(>"SETTING ANY VARIABLES -- JUST DO A ";::"GOSUB";::19:"...OH, WELL, ALLRIGHT - ";:SEC3:150:"J U S T ";:SEC2:150:"O N E":15021:"M O R E: ";:SEC3:150:"'120-RR WIPE' ":104v1506:26:ST$"?":1028:1:ST$"OH, BUT IT WAS!":YESST$"THAT'S RIGHT -- IT WAS ( OUTSTANDING REMARKS.(42:<:@F:[P OUTSTANDING REMARKSaZ:gd:n OUTSTANDING REMARKS x SOME OUTSTANDING REMARKS BY SHERM OSTROWSKY ٍؠˍӍҠˠԠӍРΠϠҠōԍ̠ԠŠԠҍ֠ϠŞ̌ō̯֫ҠԠŠĠРōРϠԠǍӍРҠԠĠˍҠϠϩ̠лЮԍĠȠŠàҍˠՠƠˠҍˠՠԠӍ֠ՠƲԠҍРՠƴҭРōΠՠĴԠϠ΍ǠԠРҠBOARD SR146-RANGE GET"M)"SR114-CENTERSPREAD SR150-SEC DELAY"g)"SR116-CENTERSPREAD")"" W/SOUND"),22::" TO RERUN THIS LIST, ENTER 'RUN 9000' PRESS RETURN TO EXIT... ";:101:124)612:18:" BYE! "::STER/OUT";7("SR107-SLOWERASE W/SOUND SR125-$ FORMAT"d("SR108-BACKERASE SR130-FALLING"("SR109-BACKERASE W/SOUND LEAVES"("SR110-CENTERPRINT SR140-FRACTIONS"("SR112-SLIDER FORMAT")"SR113-BILLHE SUBROUTINES, BY FILE NAME ":N'"SR100-PRESSKEY SR120-RR WIPE"'"SR104-SLOWPRINT SR122-T/B WIPE"'"SR105-SLOWPRINT W/SOUND SR123-B/T WIPE" ("SR106-SLOWERASE SR124-CENMAL NUMBERS, LIKE: 4.629 ..AND SEE WHAT THE NEARESTFRACTION IS. TO QUIT, ENTER A ZERO:"n&Z34,11:VT12}&d11:16:V&nV0İ140:VT:22(F$):F$:VT(37)1:11:X1600::868:1380&x:100&80:122:255&100: ':" HERE ARE TU WANT."!%SEC3:150:100:122X%(4:ST$"OKAY, HOW ABOUT FRACTIONAL FORMAT --":112g%2SEC2:150%<5:"YOU KNOW, ";:X11000::"LIKE: 2/3 OR 672 3/8 ..."%FSEC3:150]&P:"THIS WILL USE THE '140-FRACTIONS FORMAT'ROUTINE.. ENTER ANY DECI.mmȭ `iiʈ8I256)* x(175)(176)256261A$(0),S%(0)5 J0IJ A$(J),A$(S%(J))P ߍ ߍʈʈ iiʈW[ ONE DIMENSION y ONE,TWO,THREE,FOUR,FIVE SIX,SEVEN,EIGHT,NINE,TEN(A$(9)2I09<A$(I)FPII1ZS%(I)d964,(I256(I256))256 n965,(I  ɍ٫Р̠ĠƠſѠˠӬˠϮƠӍà٫ϬԠԠōРٍˠàԠԠſŠŠϬŠϠԠōѠԠӬԠנӍŠРڠҠҍԠϠȠԍ̠Ġȍ٫ȍҠ͍ƍȠ Ϡƍ٠ƠӠǠ΍̠àԍР̍ӠàӍōàҠԠԠ٠ӠԠؠӠԍҠڠĠؠǠӠ٠ŠҠ͠٠ōҠ͠Рà̭ÿŠͩѠŠӬԠ͠Š̍٫ō͠ՠԠԍӠ؍ŠՠõҠλҠύҠȍԠՠƠڠՠƶҠ٠͠ՠ³ԠӠΠٍӠ؍ƠԍҠōλٮϮɍĠȠŠàҍǠȠՠč̠ՠÍȠՠƍ̠ՠŠȠՠŠՠԠՠԠՠĠԠҠڠՠĶԠҬԠĠčԠ    V3 X g1 ɼ9<2 >=3? $ɠ 2>2L1Li :::: DISPLAY MENUj16300,0:16320,0:16297,0:16304,0:230,32:: SWITCH TO PAGE ONE HGR16299,0:16302,0:16297,O:16304,0:230,64:: SWITCH TO PAGE TWO HGR(N1100:A(16336)::: MAKE BUZZU3 3 3 3"` " 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9" (27);"2": RESET SPACING TO 1/16" (NORMAL) (4);"PR#0" AR3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"V J039b I184q "-";:I:} K141 "I ";:K:" ";J J X184:"-";:X: " 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 NAME ";:H165:(95);:H:" DATE ";:H123:(95);:HA Z:n d"LAYOUT OF #";:H194:(95);:H::: n(27);"1": VERTICAL SPACING = 7 / 72" x" 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3"J " 0 1 2  LO-RES PLOTTING FORMN SET PRINTER TO TOP-OF-FORM BEFORE BEGINNINGT(4::"TURN ON PRINTER AND PRESS ";:A$2:<(4);"PR#1"F(15);(9);"132N": CTRL-O CTRL-I 132N (SET CONDENSED PRINT MODE: 132 COLS.)9 P"PROG.  ήΠŠ΍ٍԲҠàԱӍàРҠӍàà٠РȠӠōԱٍРŠԳҠĠƠӠōàŠϠϠԠōӠĠƠ͍ԳРή ̭Šԍ«čīנϠȠŠ͠Š٠ŬǠŠˠĠŠҠӮĠǠȠ̭ȠΠħҮōԮӍĠȠŠàҍՠÍՠō ՠĠՠƍՠήΠՠčή ՠ̭ǠԠ٠ǠŠǠĠčƠŠԠ͠Π  9g? to obtain a catalog":" of the ProDOS disk." s:"9. Press to cancel the transfer." x:"10.Press 'R' to reverse the direction":" of the transfer again." }:"11.Press 'T' to transfer files."~ Z:"4. Press to accept slot 6." _:"5. Press to accept drive 1.":FLAG1ĺ"PRESS TO CONTINUE":49168,0:16384,128:49168,0: d:"6. Press 'R' to reverse the direction":" of the transfer." i:"7. Press 'T' to trato convert from DOS 3.3 to ProDOS on a":"one-drive system:" <:"1. Boot your ProDOS User's Disk by":" inserting it in the drive and ":" turning on your Apple." F:"2. Type: -CONVERT" P:"3. Type 'C' to change the slot and":" drive."+ (:"Converting a DOS 3.3 file to ProDOS "::" Due to a bug in Apple's CONVERT ":"program on the ProDOS user's disk, the":"the prompts do not allow the correct":"disk swapping on a one-drive system."< 2"The following procedure is necessary":"$(1101)6İ10020:768 9:"INFORMATION ON CONVERTING DOS 3.3":"TO PRODOS.":"-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" 12:"Do you want a printout? (Y/N) ";A$::(A$,1)"Y"(A$,1)"y"İ200:40(A$,1,1)"N"FLAG1:4012     àčӠ̠ōРōɠàʠàΠӠōàİàİİàİàààٍ٠ʍԠ٠ɍ٠ŠҠԠ٠ʍٍàɠРӠΠàʍʍРԠ̿Šԍ٠ʍɠˍ٠ˠԠ̠ÍàРԠ׿Šɍ٠ˠԠԠ̠ÍàРˠҠРŠŠčӠ̠Š̠ԠϠԍؠĠؠԠӠƠנ؍؍؍٠ԠӠ٠ɍ؍؍٠РӠ٠ɍٍ٠ʠŠӍԠ٠ʍ٠ŠҠԠ٠ɍٍàɠРӠàʍʍРˠҠԠΠŠԍɠˍ٠Ӡ؍؍؍РԱϠנננɠˠ٠Š٠ˠРנ٠٠ŠŠӠ̠ō̠ԠϠԍؠĠؠԠӠ؍Ա٠Š٠РҠ٠ŠŠٍ٠Š׿ŠŠϠŠÍàРӠӠѠנԠ׿РϠ͍ؠԠנһή̍ĠȠŠàҍՠƍՠōՠčՠÍǠؠؠԠǠӠ؍؍؍؍؍؍؍    qL8L@LM J q"! U Lq"L ?`UL `mbL  mLEq] i`qj I`^``ʈ8P ߍ ߍʈʈ iiʈ.mmȭ `ii  ԠĠҍčРΠԠōč؍ÍàĠӍΠӠĠ؍ҠƠР̠ӍӍҠؠӠĠ؍؍ؠѠРčààРҠƳƠŠǮӠčԠԠҍōРԠĠҍčԠӠĠōРŮȍĠȠŠàҍǠРРРčҠƴŠǍ٠ٍ٠ĿѠӮčؠΠЍҠ ō  ԠҍàԮҍŠЍàԮҫĠŠĿƠԠϠˠϠ̠ЍРԮҫ̠ԮԮԍԮҍ̠ԮԮԍӬĠŠŠԍ̠ԮҫàԮҫ٠ؠгԮҩٍٮҬ؍؍ٍŠг٠ΠϠԠӍ٠ԠΠ٠Ѝ٠ҠΠ٠΍ÍٮӍӠԮӍǠƬՠōΧԠԠŠ̠ōҮԮ̍ѠԮҍӠԮҍàŮҍŠԮҍàŮҫԮҍĠϠԠĠٍÍԮҍàԮҍԠȠԍӠРĠύ̠РӠōԮԮԍ٠Ӯ̍ٮҩٍРٮҩٍŠҮԮٍ̍٠ŠӮ̍ŠԠ̠Š̍Ԯҍ٠ؠвԮҩٍٮҬ؍؍ٍŠвԠԠҍϮӠ͠Š΍Ԡ͍ϮƮӍԮҍϮƮӫԮҫҍԠԠŠӥ٩ӍҮԍŮҍҮԫŮҫϠԠĠٍԠӠϠҮō٠ӠϠŠǍԮΫԮҫԮ΍ӍԮ΍׮ҍ٠ؠб׮ҩٍٮҬ؍؍ٍŠбנǠŠǠЍԮӍϠŮҍŮҍŮҫϠŮҮҠҮԍҮԍ٠ҮԫϠӠҍӮҍӮҫϠנĠٍנӠϠҮō٠ӠϠŠǍԮΫ׮ҫòϮƮӠՠôԮҠՠöŮҠՠøҮԠՠ͠ӠōҮԠӠӠƠōŠΠĠ٠ǮϠҠҮԍԮ΍٠ԮΫҠˮōϠŠӍٮҠՠٮҠՠԮҠՠƹ׮ҠՠŮҠՠčŠĠӍϮƠӠӠ͠Š΍Ԡ͍ԮΠՠðӮҠՠĮԍĠȠŠàҍĠԠŠ̍͠ΠŮǠԠ͠ӠҮԠӍΠƠӠΠĠ٠ӮҮԠՠųˮҮՠ       I$ 33,30 XXX,XXX. D$;"CLOSE";FI$C :" DONE.":a ------------------------A, THEN COPY OVER THE 'RUN 10' COMMAND, :"C 11:"]RUN 10"] 8:20:9:"020":8:i D$(4) ::"ENTER FILE NAME: ";FI$::"DO NOT INTERRUPT WHILE WRITING FILE!" D$;"OPEN";FI$:D$"CLOSE":D$"DELETE"FI$:D$"OPEN"FI$ D$;"WRITE";Fb7 CAPTURE SUBROUTINE IN TEXT FILE p:::" TO CAPTURE A SUBROUTINE IN A TEXT FILE,";:0 "USING THE RIGHT ARROW KEY, COPY OVER THELINE NUMBER AND 'LIST', THEN ENTER THE BEGINNING AND ENDING LINE NUMBERS OF THESUBROUTINE,   (J) "VARIANCE = ";S2(J)= "STAND. DEV. = ";SD(J)Y "STAND. ERR. = ";SE(J)x :"NO. OF CASES = ";CASES 24::" PRESS ANY KEY TO CONTINUE ";:Z$: &J 0: : COMPUTE TOTAL (SUM) DSUM(J)0 NI1CASEXSUM(NVAR% :CEN20(((NAME$(J)))2)< I140:"*";:I:Q CEN)NAME$(J):j I140:"*";:I:: "SUM = ";SUM(J) "MEAN = ";MEAN(J) "MAXIMUM = ";MAX(J) "MINIMUN = ";MIN(J) "RANGE = ";RANGEI DATA INPUT% :I1CASED "DATA FOR SUBJECT ";I::R J1NVARg NAME$(J);" = ";s A(I,J)z J  I " ANALYSES ,J1NVAR 6570 @630 J660 T750 ^840 h870 r950 |J  OUTPUT J1),SD(NVAR),SE(NVAR)2 xASSIGN NAMES TO VARS ^ :"ENTER NAME FOR EACH VARIABLE: "::l I1NVAR 5)"VAR. ";I;" = "; NAME$(I) (NAME$(I))40Ğ:"MAX. IS 40 CHARACTERS."::150 NAME$(I)""Ğ:"PLEASE ENTER A NAME."::150 ES: ";NVARF PNVAR1Ğ:"NO. OF VARIABLES MUST BE AT LEAST 1."::70m Z"ENTER NUMBER OF CASES: ";CASE dCASE1Ğ:"YOU MUST HAVE MORE THAN 1 CASE."::90 nNAME$(NVAR),A(CASE,NVAR),SUM(NVAR),MEAN(NVAR),MAX(NVAR),MIN(NVAR),RANGE(NVAR),S2(NVARj* STAT PAX -- FIRST THE TITLE PAGED:I120:"*-";:I:" D A T A D E S C R I P T I O N"::I120:"*-";:I(23::"* BY STEVEN A. SCHWARTZ *":2I14000:I:< SET NO. OF VARIABLES AND CASES F"ENTER NUMBER OF VARIABLRREN DEVIGILI DEC/8104402 NORTH BROAD STREETM>WEST HAZLETON, PA 18201gHPHONE (717) 454-2958::34,0:"DONE!":(769)25Č768:/64096:NX CHANGE FOR CASSETTE 16K b787,234:789,234:972,234:974,234:"DONE.": CHANGE FOR CASSETTE 48K 24595,234:24597,234:24780,234:24782,234:"DONE.":  CONTROLLER EDITOR V.4 *DA MN0:(769)25MN23808g 15::"WORKING...";:L0:P24605MN24621MN4:P,(CK$(L))64:LL1: L04:DT$DT$CM$(L):L:L24679MN24752MN:L,((DT$,L(24678MN),1))128: L24679MN24752MN:(L)188ĹL,172 (L)170ĹL,186!77IT88IT85IT72IT71IT74IT83IT68ĺ:"RESERVED KEY."(7)::120` :L4LL1:100 ::L04:"#"L1" COMMAND -> "CM$(L)" KEY -> "CK$(L): :"IS THIS CORRECT (Y/N) ? "; 756:IT(16384):IT89IT78160 (IT):IT78ĬM$(L))14ĺ:"COMMAND TOO LONG."(7)::100S nA(CM$(L))14:CM$(L)CM$(L)" ": x"#"L1" CONTROL KEY ";:CK$(L):CK$(L)""ĺ:"CUT THAT OUT."(7)::120 {(CK$(L))1ĺ:"ONE LETTER ONLY."(7)::120J }IT(CK$(L)):IT65IT90IT66IT67ITF A LINE."` :"TO ENTER A COMMA OR A COLON, TYPE THEM SHIFTED. EXAMPLE: , = < AND : = *": 8:"TYPE ANY KEY TO BEGIN.":16384,128:16368,0:34,6:: d"#"L1" CONTROL COMMAND ";:CM$(L):CM$(L)""ĺ:"I'M STILL WAITING."(7)::100+ i(CYPE ONE OF FIVE"f "KEYS OF YOUR CHOICE, THE COMPUTER WILL TYPE OUT THE COMMAND ASSIGNED TO IT.": "REMEMBER THAT NO MATTER WHEN YOU TYPE A CONTROLLER COMMAND THE COMPUTER WILL ACTAS IF YOU HAD TYPED THE COMMAND YOURSELFSTARTING AT THE BEGINNING Oh::(24577)25(769)25ĺ"YOU MUST FIRST LOAD THE VERSION":"OF THE CONTROLLER THAT YOU WISH TO USE.":"THEN RE-RUN THIS PROGRAM.":: :"THIS PROGRAM IS DESIGNED TO ASSIST YOU IN ALTERING YOUR COMPUTERS 'CTRL' KEYS SO THAT ANY TIME YOU T     33,3 /  1,0,4,0,36,214,111,41,159,54,0IY)ZZ X0X0# X279X2790 Y0Y0A Y159Y159N 1X1,Y1Y 1X,Yg X1X:Y1Yo 60 ((16384)128)""ZZ1:206 K$((16384)128):16368,0: ZZZZ1 ZZ7ZZ1 I768778:J:I,J:I 232,0:20  240:0:1:3,(Z1:206Q2X1100:Y1100:XX1:YY1:1X1,Y1i<(16384)127İ202dXX(K$"L")(K$"O")(K$",")(K$"J")(K$"U")(K$"N")nYY(K$"M")(K$"N")(K$",")(K$"I")(K$"U")(K$"O") xXX(X1X)ZZ:YY(Y1   89 o L< ɐɌɒɔɗ!`gYLVvYLVYLVYLVY `ųԠΠԠ̭ o89L9F.225F$"1/4":F.291666667F$"1/3":F.354166667F$"3/8":F.3875F$"2/5":F.45F$"1/2":143n144F.55F$"4/5":F.6125F$"5/8":F.645833333F$"2/3":F.708333333F$"3/4":F.775F$"4/5":F.8375F$"7/8":F.9375F$"":VIVI1LDL(X)LDL(X)0DL(X)10DL(X)1137e(X((20(ST$)2))):DL(X):R$(X):DL(X)1137(X((20(ST$)2))):DL(X)1:" "X0(ST$)1:DL(X)L132:VI(V):FVVI:F$" "eF.0625F$"1/8":F.1625F$"1/5":)V0VV$"-"VV$LV$"":X1WN:V$" "V$::V$V$VV$:V$(V$,W):qL(37):QQĆR$(40),DL(40):QQ1216,0:X039:R$(X)" ":DL(X)0::X1(ST$):R$(X)(ST$,X,1)::X0(ST$)1:DL(X)(((1)L)L): X0(ST$):DL(X)DL(X)1:DL(X)J:I:z }NN2(N0):WW10(W0):VV$(((V)10N.5)):X1N((V)1):VV$"0"VV$::VV$(VV$,(VV$)N)"."(VV$,N) ~(V)1VV$(VV$,(VV$)1)(VV$)N4VV$(VV$,(VV$)4N)","(VV$,N4):(VV$)N8VV$(VV$,(VV$)8N)","(VV$,N8$" "O uX120:PR$(ST$,X)(ST$,X):L:21X:Q(16336)(16336):PR$::s xX3801:32,X:33,40X::: yX240:33,X::: zX124:35,X::: {X2301:34,X::: |I112:34,12I:35,12I:33,43I:32,242I:936:J118: SPACESl rL(37):SP$"":X120(ST$)2:SP$SP$" "::ST$SP$ST$SP$:(ST$)2((ST$)2)ST$ST$" " sX120:PR$(ST$,X)(ST$,X):L:21X:PR$:: tL(37):SP$"":X120(ST$)2:SP$SP$" "::ST$SP$ST$SP$:(ST$)2((ST$)2)ST$ST:Q(16336)(16336)::37,(37)1:I nST%(40(ST$))2:ST%);ST$: pL(37):X119(ST$)2:L1:40X:(ST$,X)" ";::: qL(37):SU$" ":ST$SU$ST$SU$:X1(ST$)40:L:(ST$,X,40)::::SU$ = 416)(16336):Y120::::Y j(37):X(ST$)11:X:868:Y140:::37,(37)1: k(37):X(ST$)11:X:868:Y140::Z(16336)(16336)::37,(37)1: lX240:33,X:868:Y140:::37,(37)1:& mX240:33,X:868:Y140:! 2200'c199: ::SUBROUTINES: _d24::" PRESS RETURN TO CONTINUE.. ";:}e16384,128,1:16368,0:fST$;" (Y/N) ";:A$:A$:YESA$"Y":ghX1(ST$):(ST$,X,1);:Y120:::: iX1(ST$):(ST$,X,1);:Z(1633         NJ2P:A(1,J)A(1,J)A(1,1):J:J2N:KJ1:IJN:L1K:A(I,J)A(I,J)A(L,J)A(I,L):A(J,I1)A(J,I1)A(L,I1)A(J,L):L:A(J,I1)A(J,I1)A(J,J):I,J:J2N:KPJ:MJ1:L1M:QPL:A(K,P)A(K,P)A(K,Q)A(Q,P):L,J I1N "X(";I;") = ";A(I,P)N:KPJ:MJ1:L1M:QPL:A(K,P)A(K,P)A(K,Q)A(Q,P):L,JF I1N` "X(";I;") = ";A(I,P)f "A(I,P)z I "INPUT MATRIX " I14 "A(";I;",J) = "; J14 A(I,J);";"; J A(I,5);(13) I "SOLUTION" "A(";I;",J) = "; J14- A(I,J);";";4 JF A(I,5);(13)M I] "SOLUTION"; J2P:A(1,J)A(1,J)A(1,1):J:J2N:KJ1:IJN:L1K:A(I,J)A(I,J)A(L,J)A(I,L):A(J,I1)A(J,I1)A(L,I1)A(J,L):L:A(J,I1)A(J,I1)A(J,J):I,J:J2g CROUT.DEMO *A(5,6)9 1,1,1,1H( 5,1,2,1Y2 1,-6,9,-1i< 3,2,1,-1F 100,220,190,150PN4ZPN1dI1NnJ1NxA(I,J)J,II1NA(I,P)I"INPUT MATRIX "I14     I`hhߚHH L ɺ(ɰ0$IH ehe` `H̅67hL֔=̅67 `67 `HhɡɚRɔDɃRɋAɌMɒQɆUɉVɎWɖXɁYɐZɗfənɏoɑtɂy `LL `LX ` `2`?LILILLH hL J, L?L J L? J BL?e"4#0%H $h ` Ҡҍ΍ίύŠˍύˠРٱŠΠϠϽϪҠנԠ͠ˠàϠýĪנӠҠϠנōӍҠύҠҍӍҠŠҠԍҍР°ɠҠɠҍҠ°ԠɠŠϠҍÍŠΠˍҠԠҠ٭٭΍ϠϭϭҍΠàϠčӠҠàҠԠŠΠčÍàĠϠЭƭקӠҠנРҠΠ͍Ơק̠ҍҠÍӍҠРɠҠٍ̠Рˍ٠ĠԠĠčРҠԠō̠ҠŠŠӍҠùàҠōРˠҠӍРҠōҠôРˍ àŠԍŠΠˍƠŠҍҠԠԠŠӍҠҠ͠ˍΠϠҭԧРԠԠ͍ȠҠŠҠōԠōҠ٠ԠԍӍԠҠƴàŠԍӍȠƍŠˍӍŠƍРō̠ƍРōŠƍРԍΠčРԍԠϠƠԠӠčҠϠԍàϠԠҍŠԠŠӍӠɠҠРԍΠĠȠ̭ʧРԍРҠñàŠЍӍҠРõԠҠñàŠΠ̭РѠԠ̭ЍРѠȠ̭׍РѠ٠ٍ̭РƍѠ̠̭ύРѠР̭эРѠ ̭ԠҠȠԠŠ̭̍ÍРѠΠ̭ˍРÍѠԠ̭̍РѠԠ̭ҍРѠȠ̭ƍРѠŠ̭ɍРōѠ̠̭΍РѠŠ̭֍РѠՠōύҠҠ͠ˍРӠԠҠſѠԠӬΠԠҍٱРҠŠҍҠōѠР̭ڍР̭ԠѠӍРѠҠӍίҠԍӍԠҠŠϠԠҍϠҍύүҠԍӍΠ̠٬ԠҠԠҠՠƳƠŠӍ٠ՠİàԠҠӍōҠՠĠΠҠōϠՠҠԍˠՠҠ̬ŠĠȍŠՠðΠԠԻҮ̍ĠȠŠàҍǠ°Ҡˠ͍ҠӍàՠñȠՠưԠՠҠՠùԠؠҧŠՠƴŠ̠Ӎˠ     TRUNCATING: PRINT NO. PORTION AND EXPONENT PORTION:\ j:10)"TRUNCATED: "(X$,N)(X$,I) tROUNDING: ROUND NO. PORTION, ANNEX EXPONENT PART, IF ANY: ~L((X$,N1)):P10D:LL(LP.5)P:L$(LL) :10)"ROUNDED: "L$(X$,I) :IND POSITION OF DECIMAL POINT, IF IT EXISTS:9 $J1I1P .(X$,J,1)"."ĂJ 8 J IS NOW AT DECIMAL PT. (OR END OF NO. PORTION). B DO D DIGITS EXIST TO RIGHT OF POINT? LJDI1NJD:1130: YES. VNI1: NO, SO PRINT ALL DIGITS.3 ` E BAR TO CONTINUE; ":" PRESS RETURN TO QUIT: ";:Z$:Z(Z$)J FZ3220V P:10:| X$(X): CONVERT INPUT TO STRING  FIND POSITION OF E, IF IT EXISTS: I1(X$) (X$,I,1)"E"ĂI  I IS NOW AT EXPONENT PORTION (OR END).,  F TRUNCATE AND ROUNDG:" TRUNCATING & ROUNDING NUMBERS":e6:"TYPE ANY NUMBER: ";X(:" AFTER CONVERSION TO REAL PRECISION,":" HOW MANY DIGITS DO YOU WISH ":" TO THE RIGHT OF THE DECIMAL? ";D21000= <23:" PRESS THE SPAC * *":T0250:P1$DI$((1)6.5)P2$DI$((1)6.5):(1)6.5)P2$DI$((1)6.5):$!26"DI$(1)" * "DI$(2)" * *"DI$(3)" * * *"DI$(4)" * * * *"DI$(5)" * * * OF DIRECT CURSOR CONTROLa!4 !32%"CP1$"!13!10":P2$"!13!26"dDI$(1)" * "DI$(2)" * *"DI$(3)" * * *"DI$(4)" * * * *"DI$(5)" * * * * *" DI$(6)" * * * * TRUE HOME I.E. WITHOUTaCLEARING WINDOW""aATTEMPTING TO MOVE THE CURSOR PAST THEaBOTTOM EDGE OF THE WINDOW USING THE ABS VTAB COMMAND WILL BE SIGNALLED BY A "Q$"SYNTAX ERROR"Q$" MESSAGE""!24PRESS A KEY TO CONTINUE ";!"!4!4 EXAMPLE MMANDa!8 !23+"{ "!5THIS COMMAND IS SIMILAR TO THE VTABaCOMMAND BUT IT REFERS TO LINES IN THEaCURRENT DISPLAY WINDOW"*"!13THE TOP LINE OF THE DISPLAY WHATEVERaTHE TEXT WINDOW IS ALWAYS NUMBER 1aTHEREFORE THE COMMAND 'CONTROL-B ON ITS OWN IS ANT"Q$"*"Q$" GIVES :- *"D ^"!14BUT PRINT"Q$"!!15*"Q$" GIVES !15*" h"!18ANY ATTEMPT TO USE A VALUEaGREATER THAN 255 IN A MULTIPLE aDIRECTIVE WILL GIVE A "Q$"SYNTAXaERROR"Q$" MESSAGE" r"!24PRESS A KEY TO CONTINUE "; |"!8 'ABSOLUTE VTAB' CORESS" "" Y DELAY"4 ," Z MOVE CURSOR UP"Z 6"!24PRESS A KEY TO CONTINUE " @"!4!5 MULTIPLE PRINT DIRECTIVE :- !!a!5 !29=" J"!8ANY CHARACTER OR COMMAND MAY BEaREPEATED UP TO 255 TIMES BY USING THEa'!!' DIRECTIVE" T"!12E.G. PRI MOVE CURSOR LEFT"2 " N SET NORMAL MODE"T " O CLEAR TO END-OF-LINE"m " P USER PROMPT" " Q CLEAR TO END-OF-PAGE" " R MOVE CURSOR RIGHT" " T PRINT " " V UNDERLINE CHARACTER" " W WAIT FOR KEYP"4 x"THE FOLLOWING OPTIONS ARE AVAILABLE :-a!38"? "!5"b " A PRINT CARRAIGE RETURN" " B 'ABSOLUTE VTAB'" " C CLEAR SCREEN = HOME" " F SET FLASH MODE" " I SET NORMAL MODE" " K MOVE CURSOR DOWN" " L; CURSOR.DEMO38060=(4)"BRUN CURSOR.CONTROL"E(:e2Q$(34): QUOTATION MARKS<" !40 ";:T010:" !38 ";::" !40 "F"!3!9DIRECT CURSOR CONTROL"P"!5!9BY PHILLIP R. ROWLEY" n"!24PRESS A KEY TO CONTINUE      10,32,217,3,96,0,0,1,96,1,0,17,0,27,3,0,32,0,0,1,0,0,96,1,0,1,239,216 L |917,0,27,3,0,32,0,0,1,0,0,96,1,0,1,239,216 T DUMPER" D$"OPEN DUMPER"3 D$"WRITE DUMPER"A K0EN1b "PRINT ";(34);CT$(K);(34)v ""LOAD ";CT$(K) ,"LIST" 6K @"DELETE DUMPER" JD$"CLOSE DUMPER" TD$"EXEC DUMPER" ^ hI030:ML:768I,ML:IF r 169,3,160,: DELETED FILE= TE(I):TE130TE2170: APPLESOFT FILEI TE0:I` COCO1:CO15220i 110 J130:CH(IJ):CT$(EN)CT$(EN)(CH):J ENEN1 TE0:I COCO1:CO15220 110 D$(4) D$"OPEN DUMPER" D$"DELETEM DISK.DUMP ;360: POKE IOB INTO MEMORYJJ1501m(783,J: STEPS THROUGH SECTORSv2768<SBSB1F787,32SBPJZCT$(150)dDB8192:CO0:EN0:TE0nIDB13CO256DB(CO1)25635 xDE(I2):DE255140   `00000:yjPK(121)(122)2567:EL(218)(219)256:EL$(EL):(EL$)5āAL(EL$)4:AD$AD$"0"::EL$AD$EL$tPL04:PKPL,((EL$,PL1,1))::::33,33:216,0:6000003,33:216,0:60000AL` Hَْh, Ζ0 L   ΜΖ0 :H``` 0,160:I:J,2:Jj F::(8):(12):"HERE THEY COME!":I12000:::J016:(22):"PICTURE #"J" ":J,1:AUT A BLANK DISK (VOLUME 17) IN THE"::"DRIVE AND HIT ANY KEY . .";:A$:: 2:J0162:(22):"PICTURE #"J" ":I0279J2:(8(1)):140,0I,107J140,160:I:J,2:J <:J1152:(22):"PICTURE #"J" ":I0279J2:(8(1)):140,0I,1507J14ka ::(4):"THIS DEMO WILL MAKE TWO SETS OF HI-RES"::"PICTURES AND STORE THEM ALTERNATELY":"ON THE PICTURE DISK. THEN IT WILL"::"RECALL AND DISPLAY ALL SEVENTEEN"::"PICTURES AS FAST AS POSSIBLE."(4)"BLOAD FASTPIX":768K (::"P!! ! ԠӠԠԠ֠ԠԠˠӠàӠàԬԯƠӠàĠӠԠԠԠԠԠàƬдŠϠĠԠˍàˍàԍ̠гɠԍŠŠƠˠҍҠҠ̍ҠҠӠҍԠǍӍ̍֠ԠŠԠĠԠҠԠ̠à̠àӠŠ΍ƠŠɯϠˠΠĠٍд٠¯ҠӍӠҍԠŠȠŠƠōҠҠϠԠϠōԠΠƠŠ΍ŠϠĠԠҠҍàƫàÍ̠ˍččƍō̍̍̍̍̍ƫ֍֍ԠРԠϠįōϠӍԍįŠӍǠȠϮгƍÍбנŠŠ٠ϠϠԍԬҠӍŠŠϠҠӍΠŠɯϠ̠ˍϠƠ͠ԠŠč٠ԠӠ٠ōĠŠҠčɭӠΠҩԠҍ̍àčРٍ̬Ӡčٍ̬ƠŠҠǠӍĠŠŠҠ΍ҠӠĬ΍ϠˠҠҠōĠРàŠŠԍàԍɠԍҠԍРҠŠҠҠӠԍԠӠȠōҠŠΠؠčŠҠǠΠƠŠҠӠ΍ӬŠԠΠŠōбҠԍ٠ԍРٍ̬ÍÍӍëӯëӍԠŠϠҠӍԠŠĠ٠ӍΠŠǠҭŠҠϠĠĬũɭӠΠ؍ĠȠŠàҍŠ΍̍ǠՠԠՠ±ӠՠĹàՠƵԠՠŶƸ̠ՠƳǠԠРĠЍΠϠԠύŠàō"" " " " " """