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` Ӎ  `              Ӎ  ΍      Ӎ ҍ ͍ҍӍ   ̍΍č   /   Ӎ  ȍ ΍       ٍ   č  ٍ΍   Ӎ΍   ٍ         ٍ͍ ҍӍԍ   ō       ٍ  ΍      ō   /     ō ō      ōӍ   ō             ٍ      ō     ٍҍ΍̍       ٍҍ      ΍            ΍  ٍ      ΍ō        ō           ٍ         t      ٍ       ٍ        占蠠⠸뮠ɠ䬠Šҍ笠Π뮠ɠ䬠Šҍ䮍嬠̭îàΨ砲䠨褐䮠ɠïҠ̯Ơﮩ箍欠䬠嬠堢Ԯ䠨嬠Ԡ宍ɠí嬠̭ήïҠɠנ嬠堢Ԯ廠ɠ嬠Π砨獠ӍԮ宠   $ $) ԩ@ ȱ$ɍ $)?)ߑݩ`8zii28`~Ȅ 08aȌ``MɍȄ e %й ɛ! X0 0Ȅ `,,`  ɍ ` `$ $  "."::"DO YOU WANT TO:":" R)EPLACE THE LOCKED FILE":" S)AVE FILE ON ANOTHER DISK":" A)BORT THIS SAVEf:"PRESS LETTER FOR SELECTION":60:(KB82)(KB83)(KB65)2140pKB82ĺCD$"UNLOCK"NA$:550zKB83520620H::5:"DISK I/O ERROR IN S,"SL" D,"DR".":"CHECK AND":50:150O>CD$"CLOSE"cHCD$"DELETE"NA$R::5:"DISK FULL ERROR"::"PLACE AN INITIALIZED DISK IN S,"SL" D,"DR".":50:550k\::5:"THAT FILE IS A LOCKED FILE ON THE DISK IN S,"SL" D,"DR"ER:"AT LINE NUMBER "EL::"PROGRAM TERMINATED.": ::"DISK IN S,"SL" D,"DR" IS WRITE-PROTECTED."::"PUT AN INITIALIZED NON-WRITE-PROTECTED DISK INTO DRIVE.":50:*:::"THE FILE:"::NA$::"IS NOT ON THE DISK IN S,"SL" D,"DR:50:150?40:)PT::(HM58):LL%0:0:(HM282)5:::H360:LOC,96:a NA$"TEXT."NA$:400ER(222):EL(218)(219)256:216,0ER42080ER62090ER82100ER92110ER102140 ER2551503::5:"ERROR TYPE LL%39:5,LL%:6,1:7,25:(HM58)360:::LL%09h:3:PTĄ"ENTER PRINTER SLOT NUMBER:";PT{(HM216)::3:"ENTER DESIRED LINE LENGTH:";LL%5,LL%:6,1:7,25:250,160:251,6410:"WHEN PRINTER IS READY TO GO":50:35,0:33,LL%Č(HM58)::LL%0:::6201b(HM182):::PlM6ĺCD$"CLOSE":(HM282)]vM5350f150::38400:38957,0:HM1189,LB:HM1188,45:250,32:251,21::23:" PRESS ANY KEY TO CONTINUE":" ESC/RET TO QUIT PREVIEW";:35,22:!:KB89İ20::490%KB78ė:490E:"INSERT TARGET DISK":50z&:10:16::"SAVING"::(((39(NA$))2)):NA$0M5ĺCD$"BSAVE"NA$",A$1900,L"LNGTH",S"SL",D"DR:350:CD$"OPEN"NA$",S"SL",D"DRDCD$"WRITE"NA$N250,160:251,255X5:238,0:490KB50450W6,1:7,25::"ENTER DESIRED LINE LENGTH:";LL%:5,LL%:"IS THE DISK THAT THE FILE IS TO BE SAVED ON IN S,"SL" D,"DR"? (Y/N)":60KB89550KB78ė:490:"DO YOU WANT TO CHANGE DRIVES? (Y/N)":60NAME FOR FILE":":";NA$:430/KB89ė:400[M5ĭ(NA$,5)"TEXT."NA$"TEXT."NA$hM5490:"THE TEXT FILE CAN BE SAVED:"::" 1) AS CONTINUOUS TEXT":" 2) IN SPECIFIC MAXIMUM LINE LENGTHS"::"(PRESS 1 OR 2)":60 KB49Ĺ8,1:9,2CD$"BLOAD"NA$",S"SL",D"DR1^NA$(NA$,(NA$)5)UhLNGTH(HM5216)(HM5217)256qrLOC6400LNGTH2:LOC,0w|(HM216)::"DO YOU WANT THE FILE SAVED AS:"::(((40(NA$))2)):NA$::"(PRESS Y OR N)":60KB78ĺ:"ENTER DESIRED ":10:16::"LOADING"::(((39(NA$))2)):NA$] ,CD$"VERIFY"NA$",S"SL",D"DR:M1340{ 6CD$"OPEN"NA$",S"SL",D"DR @CD$"READ"NA$:HM:(252)ĺ(7)"MEMORY IS FULL, YOU MAY NOT HAVE ALL OF THE TEXT FILE.":50 J(HM282):CD$"CLOSE":360T"(CTRL-C/RET TO RETURN TO MENU)":5g M1ĺ"ENTER NAME OF APPLEWRITER FILE TO":3:"BE LOADED:";NA$ M2ĺ"ENTER NAME OF TEXT FILE TO BE":"LOADED:";NA$ (NA$)ė:CD$"CATALOG,S"SL",D"DR::240 NA$(1)İ20:230 M1NA$"TEXT."NA$4 7) EXIT FILE CONVERTERW 20:868:"PRESS NUMBER FOR SELECTION";:M(0):60:(KB)w MKB48:M1M7ĺ(7):190 M230,230,660,700,770,390,650 150$ :15:"(HIT RETURN FOR LOOK AT THE CATALOG)"::"(CTRL-A/RET TO CHANGE DISK DRIVES)"::U"10):::2000 "YOU CAN: 6:" 1) LOAD APPLEWRITER FILE"::" 2) LOAD SEQUENTIAL TEXT FILE"::" 3) PREVIEW FILE IN MEMORY"::" 4) PRINT FILE FROM MEMORY :" 5) SAVE MEMORY AS APPLEWRITER FILE"::" 6) SAVE MEMORY AS TEXT FILE"::"47,128,0:KB(47)128:725:. d2000h nHM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 x6400:CD$(4):CD$"NOMON C,I,O": SL6:DR1:NA$"B/FILE CONVERTER.OBJ CD$"BLOAD"NA$",A"HM:(HM340) ::3::10)"FILE CONVERTER MEN  100a:"SLOT=";::10:"DEFAULT="SL;::60:KB13KBKB48:(49152256KB)162SLKB6:868:SL::"DRIVE=";:10::"DEFAULT="DR;::60:KB13DR((DR2))1(7:868:DR:I1700::2::" PRESS ANY KEY TO CONTINUE# <            ԠҠԠƠŠٍ֍ҠȍҠԍĺРİĠ٠ˠРàؠРҍ˺àˠԠˍˠԠ˿РԠˍҠӠԠŠӍҍŠàīޱРōźǠĠſŠˍàǠϬԠРҠĠōƠԠЍҍ֍ҠҠԠҍҠԱàȍŠōàҠԠҍàĠԠĠҠŠŠԠҠԠЍàҠӠĠҍàҠԠҍРōޱؠҍؠà̠Ҡ΍ؠؠԠȠȠōҺҩ٠ԠōźРƠ̠ӠſѠŠƠӠϠϠԠōàŠΠҠ̠ҍȠ΍àȍàˠîàԍàˍàˍà٠٠ӠؠϠàҍ٠ҠΠԠ΍Šˍˍ˺ҠŠҍǠԠŠˠîӍčī͍ͫҠϠŠҠҍƍҫҠàĠÍàРčޱ͠ˍԺРƠŠҠŠΠˍŠĠĠҠԍŠƠӠŠӠϠРŠҠŠҠōŠ̠ Ԡԍ٠ԠӍŠеĠҠ̠ō٠Ӡк͠ЍԺàӍе̠͍̠ͫԠԠԠƠԍðàððŠ̠ԍñàññ̠òԠúŠӍðҠԍñòĠ̠ō٠ŠҠɍҠŠčΠ٠ŠˍӠŠӠōĠ٠ԠΠ͍נҩĠͫȠҩϠ̠ԠΠðשñĠòȩȠͫҠÍΠҍȍñҠŠԍðҠōӠŠҠȍñҠŠԍðҠōĠԠĠҠԠύ̍͠īîŠӍàč͍àīͫҠàԠϠ̍Πҍ֍ӠҠƍŠӠ٠ǠŠĠҠԠ͠Š̠ōƠӠŠǠȠŠҠƠĠӠӠĠύŠĠӮàԠРϠ΍ӺŠӍӺĭĠҠҍӺҠƠĠӠΠˍҠƠŠӠΠˍӠŠӠūԳũ٠ԠҍѠԴҠԱРԲԴàŠŠҠύŠԵàūԵРũɠԠΠӠĠōōūԲàŠŠŠϠԠԍРԠԠҍŠԳàӠƠŠӠƠŠԠҮŠҠӠĠ̠ϠӠĬΠԠРˍϠŠΠ͠ӠΠĮ٠ŠҠ؍ŠԍԺŠӠƠŠԠҍӠĠΠŠˍԺҠӠĠϠ΍ӠŠӠŠΠӍƠŠˠĠӠԮ΍̠ȍҠčҠӠĠÍӠҍӠҺҠōҠԍàˠϠҬĠâԠàӠԺ̍ԠҠĠōčˠˠƠԠРҠӍ̍ƍōԺàΠҠԠƍӠŠӠˠҠȠΠĠӠĠ˧ӍӠŠàӠĮ٠ŠҍԍàӠĢԠȍҠԍàӠŢԠӠúŠÍԺȍҠԍ֠ˠРɺ٠ʮŮҠԠԠӠӍ֍ҠȍҠҠԍàŠҢԠȍҠԍàĠҢԠԠŠĠԠō֍ҠРĠƠӿŠРϠޱؠŠгԠč֍ҠȍȍгҠԱ٠Ԡō٠ȍҠԱҠԠԠ׍ààԠҮΠҠҠ͍ҠРбޱؠԠƠǠȠӍԠԠΠ֍ҠԠōӠԠԠޱؠԠҍŠвōҠԱȠРĠ͠ĿР֍Ѡ֠ϠӠԱààԠҮРԠ̿ŠРϠޱРԠؠԠƩŠбԠ΍ȍŠԠŠōҠԱԠźƍؠԠ̠ύвŠƠӠŠӠϠōĠĠҠ͍ԍҠŠҠԠ΍ΠҠԠР׍֍Ҡ֠ՠòՠñՠðՠǠՠҠàŠ֠κŠ΍ԺōԺĠԠ΍ϠڠŠڠȠڠ֠ڠ ՠòԱՠưԠՠĸōҠՠijŠՠŠՠõƠՠˠՠҠՠ͠ՠĠӍӠ̠РƠҠŠΠŢРЍΠՠ·̠ՠ·ˠՠ·ÍԠՠ·č̠ՠ·ưȠՠ·ƱĠՠ·ƴĠՠųӠՠĹҠ                          ǍàūԴРũŠӍ̠ӍðԠñԠòԠ͠ԠԠŠԠŠӠȠӠĠԲũ٠ĠҍѠԳĠƠǠ˿ҠԱԠҍРԱԳàŠԠŠԠԍŠԴΠӠƠƠˍŠŠΠϠŠӍҠϠŠǍūԱàŠŠҠϠŠԲԠҍàūŠӠΠɠǍԠ٠ӠŠ̠ϠŮǠӍĠ٠ϠōԺ٠ؠԠϠύԠΠҠ̠òԠΠԠԍ٠ԠӍŠеĠҠ̠ō٠ӠŠԍŠҠӍе̠͍̠ͫԠԠԠƠԍðàððŠ̠ԍñàññúŠӍðҠԍñòĠ̠ō٠ŠÍҠŠčΠ٠ŠˍӠŠӠōĠ٠ԠΠ͍נҩĠͫȠҩϠ̠ԠΠðשñĠòȩ̠̍٠ŠҍĠҠčҠӍàȠԠōàԠԠҍŠĠſӠԠҠƠŠǍԍĠŽččǠҠȠōȍǠҠנōŠӠŠӍ٠ϠŠǍҮӠӠōӠĠΠŠӍ̮ԺĠǠˍˍƠԠŠōƠӠԠҠԠŠүŠčŠӍ٠ؠӠŠԍؠƬ؍ؠ٠źŬ٠ҠŠϠҍƬ؍ؠ٠٠ԠōҠԠɠĠưàҠҠҠҠàà°Ƭ؍ؠðĠƍàà°Ƭ؍ԠРϠԠϠ̍ȫͫҠÍñԠȠϠɠǍĠƍàà°Ƭ؍ؠðҠРԍźŬ٠ˠРŠΠҍƬ؍ؠƬ؍ؠȠԠŠȍ͠ӠŠӠȠӍƬ؍ؠŠԠŠŠōĠƍ٠ԺРѠō٠àĠŠŠō̠ĠȠƠŠčԠΠؠΠԍРōĠŠԠōŠƬؠŠΠҍؠōȍōԠϠ̍κŠӍؠؠϠԠҍŠŠŠǠӠōàϠ٠čӠŠà¢Š΍ӠŠӠĠӍŠŠƠŠǮӺ٠à٠čŠӍؠŠǠӠōӠٺŠӍΠԠō٠ؠؠԠҿԠōҩ٠ĠŠȍȍ٠ҩٍȫ̠ҍ٠ҩ٠ĠŠŠōō٠ؠŠҮҍźҩ٠ĠŠҮƠōŬؠà٠ŠӍؠàӠϠ٠čŠǠӠōӠٺ٠РҠҩٍѠ٠٠ΠҠĿРƠĠٍŠٍƠ٠ӠĠōàҠϠԠٍĠϠ٠ŠٽҍԠӺŭŠŠŨŠũȭŠȨϠөŭŠŨөٺŠӍĠҠŠҠ΍ҠԍàˠϠҢРӍŠٍӠŠӠŠٍ͠ŠٮŠԠҠƠӠ٠ӍɠѠōàҫƠԠŠҠύ٠ Ԡ٠ƠԠҍРٍźҠҠԠҠӍРӠԠϠÍҺӍ٠ؠԠҍٺ٠Ԡ٠ΠҿŠٍԺ٠ԠҠΠǿҩٍ٠Ԡ٠ӠčٺҠ΍ؠؠӠĿŠٍŠ٠ҍҠҠԠҠŻԠŠҠϠύ٠ ԠҠϠԠٍٺҠٍà٠٠ԠӠϠ٠čРŠǠԿѠōР·ƴĠՠųӠՠĹҠԍӠҍƠԠРϠŠӍҠϠǠҍƍҫؠԱՠưŠՠõ ՠò֠ڠȠڠҠڠƠՠΠՠ·̠ՠ·ˠՠ·ÍԠՠ·č̠ՠ·ưȠՠ·ƱĠՠӍ͠ǍӠ͠ӠӠǠč٠ʮŮҍŠڠӠՠİҠՠijԠՠĸ                 @ HI y@ H @HH @H @H @H H @' H @   HHHHH` @SL% @DR% @TR% @SE% @BU% @CM% @ER%hh ߠ`M%PAGE:105"S(4);"CLOSE ";DF$ZX20:868:"ANOTHER FILE (Y/N) ";:IN$:IN$"Y"220b]:135:BLOCKQ+SDDDĢ20:868:"INSERT DESTINATION DISK; PRESS ";:"";IN$i0*** WRITE DEST ***520:868:"WRITING...":(4);"OPEN ";DF$;",D";DD?(4);"DELETE ";DF$D(4);"OPEN ";DF$;",D";DDI(4);"WRITE ";DF$ NIBEG:ENBUL1L25255JI7IL16:NA$NA$((J)):JFNA$SF$540M INA$""Ģ20:868:"FILE NOT FOUND: PRESS ";:"";IN$:290*** READ SOURCE ***20:868:"READING FILE..."!SBSB2:EBNB1:BU%RWTSPAGE &BLOCKSBEB:URCE DISK; PRESS ";:"";IN$<*** GET DIRECTORY ***b20:868:"READING DIRECTORY..."BU%RWTSPAGE:BLOCK25:135:BLOCKENBU%*** FIND FILE NAME ***IBEGEN26:NA$""SB(I)256(I1):NB(I2)256(I3):L1(I6) ";SF$:(SF$)043018:1="DESTINATION FILE: ";DF$q(DF$)0DF$SF$:18:"DESTINATION FILE: ";DF$L2(SF$)20:868:"PRESS TO PROCEED; TO END ";:IN$:IN$(27)605:IN$(13)290!SDDDĢ20:"INSERT THE SOSD h12:1* m"DESTINATION SLOT: 6";: r(36):IN$H wDS(IN$)W |DS0DS6j DS1DS7360r DS} 14:1 "DESTINATION DRIVE: 2"; (36):IN$ DD(IN$) DD0DD2 DD1DD2395 DD 16:1"SOURCE FILE:":180:- T$"BY JOHN MATTHEWS, M.D.":1807 "8:1O '"SOURCE SLOT: 6";_ ,(36):IN$m 1SS(IN$)| 6SS0SS6 ;SS0SS7290 @SS E10:1 J"SOURCE DRIVE: 1"; O(36):IN$ TSD(IN$) YSD0SD1 ^SD1SD2325 c,1)14 M%(1,0)13:M%(1,1)12: M%(2,0)11:M%(2,1)10R M%(3,0)9:M%(3,1)8j M%(4,0)7:M%(4,1)6 M%(5,0)5:M%(5,1)4 M%(6,0)3:M%(6,1)2 M%(7,0)1:M%(7,1)15 *** GET FILE NAMES *** :3 T$"*** CONVERT: PASCAL TO TEXT ***CENTER TITLE" 20(T$)2:T$:1 ERR TRAP` ER%0Ģ20:868:"DOS ERROR...":::290f ~ *** INITIALIZE *** RWTS16384:RWTS (4);"BLOAD U/GET.RWTS" PAGE256 BU%RWTSPAGE:CM%1 BEGBU%:ENBU%PAGE M%(0,0)0:M%(01:105 sCH0IENı- xCH0II1:105D }II1:(CH);:105W READ A BLOCKi SL%SS:DR%SD| TR%(BLOCK8) PT%((BLOCK8TR%)8) SE%M%(PT%,0):RWTS 190:BU%BU%PAGE SE%M%(PT%,1):RWTS 190:BU%BU%PAGE c !PASCAL TO TEXTFILE CONVERTABY J. MATTHEWS, MD 7/6/81]ADAPTED FROM BYTE 2/82{WITH AUTHOR'S PERMISSION200:START OF MAIN *** SUBROUTINES ***d WRITE FILEiCH(I) nCH16II1:CH0:(I)32āJ33(I):" ";::II     LI# 8J`뷍췩P  `80  5B% "$    5B$  `R0$$ȱ%%% "ȩ LJ`Š$ AĠ% "$ A   :  .. % "$ AӠ$ AӠ`  P J sH$$mmmi8ȱ,8jLI%H "@ $h LI $ AϠԠ $ Aǧ͠ $ A̠͠ % "$L귩뷍`"# X% "$@ 0# i:0@ %% "LH% "$0 $$ H hi:% "$ AA% "$ 5B  AŠӠΠ% "$ AŠàˠϠˠٯο$ 5LG P췩   I J% "$ 5 @% "$ AϠՠȠϠΠҠ˿$ 5 ALE"# XH % " Šˠ$ 5 L#F 0D A0ӽ뷩췩P  5% "$ AĠàŠĠ٠LG !C ;CQ"췩   cB B fA WC CLG 5B% "$  AӠ " LDhH$LQE4hHɲ%ɳȱɶȱɵhH$$$LDhHȘH hhȩȩđȩȩȩ` AԠϬ`^ bH @ @R X % " $ A "$ AĠҠΠǠˠΠ8` X % " AǠ͠ŠӮة A$E 5ɍɕ ɈL}DL}D $H hȩ֑ȩ H AŠҺh$H 5ɍɕ Ɉ Aҭ ABAD `8P ȑ`P iiii8ȑ`8P ' 8ȑȩ`% "$ % " AӠӠĻϠӠΠ`P iiii8Hȱ hȑ` fA%mi8P j `.mm.`췠mmmi8HP ȪhȮLB8 LBQ B`% "$ % "$ `% "$ A˭ ɱ ɳ8鰍` X% "$ $ A˭ % "$ $ Aҭ % "$@( A`% "$ % "$ ` `hh LAlhh LAlEɬ LA `mmmi8mm@ LE X"#(@ A% " $ AΠ% "$@(@ A % "$(@ A% "$ A٠ʮŮ% "$(@ A% "$@( A` X % "$ AԠˠϠŠ % "$ AŠi $ 5ɍ     M  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>M`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh` P  )-- ;???? ------ ;?????? )------ ???????? -------- ???????? -------- ???????? -------- ;?????? )------ ?????? )---- ;??  KKKMMMM  ΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠנŠŠ1111GGGG]]]]ssss  iȖii7227idZZd2Z22Z22Z22Z2ȖdZZdi7227iiȖiL %$%L\ WhiteBlackScore:No MoveYour Turn InvalidMy Turn WinsBy It Is A TiePlay AgainBlack orWhite?ǯϮЍǯϮҠΠǯϮōLANGUAGE NOT AVAILABLE% "$% \ % "$% \ % "$% \ % "$% \ 80yLMIiH % "$ \ ? \ % "$E \ h , % "$U \ L:,TY 9 X 9 L % "$I \ Lu % "$` \ % "$i \  z#Xİ    կԮӠկǮŠ# կˠРɮŠ( ¯ŠҠ ¯ŠҮʠ¯ŠҠӠ ԮĠ̠נũ  ǯԠԠ ǯϠ ǯϮР ǯϮҠΠǯϮŠկΠ կ̠   ů̠͠ůȠ ůڠ7կԠҠ+կέנկέנ٠ǯҠŭΠϯֲ "Ԡ"ՠ !ǯŠŠ ǯŠ կŠ٠ ůȠڠ (*  ʆ `  = ʆ ` ee0#0 ӥ` eeHH hhLx ޛhhL}hhL  e`HH) )ehh `  ee0VR0NJ C m (mоemm` % "$ \ %% "$% \ $_ ,ɰ$) 8A#$_ ,Ɉ #$ Lɱɹ#$) 81 `  $ \ % "$ , % "$ \ % "$eإJJJJ 0 ) 0 L `    ` ʆ  ͦ % "$ \ hhL eK`H) )ehK` ****************4 * APPLE-DAYTON *K * DAYTON, OHIO *b ****************wPAGE 2 COMMENTS} 14:10:"CTRL-Y FROM MONITOR"Uv22:"=RUN MENU PROG =CATALOG =QUIT"^700sKB209ė::'Q'KB195ė::D$;"CATALOG"::'C'KB205ĺ:D$;"BRUN MENU 3.3":: KB="M"?"";:640KB(16384):KB12870016368,0666,"!+"FAIRBORN, OHIO 45324";024:15:"";D:700JNX:2:5:"APPLE-DAYTON DISK-OF-THE-MONTH"::8:"VOLUME ";VOL;", ";MTH$b9:10:"TO RERUN MENU PROGRAM":9:"-----------------------"!l12:9:"'CALL 1016' FROM BASICS":FORCE";:"INST. OF TECH, WRIGHT-PATT AFB, 7:30":h"CONTACTS-":"PRES- DICK PESCHKE, (513) 236-3619"!"SECY- STEVE ALLEN, (513) 253-0645":&"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1" APPLE-DAYTON "::4:"THE APPLE USERS GROUP OF DAYTON, OHIO":"GOAL- PROMOTE THE INFORMED USE OF APPLE":"II SYSTEMS":"MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH"1"MEETING- 2ND THURS EACH MONTH, AIR SCOLOR= 9:N = 4:A$ = "U1TU1QX1TX1Q": GOSUB 40:N = 3:A$ = "R1TR1WR1Z": GOSUB 50COLOR= 9:N = 3:A$ = "U4TU1QY0Q": GOSUB 40:N = 3:A$ = "R1TR1WR1Z": GOSUB 50 700D$"":D$;"NOMON C,I,O"::5002000600A:2:13::Q2X": GOSUB 50_ }COLOR= 9:N = 3:A$ = "Y0QT2QX1T": GOSUB 40:N = 3:A$ = "R2TR1WR1Z": GOSUB 50 ~COLOR= 9:N = 3:A$ = "U0TU4QX1T": GOSUB 40:N = 3:A$ = "R1TR1WR1Z": GOSUB 50 COLOR= 9:N = 4:A$ = "U0QU0TV1SX2R": GOSUB 40:N = 1:A$ = "Q3T": GOSUB 50 2:A$ = "U0QT5R": GOSUB 40:N = 1:A$ = "Q2Z": GOSUB 50 zCOLOR= 9:N = 5:A$ = "U0QU1TW0SX0RY0Q": GOSUB 40:N = 2:A$ = "R1TQ3Z": GOSUB 50 {9:N5:A$"U0QY0QU1TX1TW0S":40:N2:A$"R1TR1Z":50 |COLOR= 9:N = 4:A$ = "U0SV0RW0QT6T": GOSUB 40:N = 1:A$ = "CM0CM4FM1GO2HM4I":40k n2:N18:Y1:A$"T43Y04Z05Y06T47U4:T0;Z0;T0T6AZ0BZ0CZ0DZ0G":40:VOL. p9:N5:A$"U0KU1NW0MX0LY0K":40:N2:A$"L1TK3Z":50 xCOLOR= 9:N = 2:A$ = "U4TU4Q": GOSUB 40:N = 2:A$ = "R1TR1Z": GOSUB 50 5 yCOLOR= 9:N =;<0;=0;>":50:1:A$"080?80@44B40C60C80C40D80D60F60G60H":40 d9:N22:A$":42;24:03>03>46>48>07@07B2:B2F0@I4BI4DI02Z1N33:Z1((A$,Z,1))48X:Z1,Z1((A$,Z1,1))48Y((A$,Z2,1))48:Z: <13:X0:Y1:N2:A$"0W/0W^":50:A$"/^0/^W":40: BORDER F12:X24:Y4:N3:A$"237138039":40:N6:A$"315:152369362;71<8":50:13:N3:A$"1<91;:0;;":50:9V PA$"0~ : APPLE-DAYTON HELLO PROG. MASON FRIAR, DTD 5 JUL 80.WVOL23:MTH$"MARCH 1982"Z0:::16298,0:16300,0:16304,0:16302,0:0:Z1472:0,39Z:Z:60(Z1N33:Z1((A$,Z,1))48Y:Z1,Z1((A$,Z1,1))48X((A$,Z2,1))48:Z:S                         LQ L   Heh ei Heh ei   `% "$ \ % "  ލɍצ  m@L  ʩ  ʩ ȩ        ȩ              "$7 \ % "$% \ % "$% \    B ;  i( & i L   ʆ ʆ  % "$ \ LLQ  iAH% "$h i1H#$h   0i1 K     L  h l  , % "$/ \ $% \ LQ   0  ɍɈӦ  L\   m@L % L,L,LL\ p \ \ \ Y評6`7   W ȹȹ W :Gؠ?K% "$ % "$ % ";$iA C% "$ ͿƠԠӠ٬ԠήƠՠhGŠˠ©ҠŠשȠϠŠԬԠŮԠ٠٠ϠԠ@(L97٠٠ΠԠĠƠŬԠ٠Ϡ٠Π`xLҠŠ̠ȠΠŠήҠΠϠԠ8ϠӠŠĠ٠ҠΠϠРŠӮ&  ĠҮҠŠҠԮ`LˠӠԩŠҠ̠ȠӠŮ   oP8ra(Ӡ)FE(Ӡ)FE()2`$M6a(ՠĠԠΠ)FE()Pcca(ҠŠӠ)F'88drrE()a()UVWY_na()_Gq.?6@r`$qqd6?e`$`$%oP8ra()qqq_"oP8ra()qq6q6;oP8ra(Ӡ)FE(Ӡ)FE()q` $_Ha()qq/?$roP8ra() a()oP8ra()PqqoP8rq=>8rr=>8rra()q`$/`$`$`$`$>oP8ra()qqq6q6oP8r)GY/}a()3oP8ra(ӠӠ)2q UVWo/?rP/?$ra()YqqLqqqoP8ra()q/?rƠՠԠĠάԠԮҠԠӬՠ̠Š)BFa()ca(ŠҠӠĬŠҮ)KUVWXYnUVWYqM6kxa()GUVWa( M6@p()de$oa(ԠǠ)q<#UVW2Ya(ՠĠŠӠҠ)(c-a(ҠӠŠ)/c2a(ڧܠ)7a()<cuAa(Ԡ٠ϠŠ    ATCH OUT FOR WAR."990!ING FOR NOW.""YOU LIVED OFF YOUR STUDENTS MONEY.":"YOU WERE SUPPOSED TO WORK FOR A LIVING,":"NOT LIVE OFF YOUR STUDENT BODY."990"YOU GREW A LOT. YOU'RE AN EXCELLENT":"LORD BUT YOUR NEIGHBORS CALL YOU AN""IMPERIALIST PIG. W90*"YOUR PERFORMANCE COULD HAVE BEEN"X"SOMEWHAT BETTER, BUT REALLY WASN'T TOO""BAD AT ALL. ";(P8(1((1)12))1000;" STUDENTS""WOULD LIKE TO SEE YOU DEAD BUT WE ALL""HAVE OUR TRIVIAL LITTLE PROBLEMS." "":"SO LOHARLEMANGE, DISRAELI, AND JEFFERSON COMBINED"U"COULD NOT HAVE DONE BETTER!":990"YOUR HEAVY-HANDED PERFORMANCE SMACKS OF ""NERO AND IVAN THE TERRIBLE.""THE LEFTOVER STUDENTS FIND YOU AN""UNPLEASANT RULER AND HATE YOUR GUTS!":9(AP)Bf"YOU BEGAN WITH 10 BARRELS PER PERSON AND ENDED WITH"bkL;" BARRELS PER PERSON.":qpP133565rP110A1100S25001020uL71000zP110940|L10D130940P13960L10960-"A FANTASTIC PERFORMANCE! ! CO YOU WANT TO RETIRE?"N]"TYPE G TO GO ON, OR S TO STOP. ";:A$:A$"G"310^"IN YOUR ";Z;" YEAR TERM OF OFFICE, ";P1;" PERCENT OF THE "_"STU. BODY STARVED PER YEAR BECAUSE OF YOUR RULE."`P0P1a"A TOTAL OF ";D1;" STUDENTS DIED!!":L2:17:"";A;" ".3:10:"";P;" "824:CD0ıJ  Q  W i C(5(5)1)o!R:"HEADMASTER:I CAN'T DO WHAT YOU WANT."W"GET YOURSELF ANOTHER SECRATARY!"X:"I QUIT! GAME OVER!"Y990\"YEAR ";Z;" - DICE BUT YOU HAVE":7"ALSO BEEN DECLARED NATIONAL FINK."C9990q"HEADMASTER: THINK AGAIN, YOU HAVE ONLY"S;" LUNCHES. TRY AGAIN.""HEADMASTER:THINK AGAIN.""YOU ONLY HAVE ";A;" BARRELS OF SLOP."1:20:"";S;" "5)&PC210'(DPC:D209P5604)P0P1A*Z0Z1X+P1(D1100(PZ))m,PC:D1D1D:2150:"YOU STARVED ";D;" KIDS IN ONE YEAR!"5"DUE TO EXTREME MISMANAGEMENT YOU HAVE ":"NOT ONLY BEEN IMPEACHED "6"AND THROWN OUT OF OFF A BOUNTIFUL HARVEST(YC:HDY:E01 800F (C2)2C530h  THE RATS ARE RUNNING WILD~ C0C1:E(SC)SSEH:759800P0P1I(1(C((2AS10)10)P))C(Q20) HORRORS,A PLAGUEQ(100(1)17204400 ENOUGH GRAIN FOR SEED?C(D2)S455L710U440~ ENOUGH PEOPLE TO TEND THE CROPS?D10P510"BUT YOU ONLY HAVE ";P;" STUDENTS TO GO TO SERVICE. THINK AGAIN"440S(S(D2))800 E MORE GRAIN THAN YOU HAVE'QS4215759:430>710G410WSSQ:C1:`759g1"HOW MANY BARRELS DO YOU WANT TO ":"FERMENT?";D::D0511D0850 TRYING TO PLANT MORE ACRES THAN YOU OWN?D(A)450:C0 L759N400CT"HOW MANY BARRELS DO YOU WISH TO SELL";SUQ:Q0850cVQ(A)350lW720uX340^AAQ:SSYQ:C0c759"HOW MANY LUNCHES DO YOU WISH TO FEED""YOUR STUDENTS ";QQ0850 TRYING TO US;" LUNCHES IN STORE" ) Z11860A 6C(10(2)):YC17t 8"SLOP IS TRADING AT ";Y;" LUNCHES PER BARREL"| 9: : @"HOW MANY BARRELS DO YOU WISH TO BUY "; AQ:Q0850 BYQS330 C710 D320 JQ0340KAAQ:SSYQ:"THE STRING BEAN PLAGUE ATTACKED":15:"HALF THE STUDENTS DIED.":g "STUDENT BODY NOW NUMBERS ";P "THE SCHOOL NOW OWNS ";A;" BARRELS." Y;" LUNCHES FERMENTED PER BARREL." "RATS ATE ";E;" LUNCHES"  "YOU NOW HAVE ";SeE(390(1))( nY3:A(HY):I5:Q10 D0= Z0220s :::"HEADMASTER,I BEG TO REPORT TO YOU,":ZZ1 "IN YEAR ";Z;", ";D;" STUDENTS STARVED, ":I;" STUDENTS ENROLLED." PPI 775 759 Q0230 P(1(P2)):759D ";N$ ,:936:34,5Z -936:1:"LUNCHES IN STORE =":"BARRELS OF SLOP=":"STUDENTS="j .(N$)043 /4:"* * * * * * * * * * * *"; 46 5L(N$)(N$) 9I1L:X(23((1))):I ZD10:P10 dZ0:P95:S2500:H3000:EH8 "* ":6:"FOR A 10 YEAR TERM OF OFFICE"0 #6 ( )"20 LUNCHES WILL FEED A STUDENT ":"FOR ONE YEAR. HALF A LUNCH PER BARREL" *"IS NEEDED FOR FERMENTATION."::"EACH STUDENT CAN FERMENT 10 BARRELS.":I12000:I +"PLEASE TYPE YOUR NAME: "! *** HAMMURABI ***( 4:936Y6:11:"H E A D M A S T E R":8"ORIGINALLY(C) 1978, APPLE COMPUTER, INC."7:"MODIFIED BY DAVID BOCK 1979"::2"TRY YOUR HAND AT RULING":6 "GREENHILL SCHOOL SUCCESSFULLY      BRUN UN-NEW"230 SOUND ROUTINE6EP768781QD:P,DW] S2,89,32,49,57,56,49,190,190,197,197,199,189,190=8:64578c"I'M COPYING THE PROGRAM NOW..."rT768972~D:T,D(4);"BSAVE UN-NEW,A$300,L$CD""OK, UN-NEW IS ON THE DISK AND READY TO""USE, JUST TYPE:":" 0,32,88,252,160,0,185,156,3 9,128,153,14,4,200,192,12,208,243,160,0,185,168,3,9,128,153,5,5,200,192,30,208,243,169,22,133,37,32,63,255,96,62,62,32,85,78,45,78,69,87,32,60,60,66,89,32,69,68,87,73,78,32,71,79,69,73,32,32/ 32,32,70,69,66,82,85,65,877,250,240,27,234,24,216,169,1,101,250,133,250,169,0 101,251,133,251,144,233,32,221,251,32,221,251,24,144,74,234,200,177,250,208,225,200,177,250,208,220,24,216,169,4,101,250,133,175,133,105,133,107,133,109,169,0,101,251,133,176,133,106,133,108,133,11T TIME."f23p! COPY[ 162,255,173,48,192,169,8,32,168,252,202,208,245,964 32,74,255,160,0,185,5,8,201,0,240,11,234,200,208,245,32,221,251,24,144,54,234,24,216,152,105,6,141,1,8,169,8,105,0,141,2,8,169,5,133,250,169,8,133,251,160,0,1:64578)768A*"TO HAVE YOUR FREE COPY OF UN-NEW, SIMPLY";J3768x4"ANSWER YES AND I'LL COPY IT ON TO YOUR"=768>"DISK. DO YOU WANT A COPY OF THIS"G768H"PROGRAM? ";IN$R(IN$,1)"Y"900[768\:"WELL, MAYBE NEX" BRUN UN-NEW" 768&/768U"AFTER RUNNING UN-NEW, THE LAST"^ 768 "APPLESOFT PROGRAM WILL BE RECOVERED"768"READY TO BE RUN, LISTED, OR SAVED."76823:"PRESS ANY KEY TO CONTINUE ";:AA$:(13); 88( 23:"PRESS ANY KEY TO CONTINUE ";1 AA$= (13);K 8:64578T 768 "UN-NEW IS A MACHINE LANGUAGE PROGRAM" 768 "THAT IS LOADED IN PAGE 3 OF MEMORY AND" 768 "EXECUTED BY TYPING THE COMMAND:" 768  768. D"HAVE BEEN ENTERED AFTER THE NEW COMMAND"7 M768_ N"ALTHOUGH ANY IMMEDIATE EXECUTION"h W768 X"COMMANDS CAN HAVE BEEN ENTERED. ALSO," a768 b"NO APPLESOFT PROGRAMS CAN HAVE BEEN" k768 l"LOADED AFTER THE NEW COMMAND." 76 THAT HAS BEEN ERASED BY A NEW"( 768U "COMMAND. THIS PROGRAM WILL ONLY WORK"^ %768 &"DIRECTLY AFTER A NEW COMMAND. NO" /768 0"ADDITIONAL PROGRAM STATEMENTS (COMMANDS" 9768 :"WITH LINE NUMBERS PRECEEDING THEM) CAN" C768==============" D11500:+ T1202 5V (A$,21T,T);41T);(A$,21,T)u I(S)(S)(S)(S)(S) D125: D11500:  INSTRUCTIONS 768 "UN-NEW WILL RECOVER THE LAST APPLESOFT" 768 "PROGRAM !-  -----------------------9  ? dL fS16336X iT115_ l1 nT);">>";18);"UN-NEW";40T);"<< " pD150: s v2000 x6);"BY EDWIN GOEI FEBRUARY 1981" A$"==============INSTRUCTIONS_  -----------------------= ! ![ ! UN-NEW !y ! INSTRUCTIONS ! ! ! ! EDWIN GOEI ! ! ! ! FEBRUARY 1981 !  !       J 6ؘiiةee Jȱȱةeikmejln X   % ?`>> UN-NEW < ";A7$:5000 NER4ĺ"DISK IS WRITE PROTECTED."::RS,0:"CHANGE DISK & TRY AGAIN ? Y/N ";A7$:A7$"Y"20000 NER4380!NER9ĺ:"DISK IS FULL"::"NOW DELETEING FILES NOT COMPLETE."::;"DELETE REM"!aND$"NOMONI,C,O"-fN:5000kN ****************** * DISK ERROR * * HANDLE ROUTINE * ******************pNER(222):216,0:768qNX111X111sNXSX1tN:uNC$;FI$(X1):X112:I zNER10ĺ"F*ND$"MONI,C,O",N!/N33,30-2N20080:4NX1111V>NO$;FI$(X1):W$;FI$(X1)HNX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100JNC$;FI$(X1):L$;FI$(X1)MNRNO$;"DELETE REM":W$;"DELETE REM"WN7200 \NC$;"DELETE REM":L$0,6800,6900,7000,7100D)'"'ESC'=RET. TO INST. / ANY KEY=NEXT PAGE"h.'RS,0:HA:SE(RK):SE27X111nB'wG'325 N *************** * CREATE TEXT * * FILES FOR * * MANUAL USE * ***************21,60329"1%"DEL60351,60356":"60382":"60387"7*' *************** * PRINT * * ASSIGNMENTS * * TO SCREEN * ***************'X1111::FI$(X1)$'X16100,6200,6300,6400,6500,6600,6700199,60204:60249,60252:2d60270,60277:E60299,60302:X,60320,60329:k60350,60356:60380,60382:60390:X60385,60390:60400,60405:  "DEL60200,60204":"DEL60250,60252":"DEL60274,60277":"DEL60300,60302":"DEL603111:AN(X1)05600SX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100YlAN$"N"5700v7200D"NOMONI,C,O"E"DELETE TEMP EXEC"IC$;"TEMP EXEC"KND$;"EXEC TEMP EXEC"X60100:860101,60113: 6IS A"::"DISK IN THE DRIVE AND THAT IT HAS SOME"::"SPACE AVAILABLE..":RS,0::"THEN HIT ";A9$O$;"TEMP EXEC":W$;"TEMP EXEC""NEW""MONI,C,O""1 GOSUB 60000""60000 REM SET UP ROUTINE":"60499RETURN"33,30X1.* * NOW CREATE * * AND EXECUTE * * TEMP. FILE * ***************:RS,0:"DO YOU WANT 'REM' STATEMENTS ? Y/N ";AN$j:8:"A DISK TO CREATE A TEMPORY TEXT FILE"::"IS NEEDED. MAKE SURE THAT THERE ? ";:AN$:AN$(3)Ā+AN$"M"ĀMAN(AN$)64:AN1AN125100AN5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5500PAN(AN)AN(AN)Z:AN:AN(AN)0Ğ_AN$:d5100r| *************** * DONE SELECT"C -";FI$(3)""D -";FI$(4)4"E -";FI$(5)F"F -";FI$(6)X"G -";FI$(7)j"H -";FI$(8)|"I -";FI$(9)"J -";FI$(10)"K -";FI$(11)"L -DONE SELECTING.""M -ABORT PROGRAM" 22:CE:"SELECT OR DE-SELECT BY LETTER PART OF THIS PROGRAM."RRS,0:HA:SE(RK):SE6920000: CREATE TEXT FILES  ***************** * SELECTION * * MENU * *****************D$;"NOMONI,C,O""A -";FI$(1)"B -";FI$(2)":3"TO CREATE TEXT FILES ON DISK WHICH YOU":a"CAN 'EXEC' INTO A PREVEOUSLY WRITTEN":"PROGRAM. IF YOU WOULD LIKE TO CREATE":"THOSE TEXT FILES (12 OF THEM) NOW TYPE":"'E' OR TYPE ANY OTHER KEY TO PROCEED":"WITH WORKING INSTRUCTIONS."BrHA:SE(RK):SE8030000: GO PRINTbwSE8310000: SCREEN PRINTy|D$;"NOMONI,C,O":"AS PREVEOUSLY MENTIONED THIS PROGRAM":"SHOULD BE RUN BEFORE YOU BEGIN YOUR":"PROGRAM, HOWEVER AN OPTION ALLOWS YOUKE TO SEE A PRINTED LIST":LO"OF THE ASSIGNMENTS IN LINES 60000-60499":VQRS,0T:"TYPE 'P' TO PRINT TO PRINTER-":Y" OR":^"TYPE 'S' TO PRINT TO SCREEN-"h:" OR":m"HIT ANY OTHER KEY TO CONTINUE (CALL 768)"d1"LINES 60385-60390 ERROR HANDLING ROUTINE (CALL 945)"6"LINES 60400-60405 APPLESOFT POINTER FUNCTIONS. (DEF FN)"@:RS,0:" -HIT ANY KEY-":HAEJ"IF YOU WOULD LIYBOARD LOCATIONS."T"LINES 60299-60302 CURSOR POSITION LOC."""LINES 60320-60329 SCREEN SELECT LOC."'"LINES 60350-60356 SPEAKER & PADDLE LOCATIONS.","LINES 60380-60390 ERROR HANDLING ROUTINE TEXT:HOME COMMANDS."B "LINES 60101-60113 DOS COMMAND STRINGS.""LINES 60199-60204 WINDOW PARAMETER LOCATIONS.""LINES 60249-60252 CLEAR SCREEN CALL LOCATIONS."&"LINES 60270-60277 READ & SET KEUESTION":;"AND THEN THE PROGRAM WILL CONSTRUCT THE":k"ROUTINES YOU HAVE ASKED FOR AND RETURN":"YOU TO APPLESOFT.":RS,0:" - HIT ANY KEY-":HA"LINE NUMBERS WILL REPRESENT AS FOLLOWS.":"LINE 60100 ":1 "LATER WILL BE SHOWN A SELECTION MENU":a "FROM WHICH YOU MAY SELECT OR DE-SELECT": "THE GROUPS OF ROUTINES (LINE #'S) YOU": "WOULD LIKE IN YOUR PROGRAM.": "WHEN DONE SELECTING ENTER 'L'.": "YOU WILL BE ASKED ONE MORE QC ::RS,0:"DO YOU NEED INSTRUCTIONS ? Y/N ";A1$:A1$"N"5000 ***************** INSTRUCTIONS FOR USE ***************** "THIS PROGRAM SHOULD BE USED BEFORE YOU": "BEGIN YOUR PROGRAM.% n"UP MOST DOS COMMAND STRINGS,":U s"ASSIGNING VARIABLES TO FREQUENTLY USED": x"LOCATIONS IN MEMORY AND ALSO 'DEF FN'": }"FOR APPLESOFT POINTERS.": "THE PROGRAM WILL WRITE PROGRAM LINE": "NUMBERS BETWEEN 60000 & 60499 AND #1": * SEE LINES 30000 TO * * 30030 FOR PRINTER * * COMANDS. * * * ********************** eHA64795:AN(14) f"THIS PROGRAM IS AN AID TO PROGRAMMING.": i"IT'S PURPOSE IS TO SAVE TIME IN SETTING":* * JAMES E PFEIFFER * * (312) 289-7311 * * * * PROG. WAS WRITTEN * * ON AN APPLE II 48K * * WITH DOS 3.2 AND * * APPLESOFT ROM CARD * * *m * PRINTER / OPTIONAL * )Y60000  ********************** * APPLESOFT LINE * * WRITTER * * OCTOBER 31,1980 * * *U * WRITTEN BY                @*#r!$o8 rP"$a@*#r+$o8rP,$a@*#rS$YT$UVW ^$Yh$UV(WX6r$UVWX |$o8rP$a@*#r $YY$[p()2#@p(٠)2#@p(Πˠ)2#@p(ӠӠ)#UVW$$o8rP$a@*#r$o8 rP$aUVW#!`@*#r9()$!!Y*!a(Š)FE(ϠӠԠ)G!]!a(Ǡ)FGc !q!_! (#M65#N@"(rN@"(rN@"(rN@"(rN@"(r2#@p(̠ŠŠ)2#@[!]ΠҠ !M6 !N@"(r*!S(ҠԠŠƠŠ©)'!\!`@:()$!c!!a(ĠƠǠ)!Q!UVW !`@*#r9()$!!Y2!a(Š)FE(ĠӠҠΠ)G!c!$ !`$L!q !@Brp@*#r( !d6?eo8rPa@qY !q"!@Brp˹@*#r_ !BL!׷qq˱q˱ ˱q˱o8rPb˱d6?eYJ\!qUVWq.?6?rq.?6?rYM6`׷%q˱˱qW q`$ qq< o8rPqa(Ž)FE()F Gq.?6@r `$ q" o8rPa@*#r @p@ @Brp@*#;@rr o8rPa@ d6?eY `$\!`%Y! `)&@ M6c[UVW Y[  q.?6@r & b_ ?l M6N@"rD4 r@p()q t N˹@"rv ˹@p()x [K q˱q׷qUVW q.?6?r.?6?rd6?eY@p()/ UVƠՠӠРŠ)'la(Π٠Ϡ)Lna(ƠՠΧԠŠŠӠՠ)w\:|o8rPa(ԲϠנŠӮ)o8rP$S(ԠΠϠo8rPT_ca(ŠŠӠՠ٬ŠŠӠՠ̠ԠҠȠԠĮ) `\cTba(ŠŠӠϠȠŠӠԠ͠ȠŠРƠӠŮ)d\gcc%ha(ҺϠΠϠ)-ja(;@r$@p@*#;@rr @Brp@ `;@r$$!@Brp@$\\X[X]Ԡ֤bo8rPa@[%@a(̠ŠŠ)cJS(ӠٯΠ)&@K`@:()%[M6o8rPTo8rPVa()^Ġ٠)UVWY[T@p@*#;@rr@Brp@*#ro888 rrrPa@*# rG@Brp@$`@*8r8rr9@*#r$$^q8r8r@p@*#rUVW8ҴrX@p@*#r`@9@*#r$Y!`@@Brp@[d]ԠӠQxUVWҴq8r `@*#r9()$@p@*# rqo8rPa@Yq[Iq`ױ$UVW8ҴrX@p@*#r`@9@$YQo8rPM6a(ɠΠԠĠŠ%[Y x@p@X@p@*#;@rr@p@*;@r#;@rr@Brp@@B;@rrp@ױq\X[>`;@r;@r%[>]ӠŠӠŠŠ٠ǠΠפU q8r8r@B;@rrp@*#;@rr@p@*#;@rr@Brpro8rP&;@ra@*#rY1:UVW;@ro8rP(a@*#rY[!P]Ƞ֤ҠĠ-Rqױq@B;@rrp@*#;@rrTUVW;@rXW` ;@r%[!X@p@*# rqc׳qY`@9@$x`;@rrPqqa@*#r`(%[`@*#r:()$z [B]ӠŠӠΠ ϠԠή2UȱVW ȱqȱq/?Ҵr`-r%Yȱ0o8rP-ɸrq-r-rqɸqɸ[?0׹qUVW;@qqqR @Brp@*#rqNS ]ΠҠŠΠΠԠĠΠŠŠӠҠΠ!X `@*#r9()$\ _R \ @B;@rrp@*#;@rr:` @Brp@qo8rP` %PbE()GMz o8`$ `-r%Yȱ_  q]Š͠ϮA UȱVW ȱqȱq`$ `-r%Yȱ-rq4 \[]ҠŠӠՠĠРŠ. ]ҠŠӠՠĠРŠŮH ]ĠͤJ q 0 q`@9()%[Y : \D qN `@9()%[X Y4 qqҴ`׳$ q-rq_ L UȱVW ȱqȱq/?Ҵrҵ`ײ$ ײq-rq_  q6 ]ˠҠӠӮ' qz ]ŠԠŠӠԠĠŠŠŠԠȠҤТΠԠԠŠՠҠΠӮ _  [ qUVW d& \]ҠŠӠԠՠĠԠŠŠԠŠƠҠŠӠҤТΠʤҠŢ½Ϡ3 `$ @p(ӠƠ)q_ 8 `$ @p(ӠĠ)qC_ . `$ @p(Ġ)q_ 8 `$ @p(ӠĠ)q_ @p(ΠȠϠ) `;@r$  cc a(ҠŠƠ׺)# a(ӠĠӮ) a(ĠŮ)" a(ӠĠӮ) a(ӠƠȮ) ]ԢҠŮ T? ]Ơӣ\R@_Mo8rPa@*#rGAo8rP a(Ž)FG`@:()%[`%q`%[9o8rPa(ŠŽ)F888 rrr G[ o8r ] `׷$ ׷q cS(Ҡ̠Š)&@ `@:@$  o8rP a()G`@9@$o8rP a()GqҴײq`׹%Y^`ײ$>o8ҴrPa(ԭ)q8ҴҴrUVWM6Y[o8rPa@*#xr\o8rPa(ԠΠҠŠ)rPa(ǠĮ)W`M$ %Y`@9()$Zo8rPR@_Z\ `@9()$Z\P\\\d_>tײqq6UVW88ҴrrX@p@*#rqq-rq-rq8r8r@p@*#rG\_>UVWo8rPa@*#&rY\o8rPa(ҠŠ͠)FҴE()G/J`@9()$Lo8rPT`d$T_ML\ `d$TMҵqҵҴ_1T`c$`M$ `X$V׳q_o8a@*#&r`Ҵҵ%ҵqc`ҴҴ $d_gdo8rP_bg]h\0#v\ `@:()$ҵq_v3o8 rP\\H ñqñ`ñҴ$_v8\ o8 rP\\H ñqñ`ñҴ$_׳q@p@&UVW-rqY(]͠Τk0UVWX @Brp()@Brp()@Brp()@Brp()YqXX]Ԡ$Zq6 `׳$go8rPWbS(ҠҠƠӠ)'Ҵo8rPrD4rD4rC@"rC@"rS(ŠˠΠٯΩ)&@6 \ \ ҵq/? r]Š¬àĠҵ qq ]³Ӡqc]IUVW-rqYqñqɸqM6\0`׳$0Š)[@p()[LqqqҴqq qqN@"rC@"r@p()RN@"rC@"rC@"(rC@"rC@"r@p()@p()\@N@"&rC@"&rnN@"rC@"rC@"rC@"rC@"rD4)[@p(ӮˠŠ)[@p(ΠŠ)[@p(ؠΠ)[ @p(ȠԠŠ٠)[@p(ԠҠ)[@p(Ġ)[@p(Ƞ)[@p(׮Π)[@p(àΠ)[@p(ϠîؠŠ)[@p(ήٮ٠)[@p(ήîȠ)[@p(ήˠˠ)[@p(ϠӠ)[@p(٠)[@p(Ǡ͠)[@p(Ǡ)[ @p(ҮĠŠ)[@p(ӮҠ)[@p(ȠǠ)[@p(ΠԠ̠)[@p(ӠΠ)[$@p(ɠΠ٠)[@p(Ԡ)[@p(ҠΠ)[@p(֠Π٠)[@p(ήРĠ)[@p(ήʮΠ)[@p(p(ϠŠ)[@p(̠Ġ)[@p(ĠӠ)[@p(ӠӠ)[@p(Ӡ)[@p(٠Ԡ)[@p(ΠŠ)[@p(Š)[@p(ĠӠ)[@p(ӠΠՠ)[@p(ڠؠ)[@p(ˠŠˠ)[@p(ƠϠ)[@p(ϠҠ)[@p(ΠĠ)[@p(Ҡ)[@p(Š)[@p()[@p(ɠՠ)[@Š)[,@p(Ҡ٠ӠΠҠ)[*@p(ԠӠӠŠ٠)[-@p(ԠӠӠŠҠ)[-@p(Ҡ٠͠ӠΠӠ)[@p()[q_@p(٠)[@p(̭ŠĠӠΠ)[-@p(ŠŠŠӠԠ)[*@p(٠Š̠Š٠)['@p(̠ɠ̠ŠϠՠ)[$@p(٠ŠԠŠ)['@p(٠ŠӠĠ)[*@p(٠ŠӠנɠ̠ՠϠϠ)[*@p(ĠɠŠ͠ΠŠ)[)@p(ҠӠĠР)[+@p(ҠŠԠΠҠŠ)[*@p(̠ӠĠǠ)[*@p(ŠӠ٠Ԡ)[*@p(Š(РŠРΩŠٮ)[@p()[,@p(ԠɠԠŠӠĠ)[#@p(Ġɠ͠Ơծ)['@p(ԠŠӠΠΠ)[&@p(ҠɠĠǠ)[(@p(נӠŠӠ)['@p(ԩҮ)[%@p(РˠΩŠĮ)["@p(ΠũӠũ)[,@p(ЭΠ٠̠ӠԮө)[(@p(íΠŠĩĠŮ)[%@p(ʠŠĩΠĮ)[$@p(֠ŠŠ٩)[+@p)[*@p(íΠ٠ǩӠĭǠ)[#@p(ʠɠŠĩӮ)[(@p(֠ŠӠҩΠɮ)[+@p(РҠӠǩŠή)[(@p(ʠ̠ӠҩΠɮ)[#@p(֠٩ɠΠϮ)[$@p( ɠ@p(РŠ٩ŠŮ)['@p(ʠ٠Š̩)[&@p(֠ԠӠ٩ϠϮ)[(@p( ٠͠ĩŮ)[$@p(РŠԠũŮ)[#@p(Π٩Ԡҩ)[&@p(ЭΠ٠֠Ӡ٩ԠҮ)[(@p(Р̠ՠϠȩŮ)['@p(ΠũŠȠө)[&@p(ЭΠũӠŮ)[)@p(íΠŠĠŠ٩)[(@p(ʠՠŠ٩Ӯ)[)@p(֠٠ŠȠҩ)['ΠɠנŠө)['@p(ʠӠũԠĮ)[%@p(֠٠Π٩)[+@p(РŠĠԩŠٮ)[)@p(ʠ͠Ӡũή)[)@p(֠ϠҠˠ٩)[(@p( ɠĩŠ)[o@p(ŠԠ)[p@p(ҠϠŠ)[q@p()[(@p( ŠˠӠΩ)[*@p(Р٠͠ϩŠԮ)[(@p(ΠũŠǠǮ)[&@p(ЭΠǠĠӠө)[&@p(Ӡ̠٠)[f@p(ΠϠԠ)[g@p(ԠŠ)[h@p( Ҡ)[i@p(Ҡ٠)[j@p(٠Ӡ)[k@p(٠ϠԠ)[l@p(٠٠٠)[m@p(ĠϠΠ)[!n@p(٠ϠР)[%^@p(ŠϠРҠԠ)[)_@p(ԠԠƠ͠Š)["`@p(Ӡ̠ҠР)['a@p(ԠϠҠǠ)[b[(c@p(ŠϠĠŠҠϠ)[)d@p(ŠŠŠҠ)[$e@p(ϠŠԠ)['W@p(ŠǠ٠Ġ)[!X@p(ŠŠ)[Y@p(ŠӠ)[#Z@p(ŠϠŠҠ)[%[@p(ҠϠŠ٠)[)\@p(ԠԠҠŭҠ)[#]@p(ҠԠƠĠҠǠ)["O@p(Š̠Р)[P@p(ŠĠ)[Q@p(Π̠)[!R@p(ĠϠŠҠ)[%S@p(ĠϠˠԭϠŠ)[T@p(ҠҠ)[)U@p(Š̠͠)[(V@p(Š)['H@p(ŠϠԠϠӠ)[$I@p(ŠΠҮ)[#J@p(Š٠̠Ӡ)[,K@p(ҠΠǠԠ)[*L@p(ǠРԠƠ٠)["M@p(ҠŠҠ)[)N@p(͠Š5]ԢΠԠͿΤ#6]ҵΤ٢Πҵí<_,C@p(ԠǠӠϠ٠)["D@p(ĠԠΠ)[/E@p(٠ĭԠϠҠŠ)[F@p(ɠϠ)[&G@p(ŠϠŠŠŠŠӠ͠ϠҠҮ $]ŠנŠԠ%]ԠŠ٠θ=&]ˠԠӠǠԠK)]ƠՠΧԠԠϠΠԠ͠ΠŬŠҵΠŠ"ǠӮ4]ŠŠӠԠŠΠ? ]ŠԠŠҠΠӠҠӮ7!] ԠŠԠϠŠŠ7"]ԠŠԠŠҤТ=#]ŠĠ ]ŠϠŠٮ K d!e( \(#\l ]̭̽ҽ!]ӠҠŭ9]ĠΠԠŠҠΠӮ]ŠҠŠ<]ҠŠӠҠ5]ĠԠ ] ] ]٠Πˠ ]Ӭؠ ] ] ]3 ]ĠΠԠ               52)X8127ĉ:251248%+:D113161C136IXJIELATJ57.31Y1((R(T)(T))S)JX1((R(T)(T))S)g140X,96Y140X1,96Y1nJw242F0ē140X,96Y:F1140X,96YX9(0)X8(49152)X8127ĉ:136ID11621249168,0X8(491(D2):A2A1(D2)163%D10:2489D116D21221?ER49234,0`W1225g2x0,96279,96140,0140,1913F0ISLELATI57.3YR(T)(T)XR(T)(T)Y(YS):X(XS)D12240 217W1:136W0:136F34,21:" HOW MANY COMBINATIONS ";C1RI1C1v" ENTER FIGURE #";I;:" ";C(I)C(I)11C(I)12207208" ENTER NUMBER OF SIDES ";A1(I)ID116D20D2D21D2C1216DC0:A2:S95217'R(Q)(1.5Q)@SL0:EL720:A3:S85I217]R(Q)(2.5Q)vSL0:EL720:A3:S85217R(Q)1SL0:EL362:S95D112A60:199D116A360A2:217:" ENTER NUMBER OF SIDES ";A:A360AR(Q)(4Q)'SL0:EL360:A10:S950217GR(Q)(4(2Q))`SL0:EL360:A1:S95i217R(Q)(4(2Q))SL0:EL360:A10:S95217R(Q)((100Q))SL0:EL360:A1:S95217R(Q)((8Q)) SL0:EL36D13136V D164,167,170,173,176,179,182,185,188,191,194,194,161,200,201,202,255j R(Q).3Q100 SL0:EL3780:A5:S500 217 R(Q).3Q100 SL3780:EL0:A5:S500 217 R(Q)(4Q) SL0:EL360:A1:S95 217 "11. N SIDED POLYGON"C "12. N SIDED POLYGON - POINTS CONNECTED"_ "13. ALL OF THE ABOVE"x "14. SHOW X,Y AXIS" "15. DELETE X,Y AXIS" "16. COMBINATION" "17. END" "ENTER CHOICE ";D D13163 D113:D0 DD1 " 3. COS(4*Q),STEP 1"5 " 4. COS(4*Q),STEP 10"X " 5. COS(4*SIN(2*Q)), STEP 1"| " 6. COS(4*SIN(2*Q)), STEP 10" " 7. COS(SIN(100*Q)),STEP 2" " 8. COS(SIN(8*Q)),STEP 2" " 9. COS(1.5*Q), STEP 3" "10. COS(2.5*Q), STEP 3" " } ~" S.ROGOWSKI"" := " CREATIVE COMPUTING C V " JUNE 1980 "\ i 49168,0y X8(49152) X8127136 133 D10 " MATHGRAPH - MENU" : " 1. SPIRAL - OUT " " 2. SPIRAL - IN "8(49152) oX8127113# p110) qG r" ADAPTED FROM "M sj t" THE INTRICATE GRAPHS"p u v" OF THE POLAR FUNCTIONS " w x" BY R.T.SIMONI,JR. " y:" AND ": z" GRAPHIC GOODIES:" { |" THE CASE FOR POLARJ d:eC(20),A1(20)8f" MATHGRAPH - T.H.LOWE"Dg:::_h" SPACE BAR CONTROL "~i:" TO GO TO NEXT PAGE"j:" TO STOP DRAWING AND RETURN TO MENU"k:" TO RETURN TO MENU FROM COMPLETED "l" DRAWING"m49168,0 nX     PET(7)47:TRUMPET(8)188:TRUMPET(9)41:TRUMPET(10)46;P RICK WILLIAMSl 150 W DAKOTA APT 204 FRESNO CA 93705 WORK: 209 485-6181 HOME: 209 229-1848 THANKS TO HENRY RUDNER 781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,965TRUMPET(10):TRUMPET(1)94:TRUMPET(2)127:TRUMPET(3)154:TRUMPET(4)75:TRUMPET(5)63:TRUMPET(6)37:TRUMSOR":14)"PRESS ANY KEY TO CONTINUE>";E^ADVANCE$:ADVANCE$"@"ijVcCOUNT1ĺ:sh100:ANSWER$(ITEM):255mADVANCE$:ADVANCE$"@"ijrw21:75:"STARTING NEXT CYCLE":255:1280|14808776,255:777,255:778,173:779,48:780,192:',,21:75:"STARTING NEXT CYCLE":255611280I6I12:856:S;1480e@CYCLECYCLE1wEITEM1PAIRSJCOUNTCOUNT1::5)COUNT;:776,(1)1001:777,5:778:"/"CYCLEO:QUERY$(ITEM)TCOUNT11630'Y18)"AT THE FLASHING CUR(1)PAIRS)1:A5((1)PAIRS)1:A2ITEMA3ITEM1520TA4ITEMA5ITEM1520jA2A3A2A41520 A2A5A3A41520A3A5A4A51520I((1)10)5CHOICE((1)I)1:CHOICE51560CHOICE1060,1100,1140,1180,1220"1305I1PAIRS:ROSTER(I)I:0ITEM1PAIRSQMIX((PAIRSITEM1)(1)1)QUERY$(ROSTER(MIX)),ANSWER$(ROSTER(MIX))ROSTER(MIX)ROSTER(PAIRSITEM1):OPT1600ITEM1PAIRSA2((1)PAIRS)1:A3((1)PAIRS)1 A4(PHA$"*"1440I1100:]:PAIRSPAIRS1:ROSTER(PAIRS),QUERY$(PAIRS),ANSWER$(PAIRS)e19:" 1 MULTIPLE CHOICE DRILL":" 2 FLASHCARD DRILL"::OPTOPT1OPT21460OPTOPT1::"THIS DRILL CONTAINS ";PAIRS;" ITEMS"::34,4:ITEM):I02000:S:"RIGHT ";RIGHT;:" / WRONG ";WRNG;:" / TOTAL ";RIGHTWRNG:"> ";(RIGHT(RIGHTWRNG)100);:"% RIGHT"26)"PRESS ANY KEY>";ADVANCE$:ADVANCE$"@"ij1575ALPHA$,BETA$:PAIRSPAIRS1:776,10:777,5:778:ALdADVANCE$:ADVANCE$"@"ij'i1575snWRNGWRNG1:I0(1)6:BUZZ16:1265::200:"NO"CHOICE2);:1265:sI0(1)10:BUZZ023:CLICK(16336)::255:x:"THE CORRECT ANSWER IS":I0777::}"---> ";:I120:1265:ANSWER$(I1333:H50_KI1(MSG$(CHOICE)):776,(1)2501:777,7:778:(MSG$(CHOICE),I,1);:jL:255pPU:"RIGHT ";RIGHT;:" / WRONG ";WRNG;:" / TOTAL ";RIGHTWRNGZ:"> ";(RIGHT(RIGHTWRNG)100);:"% RIGHT"_26)"PRESS ANY KEY>";CE)::5)ADVANCE$,#ADVANCE$"@"ijR((ADVANCE$)1(ADVANCE$)51310X-v2ADVANCE$(FIVE$,1)134071390<RIGHTRIGHT1:"'";ANSWER$(ITEM);"'":"IS CORRECT"::50,127A175FI1RIGHT(RIGHTWRNG)6.67:" ->";::1280 G$(ITEM)1570!:37,4::?CLICK(16336)(16336)MJ033:S^J16tPITCH((1)8)1 TIME((1)2)9776,TRUMPET(PITCH):777,TRUMPET(TIME):778:776,TRUMPET(PITCH):777,TRUMPET(TIME)3:778: FIVE$(CHOI5)"2 ";ANSWER$(A3),5)"3 ";ANSWER$(A4)G5)"4 ";ANSWER$(ITEM)`5)"5 ";ANSWER$(A5)j1570t1260QUERY$(ITEM):5)"1 ";ANSWER$(A2)5)"2 ";ANSWER$(A3)5)"3 ";ANSWER$(A4)5)"4 ";ANSWER$(A5)5)"5 ";ANSWER5)"5 ";ANSWER$(A5)o1570&t1260:yQUERY$(ITEM):S~5)"1 ";ANSWER$(A2)l5)"2 ";ANSWER$(A3)5)"3 ";ANSWER$(ITEM)5)"4 ";ANSWER$(A4)5)"5 ";ANSWER$(A5)15701260QUERY$(ITEM):5)"1 ";ANSWER$(A2)$(ITEM) 35)"2 ";ANSWER$(A2)9 85)"3 ";ANSWER$(A3)R =5)"4 ";ANSWER$(A4)k B5)"5 ";ANSWER$(A5)u G1570 L1260 QQUERY$(ITEM): V5)"1 ";ANSWER$(A2) [5)"2 ";ANSWER$(ITEM) `5)"3 ";ANSWER$(A3) e5)"4 ";ANSWER$(A4)j((1)3) K0ğ K1ĝ+ K2ĞZ 18)(TITLE$,J,1);::::I12:1280:: MSG$(1)"TERRIFIC":MSG$(2)"KEEP IT UP":MSG$(3)"BULLSEYE" MSG$(4)"GREAT" MSG$(5)"RIGHT ON" 1440 $1260 )QUERY$(ITEM): .5)"1 ";ANSWERAPHICS MODE,"POKE -16304, 0"B xINITIATE PAUSE ROUTINE,CALL -856^ ySOUND 'BELL',CALL -198{ zENTER MONITOR,CALL -151 {GET SINGLE KEY INPUT,CALL -715 *,* 255:34,0:1665 :TITLE$"RANDOM DRILL TUTORIAL" :5:I15:J121 KOGGLE SPEAKER,X = PEEK (-16336)R rREAD SWITCH ON GAME CTRL #0,X = PEEK (-16287) sREAD SWITCH ON GAME CTRL #1,X = PEEK (-16286) tCLEAR ERROR FLAG,"POKE 216, 0" uGET ERROR CODE,X = PEEK (222) vSET ALL-TEXT MODE,"POKE -16303, 0" wSET GRURSOR TO RT MARGIN,CALL -868< k ISSUE LINE FEED,CALL -922Z lSCROLL TEXT UP,CALL -912 mREAD KEYBOARD,X = PEEK (-16384) nRESET KEYBOARD STROBE,"POKE -16368, 0" oSET CURSOR HORIZONTAL,"POKE 36, X" pSET CURSOR VERTICAL,"POKE 37, X" qT*dSET WINDOW LEFT MARGIN,"POKE 32, X"MeSET WINDOW WIDTH,"POKE 33, X"nfSET WINDOW TOP,"POKE 34, X"gSET WINDOW BOTTOM,"POKE 35, X"hCLEAR TEXT WINDOW / HOME CURSOR,CALL -936iCLEAR WINDOW FROM CURSOR DOWN,CALL -958 jCLEAR FROM C      000 300:2010 200$ 500= AX2Y2RR1:3000L 300:3010U 200 ,X2Y2;" / ";Y2;" ";:100:A(AA$):AA$"Q"1020 AX2RR1:4000 :,"TRY AGAIN":WW1:CV:4010  BY KLEM KALBERER, 9/80 C6ĢCV1:1020O :" SELECT '+' '-' '*' OR '/'--> ";:100:Z$AA$:AA$"Q"Āa AA$"-"2000s $AA$"*"3000 .AA$"/"4000 L200 V500 `AX2Y2RR1:1100 j300:1110 200:Y2X2X3X2:X2Y2:Y2X3 500 AX2Y2RR1:2RIGHT ",W;" WRONG":10:; ,:,"TRY AGAIN":WW1:CV5:w ,X2$::,Y2$:,"---"::,;:100:A(AA$):AA$"Q"1020}  ::3:,"MATH QUIZ....Q>UIT":34,4: R0:W0::" SELECT DIFFICULTY (1-6)--> ";:100:X1(AA$):AA$"Q"ĉ: X11X11:X0X0:AA$"":170. AA$(AA$,X):170> A$"Q"160Y (A$)42(A$)57103q AA$A$AA$:X(AA$) AB$((UL$AA$),3):103 X2(((1)X11)5)1:Y2(((1))5X1)1 X2$((" "(X2)),3):Y2$((" "Z$(Y2)),3) :22:R;"  ---MATH QUIZ--V2- =UL$(95)(95)(95):1010hdCV(37)1:CH(36):AA$"":X0:AB$UL$gCV:36,CH:AB$;:CV:36,CH2XiTM11000:(16384)127110k:::,"HURRY UP ":CV:105nA$:(A$)13ĺ:s(A$)8140 xXX    THE G.R.A.P.E. PRESS P.O. BOX 283 PORT ORCHARD WA 98366LE$",L80"216,0:R0:I0::"OPTIONS: 0 END UTILITY":10)"1 TRACE TREE":10)"2 DUMP FILE":10)"3 CHANGE RECORD":10)"4 TRANSFER FILE""CHOICE : ";AN:AN4680AN30,210,330,430S" DISTRIBUTED 1980 BY: b216,0:CL$:RR1:RLAST1570+l670Ev PEOPLEFILE UTILITY mR0:I0:RT(300),WRNG(300),NW$(300):936:"BIBLE PEOPLE QUIZ FILE READER/WRITER" D$(4):RF$D$"READ"FILE$",R":WF$D$"WRITE"FILE$",R":CL$D$"CLOSE":OP$D$"OPEN"FINW$(R):(NW$(R),1)"!"5201RT(R),WRNG(R)U216,0:CL$:RR1:RLAST1480:"INSERT NEW DISK, PRESS 'RETURN' ";AN$OP$:WF$;0&CNT:LAST:CL$0R1:610DOP$:WF$;RNNW$(R):(NW$(R),1)"!"610XRT(R):WRNG(R)"W PERSON: ";NW$:(NW$,1)"!"NW$"!"NW$I OP$:WF$;R:NW$:CL$:340w 216,0:CL$::"RECORD NOT FOUND...":340  TRANSFER FILE :"INSERT CURRENT DISK, 'RETURN' ";AN$ OP$:RF$;0 CNT,LAST:CL$ R1 520 OP$:RF$;R"!"::"RECORD ";R;" PERSON IS: ":NW$:400 r:"ENTER NEW QUESTION FOR RECORD:":"";NW$:"ENTER 'YES' RECORD: ";RTPTR:"ENTER 'NO' RECORD: ";WRNGPTR |(NW$,1)"?"NW$(NW$,(NW$)1) OP$:WF$;R:NW$:RTPTR:WRNGPTR:CL$:340* :"ENTER NE100))I" "NW$:310$ "RTPTR,WRNGPTR{ ,(I10)(I100))I" "NW$:(I10)(I100))I" 'YES'/'NO' POINTERS: "RTPTR"/"WRNGPTR 6CL$:216,0:250 @670 J CHANGE A RECORD T:"CHANGE WHICH RECORD? (0 ENDS) ";R:R0670 ^420, h80:(NW$,1)ЭAN3ıD ANIM$(NW$,(NW$)1)::"RECORD ";R;" PERSON: ";ANIM$:M 670^ FILE DUMP n OP$:RF$;0 CNT,LAST:CL$ " 0 PERSONS/LAST RECORD: "CNT"/"LAST II1:ILAST320 310 OP$:RF$;I NW$:(NW$,1)"!"ĺ(I10)(I;R;" QUESTION IS: ":NW$;"?":] x"'YES': RECORD "RTPTR". 'NO': RECORD "WRNGPTR".":AN3ı} RT(R)RTPTR:WRNG(R)WRNGPTR :"INPUT ANSWER TO QUESTION (Y/N): ";AN$:(AN$,1)"Y"170 (AN$,1)"N"140 RWRNG(R):80 RRT(R):80 CL$:T  FILE$"PEOPLEFILE":6306 TRACING THRU TREE FOP$:RF$;0Y(CNT,LAST:CL$2"FILE CONTAINS ";CNT;" BIBLE PEOPLE."<"LAST RECORD IS ";LAST;"."FR1POP$:RF$;RZNW$:(NW$,1)"!"180dRTPTR,WRNGPTR:CL$ n:"RECORD "  ĠŠŠΠōōԍ׍ĠŠԠŠΠԍ͍ӍĠŠŠŠԠˠƠŠנΠ΍Ӎ