@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}WV,* pL*)* &HH,} HH !2? .$ QDH$h?멀3 QDH3h` L#LX$ $L hL;< hL~  hL! -}hLO=h` /h`LQD,L<,+L!,3L#`L8 0,4p 3@,Z5p @5  0 8 0 ,P .}3, @5 0`%˭%̠@J` 1L1X,Y-(m,,m--``0nnn/}``0...``,Э-Ѡ, i  $`` Dڭ#ԭ$ 30}0 轁##  #`RU /R`TH0   h`T  /T  /`T1}H0  TU /UTh` (,ͭ-Έ0 ɀ`T`D ]CLERROR - LINE NUMBER NOT SPECI2}FIEDp  0`NO MORE LINES ") U# / 60HH 2L ԍ#Ս$ $3# $ f L L*+ 1,)pTT` 3}L  hhL:  0HH 2` H,)0  P,)p(' ( f L!'#($ $3 LL#4})   ԍ#Ս$ $3L0!3,)0P% & f  L!%#&$ $3 LL#ɝ )L!,)0   1L1@)5}  '"L! " T  @)# / 60T   HH 20L '" $3L  hhL:  0HH 2ԍ#Ս$ 6}X"` $3%#&$`H˩̬hɛ`"01:,)P "˦ ]CL~"T`%"0TTn7}nn=0i j"en"` LISCONGOTRURETURNEX#   #0##8} #`)######ȩ ##,!0!轆#,0 :L# `轧#!` 00##9}L`##L )` L`L ` 1 w+@  %L` * 1 ,11-1 +,Z50 @5:} 4Z5 @5` La% / %,Z5 @5##R %S !%LLL 3 ::;V @9 ::C;P;}A@ WDɛ轀  ,;;&& 0L<%,Z50 @5} /T4Z5 @50P:L#<}#  #,9P ".,D 6L1 )##  #L# ) Lw%  #LN% +HH 201ԍ#Ս$ $3"#$ ,0=} 3-C`hhL1% ]C 60`ENTER TRACE OPTION,hL<,+hLh",99) Khɛ @9<L/,3CPhɛ- />}34 @5V3 @3,Z50 HH @5hhhL/H@ 44h.h,4(ɛ$*4,:3,<0 0L&<`H,0>>?} ɛ> ,/ ,* pL%*)*hL/,*0쥺 .$hL/h,0ɛ` @,C w+#(C@},9),Z50 @57#8#9 9* L~(&&,9P:9 9,Z50 @5THUHUT,@ /56' 0hUA}hT @5D 7 * #-),G 1%L:)40 0 L(,P)?) 3%L-I)%L> .$L1!,0B}%L @,0PL(L *   ,=0 , , ,$1v&(& .= +?,G 1)` -ͭ άC}&ͩ@hh`    `,JP & ) * (L~(8厍U)反V)ˍ&ȱˍ& , ,͍ ,&)& . (U)e˭V)e̠D}mͩm Υͩ(H~H .,hhL~( -ͭ  v*0`H -hh ݩe˪ę fڰFˤE} ݠ0 `ڥ0L) `ڥ ͭ `8厍1反2&hh`&H&HHH !2hhLP(` ),3 S* , , ,=/F}&*& . S* ύ- -͍#΍#! LH(1eύ2eЍ ύ&ȱύ&`˥̥8˥ * 8˥ G}*L*`HHHH !2hh`˥̥8˥ *`8˥ *L*0$ +ͭ ά `H}˥L[+˨ɛLd+ˠˠe˅˩e̠̅ɀ`)ˠLL+"ˍ̍ L+ +"G˪I}˨ɛ ˠ&ˠe˅ˍe̅̍ ɀз"`"L+ͭ Π͍ @, T, K,`mJ}ͩm Π @, T, K,`"`͎L,ΎP,`͢`,"0&L\-L\-$L(%L\-L\- LW)  hh`K}ͭ Πͨ0͠`)&&,30,Z50 @5 0 @5`ͥL-ȱ ͍΍ `eͅL}ͩe΅Πɀ`, P  `ͭ Πͪ&ͨ͠ɛ LY-` + 1 2hhhhL(HHHH !2hh`Υ͠M} αΘeͩͅe΅`h-h-h)--.-.-eHeHHH`͍΍ 8mLl-,30`hhN}#$ L*L( . .?N.Ѡ/ ]C 60ɛ .N. . s.ڠб `e΅ΩeυϠ0O}`0.eЅЩeхѩ.`iέiϥ΍5ύ6m55m66`idЩmѠ ЈЍ7э8`/P}`;"";ENTER VARIABLE NAMEɛ`>HH/HyH o2 @?!HH/HH o2 ??`READYERROQ}R/ /hHL/L/,@"P,Z5HZ5hHɛB0 /hL/ 0`B /B @`/ ]C+`@`OUR}TPUT TO PRINTER? (Y/N)"0#050!0"0#0 /50`  31BDEwHI V13))S},0`hhL1000`` 00 &1 AHH /hhA,@,A0 /A,:P P` Dڭԭ T}٩ԅ ةȱ)` ,:p 1 P ,11-1L&1U,1-1` P`HhLV1) G,p 0 .$ U} 2 1 HP 0LU1ҥҩ. h@H)Gh`,@ /L` .$ P2 ]C  60#.V} /`READY##%L &&`hf2hg2hd2he2hb2hc2g2Hf2Hb2d2 c2e2 p `c2e2p`I `hhW}hhhhΊHH]i2Vk2k2i2Ij2i28k2l2l2j2m2n2m2ͬn2n2k2Ȍn2m2L2j2l2j2``h2hX}2hhHHȱ 0:` ذ ٰ`˥̩%&'(&HH$H#H !2*ˍ%ȱˍ& l3ɀ8Y}e˅˩e̅`ˍ#ȱˍ$ l3ɀ(ˍ'`#$'(`轀)蝀`hhhhhhϊHHАЪ Z} `,4L@5,4p0?0414/0=14554L 5/4041@45[}4L 5/4,4'444)ԭZ54 @5LM4444D= ԩ"0=1,Z5 @54X\}i&=Yi'= @5L^4(ʔF(ʔF"/`5,5/PH5Ph5L5@]}`@u GN 65Z^}5IZ5;H[5h[56H5h55`Ȣ6 ]C 600ʽ HH p??L67EF6 ]C _}60<>E)>@E=@F<.>'F6 ]C 60 ؐL67 ` 7 ]ChhL1ENTER CONDITION`}AL VARIABLESTEP TRACE IF - <, >, =, <>ENTER VALUEINPUT ERROR7H -hh ݢ7 `ڐD,Fp 0#,70,Ea}p 0 ,Ep0`0` ```Dԭ3%լb%I`L`b}c}d}e}f}g}h}i}j}ENTER STRING FOR SEARCHENTER LINES FOR SEARCH - STARTk},END< ]C 60ХѩeЅЩeхѠɛ􈘠Р< ]C 60ɛ ##  #*L1) ##Ll}1, 0 L#ɛ`HHHH o2  ]C`pppBA=pppBm}pBA"=H ԍh@ /=i=e=i@=e=i=e=,GLJ? = =n}H=H p??=LJ?= P P)== 0 P ,11-1 >L=Хѭ=˭=̭=ͭ=Πˠ(>eo}ЅЩeхHHHH !2L>0ȑ)ȑ͌(> S?HHHH 3 e?HHHH 3 e?ͨ͑ˈL&>hhL1ˑp}`˥̠`8$ˍ>ȱȱP8=Re˅˩e̅L>ˍȱˍ S? 0 e?L>I?I?I?q}L>I?˪L>ˍ>О 2 1L1˝^?`^?`h?h?h?h?轆?0 Ȍ?r}˥̠00<ȌHHHH 3'e˅˩e̅?HHHH !2?HH`s}@0??)s@03Э2@#@?@@ @@@L_@L@@t}@L_٩@թ@L_?) ? ?L_@#Э@@@?)?)? ?Lbu}?)? ?`@)LFALFLN`?) C`?)`@ @@@ A ?B?)? A@7!?)?)@ ?) v}LA? B`?@@@`ODЭPDѠ1@C˥̠ɀd?ˍ??@?@? ?ȭ? @?@ ȱˍw}@ @?@?? ?e˅˩e̅LA`@ @@@@@@@@@LB@.@'?? x}@@LB?@?@@m@@m@@` Dڭ@ԭ@ ٩ԅ ةȱ)ȩ ȩ0ʊHH /hy}h?`&C ]C xC D`ŠҠ-ENTER: INCREMENT, START BPHIDE V`xCCۍz}CX@BDEHI VxCCX@@)`@ɁhhLSP`HhLCҥҩ @ @h@LC{}ԅՅ ٠ȱɛ,Șeԍ@L Dԍ@Ս@@Ɂ ?` k+TlUm DLɛ ,P0>cq |}LcDL| ALn+E(*E*E+E+E)L4hLD LH@0h 'ALD RLSP PLSPLF L ML*ML}}HMLdMLM :E*E;E+ELDLDEEEEE~EEpEvE? #6;SAVE "D~}LOAD "DENTER "DRUN "DLIST "D}rF ]C xCA BCLFEL@FEL@FEjFiFF ]C xC&ʽ`0 ɛELSPSELEC}T KEY (A,B OR C)ENTER STATEMENT-ENTER INCRENENT, START KF ]C xC D@?@@@@@@@ @ }@@ @͍'@΍(@ɀLJJ $L@@@@-+@@,@LG'@m'@ͩm(@(@@m@@m@@)L}JɀLH͍ GLDGm'@ͩm(@Π GLDGȱLG`    #`LtHȱ} &K`@ȱ  &K@`@Ȍ@eͅ)@e΅*@ D ٬@ȥԑȥՑͭ+@˭,@̭*@ˈ)@i+@m}*@,@@`ȱȱͪ LtHLH@ G@ȱ LHLH`ȱLG`RPM+@˭,@̩}e͑ȩeΑ˩˭J̬JJIJˍ@̍@ˍ @ˍ@ȱˍ@@˭@ȑLI@m @@˩m@@̠ɀ4ˍ@ˍ}@ȱˍ @@m@@m@@@˭@ȑLIL9J-@ͭ.@Ω-ϩ@РɀL>I@Q@I͍)@ȱ͍*@ Dڭ@ԭ@ ٥ͅ}΅ ݭ)@ͭ*@Πɀ ͑ϥȑL>ILI͑ȥΑϥͅϥ΅eυϩeЅРͪȱ͆ͅLI˥̠˨@ JL L K}@Ȉe˅˩e̅̈ɀLAJ PLSPȘe˅e̅ȱ˅ȱ˅Ս@ ` PJ ]C PLSPϠԠ͛ P@ @+}@˭,@̠˩@ȑ˩@K ]C PL9JĭҠŠӠ@@) cK@@@@ B? //@/@@}`/@ P` P{K ]C@ @/@`INDIRECT LINE REFERENCE IN LINE(S)@`@)`ˍ@ȱˍ@@)L?}K/@@ @K P P ]CL?KNO CORRESPONDING LINE(S)@ @)LbJL\J@ 3 ɲ@I@,@0 }ɜ 3I3h@LL,30  ҍ%Lh@ )w ɭLLLLLLLLɗ 0 3,40 4Z5 @5} 0h@ 0 r4 0h@LLLL h@ˠŨөL ]C#aNLMˠŨөM ]C$aNLMŠŨө9M }]C!aNLMŠśWM ]C aNvNLMԠ˺Š٠ϠěҠŠıIJîwM ]C xCYLSP}M ]C xCaNLNbN ]C xCP B VPBDE@HJIK V0>PaNBDE@HIK V0P B V}#;N$?NLSPP B VLMENTER Dn:FILE NAMEENTER Dn:OLD NAME,NEW NAMEˠ-ENTER START,ENDN ]C xC}ԅՅ ٠ȱɛ,Șeԍ0@Ս1@LNԍ2@Ս3@m2@2@m3@3@˥̠ɀLJ80@1@0 ˍ4@̍5@LNO O}ɀL OLO82@3@0 ˍ̍LyO OɀLNO4@<@5@=@<@=@˭̭4@ͭ5@Πˑ͘eˍ:@eő }:@ŐLOLOe˅˩e̅`8<@=@WP ]CLSPϠԛHH /HHN˭N̠ 2R,P }Phhhh`B?` HP P@?@P ]C  xC򩀅`READYWɝP`*Q ]C9 P˥̩}(Qȱ) Q Q(Q  Qe˪eŅ Q(Q@@ B`LP /` }Šś,Z5 @5Z54 3QQ/G/FGF \ \xW1}X1LL X@  Q Q LQ @HHH,E(,Z5 @5 * 1 HP 2 ,11-1 +.xO1&}L X=5=5<5*5F&G4@Z54 @5} / @5B Q HP@@ \֢@ \hhh`D:*.*S ]C}PBJDRE V05PBDDEE(HH V0 B V0LRP B V` ˠٛoRSvR}EQgQVlQV,E,ESQtQyQ((m0E/}m1E/m2E/m3E/I0E1Em(9m)::()P/ȱ///2E/3E//}p  LINAA@@2AA@@A @D @ A} _S(K}THIS IS A PROGRAM DESIGNED TO LEAD YOU THROUGH LEARNING HOW TO USE YOUR_6-@+(NEW Ǡà}.+6-@ (6-@0((6-@@2\P(HWE WILL NOW WORK OUR WAY THROUGH A SIMPLE LOOP, HAVING I AS ITS I}NDEX\6-@P<,-@@ (I=,6-@`F 6-@pP_S(KNOTE THAT THE LOOP CARRIED OVER TWO }LINES. IF THE LOOP IS SELF-CONTAINED_6-@ZZN(FON JUST ONE LINE, YOU WILL HAVE NO OPPORTUNITY TO INTERRUPT IT WI}THZ6-@d'(Ǡà.'6-An(6-AxRF(>WE'LL DEMONSTRATE THAT NOW. THE INDEXFOR THIS} LOOP WILL BE J.R6-A 0-@@ (J=$ 06-A0|(( NOW WE'LL PUT IN SOME VARIABLES.46-@}@6-@4L6-@ X6-@Dd6-@p6-A|6-A@RF(>AND WE'LL USE THEM FROM TIME TO TIME IN T}HE PROGRAM, AS WELL.R6-AP(6-A`N*("LET'S TRACE SOME PROGRAM FLOW NOW.66-ApB6-@N6-@}(X=Z=6-A6-%@6-A6-&@6-A/6-A% @P*!@%}/ Apd(\SEE HOW EASY IT IS TO STEP THROUGH A LOOP AND DETERMINE WHEN THE PROGRAM LEAVES THE LOOP?p6-A }(6-A036-@6-@'6-@D36-A@N*("NOW WE WILL TRY A GRAPHICS CHANGE.66-AP}B6-@wN6-AC +@6-A`E9(@(NOW WE'RE PRINTING HERE (in two colors)E6-Ap/#(}BUT WE CAN ALSO PRINT HERE./6-A"*(-@A *6-A,x$(LET'S GO BACK TO GRAPHICS 0.8-@}A< H6-AT6-@2`6-Al6-@x6-@6 +6-A@qe(]HERE WE ARE AGAI}N! NOW LET'S SEE HOW YOU CAN LOOK AT A SUBROUTINE AND YOUR PROGRAM TOGETHER!q6-A J(6-A0T A6-}A@^'-@A '6-APhbV(M}WE HOPE THAT THIS HAS GIVEN YOU AN IDEA OF THE POWER YOU NOW HAVE A}T YOURb6-A`rUC(;COMMAND. EXPERIMENT, AND LET US KNOW ABOUT THE WAY YOU USEF(I(U6-Ap|6$( }à'(*(66-A/#(SO THAT WE CAN TELL OTHERS./6-As( ((AND(NOW,!(AT*(YOUR7(}COMMAND,\( BASIC (WITH Ǡà)d(ISp6-As0$(WE'RE IN THE SUBROUTINE NOW.06-A,}-@@ (Q=,6-A 6-A 6-A0$ D:DEMO.FINA @D @ A]%@@  +AR@S+(#àҠРŠ }S(#㩠Ǡ堠?-@@#-@)(|5-@8;(|? (c-@@) }-@@6/(3 E-@@K(]-@8@c(2&-@@#( DIRECTORY&(<.+(#PRE }SS AND THE KEY INDICATED.(F++(#D. DISK DIRECTORY Q. PROGRAM KEYS P,,($E. ENTER PROGRAM R. RENAME FILE(S)Z }**("F. FORMAT DISK S. SAVE PROGRAMd,,($G. RUN PROGRAM U. UNLOCK FILE(S)n,,($K. LOCK FILES V. VARIABLE TAB }LEx,,($L. LOAD FILES X. DELETE FILE(S),,($O. LIST TO DISK 0. TOGGLE CONTROL(( P. ? #6; %-@@ }((c-@@)-@@6/(3 E-@@K(]-@8@c(-*(" PRESS THESE } KEYS WITHOUT CONTROL-(##( OPTION - BLOCK DELETE &&( SELECT - RENUMBER PROGRAM&&( START - NUMBER } GENERATOR>-@@">(# ԠŠŠҠϠĠŠ: A`-@@K::)@ }&@@#+&%D:HELPAR@S+(#àҠРŠ @GAv M B+)@@d};B7tAMA@XAR@'-@@X(,WOULD YOU LIKE TO CONVERT YOUR PERCOM DRIVE:}RR(J 1. FROM SINGLE TO DOUBLE DENSITY 2. FROM DOUBLE TO SINGLE DENSITY,,($ 3. DON'T CHANGE THE DENSITY-EXIT}3( (3(%PLEASE TYPE THE NUMBER OF YOUR CHOICE(F@.@@K:;)@F@2} @I)!@Q%<"@I6-@F"@P6-Kd"@Q!@A(3AR}EB7tAGWAa+dP6-?:A6<,ZA((CONVERSION COMPLETED3-@A}7 A+dX@A('AR9B7tAGKAU+X N0-@@}")A5%- 0$-Ndd104,104,104,141,94,6,169,49,141,0,3,169,1,141,1,3,169,15,141,6,3,169,78,141,2,3,169,64,141,3,3}0N[[169,0,141,4,3,169,62,141,5,3,169,12,141,8,3,169,0,141,9,3,32,89,228,173,94,6,141,5,624Nkk169,79,141,2,3,169,128,141,3,}3,169,0,141,4,3,169,62,141,5,3,169,12,141,8,3,169,0,141,9,3,32,89,228,96llTHIS CHANGES ALL VARIABLE NAMES TO A RETURN. T}HE NEW FILE ON THE DISK, D:PROTECT.ED, WILL LIST ORaaLOAD. IT CAN ONLY BE RUN. TO OPERATE, PUT IN A NEW DISK AFTER } APPENDING, AND GOTO 32766SC-F:A0,%AV$F:A1,F:A2,%AV$F:A3,OAUS 3F:A8},%AV$F:A9,%@D D:PROTECT.EDG B'` M B+)@@dF/ V/P5555!5#555'5;[565=5=58=6=5<*55F&GxW1X1O}1L L&L X܅ Q Q QB Q ҍI  ҍ 91SW 2čh2 3 3 HP 1,Z50 @5"U }]CL