' +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- ( 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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`Ѐ<<<=???><<<===?<<<>===WTTTVUUUWTTT??>=>>>>>>>>VVVUWTTUWTTT>==>==<<<@A00 0`0 ( WvL00 ]^0L ]^00 0`0 ) LIƠL$`H 8@  LLr ii @ K LLr i2LHJh l0LT`B 0 PQ @$)"#L"# L P@a@a䧀@a@a@a䧀@a@a@a@a@a@aU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@a@a@a@a@a@a@a@a䧀`@a@a@a@aժժժժժժժժ@a@a@a䧀@a@a@a@a@a@aU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@a@a@a@*a@a@a@a@a䧀`@a@aժժժժժժ净@a@aժժժժժժ净@a@a@a䧀@a@a@a@a@a@a@a@a@a`@a@a@a@a䧀`@a@aժժժժժժժժ@a@a@a@a@a䧀@a@a@a@a@a@a@a@a@a`@a@a@a@a䧀`@a@a䧀{P IFJF NO $Q  hh `WFFFF'G[GG@@ D   @ @ @ @"@T *@   (@ T@ @P@ (*  *@PT@*@ T HHi8 M Hi8 M {P _D`D NO $Q  hh `mDDD E=EqEE ( T ( @@ P@ ( @*P@ @P@`xxpx0 \p@ p1p1`q`  8 `@`c`c@c#@! @ 0@p@<@@G@GGGC@A`ax8AB; H HHi8 M {P uBvB NO $Q  hh `BBBCSCCCp>p8 w`|`p< < 8<n@xA8|`|`|8 px~@x@~xp @@`p|?p?|p`@@@`x~`~x`@@p?|@|p?@L@LBLCLELGLIL@p~?p@>@a@a䧀@a@a@a@a䧀@a@a@aժժժժժժ净@a@a@a@a@a@a@a@a@a@a@a@a@a@a䧀@a@a@a@a䧀@a@a@aժժժժժժժժ@a@a@a@a@a@aU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@a@a@a@a@a@a@a@a䧀@a@aJHFFFFFHJJLJJHFFFHJHFHHFFFFFFFFFFFFFFFFHFFHFFFHJHJJHHFFHJLLNNNNLJJJLJJHHJHHHHHFFHFFHFFFHJLJHFFFHHFHHHHJLLLJLNPNNNPPNNNLNPRPPPRPNPPNNPPRW;   ; ; ; PIKMODE HOME ; CLRKEY TEXT PGE1 ; PSTRNG  8D8D8D8D8D8D8D  " " jlnljljhhjlnllnllnllljhffdbdffdfdfdbddbddbbdfhffffhfdbdddddddfddb`bbb`bbb``^```b`^\^\^^`^\ZZXVVXZZ\ZZZXVXZXVTRPRTTRRRRTTTRRRTVVXVVXVTRTRTVTVXVVTTVTTRRRPPNLLJHHHHJJJLJHHJLJJJHHJJJJLLLLJHFHHJHFHFFFFFFFFFFFFFFHHJJLLLJHFFFFFFFHHHJJJHFHFFFFHHJJLJHJLJLNLJJLNLJJHPPRTTRTRPPRRPPRTVTVVVVXVVXXZZ\Z\\^^^``bdfdfdddbddbbbdfhjjhjjhjhhjhfdfffhjljlnnllnppnljjhjjjljhfddfhffffdb`^\\^`^^\\\ZXZZZ\\ZZZ\^^`^\Z\Z\ZZ\ZZXVXZ\^^``bbddb`b```b``bbdfdffdfffhfhfhhhjhjhfhhhfdffdb`bb`bddddfhfddffffdfdfhjlnprrttvxvtttvxvtrrtvxxvtvxvtrpnnlnnlXVVXXXXVTRTTRRTTVXVXVXVXZXZZZZXVVVXZXXZXXVTRPPPRPRPRTVTTVXVTTVTTTRTRTVVTRTVVVVXXZXXVTTRPNLJJHHFHFFFHHFFHJHJLJHHHFFFHHFFHFFHFFFHFFHFHHHFFFHJHJJJJLLJLJJHHJLNNLJHFFHJLNLNPPRTVVTRTTRPNNNLJHJJHJHHJJLNLNPNNPNPRTVTVTRPPRRPRRRPRTVXVXXVVTVTRPNPPPRRRTVVTRPNNNPRPNPPN YHIBFHJHHHFFFFHFFFFHHFFHJHJHHFFHJHJHFFFHFFHFFHJHFFHHHJLNNLLLNPRTRRRPPRPPPPRTTRRRPNPNPPPNPPNNLJHHFHHFHFHHJJHHHJHFHFFHFFFHFHFHFFFFHHJLLNNPPRPRTRPPNNLJHHHJLLLJHHHJJLLJJJHHFFHJJJLJHJHJHFFFFHHJLJJLJLLLLJLNLJLNPPRTTRRPPPNLLLJLJJJLNLLNPNLNLLNNPRRTVXXZ\ZXVXVVVXL L hh LQll1 ; #$0D HEIGHT ; EPIC0.2 YAXIS YLOBYT,Y LBASE $ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ %%PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP((((((((((((((((((((((((((((((((?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,(  !!!!!!!"""""""#######$$$$$$$%%%%% @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @V5,AU 0U@U>|`T 0E2,jX50*`* +|x&@)` 50dX"T0j`T2@UVxpL S2@j`H0E(` T@)e+5, p`&e+T@ ` Q@(SJVjX`@02LJV( @" +P&,U05@ @T*U @*`? U* A" U"`#```P(T *U*@@*U@E@*E@G H8 HiM {P KK NO  $Q   hh `KKL>LjLLL`d,Q&@ +DV L*X*`j>@I0*X" LQ   hh `+JRJyJJJJK@@@ P (T**UU* U @ P*(UT*~*U *~@* UP*(U|T*(T*|?*U@* UP*x(U (P(Ux888T*U@* U pP*P P*pppp(@"@@ ""D  @DD@@"   H8HiM {P JJ NO  $NO $Q  hh `AHuHHHIEIyI D@ @  $ !@  !@@H@B @@B  A @ D @@@    @ @@@" HHi8 M {P 3H4H  @@@@@@   @@@@@@ @p$%@@@@@@@ `HJ@@ HH88 M {P gg NO  $Q) * 8@T       @p) @@@ @@@ @`8R  p@( @ @`<Q"@@ @@ @x"E@@ pD @` HH88 M {P dd NO  $Q)  hh `d+ekeee+fkf @@``"E@@@D  HH88 M {P cc NO  $Q)  hh `ccccd6dRd<@* x T  @ BSL$bL-cLndLfLjLjLkLlL\nLoLqL5s HH88 M {P bb NO  $Q)  hh `bbbbbcc* T 88@( @ ppQ"@@#0 DELTAX  JPMD7 ; JPMD5 PBTN2 JPMD6 ; #$FF DELTAX  JPMD7 ; JPMD6 #$80 DELTAX ; JPMD7 GUNFLG JPMD12  PBTN0 JPMD11 ; JPMD12 #0 SHTFLG  JPMD8 ; JPMD11 DELTAX JPMD9 ;H@@@@ F@?  6  @  68l<~=@<@<$$$lMD3 ; #$FF DELTAY  JPMD4 ; JPMD3 #$80 DELTAY ; JPMD4 ANN1OFF ; PBTN1 JPMD5 ; HHi8M {P `_a_ NO $Q  hh `n____ `1`X`pXx00|zyyHHHX`0p``xtrr0@``#@!@phdd   `@ @GC#`PHyHHHX`0p` `xtrr0@``@A@1phdd   `@ @c`PHH@@@@ F@?  6  @  68l<~=@<@<$$$l < @<<<$$$68l@x@01~xxxHHHlpXqab|pp p X HHi8M {P ]] NO $Q  hh `] ^0^W^~^^^pXx00 |zyP H\I\ NO $Q  hh `V\}\\\\]@]`0bBDx` ``   0@`Dp@@'@'@@@`@ `/OO @  @?^6  p@@'@'@@@`@ `/OO @  0 @?^6<`<<<$$$68lx 0@1~xxxHHHlpXp@`c|pp p X HHi8M {$$68lx00|zyyHHHlpXp``xtr r X HHi8M {P ZZ NO $Q  hh `ZZ[?[f[[[`0`AFx` ``   0@`@O $Q  hh `>YeYYYYZ(Z`0`@@ph dd   0@`@`PH'H'@@@`@ @ /OO @  ?@^  6<~=@<@<$5l*mDG(DD `U:0UjXUZP ~@+u`*U0+5~ (|?Wj@U*`Vj |?@  P( x.U+U@-U @x@ @ HHi8M {P 0Y1Y N ADBE LWLXLOZL[Lg]L^ HHi8 M {P WW NO  $Q   hh `WWWX?XkXX Q@ p\*V* [*q @ @"A`8U,U6U6b#"A"E@p*X*0000000LcvLvLwLwLyLyLyLyL%zLLzLszLzLf{Lv{L{L{L{L|L|L9|Lm|L }Lz}L}L}L)~LB~L~LLhwLLLYH(w(w8wHw @h`(wt)8wHw wv wv (wƅK)@`L (wy0 }8w Lv}8w8wLv(wƅ` wv(*T*Uz_ 1|?P(T(T*t?00b00x80808080808080  0000000000000000  8080808080808080  0000000000000000  8080808080808080  0000Ԁ@"P"P*P@A`@A`耀聀ĀE E U  @@ЂЁЂЀ @ @*@~#  *U*}/ F ~%&T(t?00b00x HHi 8 M {P ss NO $)A  hh `ss(tdtttu Q(Q(Uh``0D``pԀ@A`@A`𓀀ꀀ쀀) 1 E  @@ীրԁ؁R@b@ @~# πꀀ$ E)*}/ F ~Ԁԁ؂ІH S*Tz_ 1|?P(T(t?00b00x HHi 8 M {P qq NO $)A  hh `qq rErrrrޏЂІ J(L(Qh``0D``p@PP"P  $Q)  hh `6pVpvppppp Q(Qh``0D``p"@"P"P@A`@A`DE E  @@ @ @~#  *}/ F ~ (*Tz_ 1|?@@PP"P@A`@A`  E  @@@@ @~# (*}/ F ~ P*Tz_ 1|?  T(t?00b00x HHi8 M {P (p)p NO  (*}? F ~@ P*Tz 1|? T(t00b00x HHi8 M {P nn NO  $Q)  hh `nno9oYoyoo @(@(Qh``0D``p p HHi8 M {P nmom NO  $Q)  hh `|mmmmmnyLgy`$2 y`Vc y`` q` rLxyIi0LwLwf~ Lx}ky' yƇƇT8Lx y懥+iLxyIi0LB=?C ,`07P L  Ѝ  z{W ԧLbcdefghijklmnopqrstuvw(PQRSTUVWXYZ[\]^(PQL i 3h 3`!3!5C">#@#$3hp$3`&>'@'(hp(3)C*8+@+,hp,3.8/@/ 0h033@3 4377 83;; @H<3<3>H>@?? @ ]!8<<<===?<<<>===WTTTVUUUWTTT??>=>>>>>>>>VVVUWTTUWTTT>==><<<JJJJ$v04vLc0Lc$vIiIiJJJJ$0 LcQLcLr 8 X v $L #L # hh`HH8J0 vhh`HHJ )` 8 0#0'  # X v L #L # hh`HH88j0 vhh`HHLLLMLkLLL4LY+0P 6ve `iH hեeᅂiL"` )P +0`HHJ )` 8 0#0' $ # ǢwiU !)@` LU` @@ @x"E@@ pD @` HH88 e ,h kk flg  $Q)  hh `k6lvlll6mvm,0 ,0hh` *X:v 6veH @ shи` ` JJFfi8   `8Lhh LlWW WWW WWW8 :}e~i~DL4ņ5L4Ň,:\%)߅)ߝ\: )LޔJ  ) L) L)) X\ L`$`HH ,0J,0hh`$`HH@н)@c0)$%X i07:Xv vI)cd `)@L) )L ) m8}~LL=) Lk6Lk8 LkLLk H sh  )߅LJywv@ ` vyw`0L`}e~iLdL~D LŇ5L}ņ(UdfL @ywv v`018夰Ii!8奰Ii  @ywv v` yw W v`ɴ  Q i  W% Wv Nv *v $v`Ɨ0[ ) `$` 6vJJJ ,0`$`@,0`;)5ey0eL eL  ` v v v`)Lx | |L P|v 08L iv`B0 >* @ ( B0@>* @`a2 D8}E~@B)@B)B`B )B`B B`aL) F}e~i B0,D8EIi6 >``" 8 9v`eeeة`0  @ / 0 @`0ƸL 6vŪl%v0 L^  L 0eL e=y0eL e*0eɹL eɤ)` `BC`EDFGBC s s ,W,R,T,P, `v   m Ev v   v t }~L i`L@Wɛ,,ɛL ɓ IL ɒL.ɉ Zv ]vL.ɴ ɱ){L ɌL,`` !v QvLq ` v ?v Bv`L`LLUL L LsL LLK A Zv ]v{z K v   LU K v  Lstuvwxyqr}~|1 !v Kv W  e  v                                          %(I))","F9$(PO%(I))7 ~I:"/*EOF,,,,,,,,,":D$"CLOSE"L ::24:10,30:D170, SPO%(A):PO%(A)PO%(B):PO%(B)S:140v `D$"DELETE DATA 19"YEAR:D$"OPEN DATA 19"YEAR:D$"WRITE DATA 19"YEAR: jI0MX1 tF0$(PO%(I))","F1$(PO%(I))","F2$(PO%(I))","F3$(PO%(I))","F4$(PO%(I))","F5$(PO%(I))","F6$(PO%(I))","F7$(PO%(I))","F8$(PO:MX0ğ::12:"DATA FILE EMPTY"::I01500:I::D$"CLOSE":60040 34,3::I0MX1:I;:4:(F1$(PO%(I)),16);:21:(F2$(PO%(I)),19):I 34,(37)1 "ENTER NUMBERS TO SWITCH ";A,B A0B060000 AMXBMXABĺ(7)(7)(7);:5 PMX0:D$"OPEN DATA 19"YEAR:D$"READ DATA 19"YEAR ZF0$(MX),F1$(MX),F2$(MX),F3$(MX),F4$(MX),F5$(MX),F6$(MX),F7$(MX),F8$(MX),F9$(MX):PO%(MX)MX dF0$(MX)"/*EOF"120 nMXMX1:90 xD$"CLOSE"D ::1:"#";:4:"NAME";:21:"ARTIST"::34,300),F4$(200),F5$(200),F6$(200),F7$(200),F8$(200),F9$(200):D$(4):::255::D$"NOMON C,I,O" 2::" HAND SORTER ":" ANOTHER M.P. PROGRAM ":: <"ENTER YEAR OR HAND SORT 19";YEAR:YEAR56YEAR84ĺ(7)(7)(7);:60 F::18:"19"YEAR:MU ------------------------- HAND SORTER -------------------------ANOTHER 1984 M.P. PROGRAM ------------------------- MARCH 4, 1984 -------------------------] (PO%(200),F0$(200),F1$(200),F2$(200),F3$(2BA%BA%1 BA%8BA%0$ BA%/ XP,YP: 62454A 7U BA%3BA%7Ē0^ 120r ,16368,0::: ' DECEMBER 18, 1982 ' BY: MARK I 7BA%0 (60)2120;<X(0):Y(1)LFX240X240]PY240Y240sZXP((X279)240)dYP((Y191)240)nxXP,YP60XP,YP(16384)155300(16287)127190(16286)127170130   (08)II11I15010 MARK 00190 MARIANNE'S TYPING PRACTICE PROGRAMC0::q0:"MARIANNE'S TYPING PRACTICE PROGRAM":{0(34,102I1350<A$:A$;0AA$(08)II10FA$(13)ī500PI0Z(07);0dI150nA$:A$;0xA$(13)ī50 1}A$S REQUESTED BY JESS"+ xCN(40(L$(1)))2= I1(L$(1))K 12:ICN] (L$(1),I,1)u 768,I255(L$(1)) 769,10 770 ,I 1 623:24:"UPLOADED BY MARK" @ D$"BRUN LUNAR LEEPER"68,0:20:460:T231000,4000,2000,3000,5000E(16384)160400^T:1:" ";:RT:" "g460nTw300SO16336:X(SO)(SO)(SO)(SO)(SO)(SO): ENTER -----::41):13)"ADD NEW ENTRY"41):41):::34,4"ENNTRY": " PRINT FILE":4 " STATUS UPDATE":I "" EXIT PROGRAM"W ,T8162g 6T:1:"["; @T23330,340,350,360,370 JRT15:380 TRT16:380 ^RT12:380 hRT15:380 rRT14 |RT:"]" 16368,0-(16384)141Ĺ163---------- 30:YEAR$"NONE") ::N " MARK'S RECORD LIBRARY "24):r " A 1984 M.P PROGRAM"24):: :"-----------------------" ": CURRENT YEAR = "YEAR$" :" "-----------------------" :" ADD NEW ENTRY": " EDIT OLD ED$"DELETE DATA 19"YEAR:D$"OPEN DATA 19"YEAR:D$"WRITE DATA 19"YEARR xJ0MX1 F0$(J)","F1$(J)","F2$(J)","F3$(J)","F4$(J)","F7$(J)","F5$(J)","F6$(J)","F8$(J)","F9$(J) J:WF%0 D$"CLOSE DATA 19"YEAR START MAIN PROGRAM --------TA FOR "YEAR$:? <D$"OPEN DATA 19"YEAR:D$"READ DATA 19"YEAR FF0$(J),F1$(J),F2$(J),F3$(J),F4$(J),F7$(J),F5$(J),F6$(J),F8$(J),F9$(J) PF0$(J)"/*EOF"MXJ1:D$: ZJJ1:70 d WRITE YEAR ----------D n:::9:"WRITING DATA FOR "YEAR$::$(100),F2$(100),F3$(100),F4$(100),F5$(100),F6$(100),F7$(100),F8$(100),F9$(100):BL$"________________________________________":ST$"****************************************":WF%0: ( READ YEAR --------- 2:YEAR$"19"(YEAR):J0:::9:"READING DAT)---------------------- RECORD LIBRARY PROGRAM ---------------------- A 1984 M.P. PROGRAM ---------------------- MARCH 18, 1984 ---------------------- 180 INIT VARIABLES -------------- D$(4):D$"NOMON C,I,O":F0$(100),F1                   éͮЮ]]Ҡ]8ذqذҰٰqٰұB`ذ%ذqL`ٰ%ٰqV[ d6?e M6K d6?eQ q `%q q-r M q-r `%q-r _]]Ҡȭ]]q-rx\ M\`.?6@r$`.?6?r$ `.?6?r$  M_ аq2?r`а%аq бq2?r`б%бqаqаҰqабqбұqб$ذq8аFr9.ٰq8б0r96 ذqٰ#q60q6/q6,!q6-q6,q6, (O4r[2-rq-rq*-rqU-rq-rq-rq-rq-rq <qFMd6?e Pd&e@ ZM dd6?en   ;A$(I3);",";A$(I4)1I11D$"CLOSE FILE 1"a20 MARK 002'0 DECEMBER 10,1981:0 TEST PROGRAMF0A$(20)R0I120]0(A$(I)d02Ip0<D$(4)0FD$;"OPEN FILE 1"0PD$;"DELETE FILE 1"0ZD$;"OPEN FILE 1"0dD$;"WRITE FILE 1"0nI12051xA$(I);",";A$(I1);",";A$(I2);"," Πìɬύ͠Šȍ͠Šȍ̠͍͠͠ؽϲıŷجıԺΠìɬύų˨ 162,0,32,117,253,160,2:  138,145,105,200,169,0,145Y  105,200,169,2,145,105,96(XX$)042) ZSA$(I)V$":"IN$:II11 d42K IFLEN(IN$)<>21THEN50^ V$(IN$,16,3)f 42q 216,0 D$;"WRITE PRESORT ";A$ J0I1 SA$(J)  D$"CLOSE PRESORT ";A$:D$"CLOSE ";A$ : I768788 J:I,J:: ,5d D$(4):D$;"OPEN ";A$:D$;"OPEN PRESORT ";A$:D$;"DELETE PRESORT ";A$:D$;"OPEN PRESORT ";A$o #1000 (D$;"READ ";A$ *768:IN$(IN$,1) <(IN$)542 F(IN$,1)((">")128)500 KXX$"":L13:XX$XX$(((IN$,3L,L))128): PZTOTAL CATALOG PRESORT4 JUNE 10, 1982O(C)1982 M.P. PROGRAMSUvIN$"X":V$"000":"MON O,I"SA$(2000)2000:I0 ::"TOTAL CATALOG PRESORT.":"(C)1982 M.P. PROGRAMS.""ENTER FILE TO PRESORT?";A$: 34    0 MARK 003'0 DECEMBER 11,1981-0 40 7=0I%0E080P0SX%X%[0(SY%Y%c0280o07I%I%10<SX%,SY%X%,Y%0AI%50100F300PX%((6754)279)0ZY%((432)191)0dN ENTERING A NEW CLIENT RTNB4::10:"ENTERING A NEW CLIENT":_>34,1: LOCK WINDOW TOP.CMX100ğ:12:11:"CLIENT TABLE FULL"::I12000:I:230: TABLE FULL MESSAGEHIMX1:THIS IS THE SUBSCRIPT I WILL USE.R:CLEAR THE SCREEN AGA ITMA$(32)ī650: IF IT WAS A SPACE BAR THEN GO GET WHAT EVER IS LEFT.k::AND BACK HOME WE GO. AT0:10000:FORMAT GRAND TOTAL#:"END OF DATA. TOTAL AMOUNT=$";N$;:A$::THE END OF ARRAY MESSAGE %::AND THIS GOES HOME TOO*A$(32)780:OR WAS IT THE SPACE BAR?Z750:NEITHER?? THEN BACK TO GET THE RIGHT KEY. 34,1:23: MOVE THE CURSOR HERE. K141:THE NEXT COUPLE OF LINES JUST BLANKS OUT THE END OF PAGE MESSAGE." ";K23:AND THIS IS THE END OF LINES.:IMX800:IS THIS THE LAST LINE IN THE ARRAY?_J23750:OR IS THE PAGE FULL??{660:GET ANOTHER LINE.34,23::" FOR MORE, TO STOP.";:A$:: MESSAGE FOR PAGE FULL.A$(13)780:DID HE HIT RETURN?& LINE COUNTER 5J1:COUNTS LINES PRINTED ON PAGEGPRINT A LINEOI;_4:AC$(I);o9:NA$(I);24:" ";DA$(I);A(AM$(I))T0T0A10000: FORMAT IT33:" ";N$II1:JJ1: INCREMENT BOTH LINE PER PAGE AND TOTALHE SCREEN5:4:"ACT#";0D14:"NAME";AN27:"DATE";TX34:"AMOUNT";Z]bMX0Ģ12:12::"DATA FILE EMPTY"::Z12000:Z:: PRINTS DATA FILE EMPTY MESSAGE WHEN NEEDED.l34,1:LOCK TOP OF WINDOW.v:CLEAR SCREEN.I1::810: ENTERING NEW CLIENT8A$"2"FL$"1":1130RA$"3"FL$"1":1500yA$"4"FL$"1":2040: SORT RTN.A$"5"50000A$"6"2620450:HE DIDN'T ENTER A VALID COMMAND.& PRINT TO SCREEN SUBROUTINE. 0::T00: CLEAR T11:10:"2) DELETE OLD CLIENT";B12:10:"3) EDIT CLIENT";b13:10:"4) SORT CLIENTS";14:10:"5) PRINT CLIENTS";15:10:"6) EXIT"; AND NOW INPUT CHOICE.17:10:A$:A$;AND NOW SEE WHAT HE CHOSE.A$"1"FL$"1" SCREEN."*";0"AND NOW BOX IT IN.<,I121F6"*";T@40:"*";[JITI140:AND THE STARS ACROSS THE BOTTOM.^"*";hIrAND FOR THE INSIDE OF THE BOX.|8:15:"ENTER OPTION";10:10:"1) ENTER NEW CLIENT";#AGE DISPLAY.% MX0:MAX LINES IS 09 130: AND BACKY BACK TO THE MAIN PROGRAM D$;"CLOSE ";FI$:CLOSE THE FILE NOW THAT WE ARE DONE WITH IT. THIS PRINTS OUT THE MENUE. :CLEAR THE SCREENI140:40 CHARACTERS ACROSS THE GET NEXT ONE& 142: AND GO GET IT: THE ONERR RTNo (222)5ij: BOMBED OUT FOR THE WRONG REASON?? CO$"1": THIS IS SET SO WE DON'T TRY TO READ LATER. ::12:"FILE ";FI$;" IS A NEW FILE.": K12000:K: THE PAUSE FOR THE MESS WE HAVE A NEW FILE.F AC$(1)"*EOF"MX0:220:END OF FILEALREADY?` I2:TO THE NEXT ONE. AC$(I),NA$(I),AD$(I),DA$(I),AM$(I):READ THE NEXT LINE. AC$(I)"*EOF"MXI1:220:THIS IS WHERE I EXPECT TO HIT END OF FILE II1:INCREMENT TOD$;"OPEN ";FI$:OPEN INPUT FILE^ d170:JUST IN CASE WE HAVE A NEW FILE WITH NOTHING IN IT. nD$;"READ ";FI$:OPEN IT FOR READING xAC$(1),NA$(1),AD$(1),DA$(1),AM$(1):IF WE DO THIS WE ARE OK 216,0:RESETS ON ERR RTN CO$"1"220: SEE IF A? BS1$(100),S2$(100),S3$(100),S4$(100),S5$(100),S(100)m C ALL THE PRECEDING ARE JUST SAVE ARRAYS. FD$(4):CTRL-D KCO$"0":FL$"0": JUST A FLAG FOR ERR RTN. PFI$"ACCOUNT REC.FILE" UBU$"ACCOUNT REC.BKP": BACKUP FILE.  Z$ MARK 004 - VERSION 3; WRITTEN BY MARK PERCIVALU HOME PHONE 620-6696[NA$(101),AD$(101),AC$(101),AM$(101),DA$(101)#(NA$ = CLIENT NAME-AD$ = CLIENT ADDRESS2AC$ = ACCOUNT NUMBER7AM$ = AMOUNT <DA$ = DATE              $;"CLOSE ";A$( D$;"DELETE ORIGIONAL"1 300@ I768788P J:I,J::m  162,0,32,117,253,160,2  138,145,105,200,169,0,145  105,200,169,2,145,105,96ISE SORT ";(A$,(A$)8)1 ,:37,(37)1:34,0:c 16368,0:"DO YOU REALY WISH TO EXIT?";:AA$t AA$"Y"430} 240 (7);(7) D$;"RENAME ";A$;",ORIGIONAL" D$;"OPEN ";A$ D$;"WRITE ";A$ J0I1 SA$(SA%(J))  D J (7):IIKE 2:35:((((II1)I)1000))10;"% ":24\ (16384)216400i FL%205x (7);(7) D$;"OPEN SORT ";(A$,(A$)8) D$;"WRITE SORT ";(A$,(A$)8) J0I1 SA$(SA%(J))  "D$;"CLOSE ";A$:D$;"CLO107Č7786 (222)5ij_ III:1:24:"NUM TO SORT=";I;".":2:24:"LEFT TO DO=100%":24i FL%0w J0II2 (SA$(SA%(J)),(SA$(SA%(J)))11)(SA$(SA%(J1)),(SA$(SA%(J1)))11)FL%1:B%SA%(J):SA%(J)SA%(J1):SA%(J1)B%:X(16336):KJ1 :34,5& (A$,8)"PRESORT "50; (A$"PRESORT "A$G 2D$(4)Z <D$;"OPEN ";A$o PSA$(MX),SA%(MX) QI0MX:SA%(I)I:I RI0 U200 ZD$;"READ ";A$ d768:IN$(IN$,1) xSA$(I)IN$ SA$(I) II1:100 216,0:(222)ЭTOTAL CATALOG SORT V47 DECEMBER 24, 1982 R(C)1982 M.P. PROGRAMSXu"MON O":"MAXFILES 1"IN$"X":5000MX1000:MAX-ARRAY-SIZE ::"TOTAL CATALOG SORT V4.":"(C)1982 M.P. PROGRAMS.":"ENTER FILE TO SORT?";A$    Ƭ@*#rE(ӠΠӠǮԠ٠٠Ϡ)R_:\]éͮЮӊ̊^q<@*#rr`$`$a@E(Ġ)E@R@q<@* # rr`$`$* M6a@ q_*UVW4M6]>YbHa(٬ԠŠŠϠ)EN[Xa@E(Š)E@ba@E(ң)ld6?e]ҭvQ]ԠӠM6M6P8(;@rra@ M6|cZa(ҠҠҠǠԠΠŮ)S(ΧҠǠƠũ)&@`;@r$ |d e d e d e  d e d e de de  deH de de5 de8 de de@ deL de de deL &de 0de:d6ed7eDM*#r9()$_ d6?eKq.?6@r`$X`$`.?6?r$`.?6?r$`$qM6_ "de ,de 6de @de Jde Tde ^de hde rdḙP`.?6@r$nZ@p(Ԡ)d_x%nM6S(ҠŠŽ)&@xa(Π)E@`;@r$`@*#r9()$a(Ġ)E@ q M6R@a@`;@r(%q qR@`$`@ ]ˠΠ5]Ԡ͠ҠŠ̠Ǡ͠]Π٠ˠҮ(]2\"]?7`.?6?r.?6?r%q]ӭҭӭ!<N@"ZrC@"ZrC@"rF@p()]    ӬŠϬƬx\2Q]]٠]éͮЮ]I N@"rK)deidedeZ]ؠ~]ԠĠƠ(_Z 2]Š!<UVW;@rde<@*rrY FM6P[Z@p(ĵǠŸ)d\2Kn@p(ƶ)  1n"CHR$(";I;")=";(I) 1xI)125561"PR#0"<1H=0 MARK 005(0 DECEMBER 22, 1981E0 201,141,240,21,201,136a0 240,17,201,128,144,13|0 201,160,176,9,72,1320( 53,56,233,64,76,24902 253,76,240,2530<I768768270FV:I,V:I0P54,0:55,30Z10020[0_01dI0255  \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.................................514 685 2027>COMPU-NORD (D. D. O.).......514 685 1557lCOMPU-NORD (DOWNTOWN).......514 842 4696KEVIN ORR...................514 695 6456\.......................................\.......................................$\...PAPER WITH NO NAME..........514 620 4791XPETER KINGS.................514 620 2365CATHE HOAR..................514 683 7168DR. PECKNOLD................514 344 3296DORIS FLEURY................514 344 3388MARIANNE MALLAIS........IRL)......514 697 3423DKAREN MITCHELL..............514 626 8146rSYLVAN THAUVETTE............514 684 2838MIKE RADFORD................514 626 1478BRUNO ???...................514 332 5075CLAUDETTE ST GERMAINE.......514 626 9786*340 DOMINIC CHOW (HOME).........514 767 6991^ DOMINIC CHOW (OFFICE).......514 874 8960 PETER BENNETT (TORONTO).....416 752 2447 SCOWCROFT...................416 294 7799 ANDREA HENDERSON............514 626 6758MAUREEN (STEVE'S G................514 931 6542J NANCY COSGROVE.*............514 697 0828x PETER'S WORK NUMBER.........514 874 8546 UNGER.......................514 733 1141 LALONDE FAMILY..............514 626 4747 LIL MALLAIS.................514 367 30937 98406 CLAIRE .....................514 332 3536d JILL LAWSON.................514 697 5529 STEVE MARTIN................514 684 3878 GAIL........................514 626 8594 SCHOOL DAY..................374 931 8731 SCHOOL NIGHTS FAMILY..............514 626 1716P IRENE MALLAIS (OLYNYK)......514 683 4569~ MARK PERCIVAL...............514 626 2246 MARIANNES WORK NUMBER.......514 683 8400 NEIL BARRATT................514 678 5639 PETER JOHN BENNETT..........514 SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1038 LAURIE PERCIVAL.............514 620 6696" MALLAI1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE                x\2Q]]٠]éͮЮ]xG N@"r)deidedeZ]ؠ~]ԠĠƠ(_Z 2]Š!<UVW;@rde<@*rrY FM6P[Z@p(ĵǠŸ)d\2Kn@p(δ)  0MARK 006%0DECEMBER 28,1981+080 I5682?0IV0"OPEN DATA 19";In0"WRITE DATA 19";I0("/*EOF,,,,,,,,,"02"CLOSE DATA 19";I0<0FH 17:23:G0;" ":18:23:G1;" ":19:23:G2;" ":20:23:G3;" "Q 180P " P0127SE$"CLOSED"% SE$1 12:15B SE$"OPEN "[ "P1127SE$"CLOSED"d ,SE$p 614:15 @SE$"OPEN " JP2127SE$"CLOSED" TSE$ ^G0(0) hI110:I rG1(1) |I110:I G2(2) I110:I G3(3)S " 14:8:"PB2 IS "2 17:14:"PDL(0) = "K 18:14:"PDL(1) = "d 19:14:"PDL(2) = "} 20:14:"PDL(3) = " ** TEXT LOOP (16384)155Ĺ16368,0::: P0(16287) P1(16286) P2(16285) 10:15 SE$"OPENR *** PADDLE CHECK OUT3 *** 25/02/83P (C) 1983 M.P. PROGRAMSX(:b22:6<"PADDLE CHECK OUT - APPLE II"F6P"THIS PROGRAM IS TO TEST PADDLE "Z"PUSH BUTTONS AND POTS."dn10:8:"PB0 IS " x12:8:"PB1 I    0 MARK 007%0DECEMBER 30,198160"DATA 19";IC0I5620P0I8220g0"OPEN DATA 19";I0("WRITE DATA 19";I02"/*EOF,,,,,,,,,"0<"CLOSE DATA 19";I0FL>(TI$)301500G>:"ENTER ARTIST NAME (30 CHARACTERS MAX)":AR$[>(AR$)301520>:"ENTER ARTIST SORT NAME (30 CHARACTERS MAX)":SA$>(SA$)301540>:"RELEASE DATE":>""DAY=";J>,A$(J)>6(A$)21570>@2040?JRD$YPE (L=LP, 2=2LP, S=SINGLE, E=EP, D=DISCO SINGLE, 8=8TRACK TAPE)";TP$\=TP$"L"1500n=TP$"2"1500=TP$"S"1500=TP$"E"1500=TP$"D"1500=TP$"8"1500=TP$"X"380=1420=:"ENTER TITLE (30 CHARACTERS MAX)":TI$:12:15:"ENTER #";:I%<I01290@<I0āI1MX:810:I:[<(IMXİ560:1340:1290f<2810:<<::13::"PRINT ROUTINE"::34,1:8pTP$(I)"D"A$"DISCO SINGLE"`8uTP$(I)"8"A$"8 TRACK TAPE"x8zA$""ĺ"FUCK UP":~88"NUMBER=";I;" OF ";MX88"TYPE=";A$8"TITLE=";TI$(I)8"ARTIST=";AR$(I)8"SORT ARTIST=";SA$(I)9"RELE3)ı7 A$(32)8007760K7 34,2:24:K140:" ";:K:23:J0:730Q7*}74SPECIFIC RECORD INFO SUBROUTINE7>7CMX0İ560:7EA$""7HTP$(I)"L"A$"ALBUM"7RTP$(I)"2"A$"DOUBLE ALBUM"7\TP$(I)"S"A$"SINGLE"8fTP$: 6J06I1MX6I;.65:TP$(I);D67:(TI$(I),14);[622:(AR$(I),13);q636:(RD$(I),5);{6JJ16J2176066:"END OF DATA";::A$6634,23::"HIT FOR MORE,TO STOP";::A$:A$7A$(1I7X(0):5105I1510*5I5510K5&I1350,1070,1070,1070,60000Q50[5:::l5D19:"19";CYy5F2:"#";5H5:"T";5J11:"TITLE";5L25:"ARTIST";5X36:"DATE"5b34,25v6MX0Ė12:12::"DATA FILE EMPTY"::I12000:" ";:,41:9:"RECORD LIBRARY PROGRAM";24T48:11:"1) ENTER NEW RECORD"v49:11:"2) EDIT RECORD DATA"410:11:"3) SORT DATA"411:11:"4) PRINT DATA"412:11:"5) EXIT PROGRAM"414:16:"OPTION ";:A$:A$;4I(A$)5 ENUE START AND "3JPROGRAM START(3T3^TP$(151),TI$(151),AR$(151),SA$(151),RD$(151),PD$(151),LA$(151),SN$(151),ST$(151),MI$(151)3hD$(4)3rCY03|RETURN TO MENUE3::33I140:" ";:3I121:" ";:40:" ";:4I140:N DATA 19";CY(2D$;"WRITE DATA 19";CY62MX0280B2I1MX2TP$(I);",";TI$(I);",";AR$(I);",";SA$(I);",";RD$(I);",";PD$(I);",";LA$(I);",";SN$(I);",";ST$(I);",";MI$(I)22"/*EOF,,,,,,,,,"2"D$;"CLOSE DATA 19";CY2,263@MAIN M),PD$(I),LA$(I),SN$(I),ST$(I),MI$(I)<1dTP$(I)"/*EOF"130F1nII1N1x90Y1MXI1t1D$;"CLOSE DATA 19";CYz111WRITE SUBROUTINE11D$;"OPEN OLDFILE"1D$;"DELETE OLDFILE"1D$;"RENAME DATA 19";CY;",OLDFILE" 2D$;"OPE00 MARK 0080:0 RECORD INVENTORY PROGRAMW0WRITTEN BY:MARK PERCIALm0DECEMBER 28,1981s0(|0,3100-02READ SUBROUTINE070<I10FD$;"OPEN DATA 19";CY0PD$;"READ DATA 19";CY$1ZTP$(I),TI$(I),AR$(I),SA$(I),RD$(I     OSN'T WORK."8 C2((A(X22))(BX2)C):C20C2C21j &C20FL0::"THE SECOND ROOT DOSN'T WORK." 0FLĺ:"THE ROOTS CHECK OUT." ::"ANOTHER EQUATION? (Y/N)";:A$:A$ DA$"Y"160 N34,0:: F1$" ("(T1)"/"(BM)")"2 X2(X2)490S F2$" ("(T2)"/"(BM)")"| :"THE ROOTS OF THIS EQUATION ARE:" "X = ";X1;F1$;" AND X = ";X2;F2$;"." FL1 C1((A(X22))(BX2)C):C10C1C11 C10FL0::"THE FIRST ROOT DX1T1BM rX2T2BM' |X1(X1)4107 D1X1(X1)j D1.000001D1.000001X1(X1):X10X1X11| X2(X2)440 D2X2(X2) D2.000001D2.000001X2(X2):X20X2X21 F1$"":F2$"" X1(X1)470 T1(T1.5):T2(T2.5)2:"2" S1$"+":S2$"+", B0S1$"-"= C0S2$"-"Q B2(B):C2(C)w "A"X "S1$" "B2"X "S2$" "C2" = 0" ,LA(0) 6R(B2)(4AC) @R0ĺ:"***ERROR*** THIS EQUATION HAD NO ROOTS.":570 JT1B(R) TT2B(R) ^BM2A h YOU MUST ALREADY HAVE"B "THE EQUATION IN THE FOLLOWING FORM:"c :" 2":"AX + BX + C = 0"n 34,10t "ENTER VALUE FOR A=";A A0160 :"ENTER VALUE FOR B=";B :"ENTER VALUE FOR C=";C A$(A) LA(A$) LA % QUADRATIC ROOTS PROGRAMC (C) 1983 M.P. PROGRAMS.I(b2 MARCH 3, 1983h<uF:255:{PZ"QUADRATIC ROOTS PROGRAM."d"(C)1983 M.P. PROGRAMS."n:"THIS PROGRAM FIND THE ROOTS OF A QUAD-" x"RATIC EQUATION.     1X01Y1910S%)1X%,Y%X,Y/1?1I12000:T1S%(S%):S%S%1d1S%10S%3j11I%((543)61)1I%42301I%1200070 MARK 00910 JANUARY 7,1982:0S%1Q0X%((42432)279)h0Y%((42432)191)t0(X0:Y002X0279S%0<X%,Y%X,Y0F0KX2790PY0191S%0ZX%,Y%X,Y0d0nY191:S%S%(1)0xX2790S%0X%,Y%X,Y1 X,0,0,0,0,0,0 X079:D1:768X,D1:::"SUPER HGR COLORS'":"(C) 1983 M.P. PROGRAMS.":34,3::"HIT "(34)"ESC"(34)" TO EXIT.":I03000:::34,0:768:"*** THE END ***": ( 2(C) 1983 M.P. PROGRAMS. < FEBRUARY 27, 1983 F P 173,87,192,173,82,192,173,80,192,162,0,169,0,157,0,32,232,208,250,238,15,3,173,15,3,201,64,208,238,169,32,141,15,3,238,12,3 173,0,192,201,155,240,11,173,12,3,208,218,32,58,255,76,9,3,169,0,141,16,192,141,12,3,169,32,141,15,3,173,81,192,96,0,0,0 "DEG C=";C2A$270X1782001xX155ĺ(13):::-1}16384,05190U116368,0:"ENTER C DEG ";Cf1F(C1.8)321FF100:FF.5:F(F):FF1001"DEG F=";F1A$170116368,0:"ENTER F DEG ";F1C(F32)1.81CC100:CC.5:C(C):CC100 20 MARK 010.0WRITTEN: JANUARY 30, 1982I0TEMPERATURE CONVERTERO0(\02:255:0<9::"TEMPERATURE CONVERSION"::34,10F:"ENTER TYPE OF CONVERSION "0P"1) C -> F OR 2) F -> C ESC TO END"0ZX(16384)0dX1771401nX  (16)150,I140:"=";:_4:4:"MARK PERCIVAL & ANDREA HENDERSON "v:16:"PRESENT ":13:" ** LIFT-OFF ** ":I140:"=";::"ARTWORK BY: ANDREA ":"SOFTWARE BY: MARK " :" (C) 1983 M.P.VV1:V0520430"V1.Z314@V:H:SH$(Z)T&TIME0PAUSE:`0XX(0)f:pD1010yN630X(26);(16)bQ$(34):"ENTER "Q$"RUN 160"Q$" TO RERUN LAUNCH. "lv16368,0(16384)12864016368,02)"1 =>  ?@  "=rSH$(13)"1 ?@  "V|SH$(14)"1 "dH28:V12mZZ0{PAUSE125F1%1V:H:SH$(ZZ)ZZ0790F1%ĭZZ2F1%0:1010TIME0PAUSE:XX(0)ZZ0ZZ1:430ZZ2 =>  ?@  "X @SH$(8)"1 CDEFGH537846 9:  ;<  =>  ?@  " JSH$(9)"1537846 9:  ;<  =>  ?@  " TSH$(10)"1 9:  ;<  =>  ?@  " ^SH$(11)"1 ;<  =>  ?@  "hSH$(19:  ;<  =>  ?@  "z "SH$(5)"1HIJKLMOPQRSTVWXYZ ACDEFGH537846 9:  ;<  =>  ?@  " ,SH$(6)"1OPQRSTVWXYZ ACDEFGH537846 9:  ;<  =>  ?@  " 6SH$(7)"1VWXYZ ACDEFGH537846 9:  ;<  R IJKLMN ABCDEFHIJKLMOPQRSTVWXYZ ACDEFGH537846 9:  ;<  =>  ?@  " SH$(3)"1 IJKLMN ABCDEFHIJKLMOPQRSTVWXYZ ACDEFGH537846 9:  ;<  =>  ?@  "" SH$(4)"1ABCDEFHIJKLMOPQRSTVWXYZ ACDEFGH537846 ART AGAIN ! (15);(20);(16). SH$(14)8 (9) SH$(0)"1 QR IJKLMN ABCDEFHIJKLMOPQRSTVWXYZ ACDEFGH531246" SH$(1)"1 QR IJKLMN ABCDEFHIJKLMOPQRSTVWXYZ ACDEFGH537846 9:  ;<  =>  ?@ "[ SH$(2)"1 QI1 s2000" tA$"LAUNCH.SET"D x"BLOAD "A$",A";CS(I1)768O }216,0[ ADRS3j END INITy FL%0:170 FL%1 670 FL%āI06000::200 2000 A$"LAUNCH.PIC" "BLOAD "A$",A$4000" 216,0 ]RUN 170 TO ST  INIT2000&A$"RBOOT"7"BLOAD "A$BADRS0Q#A$"RLOAD"Z(520h-A$"HRCG"}2ADRS(0),"HRCG"7216,0<ADRS0ADRSADRS65536FA1PCSADRS768A:CSZCH(CS256):CLCS256CHdADRS7,CL:ADRS8,CH n!!!!!!!!!  q_7,oa(ŠϠš)UVWY_=6oa(Š٠ġ)UVWY_.oa(̠ȡ)UVWYKM6QZM6a(ϠՠԠ͠ҠҠοүϩ)GR@`;@r$`@*#r9()$UVW?-rqYuM6S(ҠӠج٩)''`'$,`'$,`$`$q(`-r$6-rqq\7gh_\7`-r%fg(h(YM6a(Π)FE(Π)FG!a()FE()`$_8UVW?-rq/?r`-r%qYq_9O4?rD4?rC@" rqqqqL_ UVW?-rq-rY_Fq(\<d`'$nq'\<n`$xq\<x`'$q\<`$q'\<q(\<`'$q)\<N-rq`%-rq-r`%-rq`-r%qYa()G_\UVW? ]נĠĠ]ٺˠ]ˠΠ(]٠2_7q/?r`$7f[)<`%[`?%[`-r%q[6FqqqUVW?obqq(P`$Zq)\<Z!! ! ! ! Lϳ೰ÙÙ""""ͮЮӊ"s]r`%f`%f`%qghYY_Kr$Zghq_TkUM6qqUVW'UVW'q/?`%q`%q`%`%q `%`%q`%q` %qfghYYY<UVW'UVW'q=>r`$F`$F` %q`%qfgh FYY@KM6oa(Π)FE(Π)F5 _P)oPa()G`%[Pa()G[tqqUVW'\UVW'qq=>rUV6WUV6Wqq`$(`'$(K`$(`'$(`%`$(q=>r`%q`%q (YYu2q"" " " "