L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`,70,140,80,150,80,150,90,140,90,140,80,140,90,150,90,150,100,140,100,140,90' 140,100,150,100,150,110,140,110,140,100,140,110,150,110,150,120,140,120,140,110,140,120,150,120,150,130,140,130,140,120,140,130,150,130,150,140,140,140,140,130,140,140,150,140,10,140,0,140,10,150,10,150,20,140,20,140,10,140,20,150,20,150,30,140,30,140,20,140,30,150,30,150,40,140,40,140,30,140,40,150,40,150,50,140,50,140,40K&140,50,150,50,150,60,140,60,140,50,140,60,150,60,150,70,140,70,140,60,140,70,150,70,150,80,140,80,14000,130,100,130,90$130,100,140,100,140,110,130,110,130,100,130,110,140,110,140,120,130,120,130,110,130,120,140,120,140,130,130,130,130,120,130,130,140,130,140,140,130,140,130,130,130,140,140,140,140,150,130,150,130,140,999,0%140,0,150,0,150,10,140,140,30,130,30,130,20,130,30,140,30,140,40,130,40,130,30,130,40,140,40,140,50,130,50,130,40$130,50,140,50,140,60,130,60,130,50,130,60,140,60,140,70,130,70,130,60,130,70,140,70,140,80,130,80,130,70,130,80,140,80,140,90,130,90,130,80,130,90,140,90,140,1,100,120,110,130,110,130,120,120,120,120,110,120,120,130,120,130,130,120,130,120,120,120,130,130,130,130,140,120,140,120,130,120,140,130,140,130,150,120,150,120,140,999,0[#130,0,140,0,140,10,130,10,130,0,130,10,140,10,140,20,130,20,130,10,130,20,140,2020,40,130,40,130,50,120,50,120,40! 120,50,130,50,130,60,120,60,120,50,120,60,130,60,130,70,120,70,120,60,120,70,130,70,130,80,120,80,120,70,120,80,130,80,130,90,120,90,120,80,120,90,130,90,130,100,120,100,120,90" 120,100,130,100,130,110,120,110,12020,120,130,110,130,110,120,110,130,120,130,120,140,110,140,110,130,110,140,120,140,120,150,110,150,110,140,999,0!!120,0,130,0,130,10,120,10,120,0,120,10,130,10,130,20,120,20,120,10,120,20,130,20,130,30,120,30,120,20,120,30,130,30,130,40,120,40,120,30,10,110,60,110,50,110,60,120,60,120,70,110,70,110,60,110,70,120,70,120,80,110,80,110,70,110,80,120,80,120,90,110,90,110,80,110,90,120,90,120,100,110,100,110,90p 110,100,120,100,120,110,110,110,110,100,110,110,120,110,120,120,110,120,110,110,110,120,120,1,100,130,100,140,110,140,110,150,100,150,100,140,999,0110,0,120,0,120,10,110,10,110,0,110,10,120,10,120,20,110,20,110,10,110,20,120,20,120,30,110,30,110,20,110,30,120,30,120,40,110,40,110,30,110,40,120,40,120,50,110,50,110,40110,50,120,50,120,6110,70,110,80,100,80,100,70,100,80,110,80,110,90,100,90,100,80,100,90,110,90,110,100,100,100,100,906100,100,110,100,110,110,100,110,100,100,100,110,110,110,110,120,100,120,100,110,100,120,110,120,110,130,100,130,100,120,100,130,110,130,110,140,100,140100,0,110,0,110,10,100,10,100,0,100,10,110,10,110,20,100,20,100,10,100,20,110,20,110,30,100,30,100,20,100,30,110,30,110,40,100,40,100,30,100,40,110,40,110,50,100,50,100,40c100,50,110,50,110,60,100,60,100,50,100,60,110,60,110,70,100,70,100,60,100,70,,80,100,90,90,90,90,80,90,90,100,90,100,100,90,100,90,9090,100,100,100,100,110,90,110,90,100,90,110,100,110,100,120,90,120,90,110,90,120,100,120,100,130,90,130,90,120,90,130,100,130,100,140,90,140,90,130,90,140,100,140,100,150,90,150,90,140,999,0100,10,90,10,90,0,90,10,100,10,100,20,90,20,90,10,90,20,100,20,100,30,90,30,90,20,90,30,100,30,100,40,90,40,90,30,90,40,100,40,100,50,90,50,90,40890,50,100,50,100,60,90,60,90,50,90,60,100,60,100,70,90,70,90,60,90,70,100,70,100,80,90,80,90,70,90,80,100,80,90,90,80,90,80,80,80,90,90,90,90,100,80,100,80,9080,100,90,100,90,110,80,110,80,100,80,110,90,110,90,120,80,120,80,110,80,120,90,120,90,130,80,130,80,120,80,130,90,130,90,140,80,140,80,130,80,140,90,140,90,150,80,150,80,140,999,090,0,100,0,80,0,90,0,90,10,80,10,80,0,80,10,90,10,90,20,80,20,80,10,80,20,90,20,90,30,80,30,80,20,80,30,90,30,90,40,80,40,80,30,80,40,90,40,90,50,80,50,80,40580,50,90,50,90,60,80,60,80,50,80,60,90,60,90,70,80,70,80,60,80,70,90,70,90,80,80,80,80,70,80,80,9080,70,70,70,80,80,80,80,90,70,90,70,80,70,90,80,90,80,100,70,100,70,9070,100,80,100,80,110,70,110,70,100,70,110,80,110,80,120,70,120,70,110,70,120,80,120,80,130,70,130,70,120,70,130,80,130,80,140,70,140,70,130,70,140,80,140,80,150,70,150,70,140,999,010,110,210,100,210,110,220,110,220,120,210,120,210,110,210,120,220,120,220,130,210,130,210,120,210,130,220,130,220,140,210,140,210,130,210,140,220,140,220,150,210,150,210,140,999,0e7l220,0,230,0,230,10,220,10,220,0,220,10,230,10,230,20,220,20,220,10,2200,210,30,210,40,220,40,220,50,210,50,210,405d210,50,220,50,220,60,210,60,210,50,210,60,220,60,220,70,210,70,210,60,210,70,220,70,220,80,210,80,210,70,210,80,220,80,220,90,210,90,210,80,210,90,220,90,220,100,210,100,210,906f210,100,220,100,220,110,2,120,210,120,210,130,200,130,200,120,200,130,210,130,210,140,200,140,200,130,200,140,210,140,210,150,200,150,200,140,999,0+5b210,0,220,0,220,10,210,10,210,0,210,10,220,10,220,20,210,20,210,10,210,20,220,20,220,30,210,30,210,20,210,30,220,30,220,40,210,40,50,210,60,200,60,200,50,200,60,210,60,210,70,200,70,200,60,200,70,210,70,210,80,200,80,200,70,200,80,210,80,210,90,200,90,200,80,200,90,210,90,210,100,200,100,200,90z4\200,100,210,100,210,110,200,110,200,100,200,110,210,110,210,120,200,120,200,110,20040,190,140,190,130,190,140,200,140,200,150,190,150,190,140,999,02X200,0,210,0,210,10,200,10,200,0,200,10,210,10,210,20,200,20,200,10,200,20,210,20,210,30,200,30,200,20,200,30,210,30,210,40,200,40,200,30,200,40,210,40,210,50,200,50,200,403Z200,50,2160,190,70,200,70,200,80,190,80,190,70,190,80,200,80,200,90,190,90,190,80,190,90,200,90,200,100,190,100,190,90@2R190,100,200,100,200,110,190,110,190,100,190,110,200,110,200,120,190,120,190,110,190,120,200,120,200,130,190,130,190,120,190,130,200,130,200,1,999,00N190,0,200,0,200,10,190,10,190,0,190,10,200,10,200,20,190,20,190,10,190,20,200,20,200,30,190,30,190,20,190,30,200,30,200,40,190,40,190,30,190,40,200,40,200,50,190,50,190,40m1P190,50,200,50,200,60,190,60,190,50,190,60,200,60,200,70,190,70,190,,180,90,180,80,180,90,190,90,190,100,180,100,180,900H180,100,190,100,190,110,180,110,180,100,180,110,190,110,190,120,180,120,180,110,180,120,190,120,190,130,180,130,180,120,180,130,190,130,190,140,180,140,180,130,180,140,190,140,190,150,180,150,180,140190,20,180,20,180,10,180,20,190,20,190,30,180,30,180,20,180,30,190,30,190,40,180,40,180,30,180,40,190,40,190,50,180,50,180,403/F180,50,190,50,190,60,180,60,180,50,180,60,190,60,190,70,180,70,180,60,180,70,190,70,190,80,180,80,180,70,180,80,190,80,190,9070,100,180,100,180,110,170,110,170,100,170,110,180,110,180,120,170,120,170,110,170,120,180,120,180,130,170,130,170,120,170,130,180,130,180,140,170,140,170,130,170,140,180,140,180,150,170,150,170,140,999,0}.D180,0,190,0,190,10,180,10,180,0,180,10,190,10,0,30,180,30,180,40,170,40,170,30,170,40,180,40,180,50,170,50,170,40,<170,50,180,50,180,60,170,60,170,50,170,60,180,60,180,70,170,70,170,60,170,70,180,70,180,80,170,80,170,70,170,80,180,80,180,90,170,90,170,80,170,90,180,90,180,100,170,100,170,90->1,120,160,120,160,110,160,120,170,120,170,130,160,130,160,120,160,130,170,130,170,140,160,140,160,130,160,140,170,140,170,150,160,150,160,140,999,0C,:170,0,180,0,180,10,170,10,170,0,170,10,180,10,180,20,170,20,170,10,170,20,180,20,180,30,170,30,170,20,1750,160,40*2160,50,170,50,170,60,160,60,160,50,160,60,170,60,170,70,160,70,160,60,160,70,170,70,170,80,160,80,160,70,160,80,170,80,170,90,160,90,160,80,160,90,170,90,170,100,160,100,160,90+4160,100,170,100,170,110,160,110,160,100,160,110,170,110,17020,150,130,160,130,160,140,150,140,150,130,150,140,160,140,160,150,150,150,150,140,999,0 *0160,0,170,0,170,10,160,10,160,0,160,10,170,10,170,20,160,20,160,10,160,20,170,20,170,30,160,30,160,20,160,30,170,30,170,40,160,40,160,30,160,40,170,40,170,50,160,60,60,160,70,150,70,150,60,150,70,160,70,160,80,150,80,150,70,150,80,160,80,160,90,150,90,150,80,150,90,160,90,160,100,150,100,150,90X)*150,100,160,100,160,110,150,110,150,100,150,110,160,110,160,120,150,120,150,110,150,120,160,120,160,130,150,130,150,1,150,150,140,150,140,140,999,0'&150,0,160,0,160,10,150,10,150,0,150,10,160,10,160,20,150,20,150,10,150,20,160,20,160,30,150,30,150,20,150,30,160,30,160,40,150,40,150,30,150,40,160,40,160,50,150,50,150,40((150,50,160,50,160,60,150,60,150,50,150,60,1 ZONE (GMT = UT = 0). IN THE U. S., THE ZONES ARE: 5) EASTERN 6) CENTRAL"$"7) MOUNTAIN":"8) PACIFIC":"TIME ZONES EAST OF GREENWICH ARE COUNTEDNEGATIVELY GOING EAST FROM GMT. ";TZ%:(TZ%)129375$9350$:"ENTER LOCAL TIME IN HOURS AND MINUTES SEPARATED BY COMMAS. USE A 24 HOUR CLOCK(0 - 23) ";HR%,MN%:HR%0HR%239360$MN%0MN%599360$:"STANDARD OR DAYLIGHT TIME? (S/D) ";SD$$SD$"S"9375$SD$"D"9370y$:"ENTER TIMEENEVER YOU USE THE+ ONERR COMMAND, YOUF MUST RESET A POINTERa IN MEMORY BEFORE YOUy$ GO BACK INTO YOUR. PROGRAM. THE COMMAND8 POKE 216,0 DOES THISB FOR YOU.L V 216,0` j GO BACK TO PROGRAMt ~ 1100CIDENTAL ENTRY' WHERE THE ENTRY IS? NOT A NUMBER. ITX IS SET UP TO CATCHn AN ERROR ON ALL THREE ENTRIES."YOU MUST ENTER A WHOLE NUMBER! ""START OVER. " WHYS. START WITH SMALL ONES OR"IH"YOUR DATA WILL SOON BE IN DISARRAY!"QR18\"P.S. READ THE PROGRAM LISTING":"CAREFULLY AND YOU WILL LEARN SOME":"INTERESTING PROGRAMMING TECHNIQUES."fp ERROR TRAP z THIS WILL CATCH AN AC10","Y",";@X10","Y10",";1@X","Y10",";@@X","Y",";[@YY10:CC1:C52005o@4"ANOTHER? ";R$@>R$"Y"1000@ @(222)42Ā660,110,260,120,250,120,250,110,250,120,260,120,260,130,250,130,250,120,250,130,260,130,260,140,250,140,250,130,250,140,260,140,260,150,250,150,250,140,999,0??"LINE NUMBER? ";LN$?"X? ";X:"Y ";Y?C0?LN$" DATA";?X","Y","; @X60,50,250,50,250,40>250,50,260,50,260,60,250,60,250,50,250,60,260,60,260,70,250,70,250,60,250,70,260,70,260,80,250,80,250,70,250,80,260,80,260,90,250,90,250,80,250,90,260,90,260,100,250,100,250,90?250,100,260,100,260,110,250,110,250,100,250,110,2,130,240,120,240,130,250,130,250,140,240,140,240,130,240,140,250,140,250,150,240,150,240,140,999,0>250,0,260,0,260,10,250,10,250,0,250,10,260,10,260,20,250,20,250,10,250,20,260,20,260,30,250,30,250,20,250,30,260,30,260,40,250,40,250,30,250,40,260,40,20,240,60,250,60,250,70,240,70,240,60,240,70,250,70,250,80,240,80,240,70,240,80,250,80,250,90,240,90,240,80,240,90,250,90,250,100,240,100,240,90b=240,100,250,100,250,110,240,110,240,100,240,110,250,110,250,120,240,120,240,110,240,120,250,120,250,130,24040,240,140,240,150,230,150,230,140,999,0;240,0,250,0,250,10,240,10,240,0,240,10,250,10,250,20,240,20,240,10,240,20,250,20,250,30,240,30,240,20,240,30,250,30,250,40,240,40,240,30,240,40,250,40,250,50,240,50,240,40<240,50,250,50,250,60,240,60,240,5230,80,230,70,230,80,240,80,240,90,230,90,230,80,230,90,240,90,240,100,230,100,230,90(;z230,100,240,100,240,110,230,110,230,100,230,110,240,110,240,120,230,120,230,110,230,120,240,120,240,130,230,130,230,120,230,130,240,130,240,140,230,140,230,130,230,1240,10,230,10,230,0,230,10,240,10,240,20,230,20,230,10,230,20,240,20,240,30,230,30,230,20,230,30,240,30,240,40,230,40,230,30,230,40,240,40,240,50,230,50,230,40U:x230,50,240,50,240,60,230,60,230,50,230,60,240,60,240,70,230,70,230,60,230,70,240,70,240,80,0,90,230,100,220,100,220,908p220,100,230,100,230,110,220,110,220,100,220,110,230,110,230,120,220,120,220,110,220,120,230,120,230,130,220,130,220,120,220,130,230,130,230,140,220,140,220,130,220,140,230,140,230,150,220,150,220,140,999,09v230,0,240,0,,20,230,20,230,30,220,30,220,20,220,30,230,30,230,40,220,40,220,30,220,40,230,40,230,50,220,50,220,408n220,50,230,50,230,60,220,60,220,50,220,60,230,60,230,70,220,70,220,60,220,70,230,70,230,80,220,80,220,70,220,80,230,80,230,90,220,90,220,80,220,90,23ҠӠĮЍΠŠ͠Ӡƍ̠ةԠӠŽƠӠثԠӠ̠ӠثĠԠӠ̍ӠثԠΠӍӠϠŠӠӍҠЍΠҠӻӠҠҮŠǠӠҍȠŠӠثèҤҠث٠Š٠ōŠƠŠҭΠȭҭԍӠĠҠԠưƠŠîӠŠōƠŠSTRATION, BY JOHN ROGERS, FOR GENERAL USE. LAST MODIFIED 2/15/81 FOR VERSION 3H 'ESC' TO END"Bv"< PRESS THE SPACE BAR TO CONTINUE...>":I(0)Wv(16384)155Āov(16384)160960v16368,0::vK16336:N(K)(K)(K)(K)(K)(K)(K)(K)(K)(K)(K):v960:HO:vPw ** HIGH-RES-TEXT ** DEMON):AAZ4096B1:B2(AA256):AAAA256B2:B3(AA16):B4AA16B3RuB19B1B17duB29B2B27vuB39B3B37uB49B4B47uHEX$(B148)(B248)(B348)(B448)uu(CT$)38952u20(CT$)2uCT$uv22:" PRESSCLEAR HI RES SCREENYt"INPUT ADDRESS; DECIMAL OR $HEX: ";Z$:(Z$,1)"$"Z(Z$):920ttZ$(Z$,2):Z0:J(Z$)tI1J:X((Z$,I,1))48tX9XX7:X15ĺ"":910tZZX16(JI):ItZ$"TOP"ıtZ$(Z)@uB1$"":B2$"":B1(Z4096 HEX OR DECIMAL AND RETURNS DEXIMAL (Z AND Z$) AND HEX (HEX$)rs GOSUB 930 CONVERTS DECIMAL (Z) INTO HEX (HEX$)s GOSUB 950 PRINT CENTER ROUTINE (CT$)s GOSUB 960 END OF PAGE REOUTINEs GOSUB 970 BEEPt GOSUB 980 = END OF PAGE REOUTINE +":950:rCT$"I LEAVE IT TO YOU TO WRITE THE REST OF":950::CT$"THE DEMONSTRATION.":950::CT$"THE POSSIBILITIES ARE ENDLESS.":950::CT$"THE FUTURE IS YOURS.":950:980r10:CT$"GOOD LUCK":950:980:555r SUBROUTINES=s GOSUB 910 READS1.0":19:"-1.0"AqY$"SIN X ":I1(Y$):7I:1:(Y$,I,1):IgqI0200:I35,90((I25)60):Ipq980r5:CT$"YOU CAN DEFINE OTHER CHARACTER SETS,":950::CT$"USE BOTH HI RES SCREENS, AND SWITCH":950::CT$"BETWEEN THEM..... AND MUCH MORE.0::CT$"LABEL GRAPHS AND OTHER OBJECTS":950::CT$"ON THE HI RES SCREEN":950:980p2:15:"SINE WAVE":3:35,2035,160:35,90235,90pI18:35I25,8735I25,93:pI14:13:(16I50)7:2I1:Ip30,3035,30:30,15035,150q4:" (16336):eo980:7::CT$"THE CURRENT CHARACTER SET LOOKS LIKE":950:::I32127:" ";(I);::o980:10:" YOU CAN ALSO OVERPRINT CHARACTERS":10:ST164,17:4:I133:(95);:I::ST164,145Tp980:9:CT$"YOU CAN USE HIGH-RES-TEXT TO":95N",31,"FEB",28ZSPLAY, PRESS ANY ONE KEY AND HAVE PATIENCE. NOW PRESS A KEY TO CONT.";:Z$bL'LOOP$"ON"::5000zV'CH%1CH%6010010`'4000:2000:3000:5000:10070 N"MAR",31,"APR",30,"MAY",31,"JUN",30,"JUL",31,"AUG",31,"SEP",30,"OCT",31,"NOV",30,"DEC",31,"JA'9000:2000:3000::5000'::(9):"TERMINATE WITH 'RETURN'. TO CONTINUE, ENTER THE NUMBER OF MINUTES (1 - 60) DESIRED AS AN INTERVAL BETWEEN DISPLAYS AND PRESS RETURN. ";QQ$$'CH%(QQ$):CH%0ĉ::.'CH%1CH%6010010K8':"TO HALT DIE, PRESS ANY OTHER KEY.":" ";G$$G$"Y"ė:(11):(15):"THANK YOU"::" WHEN YOU TIRE OF THE DISPLAY, PRESS":"ANY KEY.":$G$"Y"9300$"SATELLITES PASSING BETWEEN JUPITER AND EARTH APPEAR IN BLACK."::"PRESS A KEY TO CONTINUE":Z$::SD$"D"TZ%TZ%1$ZTZ%24c$:(11):10)MO$;", ";DY%;", ";YR%:(10):HR%;":";:MN%10ĺ"0";$MN%;" ZONE ";:SD$"D"ĺTZ%1:10)"DAYLIGHT TIME (D)":9409$TZ%:10)"STANDARD TIME (S)" $:"DO I HAVE THIS RIGHT? IF SO, PRESS 'Y',OTHERWIS80^݌Hh  ݌   A D ? AEDE?HJ>h    `HJ>݌h Hh݌`葠葠ȔЖȔЖȠ?FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh    VY)'&Y)xꪽ)'     `Hh`V0^*^*>&` aI꽌ɪVɭŹz̘ՠ栠̺˥Šʠ̠éɠŠՐŖĠ跠Рᠤŗԝ̠ҠŠՐŦӮ踠ᠤ̗ŪӯشȠҠŠՐĠðŠփàŠ栌ՠȠϠŠԠٿŠōȠĠՠſĠĠԠӍԍD"$ՙİĠȘРŮåŹĠʲѪŪK.":"COPY IS COMPLETE."M"INSERT SYSTEM DISK TO REBOOT DOS.":7000T6X49168,0::"HIT RETURN WHEN READY.";A$:TD$"N"ė:"INSERT ";:2006600N:"NOW RECORDING THE NAME:"::N$::"ONTO THE NEW DISK."ZI130m X((N$,I,1))~2BUF116I,X<IFC2:200P6600d:"REMEMBER THAT THE NAME OF THE 'HELLO' FILE HAS NOT BEEN EMBEDDED IN THE DOS ONTHE NEW DIS, IT IS NECESSARY TO EMBED THE NEW VOLUME NUMBER INTO THE DOS TRACKS OFTHE COPY."cV(RWTS%24):"THE NEW VOLUME NUMBER IS:";V:"IT WILL NOW BE RECORDED."S1:T0:C1:200BUF235,V:C2:200S10:T1:C1:200BUF102,V:C2A"X115 STUFF$(X)#*94D$;"CLOSE ALPHA"?>[H WRITE SEQUENTIAL FILEkR WITH LOOPq\fD$;"OPEN ALPHA"pD$;"WRITE ALPHA"zX115STUFF$(X)D$;"CLOSE ALPHA"::::12:"PROGRAM TERMINATED":v (X SELECTS RECORD2 NUMBER IN FILE)8QD$;"OPEN ALPHA,L23"]X115vD$;"WRITE ALPHA,R"XSTUFF$(X)D$;"CLOSE ALPHA" READ SEQUENTIAL FILE WITH LOOPD$;"OPEN ALPHA" D$;"READ ALPH READ RANDOM FILE% WITH LOOP+C (X SELECTS RECORDY NUMBER IN FILE)_xD$;"OPEN ALPHA,L23"X115&D$;"READ ALPHA,R"X0STUFF$(X):DD$;"CLOSE ALPHA"N Xb WRITE RANDOM FILEl WITH LOOPȠӻԠԻҠŠΣĠңՠΠӠԠŠΠŠɠӍΠҠҠ̠خЍӠΠӠԠčΠ®Ѝ̠ɠŠӠӮЍĠˡЍЍӠӠԠĠӠčҠԠŠĮƠՠŠԧՠ̠ŠōԠλҠŠŠӠŠ̠ǠԠύŠԠĠɠӠήЍƠՠϠԠԠϠŠҠҍԠɠӠ6@r$Hfd6?eK~M6[]ĠĠŮ>d6?eK~M6o P a(ŠĠ)QO}]Ԡ٠ΠҠЮϮؠîӮ!}]Ġ٠Ġ®(}]Ġs έϩs`Hi h`0΅υ jLI@ @8@ @ @ @8L(!0(i(' 00 i /  -i`@I!Hh8LΥ f0L΍ύ`CODE6>+PTS,L1:PTS1,L2#H+E.****************************X. PRGEND=$1A5A L00Hh 8Lj`jjH)?hj)`΅υLP ee -i @@e @ @ @80vQ(KB):Q1287030&KB16,0@Q32128ČCODE:7030RAD,173: LDA^AD1,0nAD2,1216v:'XX(FULL)(LG):CLR:* PLOT POINTS+10000:15 +N0ı+L1(PTS):LV,L1 +L2(PTS1):LV1,L2*+PTS1,2554+0X SINGLESTEPb:" SINGLE STEP MODE"::"HIT SPACE BAR TO STEP THROUGH LIFE.":"HIT ANY OTHER KEY TO RETURN TO MENU."gQ(KB):Q1287015hKB16,0iQ160ılAD,169: LDAnAD1,255: #FFpAD2,234: NOP t1100:X,Y)126110# DELETE@LP(PTS)256(PTS1)2^LH(LP256):LLLP256LHtPTS,LL:PTS1,LHILPPTS22(I)X6400(I1)Y64006500I 6600dJILP1nJ,(J2)xJ2:X,Y611ߍ[`X`Lh PP``a`PPX` $X W%WS`R$S%W $`X Vɠ)Lɠ GY!PڭYULyX $(`LyYUX` G`[V a X`V a HX`V ahX` TNOT`?`>P H > Zh`L L 'Lh !Lh `PL iPS ɖɓɈɘwɆɍRɔɄQʐ ɕ7ɉ,[ X`Q~PP$(`Lhލ[Е 0ؽ`V a`P`X` Lh  PQ<=<i 6=i<i 8=iJZ[`YZ%YL Xߍ[Z``\ ɍ3ɀXQ `XP\Y`XHZPX[hMHX P P Jh`Hh Ʌ&Ɉ ɕɘ``%SW$RU` Lh Z8hh;_ ")D @ ) @ DFT *u,*ȱ8ȱeȱeeiiȑl $ lL `LZLLLc H8`?E Vk *f???0x E Hh D#-EEE8` D x D - x8`- 0ݩ ?ʥD EEE`   LDcpq` [` ~  Lh@(LH9LHH/Hh/ H -З( (& $8 H` *HVDP (ED Z $0x8x D- DD#HIHHHHhHH݌hHhHh݌H6 , TRY AGAIN:50 TO"::"255 ($FA TO $FF) WHEN IT IS SEARCHING.":1000r:6:"EXAMPLE OF HOW TO USE SOFTFIND:"::"TO FIND THE LINES IN WHICH 'SOFTFIND'":"IS USED IN THIS PROGRAM, ENTER:"v|:" & SOFTFIND "::"AND SOFTFIND WILL PRINT THE LINENNOT BE USED WITHIN"::"A PROGRAM.":1000^:6:"SOFTFIND IS WRITTEN TO USE ONLY ROM"::"APPLESOFT. TO USE IT WITH TAPE"::"APPLESOFT, POKE 879,27:POKE 880,37"::"OR IN THE MONITOR ENTER: 36F:1B 25":10008h:6:"SOFTFIND USES MEMORY LOCATIONS 2'"::"WILL NOT MATCH ANY STRING.":1000J:6:"HITTING A CONTROL-C AT ANY TIME DURING"::"THE SEARCH PROCESS WILL TERMINATE THE"::"SEARCH."::"WHEN SOFTFIND IS FINISHED, IT WILL DO":*T"A WARM START OF BASIC. THUS THE"::"AMPERSAND COMMAND CAOTES, DATA,"::"OR REM LINES).":10006:6:"IN A SEARCH STRING, AN EQUAL SIGN '='"::"HAS A SPECIAL MEANING. THE EQUAL SIGN"::"IS A WILD CARD WHICH WILL MATCH ANY"::"CHARACTER OR STRING OF CHARACTERS."(@:"NOTE, A SEARCH STRING ENDING IN '= THE LINE.":1000":6:14:"*** NOTE ***"::" SOFTFIND CANNOT SEARCH FOR OR FIND"::" APPLESOFT COMMANDS OR TOKENS.":::"SUCH COMMANDS INCLUDE: PRINT,HTAB,+,<"&,:"ETC. HOWEVER THESE STRINGS CAN BE FOUND"::"IN TEXT STRINGS,(WITHIN QU1000::6:"A 'LOCAL STRING' IS THE TEXT STRING"::"BETWEEN APPLESOFT COMMAND TOKENS."::"SOFTFIND WILL PRINT OUT ONLY THE FIRST"::"LOCAL STRING IN A LINE WHICH CONTAINS":"THE SEARCH STRING. THE SEARCH STRING"::"MAY APPEAR MORE THAN ONCE IN:"WHICH CONTAINS THE SEARCH STRING.":1000 :6:"THE SEARCH STRING IS ANY STRING OF"::"CHARACTERS ENTERED FROM THE KEYBOARD"::"USING THE STANDARD CONVENTIONS OF LINE"::"LENGTH, ESCAPE SEQUENCES, CONTROL-X, " :"AND ENDING IN .""THE CURSOR WILL APPEAR WITH NO PROMPT"::"INDICATING THAT SOFTFIND IS WAITING"::"FOR YOU TO ENTER THE SEARCH STRING."::"SOFTFIND WILL SEARCH THE CURRENT BASIC", :"PROGRAM, AND PRINT THE LINE NUMBER AND"::"THE FIRST LOCAL STRING IN EACH LINE":RY. TO LOAD"::"SOFTFIND AND SET THE AMPERSAND POINTER"::"TO SOFTFIND, ENTER:"n ::10:"BRUN SOFTFIND" (4);"BRUN SOFTFIND" 1000 :6:"TO USE SOFTFIND ENTER THE AMPERSAND"::"CHARACTER '&' FOLLOWED BY ." 1000 :6:AM WHICH WILL FIND CHARACTER STRINGS WITHIN AN APPLESOFT PROGRAM."R 1000 SOFTFIND WILL ALSO FIND THE STRING AND$ WHEN IT DOES NOT REFER TO A VARIABLE.Q :6::"SOFTFIND IS A MACHINE LANGUAGE PROGRAM"::"WHICH RUNS IN PAGE 3 OF MEMO, JULY 1891. c d::4:7:"*** ";::"SOFTFIND.DOC";::" ***":::9:"BY JOHN ROGERS 1981" x:3:"FOR PUBLIC NON COMMERCIAL USE ONLY"H 12:" THIS PROGRAM GIVES DOCUMENTATION ON HOW TO RUN ";::"SOFTFIND";::", A MACHINE LANGUAGE PROGR  : THIS PROGRAM PROVIDES DOCUMENTATION ON THE USE OF 'SOFTFIND', A MACHINE LANGUAGE PROGRAM WHICH FIND STRINGS EMBEDDED IN APPLESOFT PROGRAMS.  THE IDEA FOR THE PROGRAM AND THE ORIGINAL CODE WAS DEVELOPED BY JOHN ROGERS, MADISON WISCONSIN         ŠƠӠ٠ҠS]ŠĠΠ٠٠Š٠ή:]͠ĠàΠ٠ʮ®ӠŠ}]àˮA}]ĠҠӠΠҠĠҠ9}]ӮȠΠҠ͠ŠҧӠЮ]n]Ӡ͠ΠϠŠŠƠΠϠҠ","PR#1 IS IN EFFECT."R ?,?,?,"WE HOPE YOU WILL FIND THESE HINTS","USEFUL.",ENPAGE TERMINATOR STOP IF OUTPUT IS TO SCREEN PRINT FOUR BLANK LINES IF OUTPUT IS TO PRINTER X(55)253ĺ::::b::"PRESS ANY KEY TO CONTINUE":"PYOU HAVE DONE A PR#1","BEFORE RUNNING."0  PG ?,?,"NOTE ALSO THE SUBROUTINE BEGINNING AT","LINE 600. WHEN THE END OF A PAGE IS","REACHED, IT WAITS FOR A KEY PRESS IF","PR#0 IS IN EFFECT; AND CONTINUES AFTER","FOUR BLANK LINES WITHOUT STOPPING IF S ON THE SCREEN." ?," I FINALLY SETTLED ON THE BRUTE FORCE","SOLUTION REPRESENTED BY LINES 100-160.","I THINK THIS WILL WORK WITH ANY PRINTER."' "IT ALLOWS THE PROGRAM TO PRINT EITHER TO","THE SCREEN OR TO THE PRINTER, DEPEND-","ING ON WHETHER ?," IF YOU TRY OMITTING THE QUOTES, YOU","WILL DISCOVER WHY THEY ARE THERE."X PG ?,?," #4: NOTE ADDED IN PROOF:",?," I HAD A GREAT DEAL OF DIFFICULTY GET-","TING A PRINTER TO PRINT UNDER PROGRAM","COMMAND IN A 40 COLUMN FORMAT AS IT","PRINTYLh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fA$:A$(27)Ā ** DOCUMANTATION FOR SOFTFIND **, BY JOHN ROGERS, JULY 1981 , FOR PUBLIC USE. LAST MODIDIED JULY 1981.dAN HIT , TRY AGAIN:":460F935,96::935,76::::::1000:6:"I HOPE THIS EXPLAINS WELL ENOUGH HOW"::"TO USE ";::"SOFTFIND";::"."::::"GOOD LUCK"21:7:"<..HIT 'ESC' TO QUIT OR..>":7:"<.. ANY KEY TO CONTINUE..>"-C":1000450("NAME =";ANSWER$1ANT$:6:"TO SEARCH FOR ALL STRING VARIABLES"::"EQUIVALENT TO AN$, ENTER"::" & AN=$ ":::"TRY IT:" "]";A$:(A$,1)"&"ĺ"NOT QUITE!, ENTER AN AMPERSAND (I.E. &) AND THE":400,935,96::935,76::::::1000:6:"SOFTFIND SEARCHED FOR WHATEVER SEARCH"::"STRING YOU ENTERED. IF YOU SEARCHED FOR"::"'SOFTFIND' AS WAS SUGGESTED, THE OUTPUT"::"SWEPT ACCROSS YOUR SCREEN." :"TO STOP SOFTFIND ENTER CONTROL ` o )ghP0= @ܩҠȱ $ H Hȱ0  Lz ȱ ɃЃL !"# 180811:216,0."CLOSE PROG.LIST"G"DELETE PROG.LIST":::12:"THE DISK IS FULL"::6:"FOLLOW DIRECTIONS CAREFULLY":$:"IF YOU DO NOT FOLLOW DIRECTIONS YOU WILLLOSE THE PROG.LIST FILE"}.:"BE ADVISED TO WRITE THESE INSTR23X21:7:"<..HIT 'ESC' TO QUIT OR..>":7:"<.. ANY KEY TO CONTINUE..>"lA$:A$(27)Ār ** DOCUMANTATION FOR RELOADER **, BY JOHN ROGERS, JULY 1981 , FOR PUBLIC USE. LAST MODIDIED JULY 1981.dAF71, $FAC, AND $FE3 TO $XX. YOU CAN"::"SAVE THIS VERSION USING:"::"BSAVE RELOADER/XX,A$F00,L$FC.":1000:6:"I HOPE RELOADER GIVES YOU CAREFREE"::"RELOCATION OF YOU PROGAMS TO HIMEM.":::"GOOD LUCK!":::::"RELOADER";::" BY JOHN ROGERS"ONS $FA TO"::"$FF, (250 TO 255) WHEN RELOCATING THE"::"PROGRAM.":1000:6:"RELOADER ASSUMES THE OBJECT PROGRAM"::"IS ASSEMBLED TO START AT $1000. TO"::"RELOCATE A PROGRAM BEGINING AT $XX00,":k"BLOAD RELOADER,A$F00, AND SET BYTES"::"$RESS TO ESCAPE"7lA$:A$(27)ĺ:"GOODBYE!":?v:IA(K)A(K)940%A(K)0890/"+";?A(K)1960NA(K);"*";X"X";eK2990s"^";K1;{Z0KA(1)01070A(1)01050"+";A(K);$."-";8A(1)A(1)B1040LNA(J)A(J)XA(J1)XX1%J6A(K)A(K)C=KNA(M)A(M)CV ,p  , PRINT POLYNOMIAL:x , Z1*M110404KM21>A(K)01000HZ0920RA(K)1870\"-";f(A(K))1960p940z"-"; MKK& ,30 , SCALE COEFFICIENTS:;: ,DDC1TNKM111_XCCKpbA(K)CA(K)wlKv ,  , COMPUTE COEFFICIENTS OF EXPANDED POLYNOMIAL: ,ULM1K1M1UU1XUJM1K1*****************************7 Y(5X7)((2X3)3)]  , *****************************i A(K)Yt XX1{ K  ,  , COMPUTE FORWARD DIFFERENCES:  , M1 K2N JNK1 A(J)A(J)A(J1) J A(K)0540----------------------------% N5K  , -----------------------------S  , " , DIMENSION ARRAY A TO HAVE AT LEAST N ELEMENTS: , , 6A(15) @ , J , SAMPLE POLYNOMIAL AT N POINTS: T , ^L(N2) hXL rK1N | , Y A TO BE MAXIMUM ALLOWABLE PRECISION.. ,o , SET N TO 1 MORE THAN MAXIMUM ALLOWABLE DEGREE OF RESULT: , (INCREASE IF INSUFFICIENT; DECREASE IF OVERFLOW, EXCESSIVE , ROUNDOFF, OR EXCESSIVE TIME). N MUST BE AT LEAST 2. , , -E, BYTE MAGAZINE, OCTOBER 1980.' ,` , TO USE, REPLACE THE RIGHT SIDE OF THE ASSIGNMENT , "LET Y =..." NEAR THE BEGINNING OF THE PROGRAM WITH , THE DESIRED UNEXPANDED POLYNOMIAL IN X, THEM RUN. ,& , DECLARE X, Y, C, AND ARRAWITH LEADING COMMAS ARE RETAINED,b P , AND PROVIDED ALL DELETIONS, INSERTIONS AND MODIFICATIONS Z , ARE INDICATED BY REMARKS WITHOUT LEADING COMMAS. d , n , WRITE FOR INFO ABOUT MORE POWERFUL SYMBOLIC MATH PROGRAMS. x ,  , REFERENC/ , SIMPLE POLYNOMIAL EXPANSION PROGRAM.7 ,f , COPYRIGHT 1980 BY THE SOFT WAREHOUSE,( , BOX 11174, HONOLULU, HAWAII 96828.2 ,< , PERMISSION HEREBY GRANTED TO FREELY MODIFY, DUPLICATE, AND! F , USE, PROVIDED ALL REMARKS    ĠĠàĠĠĠĠ )[? @p(ºàŠ)[4]ŠŮ$>oa(ӠŠçϠ)1Hoa(ӠŠŠҠϠŮ)R`.?6@r$\`.?q.?/r`²$a()a()[9]ŠŠŠϠ٠ӠϠӮȮ N@"r\\@p()\ \[@B;@rrp(ΠŸ)UVW;@rde<@*rrY dHeM6[`@p( Ĺ6@r$d6?e[q`²$" a()[]Ԡֱ̠֠qֲqa@*ֱ#ֱrE@*ֲ#ֲrG[ q±]ԠӠ±²d:e8rd;e8r M60!d$ea()Gq\a()G(ԠӠ±²"a()q\a()Gq,q.?r\a()G#6q`²$, @a()GJU̱VWTqq.?̱r^`$rhq?qr`$|qq@d2edea@GY̱d2e `.?\ q\<`$.a()a()a(ˠ)FE(Ҡ)F±q²qa()\ `˱Ա$@q`8Աr$qq_`@9()%\Qq±]αc`@9()%\_ (\_2a(Ԡ)_<]įŠFdePdeZd e dMnq.? rxq.?r[] S(ԠϠҠٯΩ)&@ `@9()$`@9()$_²q7S(ԠϠҠٯΩ)&@`@9()$`@:()$\q;@r`@*r9()%q<UVWq<@*#rr` %q`$(`6±$2±q²²q_ ²q² Y`±²²$2`;@r$(\̧ϠԠũ)Eca(ϠӠԠˬ)a(Ӡ٠ŠΧٮ)"ccS(ˬ)'' q\<ca(Ӡ)FG`$a(Ϡҩ)<cS(٠Ԭԩ)&@`@9()$±q6(LS(Ǡˬ)'''VS(Ǡˬ)'˱'Ա``˱$Lj_Wtca(ΠĠ٠ӠԬԩҠϠŠԠϠ)V~a(ˠΠةĠ٠)ca(Ġƽ3S(Ԡ)'qdede"$S(РŠàٯΩ)&@ .`@9()$8`@9()$_$>8S(٠ŠҠٯΩ)&@`@9()$t`@9()$L_8IBd2e?oPa(Ԡ٠٠ϠԠ)d2ed"e8dJe0dKe de0de ]Ԡ͠[ ]\DN@"rq.?r.?r @p()]̠ĠΠ3N@"r@p()N@" rC@"r4qqq] ȠϠԠŠ)c-a(ƠˠӠ̠ϠԠҠծ)c\4]Π͠&\\_]ŠŠ:a@E(ң)q[]ΠҠΠBa@E(ң)q[]ΠҠƠԠϠĠҠEqq˱q"Աq]ˠĠҠ]]ŠŠŠ oP a(ˠР)c!P a(٠Ġ®)c$Pa(Ġ٠ʮ®)cPa(Š)c-a(ϠҠӠ٠ŠĠӠŠΠӠ<]F]ŠPd6?eKM6Z]d]ӠԠn]=]ӠԠ٠ŠĠΠӠή4]ӠӠŠҠƠӠ̰ ]Π4]ˠӠ٠٠ΠҠ{]ΠҠîӠ͠ӠŠӠƠˬҠˠԠŠϠ.(]ҠҠҮW2]            9,0,133,254!169,138,133,255,162,150,160,0,177,254,42,24,106,145,254,230,254,208,6,230,255,228,255,240,3,76,70,3,104,168,104,170,104,96G^:180 h:320:1420$ r38400* | 56,72,132,251,160,0,201,32,176,2,105,192,201,96,176,2,105,128,201,128,176,2,105,64,145,252,230 !252,208,2,230,253,104,164,251,96,0,0,0,0,169,160,96,104,168,104,166,223,154,72,152,72,96,72,138,72,152,72,16$(C))160Ĺ36,39:(DE$(C),161,40):LCLC1^,(DE$(C))200Ĺ36,39:(DE$(C),201,40):LCLC1d6q@"PR#0"}J" 40N"T::"IF MORE, INSERT NEW DISK AND HIT RETURN."::"-OR- HIT ANY OTHER KEY TO RETURN TO MENU";:16368,0:A$:A$(13)1640 C2C1X%LC55ĺ(12):LC0=T$(C);" ";FT$(C);^36,39:(DE$(C),40):LCLC1(DE$(C))40Ĺ36,39:(DE$(C),41,40):LCLC1(DE$(C))80Ĺ36,39:(DE$(C),81,40):LCLC1(DE$(C))120Ĺ36,39:(DE$(C),121,40):LCLC1*"(DE03008:"HARD COPY VIA PARALLEL CARD IN SLOT #1":m"TYPE ANY COMMENTS FOR TOP LINE OF PAGE ? ";CO$3:958:"TURN ON PRINTER AND SET TO TOP OF PAGE THEN HIT ";:"";A$"PR#1"" 80N"LC0CO$:" ":LCL ANY OTHER KEY WILL REVERSE STATUS ? ";:16368,0:A$:A$(13)1370^<CG1yFSN(C)1SN(C)2:1370PSN(C)1Z:_ED11390d::"THATS ALL - HIT ";::16368,0:"";A$nCG0260x870CG0260X1:1290DN$(C)D$:CG1X 958:TN$(C)T$(C):F2$(C)FT$(C):SN(C)SP(C)::ED11370(F2$(C),1)"T"(F2$(C),2,1)"T"1370SN(C)1ĺ"WILL NOT RUN FROM SELECTION LIST.":1330("WILL RUN FROM SELECTION LIST."U2:" IF CORRECT, NEW CHARECTERS FOR PARTS YOUWANT TO CHANGE OR ADD.(6 LINES MAXIMUM)"`ED0:CG0:XNX:C1XNy14:958:ED11290FT$(C);" ";T$(C):15:DE$(C)15:"";D$:D$""DN$(C)DE$(C):1290D$"R"260D$"E"CG0260D$"E"ED" GIVES NO CHANGE TO DESCRIPTION":"'E' & ENDS CHANGES.""'R' & RETURN TO MENU WITHOUT MAKING ANY CHANGES TO FILE."E"OR YOU MAY USE THE CURSOR MOVE KEYS TO COPY PARTS THAT YOU DO NOT WANT CHANGED AND TYPE INOG MANAGEMENT - EDIT' PROGRAM. INSERT THE DISK THAT THE PROG.LIST HAS BEEN SAVED ON AND THEN 'RUN'. WHEN THE MENU APPEARS, CHANGE THE DISK BACK AND ANSWER '1'"t38400:~X0300:"PROGRAMS WILL BE DISPLAYED ONE BY ONE."I:IST"<L::16368,0:"INSERT NEW DISK & HIT ";A$JVDF1:880`:"2. TRANSFER ONE OF YOUR PROGRAMS FROM THE DISK THAT IS FULL TO ANOTHER DISK THEN DELETE THAT PROGRAM TO MAKE ROOM FOR THE PROG.LIST FILE"j:"3. LOAD THE 'CATALUCTIONS DOWN IF YOU CANNOT REMEMBER THEM, FOR AFTER THE FIRST STEP YOU MAY NO LONGER HAVE INSTRUCTIONS TO FOLLOW."8::8:"HIT TO CONTINUE ";A$:B:"1. INSERT A DISK THAT IS NOT FULL AND HAS ROOM FOR THE FILE NAMED PROG.Lڃ#"##$#$"  !!"     $"$! " # !   "!"  !!"""##$%%    ""## #&%"!$ "Y KEY TO CONTINUE..>")A$:A$(27)Ā/ ** DOCUMANTATION FOR LISAFIND **, BY JOHN ROGERS, JULY 1981 , FOR PUBLIC USE. LAST MODIDIED JULY 1981.dA IS SEARCHING.":1000}:6:"I HOPE THIS EXPLAINS WELL ENOUGH HOW"::"TO USE ";::"LISAFIND";::"."::::"GOOD LUCK"::"LISAFIND AND LISAFIND.DOC"::"BY JOHN ROGERS, JULY 1981":2321:7:"<..HIT 'ESC' TO QUIT OR..>":7:"<.. ANTHE PROGRAM WHEN"::"IT IS ASSEMBLED.":1000J:6:"HITTING A CONTROL-C AT ANY TIME DURING"::"THE SEARCH PROCESS WILL TERMINATE THE"::"SEARCH AND RETURN TO LISA.":1000h:6:"LISAFIND USES MEMORY LOCATIONS 247 TO"::"255 ($F7 TO $FF) WHEN ITLISAFIND CANNOT SEARCH FOR MNEMONICS"::"SUCH AS LDA,JSR,ETC. LISAFIND WILL"::"ONLY SEARCH IN THE LABEL,OPERAND AND"::"COMMENT FIELD.":1000-6:6:"LISAFIND WILL WORK WITH ANY LISA"::"PROGRAM AS LONG AS THE SYMBOL TABLE"::"DOES NOT WRITE OVER E SEARCH STRING.":1000 :6:"THE SEARCH STRING IS ANY STRING OF"::"CHARACTERS ENTERED FROM THE KEYBOARD"::"USING THE STANDARD CONVENTIONS OF LINE"::"LENGTH, ESCAPE SEQUENCES, CONTROL-X, " :"AND ENDING IN ." 1000::6,:"ԢŠӠ̠ŠŠǠӠҠԠӠϠŠŠҲ٠ҠŠȠˠҠŠԮ̠İǍ׍ \Z/../$$$# ""#!!       ;A$ f:10:15::"WORKING":+p1020Bz"OPEN PROG.LIST"["DELETE PROG.LIST"r"OPEN PROG.LIST""WRITE PROG.LIST"XNC1XNTN$(C)F2$(C):DN$(C):SN(C)"CLOSE PROG.LIST"216,0DF11120s4:16368,0:"SHOULD USER BE ABLE TO RUN THIS PROGRAM FROM SELECTION LIST ? Y/N ";A$:(A$,1)"Y"SN(C)2:840>SN(C)1HR:"EITHER THERE ARE NO NEW FILES OR YOU HAVE JUST ENTERED THE LAST DESCRIPTION."\:16368,0:" HIT "CRIPTIONS AS NEEDED. DO NOT EXCEED 6 LINES OF DESCRIPTION."IC1XN[SN(C)0840|5:958:F2$(C);" ";TN$(C) "DESCRIPTION FOR THIS FILE--":16368,0:"";DN$(C) DN$(C)""DN$(C)"--"*(F2$(C),1)"T"(F2$(C),2,1)"T"830$(C)730?TN$(XN)(CA$(CA),8,30):F2$(XN)(CA$(CA),7)SCACA1:XNXN1pCA$(CA)""XNXN1:740y660TN$(XN)(CA$(CA),8,30):F2$(XN)FT$(C):DN$(XN)DE$(C):SN(XN)SP(C):700=:"NEW FILES WILL BE DISPLAYED ONE BY ONE, INSERT DES08)256(107)7)EN(252)(253)256@LE38:AL57:AH138I&IN3T0PO,LEa:PO1,ALnDPO2,AH{NPOPOINXALALLEbAL255AHAH1:ALAL256lAH256ALEN1640v560821XN1:CA0C1X(CA$(CA),8,30)T"CLOSE PROG.LIST"$216,0:2811:ER1J"CLOSE PROG.LIST"W216,0:y::8:"UPDATE PROGRAM LIST"10:15::"WORKING":252,0:253,13854,0:55,3:56,40:57,3:1002"CATALOG""PR#0""IN#0"PO(1OGRAMS IN PROGRAM LIST AT THIS TIME":j,20:16368,0:"SELECTION BY NUMBER ? ";A$:A(A$):A1A43006A450,1150,1420,1650@420JER0T"OPEN PROG.LIST"^"READ PROG.LIST"hXrC1X|T$(C):FT$(C):DE$(C):SP(C)M MUST HAVE 48K AND DOS 3.2 BOOTED.IF YOUR DISK HAS MORE THAN 70 FILES DO NOT USE THIS PROGRAM." 9:"<1> UPDATE PROGRAM LIST."::"<2> CHANGE OR ADD DESCRIPTIONS."::"<3> PRINT HARDCOPY CATALOG." :"<4> EXIT PROGRAM."&"ER1Ģ18::"NO PRISH TO USE (OR ARE CURRENTLY USING) THE 'CATALOG MANAGEMENT' PROGRAM ON. THEN HIT -OR- TYPE 'Q' & TO QUIT ";A$ A$"Q"1650 320d ::"CATALOG MANAGEMENT - EDIT MENU "::"SYSTELABLE ON THE DISK, AND ALSOPROVIDE A EASY WAY TO RUN OR LOAD A"b "PROGRAM BY NUMBER SELECTION" :"SYSTEM MUST HAVE 48K AND DOS 3.2 BOOTED.PROGRAM ALLOWS ONLY UP TO 70 PROGRAMS PER DISK TO BE ENTERED." :16368,0:" INSERT THE DISK YOU Wt "THIS PROGRAM IS ONE OF A PAIR. IT WILL CREATE A TEXT FILE FOR USE WITH THE 'CATALOG MANAGEMENT' PROGRAM"? "'CATALOG MANAGEMENT' IS INTENDED TO BE USED AS A HELLO PROGRAM WHICH WILL ALLOWTHE USER TO READ A DESCRIPTION OF THE PROGRAMS AVAI:IN0:AL0:AH0:LE0! nCA$(70)8 xD$"": CONTROL DK "NOMONI,C,O"d X768863:V:X,V:p X0:: T$(70),FT$(70),DE$(70),BA(70),BL(70),SP(70) TN$(70),F2$(70),DN$(70),BN(70),B2(70),SN(70) :"CATALOG MANAGEMENT - EDIT PROGRAM": ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z35327 dPO0:EN0           42    #ΠҠĮ٠ΠӍĠ ΨԩΨũĨҩ٠ΠӮŠĮŠƠŠ٠ɮͮӮ̮Š ӠˠϠˠ٠͠Ƞ٠ӠҮΠ ӠҠӠϠîŠΠҠήĮàҠӠҠŠȭӭԯ͍Π ΠŠҠԠҠŠȠӮˠŠӠΠƠˠӠӠ٠Πɮנ٠ȭӭԯ ӠԠΠŠɭӠήŠϯҠӮ٠ΠӮԯԠԠŠĠ٠ϯӠ͠ϠŠΠɍҠנӠӠΠɭӠȠ ŠӠҮϯΠҠŠȭӭԯ͠ϠԠԠΠŠɭӠή٠ΠӮ1000 :6:"THE CURSOR WILL APPEAR WITH NO PROMPT"::"INDICATING THAT LISAFIND IS WAITING"::"FOR YOU TO ENTER THE SEARCH STRING."::"LISAFIND WILL SEARCH THE CURRENT LISA" :"PROGRAM, AND PRINT THE LINE NUMBER AND"::"LINE WHICH CONTAINS THHICH RUNS AT $6E00 IN MEMORY. TO LOAD"::"LISAFIND AND SET THE CONTROL-P POINTER"::"TO LISAFIND, ENTER:" ::10:" BRUN LISAFIND"::"FROM WITHIN LISA." 1000 :6:"TO USE LISAFIND ENTER CONTROL-P"::"FOLLOWED BY ." ::"LISAFIND";::", A MACHINE LANGUAGE PROGRAM WHICH WILL FIND CHARACTER STRINGS WITHIN LISA DFT :"LISAFIND WILL ONLY RUN WITH A LISA":"ASSEMBLER FROM PROGRAMMA." 1000k :6::"LISAFIND IS A MACHINE LANGUAGE PROGRAM"::"WCONSIN, JULY 1891, ALTHOUGH I REALIZE LISA 3.3 HAS SOME KIND OF FIND FUNCTION. d::4:7:"*** ";::"LISAFIND.DOC";::" ***":::9:"BY JOHN ROGERS 1981" x:11:"FOR PUBLIC USE"r 12:" THIS PROGRAM GIVES DOCUMENTATION ON HOW TO RUN ";  : THIS PROGRAM PROVIDES DOCUMENTATION ON THE USE OF 'LISAFIND', A MACHINE LANGUAGE PROGRAM WHICH FIND STRINGS EMBEDDED IN LISA ASSEMBLY PROGRAMS.N  THE IDEA FOR THE PROGRAM AND THE ORIGINAL CODE WAS DEVELOPED BY JOHN ROGERS, MADISON WIS     jx Xʽ(ȱieHeHst8st8hh_ ")D @ ) a,*ȱ8ȱeȱeeiiȑl $ l  .,z#Xñ ԠҲ͠Ԡ Įà Ġ ǮԠ ԠҠҠҠ ̠Ӡ ӠȠ Š" Үà Ҡ ǠԠԠ ̮Ƞ ˠР Р Ġ ĮàĠҠ ԠҠҠӠ Įà Ġ!Š"̮Š̮Ҡ̮Π̮Π ԯӠ ΠˠŠӠנ٠Πî Ϡ ŠĠ:ӠҠϯȭӭԯXñ]      27              i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&     OPEN"P$D$"POSITION"+R$D$"READ">U$D$"UNLOCK"PW$D$"WRITE"aL$D$"LOCK"uYCE958:CL868CH36:CV37CY768777DA:CY,DA:: 104,168,104,166,223,154,72,152,72,96SD$;"EXEC";TN$(A)XT FILE 'PROG.LIST' IS EITHER"::"MISSING OR HAS BEEN RENDERED UNREADABLE.":m!N:"UNUSAL ERROR- PANIC":` SET UP ROUTINE:D$(4)A$D$"APPEND"B$D$"BLOAD"BS$D$"BSAVE"C$D$"CLOSE"DE$D$"DELETE"O$D$"2$(A),2,1)"T"CN(A)263000%600w******************** * LOAD PROGRAM SEL.* ********************(F2$(A),2,1)"B"ĺD$;"BLOAD";TN$(A):D$;"LOAD";TN$(A)N N216,0:768::"PROGRAM TERMINATED"::(222)5(22)6ĺ"TE00e" ADVANCE TO NEXT DESCRIPTION RETURN TO SELECTION LIST"::10:"WHICH ? ";:A$kzA$(3)ĀA$"A"AA1:520A$"S"200A$"R"CN(A)2(F2$(A),2,1)"T"400A$"L"(F2$(A),2,1)"T"1000A$"E"(FLE0ĺ(DN$(A),LE)FN:CN(A)1Ğ:"PROGRAM NOT INTEDED TO BE RUN"dSAIQĺ:16:"LAST ENTRY"jTvX17:CEb(F2$(A),2,1)"T"650v" LOAD THIS PROGRAM RUN THIS PROGRAM":900CN(A)2ĺ" EXEC THIS FILE":9 *********************$ A0A03 AIQAIQP :F2$(A);" ";TN$(A):V 5t ;:LE(DN$(A)):PO1:QT39 <LE0590 =(DN$(A),POQT1,1)" "LE41ĺ(DN$(A),PO,QT):LELEQT:POPOQT:575 >QTQT1:573 ?LE41577 @QT39:573AJXIQY ********************* * RUN PROG. SELECTED* ********************* (F2$(A),2,1)"B"ĺD$;"BRUN";TN$(A): (F2$(A),2,1)"T"ĺD$;"EXEC";TN$(A): D$;"RUN";TN$(A) ********************* *PRINT DESC. ROUTINE* E? OR # OF PROGRAM TO RUN? OR 'R' TO RESTART LIST? ";:"";A$v "A$"C"XIQė:250 ,A$"R"XIQ:210 6(A$,1)"D"A((A$,2)):A1AX500 @(A$,1)":"(A$,1)"/"A(A$):A0AXCN(A)2330 E280 INTENDED TO BE RUN." < X0IQ:X;:CN(X)1Ė4:"*";K 6:TN$(X)] (CV)16275c ********************* * SELECTION INPUT * **********************^ 19:CE:"ENTER 'D' FOLLOWED BY # FOR DESCRIPTION?OR 'C' FOR NEXT PAG******************* x200003 O$;"PROG.LIST"S R$;"PROG.LIST":IQ:IQIQ1} X0IQ:TN$(X),F2$(X),DN$(X),CN(X): C$;"PROG.LIST":216,0 ********************* * SELECTION LIST * ********************* :"NOTE- * NOT 60000:5:"ADAM AND EVE USER'S GROUP DISK, VOL 2":10:"MADISON WISCONSIN":8:"COMPILED BY JOHN ROGERS, SEPTEMBER 1981"2TN$(70),F2$(70),DN$(70),CN(70)d13:16:"WORKING" s********************* * READ FILE * **     ,150,60,140,999,070,0,80,0,80,10,70,10,70,0,70,10,80,10,80,20,70,20,70,10,70,20,80,20,80,30,70,30,70,20,70,30,80,30,80,40,70,40,70,30,70,40,80,40,80,50,70,50,70,40F70,50,80,50,80,60,70,60,70,50,70,60,80,60,80,70,70,70,70,60,70,70,80,70,80,80,70,0,70,70,70,80,60,80,60,70,60,80,70,80,70,90,60,90,60,80,60,90,70,90,70,100,60,100,60,9060,100,70,100,70,110,60,110,60,100,60,110,70,110,70,120,60,120,60,110,60,120,70,120,70,130,60,130,60,120,60,130,70,130,70,140,60,140,60,130,60,140,70,140,70,150,60,60,140,60,150,50,150,50,140,999,060,0,70,0,70,10,60,10,60,0,60,10,70,10,70,20,60,20,60,10,60,20,70,20,70,30,60,30,60,20,60,30,70,30,70,40,60,40,60,30,60,40,70,40,70,50,60,50,60,40W60,50,70,50,70,60,60,60,60,50,60,60,70,60,70,70,60,70,60,60,60,7,50,70,50,60,50,70,60,70,60,80,50,80,50,70,50,80,60,80,60,90,50,90,50,80,50,90,60,90,60,100,50,100,50,90"50,100,60,100,60,110,50,110,50,100,50,110,60,110,60,120,50,120,50,110,50,120,60,120,60,130,50,130,50,120,50,130,60,130,60,140,50,140,50,130,50,140140,40,130,40,140,50,140,50,150,40,150,40,140,999,050,0,60,0,60,10,50,10,50,0,50,10,60,10,60,20,50,20,50,10,50,20,60,20,60,30,50,30,50,20,50,30,60,30,60,40,50,40,50,30,50,40,60,40,60,50,50,50,50,40h50,50,60,50,60,60,50,60,50,50,50,60,60,60,60,7040,60,50,60,50,70,40,70,40,60,40,70,50,70,50,80,40,80,40,70,40,80,50,80,50,90,40,90,40,80,40,90,50,90,50,100,40,100,40,90340,100,50,100,50,110,40,110,40,100,40,110,50,110,50,120,40,120,40,110,40,120,50,120,50,130,40,130,40,120,40,130,50,130,50,140,40,40,130,40,140,30,140,30,130,30,140,40,140,40,150,30,150,30,140,999,040,0,50,0,50,10,40,10,40,0,40,10,50,10,50,20,40,20,40,10,40,20,50,20,50,30,40,30,40,20,40,30,50,30,50,40,40,40,40,30,40,40,50,40,50,50,40,50,40,40y40,50,50,50,50,60,40,60,40,50,0,60,30,60,30,50,30,60,40,60,40,70,30,70,30,60,30,70,40,70,40,80,30,80,30,70,30,80,40,80,40,90,30,90,30,80,30,90,40,90,40,100,30,100,30,90D30,100,40,100,40,110,30,110,30,100,30,110,40,110,40,120,30,120,30,110,30,120,40,120,40,130,30,130,30,120,30,130,30,20,120,20,130,30,130,30,140,20,140,20,130,20,140,30,140,30,150,20,150,20,140,999,030,0,40,0,40,10,30,10,30,0,30,10,40,10,40,20,30,20,30,10,30,20,40,20,40,30,30,30,30,20,30,30,40,30,40,40,30,40,30,30,30,40,40,40,40,50,30,50,30,4030,50,40,50,4 20,50,30,50,30,60,20,60,20,50,20,60,30,60,30,70,20,70,20,60,20,70,30,70,30,80,20,80,20,70,20,80,30,80,30,90,20,90,20,80,20,90,30,90,30,100,20,100,20,90U20,100,30,100,30,110,20,110,20,100,20,110,30,110,30,120,20,120,20,110,20,120,30,120,30,130,20,10,120,20,130,10,130,10,120,10,130,20,130,20,140,10,140,10,130,10,140,20,140,20,150,10,150,10,140,999,0 20,0,30,0,30,10,20,10,20,0,20,10,30,10,30,20,20,20,20,10,20,20,30,20,30,30,20,30,20,20,20,30,30,30,30,40,20,40,20,30,20,40,30,40,30,50,20,50,20,40,50,10,50,10,40 10,50,20,50,20,60,10,60,10,50,10,60,20,60,20,70,10,70,10,60,10,70,20,70,20,80,10,80,10,70,10,80,20,80,20,90,10,90,10,80,10,90,20,90,20,100,10,100,10,90f 10,100,20,100,20,110,10,110,10,100,10,110,20,110,20,120,10,120,10,110,10,120,20,120,0,120,0,110,0,120,10,120,10,130,0,130,0,120,0,130,10,130,10,140,0,140,0,130,0,140,10,140,10,150,0,150,0,140,999,0 10,0,20,0,20,10,10,10,10,0,10,10,20,10,20,20,10,20,10,10,10,20,20,20,20,30,10,30,10,20,10,30,20,30,20,40,10,40,10,30,10,40,20,40,20,30,0,20,0,30,10,30,10,40,0,40,0,30,0,40,10,40,10,50,0,50,0,40 0,50,10,50,10,60,0,60,0,50,0,60,10,60,10,70,0,70,0,60,0,70,10,70,10,80,0,80,0,70,0,80,10,80,10,90,0,90,0,80,0,90,10,90,10,100,0,100,0,90w 0,100,10,100,10,110,0,110,0,100,0,110,10,110,18  5000KXX((14)27)10:YY((75)16)10:DX(60)20:DY(3)20Td:7bnX,Y:X,YpxR02000yX,YX999110XXXYYYXXDX:YYDYX,Y> 0,0,10,0,10,10,0,10,0,0,0,10,10,10,10,20,0,20,0,10,0,20,10,20,10,30,0                     WINDOW AGAIN AND CHECK5 FOR ANOTHER ENTRY;H34,20:^:"ANOTHER? ";S$t(S$,1)"Y"1080  PROGRAM ENDING ROUTINE : 11*" NOW THAT YOU HAVE HAD SOME"4"PRACTICE, YOU CAN TRY OUT YOUR OWN">"ARRAAGAIN.  A((X1)6)8R0&B(Y1)2860Q: FLASH VALUE IN ARRAYiD AND THEN LEAVE ITN WITH THE NEW VALUE.XbB:Al:I$v DELAY LOOPW13500:Z2ĞB:A:I$: SET TEXTT SHOW ARRAY VALUES2^ AND DATA CONTENTSHh IN TEXT WINDOW.NrT|`"A$(";hX;r",";zY;",";Z;") = ";I$Z1R0Z2R2 CALCULATE HORIZONTAL AND VERTICAL POSITIONS ";Z $ AND HERE IS A THIRD? WAY TO CATCH ERRORS!E_Z0Z3Z(Z)ī1570"Z MUST BE A WHOLE NUMBER, EITHER 1 OR 2"1490","ENTER THE CHARACTER YOU WOULD LIKE TO"6"PUT IN THAT LOCATION ";I$@A$(X,Y,Z)I$JHAN 4":1200Z&d ENTER Y VALUE,nHx"ENTER THE Y VALUE ";YNh HERE IS ANOTHER WAY~ TO CATCH ERRORSY1Y4Y(Y)ĺ"Y MUST BE A WHOLE NUMBER FROM 1 TO 4":1400  ENTER Z VALUE"ENTER THE Z VALUE NUMBER!"12002 CHECK IF NUMBER ISI  WITHIN RANGE AND^ PRINT AN ERRORr MESSAGE IF IT( IS ILLEGAL.2<X1X4ī1400FX1ĺ"YOU MUST ENTER A NUMBER GREATER THAN 0":1200 PX4ĺ"YOU MUST ENTER A NUMBER LESS TOORDINATES"V+` SET UP A ROUTINE TOGj TRAP AN ILLEGAL ENTRYbt AND PRINT A MESSAGE.i~ t2250z ENTER X VALUE"ENTER THE X VALUE ";X CHECK FOR WHOLE NO.X(X)ī1340 "X MUST BE A WHOLEIN ARRAY.BA(Z2Ğ7A$(X,Y,Z)=DZKYRXXn SET TEXT WINDOW TO THE BOTTOM OF THE SCREEN AND$ CLEAR IT..834,18:B INTERACTIVE ROUTINE L"ENTER LOCATION TO CHANGE BY CEEN POSITION OF$ POINT IN ARRAY* >*A((X1)6)8RD4]> CALCULATE VERTICALvH SCREEN POSITION OFR POINT IN ARRAY\fB(Y1)28pz SET SCREEN POSITIONS, CHECK FOR DIMENSION ON Z, AND PRINT  VALUE 4,4,2)", "INVERSE COLORS ARE THE SECOND"@ "VALUE FOR Z "a  PRINT ARRAY ON SCREEN l X14w Y14 Z12   DECIDE WHERE Z MUST  GO ON SCREEN  Z1R0 Z2R2   CALCULATE HORIZONTAL  SCR   CHECK FOR END OF7  ALPHABET. IF FOUND,R  START USING NUMBERS.X g &R91R49z 0A$(X,Y,Z)(R) :X DY NZ X PRINT SCREEN HEADER b: l"THIS IS AN ARRAY NAMED A$(X,Y,Z)" v"ITS DIMENSIONS ARE: DIM A$( T IN MEMORY USING+ ^ LETTERS OF THEF h ALPHABET AND NUMBERSL r[ |A$(4,4,2)a {  USE DECIMAL NUMBERS  FOR ASCII CODES.  (SEE PAGES 138,139  IN APPLESOFT MANUAL)  R64 Z12 Y14 X14 RR1"BY DOING."< :" THE IMPORTANT THING TO REMEMBER IS"d "THAT IN AN ARRAY, IT TAKES ALL ";s :"THREE"y  "NUMBERS TO FIND "; :"ONE"; ":" MEMORY LOCATION." ,:: 6"HIT RETURN TO CONTINUE ";B$ @ J SET UP ARRAY USING A CONTROL J* BEFORE AND AFTERC THE REMARK ITSELF.I u " ARRAYS ARE SOMETIMES DIFFICULT TO" "VISUALIZE. THIS PROGRAM WILL GIVE YOU" "PRACTICE ON A THREE DIMENSIONAL ARRAY." "AFTER ALL, THE BEST WAY TO LEARN IS"  PRACTICE ARRAY + COPYWRITE BY= JOHN FALUDIS( 8 APRIL, 1980 k2 7255 STEWART ROAD< DANE, WISCONSIN, 53529F (608)-849-7248 PZ9d INTRODUCTION nx REMARKS CAN "FLOAT" FREE IN A REM BY       PLEASE REENTER.";:" ";YR%:9330+w$6300|$6100:MF$"OFF"ė:(12):" ENTER THE FIRST THREE LETTERS OF THE MONTH ";MO$:9340$6200:DF$"ON"ė:(12):" INVALID DAY OF THE MONTH PLEASE REENTER.";:" ";DY%:OMMAS. PRESS 'RETURN' WHEN FINISHED WITH THIS AND ALL OTHER ENTRIES."}c$:"USE THE FIRST THREE LETTERS OF THE MONTH"h$:"FORMAT: ... OCT,3,1968":" ";MO$,DY%,YR%:!r$6000:YF$"ON"ė:(12):" YEAR OUT OF 1800 - 2000 RANGE XD26.364 #C139:COCXD:Y79`#RAD(X)XPI180:DEG(X)X180PI:ASN(X)(X(XX1))s"$M$(14),D%(14),$I314:M$(I):D%(I):IT$:"PROGRAM IS GOOD FOR THE YEARS 1800-2000"K^$:"ENTER MONTH, DAY, AND YEAR IN THAT ORDERSEPARATED BY C25.328:N2.0830853:J1221.647:J2.9025179u#PI4(1):A11.92:A2.02:B15.537:B2.167:D528.07:D610.406:LOOP$"NO"#UA84.5506:UB203.405863:UC41.5015:UD101.2916323:UE109.977:UF50.2345169:UG176.3586:UH21.4879802 #XA5.906:XB9.397:XC14.989:OUGH BINOCULARS"7F#:(9):"PROGRAMMED BY BOB MANSKE"_P#(9):"MAY 16, 1980 COPYWRITE 1980"Z#(9):"ALL RIGHTS RESERVED"d#:(9):"PRESS A KEY TO CONTINUE ":(9):Z$#D1365.25:D230.6001:D31720994.5:D42415020)#M1358.476:M2.9856003:N12dX3606520n6600+xX0ıBX360XX360:bXX(1):6600:XX(1)360hxX28468.145X(X360(X360))360:(#::(8):(9):"A VIEW OF JUPITER AND THE"2#(9):"FOUR GALILEAN SATELLITES"<#(9):"AS SEEN THRZZ.01ZZ0:".0";:?pYF$"OFF":YR%1800YR%2000YF$"ON"EzMF$"OFF":I314:M$(I)MO$MO%I:MF$"ON":I14I:8DF$"OFF":DY%0DY%D%(MO%)DF$"ON"BD%(14)28:TYR%4:T%T:TT%D%(14)29YR%1900YR%1800D%(14)28 (23):(1):LOOP$"ON"5270(Q$=(16384)127ı16368,0::(21):"PRESS 'C' TO CONTINUE. ";:Z$:Z$"C"Ą" INTERVAL? ";CH%:5000::|T0V$"E":T0V$"W":V$"C":CU0Ē0:ZP1,YZP1,Y:ZP,Y1ZP,Y10):" ";YR%;" ";:HR%10ĺ" ";9~HR%":";:MN%10ĺ"0";CMN%;RTX4:5500\(24)" 4 MOONS 1V CALLISTO ";V$;" ";:ZZ(X4):ZZ10ĺ" ";ZZ1ĺ" ";:CU(U4):ZPP4:5600ZZ;:(30):" ZONE ";:SD$"S"ĺTZ%;"S";:5267TZ%1;"D";:ZZ(X2):ZZ10ĺ" ";; aZZ1ĺ" ";:CU(U2):ZPP2:5600j dZZ;:(30):" ";M$(MO%);" ";:DY%10ĺ" ";y nDY%", " sTX3:5500 w(23) x" AND THE III GANYMEDE ";V$;" ";:ZZ(X3):ZZ10ĺ" "; zZZ1ĺ" ";:CU(U3):ZPP3:5600}ZZ;:(381143,81:135,82143,82:136,83142,83:TX1:5500 U(21):(1):"EAST <-- I IO ";V$;" ";:ZZ(X1):ZZ1ĺ" ";:CU(U1):ZPP1:5600 WZZ;:(30):" --> WEST":TX2:5500 ZTX2:5500 ^(22) _" JUPITER II EUROPA ";:(23):V$;:(25)R%1:2500:6300:6000:YF$"ON"Ģ(23):(1):Z$:::A TM%0:c 0:0,Y279,Y:3:134,Y144,Y P1X1COC:P2X2COC:P3X3COC:P4X4COC:P1,Y:P2,Y:P3,Y:P4,Y2 136,75142,75:135,76143,76:135,77143,77:134,78144,78:134,80144,80:135,(U2):X3XC(U3):X4XD(U4)$ X 4 MN%MN%CH%U MN%59MN%MN%60:HR%HR%1| HR%23DY%DY%1:HR%HR%24:6200 DF$"ON"DY%1:4500 MO%15MO%MO%12 MO$M$(MO%):DF$"OFF"  TM%MO% MO%MO%15 TM%12MO%13YR%Y(M))A2(RAD(2M))8 BB1(RAD(N))B2(RAD(2N))J KRAD(JAB)_  DT(D5D6(K))z  PSDEG(ASN((K)DT))  JCDDT173 & U1RAD(UAUBJCPSB):U2RAD(UCUDJCPSB):U3RAD(UEUFJCPSB):U4RAD(UGUHJCPSB) N X1XA(U1):X2XB ::8191:100001Y%YR%:MO%12Y%Y%1y2500:DYDY%HR%24MN%1440Z:JD(D1Y%)(D2(MO%1))B%D3DY: A%(Y%100):B%2A%(A%4): DJDD4:MM1M2D:NN1N2D:JJ1J2D:XM:6500:MX:XN:6500:NX:XJ:6500:JX AA1(RAD        A$(125)(126)(127)-nlB$(123)(124)EnqA$" "A$:B$" "B$knvI1100:10:I:B$:10:I:A$:In{I15:12:20I:A$:J150:J:InI18:I12:17:(111):I12:17:" ":I12:17:(111):I12:17:" ": o21:17:(120):I160:N5:CT$"BY CREATING YOUR OWN CHARACTERS YOU CAN":950::CT$"DO ANIMATION USING THE USUAL PRINT":950::CT$"COMMANDS: HTAB,VTAB,PRINT,ETC.":950mb:CT$"FOR INSTANCE ,BY USING THE FOLLOWING":950::7:"CHARACTERS :";:I123127:(I);" ";:I::980ng:"";N:HO:N470,575,605,565,570,l5:555Rl::D$(4):D$;"IN#0":D$;"PR#0":Zl?HOlDD$(4):D$;"OPEN DEMOTEXT/3":D$;"READ DEMOTEXT/3"lI4lN"";CT$:CT$"STOP"ĺD$;"CLOSE DEMOTEXT":555lSCT$"EOP"ĺ:980:585lX950::590m]HO:0k+4:"WHAT WOULD YOU LIKE TO SEE:":7:5:"1 THE COMMAND CHANGES FOR":9:"HIGH-RES-TEXT AGAIN":10:5:"2 DETAILED DOCUMANTAION":13:5:"3 A DEMONSTRATION OF HIGH-RES-TEXT"!l016:5:"4 NOTHING MORE":19:"OR 5 THE TEXT SCREEN AGAIN.":22:5$"OR USE THE RESET KEY":950:980j!5:CT$"TO RETURN TO HIGH-RES-TEXT AFTER":950::CT$"HITTING THE RESET BUTTON, EXECUTE":950::CT$"THE FOLLOWING COMMANDS:":950:k&5:"CALL ";ST::5:"AND EITHER"::9:"HGR:POKE -16302,0"::5:"OR HGR2":98"CALL -912";15);"SORRY, NO TRANSLATION"8i34,0:980i5:CT$"TO STOP HIGH-RES-TEXT: ENTER":950::CT$"THE COMMANDS: IN#0 AND PR#0":950::CT$"IN EITHER IMMEDIEATE OR DEFERRED MODE":950"j:CT$"(WHEN USING A DISK, SEE THE MANUAL)":950:::CT,127"1h:"FLASH";10);"SORRY, IT WON'T FLASH":h980ah"SEE APPLESOFT MANUAL PAGE 129":h"CALL -936";15);"CALL ";HO:h"CALL -958";15);"CALL ";EP:h"CALL -868";15);"CALL ";EL:h"CALL -922";15);"APPROX. PRINT CHR$(10)":)i ........":34,5bg"HOME";10);"CALL ";HO:10:"OR HOME:HGR:POKE -16302,0":10:"OR HOME:HGR2":g"TEXT";10);"TEXT:HGR:POKE -16302,0":10:"OR TEXT:HGR2":10:"OR USE POKE'S (PAGE 128 IN":10:"THE APPLESOFT MANUAL)"h:"INVERSE";10);"POKE 50:5:"AND THE SCREEN SCROLLS LIKE:":I19::f:3:"SOME COMMANDS MUST BE CHANGED SO"::"THAT THEY WILL WORK WITH HI-RES-TEXT."fI16::I:980g"REPLACE THE OLD COMMAND WITH:"::"OLD ------> NEW COMMAND":"................................GRAM HAS":950::CT$"BEEN LOADED ABOVE HIMEM)":950e980:8:5:"THERE ARE SOME DIFFERENCES"::"BETWEEN TEXT AND HI-RES-TEXT. CTRL-L"::"AND CTRL-K SET LOWER AND UPPER CASE."::"AND THE CURSOR LOOKS LIKE:":e5:"ENTER YOUR NAME: ";N$.f::HM(116)256(115):ZHM16644dS1đ:16302,0?dS2ĐYdD$;"BRUN ";H$;",A";ZldHMHM1664:HMdSTZ:HO609Z:EPZ616:ELZ6234eHO:5:CT$"WELL HERE IT IS! TEXT ON THE ":950::CT$"HI RES SCREEN":950:12:CT$"(THE HIGH-RES-TEXT PROSCREEN OF YOUR APPLE FOR TEXT,"::"JUST AS YOUR TEXT SCREEN IS NORMALLY"::"USED. WHICH HI-RES SCREEN WOULD YOU LIKE":"TO USE?"c:5:"1 PAGE 1 HI-RES SCREEN"::5:"2 PAGE 2 HI-RES SCREEN"c19::"SCREEN NUMBER = ";S:S(S):S1S2400d950 bJ12:CT$"NOV 1980":950bT16:" THIS PROGRAM PROVIDES DOCUMANTAION FOR USE OF THE HIGH=RES-TEXT/3 PROGRAM FOR USING YOUR HI-RES SCREEN AS A TEXT SCREEN ON YOUR APPLE"b^960c:2:5:"THE HIGH-RES-TEXT PROGRAM USES THE"::"HI-RES ALa( BOTH THIS PROGRAM AND THE HIGH-RES-TEXT PROGRAM HAVE BEEN PROGRAMED BY JOHN ROGERS, MADISION, WISCONSIN, NOVEMBER 1980aH$"HIGH-RES-TEXT/3"aD$(4)a, TITLE PAGEa64:CT$"HIGH-RES-TEXT DOCUMENTATION":950b@8:CT$"BY JOHN ROGERS":Q`(104)96Ĥ24576$` ::200r` THIS PROGRAM PROVIDES DOCUMANTATION FOR USING THE HIGH-RES-TEXT PROGRAMa ALTHOUGH OTHERS HAVE PROBABLY WORKED ON THE SAME IDEA, THE IDEA FOR THIS DOCUMENTATION PROGRAM AND THE HIGH-RES-TEXT PROGRAM ARE ORIGIN       ϠũĠ ͠ϠŠӠΠΠԠͮӠΠŠĠӠŠҮ٠ΠӮĮàΠҠĠ٠ΠӍĠȠ ŠǠӠҠŻҠŠРҠήˠРɠɠΧԠנԠӠŮРŠ̠Π͠Ƞ٠ԠŠǠӠҠŮ̮Ҡ ŠǠӠҠŮ̮Π ŠǠӠҠō̮Π ŠΠԠΠ٠Ӯ̮n pn pLp o )p`^ H n)eempi(mp  HȢ n eiiحɃL@nL4n0 ` jq.?rq.?rt]Ġ٠~@p()]̠a@E(ĠĠ)]ŠԠq.?6?rM6]!a(ĠҠ͠)Q]͠ϠԠ]ĠҠ͠]ŠŠĮ]ӠӠ٠]ŠŠĠ]ĠȠ $]î.]8]ˠΠРB]L]ŠŠ V]Į `q6}?j""""<""< &< """"<""IIII6"""">> <00000<">"""""""*,"" "" ">""""""""""""""**6"""""""> > >00000>",2"2,""""" <"""<"><$<""< &""" "2   5KIII&"""""2*&" " >>  ">> "8""> """"""<  >>""**<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""">>< (&20 *, **>> H#H JeH$%H $(*))+*+i+!ߠhi#ҥ% $h`H"%$ X0 B0 0 ` $())hi#2H $(*))+!*i+i+0)(*))+*+i+!ߥ% $h)h(h$h%hHLHH(*))+$*IU*+i+h H(*))+$*IU*+i+h, ̰$ɐ ` L5ɛɍ @` 7ʽi3676i@87i9i `Lɠ%25H%H$H(H)Hɠ0i0)***e逸eȄ(*))+E$**i+i+ߦ$$!ɍɊɌ ɋZ$%%#s%"HhH     ǠӠƠŠҍŠӠĠΠŭƠנōԩՠΠŠҠӍԠ٠Š٠ǠӠҮ̠ا̠ԠŠҍϠثثЍŠҠŠӠ΍ϠɮŮҍǠӠŠϠӠήҠԠՠԠŠϠғٍǠҩǠҠΠ̠ōҠӠΠǠŠנӮҤΠũЍŠӠ̍ŠŠҠŠŠҠӠōӮǠĵύŠӠ̠ŠŠҍĠӠŠԠӮƠՠԠŠŻ٠ƩЍ٠ΠثثŠōҠŠҽΠŠثŠثɮŮŠΠثčŠDFTЍŠӠȠŠŠҍҠŠثثčثثñǍϠŮЍ̠ƠŠԠԠӍΠà̠ˠԠȧčŧϠ̠ƠŠŧӍŠŠƠԠ̩̠ˮЍŠӠŠĠΠŠԠҠԠϠҽƠՠԠϠȠōԠ׻ŠĠҠҠDz̠ϠҠŠήЍϠԠŠӻŠŠƠΠϠŠɠӠӻҠһŠҠҲҠԠҠŠҠΠŶĠŠӠϠػҠҠخҠϠŠĠƠŠŠӍ̠ثҠثЍҠϠŠĠƠŠŠӍ̠ثҠثƩǠŠԠŠϠˠũӠ̠ثҠثƠҠŠԠĠҠՠ̠ϠԠϠŠŠЍΠΠȭӭԻا؍ӠŠǠӠΠػҠ̠ԠŠ̠Ӡ̠ŠΠȍԠϠخЍҠԻϠԠŠ͠ҠӭԻاŠؠӠ٠ŠٮՠԠŠĠŠɠӠōŠǠȭҭԮЍƠŶҠŠ̍͠ŠƻŠԠ̠ϠǮŶΠōĠȠҠҠҲΠǠȠϠŠҠōƹàŠ٠ŠӍĠ٠ŠĠ٠ҠӍҠ٠ŮǠҠ̠ҠŠ٩ĭƠԠŠԠĮЍŠȭҭԠ͠ӠŮϠŠҍΠȭŠ̍ԠΠӠĠϠŠŠčƠȠӠŠĠΠȍӮԠŠԠŠĠ٠ҍӮЍŠȭҭԠ͠ӠŠǠ٠ӮĠӠˠҠҠҠҠŮŭƠЍ̠ԠӠŠԠύȭҭԠĠԠΠŠȠӠήŠŠҠӠΠԠϠō̠ΠԠΠưĠĠΠŠ̠ԠŻŠЍҠŠƠŠٻӠӠŠĮЍӠΠӠ٠ҍΠ٠ƠŠ٠ӠĠϠŠĠ΍ӠΠ͠ӠӮΠӠĠנŠ٠ƮЍŠӠƠŠ͠ԮΠŠĠλ̭̠čĠ̭ˠŠĠϠȠ͍ҠҠҠŮΠΠōҠӠĠϠŠһŠ٠ƠǠӠčĠϠӠΠ֠ŠȭӭԠ͠ӠŠŠŠ͍ȠΠŠĠϠ٠ōٮŠ͠ҠĠύӠȭҭԩӠӮȭҭԠӠ̠Ġ̠ϠԠϠ     SER D$  ::< "OLD MONITOR ROM INSTALLED"B INED WITH L THIS PROGRAM.R Q SEE LANGUAGE REFERENCE MANUAL FOR DETAILS.X Vp ` K.MCLAURIN SEP 80v j tD$(4) ~EN16253: ENABLE Z(EN):Z(EN) D$"BLOAD OLD MONITOR"  WRITE PROTECT PR(16256)  RETURN TO UCA PROGRAM TO PUT THE5OLD MONITOR ROM INTOOTHE LANGUAGE SYSTEM.jUSING APPLESOFT. THISPROGRAM WORKS ONLY WHENAPPLESOFT IS IN THE$LANGUAGE SYSTEM. ONE.SHOULD BE AWARE OF THE8FUNCTIONS LOST AND B THOSE REGAE ";F$;",A";N;",L$400":#:2003I150:: 'CHARACTERS' A PROGRAM TO CREATE CHARACTER SETS BY JOHN ROGERS, LAST MODIFIED FEB 9 , 1981 STORED IN MEMORY FROM BYTE":" ";N;" TO ";N1024::"READING CHARACTERS FROM MEMORY INTO"::"DATA ARRAY":600: :"ENTER THE CHARACTER SET'S FILE NAME:"::"FILENAME = ";F$*:"WRITING CHARACTERS FROM DATA ARRAYS TO"::"MEMORY":500:(4);"BSAV J07!N,CHR%(I,J):NN1*J,I4!:NNN:&QX READ FROM MEMORY^bI0127ilJ07vCHR%(I,J)(N):NN1J,I:"ENTER THE CHARACTER SET'S FILE NAME:"::"FILENAME = ";F$q(4);"BLOAD ";F$;",A";N::"CHARACTERS E? (Y/N) ":X$X$"Y"ı&400C:90:410:I1500:I:I:10:X01,X07Y01:X01,X07Y08:Y01,Y08X01:Y01,Y08X07: STORE:"CHARACTERS STORED IN MEMORY FROM BYTE":" ";N;" TO ";N1024::NNNI0127w320%|Y07:TT0:NUM1:X06<XX0,YY0)0393JTTTTNUMZNUMNUMNUMX:CHR%(CHR,Y)TT:Y:"WOULD YOU LIKE TO DEFINE MORE? (Y/N)":X$:X$"Y"ı:300:20::90:Y07:8760Y1024,CHR%(CHR,Y)::"DO YOU WISH TO SEE MOR(0):M0:(16384)127ľM$:M(M$)2 ESCOL:10M JM$"I"YY1:Y0Y0h OM$"J"XX1:X0X0 TM$"M"YY1:Y7Y7 YM$"K"XX1:X6X6 ^M$"X"Ġ15:10 `M$" "Ġ0:10 cM13380 h2000:SCOLXX0,YY0):3:10 r20009:"6 WRITE CHARACTERS TO DISK"::6:"OR 7 STOP":? :C$j C(C$):C300,400,500,600,700,800,900s 200 , DEFINE CHARACTERS 6410:90 8"USE 'X' FOR CHARACTER,USE SPACE TO ERASE I=UP,M=DOWN,J= <--, K= -->, CR=DONE" ;X1:Y5$ @M$,I)127: xX017:Y08$ SCOL153 ::I(0) 5:"WHAT IS YOUR CHOICE ?"::9:"1 DEFINE CHARACTERS"::9:"2 DISPLAY CHARACTERS"::9:"3 STORE CHARACTERS IN MEMORY"::9:"4 READ CHARACTERS FROM M5 :9:"5 READ CHRACTERS FROM DISK"::RACTER OR ASC# OF CHARACTER":"(MORE THAN ONE DIGIT) TO BE DEFINED":"CHARACTER = ";CH$:(CH$)1CHR(CH$):92 [(CH$)0CHR(CH$) \(CH$)090 ]CHR127ė:90 ^23:20:"CHARACTER = #";CHR: d24000 iCHR%(128,7) nI07:CHR%(128OHN ROGERS FEBRUARY 1981y  THIS PROGRAM CAN BE USED TO CREATE CHARACTERS FOR THE HIGH-RES-TEXT PROGRAM FOR YOUR APPLE  IT WAS CONCEIVED OF AND EXECUTED BY JOHN ROGERS, MADISON WIS.GOOD LUCK N25000 100 XX0,YY0:p Z21:"INPUT CHA ::5:12:"CHARACTERS":10:" A CHARACTER GENERATING PROGRAM FOR"::10:"HIGH-RES-TEXT":15:9:"BY JOHN ROGERS":23:" HIT A KEY TO CONTINUE"X$  THIS IS AN EXAMPLE OF A POORLY DOCUMENTED BUT USEFUL PROGRAM ( IN THE RIGHT CONTEXT) BY J     GET STEP (3)."| PG ?," #3: LINES 40 TO 80 SHOW HOW TO CON-","STRUCT A PROGRAM INDEX WHICH IS AUTOMA-","TICALLY UPDATED WHEN YOU USE A RENUMBER-","ING PROGRAM." ?," NOTE THAT LINES 60 TO 72 ARE NEVER EX-","ECUTED BECAUSE OF LINE 50."O THEM","IN THE PROGRAM LINE BY USING CTRL-A."m ?," WHEN COMMANDS OCCUR NEAR THE END OF A","LINE, THEY MAY EXTEND BEYOND COLUMN 33","IN THE LISTING. THAT CASE REQUIRES EXTRA","THOUGHT TO FORMAT PROPERLY IF YOU CARE","HOW IT LISTS."r ?,"DO NOT FORS LIKE REM, DO NOT","TYPE A SPACE UNLESS YOU WANT TWO. THE","EXTRA SPACE IN THE LINE IS PROVIDED FOR","BY THE APPLESOFT PROMPT."-h ?," WHEN THERE IS NO PROMPT, OR WHEN ADDI-","TIONAL COMMANDS OCCUR, YOU MAY PROVIDE","THE EXTRA SPACES WITHOUT ENTERINGTO THE NEXT LINE AT THE","END OF THE LISTED LINE. AS SOON AS IT","JUMPS, TYPE KKKKK TO MOVE","THE CURSOR TO THE COLUMN WHERE THE NEXT" Y "LISTED LINE WILL BEGIN.", PG^ ?," SINCE THE LISTER INSERTS A SPACE BE-","FORE AND AFTER COMMAND 1) POKE 33,33."' @ ?," 2) TYPE:" A"]40 REMJUMP OVER PROGRAM INDEX KK","KKKTO BEGINNING OF MAIN PROGRAM" J ?," 3) POKE 33,40 BEFORE RUNNING OR", "LISTING." T ?," STEP (1) SETS THE WINDOW SO THAT THE","CURSOR WILL JUMP ?,?,?," #1: LINES 10 TO 30 SHOW HOW TO ENTER","A TITLE WHICH WILL APPEAR AT THE BEGIN-","NING OF EITHER A RUN OR A LISTING." PG , " #2: TO TYPE A PROGRAM LINE IN THE FOR-","MAT IN WHICH IT WILL BE LISTED,","FOR EXAMPLE, LINE 40:" 6 ?,"  B200:"GOODY #1"( D300:"GOODY #2"< F400:"GOODY #3"W H600:"PAGE TERMINATOR"^ P q Z MAIN PROGRAMz d600 nA$ xA$"?"ĺ:110 A$"PG"İ600:110 A$"E"ĺ::"GOODBYE!": (A$)40(55)253ĺA$:110 A$;:110:  *! * APRIL 1; 1981 *> ***********************E  _ I1019:9:A$:A$:f # (JUMP OVER PROGRAM INDEX TO BEGINNING OF MAIN PROGRAM 2100: 7 PROGRAM INDEX <10:"TITLE" >50:"PROGRAM INDEX" @100:"MAIN PROGRAM"@ ::255:33,40 9 ***********************V * *s * FOUR APRIL GOODIES * * ** CONTRIBUTED BY ** KEITH SYMON (1;2;4) ** & JIM SYMON (3) * *     >,2"2,""""" <"""<"><$<""< &""" "2   5KIII&""""""""<""< &< """"<""IIII6"""">> <00000<""**<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<  >>"a    WITHOUT LOOP6'@D$;"OPEN ALPHA"<JD$;"READ ALPHA"HTSTUFF$^^D$;"CLOSE ALPHA"gh mr| WRITE SEQUENTIAL FILE WITHOUT LOOPD$;"OPEN ALPHA"D$;"WRITE ALPHA"STUFF$D$;"CLOSE ALPHA"  ( WRITE TO RANDOM FILE; WITHOUT LOOPAT (X IS RECORDh NUMBER IN THEt FILE)zD$;"OPEN ALPHA,L23"D$;"WRITE ALPHA,R"17STUFF$D$;"CLOSE ALPHA" " READ SEQUENTIAL FILE , 2110,2200: , PROGRAM LISTINGS5  ;Y READ RANDOM ACCESS FILEl( WITHOUT LOOPr2< (X IS RECORDF NUMBER IN THEP FILE)ZdD$;"OPEN ALPHA,L23"nD$;"READ ALPHA,R"XxSTUFF$D$;"CLOSE ALPHA"t:5:~I1190,1200,1210,1220,1230,1240,1250,1260,10f:"WOULD YOU LIKE TO SEE ANOTHER? ";I$|(I$,1)"Y"ī930101300,1410:1430,1540:1560,1630:1650,1720:1740,1860:1880,2000:2010,2100: :5:9$"***---> FILES WITH LOOPS <---***"A.:e8" 5. READ RANDOM ACCESS FILE"B" 6. WRITE RANDOM ACCESS FILE"L" 7. READ SEQUENTIAL FILE"V" 8. WRITE SEQUENTIAL FILE"`:" 9. QUIT PROGRAM"j:"SELECTION? ";I:41"SELECT THE FILE TYPE TO VIEW BY NUMBER"7@4:h"***--> FILES WITHOUT LOOP <--***"nt" 1. READ RANDOM ACCESS FILE"" 2. WRITE RANDOM ACCESS FILE"" 3. READ SEQUENTIAL FILE"" 4. WRITE SEQUENTIAL FILE"102R" THIS PROGRAM WILL SHOW YOU LISTINGS"\\"OF DISK COMMANDS USED IN PROGRAMS."f:" IT IS INTENDED TO SUPPLEMENT THE"p"INFORMATION IN THE DOS MANUAL."z18:"HIT RETURN TO CONTINUE ";I$  MAIN ROUTINE ABLE IS NOW BACK FROM DISK!!"8"HERE IT IS--> ";VAR$h:"HIT RETURN TO SEE PROGRAM LISTINGS FOR""THE VARIOUS WAYS DISK COMMANDS CAN BE""USED TO STORE DATA. ";I$ : :6*8:4"***---> DISK FILES <---***">HAPPEN."XZ13500: b100-l34,11:@vX1::220:13YD$;"OPEN TEST FILE"q220:X3::220:14D$;"READ TEST FILE"VAR$220::240:15240:X4::220:16D$;"CLOSE TEST FILE"220:17255"YOUR VARI1 "NOW HIT RETURN AND WE WILL GET IT BACK.";I$U  FETCH VARIABLE FROM DISK ] &: 0X1:220:X3:220:240:X4:220:34,8: :"ABOVE, YOU SEE THE PROGRAM COMMANDS AS" D"THEY ARE EXECUTED, BELOW ARE THE"N"MONITOR COMMANDS AS THEY H0 34,11:! X1::220:13: D$;"OPEN TEST FILE"R 220:X2::220:14l D$;"WRITE TEST FILE"v VAR$ 220::260:15 260:X4::220:16 D$;"CLOSE TEST FILE" 220:17 : "YOUR VARIABLE IS NOW ON DISK!" 255"TYPE IN SOMETHING YOU WOULD LIKE TO "U J"STORE TO DISK AND WATCH WHAT HAPPENS."s T"ENTER IT HERE--> ";VAR$y ^ h"ABOVE, YOU SEE THE PROGRAM COMMANDS AS" r"THEY ARE EXECUTED, BELOW ARE THE " |"MONITOR COMMANDS AS THEY HAPPEN." 10;";:(34);:A$(X);:(34)::+ INPUT L 5:A(X);:" INPUT VAR$"::Y PRINT z 5:A(X);:" PRINT VAR$"::  PRINTS COMMANDS : "X1:220:X2:220:260:X4:220:34,8:: , WRITE TO DISK 6COM$"W":280( @::800,2220 n20$ xD$;"MON C,I,O"B X14:V(X),A(X),A$(X):_ 3,100,"OPEN TEST FILE"} 4,110,"WRITE TEST FILE" 4,110,"READ TEST FILE" 6,130,"CLOSE TEST FILE" : 310 DISK COMMAND  V(X):A(X);:" PRINT D$ WRITTEN BY) JOHN FALUDI 5 D$(4)>:8]"SELECT OPTION BY NUMBER"e(:2" 1. DEMONSTRATION RUN OF DISK COMMANDS"<:" 2. PROGRAM LISTINGS OF DISK COMMANDS"F:" 3. QUIT"P:Z"SELECTION? ";I dI120,         :6600=.:"THE DOS ON THE NEW DISK IS NONSTANDARD.":6500O8DT$"Y"6600q=:"NEW DISK HAS MASTER DOS."{B6400DT$"Y"6350:"NEW DISK HAS SLAVE DOS."S10:2006400Q:"SINCE THE DISK BEING COPIED HAS THE SLAVE DOS00DT$"N"HR%065003C1:BUFBA%:T1:S12<200DX0OI02dXX256(BUFI)kIX42819216200X110800776300$DT$"Y"ĺ:"THE DOS ON THE DISK BEING COPIED IS NOT RECOGNIZABLE. THE COPY MAY NOT BOOT PROPERLY."+TD$"Y"D2::"WRITING TO NEW DISK."9I0K%1IL%L%(J%I)[BUFBA%256ItT(L%13):SL%13T}200J%I1,"T=";T,"S=";SI DONE?N%06000J%J%K%7100:"SOURCE DISK.":70003000pIN$"N"66%)256 READ SOURCE DISK* CRD:D1N K%M%:N%J%M%K%N%J%1:N%0\ I0K%1l L%L%(J%I)~ BUFBA%256I T(L%13):SL%13T 200 J%I1,"T=";T,"S=";S I WRITE NEW DISKCWR:V07100:"NEW DISK.":7000J:J:J%39"4T334:BY%564TD>Y%(BA%BY%):X%(BA%BY%1)PHX%X%8[RI04\H%X%2:X%2H%L%(J%)13TI:J%J%1fX%H%:IpI512zH%Y%2:Y%2H%L%(J%)13TI:J%J%1Y%H%:ITN%J%1:J%0M%(47025BA117I))I:N$m:"THIS NAME WILL BE RECORDED IN THE DOS TRACKS OF THE NEW DISK IF POSSIBLE."}HR%1:2000 FIND SECTORS IN USE::"NOW DETERMINING WHICH SECTORS ARE":"IN USE."J%0DT$"N"2100J038 L%(J)LL NOT BE RECORDED IN THE DOS TRACKS OF THENEW DISK."E=HR%0:2000f@"BE A ":"MASTER DISK."::pJ1675T"BE A":"SLAVE DISK."::YS10:200"THE NAME OF THE 'HELLO' FILE ON THE":"SOURCE DISK IS:"N$"":I029N$N$((BUFX0I02&XX256(BUFI)-IS:"THE SOURCE DISK APPEARS TO ";g"X42819211600|,X1108007716206"HAVE A":"NONSTANDARD VERSION OF DOS. "5;:"THIS PROGRAM IS UNABLE TO DETERMINE THE NAME OF THE 'HELLO' FILE AND SO IT WINS.":::"THIS PROCESS WILL TAKE":"ABOUT 100 SECONDS."F.CFM:200h8::"FORMATING IS COMPLETE."B7100:"SOURCE DISK.":7000 FIND HELLO NAME IF DOS TRACKS ARE NOT COPIEDDT$"Y"2000T1:S12:BUFBA%300200:RWTS%19,BH% RWTS% 9 ***** PROGRAM BEGINS[ D1:V0:CRD:BUFBA%:S0:T17d 200v V(RWTS%24) IN$"Y"1500 :TD$"N"ĺ"INSERT NEW DISK FOR FORMATING."::"HIT RETURN WHEN READY.";A$ TD$"Y"D28$:"FORMATING BEGIWTS%22:SLRWTS%15:TLRWTS%14:VLRWTS%13:DLRWTS%12M RWTS%11,(1528)d V=VOLUME D=DRIVE{ S=SECTOR T=TRACK C=COMMAND RD1:WR2:FM4 1000 DL,D:VL,V CL,C:SL,S:TL,T BH%BUF256:BL%BUF256BH% RWTS%18,BL% 2 169,3,160,10,32' 4 217,3,96,0,08 7 1,96,1,0,0L 9 0,32,3,152,58\ < 0,0,0,0,0o > 96,1,0,0,0,0 A 0,0,1,239,216 dPG%3:RWTS%PG%256 xI035 }X%:RWTS%I,X% I RWTS%1,PG% RWTS%17,PG% RWTS%41,PG%7 CLR"DO YOU WANT THE DOS TRACKS COPIED?"::"(Y OR N): ";:DT$:DT$"N"DT$"Y"^ !IN$"Y"ĺDT$s "IN$"N"DT$"Y"} #:: (TD$"Y"ĺ"INSERT SOURCE DISK IN DRIVE - 1":"INSERT NEW DISK IN DRIVE - 2" )TD$"N"ĺ"INSERT SOURCE DISK." *7000)255XĹMT,X:202 "48K MEMORY IS REQUIRED.":X "ARE TWO DISK DRIVES AVAILABLE?" :"(Y OR N): ";:TD$:TD$"Y"TD$"N" TD$ :"HAS THE NEW DISK EVER BEEN INITIALIZED?"::"(Y OR N): ";:IN$:IN$"Y"IN$"N" IN$L IN$"Y"ĺ: 0:0BA%7857%(BA%1)4L%(3513)S :" S-COPY"s " (VERSION 2)  :" BY I. M. ISAACS":: (57344)76ĺ"ROM APPLESOFT OR LANGUAGE CARD REQUIRED.": MT49151:X(MT):MT,255X:(MT      ΠĠԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōӠčϠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ӠϠҠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿōϠӠ&3>Ou0:?VcqqqqqŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠנŠŠҠŠɀ@ 4 L 5  LƠ砠ŠυÒŠ̳à鶠栌źŗϠɆűҠȠࠃ̶íհѥĪƠ蠠Ӯt h "#!$6CPbt~?O^d ㎬М 4LHHH:612 L] 34Lhhh`HHH J ( 4L <hhh` : :4  ,>  4,$ 12 """zm"""` 3` # # 1 "2 " ̷`12 `HHHλ0+>jj9hhh`( 68>` `1#2#34`ȱ`ȭ`#1#2 13` ` X,3` #1ȹ #2Ȍ 1 `,30 "" = ` ` : :   oOɃ  hhhhhh`DDTPɍɬCDL$,)  o : L  `   DLI,ɽ! ʎ`8`HH nɽ"̿̿88hh` ȹHH`hh" XL  < L < < B,30ޭ# #   ` H h ` $>=!D  # o? : L  hh` >)`ʽ!08`  `  ?,06 /,0&莽 ,0ȌP8``Ȉ!`  nɽ! 莼Ȍ`8`  n$'   hhh`, `Hh`h`< q  ` Y  < LK ` !!`! !8`!1!2  `iii!Lk !Lk H m hLk !>!2!1!!n o00Щ莻ɽదɬnɽ̻ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ) ; <7698  ; ` o ɱɸ" L; )9 o ɱɳ# L_ )7`  o ɱɸ" L )8 o ɱɳ# L )6789<<` L  D5   , b Y L> b @   Lvم38%0` X L8 :   < `" X    i(  ! o , и` X$i( " X ,        Ү٠ΠӮĠ ĠӠǠǠΠϠŠҮ٠ΠӮǮԠԠԠŠǠӠԮǠήԠҲ͠ԠԠàӠϠŠŠԠƠԠӠŠɭӠŠĮàΠҠĭ͠ϠĠǠǠΠϠŠΠŠҠŠŠӠŮҠ ҠΠŠĠϠĠŠŠӠϠŠРƠٻ٠ΠӮǠԠԠ͠ϠŠӠΠƠɭӠΠǠ٠ŠӮŠ٠ԠӠϠԠӠҠӠӠîҮàΠҠҠ٠ΠӮҠҠǠŠҠŠĠҠΠԮ̠ӠӠΠРΠŠ̠͠ĠŠҮ٠ȠĠ͠ήӠȠΠȠҠ Ҡ͠ҠŠϠӠŠĠӠĠŠɭҠîԠϠӠ٠ˮήԠҠҠӠɠǠŠҠŠĠҠƠՠŠŠĮԠҠ LLtRL A62000 F18( 0 WRITTEN 11/5/80 BYW 5 MIKE JENKINS-MADISON WISC ------------r : COPY PG2 TO PG1 SUB D16299,0 N60,181:61,63:62,211:63,95:66,181:67,31 X468 ]16300,0 l vUSE RENUMBER TO ADD TO YOUR PGMS,**** TAKE THE FLASH OUT OF BASIC ****E LINES 1-70 EXAMPLEbHGR2 & SUB MUST BE USED} YOU CAN RENUMBER SUB 0:X,Y140,963:AA.067:X,YX(((A)1)2)279Y(((A)1)2)1913:X,Y140,96X,Y140,96    T 1980"4 n"BOOT13 WAS DEMUFFINED FROM A 3.3 DISK" 6 *"BOOT13 AND DEMUFFIN REQUIRE">"DOS 3.3 ROMS"b("BOOT13 WILL BOOT A 13 SECTOR"2"DISK FROM A 13 SECTOR DISK"<"DEMUFFIN WILL TRANSFER FILES"F"FROM 3.3 TO 3.2 OR 3.2.1 DISKS" d"DEMUFFIN IS BASED ON CALL APPLE ARTICLE, OC 22:"":A$:A$(27)ė:IDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD "Oʽ(ȱieHeHstst:"CONTROL-F WILL FIND SUCCESSIVE OCURANCES OF THE SAME CHARACTER IF SUCCESSIVE KEYSTORKES ARE ENTERED"::" DISCONNECTS INLINED":10006:"WOULD YOU LIKE TO SEE THE DOCUMENTATION"::"AGAIN? (Y/N) ";:A$:(A$,1)"Y"X1:10A COMMAND"::"CONTROL CHARACTER WILL EXIT EDIT(INPUT)"::"MODE."K10006:"OTHER DETAILS:"::"THE EDIT BUFFER IS 253 CHARACTERS LONG"::"AT THE END OF A LINE THE CURSOR WILL":"WRAP TO THE BEGINNING"::"THE PROGRAM IS $460 OR 1120 BYTES LONG":5:"IS USED FOR EDIT MODE AND":V"^";:5:"IS USED FOR EDIT(INPUT) MODE.":10006:"TO ENTER EDIT(INPUT) MODE, USE CONTROL-I":"AFTER WHICH THE '^' CURSOR WILL APPEAR."::"YOU CAN NOW INSERT CHARACTERS AT THE"A:"CURSOR. HITTING ANY OTHERXXX+7 WILL BE PUT"::"INTO THE EDIT BUFFER FOR THE USER TO"|:"EDIT AND FOR THE PROGRAM TO REENTER"::"USING THE NEXT 'INPUT' COMMAND.":1000"6:"USING INLINED YOU WILL SEE 3 CURSORS:":9::" ";::5:"IS USED FOR REGULAR INPUT MODE"::(95);AFTER ENTERING"::"ANOTHER CHARACTER, YOU WILL UNTER EDIT"::"MODE AND BE ABLE TO EDIT THE ENTIRE"::"LINE, AS ENTERED SO FAR."h1000<r6:"THE ENTRY POINT XXXX+7 ALLOWS USE OF"::"INLINED FROM WITHIN A PROGRAM. ANY LINE"::"PRINTED AFTER CALL INE, 'INLINED' WILL PRINT 'LIST '"::"AFTER WHICH YOU CAN ENTER:"::" TO LIST THE PROGRAM OR,"::" 123";J13:"OR SOME OTHER STATEMENT":13:"NUMBER WHICH YOU WISH TO":13:"LIST FOR EDITING"T1000^6:"IF CONTROL-E IS ENTERED TER CONTROL-E AS THE FIRST":" CHARACTER."::" 2) ENTER CONTROL-E AFTER THE FIRST":" CHARACTER.",:"AND 3) CALL XXXX+7, WHERE XXXX IS THE":" STARTING ADDRESS OF INLINED.":1000y@6:"IF CONTROL-E IS THE FIRST CHARACTER OF"::"THE LEAD 20 CHARACTERS":"-> AND <- MOVES ALONG THE LINE":" I INSERTS CHARACTERS AT THE CURSOR":" F FINDS THE NEXT CHARACTER INPUT":" V NEXT CHARACTER IS INPUT NOT COMMAND"1000k":6:"EDIT MODE CAN BE ENTERED IN THREE"::"WAYS:"::" 1) EN ALL OF WHICH ARE SINGLE"::"CONTROL CHARACTERS.":1000 :6:"THE CONTROL CHARACTERS INCLUDE:"::" X DELETES THE LINE":" T TRUNCATES THE LINE AND RETURNS":" D DELETES ONE CHARACTER":" M OR , RETURNS INPUT LINE"" S SKIPS AHINED INPUTS LINES IN TWO MODES"::" REGULAR MODE,"::" AND EDIT MODE.":1000 :6:"IN REGULAR MODE, INPUT IS THE SAME AS"::"USUAL, WITH THE USUAL ESCAPE EDITING"::"COMMANDS.":10008 :6:"IN EDITING MODE THERE ARE NUMEROUS"::"COMMANDS,D LOADED BY"::"RELOADER (SEE RELOADER.DOC FOR DETAILS.)"::"TO RUN INLINED, ENTER:"p :10:"BRUN INLINED" X0ĺ(4);"BRUN INLINED,A$5000":XX(255)256(254) :"TO RECONNECT INLINED AFTER ,":10:"CALL ";XX 1000R :6:"INLTHIS PROGRAM GIVES DOCUMENTATION ON HOW TO RUN ";::"INLINED";::", A MACHINE LANGUAGE PROGRAM FOR EDITING INPUT LINES. INLINED=IN(PUT) LIN(E) ED(ITOR)." 1000V :6::"INLINED IS A MACHINE LANGUAGE PROGRAM"::"WHICH IS RELOCATEABLE ANd::4:7:"*** ";::"INLINED.DOC";::" ***":::9:"BY JOHN ROGERS 1981" x"THE PROGRAM 'INLINED' IS COPYRIGHT 1981":"ALL COMMERCIAL RIGHTS RESERVED BY THE":"AUTHOR, JOHN ROGERS. INLINED IS FOR":"NON-COMMERCIAL PUBIC USE ONLY." 16:"  X0 : THIS PROGRAM PROVIDES DOCUMENTATION ON THE USE OF 'INLINED', A MACHINE LANGUAGE PROGRAM FOR EDITING INPUT LINES. THE IDEA FOR THE PROGRAM AND THE ORIGINAL CODE WAS DEVELOPED BY JOHN ROGERS, MADI