' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `LL`>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-(p @Là٠@跻~!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 ֠ĠLz# Lu`HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH  # #8 uvLi ,  ~$8$0`L ƹƸ$HH c 8ϐ*IEʼna L,{iweLi^ e^hٲg mH hV_F*ƹƸٲHٹHH LLh^^h_H i#HHH=<>@>?>@A@=?<>ܠАg|h}~xgyhz{|x}y~z{ij  e  e I-8ȱȱՐБRRmBiCBez{?{ ,eBCiC IЪEeei-eȱiȱՐйYWm<i=z>e@z{?iA{<ɿ)80eB ֐Hh&& eeȐ`΅Ϡϱȱ``ŐŠ` ``ʐʥmi II)88%%%%%%%%%%%%%%%%xy΅Ϡ`{ z`ȱȱȱȱ("/Ƀ Ʌ;ɫ7ɬ3ɰ/ɲ ɼ'#ԥȱ";:Ȇ0:ːȱ,0: ʽʈ0Э%% % % % COPYRIGHT 1979 % % ROGER WAGNER % % SOUTHWESTERN % % DATA SYSTEMS % % P.O. BOX 582 %- % SANTEE, CA. %H % (714) 562-3672 %c % %~ %%%%24 103,(1912):104,(1913):175,(1914):176,(1915):105,(175):106,(176)*1912,(1916):1913,(1917):1914,(1918):1915,(1919):((2)12)3314((2)212)54514L'(222)254ĺ"IMPROPER ENTRY FORMAT..":U'760p %%%%%%%%%%%%%%%%%%:CNT:420&NC:42034,0:24:"RENUMBERING COMPLETE..."-:"PROVIDING YOU DON'T CHANGE TOO MANY ":"LINES YOU MAY RE-ACTIVATE THIS ROUTINE":"WITH A 'CALL ";RN;"'."::"BYE..."p 34,1:1:868:1:4:"(RE-ACTIVATE WITH A 'CALL ";RN;"')":J))E1PL%:530"ON NEW LN.# OLD LN.# REF. NEW LN.#":"----------- ------------- --------":LN;:18:LR;:31:N$:550GI767:PL%(N)E1:J1PL%:EX%10(PL%J):D%NEX%:NND%EX%:IJ,D%48:J:IJ,0x250,(MF%0)MF%(MF%0)(128MF%)L(J)470P1JP2J460LROL(J)P1J:J((JP2)2):445P2J:J((JP1)2):44524:"REFERENCED LINE NOT FOUND...":N$" ?":520NNL(J)09:18:LR;" ";:31:N;" "ENL(J)OL(J)550`NL(J)MF%1PL%:530~MF%(NL( LN.# REF. NEW LN.#":"----------- ------------- --------":868:ADBEG:34,10R1 LR(255)256(254):LN(2042)256(2043):PL%(235)(2046)7AD(28)256(29):(AD)(AD1)760d:9:" ";LN;" ";:868:P1P1:P20:J1vLROL(P)OL(P):20:OL(P);" ":370TFLNSN:F0:360^LNLNSIhNL(P)LN:AD2,LN(LN256)256:AD3,(LN256):(9RF2):20:LN;" "rADINDEX:ADEE320G|Fĺ"STARTING LINE NOT FOUND...":770SRF7607:"ON NEW LN.# OLD(Q$,1)"Y")25018:958,:OL(P),NL(P):P0:ADBEG:F167RF2:"OLD LINE #","NEW LINE #":"----------","----------"@INDEX(AD)256(AD1):INDEXBEG380JPP1:OL(P)(AD2)256(AD3):9RF2:3:OL(P);" ",;:OL(P)SOOL(P)SENR NEW LINE #'S MAY OVERLAP AND/OR ":"DUPLICATE SOME OF THE LINE #'S IN THE ":"OLD PROGRAM THAT ARE NOT BEING CHANGED."e"LAST NEW LINE# =";23);"":4);"NEXT LINE# =";23):22:18:HL:18:L:"(PRESS ANY KEY... )";19):24:21:Q$::100}(襴  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪- L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH 000011110000,000011110000,0001111110006 Uh 1111110011111,011100001110,011100001110 011100001110,011100001110,011100001110 011100001110,001111111100,000111111000 V 111110001111,011100000110,01110 001111111110,011111111111,111000000011Z 111000000000,011111111100,001111111110 100000000111,111111111110,011111111100 T 111111111111,111111111111,110011110011 000011110000,000011110000,000011110000* 11,111000000111,111000110111M 011100011110,001111111110,000111111011Y R 111111111100,011111111110,011100000111 011100000111,011111111110,011111111100 011100011100,011100001110,111110001111 S) 00,000111111000 PL 111111111100,011111111110,011100000111} 011100000111,011111111110,011111111100 011100000000,011100000000,111110000000 Q 000111111000,001111111100,011100001110 11100000010,011110000110? 011111000110,011101100110,011100110110p 011100011110,011100001110,111110011111| O 000111111000,001111111100,011100001110 111000000111,111000000111,111000000111 011100001110,001111111102 011100000110,011111111110,111111111111> Mo 111110001111,011110001110,011111011110 011101110110,011100100110,011100000110 011100000110,011100000110,111110001111 N 111110001111,011100000111 111110001111,011100001110,011100011100b 011100111000,011111110000,011111110000 011100111000,011100011100,111100011110 L 111110000000,011100000000,011100000000 011100000000,011100000000,011100000010011100000,000011100000,000011100000U 000011100000,000011100000,000111110000a J 000000011111,000000001110,000000001110 000000001110,000000001110,111110001110 011100001110,001111111100,000111111000 K eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-% eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)3260. R16. D$*. L$(M66R)D$1. RJ. T((M$,M221,2))T.* TTSb.4 T1(T7)n.> T1T17z.H T1TT1.R T10T17.\ ST1.f M.p B$" ":C$" ".z K$"SU MO TU WE TH FR SA ". 5000 / 20)"CALENDAR FOR THE "-b J$(7)"JULY "0-l J$(8)"AUGUST "F-v J$(9)"SEPTEMBER"]- J$(10)"OCTOBER "t- J$(11)"NOVEMBER "- J$(12)"DECEMBER "- M112- :123,10:124,15:125,133:126,49- M$- D$- D$(S)3320- R16- D$- R. PIES WANTED ":LI, LILIMIT:, Y1A1:Y1(Y14):AA1W, Y1A365Y13:Y2(Y17)q, Y3Y1Y27:Y30Y37, SY3:AA1,& J$(1)"JANUARY ",0 J$(2)"FEBRUARY ",: J$(3)"MARCH ",D J$(4)"APRIL ",N J$(5)"MAY "-X J$(6)"JUNE 1004+ 001100001100,000111111000,000011110000:+ Y+ *** CREATE A CALENDAR ***{+ J$(12),L$(75):COPY0:LIMIT0+ 936:" SET-UP PRINTER WITH THE"+ " TYPE OF PAPER ( 80 COL. ) "+ "YEAR OF CALENDAR ";:" 19":A, 936:"HOW MANY CO 93* 000111111000,001111111100,001100001100d* 001100001100,001111111100,000000001100* 001100001100,001111111100,000111111000* 0* 000011110000,000111111000,001100011100+ 001100101100,001101001100,001110001000001100000,000001100000,000001100000W)v 000001100000,000001100000,000001100000c)x 8)z 000111111000,001111111100,001100001100)| 000110011000,000011110000,000110011000)~ 001100001100,001111111100,000111111000* 001111111100,001111111000%(h 6V(j 000111111000,001111111100,001100000000(l 001100000000,001111111000,001100001100(n 001100001100,001111111100,000111111000(p 7(r 001111111100,001111111000,001100110000&)t 00001110000,000011110000I'\ 000110110000,001111111100,001111111100z'^ 000000110000,000000110000,000000110000'` 5'b 001111111100,001111111100,001100000000'd 001100000000,001111110000,000000011000(f 000000001100,00001100000<&N 000110000000,001111111100,001111111100H&P 3y&R 000111111000,001111111100,001100001100&T 000001101100,000001111100,000001101100&V 001100001100,001111111100,000111111000&X 4'Z 000000110000,0%@ 1;%B 000001100000,000011100000,000111100000l%D 000001100000,000001100000,000001100000%F 000001100000,001111111100,001111111100%H 2%J 000111111000,001111111100,001100001100 &L 000000001100,000000011000,00$4 000100011100,000001111000,000001100000`$6 000000000000,000001100000,000001100000l$8 +$: 000011100000,000011100000,000011100000$< 011111111100,011111111100,011111111100$> 000011100000,000011100000,000011100000 000000000,000000000000,000000000000/#( !`#* 000001100000,000011110000,000011110000#, 000011110000,000001100000,000001100000#. 000000000000,000001100000,000001100000#0 ?#2 000011110000,000111111000,00110001110000000000,000000000000,000000000000S" 000000000000,000000000000,000000000000" 000001100000,000001100000,000000000000" ^"" 000000000000,000000000000,000000000000"$ 000000000000,000000000000,000000000000##& 00011110000,000001110000F! 000001110000,000001110000,000011111000R! Z! 001111111111,001111111111,001100011110! 000000111100,000001111000,000011110000! 000111100011,001111111111,001111111111! ."" 000010001111 XE  111110011110,011100001100,001110011000v  000111110000,000011100000,000111110000  001100111000,011000011100,111100111110  Y 111110001111,011100000110,001110001100! 000111011000,000000001108 011100000110,011100000110,001110001100i 000111011000,000011110000,000001100000u W 111110001111,011100000110,011100000110 011100000110,011100100110,011101110110 011111111110,011110001110,1111OF MEMBERS NOVEMBER 1979%> PROGRAM CLASSIFIEDW - PUBLIC DOMAIN -]u LAST MOD.NOV.1979{ 'THE DEFOGGER'0 DONATED BY  WM.R.DIALGHE SPACE BAR TO CONTINUE.."! A " PRESS THE 'ESC' TO END"U PAUSE ROUTINEfGE(16384)wGE1554100GE160401016368,0:16368,0::1400h GIVEN TO APPLE CORErOF SAN FRANCISCO FOR | USE Y"*"TO COVER IN THIS ARTICLE. MICRO"X "MAGAZINE HAS A GOOD ARTICLE IN ITS MAY""'79 ISSUE TO HELP UNDERSTAND THE BASIC""TOKEN SYSTEM. GOOD LUCK!!"x"* * * THE END * * *" ADVANCE INSTRUCTIONS  " PRESS T SW SEATTLE WA. 98136 * SPECIAL THANKS TO * APPLE CORP SAN DIEGO, CALIF ;** EDITED BY ** ** DAVE GARSON ** OF DATA IN LINE 3950 ~:8TURN PRINTER ON: LINES 5000 TO 5030 TURN PRINTER OFF: LINES 6000 TO 6030 :** PRINTER PAK I ** DISTRIBUTED BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE |;6708 39TH AVENUEURE":"2 BLOCK LETTERS":"3 CALENDAR":20:"WHICH DEMO #";X9 +KEY:KEY1KEY311020p9+KEY1000,2000,3000:THIS PROGRAM CAN NOT BE MODIFIED WITHOUT CHANGING LINES 3245 AND 3246. 3246 SPECIFIES EXACT MEMORY LOCATION G":16:"U";:40:"E";08'17:"N":18:"D"8'50,63:::10:" ":10:" P R E S E N T S ":10:" "8'50,2558'I12000:I8*::3:10:"A.P.P.L.E. PRESENTS:":7:"PRINTER PAK I"<9+10:"1 LOVE PICT P L E":2:"P U R I X"7j'3:"P G O B C":4:"L E G R H"7t'5:"E T R A A":14:"S A R N"8~'15:"O M Y ";:9:" ";:17:" ";:25:" ";:33:" "k68'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "6B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";6L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "6V'50,255:@7`'"A P 5** TURN PRINTER ON ** &51,5K5p** TURN PRINTER OFF ** R5z0X5g5'50,63::5'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "5$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "26.'" 262728293031," "$46Z4" 1 2"," 3 4 5 6 7 8 9",101112131415164"17181920212223,24252627282930,31 "4,746" 1"," 2 3 4 5 6 7 8"," 9101112131415"5@16171819202122,23242526272829,"3031 "6171819;320212223242526,2728293031 ," "B34x3" 1 2 3 4"," 5 6 7 8 91011",12131415161718319202122232425,262728293031 ," "353" 1 2 3"," 4 5 6 7 8 910",11121314151617418192021222324,25161718192021B222232425262728,"293031 "," "I22`2Q111000:Q1:102" 1 2 3 4 5 6"," 7 8 910111213",14151617181920221222324252627,28293031 ," "233" 1 2 3 4 5"," 6 7 8 9101112",1314151 1LC1251(12LC$1<6000.1F30701P::"APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE":"6708 39TH AVE SW, SEATTLE, WA. 98136"1Z::"(206) 932-6588"::1d101n3128313031303131303130311x1 2" 1 2 3 4 5 6 7"," 8 91011121314",15$(M$,M121,2)$0LY$L$(M166L)/0VN17<0`X2N21N0jP$(Y$,X2,2)^0tX$P$3740g0~P$;q0" ";{037500" ";0N0" ";0M100L00T03920060000COPYCOPY10 COPYLIMIT394005000 YEAR 19";A/ / T14)/ T3T326/ T$B$C$]/ B$;J$(T3);T$;J$(T31);T$;J$(T32)c/ q/ K$;K$;K$~/ T3T32/ L16/ MT/ MM32/L63640/M1MM2/(L$(M16),1,2)" "3640/$M1/.3800/8M1MM20BXNG. LOCATING A LINE IN THE MIDDLE"N"OF A PROGRAM IS A LITTLE TOO TRICKY"|"TO EXPLAIN HERE. ASK SOMEONE FROM ONE""OF THE STORES HOW TO DO IT. THESE""ILLEGAL COMMANDS HAVE A GREAT MANY USES""IN CREATIVE PROGRAMMING, FAR TOO MANWITH A CNTL -C AND "5"LIST AND RUN THE PROGRAM.";E4000t"SOME NOTES: THE MEMORY LOCATIONS ABOVE""HAVE BEEN GIVEN FOR A 48K MACHINE""WITHOUT DOS. NOTICE THAT THE PROGRAM""HAS BEEN RELOCATED TO '3FD5' AFTER"#"RUNNIFIRST"2B" BFE1- 01 ::END OF LINE TOKEN"8LcV"CHANGE THE PRINT TOKEN '62' TO THE "`"HIMEM: TOKEN '10' BY ENTERING 'BFDD: 10"j"AND LIST THE MEMORY AGAIN WITH BFDAL"t"TO CHECK THAT THE TOKEN HAS CHANGED."~"RE-ENTER BASIC :8 BYTES IN LINE"9" BFDB- 05 00 ::LINE NUMBER 5"b" LOW BYTE FIRST"" BFDD- 62 ::PRINT TOKEN"$" BFDE- B1 00 ::NUMBER FOLLOWS"." BFE0- 40 ::00 40 HEX = 16384"8" LOW BYTE OULD GET A "5"RESPONSE LIKE THIS: 00CA- DA BF."a"TYPE IN THE HEX LOCATION, HIGH ORDER""BIT FIRST LIKE THIS: BFDAL. THE 'L'"IS ADDED TO GIVE YOU A 40 ADDRESS""MEMORY DISPLAY LIKE THIS:"4000" BFDA- 08 :"PROGRAM. MONITOR LOCATIONS CA.CB LIST"V"THE BEGINNING OF AN INTEGER PROGRAM.""A DUMMY LINE SHOULD BE ENTERED LIKE THIS"" >5 PRINT 16384"4000"ENTER THE MONITOR WITH A 'CALL-151'." "TYPE IN 'CA.CB'. YOU SH THE COMMAND."4000# N*"HERE'S AN EXAMPLE OF ENTERING HIMEM"c4"IN A PROGRAM:"i>{H" >LIST"R" 10 PRINT'LINE ONE'\" 20 PRINT'LINE TWO'a" 30END"f"HIMEM SHOULD GO AT THE BEGINNING OF A"*R A DUMMY LINE,IF NECESSARY."#D" (5)ENTER THE MONITOR.Jw" (6)LIST THE LINE IN THE MONITOR."}" (7)CHANGE THE COMMAND/LINE NUMBER"" HEX CODE."" (8)RETURN TO BASIC,LIST AND TEST"" :4D" (2)DETERMINE THE RAM MEMORY LOCAT-"_N" ION THE LINE/COMMAND SHOULD"vX" RESIDE."|bl" (3)FIND THE EXISTING PROGRAM LINE"n" TO CHANGE."pq4000v" OR,"{" (4)ENTEK YOUR APPLE INTO"? "ACCEPTING THESE ILLEGAL COMMANDS LIES"b "IN FOLLOWING THIS SEQUENCE:" " (1)DETERMINE THE PROGRAM LOCATION" " FOR THE LINE/COMMAND YOU WISH" &" TO ENTER. (BEGINNING,MIDDLE" 0" OR END) HIMEM: 10"D " LOMEM: 11"j " NEW 0B" " CLR 0C" " AUTO 0D" " MAN 0F" 4000 "THE ABILITY TO TRIC HEX CODE": J" ----------- ------------"` T" LOAD 04" ^" SAVE 05" h" CON 06" r" RUN 07" |" DEL 09" " E'S INTEGER INTERPRETER WILL"K "REJECT LINE NUMBERS GREATER THAN 32767"v "AND THE COMMANDS LISTED IN TABLE 1."| * +" ---------------" ," TABLE 1" 6" ---------------" @" COMMAND ERS ARE THOSE HANDY "C n"LITTLE PROGRAM COMMANDS YOU WOULD LIKE"p x"THE APPLE'S INTEGER BASIC INTERPRETER" "TO ACCEPT UPON ENTRY WITHOUT SOMETHING" "LIKE A 'SYNTAX ERROR' OR '>32767" "ERROR' RESPONSE. 4000 "THE APPL 16368,0:16298,0:!'-(]2"****************************************"<" THE DEFOGGER FINDS ILLEGAL CHARACTERS"F" BY GERRY VROOMMAN"P"****************************************"Z3000 d"ILLEGAL CHARACT     17:BUFFER2,S1/d#JBUFFER11BUFFER25535<n#XSEQ(I)Tx#J,T%(X):J1,S%(X)o#J2,P%(X):J33,L%(X)#J34,E%(X)#K130:JK2,((FILE$(X),K,1)):#0,17:1,S:2,WR#RWTS#II1:IN9200#J#S#S09300#7000SEQ(I1):SEQ(I1)XFLAG1%I6FLAG15000<UpI0N:L%(SEQ(I)):[z}XZBUFFERBUFFER255:Z,0::@(# ----WRITE TO DISK----2#C$"WRITING DIRECTORY":10:11<#I0F#S1211P#7000:CLEAR BUFFERZ#BUFFER1,13005  '----SORT BY TYPE----2FLAG0MTYPE04:TYPE34070XI0NuXP%(I)128:X0XX128XTYPESEQ(FLAG)I:FLAGFLAG1ITYPEFLAG0I0N1L%(SEQ(I))L%(SEQ(I1))5060XSEQ(I):SEQ(I)$(N)""2fJ029:FILE$(N)FILE$(N)((IJ)):J9pI@zSVI0N:SEQ(I)I:\ 10:C$"SORTING DIRECTORY":11 FLAG0 I0N1 XSEQ(I):YSEQ(I1) FILE$(X)FILE$(Y)3060 SEQ(I)Y:SEQ(I1)X FLAG1 I FLAGG DIRECTORY":11#RD1:WR2:N12S1211G0,17:1,S:2,RDQRWTSpIBUFFER14BUFFER25535 (I)02180(I3)2552160 NN1*P%(N)(I1)4T%(N)(I3)>S%(N)(I2)HL%(N)(I30)RE%(N)(I31)\FILEORTING BY LENGTH":B" THIS DOES THE SAME AS THE 1ST SORT,"p" BUT ALSO PLACES THE FILE INTO"" SEQUENCIAL ORDER BY SECTOR LENGTH.":"< PRESS SPACE BAR TO CONTINUE >";A$:A$" "127013010:C$"READINNAMES. WHEN COMPLETED, THE PROGRAM"S" WILL CLEAR UP ALL DIRECTORY PROBLEMS"m"(2) SORT BY TYPE":" THIS DOES THE SAME AS THE ABOVE, BUT";" ALSO PLACES THE FILES INTO GROUPINGS";" BY TYPE (I.E. I,A,B,T).":"(3) S IT WILL ALSO MAKE"9L"FINDING PROGRAM NAMES A SINCH!"eV::"< PRESS SPACE BAR TO CONTINUE >";{`A$:A$" "1120j:"(1) SORT BY NAME"t:" ENTER '1' WHEN ASKED FOR SORT TYPE."~" THIS WILL ONLY ALPHABETIZE THE FILE"#" OG INTO ALPHA-"? "BETICAL ORDER. IN ADDITION, YOU HAVE THE"o "OPTION OF GROUPING FILES BY THEIR TYPES." $"ORDER IS INTEGER, APPLESOFT, BINARY AND " ."TEXT FILES. " 8" THIS WILL MAKE YOUR CATALOG LOOK "B"VERY NEAT AND CLEAN...DISK INTO DRIVE 1":11; 4C$"":11S >(16384)160830a H16368,0g R \7:15::"DISK SORT" f p  12:"CATALOG SORT":: " THIS PROGRAM WILL REARRANGE THE " "FILE NAMES OF YOUR CATALC EQUIPMENT TO THE+v TELEPHONE LINES MAY? v BE UNLAWFUL. }** REM ** APPLE TELEPHONE REM ** DIALER REM ** REM ** BY GREG ROBBINS REM ** d}ALL COMMERCIAL RIGHTSi}RESERVEDD OF THE{uRELAY.u4uTHE TELEPHONE CAN BEMuUSED NORMALLY, WITHguTHE APPLE ON OR OFF.}u(IF THE APPLE ISuTURNED ON, AN3 MUSTuBE KEPT IN THE DE-uFAULT "CLEAR" SETTING.uWARNING: CONNECTINGu NON-FCC APPROVEDvDuTHE AN3 AND GROUND,IuHOLES OF THE GAMEFNu(PADDLE) I/O SOCKET.]Su (PINS #12 AND 8)vXuDISCONNECT ONE LEAD]uON THE TELEPHONEbuLINE. CONNECT ONE ENDguTO THE "COMMON" RELAYluLEAD, AND THE OTHERquTO THE (NORMALLY)vuOPEN LEA` ᥡ)p>`)?``= =792,181:793,3:794,153:795,3:796,4:797,136:798,208:799,247H800,162:801,4:802,160:803,7:804,44:805,125 11001 "8 DATA, ODD PARITY, 1 STOP BIT"= 829,29I 934,29S 1100l  ******************r   BY PETER BECK/TOM LIN   ****************** 768,234:769,234:770,26:771,72:772,152:773,72:774,138:775,72> *77RITY, 1 STOP BIT" 829,13) 934,133 1100Y "8 DATA, NO PARITY, 2 STOP BITS"e 829,17q 934,17{ 1100 :"8 DATA, NO PARITY, 1 STOP BIT" D829,21 N934,21 X1100 v"8 DATA, EVEN PARITY, 1 STOP BIT" 829,25 934,2@HHH  ȑ ȑ  hhh`7 TINE!!!!l'-------------------- TED COHN, 1411 ARLINGTON, EL CERRITO, CA. 94530 (415) 529-2502 BY TED COHN3.'--------------------K8' PROGRAM SEGMENTSgB'1000-1300 INSTRUCTIONSL'2000-2999 READ CATALOGV'3000-3999 ALPHA SORT`'4000-4100 TYPE SORTj'5000-5100 SECTOR SORTt'HOPE YOU HAVE FUN WITH~'THIS SORT ROU$0,17:1,S1:2,WR; $S1ĹBUFFER1,17:BUFFER2,S2E$RWTSeT$C$"SORT COMPLETED":10:11z^$:(4)"CATALOG"h$' *** DISK SORT ***' DONATED TO THE APPLE CORE OF SAN FRANCISCO' DECEMBER 1, 1979 256;" FREE BYTES"::60V :"ERROR";::"--DISK ERROR ON SLOT ";SN;", DRIVE ";DN::*16+DN, WILL RETURN SECTORS FREE ON DISK; PDF(SN16DN)L Z(37):958q d///CHECK IF WE HAD A DISK ERROR n(24650)0140 x////GOOD DISK, SO PRINT FREE SPACE "ON SLOT ";SN;", DRIVE ";DN:" THERE ARE ";DF;" FREE SECTORS OR":" ";DFW FREE SECTORS' FUNCTION BY: DONALD BROWNG DK$(4)m DK$;"BLOAD FREE SECTORS BROWN.X" BSAVE A24576,L24011,0:12,96:///POINT USR FUNCTION TO DSKFREE(:5<"SLOT, DRIVE TO TEST? ";SN,DN( F///MUST PASS TO USR SN  G FCV(37):CV171708 P::15:"PRESS ANY KEY":R ZX(16384):X12890` d16368,0f nx A$"END"50 D$;"CLOSE"  0~X$"F"1200-770,56:770:770,26:8770:,12:979,12:980,8:981,1:982,12:983,6i.984,14:985,15:986,32:987,3:988,1:989,18:990,18:991,98992,5:993,18:994,32:995,15:996,14BLT11000:TV:5:17`"FULL OR HALF DUPLEX (F/H)?";jX$:X$tX$"F"X$"H"111,168:948,104:949,96:950,32:951,4f952,21:953,16:954,12:955,5:956,24:957,32:958,20:959,5960,18:961,13:962,9:963,14:964,1:965,12:966,32:967,1968,3:969,20:970,9:971,22:972,5:973,32:974,45:975,32($976,6:977,21:978J920,56:921,176:922,166:923,169:924,117:925,157:926,132:927,192928,169:929,223:930,32:931,168:932,252:933,169:934,1:935,157936,132:937,192:938,208:939,216:940,169:941,0:942,133:943,34$944,104:945,138:946,104:947I:N$(I): @CL$) JJ1N1:I1N1A TN$(I)N$(I1)360g ^T$N$(I):N$(I)N$(I1):N$(I1)T$o h:x rOP$ |I1N:WR$;I:N$(I): CL$ 936:"CATALOG IS SORTED!": E  N$(40)!d"NOMON I,O,C"Wn:936:"INSERT DISKETTE TO SORT, HIT RETURN";T$x936:"NOW SORTING BASIC CATALOG FILE..."OP$"OPEN CATFILE,L31":CL$"CLOSE":RD$"READ CATFILE,R":WR$"WRITE CATFILE,R",OP$:RD$;0:N 6I1N:RD$; :D$;"DELETE FULL FILE"H :12:I;" SECTORS AND ";I256;" BYTES FREE"I SECTORS BYTES FREE> BY DARRELL ALDRICH CALL-APPLEZ CTRL D SET IN LINE 10l D$(4):100D$;"NOMONC,I,O":I0D$;"OPEN FULL FILE,L256"(II12D$;"WRITE FULL FILE,R";I<F40d(222)255ĦnI0130 xD$  TOR LENGTHS" ::958A "ENTER NUMBER OF DESIRED SORT? ";I S$Y S$"1"500i S$"2"600y S$"3"700 220 800:2000:3000:9000 X800:2000:3000:4000:9000 800:2000:3000:5000:9000 :10 *C$"PLEASE INSERT C$" "60 Z2 d10:"INSTRUCTIONS (Y/N)? ";G nC$:C$"Y"1000X xC$"N"110^ "THERE ARE THREE TYPES OF DIRECTORY" " SORTS AVAILABLE: " ::"1 - SORT BY NAME" :"2 - SORT BY TYPE" :"3 - SORT BY SEC 958:20(C$)2* C$:PRINTS LINE4 (7): T 5:C$"DISK SORT":11o C$"BY - TED COHN":11 (C$"DATE: DECEMBER 1, 1979":11 221:" PRESS 'ESC' TO END" 7"< PRESS THE SPACE BAR TO CONTINUE...>"; <C$ FC$(27)ė: Pn3255:16384:MAX70:RWTS16384:BUFFERRWTS256E(RWTS)725n(4)"BLOAD SORT CATALOG.X,A16384,V"|16420,65FILE$(MAX),P%(MAX),T%(MAX),S%(MAX),L%(MAX),E%(MAX),SEQ(MAX)RD1:WR2 16298,0::936:20 PRINT CENTER ROUTINE            (A$,(A$)B%)","(A$,B%)(|B%B%42}CC1<~6522B:OA$A$C$Um, <><><> END <><><>I B%(A$)(C$)? BB%W%A$("***************",W%)::6610E :ed NOW NEED TO INSERT COMMASe C-NUMBER OF COMMAS NEEDEDf OR MAXIMUM POSSIBLEnC((A$)1((A)1))3p:x READY NOW TO INSERT COMMASyB%3zC16600{A$PC(C10D%.5)10D%&QC$(C)C NOW C$ CONTAINS '0' OR_ '.X' OR~ '.XX' ETC.:C$"0"C$".0"(C$)D%1C$C$"0"::6311: CHECK FOR SUFFICIENT WIDTH B%-MINIMUM WIDTH NEEDED C - INTERGER PART THEN3C FRACTIONAL PARTXD ROUNDED TO 'D%' DECIMALS{E A$ - AT FIRST CONTAINS ONLYF THE INTERGER PORTIONG C$ - FRACTIONAL PARTH:LC((A))(A)MA$(C)ND%1C$"":6400OC(AC) (0> W%1W%1 W%15W%15 D%W%2D%W%2 :B LESOFT II BASIC r:& s WRITTEN BY: t ROBERT F ZANT@ u:O v 04-01-79U w:r z ROUTINE IS FOR VALUES: { .01 > 38(A$)::A$ 200: INFINITE LOOP p NUMERIC FORMAT ROUTINE q FOR APPOW MANY CHARACTERS IN":"LENGTH. THE 'D' MEANS HOW MANY "g Z"DECIMAL PLACES YOU WANT IT ROUNDED TO." d24:"PRESS RETURN TO CONTINUE ";R$: i INTERFACE AGE, MAR '80,P.27 n DEMO PROGRAM FOR APPLESOFT x NUMERIC FORMAT ROUTINE : WR:S ("THIS PROGRAM ALLOWS YOU TO FORMAT":"NUMBERS IN COLUMNS. IT ALLOWS YOU TO" 2"ENTER A DECIMAL NUMBER, THEN SPECIFY" <"HOW MANY DECIMAL PLACES YOU WANT IT":"ROUNDED OFF TO." F::"WHEN YOU ARE ASKED TO 'ENTER W,D'"9 P"THE 'W' MEANS Hn :7I180:"*";:IG:10);"HENDERSON JUNIOR HIGH"::q7);"INDUSTRIAL ARTS DEPARTMENT"::12);"COMPUTING CENTER"::16);"PRESENTS":I180:"*";:II13000:I 5 "***** FORMAT NUMBERS *****":     R. DIAL d:B1:C1:"INPUT STRING YOU WANT TO PRINT":6:A$:A(A$)::10:IACB:I:(A$,I);:40:IB$"SOMETHING MUST BE WRONG WITH APPLE !"::::E(B$):IECB:I:(B$,I);:40:I::::(D1100:D:2 JUST A WHIMSY3 BY: 4 WM.  USE THIS AT THE END6OF A PROGRAM THAT USESMTHE HI-RES SCREENj(BY G. ROBBINS OF ABACUS0::W02792:W,0W,191:279W,0279W,191::W NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0 `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`ESIFihijg` L 8stijRLghL8BC>?s J0:T0āJ1T:V(J)VĂJ:J0D j V0İ60080:J0TT1:V(T)(V)p 60080:J0ı WW(J):W0ĺ"GO ";"L ";L;"?": DAB11:X(W10):YW10X48:W0Y32 D,Y:WX:D:W0ı "INSERT ";W(JE # ";LN:"ENTER INCREMENT ";IN:LN0IN160000C o::"PR#";P$q tT0:V(100),W(100):60170:R11E3:60220 ~Gİ60100:R 60170:R11E3:N(M256):A1,MN256 A,N:VL:60080:W(J)(M):60180:GĂR 60170:R11E3:60220:Gİ60120:_: RENUMBER APPLE-SOFT?`:"PRINT TO PAPER? ";PR$::ra"PRINT A LISTING? ";L$:LT1:(L$,1)"Y"LT0bP$"1":(PR$,1)"Y"P$" 0"::60010e::11)"TURN THE PRINTER ON";:11):::0 j16)"RENUMBER"::"ENTER FIRST LIN  R INTEGER BASIC POKE 27031,251 (-22121 FOR 48K) AND TYPE CATALOG. (TO RESET POKE 27031,253)6OR 48K X=44347& F BY DARREL DUNMIRE2 PX443478 d n768,72:769,233:770,159:771,48:772,5:773,104:774,32:775,237:776,253:777,96:778,104:779,233:780,127:781,76:782,6:783,3 X,0:X1,3 "CATALOG" X,237:X1,253:[ FO\D YOU CAN FOOL SOME OF THE PEOPLE SOME OF THE TIME, ETC. DEPT.2 THIS PROGRAM WILL OUT-PUT A CATALOG WITH CONTROL CHARACTERS APPEARING IN INVERSE VIDEO.< LINE 80 MUST BE SET FOR MEMORY CONFIGURATION  A FOR 16K X=11579, FOR 32K X=27963, F  Lz"#???? ΠӠŠɠ ٠Ӡ ǠΠǠȠԠŠԠԠŠˠԠŠĠԠŠĠĠԠɠ ԠŠĠĠԠɠԠŠŠ ҠŮؠ ŠԠ ԠǠ ԠǭӠˠ ԠǮؠ͠ϠĠǠҠ  ңΠԠ ͠Š ͠Ҡ! ͠Ҡà" ίǠ!Ǡ" Ġ  ԠŠɮؠ ԠŮؠ ȠϠӠ̠֠Ӡ ̠ӮؠŠҠ  Ӡ Ԡ ŠӠȠ ŠӠΠ ŠӠήؠ̠ӠԠŠڠ ԠŠɠ ٠ԠŠɠ!٠ԠŠɠ"٠ԠŠɠ̠ҠǠ̠Ҡ̠Рɠ٠ ŠӠΠ ŠԠϠíԠ+٠ϠРҠĠӠ5Š͠ǠҠҠ٠à٠ŠΠԠɠŠΠԠɠŠԠŠԠҠŠԠӠ ŠԠӠ30,690 2107 "7 DATA, EVEN PARITY, 2 STOP BITS"C 829,01O "934,01Y ,1100 J"7 DATA, ODD PARITY, 2 STOP BITS" T829,05 ^934,05 h1100 "7 DATA, EVEN PARITY, 1 STOP BIT" 829,09 934,09 1100 "7 DATA, ODD PA"2. 7 ODD 2"1 "3. 7 EVEN 1"L "4. 7 ODD 1"g "5. 8 NONE 2" "6. 8 NONE 1" "7. 8 EVEN 1" "8. 8 ODD 1" :"WHICH "; X X 20 X270,330,390,450,510,570,69  12:102"DUMB TERMINAL SOFTWARE "<#:12O(" FOR"Y-:10y2"THE SSM/AIO SERIAL BOARD"<F800PZ"CHOOSE THE CORECT DATA FORMATd:n" DATA PARITY STOPS"x:"1. 7 EVEN 2          ND TO CONTINUE OR"' '"QUIT LISTING."/ (135 H :"THE END":b }PROGRAM COPIED FROM | }DR. DOBBS JOURNAL OF }COMPUTER CALISTHENTICS } PROGRAM CLASSIFIED } - PUBLIC DOMAIN - } } LAST MOD. NOV.19797 8- "EXIT LIST MODE *** CTRL C"5 12^ "TURN OFF PAGE LIST *** CALL 815"i 14:4 !" BLOAD LIST PAGE.X" "20 $"THE PAGE LIST PROGRAM ENABLES YOU TO" %"LIST 20 LINES OF TEXT, STOP, AND WAIT" &"FOR A KEYBOARD COMMA:"PRESS 'ESC' TO END"B ""Y (16384)155999p (16384)16011 :16368,0 "PAGE LIST IS AT: A$300,L$89" 4 "TURN ON PAGE LIST *** CALL 770" 6 "LIST ONE LINE *** ESC" *** LIST PAGE DOC ***3C$(40):16368,0H16298,0:::7X20(C$)2`C$k"":v INFO5:C$"LIST PAGE DOCUMENTATION":3C$"BY - ROBERT D. DIAZ":3 C$"FROM - DR. DOBBS JOURNAL":3 C$"OCT. 1979":3 21(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:0X23:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)1,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33       9/79 C M MB12B1" C01 I12BMC K$(A$,I,1)Y L$(B$,MBI,1)j K$L$CC1q I{ CCP TTC "M ,S100TBP 6S;"%" @T0 J70 T  FROM BYTE MAGAZINE SEPT 79 ADAPTED BY MIKE CICERCHI   T0P3$"FIRST WORD",,(A$92A(A$)M<"SECOND WORD",UFB$rKA$B$ĺ"EXACT MATCH !!"~PB(B$)ZABĪBAdM1BnC0xI1MK$(A$,BMI,1)L$(B$,I,1)K$L$ĪCC1ICCP TTOFF THE ROUTINE." "& Z"; " ALSO, A CONTROL C WILL EXIT THE LISTING, WHILE A CALL 815 WILL TURN OFF THE ROUTINE." Z " 3. CALL 770 (TURN ON ROUTINE)."= " 4. LIST"G :: "NOTE: DURING A LISTING, INDIVIDUAL LINES OF THE PROGRAM CAN BE LISTED BY PRESSING THE ESC KEY.": "ALSO, A CTRL C WILL EXIT THE LISTING, WHILE A CALL 815 WILL TURN EAD"D 2"OF THE ENTIRE PROGRAM, NON-STOP, AT BREAKNECK SPEED."l 7::"(WHEN READY PRESS SPACE BAR)"~ A:::::Z$ P"IMPLEMEMTATION OF IT IS QUITE SIMPLE." Z::" 1. BLOAD IT INTO MEMORY." d" 2. LOAD PROGRAM TO BE LISTED.")' "LIST PAGE BY TOM WYSOCKI"1::"THIS MACHINE LANGUAGE UTILITY CAN COME IN VERY HANDY WHEN LISTING A LONG APPLESOFT OR INTEGER BASIC PROGRAM.": ("IT WILL LIST ONLY 20 LINES OF TEXT EACH TIME THE SPACE BAR IS PRESSED, INST   IK4)16J;:K::J:::IJ :(10)2"PRESS RETURN TO DISPLAY"8s"PRESS CONTROL S TO STOP AND AGAIN TO CONTINUE" I$(15):"";A$::I015:I$(I):I 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F (I03:J015:K03:K101);I$(IK4);I$(J);" ";( WM. R. DIAL, W8BFH QI1F F(F$,I,SS)SS$120- P(F$,I,SS)3 ZH d"NOT IN STRING"Q n140b x:"FOUND":r (F$,I,SS) :"ANOTHER SEARCH (Y/N) ? ";:Z$:Z$ Z$"Y"10 SOURCE UNKNOWN (ISSUE #8 ???) SUBMITTED BY 1 *** STRING WITHIN A STRING SEARCHL *** FROM ISSUE # 8 R "LARGER STRING IS:":"'AN APPLE IS A COMPUTER'"Q12000:Q"STRING TO BE FOUND ";SS$F$"AN APPLE II IS A COMPUTER"(SS(SS$)2F(F$) < 5]9L 5*95(`*5`>HI (hLHhɃ ɛܥ3ɾLLLiȥ 0) J:I I6570$ J09. DD1A D,(I);J,(D)R (14);(30)Y Jf J6570p DD1 D,(I);(J),(D) (14);(30) "J:I '255 ,D Z936_1001d"ASCII","ASCII","ASCII"Ue"DECIMAL","HEXADEC","KEYBOARD"qg"CODE","CODE","SYMBOL"lD0:DD1nI09xJ09DD1D,I;J,(D)(14);(30)JJ6570DD1D,I;(J),(D) (14);(3  D$;"CLOSE";F$ * X(222)56506 b(222)< lG 216,0P 768V d(0 d500 n20 500- D$;"OPEN";F$@ D$;"WRITE";F$M I1100Y A$(I),` Is D$;"CLOSE";F${ 20 ,D$;"OPEN";F$ 6D$;"READ";F$ @I1100 JB$(I) OI TD$;"CLOSE";F$ ^20 D$;"OPEN";F$ D$;"DELETE";F$X\768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96j D$(4):"FILE NAME & IF YOU WISH TO: DELETE, CORRECT OR ADD, OR READ A TEXT FILE. TYPE 1, 2, OR 3 RESPECTIVELY. ";F$,Q:I0600 Q100,200,305]9L 5*95(`*5`>HI (hLHhɃ ɛܥ3ɾLLLi1)"Y" 5 o ::"DO NOT USE NUMBERS GREATER THAN 65535 ":"OR LESS THAN -65536 ":w 400sI14:B(HXBA):HEX$HEX$(HX$,B1,1):B1HXHXBABK xBABA16:Iy }3:958:"DECIMAL ";DEC;" (";NEG;")": "BINARY ";(BI$,4);" ";(BI$,5,4);" ";(BI$,9,4);" ";(BI$,4) :"HEX ";HEX$ 23:"ANOTHER NUMBER? ";D$ (D$,36) FNG80- KNEGDEC:DEC(NEG65536)K PNEG65536DEC65535155_ U DEC TO BINARYs ZBA32768:BIDEC _I116:B(BIBA):A$((B0)48):BI$BI$A$:B1BIBIBA dBABA2:I i DEC TO HEX nBA4096:HXDEC:HX$"0123456789ABCDEF"; 16:TP$"HEXADECIMAL":40. #BA2:TP$"BINARY" (216,0:12:868:"ENTER ";TP$;:" NUMBER: ";NM$:(NM$,1)"-"NM$(NM$,(NM$)1):NG1 -F(NM$):C1:DEC0 2AF11 7N((NM$,A,1))48:N9NN7 <DEC(DECNC):CCBA AA:NEG(DEC655y%:11)"BASE CONVERSION **"::0 : 5"MENU:"::6)"1. DECIMAL TO HEX AND BINARY":6)"2. HEX TO DECIMAL AND BINARY":6)"3. BINARY TO DECIMAL AND HEX":"ENTER CHOICE ";CH$:D(CH$):D25,30,35: 5BA10:TP$"DECIMAL":40 BA     KR1 PB$ ZT$;B$;+ tB$R$ī805 uRR1P w(R16(R16))0ī121X x80o yPAUSE1NP:PAUSEw z80 R$;D$"CLOSE "F$ D( :: "PEEK A TEXT FILE" PROGRAM=D$(4): CTRL-DSR$(13): RETURNh(T$(1): CTRL-An-/"PEEK A TEXT FILE PROGRAM"2"FILE NAME TO BE PEEKED: ";F$4"PAUSES AFTER 15 LINES: ";NP7D$"OPEN "F$<D$"READ "F$F130::6:"LANGUAGE PROGRAM TO BASIC POKES"0 y:IIN THE POKES ENTER," QG V"---> FIRST LINE NUMBER FOR POKES: ";FRM [w `"---> LINE NUMBER INCREMENTING: ";IN} e jI140:"-";:I k:"":2:"->INSERT DISKETTE AND PRESS 'RETURN'<-";A$: o:7( t:"DOS IS NOW CONVERTING MACHINE"IS PROGRAM."# I140:"*";:I:R "FOR THE MACHINE LANGUAGE PROGRAM ENTER,"X  $"---> STARTING ADDRESS (DECIMAL): ";ST ) ."---> LENGTH OF PROGRAM (DECIMAL): ";LG 3 8I140:"-";:I: L"FOR THE BASIC PROGRAM THAT WILL CONTAD A BASIC PROGRAM AND THEN EXEC"& T "CODE-POKES TO ADD THE POKE STATEMENTS."Z ,b : "THIS PROGRAM CHANGES A MACHINE LANGUAGE" "PROGRAM INTO BASIC POKES. THE MACHINE" "LANGUAGE PROGRAM MUST BE LOADED BEFORE" "EXECUTING TH1 PCT1120 Z dFR;- nFRFRINN x" POKE ";PL;",";(PL);" :";V PL\ w D$;"CLOSE CODE-POKES" :I15:"":I 5:5 "THE TEXT FILE 'CODE-POKES' CONTAINS" "THE BASIC POKE STATEMENTS." :::5 "LOA1 CODE-POKES WRITER8 DOS 3.2 MANUEL - PAGE 77B1000W D$(4): CTRL-DqD$;"OPEN CODE-POKES"D$;"DELETE CODE-POKES"D$;"OPEN CODE-POKES"D$;"WRITE CODE-POKES" CT0#ENSTLG2PLSTEN<CTCT1 FCT10CT X) -J . |.2BI% X*NO$"????" b*0 *DECDECK%BI%PWR%@ *PWR%PWR%1G \+Jf f+CONVERT DECIMAL TO BASE # p+H$"0123456789ABCDEF" z+NO$"" +PWR%(DEC)(BO%) $,JPWR%01 .,XX(BO%J) 8,CH%DECXX ,NO$NO$(H$,CH%1,1) P-DEC(DECCH%X"BASE NOT IN RANGE OF 2 TO 16":150F ' BASE CONVERSION SUBROUTINE` t' CONVERT TO DECIMAL n 'L%(NI$)x 'DEC0 <(PWR%0 (JL%11 )K%((NI$,J,1)) )K%64K%K%7 0*K%K%48 :*K%BI%K%1ī10900 D*"INVALID INPUT FOR BASE "; Z:0d"*** BASE CONVERSION ROUTINE ***"NnWRITTEN BY EASTON BEYMERW" "o"INPUT BASE: ";BI%BI%2BI%16600"INPUT NUMBER: ";NI$,"OUTPUT BASE: ";BO%6BO%2BO%1660010000"OUTPUT NUMBER=";NO$150% X     D$"" D$;"MON C,I,O"&K"ENTER NAME OF TEXT FILE - ";B$QcD$;"OPEN";B$u(D$;"READ";B${-2CH0:A$""3X$:X$;:X$(13)604CHCH1:CH3515A$A$X$751 <TEST FOR BOTTOM OF SCREEN AND/OR 'END' STRIN * d:(x(4)"BRUN MUSICAL KEYS.X"D AUTHOR:.......................Zx# PROGRAM CLASSIFIED - PUBLIC DOMAIN -`#N 4400&NN1N20 1200J:"HEX RESULT = ";D$(0);D$(1);D$(2);D$(3)fD:"PRESS ANY KEY": Q$lNr@x(#P# JUDD ELLMERSZ# 'CONVERSION PROGRAM'd#%n# THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BYAY BE POSITIVE OR A SMALL"D"NEGATIVE DISPLACEMENT. IF YOU WANT"r"THE NEGATIVE RESULT, ENTER THE SMALLER""NUMBER FIRST. FIRST HEX #= ";N$:N0 2200:N1N:" SECOND HEX #=";N$:N0 2200:N2N: (N1N2)0 N256(N1N2): T HEX NUMBER IS ": N$:N0% 22000N1N:T"SECOND HEX NUMBER IS ";N$:N0_ 2200jNNN1u 1200:"RESULT= ";D$(0);D$(1);D$(2);D$(3):"PRESS ANY KEY": Q$936::::"HEXADECIMAL SUBTRACTION""THE RESULTS Ml " A 10 1010"8v " B 11 1011"U " C 12 1100"r " D 13 1101" " E 14 1110" " F 15 1111" "PRESS ANY KEY":Q$ 936::::"HEXADECIMAL ADDITION":"FIRS 1 1 0001"3  " 2 2 0010"P & " 3 3 0011"m 0 " 4 4 0100" : " 5 5 0101" D " 6 6 0110" N " 7 7 0111" X " 8 8 1000" b " 9 9 1001"7);"STATUS REGISTER"( "FLAG ";17);:P 50,63:"N V B D I Z C": 50,255t "BIT ";17);"7 6 5 4 3 2 1 0" "------------------------------------" "HEX DECIMAL BINARY" "--- ------- ------"  " 0 0 0000"  "R?";N$  2200& :"DECIMAL= ";NB :"PRESS ANY KEY": Q$H X L(N$):N0f  I1 Lw S$(N$,I,1)  2500 NNA(16(LI))  I N(N.2): (S$)57 2530 A(S$)48 A(S$)55 936 1I0  J3 0 14 E(16J.2):D1 (NE)?  1500R NND1E:II1Z  J` r  D19 1520 D$(I)(48D1):  D115 D10 D$(I)(55D1): 936::::"HEX TO DECIMAL CONVERSION" :"WHAT IS YOUR HEX NUMBE "WHICH OPTION ";:O) O0 9000L O 1000,2000,3000,4000,4300U 20 936::::"DECIMAL TO HEX CONVERSION" :"WHAT IS YOUR DECIMAL NUMBER";N  1200 :"HEX= ";D$(0);D$(1);D$(2);D$(3) :"PRESS ANY KEY": Q$  b  D$(4)1936:::"CONVERSION PROGRAM"K(:"TABLE OF OPTIONS"e2"----------------":z7" 0 FINISHED"<" 1 DECIMAL TO HEX"F" 2 HEX TO DECIMAL"P" 3 NYBBLE TABLE"Z" 4 HEX ADDITION"d" 5 HEX SUBTRACTION"     PR#1" D$"MONI"/ D$"OPEN"F$;D$"READ"F$9 250K C$:C$;:180\ D$"CLOSE"F$i "PR#0"o  , M BOB SANDER-CEDERLOF 6 REVISED BY DAVID SPRUNGD ::12dD$(13)(4)cn"INSERT DISK WITH YOUR TEXT FILE":"IN THE APPROPRIATE DRIVE."o:"TYPE 'GO' WHEN READY ";G$:G$"GO"111s"CATALOG"tx"ENTER FILE NAME ";F$z:"DO YOU WANT A PRINTOUT?";P$ ~P$"Y"P$"YES"ĺ"IG8H9`NO,(HH 0 (hh,`  Y AGAIN"::70INUMBER ? ";B$:$ D0:L(B$):L112 AL11D B1$(B$,A,1)U B1$" "580c &D1(B1$)x 0D11D10650 :D2(L1)D1:L1L11 DA XA1L1 bDDD2(A)(2(A1)) lA vB$;" = ";D;" DECIMAL"::::70 ::"INPUT ERROR - TR :"NUMBER ? ";D:' D655352009 D;" = ";:F0F D0400U E1501l C2E:DCF0280 F1:D1DC:D10300 "1";:DD1 E12E8E4ĺ" "; E8ĺ" "; E:" BINARY":::70 ,"0";:270 D65536D:230 :" D2(20) ::D0712:"BINARY - DECIMAL":Q15:"CONVERSION"::<"JERRY JENKINS SEPTEMBER 1978"A34,12:F::P"1. BINARY TO DECIMAL"Z:"2. DECIMAL TO BINARY"d:"WHICH ? ";XnX1500xX210   ILN:HL0HL65536240::20::"YOUR LINE #'S WILL GO OUT OF RANGE ":"USING THE PRESENT STARTING # AND INCR. ":"(LAST NEW LINE # = ) ... PRESS ANY":"KEY TO RESUME...";23):22:20:HLM:756::100[HLL30019::"YOU----- -----"3:SO;:13:SN;:22:SI;:31:SERFĞ::"LINE #'S ONLY TO BE RENUMBERED..."::"IS THIS O.K.? (Y/N)";I$::((I$,1)"Y")100b249,0:1784,(1912):1785,(1913):254,255:255,255:LF:P(206)256(207)20HLSNS256(207)1AD(AD)256(AD1):I(AD)(AD1):L(I)65536(I)((AD2)256(AD3)))RF0::"DO YOU WISH TO RENUMBER LINE #'S ONLY?":"FOR SPEED? (Y/N)";I$:(I$,1)"Y"RF1}:" START # NEW # INCR. END #":" ------- ----- "WHAT LINE # TO END AT?":"(IN YOUR PROGRAM)":(37)1:22:I$:I$""I$"64999".SE(I$):SE(SE65000)SE(SE64999)64999:249,1:255,SE(SE256)256:254,(SE256):LF:AD(6)256(7){SE(AD2)256(AD3):"(ACTUAL END=";SE;") ":LN(206)4,AD(AD256)256:1785,(AD256)s:"WHAT NEW LINE# TO PUT THERE?";I$:I$""I$"10":"(DEFAULT=10)"xSN(I$):SN0SN65535ĺ"":115:}:"INCREMENT SIZE?";I$:I$""I$"10":"(DEFAULT=10)"fSI(I$):SI65535SI65535ĺ"":125:,0::4:"WHAT LINE # TO START AT":"(IN YOUR PROGRAM)":4:24:I$:SO(I$):SO0SO65000ĺ"":1004i249,0:1784,(1912):1785,(1913):255,SO(SO256)256:254,(SO256):LF:AD(6)256(7)nSO(AD2)256(AD3):"(ACTUAL START=";SO;") ":178%%%%%%"; 27:13:"* APPLESOFT *":9:7:"** RENUMBERING ROUTINE **"<16:6:"COPYRIGHT 1979 ROGER WAGNER";:17:7:"SOUTHWESTERN DATA SYSTEMS"HF18:6:"P.O. 582 - SANTEE,CA 92071":19:12:"(714) 562-3670"bPT(16384):T12780d16368 BEG(1912)256(1913):EN(1914)256(1915):EEEN4 ED(175)256(176):R1ED906:CNTED465:LFED573:NCED101:RNED91:10000v (::"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%":I222:"%";:39:"%":I:"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%2 1916,(103):1917,(104):1918,(175):1919,(176)o T1133:T2171:T3172:T4176:T5188:T6196:E(10):AF0: E *** RADIO FRIENDS 8E *** TO MAKE LIFE VE *** WITH THE 'APPLE' rE *** AND HEX EASIER ! THH6eqsuwy{},1)DhV015:C$D$(V)XV$DrV0D|TTXMADI:S65536TbD18:50,63:I1120:" ";:IzD19:13:T;" OR ";SDD260D *** WRITTEN BY:D *** ALEX M.MASSIMOD *** A F 6 WD *** AND DONATED E *** TO HIS AMATEURAL CONVERSION CD$(16)/C50,255:S0:T0[C13:5:" HEX NUMBER TO CONVERT > ";H$yC17:13:" "C"0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FC,H$("0000"H$,4)C6 4096,256,16,1 C@J015:D$(J):JCJI14CTM:D^C$(H$,I0 BD16THTH1:DD16:140AB18:50,63:X1120:" ";:XMB19:17kBH$(O);H$(T);H$(TH);H$(D)BO0:T0:TH0:D0:B50,255:70B::3:50,63BI1200:" ";:IB4:13:"HEX TO DECIMAL"B:15:"UTILITY"C* HEX TO DECIM380A2H$(100)7A<0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FMAFI015:H$(I):IrAP11:9:"NEGATIVE CALLS ALLOWED"AZ14:" DECIMAL NUMBER TO CONVERT > ";DAdD6553590AnD0DD65536AxD4096OO1:DD4096:120BD256TT1:DD256:13@:2:I1120::" ";:I@@3:12:"DEC & HEX UTILITY":t@12:13:"1. DEC TO HEX"::13:"2. HEX TO DEC"@18:10:"WHICH CONVERSION ? ";C@ C2200@ :3:50,63@X1200:" ";:X@4:13:"DECIMAL TO HEX"A(:16:"UTILITY":          $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(               (PN$)1):2320 PI$""3 W1(NA$)(PI$)1f$ (NA$,W,(PI$))PI$W(NA$)(PI$)1::2200r. :2010 ONERR GOTO...::O,0/u0uTO USE TELEPHONE5uDIALER, CONNECT THE:uMAGNET LEADS OF A?u6-12 VOLT RELAY TO201044:5:FL0ĺPN$;" IS NOT IN THE FILE"::50YH"NO MORE "PN$"'S IN FILE"::50:NA$5)NB$:" DO YOU WANT THIS ? (Y/N) ";:W$W$"Y"PN$NB$:::100W$"N"FL1:::2010W$:2210?-FULL SEARCH(PN$)1PI$(PN$,111 WEATHER,936-12124 DA.C. TRANSIT,653-3535[ vLAWRENCE HALL OF SCIENCE,642-5132y RECREATION DEPT,654-0330 END,END ** NAME FINDER :FL0 NA$,NB$:NA$"END"NB$"END"2100 (NA$,(PN$))PN$2200 PH$"?"23006336)(16336))0W:: ALERT8 J" CANCEL? (Y/N) "; TW$:W$"Y"ĺ::15:"CANCELING CALL":C,0:W1750::O,0:W11750:: ^W$"N"Ė16:868:"IGNORED":200 h340  PHONE NUMBERS FIRE,911,POLICE,911,AMBULANCE,911 TIME,767-11N "*";:W(S)(S)# C,01 W125:: O,0H W135:O L\ 13:":"k W1150: N1LL1āW13000: LL : ,ERRORS IN PH # 6" ERROR - ";::(PN$,LL,1);::13:":"; @W110:W((16336)(16336)(1N$)((PN$)29)((PN$)28)28)):W1:8 nLL1(PN$)Z xN((PN$,LL,1))48:N0N10h zN3200 {N16ĺ:W12000::200 }N2ĹC,0:W1750::O,0:W11750::200 ~N1N10310  -3='-' -16=' ' -2='.' N(N10);" "; LK"/ ):" LIST PROGRAM FOR INSTRUCTIONS."a -L$" " 2:"PHONE NUMBER OR NAME :";PN$:(PN$)050 <PH$(PN$,1):((PH$)48(PH$)57)(PH$)462000 Z' dW(37):2::L$:2:" DIALING: "(PN$,((P  50002554C16289:O16290:S16336=O,0::"----------------------------------------";::" TELEPHONE DIALER ";::"----------------------------------------"#34,6 (" TELEPHONE SHOULD BE OFF HOO 0 FOR X=0 TO ";L11;" : READ D1 : POKE ";S1;"+X,D1 : NEXT"| "120 PRINT CHR$(4);";(34);"BSAVE ";C$;",A";S1;",L";L1;(34) "130 END" A$""400 390-"1100! & L1(L1$):L1$""3090= 0 "OUTPUT DATA FILE=";B$C 2 S 4 B$""3120q : "OUTPUT BINARY FILE=";C$w < > C$""3130 D D$;"OPEN BIN.FILE" N D$;"WRITE BIN.FILE" X "FP" b "10 REM CREATES BINARY FILE: ";C$ l "20 REM": v "10Y 11/15/78 3 D$(4)::D$;"NOMON C,I,O":V :"THIS PROGRAM MAY ABORT IF"w "THE BINARY OVER-WRITES IT"} "LOAD NAME=";A$: :"STARTING ADDRESS=";S1$: (S1$,1)"$"1000  S1(S1$)  "LENGTH=";L1$:  (L1$,1)"$ `L1S4 j3120% X(S$)11? D1$(S$,(S$)X1,1)K L116s D1$("0123456789ABCDEF",L,1)2100z L "ERROR IN INPUT":S40: 4S4S4(L1)16(X1) >X H 20992 BINARY FILE TO DATA STATMENTS CRAIG COPLE(Z1):A$:XX1:LILI10:A$(LI)" DATA "0 XB A$A$"0":A$R "SAVE ";B$i "DELETE BIN.FILE"y D$;"CLOSE" D$;"EXEC BIN.FILE"  S$(S1$,2,(S1$)) S40 2000 S1S4 3090 LS$(L1$,2,(S1$)) MS40 V2000 COPYRIGHT MECC 1979C BINARY FILE TO FP 9/13/79 FPR AUTHOR:\,3000rD$;"BLOAD ";A$:D$;"WRITE BIN.FILE"XLI1000:A$"1000 DATA "bX0L11lZ1(S1X):A$A$(Z1)","v(A$)130650) Z1(S1X1):A$A$     1111111110,000111111100# HT 111110011111,011100001110,011100001110 011111111110,011111111110,011100001110 011100001110,011100001110,111110011111 I 000111110000,000011100000,000011100000$ 00111111111,011100000011Gt 011100011000,011111111000,011111111000xv 011100011000,011100000000,111110000000x Gz 000111111100,001111111110,011100000111| 111000000000,111000011111,111000011111~ 011100000111,00100000111:f 011100001110,011111111100,111111111000Fh Ewj 111111111111,011111111111,011100000011l 011100011000,011111111000,011100011000n 011100000011,011111111111,111111111111p Fr 111111111111,011 C9Z 000111111100,001111111110,011100000111j\ 111000000000,111000000000,111000000000^ 011100000111,001111111110,000111111100` Db 111111111000,011111111100,011100001110 d 011100000111,011100000111,011 011100001110,111111111111,111111111111]N 111000000111,111000000111,111000000111iP BR 111111111000,011111111100,011100001110T 011111111110,011111111100,011100001110V 011100000111,011111111110,111111111100X :6000. Q111000:Q1:10+8 -,-\B 000000000000,000000000000,000000000000D 001111111100,001111111100,000000000000F 000000000000,000000000000,000000000000H AJ 000011110000,000111111000,001110011100,L 2100RJ19\L$+fT$(I10J)L$2pJ9zIEL119UL21(A$)iL$T$(L210L1)vL3112T$(L2)" "2270(L$,L3,1)"0"2270T$(L2);L32290" ";L3" ";L2  L1 $,60,1 0+ *** BLOCK LETTERS ***1=T$(80)b"ENTER UP TO 6 CHARACTERS ":A$l5000{I1(A$)T$(I)(A$,I,1) II1(A$) T$(I)" "2170*:123,56:124,15:125,247:126,0164D$>D$T$(I)2130H8,6,5,3,14,6,6,2,10,17 30,8,6,5,3,14,6,7,1,10,1Y 31,9,6,3,3,15,6,16,1,1,1{ 32,9,6,3,3,15,6,15,2,1,1 33,10,6,1,3,16,6,14,3,1,1 34,10,10,16,6,12,5,1,1 35,11,8,13,27,1,1 36,11,8,13,27,1,1& 378,1,1(  22,4,6,13,3,10,6,12,5,1,1K  23,5,6,11,3,11,6,14,3,1,1n  24,5,6,11,3,11,6,15,2,1,1  25,6,6,9,3,12,6,16,1,1,1  26,6,6,9,3,12,6,7,1,10,1  27,7,6,7,3,13,6,6,2,10,1  28,7,6,7,3,13,14,10,1 29,6 13,4,6,19,1,1,5,10,10,4,1B @ 14,4,6,18,2,1,6,8,11,4,1d J 15,4,6,17,3,1,7,5,13,4,1 T 16,4,6,15,5,2,23,5,1 ^ 17,1,29,5,17,8,1 h 18,1,29,9,9,12,1 r 19,60,1 | 20,1,13,5,11,1,28,1,1  21,1,13,5,11,1,2,6,23,21,6,1)  5,4,6,22,12,5,6,5,1F  6,4,6,21,11,8,6,4,1d  7,4,6,21,10,10,5,4,1  8,4,6,21,9,11,5,4,1  9,4,6,21,8,11,6,4,1  10,4,6,21,7,11,7,4,1 " 11,4,6,21,6,11,8,4,1 , 12,4,6,19,1,1,5,11,9,4,1 601170 (1210 2 <' F6000> PQ111000:Q1:10J ZA1A1AU dI1A_ n" ";f xIr A1A1B A1601170 IA1BA11 T$(I); I 1310  1,60,1  2,1,12,26,9,12,1  3,3,8,24,17,8,1  4,45000 LL(A$)" VJ1(60L)- `I1LG jT$(JLIL)(A$,I,1)N tIU ~J] C0l A11:CC1{ C381330 A  A,B N21370 A1A1A IA1AA11 T$(I); I A1A1B I1B " "; I A1ϸ31CHANGE STMT 5010 FOR YOUR PRINTER SLOT7 B10000_ *** LOVE PICTURE ***h tT$(90)~936"KEY IN THE WORD(S) - UP TO""30 CHARACTERS":A$$:."1 FOR CLEAR LETTERS"8"2 FOR DARK LETTERS ":N B               16368,0 K(16384)12875> P(16384)155Ĺ16368,0:55L U16368,0T Z40e dWRITTEN BY:z eJOSEPH H. BUDGE f2507 ELDERWOOD LN. gBURLINGTON,NC 27215 i CAROLINA APPLE CORE4);"OPEN";A$;",L";A:(4);"READ";A$;",R";N= #:3:A$;":":I (B145u )A$::A$;:(A$)13NN1::">";N;"<"} *65 -A$ 0:">";N;"<":A$:NN1 265 7:(4);"CLOSE":(4);"MON I,C,O" <"END OF FILE": A(16384)12840 FER KEY WILL RE- START DISPLAY":::"TYPE THE FILE NAME, THEN PRESS RETURN:"V A$ :"SHOULD THE FILE BE READ VIA 1 - GET, OR 2 - INPUT STATEMENTS ?";B:BB1 :"RECORD LENGTH ?";A :"RECORD NUMBER ?";N 55* (4);"NOMONI,C,O":(::5:255I "TEXT FILE READ PROGRAM":"----------------------" ::"THIS PROGRAM READS AND PRINTS THE CONTENTS OF ANY TEXT FILE."N :"WHILE THE PROGRAM RUNS, PRESS ANY KEY TOSTOP THE DISPLAY. THEN ESC WILL END THEPROGRAM, WHILE ANY OTH " LOMEM: PTR":A$(107)" VARIABLE PTR":A$(109)" CURRENT MEMORY":A$(111)" END OF STRINGS":A$(113)" GENERAL PURPOSE PTR":A$(115)" APPLESOFT HIMEM":A$(8)" PROGRAM POINTER" LIS LOMEM: AND PROGRAM POINTER WILL READ THE SAME UNLESS LOMEM HAS BEEN CHANGEDh:A$(115):1050I1031152:AA1:I;" ";I1;" = ";(I)(I1)256;A$(I)::"175 176 = ";(175)(176)256;A$(8) A$(103)" START OF PROGRAM":A$(105)   PROGRAM CAPTUREV BEFORE RUN INPUT START AND END LINE NUMBERS IN LINE 1006kD$(4): CTRL-DD$;"OPEN LISTING"D$;"WRITE LISTING"33,300,200D$;"CLOSE LISTING":TUT A$ STRING TO DISK HERE+ A$"END"40; D$;"CLOSE"A  <A$A$X$:ADD X$ TO A$ STRINGr AX$;:ECHO CHARACTER TO SCREEN. INCLUDES 'BACKSPACE' BUT NOT FOWARD SPACEING. F50:GET NEXT CHARACTER FROM KEYBOARD P64668::CLEAR TO END OF LINE AND RETURN UD$;"WRITE ";B$:TURN ON WRITE MODE dA$:OUTPAM SCREEN COPYING SO IGNORE AND GET NEXT CHARACTER 8X$(8)(A$)1A$(A$,(A$)1):65:TEST FOR BACKSPACE (ASCII 8) AND LENGTH OF CURRENT A$ STRING. LEFT$ SHORTENS A$ STRING BY ONE CHARACTER 9X$(8)(A$)1A$"":65 :X$(8)(A$)0ī50 C D$"":CONTROL-D-D$;"NOMON I,O,C"3X"ENTER NAME OF TEXT FILE - ";B$^pD$;"OPEN";B$(A$"":SET A$ TO NULL STRING2X$:X$(13)80: CHR$(13) = 'RETURN'2 7X$(21)50:TEST FOR FOWARD SPACE/RIGHT ARROW. CAN'T PROGR91009,761010,241*1011,16581012,166 :"LIBRARY DISC #";X;" HAS BEEN PRINTED!"[ :"TYPE 'E' OR 'END' & 'RETURN' TO QUIT.": "CHANGE DISC AND TOUCH 'RETURN' TO" "CONTINUE LISTINGS. ";B$ : B$"E"B$"END"Ā 110 E TO":"THE NEXT PAGE!":H H"PROGRAM REQUIRES PRINTER CARD IN SLOT 1"N Iy K"TOUCH 'RETURN' TO START PROGRAM!";C$ P: dA$"" n"ENTER DISC VOLUME #";X s: xA$;"PR#1" "LIBRARY DISC #";X A$;"CATALOG" A$;"PR#0"* :ILL BE SENT TO PRINTER, EXECUTION OF THIS OPERATION IS AUTOMATIC!":: E"WHEN NOTIFIED OF COMPLETION, REMOVE":"DISC, INSERT NEXT TO BE PRINTED OUT AND TOUCH 'RETURN'" G:"AS USUAL IF CONTENTS ARE GREATER THAN":"ONE PAGE TOUCH 'RETURN' TO ADVANC2<X0A"THIS PROGRAM WILL LIST THE CONTENTS OF":"LIBRARY DISCS. ENTER THE NUMBER OF YOUR":"DISC WHEN PROMPTED! IT WILL BE PRINTED"C"ABOVE THE CATALOG LISTING FOR YOUR":"CONVENIENCE!":H D:"ONLY THE HEADER DISC NUMBER AND CONTENTSW   6))16:600+ &X%((B16)(B16))16:6005 0X$:N XX$X$(H$,X%1,1):W B:s 22:32,0:C,186:33,40 *:15)"THAT'S ALL!" 4 PRINT "PRESS RETURN TO RETURN TO CATALOG.":INPUT AS$ > D$="":PRINT D$;"RUN HELLO,V0":ENDD0 A129500 "2103 33,26:32,13:1:210M 33,13:32,26:1:210k 676:33,40:32,0::210y D2ī800 6:" FOR HEX":"TOKENS, HIT":"RETURN." 676:D2:33,40:32,0::200 X$" ":H$"0123456789ABCDEF" X%((B256)(B25di:<n:"PROGRAM TO DISPLAY APPLESOFT TOKENS"Yx:" BY VAL GOLDING"c:D1xA1:B128:C2053C,B:100:((37)1)D1İ700D2İ520((37)):BB1:AA1A22A85400A43A127410 A64A10642 nK(3(10))1 ( xL(3(10))1 G N$(J);" ";V$(K);" ";O$(L)b TIME1 600: TIME k 90Lm N$(3),V$(3),O$(3)2"TYPE THREE NOUNS:"Y"(PRESS RETURN AFTER EACH WORD.)"s( K1 3: N$(K): K2"NOW TYPE THREE VERBS:"< K1 3: V$(K): K F"NOW TYPE THREE OBJECTS:"P K1 3: O$(K): K Z dJ(3(10))1   ' N1254:A$A$(0):B$B$(0):NC$"300:0 301<300.3CEM 800:0 801<800.BFFM 3D0G":N1(C$):511N,((C$,N,1))128:N:72,0:144 10/15/79 CLEAR MEMORY h)30);:I110:"!";:I:a THESE ROUTINES SHOULD BE USED WHEN YOU WRITE A NEW PROGRAM...W10:"!";:I:3THESE ROUTINES SHOULD BE USED WHEN YOU WRITE A NEW PROGRAM...4:: TO PRINTER' t'922::LINE FEEDB '912::SCROLL UP ONEc <(958::CLEAR INSIDE WINDOW n( ENTER PROGRAM NAME ON LINE #10500 o( CENTER IT WITHIN 20 SPACES... p( BETWEEN TAB 10 AND TAB 30 (I110:"!";:I )11);"ARC PLOTTER"; 27:< T$50,127:"HIT RETURN TO GET BACK TO MENU":50,255:W $936::HOME UP ERASE} $"": RING BELL 3 TIMES:RETURN %"":: RING BELL ONCE %384::INVERT %50,255:: NORMAL H&50,127: &"REQ MEM=";22015("");"BYTES": '82c 32767*"DO A LIST NOW..."0#K( WRITTEN BY ED AVELARb2 2850 JENNIFER DR< CASTRO VALLEY CA 94546F 415 538-2431P&#(#I138:"*";:I:"*":#I167:"*";:I:"*": #384:"HIT RETURN TO CONTINUE":50,1    Pإgh Hȱh`籅ɲX<ȱ=>B8