' +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- ( 0  Ϡ@跻~!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 ~(` i d ֠z# u`*> <*> <*> <*> <*> <*> <*> <*>"%K4:I10731093:I,32:I768,32:Ir>I12021843128:I,32:I18,32:IH1335,65:1337,80:1339,80:1341,76:1343,69R1589,139:1591,137:1593,142:1595,135:1597,132:1599,143:1601,141\I20122026: * *3' ********************* I' * HORSE RACE *6' * *R' * BY *n' * * ' * GEOFFREY GENZ * ' * & * ' * PAUL BRAUN * ' * * ' * AGES 14 & 15 *'X$"WHEN YOU RUN OUT OF MONEY YOU WILL BE LOANED $500. WHEN YOU HAVE ENOUGH MONEYYOUR LOANS WILL BE PAID BACK.":X$:X$"PRESS ANY KEY TO CONTINUE"::X$;:X$:240' ' *********************' * *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: TO 3.*"SHOT 1 FOR SLAPSHOT"O" 2 FOR WRISTSHOT"s" 3 FOR BACKHAND"" 4 FOR SNAP SHOT""AREA WHERE YOU WILL AIM"" 1 FOR UPPER LEFT CORNER" " T2(T),T3(T)T:E"SHOTS ON NET ":A$(7);":";S2:B$(7);":";S3Ku:"THIS IS A SIMULATED HOCKEY GAME.""QUESTION RESPONSE""PASS NUMBER OF PASSES YOU"" WOULD LIKE TO MAKE"" FROM 0,A$(7);":";H(9)/6:10);"SCORING SUMMARY":?@25);A$(7)]J"NAME","GOALS","ASSISTS"{T"----","-----","-------"^I15:A$(I),T(I),T1(I)hI:r25);B$(7)|"NAME","GOALS","ASSISTS""----","-----","-------" T15:B$(T),::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::VE ";A$(6);" FOLLOW UP":940/S1(6(1))1@C1220,1380fS11230,1260,1290,1300,1330,1350"KICK SAVE AND A BEAUTY BY ";B$(6)"CLEARED OUT BY ";B$(3)260"WHAT A SPECTACULAR GLOVE SAVE BY";B$(6)"AND ";B$(6);" GOLFS IT 2400%32,16:A$"MORE DATA":2400A 32,18:A$"IS IN":2400c*32,20:A$"PREPARATION":2400o432,1:w` 11j X1(A$)t (A$,X,1)~ T125:T X  100:1:"MY DATA":2:"INDICATE":3:"THAT YOU ARE":4:"CORRECT."9 6ING"&X(16384):X177X1852030416368,0BKEYX176HXKEYP2500pA$"DATA NOT":2400 32,3:A$"CONSISTENT":240032,5:A$"WITH":240032,7:A$"INFORMATION":240032,9:A$"ON THAT":240032,11:A$"PLANET":.)%:YOU MAY WISH TO CHANGE LINE # 25.ASIGN BY ALEX AND CHRIS MASSIMO.M$:THIS PROGRAM WAS ADAPTED FOR THE APPLE"n$:BY ALEX AND CHRIS MASSIMO.$:DONATED TO THE APPLECORPS OF SAN DIEGO.$ :IF YOU WISH TO CHANGE THE SPEED, REDO LINE # 139.%:IF YOU WISH DIFFERENT RANDOM FIGURES*BORDER EXPANSION-(15%)-INCREASES"Q#@ "POPULATION AND LAND, DEPENDS ON PRESENT"p#J "POPULATION OF KINGDOM !"#T 22:"IF YOU ARE READY TO RULE APPLE KINGDOM,"#^ :"TYPE A 'Y' AND GIVE IT A GO,GOOD LUCK !"#h A$#r A$"Y"20#| $:TITLE DE(15%)-DECREASES HARVEST TO 1"<" "OR 2 BUSHELS PER ACRE !"k" 23:"TO CONTINUE HIT ANY KEY !":K$:2840q" " :8:"*GRAIN SHIPMENT-(15%)-INCREASES GRAIN""" "STORAGE, DEPENDS ON THE SIZE OF THE"", "KINGDOM ( ACRES OF LAND ) !""1 :"#6 "CE ACREAGE"! "UP TO 15% !"$! N! :"*ATTACK BY HUNS-(10%)-MAY REDUCE"}! "POPULATION UP TO 40%, STORAGE UP TO 10%"! "AND LAND UP TO 2% !"! ! "*RAIN-(15%)-INCREASES HARVEST TO 7, 8"! "OR 9 BUSHELS PER ACRE !"! " "*DROUGHT-23:" TO CONTINUE HIT ANY KEY !":K$:26990 S :9)"<*> RANDOM FACTORS <*>" :"*PLAGUE-(10%)-MAY REDUCE POPULATION" "UP TO 80% !" "*THEFT-(10%)-MAY REDUCE GRAIN STORAGE" "UP TO 10% !" ! "*EARTHQUAKE-(10%)-MAY REDUDERFEEDING-THE RULER MAY STARVE OFF"RZ "2 PERSONS PER YEAR WITHOUT ILL EFFECT."~d "EACH STARVATION OVER 2 INCREASES THE"n "CHANCES OF FOOD RIOTS BY 5% EACH."x "A FOOD RIOT MAT RESULT IN A LOSS OF UP" "50% OF THE GRAIN IN STORAGE !"* 8  :4? "*OVERFEEDING-A FOOD SURPLUS OCCURS WHEN"n( "MORE GRAIN IS ALLOTED FOR FOOD THEN THE"2 "MINIMAL REQUIREMENT. THERE IS ABOUT"< "A 50% CHANCE OF GAINING 1 PERSON FOR"F "EACH 20 BUSHELS OVER THE MINIMUM."K :$P "*UNXIMUM"" "OF 2 ACRES PER YEAR."( R "*LAND PRICE-VARIES BETWEEN 3 AND 6"k "BUSHELS PER ACRE. q  "*POPULATION-VARIES BETWEEN 20 TO 40 %"  "*GRAIN LOSS-VARIES BETWEEN 0 AND 50 %" 23:" TO CONTINUE HIT ANY KEY !":K$:258 GAME CONSTANTS <*>" G "*FOOD-EACH SUBJECT REQUIRES A MINIMUM"v "OF 10 BUSHELS OF GRAIN PER YEAR AS FOOD"|  "*SEED-EACH ACRE PLANTED REQUIRES 3" "BUSHELS OF GRAIN PER YEAR FOR SEED."  "*LABOR-EACH SUBJECT MAY PLANT A MAL WEALTH EQUAL TO, OR"Et " EXCEEDING ONE MILLION UNITS. WEALTH IS"q~ " MEASURED IN TERMS OF TWO QUANITIES:" " ACRES OF LAND OWNED, AND BUSHELS OF" " GRAIN IN STORAGE." 23 " TO CONTINUE HIT ANY KEY !":K$:2470  :8)"<*>ICAL,MEDIEVAL"=8 " COUNTRY. THE RULER MUST MAKE DECISIONS"lB " WHICH MAINTAIN THE KINGDOM AND ADVANCE"L " THE PLAYER TOWARD THE GOAL."V " THE GOAL OF THE PLAYER IS TO RULE THE"` " WORLD !. THIS IS ACCOMPLISHED BY"j " COLLECTING A TOTA158:I1683,129"1555,1075N14000:N:U:10)"OFFICIAL RULES FOR"x 3:9)"<*> K I N G D O M <*>"~  " THE GAME OF APPLE KINGDOM IS BASED UPON" $ " THE PREMISE THAT THE PLAYER IS TO ACT". " AS THE RULER OF A MYTHI,32:I!fI18851897:I,32:IGpI19741758128:I,32:I2,32:ImzI11181758128:I,32:I2,32:II11261766128:I,32:I2,32:I1982,32:1984,32I11191756128:I,170:I8,170:II19361942:I,58:II18081814:I,)ecoct\ yM~cc a(Š)c+a(źԠӠ٠ӠϠ),a(ŠӠƠՠŠҠŠ)+a(ϠšƠՠŠΠҠ)(a(ĠΧԠȠԬՠˠ٠)3a(ŠŠ̠Š͠ҩ)Bc-Ga(ƠՠԠ٠Ҡ٠ŠҠ)-La(̠ˠՠҠŠˠĠҠ)(Qa(ՠԠϠŠǠŠŠ),Va(ŠԠԠĠΠǠ)+[a(ҠŠˠĠҠՠĠ)`a(ϠĮŠŠ)0$a(̠ˠՠƠՠԠϠŠˠ)G*)a(Ԡ٠įΠ˾)*.a(ҠԠ٠įΠ),3a(Ҿ٠٠Ǡ٧Š),8a(Š̠ŠԠˠϠŠ)(=a(Šˠ͠Š ]Ԡ ] ]ԠĬԠ ] ]da(ΠȮ)nQ)nQ e1y d ed ed ed ed!e| [T Kd2ea(Ԡ٠٠ϠΠϠŠΠ)Md2e`}$_w ]ΠϠŠŠƠΠϠҠŠƠӠ٠ҮΠ eUp d ed ed ed e!d e d ed ed e d eUs d ed ed ed ed ed ed ed ed e_Uv d ed ed ed e@d ed ed e d ed e Ug d ed ed ed ed ed eLd ed ed eLUj d ed ed ed ed ed eed ed ed etUm d ed ed efd ed ed eld ed edd eU^ d ed ed ed ed ed ed ed ed eUa d ed ed ed e_d ed ed ed e9d e Ud d ed ed ed ed ed ed ed edd eUU d e d ed e@d ed ed ed ed ed eUX d ed eJd eJd eJd e d ed e d ed e@U[ d ed e+d e`d ed e>d eLd ed e dt e`UL du e&dv e<dw eJdx e&dy e*dz ed{ efd| e d} eUO d~ e@d ed ed e*d e)d ed ed ed e UR d ed e@d ed ed e<d e)d ed e dY eUC dZ ed[ e d\ ed] ed^ ed_ ed` eda e=db eUF dc eCdd ede edf edg e>dh edi eBdj edk eUI dl e`dm edn edo edp edq e dr eds e d> eU: d? ed@ edA e@dB edC e<dD edE eAdF edG e=U= dH edI edJ edK e<dL e dM edN edO edP eU@ dQ edR edS edT edU edV edW edX eed# eU1 d$ ed% ed& ed' ed( ed) ed* ed+ ed, e<U4 d- ed. e@d/ ed0 e=d1 ed2 eAd3 e d4 ed5 eU7 d6 ed7 ed8 e d9 ed: ed; ed< ed= e ed eU( d ed ed e d ed ed ed eLd eid eU+ d ed eBd ed e?d ed eCd ed ed eU. d ed ed ed ed e d ed! ed" ] ] c K M a@E() c _  ] ]Ԡ ] a@E(Πìɬ) K  Mcc a(ŠҠ׮) K Q" ]ӠҠU% d ed eLd ed ed ed ed ed ]Ϡ ] de ] ]ĠŭŠ ] de M ] ]Ϡ̮ ] _6 Ma()( ca(ՠҠħӠҡ) q}_  Q ]Ҡ)c-a(ӠŠ))a(ƠŠϠ)-a(͠ϠŠ)c)a(ӠŠ)/a(ӠҠŭ)G+a(Š)ca(ˠҠ)c,a(̠̠ĠϠŠ)'a(ӠӠӠé)=ca(Ԡ٠٠ϠŠ)\Mcca(Š)cc$Pa(ԠӠΠ)c$a(ˠ̠٠)-ba(Ӡ)/ga(ҠǠ)G'la(Ӡî)qc{a(̠ӡ)ca(Ԡ٠٠ϠŠ)\ Mcca(Ů)5c :a(ˠҠ)?c-Da(àӠŠ))Ia(ӠϠŠ)-Na(٠ŠԠ)/Sa(Р٠)GXcc+]a(ΠՠĠΠҠҡ)cc7d2ea(Ԡ٠٠ϠϠΠϠŠԠ)G d2e\ M cca(Š)P a(Ԡ)&c,+a(ŠǠӠԠƠԠ)"0a(ҧӠΠ٠ӠŠ̠٠ˠƠ),a(ŠҠՠȠϠҠ)*a(ӠŠԠҠή))a(٠ҠĠΠ̠Ԡ)-a(ŠŠӠƠŠ),a(Ҡԧ̠̠ҠƠ)*a(ӠƠ٠Π)Gr\ wM|cca(Š)c-a(ӠϬĠŠΠ)+a(٠ΠӠԠϠ)+a(ŠҠ̠ŠΠԠ͠)a(ŠƠҮ)c-a(ź٠Ԡө)Kc+Oa(٠ŠՠŠҠǠ)/Ta(ˠŧӠŠŠ)G-Ya(ŠҠӠĠϠҠ),^a(ϠƩŠԠӠΠԠϠ)&ca(Šˠ͠Š͠Ү)hc/ma(ƠŠϠҠŠԠΠ)0'a(ҮȠƠՠŠҠ)G+,a(ԠҠ٠ŠՠΠ))6a(ҠԠ٠٠ǠŠ);a(٠š)Dc-Ea(נӠŠΠĠŠҠ)&Ja(٠ŠŠ)'a(Š̠Ӡ)c7d2ea(Ԡ٠٠ϠϠΠϠŠԠ)G d2e\ Mcc a(Š)cP a(Ǡ)c,a(ŠŠŠƠˠŠӠŠ)+"a(٠c+a(̠ŠǠӠŠ٠Ǡ)-a(ӠخϠŠŠӠƠ),a(٠ΠŠĠŠ) a(נžΩ)c,a(ƠՠΧԠננϠŠŠƠ)-a(ŠҠՠĠˠԠŠϠ٠Ԡ)(a(ԠԠŠҩĠŠ)-a(İǧԠ̠ŠՠΠŠ),a(Ҭ̠ՠŠŠ)-a(ҠӬנՠϠΠϠ)-a(Š͠٠Ǡ̾٧Ġ)a(ή)̠)Aa(ĠԠɠή)FcKc Pd2e/Ua(Ԡ٠٠ϠϠΠϠŠԠ) Zd2e_\ dMicncsa(Š)xc}P a(Ǡ)c.a(ӠΠӠԠΠϠԠŠ),a(Ҡ̠ԠΠŠŠ٠٠ǠŠ)a(̧ٮ)c*#a(ΠՠԠŞ̌٠ŠŠ),(a(̠ϠíԠҠԩƠ)-a(Š͠Ү)2c,7a(ΠΠӠӠ٬)+<a(ΠԠŠՠϠíԠէ Mcc a(Š)cP a(Ǡ)c.a(ԠŠŠҠҠŠǠˠ)*a(Šՠ̠ĠԠ٠Ϡ)* a(ĠԠԠɠӠŠ),a(ΠŠҠՠŠĠή).a(ӠՠŭŠԩ)-a(ҠՠԠĠԠΠ)*a(ΠҠˠ ԠŠՠ)-a(ŠŠ˧ӠĠҧӠԠ)a(Ԡĩ)ccc6d2ea(Ԡ٠٠ϠϠΠϠŠԠ) d2e\e)dEe8]dFedGedHe"dIedJe4dKedLedMedNedOe]dPedQedRedSedTedUedVedWe dXedYe]dZed[ed\ed]ed^ed_e$ A M":INPUT YOUR PROGRAM NAME"::">0 PRINT '@OPEN XXXX':POKE 33,33"!">10 PRINT '@WRITE XXXX':LIST:PRINT '@CLOSE':END":::"@=CONTROL D XXXX=PROGRAM NAME":10!:"HIT ANY KEY TO CONTINUE SELECTION"::A$:936:" 936:" E N D O F P R O G R2 PROMPT AND WAIT FOR INPUT":"CALL -657 WAIT FOR INPUT" " ALL THESE RESPOND TO ESCAPE AND ARROW KEYS":"TO FIND INPUT CHARACTERS---LOOK AT THE INPUT BUFFER BY" :"PEEKING 512 TO 767 ($200 TO $2FF)":10>!"PROGRAM FOLLOWINGS, THEN RUN AFTER :"CALL -8192(OR KILL) END & CLR WORK SPC""CALL -167 SET TEXT MODE":"CALL -155 RESET BEEP":"CALL -151 RESET NO BEEP":10"CALL -321 (A=XX, X=XX, Y=XX, P=XX, S=XX)":10: "CALL -665 LF PROMPT AND WAIT FOR INPUT":"CALL -66-1008 BACK SPACE CURSOR":"CALL -998 CURSOR MOVE UP""CALL -922 CURSOR MOVE DOWN":"CALL -912 SCROLL SCREEN":"CALL -868 CLR TO END OF LINE"*"CALL -958 CLR TO END OF SCREEN":"CALL -756 WAIT FOR KEY PRESS"0 RUN INTEGER"g"CALL -3776 BASIC SAVE INTEGER":"CALL -3973 BASIC LOAD INTEGER":10"CALL -1998 CLEAR GR SCREEN":"CALL -1953 CHANGE COLOR+3":"CALL -1233 RESET TEXT MODE"?"CALL -1036 ADVANCE COSOR":"CALL MODE":"CALL -384 INVERSE MODE":"CALL -321 DISPLAY REGISTER""CALL -155 ENTER MONITOR":"CALL -198 RING BELL":"CALL -182 SAVE REGISTERS""CALL -144 SCAN INPUT BUFF":"CALL -8117 LIST INTEGER":"CALL -609`"POKE 37, VT (VERT TAB)":"POKE 32, L1 (LEFT)":"POKE 33, W1 (WIDTH)":"POKE 34, T1 (TOP)""POKE 35, B1 (BOTTOM)":10"CALL -936 CLEAR SCREEN":"CALL -922 LINE FEED":"CALL -912 SCROLL SCREEN"I"CALL -380 NORMAL LOW ORDER ADDRESS)":"POKE 63, END OF SOURCE/256 (HIGH ORDER ADDRESS)""POKE 66, BEGINNING OF DESTINATION MOD 256 (LOW ORDER ADDRESS)":"POKE 67, BEG OF DESTINATION/256(HIGH ORDER ADDRESS)""CALL -468 MOVE COMMAND EXP: 800<4000.5000M":10RDER ADDRESS)"a"CALL -458(VERUFY COMMAND)":"EXP: 800<1000. 1FFV MONITOR VERIFY FORMAT":10"POKE 60, BEGINNING OF SOURCE MOD 256 (LOW ORDER ADDRESS)":"POKE 61, BEGINNING OF SOURCE/256 (HIGH ORDER ADDRESS"F"POKE 62, END OF SOURCE MOD 256 (ER BEGIN ADDRESS)":"POKE 61, BEG /256 (HIGH ORDER BEGIN ADDRESS)""POKE 62, END MOD 256 (LOW ORDER END ADDRESS)":"POKE 63, END/256 (HIGH ORDER END ADDRESS)""POKE 66, VERIFY START MOD 256 (LOW ORDER ADDRESS)":"POKE 67, VERIFY START/256 (HIGH OMOD 256 (LOW OERDER END ADDRESS)":"POKE 61, BEGIN/256 (HIGH ORDER START ADDRESS)"z"POKE 62, END MOD 256 (HIGH ORDER END ADDRESS)":"POKE 63, END/256 (HIGH ORDER END ADDRESS)"{"CALL -307 WRITES OUT TO TAPE":10B~"POKE 60, BEG MOD 256 (LOW ORD]Ԡ]]ԠĮԠ]!]ˠŠݧ] d6?e`.?6@r$[Ġ˧)Gc c%\ *M/cca(Š)4c9a(ԧӠ̠ӡ)>cHKMQf]w]ΠϠŠŠƠΠϠҠŠƠӠ٠ҮΠ٠ŠӠخɽԠ)'a(Ьî)-a(ϠӠ)*a(ˠŠ)) a(ȠΠŠ),a(ĠϠŠ)0a(d ed ed ede.?Lrde.?Mr`.?Mr%  _ \M_O.?r.?rKqN@"$rN@"r@p()q.?Jr.?Krq4qca()HKM6d2ed ed e d ed ed ed ed ed ed e ]d ed ed ed ed ed ed ed e d ed e|]d ed ePd exd ed e_d ed eLd end eHd ed e d ed e d ed eu]d ed ed ed ed e d ed ed ehd ed e]d eHd ed ed ed ed e d ed ed ed e]d e e d ed ed e]d ed ed e$d ed e!d ed ed e d ed e]d ed ed e d eJd ed ed e d ed e d e ]d ed ed ehd ed e ]d ed e d ed ed ed ed ed ed eqd e]d ed ed eed ed ed ed ed ed ed e]d e d e d ed ed ed edds edt edu edv e dw edx e]dy edz e(d{ e]d| ed} ed~ e]d ed ed ed ed ed ed e]]d ed e d ed ed ed ed ed ed eedX edY edZ e d[ ed\ ed] e]d^ e d_ ed` eda edb edc edd e de edf edg e]dh edi edj edk edl edm edn edo e0dp edq e]dr ed< ed= eLd> ed? eM]d@ edA edB edC edD edE e dF edG edH edI e]dJ e dK edL e dM edN edO edP edQ edR edS e]dT edU edV edW d! e]d" e`d# ed$ e d% ed& ed' ed( ed) ed* ed+ e]d, ed- ed. ed/ e0d0 eDd1 ed2 e d3 ed4 ed5 e]d6 ed7 ed8 ed9 ed: ed; ed ed ed e d ed e d ed ed ed e]d eqd ed ed ed eed ed ed ed ed e]d ed eLd ed eMd ed ed ed e d eedededededede]dededededehdeLdededeLde]dededejdedejded ed ed ed e]d edededede]dededededededededede]dede6dededede7de`deHdede]dedededeude]dededeLdededdeudedededet]dede deXdedeLdededeBdedeq]dedeLde,dededede dedededeLdededde2de]dededededededde3de!dede]de de3dededededede"d{ed|e*d}ed~ededede]de+deqdedeLdede,dedeqdede ]de:dede`dededede de-dede`]ded`edaedbedce]ddedee)dfe2dgedhedie1djedkedledmeh]dnedoedpe!dqedredsedte!due:dve$dwe;]dxe)dye<dzedede]de@\M6˱q*˲q˱)8r˳q˱88˲˱rrm]UV˱W˲q8˳r`˱˳%odePtco.?%rPa()GPdeMcY?^oPa(ΠϠԠ٠Ҡ٠Ϡ` $Va@*#rGq_UVd2ea()Gd2e%Wa()Jq.?r.?r_R3XdJe.?rdKe.?rde.?rde.?rY[BZqq.?r.?rde8rde8r?[dedecdrqRQN@"@r@p()IRq.?r`@%q`$Xa@*#rGq`.?r$R?Sa()G`$Tde.?rde.?rbG_W Tq:Uq.?r_AK\MdJe.?rdKe.?rqq q.?r.?r$Lq.?r.?r\Qc_ MPa(Š)5Nde.?Jrde.?Krde.?rde.?r[OdJe.?rdKe.?r8Pqq.?r.?rq.?r.?\hdMe˱dLe˲a()E@E(ְ)dLe.?rdMe.?rC_,D\g`@:()$ \hde˲de˱EdLe.?rdMe.?r FM-GPS(ŠԠŬӠ)&@H\hdMe˱dLe˲I JdLe.?rdMe.?rԠŬӠ)&@M_ ?PS(Ԡ)&@]@de.?Lrde.?MrdLe.?rdMe.?ra(Ġ)E@dLe.?rdMe.?r_ NAPa(Š٠)F.?r.?r8.?r.?rrE()_ ZBPS(ŠŠ)&@ 9c_ 5:qqqa@*#rE@*#rG[B;PS(Һ͠Ϡ)''o.?%rP S(Ԭ)''[PS(Ġ.3oa(ҠӠ)oPQ4q_1A5PS(Š)'\"`$6a(Ϡ)FE(Ġ)_ 6q.?rq17q8ra()G\:q8r\:a()G=8UVWq.?ra()G\:q`$9Yc_7S(ţҠ)''`@*#r:()$/\q_0/\j 0q V1qM6UVWXcca()FE()GUVWa(Š)FE()F.?rE()GY[2q q Ycca(Ϡ)oPa(ϠŬ٠ŠϬԠ).?r$ q.?r)P6*q.?r.?r`$ t+`.?%r$,_(,a(Ԡ)G\iR-`$ `$k`$(`$'\g\jq_&g.PS(Šӿ)&@o.?%rP !b[ a()_ !a()_ "`$#w_ #q.?r.?r=$q.?r`%[q.?r`%[q.?r_$%PS(Ԡ)'M6o&\"q_*!'`$ M6ot&(`-a()Gde.?rde.?rMc_ o.?%rP a()GRqqUV;@rWX6q<@*#rr` %q`$D`$ de88rr.?rq(Y`.?r.?r$`$K`$a`$d_\g`$c\_ o.?%rP a()G8qUVW;@rq<@*#rr` $0`86 r6 $ q 2Y`@*#r9()$`6$ q6M6dM\i7`$k`8r$Q`$>`$Z`$?`$B`$5`$A7`$n`$D`$%`$o*`$.`$;`$G*Ԡ˩)a(ˠ)a(Š)a(Š)< a(РϠ)a(̠ЮĮЮ)a(Ԡ٠)a()i a(Š)a()a(ŠϠ)a(Š)a()a(ڠҠ)G d eco Pa()G?UVW'a()GYcUVWa()GP'a()Y%UVW'a()GYd2eo)Pa(͠Ԡ)c/Pa(ĮȠ֮Ǡή)#oa(Ӻ)d e oc a(Ġũ)a(à)a(ĠŠǠˠϠӠϠŠΠΠϠЮȠԠŠӍϠŠǠϠȠԠՠήŠӠΠŠĠŠΠΠӠàӠŮɠԠ̠ՠנ͍ΠǮŠϠԠՠӬĠɠŠϠŠŠϠŠȠŠΠŠŠϠŠŠԮšŠŠϠˠԠŠŠΠŠŠŠĠĠӠҠӡ̠ŠµΡŠ͠ȠӠ٠ҠϠҮԮŠΠӠԬɠ͠ΠϠ٠ŠȠԠԠΠŠǠƠ٠ƠŠԠӬ٠ӭŠӠϠРŠ̠ӠƠӠġĠӠӬŠˬĠ̠ŠҠӠԠŠŠٮŠӠƠ٠ɠȠŠǬǬǬӬٯӬĠԠ٠ƠŠŠ٩ĠŠŠħӠԠԠάĮĬ٬ӠŠŠϠȠԠɠŠ٠ĠȠŠǠӠˠŠϠӠŠϠΠ͠ΠӠ̠ˡĬŠӠԠĠ͠ԠӠϠҠĬ̠ŠͬĠƠŠŠҧӠĠͮŠŠϠŠΠҠҠŠҠ̠ΠҠŠԠĠǠŭҠԩɠ͠ĠϠԠԠԠȠŠŠӡϬɠ٠ŠԠԡҠ͠ΠӠˠŠȠ̠ˠӬҠҠҠĠȠŠ͠ϠĬԠĬӫčԠĮîӠ͠ՠŠԠԠƠĠԠɠϠϠРŠˠĠŠӠ١ɠȠҮȠ̠̠ӠϠԠȠӠԠΠҮȠŠΠŮӠ̠ҠӠ٠ȠҠϡ٠ŠӠ٠ΠµήȠŠӺōŬӮɠԠɠĠŠŠԠǠ͠ΠӠˠϠ 5]Ӡ͠ԠŠĠŠǡˠТM]ӠϠˠТ٠ŠŠS]Ӡ͠٠Ščέ٠ׯϠӊP]ҬԠԠӠԍŠ٠rY[kde.?Jrde.?Krl\pca()mQn\pM62o\g`@:()$ \hde˲de˱ _pdJedKe [q]l]Ԡé٠ŠĠ͠٠ŠӠ_&2gdePM6da@*#rGR@Br[Vhde.?Lrde.?Mr˱q.?Mr8.?Lrr˲q8.?Lrr[=iq.?6@r`$id6?e`%q [;jqUVW;@rq8<@*#rrr 8;@r)G\i#_`$`q8r_\ `dede_ paPa()ca(̠ĠԠŨө)a()bM  cc_ dPa(Ǡ)eMfq`$$ؔˠաԧӠ̠ŠŠԠŠΧԠΠŠ٠͠ӠӠԠƠҠǠӮԠΧ٠٠ҠϠŠ͠ΠԠӠϠŠԠġҠŠΠſ٠ŠϠŠ٠ƠӠ̠ΠŠ͠Ӡ͠٭ġՠŠŮϠԠΡŠà٠Ġźɧ͠٬ɠ٠ĠŠӠӠĠϮŠРŠ٠ǠҠŮĠĠŠԠ͠ҠˮРƠ٠ĠŠĬƠũϠŠԠĠӠԠĮˠԠנȠ͠ӠάǠŠ͠ԠӠӠԠŮՠ̠ĠŠ͠ԠӠӠԠŬϬϠԠՠΠԠՠΠՠŠҠήԠӠŠԠŠŠՠĠΠӠˠ٠ŠՠΠҠ٠ǠРҠƧŠ̬٠ŠŠƠӠӷ͸Ϳپɹеȼl)jd\@AȮŠƠŠӠɠנƠǠŠĠĠӠϠРǠĠӠҠŠàϠšŠŠ̠ӠĠРҠŠŮӠՠŠŠҠȠǬŠ̠ŠΠӬŠĮϠŠŬ̠ՠŠϠϠӠϠԠŠ͠Ġˠ͠ԮƠӬӬĠӠϠ٠͠ĠŠ٠̠Ϡ̠ƠӠϠŠĠΠŭǠŠӠˠŠŠҠՠϠ٠Ġ٠ȮŠƠŠԠӠϠ͠ӠϠŠŠӠƠ͠ĠŠŠӭӮՠ٠ŠԠӠŠΠŬĠΠΠ̠ӠӠƠӠԠΠŠԠ٠Š٠ҠՠϠŠΠ̠ŠǠԠӮŠԠӠӬȬԠ٠ԠŠٮ٠ԠԠԬĠƠԠӠΠ٠ԠΠȠŠ̠ŠӠΠӠӮנϠŠӠˍӠˠӠĠϠΠΠٍŠɠǠŠɫԠӍŠƠǠӮŠӍŠ̠ȠϠԠŠԠƠ٠ӠԠĮƠՠŠԠΠˬΠ     ٠Ӯ$]µ.]8]B]ŬӮL]V]`]Ҫª]B]ŬӮL]V]`]ҠNd6?e_DS]ŠԠ Xd6?ebM6_]]ŠננϠ]Ӡ͠ǿ"]ŠĠŠȠQ]]]]]R@]ĠԠ&a@]ԠԠ +]ӠҠ,]ή0`.?%r$5]ҠנŠϬ-:ca(ŠԠ٠ҠϠ)?]ˠҠҠD`.?6@r$XI]Ϡ_6@p(Ԡנ)_@@p(Ԡ)_"J@p(ԠˠŠ)_T@p(Ԡ)_^@p(Ԡ)_h@p(Ԡ)_r@p(Ԡ)_ M6 @p()a@E(Π)E@a@E(Ġ)E@r9()$T`@*#r9()$^`@*#r9()$h`@*#r9()$r`@*#r9()$;!]̠ǠΠԠƠŠӠ̠ϠǮH"a(٬ŠҠҠ͠Š)UVW Y_ ,@p(Ԡ)c+a(ŠźҠԠŠ))a(Ӡ͠ӮԠŠ)a(ϠŮ)cc"S(ҠΠź)&@`@*#r9()$,`@*#r9()$6`@*#r9()$@`@*#r9()$J`@*#a()2cc<a(Ԡ)Fa(Ԡנ)Pa(Ԡ)!Za(ԠˠŠ)da(Ԡ)na(Ԡ)xa(Ԡ)a(Ԡ)a()c]Ġ͠]٠٠Ƞ]Ġ͠]Ġ٠]ŠƠΠϮ!@p()]̠ĠҠө M6]ҠN@"rN@"rccP a()(P      z#?    Ԡˠ ԠŠ  !ԠŠĠ"ԠŠŠԠϠ ԠנϠ  ԠϠ ԠˠŠ̠ԠǠ  ˠŠΠ&ˠŮؠӠ͠ΠԠΠɠ ͠ԠŠ6ԠɠҠ ԮؠϠ ŠҠŠŠɠϠàŠíԠ+īˠŠ]Š͠ȠҠŠӮ̠Ӡŭٍ̠Š΍̠Šč̠Ġԍ̠ԠĠҠҍƠՠĠŠŬĠ͠ΠϠŠŠԠҠϠŠŭЪŠĮԠǠנŠȠǠנŠРǠנŠ͠ǠנŠŠϠϠҠҍŽˠӠҠŠΠŭԮŠŠƠЭԠ̮ˠƠŠӠŠΠΠҠ٠ӠԮźŠŭŠˠ̠ŠԠΠ̩ƠҮˠ̠ŠƠΠ̩ƠҮˠ̠ŠԠƠϮ̽ǽ    ԠŠȬԠɧ̠ԠՠΧԠӠՠŠΠčҠȠ٠ӠƠŠǠҠҠԮŠŠŠŠŠՠԩĠҠͮӠŠԠҠӮҮϠҠˬŬҠǮԠҠčԮΠΠĠ٠ήĬɠԬĠŠӠҠήŠӠӠǠנԠՠΧԠȠŮԧӠ٠ϠˠԠՠĠԠŠƠӠΠҠӠ٠ŠϠҠĮŠӠӠȠӠӭŮ٠ŠҠϠĠčŠǠŠȠҮƠՠĠƠԠԠŠՠŠŠϠϠΠΠРĠԠ٠͠ŠϠԠӠԬԠԠϠΠŠΠ٠ΠՠϠˠϠԠ̍ӠҠӠҮ٠ĠԠΠĠˠԠŠ͠ՠŠԠϠˠΠŠՠŠ٠ŮԠ̠נŠ̠͠ŮŠΠϠĠōϠȠҠ٠ĠŮȠɠ̠ԠӠȠƠŠŬɠԠҭŠŠĠҠ͠ӠΠҠӮӠԠ٠РŠŠĠԠҠ͠ӠĠ׮ǠӍŠŠ̠ӠԠȠŠӠҠǠנϠͮŠԠŠĠӠàĠŠ̠Ң٠ҠΠԠӠԠҠŠ٠ΠҠŠE D#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     ŠàͮŠӠנϠӠԮՠΠŠ٠ŠӮΠӠҠŠȻӠĠŠҠŠήŠƠŠĠΠӠŠӠƠŠҠͮŠàӢŠкŠ̠ήŠҠԠ٠ŠŠӠΠŠƠҠĠ̮ԠӠŠŠΠŠҠȠͮӠĠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠ΍ΠĩŠĠΠ٠ӠĠٮϠԬנŠӠΠŠ̠ΠӠĠĠ­ŠŠǠΠŠŠŠŠŠŠΠĠŠɠŠ̩ȠŭԠàĠƠҠìŠĠԠԠΧԠˡŠ̮ŠŠƠӠŠӠ٠ŠŠӠŠŠĠΠŠŠ̠ԠŠȨЩĠծĠ͠ōŠŠŠŠōЮϮؠΠϬŠΠ٠ӠΩƠՠŠĠϠŠŠŠŠŢӠ   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P LxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA ӬĠΠŠԠŠ̠Š٠ԠϠŠŠӠƠŠԠҠΠŠԡ̠ӠԮΠҮȠ̠٠ԠŬӮΧӠŠŠӠ٠ŠŠӠŠˠĠϠҠΠŠĠϺҮҮΠˠԠԮƠ̠΍ҠՠɠŬӮҍ٠ӮΠµΠĠǮŭРӠέԠĠӠĠԠǠŠĠŠӠΠӮӠĠ٠ĠϠŠŠҠӠ̠ԠΠǠ٠̠ŠŮ٠ӬӬӬҠӠҠРΠŬƮҠҠؠƠӮƠŠӠŠĠ٠ӠΠŠԠΠӠҠӠ٬ԠӠ׮Š̠ԠĠ̠ӠԠϠԠŠӠҠŠԠƠŠˠĠӠԡŠŠέǠԠҠŠŠҠԠҠĠƠǠӠȠŠ٠ԠŭӠΠˠ͠ΠΩĠǠȠŠĠǠӮŠ٠ҠӠ͠ŠԠȠĠϠŠΠƠŠĠ١ӭŭСԠӠ٠ĠҠ̠ӠĠ̠ӬԠ٠ƠŠӠΠĠ٠Š٠ŠΠ٠ŠƠӭ٠ŠŠĠŠȠӠӠŠĠנȠɠĠĠϠŠĠǠϠˠԡҠҮˠĠɠĠӠƠŠŠ٠٬ŠŠϠŠԠԠӠ٠Š٠ϠŠӠҠԠϠԠũŠϠŠӠȠŠΠĠϠŠĠΠŠͮ٠ӠΠɠԠԠ٠ŠĠӠ٠ǠΠŠŭ̠ŬɠԠԠ̮ŠӠŭРŭРӠ̠ŠŠĠԠӮŠ٠٠ҮҮΠˠԬĠ٠ӮάµήŠŠƠŭРӠϠנӠӠ  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS     `3eK1150(jX((1)279):tY((1)191)C~X,YJK[X15000:Xg::12"WASN'T THAT ROMANTIC?"X13000:X:10:"SO YOU SEE, ";A$;",YOU CAN USE ME FOR""ALL SORTS OF THINGS; IT'S JUST A MATTER""OF""FAVORITE COLOR......."/X13000:X5<UHY039T0,39Y[Y}:22:10:"ISN'T THAT NICE?"$X15000:X.:8"I LOVE TO LAY OUT ON THE GROUND AT"B"NIGHT, AND LOOK UP AT THE STARS...."LX13000:XVfC$"PURPLE"U3(pC$"GREEN"U12;zC$"GREY"U5OC$"BROWN"U8dC$"ORANGE"U9xC$"PINK"U11C$"YELLOW"U13C$"WHITE"U15:"NOW, IF YOU WILL LOOK OVER TO THE RIGHT""ON MY BIG SCREEN, I WILL MAKE IT YOURN67Bĺ"YOU ARE MISTAKEN..THE CORRECT ANSWER IS":::12::67BQ:::820 "VERY GOOD... YOU ARE ALMOST AS SMART AS"*"I AM. (HA HA HA)"4X15000:X>A$;" WHAT IS YOUR FAVORITE COLOR?"HC$RC$"RED"U1\C$"BLUE"U6RE ";B;" YEARS OLD?"3V$:V$"NO"ĺ"WELL I DO."_:"YOU SAID YOUR AGE WAS ";B;" YEARS.":"NOW I WILL TEST YOUR MATHEMATICAL""ABILITIES. PLEASE ADD 67 AND YOUR AGE.":"NOW TYPE THE TOTAL AND PRESS RETURN." N:N67Bī800B{"SEPARATED BY A COMMA."#C,DC"HERE ARE YOUR NUMBERS..."W:"ADDED:";CDp:"SUBTRACTED:";CD:"MULTIPLIED:";CD:"DIVIDED:";CD:"ISN'T THAT JUST UNBELIEVABLE?":"HEY ";A$;", REMEMBER WHEN YOU SAID YOU ""WESOR UNIT."80:"BELIEVE IT OR NOT, MY MAIN PROCESSOR"e:"UNIT WEIGHS ONLY 11 POUNDS...AMAZING,"xD"ISN'T IT???"NX110000:XXb"NOW FOR SOME PRACTICAL USES..."l:"HOW ABOUT SOME MATH.."v:A$;", PLEASE TYPE TWO NUMBERS, ":22:"<--ON THE TABLE ARE MY PADDLE KNOBS-->"BX13000:Xp:"THEY ARE USED FOR MY MANY GAMES AND ""OTHER ANALOG INPUT REQUIREMENTS.."X15000:X:22:"YOU ARE TYPING ON MY KEYBOARD, WHICH" &"IS ATTACHED TO MY MAIN PROCESDIGITALLY ENCODED"%"FORMAT....."7X110000:Xi:22:"<--- AND HERE IS MY CASSETTE DECK...""PLEASE LOOK DOWN A LITTLE."X15000:X:"IT IS ANOTHER DEVICE FOR MASS STORAGE ""OF PROGRAM INFORMATION.."X13000:X1Y MINI-FLOPPY DISK DRIVE --->"/ hX13000:X[ r:"IT IS A RANDOM ACCESS,MASS STORAGE" |"DEVICE, USED FOR STORING MY PROGRAMS" :"IT USES 5 1/4 IN. PIECES OF MAGNETIC" "MATERIAL, SHAPED LIKE A RECORD TO STORE""THE INFORMATION IN A :"HEY ";A$;",DID YOU NOTICE ALL OF MY"= "ACCESSORIES?"C K "V$] ,V$"NO"ī320 6"WELL THEN I WILL TELL YOU WHAT THEY " ;"ARE USED FOR." =330 @"OH... LOOK WHERE I POINT THE ARROWS..." JX13000:X T ^22:"HERE IS M$, :"HELLO ";A$;", HOW OLD ARE YOU";:B2 A B100250m "HA HA HA... THAT WAS A GOOD ONE, BUT" "I AM SMARTER THAN THAT. HOW OLD ARE" "YOU REALLY";:B :"HMMMM..";B;" YEARS OLD. ALMOST OVER" "THE HILL, COMPARED TO ME.") UGHT ME TO DO..THEY HAVE ONLY HAD ME"O "ABOUT ";L$;", BUT ALREADY I CAN DO"p "ALL SORTS OF NEAT THINGS." X110000:X :: "FOR OPENERS, I WOULD LIKE TO KNOW WHO" "I AM TALKING (PRINTING) TO." :"WHAT'S YOUR NAME";:A IS THE ";B$7 F"APPLE II--I BET YOU THINK COMPUTERS"a P"ONLY MESS UP YOUR BILLS...RIGHT???"k U::| WX13000:X Z:15:"WRONG!": d:: iX12000:X n"I AM GOING TO SHOW YOU SOME OF THE " x"THINGS THAT ";D$;" HAVE"% "TA6 READ REMS AT END TO CUSTOMIZE FOR YOUR OWN USE@5000J::P "****************************************"10:"APPLE II DEMONSTRATION"(:"****************************************"2"" <:"HELLO THERE, THIS        PRINT : 20(X$)2)X$& :A  RETURN FOR THE NEXTO  STRINGU :[ AX$B$:320 X$C$:320( X$A$:320. 4 ":Q , GET LENGTH OF LONGEST_ - STRINGe 6:t @LS(C$)2z J: T SET UP LOOP TO BUILD U STRING ^: hX$"*"X$"*" r(X$)LS360 |:  NOW CENTER STRING ON  SCREEN AND\d AN EXERCISE IN BASIC#n::x BY JERRY JENKINSQ JAN 19, 1980 W:q FIRST DEFINE TITLEw:A$""B$" THE APPLE PEEL "C$" MY PERSONAL COPY ": NOW PRINT EACH STRING::10X$A$:320   $1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` "  L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  ^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$vHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePP@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(            #r:()$k VMYod2ePa()\o %_P a(ˠ)FE(Ҡ)Fb] ed2eh_]ŠΠӮk]n]ĠƩq] tMwo zd2e}P`%q`%a($)`@*#r9()%q,]/]2`$k5o!8d2ePa()d2e;o  >P a(ϠՠԠϠ),AP d2ea(ˠ)FE(Ҡ)F Dd2eG]JMM]Pq.?r S`@*ŠȠ)_ ]]`$ ]]ŠĠ] Mo !a(ŠĠ)_  ]] d2e_"]]үנ] M#]$&`@*#r9()%q] Mo Pa(ŠҠ),Pa(ǠϠŠӠ̭)c,a(Ǡ٠ŠӠǧ)c_ ]` $]]̮ȠҠ] M&o a(a(ϠĠˠ)FE(Ҡ)FE()ccc-a(źĠҧӠ٠ҠΠ)-a(ҠӠҠΠΠ)a(ϠŮ)cc_ ]ԠΠϠ]`@$]]ŠҠҤZ]]_!`]c]ӠҠŠf]i] lMoq.?rr`$u]x]ĠҠ{] ~Mo a()-Pa(ĠҠҠ)'Pa(ŠӠŠӠ)1P#r9()$ ?`@*#r9()$ B`@*#r9()$R E`@*#r9()$  H`@*#r9()$  K`@*#r9()$ N`@*#r9()$Q]T]ŠƠŠŠW]Ԡa(ҠԠΠҠ)GP a(ѠĠ)"P a(ՠҠ٠)cc!M$]']ȠŠ*]-]0]03q.?r`%q6] 9`@*#r9()$ <`@*eoq.?%r&oP a(ԠˠӠ)F"P a(ԠҠӠ)Fo P a(ҠĠΠ)"P a(נŠԠ) P a(̠ԠҠ) P a(ŠԠ)P a(à)-P )G'a()GPa(ˠ)GP(a()Ga()GP(a()G/a()q.?%r*oPa(),UVWPa()GP a()Y%a() d2(Πìɬ) q q@p(ˠŮ)q?]q]]]]] Kq q de dpe] Mc d2e0a()Ga()GP(a(drC@"drC@"drC@"drC@"drN@"drC@"dr O4drN@"dr q6N@"drF@p()$@p()@p@ @p()]a@EͬĠԠ[]ӠҠӠӠ^]ԠҠӠa]͠ԠϮd]g]j]m]Ơ٠Ġp]РϠΠs]v]y`$|]](O4drD4drC@"drD4dr7O47]ź:]Ԡ=]@]C]F]̠ҠI]ӠĠƠL]٠٠Ĭ O]ΠîǠҠR]ŠҠӠΠU]נϠԠŠX]_[ ' \" @p()a@E(ĠˠŮ)]c]͠Ԡנ]ӠͺΧԠ ]"]%]ˠŠ(]+]Ġ.]٠1]Π4]                                 ΧӠϠŠ)a(Πծ)cc d2e/a(Ԡ٠٠ϠϠΠϠŠԠ)\ d2e Mcc a(Š) cP a(Ǡ)c,a(͠ŠΠՠҠŠŧ)*a(ŠԠŠקҠՠĠԠϩ)c+a(Š̠ŠĠϠҠ)/a(ǠԠ͠ĠǠԠ͠)Gc a()\ Mcc a(Š)c-a(ŠŠ̠ΠԠҠՠϠ)-a(Ԡ٠ŠԠԠ̠Ԡ).pa(ΠŠǧΠŠРƠŠ)-ua(άĠŠˠĠҠ)-za(ĠΠũΠŠŠƠ)a(ή)-a(ŠŠ̠ΠĠΠӠ)*a(ƠΠ͠ŠˠĠ)a(ΠŠŠ)-4a(Š̠ԠԠԮԧ̠٠)9\ >MCcHc Ma(Š)Rc(Wa(ΠŠҠΠŠԠ)\a(ҠƠŠŮ)ac-fa(ҠՠŠҠ̠ӠҠ)*ka(ŠҠŠҠ).a(ԠԠӠŠҠƠŠҠ).a(ՠȠϠĠҠӠ).a(ƠˠΧƠŧ) c*%a(ŠҠԠŠ͠ϠϠ)+*a(ŮƠՠҠҠӠ),/a(ΠϠҠҠΠŠԠҠƠŠ)a(ԠŮ)c)a(ǠӬǠՠŠ)-a(Ġ̠ҬŠŠ)-a(ΠŠҠҠŠŠ)a(ҧ)c. a(ӠӠŠŧӠ٠ƠǠՠΠŠԠƠӠӠ)/a(ƠԠөΠ˩)\Mcca(Š)c-a(ƠՠҠҠҠΠ))a(ҠӠΠŠŠ̠Ԡ)/a(ԠԮԠ̠٠Π)Gc,a(Ԡ)!a(נŠŠ˧)/ca(ŠŠɠנӠՠϠҠ)%a(ҠǠ͠ϠϠ)&a(٠ҮӠҠ̠)(a(ŠȠˠŠ)-a(ŠŠ̠͠Ġή),a(ӠŠ͠ҠŠ))a(ĠŠԠŠҧ٠ΠŠ)a(Πթ)c*a(ŠҠ̠ԠΠŠ)'a(ħΠŠРƠŠά).a(ŠŠӠ˧Ġҧ).a(Ġ̠ΠΠԧ)\ Mcc a(Š)&c,0a(נӠŠˠԠԠȠƠ)*:a(ŠӠϠĠנϠŠ)N]$XKa(Ԡ٠٠ϠΩ)\ bMlcvca(Š)cP a(Ǡ)c-a(ǠŠΠħ)a(Ϡ٩)c.a(ԠҠǠŠҠ)a(Ԡͩ)c.a(ҠӠΠƠŠ).a(̠ŠȠӠ)/a(ϠҠŠԠΠҩŠ),6a(ŠȠӠԠϠϠŠ)@a(ǠӠ)Jc*Ta(ĠΠŠӠĠ)^a(Ӯ)hcra(ŠԠ)|c,a(ԠӠŠŠӠ)+a(ҠŠԧӠ٠٠ϠΠŠ)\]àԧ d2e] q.?6@r`%q `$]Πˠŧ] Mcca(Š)c."a(ΠՠΠˠŠŠԠũ).,a(ԠӠΠ̠ŠנϠŠ) xP a(ԠŠ) P a(Ơ) P a(ˠŠ) P a() P a()UVW(Y`$ o \2Y6Kd2ea(Ԡ~$ q6 q?q Mc(o 1_P02a(ˠŠΠΠ٠)3d"e oM<[F]PUVW2o cQd"e M ZP a() dP a() nP a(                    HHHȱ<     LM   !     hhh`,0,``  hhh`,,` * 256,CHS: CHR$ = "_": RETURN )s10t"POKE 60, BEGIN MOD 256 (LOW ORDER START ADDRESS)":"POKE 62, END MOD 256(LOW ORDER END ADDRESS)"u"POKE 63, END/256(HIGH ORDER END ADDRESS)":"CALL -259 READS THE TAPE/IN PORT"v10Ry"POKE 62, END PEEK (224):LC2 = PEEK (225) - (LC1 > 243): POKE 79 + LC1 - 256 * (LC2 > 127) + (LC2 - 255 * (LC2 > 127)) * 256,CHS: CHR$ = "_": RETURN !rLC1 = PEEK (224):LC2 = PEEK (225) - (LC1 > 243): POKE 79 + LC1 - 256 * (LC2 > 127) + (LC2 - 255 * (LC2 > 127))":10e"POKE -16300,0":107j"POKE -16299,0":10o1135,1138: FOR TYPEFACE = 0 TO 2: POKE 50,64 * 2 ^ TYPEFACE - 1: FOR CHR = 192 TO 255: GOSUB 1136: PRINT CHR$ ;: NEXT CHR,TYPEFACE: GOTO 1138 pCHS = CHR + 128 * (CHR < 128) q LC1 = OR HI BITE=1) WAIT -16384,1,1(LOW BIT IS ZERO)":10JB"CALL -958":10_G"CALL -868":10L"X=PEEK(-16384) AND FOLLOWED BY POKE -16368,0"M3000:10Q"POKE -16304,0":10V"POKE -16303,0":10["POKE -16302,0":10`"POKE -16301,0"CALL 54514":10%)"CALL 3314":10."CLR":"START=.....":"STEP=....":"CALL -10531 OR CALL -10521 USIN FROM AND TO":103"LOAD....CALL -11076....CALL -11059":108"SAVE.....CALL -10955":105="POKE -16368,0(FOR KEY) WAIT -16384,128(F0 TO CLEAR SCREEN":10+"CALL -868":10@"CALL -922":10c "CALL -912 ----SCROLL UP":10"CALL -958 ---- TEXT":10"A=CM-LM"::"CM=PEEK(202)+PEEK(203)*256":10"CALL 976":"OR PR#6":10"CALL -151":"OR >POKE 72,0":10$ PEEK(105)+PEEK(106)*256""AUTOMATIC LOMEM= ":"POKE 74,3072 MOD 256: POKE 75,3072/256:POKE204,PEEK(74):POKE 205,PEEK(75)"10"PRINT PEEK(204)+PEEK(205)*256":"END OF VARIABLE TABLE"10"POKE 33,33":10"CALL -936 OR CALL 64600,1065,1070,1075,1080,1085,1090,1095,1100,1105,1110,1115,1120,1125,1130,1135,1140,1145,1150,1155,1160,1165,1170,1175,1180,1185936:"END OF PROGRAM"::"KUNIHIRO TANAKA"::I140:"-";:"PRINT PEEK(115)+PEEK(116)*256"10"PRINTISPLAY REGISTERS..........36"B"GET A LINE OF INPUT........37"g"INTEGER TO APPLESOFT.......38" "TO END.....................99""I140:"-";:'Q+Q1Q10010~,Q1000,1005,1010,1015,1020,1025,1030,1035,1040,1045,1050,1055,106INE LANGUAGE LOAD......29"? "MACHINE LANGUAGE SAVE......30"d "MACH LANGUAGE VARIFY.......31" "MACH LANGUAGE MOVE.........32" "WINDOW FORMATION...........33" "MONITO DIRECT CALLS........34" "ADDITIONAL CALLS...........35""DDE TO GR MODE.......22"< "GR MODE TO TEXT MODE.......23"a "MIX MODE TO FULL GR........24" "FULL GR TO MIX MODE........25" "PAGE 2 TO PAGE 1...........26" "PAGE 1 TO PAGE 2...........27" "SEE THE ENTIRE CHARACTERS..28" "MACH.......15"/ "APPEND.....................16"T "VARIFY A TAPE .............17"y "PAUSE OR WAIT..............18" "CLEAR INSIDE TEXT..........19" "LINE FEED..................20" 2000 "KEY CONTROL................21" "TEXT MO.....8", "ESCAPE F....................9"Q "MEMORY USED ...............10"v "REACTIVATE DOS.............11" "ACTIVATE MONITOR...........12" "RAM TO ROM ................13" "ROM TO RAM ................14" "RENUMBER..............1") i"FIND LOMEM..................2"N n"FIND VARIABLE TABLE.........3"s p"LIST FOR EDIT...............4" s"ESCAPE @ ...................5" x"ESCAPE E ..................6" }"CONTROL J...................7" "SCROLL UP .............  INPUT A$: GOTO 10 ":2180:(7);T" DOS SYSTEM INSTRUCTION"u" BY AND FOR HIRO TANAKA" CREATED ON JUNE 17, 1979I140:"-";(7);:255"HIT ANY KEY TO CONTINUE":A$ d"FINDING HIMEM.............             296/A(X1)89MTCH0A(X1)78MTCH113909XX3C(1010ZnXX1:A(X)13295ds1390p"+";:v''::8:"+TINY PILOT VERSION 1.0+":34,1':8'"***FOR HELP, TYPE 'H'***"$'100 A:Y$""VX$:X$;%`(X$)132952eY$Y$X$<j1110FXX2PG$""bA(X)441270tA(X)131270G$G$(A(X))XX11220G$Y$MTCH1:1296MTCH0 A(X)13295G$"":1240A(X)13295XX11OMMENTS (BE KIND--IT'S MY FIRST INTERPRETER!) CALL SCOTT KNASTER AT 355-2379 (HOME) OR 759-4685 (WORK). THANK YOU.":"TYPE RETURN TO GO BACK TO CONTROL MODE";X$:100XX2(A(X));A(X)13295XX11010LXX2IER MATCHING ROUTINES AND MORE COMMANDS.""QUESTIONS ABOUT PILOT CAN BE ANSWERED IN MAGAZINE ARTICLES ABOUT THE LANGUAGE, SUCH AS IN THE MAY 1979 CREATIVE COMPUTING.""TYPE RETURN TO GO ON";X$:{"FOR QUESTIONS, SUGGESTIONS, CPROMPT IS ONE PLUS SIGN""ALL PROGRAM COMMANDS MUST BE FOLLOWED BY A COLON. FOR EXAMPLE, 'T:HELLO' WOULD PRINT THE WORD 'HELLO'."*:"THIS INTERPRETER IS ALWAYS BEING EXPANDED AND IMPROVED. GOALS FOR THE NEXT VERSION INCLUDE SPEEDCH WAS TRUE ('Y') OR FALSE ('N').B:"TYPE RETURN TO GO ON";X$H"TO EXIT PROGRAM ENTRY MODE, JUST TYPE TWO CARRIAGE RETURNS AFTER YOUR LAST PROGRAM LINE. PROGRAM ENTRY MODE IS SIGNIFIED BY TWO PLUS SIGNS (++) WHILE THE CONTROL MODE A STRING (JUST LIKE PRINT) A ACCEPT AN ANSWER (LIKE INPUT) M MATCH WITH AN ANSWER"!"IN ADDITION, THE TWO CONDITIONERS 'Y' AND 'N' (YES AND NO) CAN BE ADDED TO THE'T' STATEMENT, THUS EXECUTING THAT STATEMENT OLY IF THE PREVIOUS MAT" " N NEW PROGRAM ENTRY L LIST PROGRAM G 'GO' (EXECUTE PROGRAM) X RETURN TO APPLESOFT"` "PROGRAM ENTRY MODE PROVIDES THE FOLLOWING COMMANDS: T TYPE 13002 ":(A(X));" IS AN ILLEGAL COMMAND":1009 'XB +100H ,Y 6X1COUNT1g @(A(X));m Jv T100 :"THIS PILOT INTERPRETER HAS TWO MODES: CONTROL MODE AND PROGRAM ENTRY MODE. CONTROL MODE PROVIDES THE FOLLOWING COMMANDS:5000 xA$ }A$& A$"L"3006 A$"G"200E A$"N"10W A$"X"ĉ::g A$"H"400 :"ILLEGAL COMMAND":100 X1COUNT1 A(X)84A(X1)581000 A(X)65A(X1)581100 A(X)771200 A(X)84A(X1)58OUBLED FOR 32K, TRIPLED FOR 48K* 10000K :"READY FOR NEW PROGRAM":W COUNT1g #5000:"+";t (B$:B$; *A(COUNT)(B$) -(B$)13A(COUNT1)13100 7(B$)8COUNTCOUNT2 <COUNTCOUNT1 F(B$)1335 P40 d:"READY" n  VERY TINY PILOT BY SCOTT KNASTER. SORRY ABOUT THE LACK OF REM STATEMENTS.IF YOU HAVE ANY QUESTIONS, PLEASE CALL ME AT (303) 355-2379." *************************** A(1000): NUMBER OF PROGRAM CHARACERS--CAN BE D     d)e8d*e9d+ed,eHd-ed.ed/ed0ed1e4]d2eDd3ed4ed5ed6e'd7ed8ed9ed:e$d;e]d<e9d=ehd>e1d?ed@eddAedBedCedD ede:dede5dedede]dedeJdededeLdedefde6de2deg]de7de"d ed!ed"eYd#eBd$ed%ed&ed'e"]d(edeLdedeK{de dededede(de|dede`|deLdede]}dededededededededed e]~d e d ed ed8dedededeiKxde|dede dededeLdedeTydede`dedede dedededeTzde dedede`dede`ede]ude$dededede dededededet]vdedede dedede<dedede de]wdededeNdededeedeGdedede dededededeg]sdedededeGdedededede]de]tdededededededededdqegdre=dse%dte;due!dvedwe,]pdxedye<dze+d{ed|ed}ed~ekdedede]qdede,dewdede(dededegdede]rde;dVe dWedXedYe]mdZed[eLd\ehd]ed^ed_eLd`ekdaedbedce]nddedeedfedgedhediedjedkedle'dme]odnedoecdped:ed;e]jd<ed=e d>ed?ed@edAedBe dCedDedEe]kdFedGedHedIe dJedKedLe dMedNedOe ]ldPedQedRe+dSe<dTedUedeFd e:d!e&d"ed#ed$ed%e8d&eJd'e]hd(e9d)ejd*ed+ed,e*d-ed.ed/ed0ed1e0]id2evd3ed4ed5ed6ed7ed8e d9edede3de4dedede d e]ed ed ed eLd edehde8dededede]fde5de6de!de;de<dede7de9de)de]gda()Pa()"oPa(Π)\K qtu\KqpM6otu\K M6M6M6 2 _d KUVW`.?6@r$LYLd6?eM6M6[]dde dedeŠԀ٠ΠȠҠӠ٠̠Ƞ5]ӠӠ٠ή٠-KM6d e cotud e q\Kdqd2e?o Pa(ЊĊ)d2eo Pa()PŠà٠ΠӠ_ ]ŠҬŬ֠Ԡ٠̠Ǡ^ ]͠٠Π٠٠ĠŠ٠Šɠb]64]]]]]]]ŠŊ]^]ͯĠ٠Ӯˠ                             "THAN THOSE CONTAINED IN THE SUPPLEMENT"8"IS USED."c::"THAT'S IT, FOLK!! NOW, ENJOY..."o29440u''23:7:"PRESS ANY KEY TO CONTINUE ";:A$:: XSH IS USED TO RETURN TO THE"16"SUPPLEMENT.":`>"CONVERT WILL STAY IN THE MODE SET UNTIL"H"ITS COUNTERPART OR A SLASH IS ENTERED."R10000\9"PLEASE NOTE THAT CONTROL IS RETURNED TO""THE MONITOR WHEN ANY FUNCTION OTHER"(FC58":""WOULD BE DISPLAYED."-10000Z:"HEX VALUES ARE CONVERTED BY ENTERINGj:"^H":"THEN THE VALUE TO BE CONVERTED" :"^FC58":"WHICH RESULT IN" :"64400 -936":*"BEING DISPLAYED.":4"THE SLAVALUE -936, YOU WOULD ENTER",:"^T"s:"(THIS IS A NORMAL "(34)"T"(34)", NOT A CTL ";::"T";::")""THEN ON THE NEXT LINE":"^936"::"(MINUS SIGN NOT ALLOWED OR NECESSARY)":"AND THE CONVERTED VALUES":"03A8 "^"(34)", YOU MAY SET THE DECIMAL";H"MODE BY ENTERING"KN:"^T"{X:"FOLLOWED BY THE DECIMAL VALUE YOU WISH"b"TO CONVERT."l10000::"FOR INSTANCE, IF YOU WERE IN THE""SUPPLEMENT AND WISHED TO CONVERT THE""DECIMAL ERSELY, IT WILL CONVERT A DECIMAL"N&"VALUE IN THE RANGE OF 0-65535 TO ITS"x0"HEX AND TWOS COMPLEMENT HEX VALUE."2:"CONVERT IS REACHED FROM THE SUPPLEMENT"4"BY ENTERING A CTL ";::"T";::". ";:"ONCE YOU SEE THE"#D"PROMPT "(34)SED."10000?2:"A NEW FUNCTION HAS BEEN ADDED TO THE"p"SUPPLEMENT -- "(34)"CONVERT"(34)". THIS""ROUTINE WILL CONVERT A HEX VALUE""IN THE RANGE OF 0-$FFFF TO ITS DECIMAL""AND TWOS COMPLEMENT DECIMAL EQUIVALENT."""CONVE MINI-ASSEMBLER BACK TO"3 r1:"THE SUPPLEMENT."9 to |"THE "(34)"TRACE"(34)" FUNCTION ALSO USES THE" "SLASH TO TERMINATE. A CTL ";::"S";::" ENTERED" 1:"WHILE IN THE TRACE MODE WILL CAUSE A"1:"PAUSE UNTIL ANOTHER KEY IS PRES(34)" AND"9 @1:"ALL MONITOR COMMANDS CAN BE ENTERED"k J1:"FROM WITHIN THE SUPPLEMENT, EXCEPT THAT" T1:"THE MINI-ASSEMBLER IS REACHED BY ENTER-" ^1:"ING A CTL ";::"A";::". A SLASH ("(34)"/"(34)") WILL CAUSE" h1:"AN EXIT FROM THIC AND THE REGULAR F8 ROM."N :1:"THE SUPPLEMENT MAY BE ENTERED FROM THE" 1:"MONITOR VIA THE CTL ";::"Y";::" FUNCTION IF YOUR" "1:"HELLO PROGRAM CONTAINS LINES SUCH AS":100110 ,10000 65:"THE SUPPLEMENT'S PROMPT IS A "(34)")"1 "APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"^ 6:4:"THIS PACKAGE MAKES AVAILABLE TO" 1:"APPLESOFT/AUTOSTART ROM USERS THE MINI-" 3:"ASSEMBLER, STEP AND TRACE FUNCTIONS" 3:"PREVIOUSLY ACCESSIBLE ONLY THROUGH" 2:"INTEGER BASCONTROL CHARACTERS DISPLAYED IN INVERSE"X ^:3:"CARRIAGE RETURN REPRESENTED BY " b(4)"BLOAD SUPPLEMENT.X": $8D00.$912F c10000 d29440: HIMEM SET TO $8D00 n1016,76:1017,0:1018,141:SET UP JUMP TO $8D00 AT $3F8 p ::8  :=8:"APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"a2::10:"ORIGINAL ROUTINES BY"|<:13:"STEVE WOZNIAK"F::10:"APAPTED BY & "(34)"CONVERT"(34)P:15:"WRITTEN BY"T:15:"GUIL BANKS"V: