' +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- ( O Ϡ@跻~!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`,L"L$l:"FILE "F$" SAVED.".v216,0::S"ERROR: FILE "F$" NOT FOUND!":u"UNEXPECTED ERROR. SORRY.": (Y/N): ";A$$ A$"Y"V(7)0:540< A$"N"V(7)1:540U "RANGE ERROR.":500z :"S)AVE, R)ESTART, Q)UIT? ";A$ &A$"S"590 0A$"R"80 :A$"Q"540 D630 N:"SAVING FILE "F$"." XI07:2054I,V(I):bD$"BSAVE"F$",A$803(4)A5 "WRITE RETRIES (0-5, 10, 99): ";A$:A(A$)C A10A6Q A99A7s A0A7ĺ"RANGE ERROR.":410~ V(5)A "USE RWTS CHECKSUMS (Y/N): ";A$ A$"Y"V(6)0:500 A$"N"V(6)1:500 "RANGE ERROR.":460 "ENABLE SOUNDS300V(3)0 ,A1200V(3)11 6A2400V(3)2D @A4800V(3)3W JA9600V(3)4k TA19200V(3)5 ^V(3)1ĺ"RANGE ERROR.":270 h"READ RETRIES (0-5, 10, 99): ";A$:A(A$) rA10A6 |A99A7 A0A7ĺ"RANGE ERROR.":360 VOR.":180 V(0)A1; "DISK DRIVE (1-2): ";A$:A(A$)] A1A2ĺ"RANGE ERROR.":210j V(1)A1 "SSC SLOT (1-7): ";A$:A(A$) A1A7AV(0)ĺ"RANGE ERROR.":240 V(2)A1 "SSC SPEED (300-19200): ";A$:A(A$) V(3)1 "A Z:" ADT 1.22 ";6 d:" DEFAULT CONFIGURATION"j n2:"----------------------------------------";v x34,3: "LOADING FILE "F$"." 640 D$"BLOAD"F$",A$803" 650 "DISK SLOT (1-7): ";A$:A(A$) A1A7ĺ"RANGE ERRw ADT 1.22 CONFIGURATION; P. GUERTIN, 1994-10-13AM(D$(4)_2(104)6460{5103,1:104,64:16384,07:"RELOADING AT $4000..."9D$"RUN ADT CONFIGURATION"<F$"ADT": ADT FILENAMEFL$"$AF0": ADT LENGTH P::255      ǠӠ͠ӠōȠŠԠΠҍԠ٠ӠŠčРٍŠЍðӠŠҠРԍҮʍ卍䮠箠栢硍򠢦嬍ˡӺҍҍԠΠٺΠ΍ŠٍĬҠ卍󮠠ፍᠢâ퍍蠢Ң  E PROGRAMMING" ) " BY"/ Q " .... DAN HORN"] :::v "CREATED WITH LISA"| "PUBLISHED BY ON-LINE SYSTEMS" PAUSE03000:PAUSE CO CLEAR VARABLES"c f22:1::"ETURN TO HARVEST MENU OR":"XIT TO BASIC (R/E)? ";::A$q hA$"E"Ā jA$"R"120 l102 x122 y:(4)"RUNMENU" z216,0: }:::::(15):"AMPERHELPER"  10:8 "MACHINE LANGUAGTO RING BELL"- F"&H...............TO HOME"P K"&I...............TO INVERSE"p P"&L...............TO LIST" U"&N...............TO NORMAL OUTPUT" Z"&R...............TO RUN PROGRAM" _"&V...............TO CATALOG D2"" d"&X...............T 125D$(4)6 D$;"BLOAD AMPERHELPER.OBJ"L1014,00:1015,16SH(::"JUST TYPE & AND THE LETTER TO DO"2:"&B...............TO BOOT"7"&C...............TO CATALOG D1"<"&F...............TO FLASH" A"&G...............   Lj' e & &  `ȱ8 ȱ8 ȱ `+ ``Ωȑȩ(ȩȊ8 `iҩ`ii LШѪժԊЪժբЪԪЪňшЊшѪТЈЂЊРŊԪъŪЪŨЪŢŪՊԪЊЊŊŪժժԊЪբЪňшЊЈШЂъԈъТըժŢՊԂՊժՊժ @ԊT Ԋ PP@ T@ P (@(@ PЂP T @DDDDD@P@PPPPPPP Ѐ ԊЂЂ  PPPPPP@P@P     TժժժժժժժժժժժժժժԀЂЂ Ѐ  Ѐ ĈĈ ((((ժժժժժժժժժժժժժժ   ĈĈĈĈĈĈĈ  ĈĈĈĈĈĈĈ   ĈĈĈĈĈĈĈ  ĈĈĈĈĈĈĈ    ĈĈĈĈĈĈĈ( ((a(YQQL[IcInE5KSOI[GM+ KiB_ > Cd5j7#!#$#uw{|{}yzw|{vutgd   }2? .AST7RL@N:JFS1P2 P3`HE kX(] u'gnPLPRQJXH_L_7f8dC\JZ>mBUJ`D[H[Og2iGZ S{=Goe]]su{tkz{woztoxthrqxw~ vz{|zz                       @h`Ch"`* ` @@}@ W;`?P*8=(|0X00 >pp E@ }`) } `~zU8 W8P 8 @  @ @ @" ( (DT(P(DP"@*@"(UP@*T: E*DP*Q P( P((*P( (P ( @  @8@``@܏պpp800 0p@``@܏p0000p@܏p0000p0 U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@``@܏pp800 8@``@܏pp 8 p @``@܏``p8@*U*U*U*U,xL4P*U*U*U*U ,|L4pP*U*U*U*U @3f|0pT*U*U*U*U* @3f|08T*U*U*U*U* gls0U*U*U*U*U* fl30U*U*U*U*U* U*U*U*x'@"55܏(U*U*U*,U*U*1պՀ(U*U*U*,T*U*0Հ*U*U*U*U,Oy5*U*U*U*U,3f4@*U*U*U*U,3f4U /U*U*5P ժՊP*U*U .@"5pT*U*U*.Q U"u`T*U*U*/Q U"u@U*U*U*@/@"uU*U*U*`/Q(E"u U*U*U*p/@"uժՂ(U*+0C0$UԪժՊ(U**0~xs'5Ī*U*U.0`0><>>~?xAՀՈԀԀ* *ԀԀІ؊ԺԊԪĀԚ؊ІІ؊ԺԊԊԚ؊ЦĀ U  "((         @ @ >  x%"Xp7){)z?iZ*>k(oBR(*RL*v O*}/*} } z =KZ( ?+;>r_o GoQ `)p`A 0`@ @ @" z @z4RXu Id%I>0(|Rh]t Wp`GX@0AZ e M}+ BtbuQp DxP ( @  @*Q (U+U*@U*UP@TiE T)D TiE T)D Pf]P@@~?@~? R*E k Հ ઃ Վ Т@@@@@@@@@@@@@@@@LLLLpppp@@@@@@@@ppppLLLL@@@@@@@@@@@@@@@@ T*ň@Тň̈Ң̈ȈԢȈ*E@R"E**LR"L**HT" H*@*@*@* @* @$$ U(U  @*U*@*@**T*U@Ā ч@ĀĀчĀĀцĀ@"D )Q@"D&D)Q&D$D*Q$D@   @ P*" U* U*U*  ĊĊ@ĊĊըĊD "PTh "D D "@Th"D D "U("D  P P P @ P @@ Њ(*U@AP*U P P @T@*PP@ @@ԁ"P(*tP""@  *t@ "" @*T "((( @P(  HHЂЂT U* A (U*(( * U @т(Ĉ(Ĉт@@т`Ĉ`Ĉт@@т@Ĉ @Ĉт@@Q(Dz(DQ@@Q`Dz`DQ@@Q@D j@DQ@TTTP (TPP$Ԃ*@*P PT*UTTP*P* @B@ @0H0@ @ P @ @("J ="@( @(0"H =0"@( @( "P 5 "@( D***(T*(*U U ((*U***( Ԁ !Ş Ԁ Ԁ$Ş Ԁ Ԁ(Ś Ԁ T %E  TJ = T$E T T(E T"UUU*UIIՀ@*P*U*UUUTԐԂժՊժՂժЂUԐԂժՊĪժՂժЂUԐԂʊժՊժՂժЂUUUԢАªժňժԪժՊ@*ԢªժժԪժՊ@*ԢŪժъňժԪժՊUPUЊԐժՂĊՊڪժ ԐʊժՂъՊڪժ ԐҢժՂШĊՊتժTPUʊՈĪЪժЂժժժՂP ʊՈŪЪժЂĨժժժՂP ʊՈŪѪժԂժժժՂЊP@UЊªժЈтЪª֪ժ(ЊҢժԂЪª֪ժ(ЊТԨժЈтЪª֪ժP@UŠъԪժĨժՊժTŠъԪժժՊժTŠъԪժĨժՊժԂTPUԂЊ¨ժԪЪժժ *ԂЊԨժĈԪЪժժ *ԂЊԨժŪԪЪժժUPU)z    f Lf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f L` ` hh@(LH9LHH/Hh/ H-З( (& $8 H` *Hh `HJ>݌h Hh݌`葠葠ȔЖȔЖ L @`ULS*$  '@ॐU'I  'I`CjklCDjklmCDjklCDCDjkmCDBCDEjklBCDjklBCDjkCD@@@@AAAABBBDDDDEEHHHHHIILLLLMMNNPPPPRRSSSSTTTTTVVVXXXXXZZZ\\\\]]]]^^CPI` غP"A *~?|p*( PP"A *( *(U P@*@ ***T*0L00 @p(P  (P (  (U (P*(U Up,0L00 @@`0iiiiL)eiLȹ,06 U*Q@  >>( ppU*U  0 0 0<@ 6 pn 0t06 @"U@< 6`86 06 *U*U*U|  ~?(A UUppp|pppL@p6` Z!xl06+A @ B@Lv`0.|06 *(U UU*P"A**P"E*U*LL*( UPP*A *P*BpL|||p| |p6 \0 @06 @@ @*pp6 @606*(U UU*P"A**@$@ |pp*( APP"A *< *( UPP"A *U  *(U PP*A * <0 0 0 L 6 8 6 p806 @B@L  6 @ |pp T*UU  v70  `|0v+A @p  @*6 0B-D `06 |p `@*U(UpppUBL@*  6n00 ` 06@"Up @*6  ;@06*(U UU*P"A**@$(*( APP"A *0>"*( UPP"A * A<*(U P0 0 0 @ v@ 2#hX06**pp$@*0<*(U UU*P"A**U"E(U*U<<<]k*( UPP"A *xA pp*( PP"A **(U P@*@ * App@UP*| |p| pp**60b&L006@L >(E(U*P   |@}?w?w?w?w?w?w?`~_{_{_{_{_{_{0o}o}o}o}o}o}Xw~w~w~w~w~w~h333333tQQQQQQ~ppppppp?`p?`p?``C}?``p?`0`>`p?`p?`p?`pa~``p?`0`>`p?`p?`p?`x``p?`0`>`p?`p?`p?`x@``>`0`>`>`>`>`|``>``>`>`>`>`>``>`>`>`>`>`>``>0?`>`>`>`~~_~~~@`p?`pp`>?`>`p?`p?`x`>D?`>`p?`p?`|@`>?`>`p?`p?`| ```>`p>`>`p?`p?`>p``>`0`>`>`p?`p?`xg`p?`0`>`p?`p?`p?` c`p?`0`>`p?`p?`p?`@va`p?`0`>`p?`p?`p?``{``p?`0`>`x`?`0`>`?`@?`@?`|C`@?`0`>`@?``?``?`>@a``?`0`>``?`p?`p?`>@p`p?`0`>`p?`p?`p?``p`p?`0`>`p?`p?`p?`@ p`p?`0`>`p?`p?`p?`@ p`p?`0`>`p?`p?`p?``0p`>`0`>`>`p?`p?`pp`>`p>`>`p?p "*> 2@8""*"$"$@x"">"x |@~xppppp`~?`808`8`<`<`p~`<`<`<`>`>`x`>``>`>`?`?`{ )Fc.Kh3Pm8Ur =Zwα~>>">"x""$*""$"$@@""""&@`" "" *@@ 8    e  X` 0``0"  ) 8 Ω `LT  Ip``  n(`nLnLł"Ł ŀ⥀`Ƈ0'@JL 06 L 5  '@( @ / /e8*L@ШТРЈĈłЈłШĈЂЈԢюТĨłԂԈՂԨԊԪբŪժъЊъŨѪЪĪШըЈЂHstЂЈЪՠъԢъЊԪЊԪЪբŪՊԪŊPъԊЊՈ  ) `08Hh`L,,,,,͍ /TUUP ,0JJJJ   LƬHIh`& [bVuDU_`@D B @L콌D   HhȝHJ ݌Hhh ݌Hhߩꝍ l"??82  ) M0"`( !jhj iZt!Tܩ\jKkttyV$[gO6/}|&0 '@(8;8 9껥EWcdSuw$}dWά"4Ctz+{G}ZrpDD?| ABC0D@@@PRUWL2ժժժ P*U( U*U*U*(A"U*U @*Q"U*U*T"U*(U*U* Q@" U *Q" T p0`f?@?0|| l`CG@0@00  clF0@00  cF0@a p| cF0@a 0L cF@0@0 pcf@ժժժ P@(U*P@*U*U*T(Q*U* U(*U***U TP**E(@ QP*U(Q P*p0`f?@?0|| l`CG@0@00  clF0@00  cF0@a p| ӊF԰@ 0L ժŪժЪժъժժժժժժժ( T* ( U*U*U *T(U*UP*T(U*U U(U** U U @" P((U@*T((Up0`f?@?0|| l`CG@0@00  F0@00  ӪF ժժŪժԪժꑪժժժժժժժժժժժժժժP*U P*U*U**T*U*(*T*U*D*D*UP*E*  P(T* *TT@*p0`f?@?0|| lG@0@00 תŨѨвъժժժժŪժժժժժժժժժժժժժժժժժժժժժժ (U*E (U*U*U@ *U*UT *U*U "U*A (U"UP( *UP **@ U0f?@?0||lժժԫвժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ@@*U"T*U*U* E U*U**E U*U*P U*U U*Q*(D U*(E U P*0վ@?0|ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ (@ U*Q@*U*U*UP"E*U*U"E(U*U(E(U*P@*U(U" E@*T"E*@ (ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ`I `83pi(8( 78iɹ8<8ɰЧ`8i`8i  eI18`ba0` `a6bLcde`@PTU (** $``7i`7i  f`pX0i`7i  6 i96`  ?6g` 6 P6  ` 0P 0L  'UI৐`桭p)d`0```0``4si94t L4p`  50S@ p5@(_L H h`La-b0a b0\0``abɍeЍ$c*ڍId`L7  ( l9)4 4i 4`  ( l;I1S4 S4i S4`qi ri S4si9T4t @4s8risqewqɠp`wr>pu uttqi ri P8 333!J / /Rꍡ `848JR  `8R  `QU *PW``ɭ``ɛ`0  CK !=!-"'('((#+x++X6`6\$`LSz #    ҠԮҠŠŮʰԠΠ Ԡ ԠW ԱŠŠԠǠɠԠǠɠ ǠĠ РˠĠҠ Үʠ Ϡ Š ŮŠŠҠ!ԠŠҠҠ UP׹@   L 67L A XBKS AABK B                           ` ŠˠҠ̠ΠàԠנĮǠˠԮǠҠ͠î`ŠźŠϠźŠϠĺǠŠǠŠ:Š͠î:ԠҠˮ:ŠΧԠŠĮ٠ӮӠԠˠŮΧԠԠΠˮ٠ٺϠԠ̠ԍˠōàԍàčĠӍŠӍŠӍŠŠӠĠŠϠŠӬΠϠԬ̭ĠҠӮĬŬҬŬԿŠϠŬàϠкĠƠ٬ȑ(%(%ߢ&`$ [ B>? `jY .>LeK`úӠ  1.22 ˺ӠĠ 00000000000000001111111111111111222 01234567890123456789012      `Ȅ$ 8 L(  ? 0 $(`%%$L[$(`HE쪥]h` &I!I`` ,0`Hɛ")ph`ɛ )h` ,LE X '% " &(( z   В   ,L ` D 8 ` D  ` ` `e D `    ? ɛL   .  * " и`  < ? L3H   h '" ' L    #  L    # L J   J H ? J + K Lڠ " ' L  Ȍ Ș o i  S 莵 ms q  .` c< =  uL (    " ' L * m<   y ȹ& ?2 ȹ L) 2ʄ  [$$ ', ɈyLɕiyLɋ  LɊɠ  LɄ Lɍɛ `Ș  i>  L / .ɷ V   ), v LH A LH LE  LEɟ &  LHе.L X  L  `  IL X '   [ $y    I0 PRINT 2*A%":8JY$"CATALOG":"'"Y$"' DISPLAYS DISK FILES. ]"Y$:340"CHR$ RETURNS THE CHARACTER FOR A GIVEN ASCII CODE. ]?CHR$(65) ]A":8"'CLEAR' FORGETS ALL VARIABLES. PROGRAM LINES ARE NOT CLEARED. ]CLEAR":88"'CLOSE' TERMINATILE,A768,L96 (DEC) ]"Y$" (HEX)":340"'CALL' JUMPS TO A MACHINE ROUTINE AT THESPECIFIED OR CALCULATED ADDRESS. ]CALL 768 ]CALL A 5 CALL A+B":8"'CHAIN' COMMAND WORKS ONLY WITH INTBASIC":8"'%' DENOTES AN INTEGER VARIABLE. 10 A%=51 2LE ]BLOAD FILE,A768 (DEC) ]"Y$" (HEX)":340Y$"BRUN EXPENSIVE GAME":"'BRUN' FIRST LOADS A BINARY PROGRAM, THEN RUNS IT. ]"Y$:340&Y$"BSAVE FILE,A$300,L$60":"'BSAVE' SAVES A BLOCK OF MEMORY. A AND LDEFINE STARTING ADDRESS AND LENGTH. ]BSAVE F$3F5.IF A JMP TO A MACHINE ROUTINE IS PLACED AT $3F5, THE ROUTINE WILL CALLED BY '&'. 100 &":8,Y$"BLOAD FILE,A$300":"'BLOAD' LOADS A DISK IMAGE OF MEMORY TO THE SPACE FROM WHICH IT WAS SAVED, OR TOA DIFFERENT LOCATION WITH 'A' PARAMETER. ]BLOAD FIY$Q$:8v"'ASC' GIVES THE ASCII CODE FOR THE FIRSTCHARACTER IN A STRING. ]?ASC("(34)"APPLE"(34)") ]65":8"'ATN' IS ARCTANGENT. IT GIVES THE RADIANANGLE FOR TANGENT SPECIFIED. ]5 X = ATN(2.5)":8`"& EXITS BASIC, JUMPING TO LOCATION TO 10) 9 IF 3>2 AND 4>5 THEN 10 (DOESN'T GO) AN 'OR' IS TRUE IF ANY PART IS TRUE. 5 IF 3<4 OR 5>6 THEN 50 (GOES TO 50)":8Y$"APPEND FILE":"'APPEND' REPLACES 'OPEN' WHEN ADDING RE-CORDS AT THE END OF A SEQUENTIAL FILE. 5 PRINT CHR$(4)"Q$,TEXT,THEN,TRACE,UNLOCK,^G,USR,VERIFY,VLIN,VTAB,WRITE,^J,VAL,XDRAWk"CAN'T HELP YOU WITH ";::G$::8"ABS IS ABSOLUTE VALUE. ]?ABS(-10) ]10":8"AN 'AND' EXPRESSION IS TRUE ONLY IF BOTHCONDITIONS ARE TRUE. 8 IF 3>2 AND 4<5 THEN 10 (GOESON,NEW,",",MAXFILES,NEXT,NOMON,NORMAL,NOT,":",NOTRACE,ON,ONERR,OPEN,OR,";",PDL,PEEK,PLOT,POKE,POP,=,POSITION,POS,PR#,PRINTB4READ,>,RESTORE,REM,RENAME,RESUME,RETURN,<,RIGHT$,RND,ROT=,RUN,SAVE,?,SCALE=,SGN,SIN,SPEED=,SPC(,.,SQR,STEP,STOP,STR$,TAB(,^C,TANCLEAR,CLOSE,CONT,$,COLOR=,COS,DATA,DEF,DEL,(,DELETE,DIM,DRAW,END,EXEC,),EXP,FLASH,FN,FOR,FP,E,FRE,GET,GOSUB,GOTO,GR,+,HCOLOR=,HGR,HGR2,HLIN,HOME,-z3"HIMEM:",HPLOT,HTAB,IF,IN#,*,INVERSE,INIT,INT,INPUT,LEFT$,/,LEN,LET,LIST,LOAD,LOCK,^,LOG,"LOMEM:",MID$,M5,160,3,169,0,145,105,160,4,169,2,145,105,169,0,76,59,213 .165,105,141,136,3,165,106,141,137,3,169,96,133,104,169,151,133,106,169,0,133,105,169,1,141,87,170,32,212,167,76,102,2132ABS,AND,APPEND,ASC,ATN,&,BLOAD,BRUN,BSAVE,CALL,CHAIN,%,CATALOG,CHR$,I134 :G$""G$"-BLANK-" (G$,1)"Q"ė:"BACK TO YOUR PROGRAM:":104,8:105,(904):106,(905):115,0:116,96::25153: W(G$):W(W3):W4N114W6 :N2009 -32,123,221,32,82,231,32,26,214,76,65,217,32,111,253,138,160,2,145,103:116,96:115,0:5 A$(136):I1134:A$(I)::20R 23:"HIT ANY KEY ";:C$ Q$(34):H1::I1135:H:A$(I);:HH92(H8):H39H1: 0:N0 :"(";::"Q";::")UIT";::24:"WHICH?";::" ";:918:G$G$"" I1134:G$A$(I)NI:::55)"!! HELP !!"31)"(C) 1982"28)"BY LEIGHTON PAUL"52): (889)9Ĺ889,0:10:"FOR HELP WITH BASIC/DOS COMMANDS, TYPE ]HELP NOTE: 'HELP' MAY BE CLOBBERED BY USING HIMEM, FP, INT, OR MAXFILES. 'BRUN' HAS BEEN DISABLED.":104,8:106,8:105,24576,0:24577,0:24578,0:104,96:889,9::12:11)"HELP IS ON THE WAY!!":(4)"RUN HELP" G$"":I906975:J:I,J::1013,76:1014,138:1015,3:43262,72:43263,69:43264,76:43265,208:43325,64:43326,112:41870,76:41871,175:41872,3? (889)96# SERIAL #42-051385-1708A  !!HELP!! (C) 1981 BY LEIGHTON PAUL DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION INC. P.O. BOX 6548 TORRANCE, CA 90504 (213) 516-9430 VOICE (213) 516-9432 MODEM [ (104)8ĺ(4)"MAXFILES1":                    8&"'IF...THEN' ARE A PAIR. BOTH MUST BE IN THE SAME LINE. THE REST OF A LINE AFTER 'THEN' IS IGNORED WHEN THE CONDITION IS FALSE. 5 IF A>3 THEN 10 7 IF P ARE RELATIONAL OPERATORS. A=B A EQUAL TO B AB A GREATER THAN B A<=B A LESS THAN OR EQUAL TO B A>=B A GREATER THAN OR EQUAL TO B A<>B A NOT EQUAL TO B EXAMPLE: 10 IF A<=B GOTO 500":85#246n3 "'POKE LOCATION,NUMBER' STORES A NUMBER FROM 0 TO 255 IN THE MEMORY LOCATION. 8 POKE 768,96":84!"'POP' REMOVES ONE ADDRESS FROM THE STACKOF SUBROUTINE RETURN ADDRESSES. AFTER A POP, A SUBROUTINE WILL RETURN TO THE GOSUB PRIOR TO THE SENALL PRINT ON THE SAME LINE. ';' IS ALSO USED IN INPUT STATEMENTS. 70 INPUT"Q$"WHAT?"Q$";W$":82"'PDL' GIVES THE SETTING OF A PADDLE. ]?PDL(1) ]87":82"'PEEK' READS THE CONTENT OF A MEMORY LOCATION. 50 A=PEEK(33) ]?PEEK(99) ]39":83PREPARES A TEXTFILE FOR A READ ORWRITE AT THE BEGINNING. 5 PRINT CHR$(4)"Q$"OPEN SEQUENTIAL FILE"Q$" 6 PRINT CHR$(4)"Q$"OPEN RANDOM,L30"Q$" (L IS RECORD LENGTH)":81202e2"';' EXTENDS THE SAME PRINT LINE. 50 PRINT A;B;C$; 60 PRINT D$ ST GOES TO THE NEXT INSTRUCTION.":80"'ONERR GOTO' SETS A FLAG SO IF AN ERROR OCCURS LATER IN THE PROGRAM, CONTROL IS QUIETLY SENT TO THE LINE SPECIFIED. 50 ONERR GOTO 400 'RESUME' IN THE ERROR ROUTINE JUMPS BACKTO THE ERROR POINT.":81"'OPEN' E' SHOWS LINE NUMBERS AS A PROGRAM IS RUN. 'NOTRACE' CANCELS. ]TRACE ]NOTRACE":8$0"ON...GOTO AND ON...GOSUB MAY BE USED FORMULTIPLE BRANCHING 50 ON A GOTO 60,70,80,90 WILL GOTO 60 ON A=1, 70 ON 2,80 ON 3, 90 ON A=4. IF A<>1,2,3 OR 4, THE PROGRAMJUILES' SETS HOW MANY TEXTFILES MAY BE OPEN AT ONCE. DEFAULT 3, MAX 16. ]"Y$:340Z.234c.270l.255."'NOT' FLIP-FLOPS TRUTH VALUE. ]?8>6 ]1 ]?NOT(8>6) ]0":8."':' SEPARATES STATEMENTS IN A LINE 5 HTAB 3:PRINT A:VTAB 6":8S/"'TRAC) ]NOMON C,I,O (TO CANCEL)":340R-"'NEW' ERASES PROGRAM IN MEMORY. ]NEW":8-"',' TABS SCREEN PRINTING INTO 3 COLUMNS. 5 PRINT A,B,C ',' ALSO DELIMITS MULTIPLE INPUTS: 6 INPUT A$,B$,C,D% ]BSAVE FILE,A768,L96,S6,D1":8Q.Y$G$" 5":"'MAXF249, "'MID$' SELECTS A PORTION OF A PREVIOUSLYDEFINED STRING. 50 B$=MID$(A$,5,3) ]?MID$("Q$"MARYLAND"Q$",3,2) ]RY":8!-Y$G$" C,I,O":"'MON' DISPLAYS DISK I/O ON SCREEN. (C)OMMANDS (I)NPUT (O)UTPUT ]MON C ]MON I ]MON O ]MON C,I,O (ALL, THENLOADS THE PROGRAM INTO MEMORY FROM DISK. ]"Y$:340+ Y$G$" HELLO":"'LOCK' PREVENTS OVERWRITING A DISK FILE,MARKING THE CATALOG WITH '*'.'UNLOCK' ISTHE REVERSE COMMAND. ]"Y$:340+ "'^' RAISES A NUMBER TO A POWER. ]?3^2 ]9":8+ 231, *"'LET' IS OPTIONAL. THESE HAVE THE SAME EFFECT: 4 LET A=21 4 A=21":8*"'LIST' PRINTS LINES: ]LIST (ALL LINES) ]LIST 2 (LINE 2) ]LIST 2-5 (LINES 2-5) ]LIST 9- (LINES 9+)":89+Y$"LOAD FILENAME":"'LOAD' SELECTS THE PROPER LANGUAGE BE ENTERED)":8)"'LEFT$' & 'RIGHT$' SELECT PORTIONS OF ANEXISTING STRING. 30 C$=RIGHT$(NAME$,5) ]?LEFT$("Q$"APPLE"Q$",3) ]APP":8)"'/' IS THE DIVISION SIGN. ]?11/5 ]2.2":8)"'LEN' GIVES THE LENGTH OF A STRING. 20 A=LEN(NAME$)":8L(6.2564) ]6 'INT', TYPED ALONE, SELECTS INTBASIC. ]INT >":8)"'INPUT' HALTS THE PROGRAM, PROMPTING THEUSER TO ENTER A VARIABLE OR SERIES. 5 INPUT A$ (PROMPT: ?) 6 INPUT"Q$"ENTER A"Q$";A (PROMPT: ENTER A) 7 INPUT A,B%,C$ (ALL MUST03'"* IS THE MULTIPLICATION SIGN. ]?2*4 ]8":8u'"SCREEN PRINT MODES: NORMAL "::"INVERSE "::"FLASH"::8'"'INIT' ERASES A DISK, FORMATS IT, THEN SAVES PROGRAM IN MEMORY. ]INIT HELLO":8B("'INT' GIVES INTEGER PART OF A NUMBER. ]?INT  p)LɍɈ 8hh`# 6`- 6`  %(   ɍ%  #%` %͉m͉`튲͉8`ɐH)ihJJi` S ɰ ɹ (`|  |  $  ( ` Ș `8` S    J   OLD͈ J   OL[`   p ɮ0 ɰɺJJ |ɴt 3 L) # eL) )? ` )?0:Ȅ `' ɠɽɺ ɿ )? @ `' ɠɺɿ`)? ` H v #h S`  `  `  `  L ( ɍꭆL `H h   }{{e w x  wx8 `)?z y fvz  f x  Z Q yש`w `  Q(0 )?I ȱ )?vI ȱ I ) Q ̓`   f I `  x  w` x `   ` Q' L&&&& &&` &e`  c a ( ɍ f )?v $ LR a 8w ``    (   f LP `} }  LtɋɈɊɕɠ ɍ`}LL L LL`5).mm..mmL>` 801  Β` d 1 |` l  ( 5 t < t` ,  K t`ɠɊ ɕɋL``)ߍt@,0,tɛ)Ʉ(`),H hɛ hh`L_ LK ɛǥ` 0  ` LeL L L LLLL5L uLP ꭀ   , ! "   ,Q,T u  O ͂ ̓ Lk luLP  i>  Lk   OL ̀L"Q$:8->L"CTRL J INSERTS A LINE FEED.":8>M"'VAL' GIVES THE VALUE OF THE DIGITS IN ASTRING. ]?VAL("Q$"12.3 APPLES"Q$") ]12.3":8>N227>T" 8 PRINT CHR$(4)"Q$Y$Q$:8GhaItJU DISK.":340=I246=J251>K"'WRITE', AFTER 'OPEN' / 'APPEND' SELECTSTHE DISK FILE FOR OUTPUT. 5 ?CHR$(4)"Q$"WRITE SEQ FILE"Q$" 5 ?CHR$(4)"Q$"WRITE RAND FILE,R98"Q$" 'READ' SELECTS THE FILE FOR INPUT. 9 ?CHR$(4)"Q$"READ RAND FILE,R98. ]TEXT":8"'A$=STR$(A)' FORMS AN A$ WITH THE SAME CHARACTERS AS THE VARIABLE A.":8;?"PRINT TAB(32)"Q$"BANANA"Q$" PRINTS BANANA":8;@"CTRL-C HALTS A PROGRAM. ]BREAK IN 25":8;A220 ";:16368,0:A$:A$&VOL,0A"47081,DS16:47082,DDs,CMD,1:TRACK,17:SEC,15:BLO,0:BHI,144:7806(36877)136(36913)0540@(ERR)0ĺD$"CATALOG,S"DS",D"DD::"THE ABOVE FILES WILL BE ERASED IF YOU CONTINUE!"::"OK TO CON)162ĺ:"DOES SLOT #"DS" HAVE A ";::::"FLOPPY";:::" DISK CARD? ";:A$:A$:A$"Y"250:"WHICH DRIVE? #1"(8);:A$:A$:DD(A$)1(A$(13)):DD1DD2ĺ(7):250:"PLEASE INSERT A BLANK DISKETTE IN":"SLOT #"DS", DRIVE #"DD" AND PRESS IN          '눑('` .87777ɰ0`766ɰ0`644ɰ0`433ɰ0`311ɰ0`10` U&&II!/ɺ2Ɋ.------- . ..`L `@-eff Ъ .La- . ~. . -R Ƀ 8.L~-H - =/L-hH .)h` .)`H -h8``-` -x`)I`cPL@.ЄɈ&ȑ눈>L}.ɍɠ0)?췭뷩  H *`췩뷩  H``;8ȱȱɩ)``T L-L.L.L-L-`ލ -Ȅ- . - .L+- . ~. -° .LI- . ~. . -ȑ` ``ȑX`1zmmL+#L+L+L+4췭뷩"  H ^+ *L,`.4 `뷩췩  H`"`.. ;+` *` #``#L,#e ` i8` /+``4422((t~~tt}pwԢԤ̝̿ʿʛҙԢ<( L*L*L/*L9*LC*L, ў Y* * ` ў u* * + ` ў N+ ` ў , ` ў + ], , + u* `!',U-:-70?2M1W1U1O5J;AB7C*@,;4=6@;BDCL@R;X;X=W>TAUD^AhbCh@k=i>lBv@|<~>{C~@;;?C?BB:38EOMC@B@;:?C?;;=?BCBJOOkMjSf`fifkxjj`UONoOYNZOrOMNOOTak}kZk[jih! (<<,10:2010,pISF2:10(I),(I1):I:ME(121)(122)256:EE42:173,95(08?FA ;6/*"#&+2<BB?:9;CNW] Z TPQX`iic_ajt{~ |sl#j'o"u{yx ,198,252,198,250,202,208,238,96162,47,189,81,158,157,208,3,202,16,247,173,83,158,141,243,3,73,165,141,244,3,173,82,158,141,242,3,173,95,170,208,4(27)ı:"LOST CONNECTION!!!":2990 6::"TOO MUCH NOISE ON LINE!!!":::1912MS2,183,32,227,3,32,217,3,169,0,133,72,96,0,0,169,0,133,249,169,48,133,250,96,160,0,177,249,153,0,149,136,208,248,230,250,206,23,3,96,173,23,3,208,235,96,32,220,3,32,214,3,96169,47,133,250,169,0,133,249,162,6,160,255,177,251,145,249,136,192,255,208,247:20:41):23:40);(95);::G7:8:CS3S32:((C));:C:1:lTXLG:4150:13:9:MIN$SC$TE$:TXBT:4150:13:25:MIN$SC$TE$:MIN$"00:":SC$"08":TE$".60":13:9:MIN$SC$TE$;:25:MIN$SC$TE$:32,227,3,140,10,3,141,11,3,96,2340X): "6TMTX8686(FF):MN%(TM600):SC%((TMMN%600)10):TE%TMMN%600SC%10:MIN$"00"(MN%)":":MIN$(MIN$,3):SC$"0"(SC%):SC$(SC$,2):TE$"."(TE%)"0":r11:8:"APPROXIMATE TIME REMAINING":15:8:"THIS FILE"8)"ALL FILES":64IV:(X);:::INIT#Y2040,MS192:1784,MS168((49152256MS)44):h STARTFILEFC(S35):BT(S36)(S37)256:LG(S33)(S34)256:LGLG(LG123)(LG246)(LG369)(LG492)1:F2L(S38)(S39)256X029:F2(X)(S M1%MN%10:M2%MN%10M1%V S1%SC%100:S2%(SC%100S1%)10:S3%SC%100S1%10S2% 158416SD,M1%176:158516SD,M2%176 158716SD,S1%176:158816SD,S2%176:159016SD,S3%176 SD: I2029:XF2(I2):IVX64:50,63IV255IV:XXTB2070" 4100:CC:5100:1085< D$"PR#0":D$"IN#0":H ELEL1T SD01 MN%((158416SD)176)10(158516SD)176 SC%((158716SD)176)100((158816SD)176)10(159016SD)176 SC%SC%86:SC%599SC%SC%600:MN%MN%1RV:(237)İ3000:(EL)12125,5110JRMOVEBLOK:NRNR1:N2N21:TBTB1gZN280N20:FULL1:2148w\NRLG2120d7::"SAVING":fWRITEBUFh7::"TAKING":k4100:RV13,1:RV12pFULLFULL0:BFFR,52:971,0:2120zCLOSEx0 2223h88X99354C4L44V4q444^:];i;v;J<_<̠ҠݠΠݠ̠Ҡݠ ` /` `+/,/`+/,/` !56012@ABCPQUVWX`abcpqstu, --(-:-E-$-6-..//K-k-------.$.9.@.I.V.c.8pՀ.8L-ee .`8 .` . .`(/ .` .  .` .) .`LY@'/(/*/ .`(/`)/`)/0`)/ )/`hh*/w`(/(/ /`H)/i8h`88``hhhh` / f.L- /-/`*/-/ .`'/ . .L/'/ .L/ f.L/ .LT- .0=/ . .` .Lt- . . .` .././B.// .` .////./// .` .0/0/0// .` . .`eeɰ x .`Lʍ̲ؠ°   . -LP,` . {. a,*/LP, f,`0#)(C1/` L/M/l .'/L,(/ hh8` . . .`( .'/L,(/ hh8` . . .` .(/ hh8` . . .λμߩ` 8+L+ ɰ8`` ]'xò eeLc+FfFfFfe+ò8x(e++8+++`̱ؠ ` + 8` +  `ƲIJƲ l*ŲIJ l*ŲIJ``+++++ ȱ *ɲ+ +0l8ɲ`imò0. 8+ЍIJ+Ʋ88ŲɰЀL( , N) 5)8`IJƲ88Ųx)ɰ`0ɯ8`@ x`@w8`\ xL(IJŲi8Ʋ`  +x ` [ x +(+!++++8DzȲУН++`8` Dz Ȳ`+IJƲ+++暑8`.++ +IJIJŲƲ`++ɰ8+++!++++\ ) @ 'Dz8Ȳ`8`'| *`' *`IJ8DzŲȲ²Ʋ(Ȳò`IJ8퐲Ų푲²Ʋ(푲ò`''Q(_()) , |) )8DzȲ c)`8`IJiŲi )Ų8++ *^ ðL1&L&L &L*++Hh`  ²òIJŲƲDzȲP  ,  3'Y ('cȲ[VDzȲ )IJ8逨Ų@ S+P   ,  B* >'`^ŲƲIJDzŲ8@IJDzȲ v&8`) '`Ҳ̱ðì؍̠%%РŠҲ̱ðì؍̠̱РōŠҲÍӍҲÍӍӠ԰ȠР԰ҍ˰аб԰̰àаŠ԰ӱàбѠ԰ȍ԰ӱ٠԰̱"`a )` Ս`H Hh`ײ̱ðì؍̠̱Ġ̠ײҠ׍ŠҲ̱ðì؍̠̱РĵŠee`L7#   1"Ue *$   1ӥΗ  #`    `   | Lh#  $ $8&  1` 0.0 m "(ɠI`i   eߩ`   e 1` J    1` # 1) "ΗFff b# 88 q#`! e ) L f`L . tQLѤ LҦL` OPu d L Ne)noo,ݠˠΠݠ٠ĠŠˠࠠĠӠĠϮˮࠠĠ˻٠Ӡ ݠˠРˠݠˠԺנˠөݠĠ˺נˠөݠ˺ˠŠݠҠˠĠҠݠ͠͠ŠŠࠠǠŠߠӠΠӠԠөߠӠRETURNӠӠ  WRITEmPROTECTŠORIGINALREMOVEŭԠ͠BLANKŠݠ͠ݠŠݠĠӺݠŠˠŠݠįŠˠ٠ݠŠŠĠݠŠĠΠݠԠݠҩŽݠŠˠԽݠ˩ŽݠĠӠĠԽݠˠŠĠ׭ݠݠ̠ݠŠӠݠˠŠݠŠݠΠϠΠݠԬԠˠݠԠĬĠԠݠΠϠŠΠݠŠӠĠӠݠ̠ˠԽŠ źӠŠΠԠݠϠҠԠŠݠ٠ˠӠݠˠݠ٠ĠŠݠΠϠΠݠˠŠٮݠӠѾϠԮݠݠݠԠҠݠݠԠŠ Š źӠݠŠҠݠ͠Šݠ͠ŠݠԠӠϠݠΠϠΠݠҠϠҠĠΠݠ͠ΠӠƠߠԠDUPLICATE˻ӠԠ˺Ġ˺кݠŠӿŠԿݠNϯAïM̩ݠԠ٠ӿݠŠͼO̠ҠDŠſݠӠҠࠠԠORIGINALDUPLICATEBLANKˠϠݠ    BOTHĠӠԠBOTHӬΠӠԠORIGINAL˻ӠˠݠŠݠˠŠݠˠݠٯŠݠŠӯݠŠݠҠˠݠŠߠӠRETURNϠԠࠠӠŠ˺ݮݮݮ̺ӽĽźӽĽݠΠՠݠŠҠݠϠݠϠŮţݠݠ٠ĠŠ٠ӠʮݠԠéϠݠ̠(N(N5)5) d(36)0ĺ nX53854ERR1::I1500::::" APPLESOFT ERROR MESSAGES: "::"---------------------------" xX1. ========= APPLESOFT CRUISE =========HSTART53456:FIN54116:::" APPLESOFT COMMANDS: "::"---------------------"(XSTARTFIN:P(X)2P7Ğ:"G";:<(P);:P128110FNN1PERRĖ122((N(N2)2)0) ZERRĖ18 ʥL) ʥLM ʥLq ʥL ʥL ʥLݽ ʥL ʥyL% ʥzLI ʥ{Lm ʥ|L ʥ}L ʥ~Lټ ʥL `@x` L5 ` }8` 8`ILlH$ؾlH$ܽpL(ؼlH$ܻ ʥxY0 h }`ɛ,LL geh f 5e8gfhFfmgmhKLghe8fFfmmhfge` L L` 4HhHhHh" ``)dd  `  ̹`# `8`35 ̹ɖ ̹)U  ̹)U ̹ `8``H3* }hH  S  0`@ 6@xɰ` L`꽌000000 `%`H hbY)cd) cL Lb)i)    LL4L}LLҹLOLLLLLtL*LL)LѺ @@ &0    L x﩯   `@x?????????ff??????????????????? '  'L)` ' ! '` 'L 'L  '`=?<>B,,=?=B,` 'L 'Lй)ө)ߙYéȹ  `8` ְ`,)`Lȹ)ߙX$Y+hh MONLY "X" OR "Y" ALLOWEDLЙLՙժr@  ժqުs!s!1ժpppp6t!16t!ժr@  ժqުs!s!1ժpppp6t!16t!!((((PPPP'd  \,6 1 890s@1ppppa5XXXa5 5!5`)` 2`5ժݶ!2P6!1ժ`a5!1ժ`5!1ժppqժ`V5XXXX!1a5!1a5!ҠݠӠĠΠݠξ̠ҠՠϠݠŠӠĠӠήHH 5hh 2 鈩LBȹ&ɽɤ ,9Űjjj` -텞`! 6H7H76ˠȺݠźPLUSCARDERRORzݠҠŠĠӠĠӠݠĠΠԣҠŠӠݠӠԠĠϠŠ   ݠŠҠĠΠԣݠҠϠҠĠ̠L ʥL% ʥLI ʥLm ʥL ʥL ʥLپ ʥL(#(147)$2#"ENTER FILE NAME";N$JULL,0,CPXZ,2,SBCZ,2Tt INCZ,2,NULL,0,INX,1,SBCIM,2,NOP,1,NULL,0,CPX,3,SBC,3,INC,3~ NULL,0,BEQ,2,SBCIY,2,NULL,0,NULL,0,NULL,0,SBCXZ,2,INCZX,2,NULL,0,SED,1 SBCY,3,NULL,0,NULL,0,NULL,0,SBCX,3,INCX,3,NULL,0 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F DL NULL,0,NULL,0,CPYZ,2,CMPZ,2,DECZ,2,NULL,0,INY,1,CMPIM,2,DEX,1V NULL,0,CPY,3,CMP,3,DEC,3,NULL,0,BNE,2,CMPIY,2,NULL,0,NULL,0` NULL,0,CMPZX,2,DECZX,2,NULL,0,CLD,1,CMPY,3,NULL,0,NULL,0,NULL,0j CMPX,3,DECX,3,NULL,0,CPXIM,2,SBCIX,2,NULL,0,NDYIM,2,LDAIX,2,LDXIM,2,NULL,0,LDYZ,2,LDAZ,2,LDXZ,2,NULL,0y. TAY,1,LDAIM,2,TAX,1,NULL,0,LDY,3,LDA,3,LDX,3,NULL,0,BCS,28 LDAIY,2,NULL,0,NULL,0,LDYZX,2,LDAZX,2,LDXZY,2,NULL,0,CLV,1B LDAY,3,TSX,1,NULL,0,LDYX,3,LDAX,3,LDXY,3,NULL,0,CPYIM,2,CMPIX,2X,3,NULL,0,NULL,0,STAIX,2,NULL,0,NULL,0,STYZ,2o STAZ,2,STXZ,2,NULL,0,DEY,1,NULL,0,TKA,1,NULL,0,STY,3,STA,3 STX,3,NULL,0,BCC,2,STAIY,2,NULL,0,NULL,0STYZX,2,STAZX,2,STXZY,2 NULL,0,TYA,1,STAY,3,TXS,1,NULL,0,NULL,0,STAX,3,NULL,0,NULL,09$ LORX,3,LSRX,3,NULL,0,RTS,1_ ADCIX,2,NULL,0,NULL,0,NULL,0,ADCZ,2,RORZ,2,NULL,0,PLA,1,ADCIM,2 RORA,1,NULL,0,JMPI,3,ADC,3,ROR,3,NULL,0,BVS,2,ADCIY,2,NULL,0 NULL,0,NULL,0,ADCZX,2,RORZX,2,NULL,0,SEI,1,ADCY,3,NULL,0,NULL,0. NULL,0,ADCX,3,RORLL,0,NULL,0,ANDX,3W ROLX,3,NULL,0,RTI,1,EORIX,2,NULL,0,NULL,0,NULL,0,EORZ,2,LSRZ,2 NULL,0,PHA,1,EORIM,2,LSRA,1,NULL,0,JMP,3,EOR,3,LSR,3,NULL,0BVC,2,EIY,2,NULL,0,NULL,0,NULL,0,EZX,2,LSRZX,2,NULL,0 CLI,1,EORIY,3,NULL,0,NULL,0,NULL,0,EE NULL,0,NULL,0,NULL,0,ORAX,3,ASLX,3,NULL,0,JSR,3,ANDIX,2,NULL,0 NULL,0,BITZ,2,ANDZ,2,ROLZ,2,NULL,0,PLP,1,ANDIM,2,ROLA,1,NULL,0 BIT,3,AND,3,ROL,3,NULL,0,BMI,2,ANDIY,2,NULL,0,NULL,0,NULL,0 ANDZX,2,ROLZX,2,NULL,0,SEC,1,ANDY,3,NULL,0,NU(19)I0: A$(13)50500 I0:(147): 3000} p BRK,1,ORAIX,2,NULL,0,NULL,0,NULL,0,ORAZ,2,ASL,2,NULL,0,PHP,1 z ORAIM,2,ASLA,1,NULL,0,NULL,0,ORA,3,ASL,3,NULL,0,BPL,2,ORAIY,2 NULL,0,NULL,0,NULL,0,ORAZX,2,ASLZX,2,NULL,0,CLC,1,ORAY,3AD2 5030 DCIB:1000+ B1$HX$@ DC(AD1):1000L B2$HX$a DC(AD2):1000m B3$HX$ OP(AD1)((AD2)256) 13000 AD;AD$12);B1$;" ";B2$;" ";B3$;21);MN$(IB);27);OP ADAD3 3000 A$:A$""5050 A$ ADAD1:3000. BY%(IB)3060,3090,4050E DCIB:1000:13000f AD;AD$12);HX$;21);MN$(IB)r  ADAD1|  5030  DCIB:1000 B1$HX$ DC(AD1):1000 B2$HX$ 13000:PDC AD;AD$12);B1$;" ";B2$;21);MN$(IB);27);P AD,11000,2900 90# SX(DC16)5 UNDC(SX16)E SX$CO$(SX)U UN$CO$(UN)e HX$SX$UN$k w T (147) ^ "START ADDRESS";AD:I0 I245050 II1 IB(AD) MN$(IB)"NULL"3050 DCIB:1000:13000 AD;AD$12)HX$"*""3-LOAD OBJECT CODE FROM DISK":P "4-RUN MACHINE LANGUAGE PROGRAM WITH SYS"V "5-RUN MACHINE LANGUAGE PROGRAM WITH USR" "6-LIST MACHINE LANGUAGE PROGRAM" A$:A$""180 (A$)0(A$)6180 (A$)14000,20000,9000,10000% $ 6502 ASSEMBLER FOR APPLE ][e< BY LYNN NICHOLSON[ MN$(256),BY%(256),CO$(16)hE0255{MN$(E),BY%(E)(<E015FCO$(E)PZ(147):d"1-INPUT SOURCE 0ODE AND ASSEMBLE":n"2-SAVE OBJECT CODE TO DISK":! x      ʥL% ʥLI ʥLm ʥL ʥL ʥHhHh`??(#(147)$2#"ENTER FILE NAME";N$5<#OPEN1,1,0,N$@F##1,ZZKP##1,ENYZ#ADZZENed##1,DA%qn#AD,DA%wx##CLOSE1#ULL,0,CPXZ,2,SBCZ,2Tt INCZ,2,NULL,0,INX,1,SBCIM,2,NOP,1,NULL,0,CPX,3,SBC,3,INC,3~ NULL,0,BEQ,2,SBCIY,2,NULL,0,NULL,0,NULL,0,SBCXZ,2,INCZX,2,NULL,0,SED,1 SBCY,3,NULL,0,NULL,0,NULL,0,SBCX,3,INCX,3,NULL,0 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F DL NULL,0,NULL,0,CPYZ,2,CMPZ,2,DECZ,2,NULL,0,INY,1,CMPIM,2,DEX,1V NULL,0,CPY,3,CMP,3,DEC,3,NULL,0,BNE,2,CMPIY,2,NULL,0,NULL,0` NULL,0,CMPZX,2,DECZX,2,NULL,0,CLD,1,CMPY,3,NULL,0,NULL,0,NULL,0j CMPX,3,DECX,3,NULL,0,CPXIM,2,SBCIX,2,NULL,0,NDYIM,2,LDAIX,2,LDXIM,2,NULL,0,LDYZ,2,LDAZ,2,LDXZ,2,NULL,0y. TAY,1,LDAIM,2,TAX,1,NULL,0,LDY,3,LDA,3,LDX,3,NULL,0,BCS,28 LDAIY,2,NULL,0,NULL,0,LDYZX,2,LDAZX,2,LDXZY,2,NULL,0,CLV,1B LDAY,3,TSX,1,NULL,0,LDYX,3,LDAX,3,LDXY,3,NULL,0,CPYIM,2,CMPIX,2X,3,NULL,0,NULL,0,STAIX,2,NULL,0,NULL,0,STYZ,2o STAZ,2,STXZ,2,NULL,0,DEY,1,NULL,0,TKA,1,NULL,0,STY,3,STA,3 STX,3,NULL,0,BCC,2,STAIY,2,NULL,0,NULL,0STYZX,2,STAZX,2,STXZY,2 NULL,0,TYA,1,STAY,3,TXS,1,NULL,0,NULL,0,STAX,3,NULL,0,NULL,09$ LORX,3,LSRX,3,NULL,0,RTS,1_ ADCIX,2,NULL,0,NULL,0,NULL,0,ADCZ,2,RORZ,2,NULL,0,PLA,1,ADCIM,2 RORA,1,NULL,0,JMPI,3,ADC,3,ROR,3,NULL,0,BVS,2,ADCIY,2,NULL,0 NULL,0,NULL,0,ADCZX,2,RORZX,2,NULL,0,SEI,1,ADCY,3,NULL,0,NULL,0. NULL,0,ADCX,3,RORLL,0,NULL,0,ANDX,3W ROLX,3,NULL,0,RTI,1,EORIX,2,NULL,0,NULL,0,NULL,0,EORZ,2,LSRZ,2 NULL,0,PHA,1,EORIM,2,LSRA,1,NULL,0,JMP,3,EOR,3,LSR,3,NULL,0BVC,2,EIY,2,NULL,0,NULL,0,NULL,0,EZX,2,LSRZX,2,NULL,0 CLI,1,EORIY,3,NULL,0,NULL,0,NULL,0,EE NULL,0,NULL,0,NULL,0,ORAX,3,ASLX,3,NULL,0,JSR,3,ANDIX,2,NULL,0 NULL,0,BITZ,2,ANDZ,2,ROLZ,2,NULL,0,PLP,1,ANDIM,2,ROLA,1,NULL,0 BIT,3,AND,3,ROL,3,NULL,0,BMI,2,ANDIY,2,NULL,0,NULL,0,NULL,0 ANDZX,2,ROLZX,2,NULL,0,SEC,1,ANDY,3,NULL,0,NU(19)I0: A$(13)50500 I0:(147): 3000} p BRK,1,ORAIX,2,NULL,0,NULL,0,NULL,0,ORAZ,2,ASL,2,NULL,0,PHP,1 z ORAIM,2,ASLA,1,NULL,0,NULL,0,ORA,3,ASL,3,NULL,0,BPL,2,ORAIY,2 NULL,0,NULL,0,NULL,0,ORAZX,2,ASLZX,2,NULL,0,CLC,1,ORAY,3AD2 5030 DCIB:1000+ B1$HX$@ DC(AD1):1000L B2$HX$a DC(AD2):1000m B3$HX$ OP(AD1)((AD2)256) 13000 AD;AD$12);B1$;" ";B2$;" ";B3$;21);MN$(IB);27);OP ADAD3 3000 A$:A$""5050 A$ ADAD1:3000. BY%(IB)3060,3090,4050E DCIB:1000:13000f AD;AD$12);HX$;21);MN$(IB)r  ADAD1|  5030  DCIB:1000 B1$HX$ DC(AD1):1000 B2$HX$ 13000:PDC AD;AD$12);B1$;" ";B2$;21);MN$(IB);27);P AD,11000,2900 90# SX(DC16)5 UNDC(SX16)E SX$CO$(SX)U UN$CO$(UN)e HX$SX$UN$k w T (147) ^ "START ADDRESS";AD:I0 I245050 II1 IB(AD) MN$(IB)"NULL"3050 DCIB:1000:13000 AD;AD$12)HX$"*""3-LOAD OBJECT CODE FROM DISK":P "4-RUN MACHINE LANGUAGE PROGRAM WITH SYS"V "5-RUN MACHINE LANGUAGE PROGRAM WITH USR" "6-LIST MACHINE LANGUAGE PROGRAM" A$:A$""180 (A$)0(A$)6180 (A$)14000,20000,9000,10000 $ 6502 ASSEMBLER FOR APPLE ][e< BY LYNN NICHOLSON[ MN$(256),BY%(256),CO$(16)hE0255{MN$(E),BY%(E)(<E015FCO$(E)PZ(147):d"1-INPUT SOURCE 0ODE AND ASSEMBLE":n"2-SAVE OBJECT CODE TO DISK":! x     -HH`PW''W****TTTcPT8*T**P*'''TTT-TLӭ L(נ MEQU/EPZ MUST HAVE A LABELhhLЭ LUӭ L( MLABEL NOT ALLOWED HERE` !;hh MOPERAND NOT ALLOWEDLЩ8` R%@)hh MILLE +"  L",뷩   `$%L" > Q<<=??ɰ` _!췩z `ɔꩱ   L  xt8`xrirsLҤt` uҐ8`HH`Կ䵘8ت +"~!  Ld!, `  , +"  L!,L!귭 L!귭 , ɛ`ɱɳ8鱍mL m,`렠󠠠Ͼľ  `LR͂̓   }L3 o &n 8튲n rpqstuvwmxy%`'d Jn,!  Lɛ`ɱɴ8鱍o1 X,  L`8`o L`o$Lf, 귭 鷩 UL#  鷭 6" UL#pqrst{mxy%uvw{J췩x뷭{ɌLT" ɔL   L=ׅ?<>BL9x=?<>` <ɀL:I<>=??ɰ` " X`0٨ L  +"z Ls r!{LǠˡ報L z#$ _!Lz8#췭ɛ D#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~ hh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 HL` *HVDP (FD Z $0x8x D- ܸDL\HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ <=>?.&5.&,24<;;;;+29<*J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪV?鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ` `i`@ iPiP?i i 0 `i` iPiPi i stA0"i48'8i 0ɝ  `lƉL  `HI1 Ah(`  ` I(1?``h`I:84)0&"0L`  H H) HI1h (hL h0JJОЙ0J J L 0`HhɁLɂL`h`  H H) HI1h (hL h0JJОЙ0J J L 0`HhɁLɂL`hɂLLh`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_ɠŠ͠͠ Р `ϠԠʭˠԠנ#ՠΠ`L@ԠΠϠРϠŠԠĠĠ"ڠϠ          !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""                                    ŮŠǍĠ٠٠ƠЮЮ̮ŮŠĠ͠٠ōAR? X  Q涙 ޶ )i# -LȽ 刱 ޶ ȱ ޶ ȱ ޶8ʅ ޶ȱȱɳ ޶ l `` ` LōVEYET*J @Ƚ3JJJJ&