Nibble Magazine

home *** CD-ROM | disk | FTP | other *** search

/ Nibble Magazine / nib28b.dsk < prev next >

Wrap

Apple DOS Disk Image | 1990-01-01 | 140.0 KB

•'… –•+JJJJ ¿Ö?©\Ö>≠˛mˇç˛Æˇ0ΩMÖ=Œˇ≠˛Ö'Œ˛¶+l>Ó˛Ó˛ â˛ ì˛ /˚¶+l˝ d'∞©®ç]6ë@≠≈5L“&≠]6ÓΩ5–Óæ5©ç]6LÑ:çº5 ®& Í"L}"†±B–»¿–˜†±Bô§5»¿–ˆLª&¢ˇé]6–ˆ6 éÈ7é˜7©ç¯7çÍ7≠‡7ç·7©çÏ7©çÌ7¨Á7àåÒ7©çÙ7äJJJJ™©ù¯ùx ì7¢ˇöéÎ7L»? â˛L≠Á78ÌÒ7ç·7≠Á7çÒ7ŒÒ7©çÏ7©çÌ7©çÙ7 ì7≠Á7ç˛6i çÒ7© ç·78Èçˇ6çÌ7 ì7`≠Â7¨‰7 µ7¨Ì7à†ÍÍŒÏ7åÌ7ŒÒ7Œ·7–ﬂ`x =∞(`(8`≠º5çÒ7©ç7≠˘5IˇçÎ7`©®ëB»–˚` Ë76`˚7`Ôÿ¢†à±>J><J><ô;Ë‡VêÌ¢ò–Ë¢UΩ<)?ù< ı`8Ü'éxΩç¿Ωé¿0|≠<Ö&©ˇùè¿å¿HhÍ†Hh π8à–¯©’ ∏8©™ ∏8©≠ ∏8ò†V–π<Yˇ;™Ω):¶'ùç¿Ωå¿à–Î•&ÍY;™Ω):Æxùç¿Ωå¿π;»–Í™Ω):¶' ª8©ﬁ ∏8©™ ∏8©Î ∏8©ˇ ∏8Ωé¿Ωå¿`Hhùç¿å¿`†¢V 0˚π;^<*^<*ë>»ƒ&–Î`† àaΩå¿˚I’–ÙÍΩå¿˚…™–Ú†VΩå¿˚…≠–Á©àÑ&ºå¿˚Y:§&ô<–ÓÑ&ºå¿˚Y:§&ô;»–Óºå¿˚Ÿ:–Ωå¿˚…ﬁ– ÍΩå¿˚…™\8`†¸Ñ&»–Ê&ÛΩå¿˚…’–ÍΩå¿˚…™–Ú†Ωå¿˚…ñ–Á©Ö'Ωå¿˚*Ö&Ωå¿˚%&ô,E'àÁ®–∑Ωå¿˚…ﬁ–ÆÍΩå¿˚…™–§`Ü+Ö*ÕxS©Ö&≠xÖ'8Â*3∞IˇÓxêi˛Œx≈&ê•&…∞®8 Ó9π: :•' Ò9π: :Ê&–√ :≠x)*+™ΩÄ¿¶+`¢ –˝ÊF–ÊG8È–`0($ p,&"ñóöõùûü¶ß´¨≠ÆØ≤≥¥µ∂∑π∫ªºΩæøÀÕŒœ”÷◊Ÿ⁄€‹›ﬁﬂÂÊÁÈÍÎÏÌÓÔÚÛÙıˆ˜˘˙˚¸˝˛ˇÆ_*‡¢é]6`©ˇç˚ç¿ç¿L/˚≠Ω5çÊ5çÍ5∫éõ3L3òôú†°¢£§•®©™ ∞±∏¿¡¬√ƒ≈Δ«»… Ã–—“‘’ !ÿ"#$%&'(‡·‚„‰)*+Ë,-./012Ò345678¯9:;<=>?8Ωç¿Ωé¿0^©ˇùè¿›å¿Hh √< √<ùç¿›å¿Íà–©’ ’<©™ ’<©ñ ’<•A ƒ<•D ƒ<•? ƒ<•AEDE?HJ>ùç¿Ωå¿h ™ ‘<©ﬁ ’<©™ ’<©Î ’<Ωé¿Ωå¿`HJ>ùç¿›å¿hÍÍÍ ™ÍÍHhùç¿›å¿`ÑHÖI†å¯†å¯†±H™†—HäH±H™hHëHΩé¿†Ωå¿›å¿–ˆà–¯h™Ωé¿Ωå¿†Ωå¿HhHhé¯›å¿–à–ÓΩâ¿†±Hô6»¿ –ˆ†±<ÖG†±H†—HëH(†jêΩä¿∞Ωã¿f5(–† :à–˙Æ¯†±H Z>(–§G†à–˝ÊF–˜ÊG–Û†±HZ…Xj∞ 8†0åxÆ¯ D9ê$ŒxÛ≠xH©` ï>Œ¯(©ç¯© Z>h Z>Lº=§.Ãx≠xHò ï>hŒ¯–Â h©@(LH>9LØ>†±HH•/†ëHh≈/© –·†±H®π∏?≈-–ó(ê ‹8∞é(¢Ü& ¬8Æ¯$8†ëHΩà¿` *8ê©∞ÓH†±<jhê k>Nx`Ö* é>πx$50π¯çx•*$50ô¯ôxL†9äJJJJ®`H†±Hjf5 é>h $50ô¯ôx`†±HÖA©™Ö>†V©ÖDôˇ;à–˙ô;à–˙©P ï>©(ÖE•D Z> ?©∞$©0çx8Œx D9∞ı•-–Ò ‹8∞ÏÊD•D…#ê”ê†ëH8Ωà¿`©Ö?†Ä–§E V<∞k *8∞fÊ?•?…êÏ†Ñ?©0çxô®?à˙§E á? á? á?HhÍà–Ò D9∞#•-©≈E•EÈÖE…∞8` D9∞ ‹8êŒx–Ò D9∞•-…– ‹8êåŒx–Î8`§-π®?0›©ˇô®?Δ? •D– •E…êÂΔEΔE` ì˛≠Å¿≠Å¿©ç‡ v:LD7çc*çp*çq*` ['å∑*` ~.Æõ3ö #∫éõ3© LÖ3LÑ©øÖA¢Ü@†°@Ö&òE&Ö&òA@Å@≈&–»–ÔΔA–„•A)ﬂÖCÜB°BHÖ&òE&Ö&òA@ÅB≈&– »–Ô§ChLQhÅB§A»å}8òÌ~ç|8Ìzùç≠zç©çI7©ÑçH7¢Ü@Ω)®Ω*ÖALì±@më@»–ÊA»–ÊA•A›,êÁò›+ê·äi™Ï(êÀ¢éú3ΩZÖ@Ω[ÖA¢°@ é¯§/¿–±@Õzê Õ{∞më@8•/e@Ö@©eAÖAÆú3›]êÕ•@›\êΔäi™ÏYêØ©?ÖA¨}àÑC©Ö@ÖB®±@ëB»–˘ŒÄΔAΔC–ÓLT$VXZdflpx|~Ä¡*˝*‰7Ë7Ó77 ÑÑ(˝*ó3]6‡7V<ﬂ<8:i:î:=®?»?ˇ?@##¸˝˝˝¸˝¸¸¸˛˛¸˛¸¸˝˛¸ˇ¸˝¸¸¸ˇ¸ˇ¸˛ˇˇˇˇ˝˛¸˝¸¸¸¸˝¸˛˛˛¸˝ˇ¸¸¸˛¸˝¸¸¸˛¸˝¸¸¸˝¸˝˝¸¸¸˝˝¸˛¸¸˛¸¸˝˝¸ˇ˛¸ˇ¸¸˝¸˝˛¸¸˝¸ˇ¸˛ˇˇˇ˝¸˛˛¸¸˛¸¸˛¸˛¸˛˛¸˛˛¸¸˛¸˝˝”ÅΩu*ì*`*ª5Í".Q`pN%$ñ#–$Ô$b"p"t"È"%≈%%‹%¢"ó"Ä"m%2"<"("-"P"y%ù%0#\#ç#|"6ËÂ$„„‡‡6ËÂ$„„‡‡¸$¸$eÿ‡<‘Ú‘%%gÑ<Ú≠È7JJJJçj*≠Í7çh*≠‡I –ç∂*¢ ΩaùU –˜Lº©@ç∂*¢ΩkùU –˜8∞≠∂*–© – ©L ≤% Q(©ç^*çR*(jçQ*0l^l\ ç∂*¢ΩwùU –˜¢Ωì*ùu* ˜≠±*çW* ‘'≠≥* H ù&h†ë@ ['≠_*– ¢/ΩQù– ˜≠SçÛI•çÙ≠RçÚ©–≠b*ç_*LÄ!`LøLÑL˝*Lµ7≠¨`≠¬*¨¡*`LQ(ÍÍLY˙LeˇLXˇLeˇLeˇeˇ —≠Q*H≠\*ë(h0L&& Í§$©`ë(≠≥* Ç&©çR* ∫ ∫ç\*éZ*L≥l8 —≠R* ™ΩHΩH≠\*`ç\*éZ*å[*∫ËËéY*¢ΩS*ï6 ¯`Æ∑*LxÆQ*…øu≈3'¢éR*Õ≤*– éR* é]*Æ]*ùËé]*…ç–uLÕ…ç–}¢éR*L§¢éR*…ç≠≥*g–^H8≠≥*– ^&hêÏÆZ*L…ç–©çR* &LôÕ≤*Ö…äÒ¢éR*–·©çR*%©ç∑* Q(L‹$≠Õ≤* ©çç¢éZ*©@–©–© -^* ∫ ≈ç\*å[*éZ* Q(ÆY*ö≠\*¨[*ÆZ*8`l6©çL≈†ˇå_*»åb*Ó_*¢ΩÕ≤*–Ëé]* §!)YÑ(» hê( πÑ(–÷≠Õ≤*L§≠…ç– ['LïLƒ&_*¨_* ^&ê©9 )©L“&¿–Ñ3© 9 )a ï §! ê0L jLY ì!ôu*»¿<êÛ ì!–˚(–¨_*©9 )†–À≠ì*…†≠u*…†–K¨_*©¿9 )?L †<©†ôt*à–˙`çu*©9 )' π!∞®–‡∞¨_*©9 )‡∞Œêä–©L“&Lƒ&©çe*çt*çf*çl*çm* ‹?≠]* §!–…ç–˜Æ_*≠e* )] )–ìÆc*vçc*é]*–‹¢ ›@) –¯∂ΩJ)0Ge*çe* éd* π!∞¢≠d* ®•E– •DŸU)êå•EŸX)ê–É•DŸW)ê–ı≠c*–îòJ®•Eôg*•Dôf*LË H©Äe*çe*h)t*çt*–Èú Ä!LÉ [' Æ!≠_*™ΩHΩH`Æ]*Ω…çËé]*…¨` ì!˙…†˜`©†ô∫5à–˙`©ÖDÖE §!…§<(LŒ! §!–¶D•E`8È∞0!… ∞ ˛!eD™©eE® ˛! ˛!äeDÖDòeEÖEêœ8`D&E`( §!≈8È∞0Ó… êÈ0Ê…∞‚¢ ˛! –˙DÖDL"•DLï˛•DLã˛≠^*t*ç^*`,t*P »©pMt*-^*ç^*`©ç≥*•DH #hçW*L‘'© ™" d'†òë@`©–© ™"LÍ"©–ˆ≠çΩ5≠ çæ5© çc* »"LÍ" £" å&–˚Lq6©L’#©çc*≠l*– ≠m*–©çl*≠l*çΩ5≠m*çæ5 Í"•E–L»&ÖA•DÖ@ C' N' '≠c*çª5L®&≠u*…†% d'∞: ¸"LÍ" Ø'–©ç≥*†òë@ N'©çª5L®& í'– ö' Ø'ˆ ™'Ò ¸"L#`© -e*… L © ’#≠s*¨r* ‡#≠m*¨l* ‡#≠s*¨r*Lˇ# ®"©-¬5…L–&© ’# z$™≠e*)–ér*ås* z$Ær*¨s*Lq$ ]# Q(lr*≠∂* •÷LÃ&© ’#8•ØÂg®•∞Âh ‡#•h§gLˇ#© ’#8•LÂ ®•MÂÀ ‡#•À§ Lˇ#ç¬5H ®"hLƒ'å¡5å√5ç¬5©çª5©çº5 ®&≠¬5ç√5L®&å√5çƒ5©LÜ6 ®&LÍ"L–& # ®"©#-¬5ç¬5≠∂*(© ±$ z$eg™òeh≈t∞pÖ∞ÖjÜØÜi¶g§h q$ Q(l`© ±$ z$8•LÌ`*™•MÌa*êE®ƒKê@>ÑÀÜ é√5åƒ5L $≠ ç√5≠çƒ5©ç¬5©ç¡5©çª5©çº5 ®&≠a*ç¬5®≠`*ç¡5` Í"LÃ&Õ¬5Æ_*éb*JLû%¢Ωu*ùì* ˜Lz%`≠∂*ç∑* $ » Q(lX•JÖÃ•KÖÕlV $ » Q(lV e÷Ö3ÖÿL“◊ eÖ3ÖÿL‘ &%©çR*LÉ &%©çQ*LÉ d'ê £"L4% N'≠e*)¢Ωn*ùΩ5 ˜© çª5 ®&`©@-e*≠f*–©˛çf*≠çº5© ™"Ló#© ™"≠ø5çf*`©L ≤%.©ç∂*† ó ¢ Ω∑*ùt* –˜©¿çQ*L—$© ≤%©L“&©ç∑*LÑÕ‡çÄ¿Õ‡çÅ¿Õ‡` £"≠O*ç¥*≠P*çµ*≠u*ç≥*– d'ê £"LÎ% N'≠e*)≠n*–Æo*Œo*Œn* å&8…ç–˜Â` ^&∞f≠\*ç√5©çª5©çº5L®& ^&∞N©çR* å&– ¸"©ÕR*Œ©L“&…‡ê)ç\*ÆZ* Ω ÄùL≥H≠∂*¶vË¶3‡›h`•Ÿ0˘h8` ¸" ['L≥ ù& N'©–°©çª5©çº5 ®&≠√5`≠µ*ÖA≠¥*Ö@` +ê≠≈5…L^6Lí6Í i:¢é√5`©– ©–©–©ç\* Ê?≠∂*•ÿ0¢ 'Æ\* ' » Q( ^&Æ\*©∞lZl^Ω?*™éc*Ωq)H Ä ≈Æc*ËhÌ`≠f*çø5≠h*ç¿5≠j*ç¡5≠ç√5≠çƒ5•@çO*•AçP*`†πu*ë@à¯`†±@ô©5»¿&–ˆ`†åQ*åR*`©ÖE í'Ls' ö' ™'– •@ÖD•AÖE–Ï†±@Ÿu*–„àˆ`8`≠Æ– †%±@ ™à±@ÜAÖ@ä`†±@`≠≥*≠¥*≈@–≠µ*≈A `M¬5 ) Í"L–&`8≠Ö@≠ÖA≠W*çc*†òë@†8•@È-ë@H•AÈ»ë@™ hH»ë@ä»ë@™ hH»ë@»äë@Œc*™h8È&»ë@HäÈ»ë@ÖAhÖ@LÂ'H©»ë@»ë@≠∂*hÖtÖphÖsÖo`hÖMÖÀhÖLÖ `•9ÕçV*•8çU*≠Ö8≠Ö9•7ÕçT*•6çS*≠Ö6≠Ö7`INI‘LOAƒSAV≈RUŒCHAIŒDELET≈LOCÀUNLOCÀCLOS≈REAƒEXE√WRIT≈POSITIOŒOPEŒAPPENƒRENAM≈CATALO«MOŒNOMOŒPR£IN£MAXFILE”F–IN‘BSAV≈BLOAƒBRUŒVERIFŸ!p†p°p†p p p p p`" t""#x"p0p@p@Ä@Ä@p@!y q q p÷ƒ”Ã“¬¡√…œ@ ¿†ê˛ˇˇˇˇˇçLANGUAGE NOT AVAILABL≈RANGE ERRO“WRITE PROTECTEƒEND OF DAT¡FILE NOT FOUNƒVOLUME MISMATC»I/O ERRO“DISK FULÃFILE LOCKEƒSYNTAX ERRO“NO BUFFERS AVAILABL≈FILE TYPE MISMATC»PROGRAM TOO LARG≈NOT DIRECT COMMANƒç$3>L[dmxÑò™ª»≈ÃÃœ†††††††††††††††††††††††††††††††††††††††††††††††††††††††Ñ¡––Ã≈”œΔ‘Ë7ª3ª4@~3!+,W,o,*-ó-Ó,ı,9,-ç.-~3~3â,ï,Ü,í,~3~3Ω,…,∫,Δ,~3‡¢é_*∫éõ3 j.≠ª5…∞ ™Ω *HΩ…*H`Lc3 (+L3 ‹+©ç„5Ææ5≠Ω5–‡–ËçË5éÈ5 …1ê^éú3Æ_*Ω )Æú3J∞≠Q*…¿–L_3Ls3©ùË4©ùÁ4éú3 D2Æú3ù«4ç“5ç‘5≠Ò5ùΔ4ç—5ç”5≠¬5ù»4 70 / ÷7 :/Æú3©ç≈5ΩΔ4ç—5Ω«4ç“5Ω»4ç¬5çˆ5ΩÁ4çÓ5ΩË4çÔ5éŸ5©ˇç‡5ç·5≠‚3ç⁄5L^/©™ù—5Ë‡-–¯≠ø5Iˇç˘5≠¿5ç¯5≠¡5 ™é˜5©ç˙5` / 4/ √2©-’5! ˜/© 08Œÿ5–˜ÆŸ5≠Ó5ùÁ4≠Ô5ùË4 70L3 (+≠ˆ50+≠Ω5ÖB≠æ5ÖCÆú3 2 70L3≠º5…∞ ™ΩÊ*HΩÂ*H`Lg3L{3≠ˆ50¯≠º5…∞Ó ™ΩÚ*HΩÒ*H` 3 ®,ç√5L3 3 µ1 ®,H ¢1†hëBLñ, ∂0∞±BH [1 î1h`Lo3 3≠√5 ⁄,L3 3 ¢1†±B ⁄, µ1L ,H ∂0hëB©@’5ç’5 [1Lî1©Äçû3–©çû3 (+Æú3Ω»4)û3ù»4 70L3 3L3 (+ ∂0∞ÔÓ‰5–ˆÓÂ5L- (+Æú3Ω»4L{3Æú3ΩΔ4ç—5ùÊ4©ˇùΔ4º«4å“5 70 ^/∞* /†åú3±B0 H»±B®h â-¨ú3»»–Á≠”5¨‘5 â-8∞— ˚/L38 ›2©¢ù5 ˙` ‹+©ˇç˘5 ˜/©çù3 /. /.¢ΩØ3 Ì˝ ˜ÜE≠ˆ7ÖD B. /. /. 0∞]¢éú3ΩΔ4S0J††Ω»4†™ò Ì˝Ω»4)† ∞à–˙πß3 Ì˝©† Ì˝ΩÁ4ÖDΩË4ÖE B.©† Ì˝ËËË†ΩΔ4 Ì˝Ëàˆ /. 02êß∞ûL3©ç Ì˝Œù3– ˝©çù3`†©H•DŸ§3ê˘§3ÖD•EÈÖEhiHLG.h ∞ Ì˝à€` /†å≈5±Bô—5»¿-–ˆ` /†π—5ëB»¿-–ˆ` ‹+© X0≠˘5Iˇç¡3©çÎ3©çÏ3¢8©ùª3Ë–˙¢‡å†π†3ùÛ3Ëàˆ‡D–Ï¢H–Ë ˚/¢äùª4Ë–˙ E0©¨3ààçÏ7çº4åΩ4»åÌ7© X0¨Ω4à0–ÏòÊ ¬7 J7L3¢¢–¢Ω«5ÖBΩ»5ÖC`,’5p` ‰/© R0©ø-’5ç’5`≠’50` K/© R0©-’5ç’5`≠…5ç7≠ 5çÒ7Æ”5¨‘5` 4/ K/ /(∞ Æ—5¨“5Lµ/†±B™»±B®Lµ/≠ª5…8` D2†ëBHà≠Ò5ëBH :/ ÷7†≠ﬁ5ëB»≠ﬂ5ëBh™h®©–©é”5å‘5 R0†±Bç‹5m⁄5çﬁ5»±Bç›5m€5çﬂ5` ‰/©LR0¨À5≠Ã5å7çÒ7Æ÷5¨◊5`©–©¨√*å7¨ƒ*åÒ7Æ˙5†LR0 E0(∞¨Ω3Æº3– Æº4–8`¨Ω4éó3åò3© R0` E0Æó3¨ò3©LR0≠≈*ç7≠Δ*çÒ7`éÏ7åÌ7çÙ7…–’5ç’5≠˘5IˇçÎ7≠˜5çÈ7≠¯5çÍ7≠‚5çÚ7≠„5çÛ7©çË7¨¡*≠¬* µ7≠ˆ7çø5©ˇçÎ7∞`≠ı7†… †…†òLÖ3≠‰5Õ‡5–≠Â5Õ·5f /≠Â5Õ›5ê–≠‰5Õ‹5ê≠Â5Õﬂ5ê–≠‰5Õﬁ5ê ^/ê◊`8≠‰5Ì‹5 i® /±B–≠ª5…8` 41L 1ç÷5»±Bç◊5 ‹/≠‰5ç‡5≠Â5ç·5 /¨Ê5`åù3 D2¨ù3»ëBç◊5à≠Ò5ëBç÷5 / ÷7©¿’5ç’5`ÆÍ5éΩ5ÆÎ5éæ5ÆÏ5¨Ì5éø5å¿5Ë–»ÃÈ5–ÏË5–¢†ÓÍ5–ÓÎ5éÏ5åÌ5`ÓÊ5–Ó‰5–ÓÂ5`¨√5Æƒ5ÑBÜCÓ√5–Óƒ5`¨¡5–Æ¬5Œ¬5Œ¡5`L3 ˜/≠√5ÖB≠ƒ5ÖC©çù3©çÿ5Óÿ5 0∞Q¢éú3ΩΔ40"†ËËË±B›Δ4– »¿–ÛÆú3` 02ê€∞œ¨ù3–¡¨ù3–Ô†ËËË±BùΔ4»¿–ıÆú38`≠ú3i#™‡ı`©¨ù3–óLw3≠Ò5!Œ50¢>Ò5 –˙êÓÓ5–ÓÔ5≠5`©çÒ5©çû3 ˜/≠Î3mÏ3 ÕÔ3ê©ˇ– ≠û3–7©çû3çÏ3içÎ3çÒ5® ®¢πˆ3ùÒ58©ôˆ3à –ÓêΩ ˚/≠3ç5–âLw3≠Ò5–`H ˜/¨5h ›2©çÒ5L˚/¢¸~ˆ4Ë–˙»Ã3–Ú ®¢ΩÒ5ˆ3ôˆ3à –Û`≠Ω5çÊ5çÍ5≠æ5ç‰5çÎ5©çÂ5†™≠Ê5J∞äê≠Â5mË5çÂ5ämÈ5jnÂ5n‰5nÊ5à–€≠ø5çÏ5mÊ5çÊ5≠¿5çÌ5m‰5ç‰5êÓÂ5`©–"©–©–©–©–©–LÌ?Í© –≠≈5ê8ç≈5©ÖH ~.(Æõ3ö`ˇˇ d‘…¡¬”“¡¬†≈Õ’Ãœ÷†À”…ƒ˛¸˛¸¸˛¸¸˝ˇ¸ˇ¸¸˝¸ˇ˛¸˝˛¸¸˝¸ˇ¸¸ˇˇ˛¸¸z¸¸¸˝¸¸˛¸#ˇ˝¸¸˝¸¸˝˝¸˝˛¸˛ˇ¸˝˛¸˛¸¸˝ˇ¸ˇˇ˝ˇ¸ˇ¸¸˝¸¸¸˝¸ˇ¸¸ˇˇ˝˝¸˛˝¸¸˛¸¸¸¸˛˝˛¸¸˛˝¸¸¸¸˝¸¸¸˝¸˝˛ˇ˛˝ˇ¸¸˛˛¸˛˝¸˝˝¸ˇ¸¸˝¸˛¸¸˝¸¸¸˝¸ˇ˝˛ˇ˛˝¸¸ˇˇ¸¸˝¸¸˝¸˛˝˛ˇˇ˝˝¸¸˝¸˝˝¸¸˝ˇ¸˝˛ˇ˛˛˛¸˝¸¸ˇ¸˝ˇ¸˝¸¸˝˛¸¸ˇ¸ˇ¸˛ˇ¸¸ˇ˛˛˛ˇ¸¸¸¸ˇ¸¸˛¸¸¸¸˛˝˛˝¸ˇ˝¸¸˝¸˝ˇ¸˝¸¸¸˝¸˝˝¸¸¸ˇ¸¸˝¸¸¸˛¸ˇ¸¸ˇˇ˝ˇˇ˛ˇ˝¸˛¸¸¸¸˛˛˛¸˝¸˛¸˛¸¸ˇ¸¸¸˝¸˝˝¸¸ˇ¸˝˝ˇ˝˛¸˝˝¸˛ˇ¸˝ˇ¸ˇ˛˝˛¸¸˝¸˝˛¸¸¸¸ˇ˝¸ˇ¸¸¸¸ˇ¸¸¸˝¸¸˝¸˛ˇ˛¸¸¸ˇ¸¸¸¸˝¸¸¸¸¸˝˛˛˝˛˝ˇ¸˛˛¸˛˝¸˝˝˛ˇ˛¸ˇ¸ˇ¸¸˝¸¸ˇ¸ˇˇ¸¸¸˝¸˛¸¸˝¸˛¸˛¸˝¸¸˝¸˛˝˝¸¸¸¸¸˝ˇˇ¸˝˝¸¸˛¸¸ˇ¸¸˛˝¸˛˛¸˝¸¸ˇ˝˝ˇ¸¸ˇ¸˝˛¸¸ˇ¸ˇ¸¸ˇ¸¸˝¸˛˝¸¸¸¸¸˝¸˛˛˛˝˛ˇ˛¸¸¸¸˝¸¸¸˝¸˝˛˝˝˝¸¸˝ˇ˝¸˝˝˝ˇ¸¸¸¸¸ˇ¸¸¸¸¸ˇ¸¸ˇˇ˛¸¸˛¸¸ˇ¸˛¸˛¸¸¸¸˝¸ˇ¸¸¸ˇ¸¸˝¸˛˛ˇ¸˝ˇ¸˛˝¸˝¸˝˛(X(K),0)∂∫¿Ç! ≠L–0´9900‘ÅJ–0¡L:∫:Ç6ﬁÇGË∫:∫D$;"PR#0"MÚ≤`¸≤ DO IT AGAIN?f≤œπ…16368,0:ó:¢10:∫"WOULD YOU LIKE TO REPEAT WITH THE":∫" SAME SETTINGS <Y/N> ? < >";BS$;BS$;:æA$:∫A$≠A$–"Y"ŒA$–Á(121)ƒ∞1690:´870$≠A$–"N"ŒA$– CLEAR THE DECKSH≤,R≤ START PRINTING2\≤\f∫:∫D$;"PR#"PS$:∫Á(9)"136N":∫PC$(1,1);gpÅN–1¡Rtz≠H–0´910ÉÑÅG–1¡H:∫:ÇééÅK–1¡MπòBF$–"":≠E$(K)–"Y"ŒE$(K)–Á(121)ƒBF$–B1$Œ¢≠T$(K)–""ƒ∫:´960¨ñ1:∫R$;:∫¿Y(K));PC$(X(K),1);BF$;T$(K);BZ$;PC$ DOWN FROM THE TOP":∫" DO YOU WISH THE PRINTING TO BEGIN ? ";:Ñ"";A$:H–Â(A$)ñ ≠Hœ66ƒ∫BL$;BL$:∫"THAT WILL BE OFF THE PAGE AT THE BOTTOM":∞1990:´790◊*≠H—0ƒ∫BL$;BL$:∫" PLEASE USE A NUMBER BETWEEN 1 AND 66":´790Á4∞1990:∞1760>∞1690:∫:∫D$;"PR#0":≤$:∫"THAT IS LONGER THAN AN 11-INCH PAGE;":∫" ARE YOU SURE <Y/N> ? < >";BS$;BS$;:æA$:∫A$r‰≠A$–"Y"ŒA$–Á(121)´770åÓ≠A$–"N"ŒA$–Á(110)´720¨¯≠((2 M)»L)œ66ƒ∫BL$;BL$:´730Ÿó:¢10:∫"HOW MANY REPETITIONS ? ";:Ñ"";A$ÂR–Â(A$)Mó:¢10:∫"HOW MANY LINESENTERED <Y/N> ? < >";BS$;BS$;:æCE$:∫CE$Cî≠CE$–"Y"ŒCE$–Á(121)´690_û≠CE$–"N"ŒCE$–Á(110)´690q®∫BL$;BL$:´650~≤ó:ÅK–1¡Màº∞1510éΔÇ‹–ó:¢10:∫"HOW MANY BLANK LINES":∫" BETWEEN FORMS ? ";:Ñ"";L$:L–Â(L$):A$–""X⁄π…16368,0:≠((2 M)»L)œ66ƒ∫BL$;BL≤X≤ PREPARE THE FORMb≤%l≤Övó:¢10:∫"HOW MANY LINES (1 TO 33) DO YOU WISH":∫" TO PRINT ON EACH FORM ? ";:Ñ"";A$:M–Â(A$)—Ä≠M—1ŒMœ33ƒ∫BL$BL$:∫:∫" SORRY, IT MUST BE BETWEEN 1 AND 33":∞1990:´630'äπ…16368,0:¢13:å…958:¢14:∫"DO YOU WISH IT C,S";SL;",D";DR:∫:∫D$;"READ";F$3ÑM:ÑH:ÑR:ÑL:ÑCE$>ÅK–1¡MO&ÑX(K):ÑE$(K)p(å54572:ÅB–512¡768:≠‚(B)—œ0ƒÇŒ+T$(K)–"":AD–Â(T$(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:Çÿ-ÑY(K)ﬁ0ÇÒ:∫D$;"CLOSE";F$˚D∞1760N©≠F$–""ƒ380Æ≠F$—œ"?"ƒ510`∏≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DRâ¬∞1990:≤ CALL THE KEYPRESS SUBROUTINEóÃπ…16368,0†÷´420¶‡≤¿Í≤ READ THE DISK FILEΔÙ≤„˛FLAG–2:∫:∫D$;"VERIFY";F$FLAG–3:∫:∫D$;"OPEN";F$;"N THE DISK <Y/N> ? < >";BS$;BS$;:æA$:∫A$BÜ≠A$–"N"ŒA$–Á(110)´620\ê≠A$–"Y"ŒA$–Á(121)´420nö∫BL$»BL$:´380˝§FLAG–1:ó:¢10:∫" WHAT FORMAT DO YOU WISH TO USE?":∫" PRESS ? TO SEE A CATALOG OF THE DISK":∫:Ñ"FORMAT NAME: ";F$:≠„(F$)œ15ƒF$–Ë(F$,15)L$;BL$;:´320Ö^¢17:ñ1:π…16368,0:å…958:∫"ENTER SLOT NUMBER FOR YOUR":∫" PRINTER INTERFACE (1-7): <1>";BS$;BS$;:æPS$:≠PS$–CR$ƒPS$–"1"†hPS–Â(PS$):¢18:ñ28:∫PS$ær≠PS—1ŒPSœ7ƒ∫BL$;BL$;:´350(|ó:π…16368,0:¢10:∫"DO YOU WISH TO USE A FORMAT":∫" WHICH IS O6>";BS$;BS$;:æSL$:≠SL$–CR$ƒSL$–"6"=,SL–Â(SL$):¢11:ñ22:∫SL$_6≠(SL—1)Œ(SLœ7)ƒ∫BL$;BL$;:´290”@¢14:ñ1:π…16368,0:å…958:∫"ENTER DRIVE NUMBER FOR YOUR":∫" FORMAT DISK (1-2): <1>";BS$;BS$;:æDR$:≠DR$–CR$ƒDR$–"1"ÓJDR–Â(DR$):¢15:ñ22:∫DR$T≠DR—1ŒDRœ2ƒ∫BX$»"N":LL(3)–136:PN$(3)–"COMPRESSED"gÊPC$(4,1)–EX$»"X":PC$(4,0)–EX$»"Y":LL(4)–80:PN$(4)–"UNDERLINED"m≤ñ˙B1$–EX$»"!":BZ$–EX$»Á(34):≤ BOLDFACEú≤∞≤ MAIN PROGRAM∂≤""ó:π…16368,0:¢10:∫"ENTER SLOT NUMBER FOR YOUR":∫" FORMAT DISK (1-7): <PRINTER COMMANDS ¥≤e æD$–Á(4):CR$–Á(13):BS$–Á(8):EX$–Á(27):BL$–Á(7):≤COMMONLY USED CONTROL CHARSü »PC$(1,1)–EX$»"N":PC$(1,0)–"":LL(1)–80:PN$(1)–"NORMAL"‡ “PC$(2,1)–Á(14):PC$(2,0)–Á(15):LL(2)–40:PN$(2)–"DOUBLE-WIDTH"$‹PC$(3,1)–EX$»"Q":PC$(3,0)–ESEATH":∞1470L Z¢20:∫"*COPYRIGHT (C) 1986 BY MICROSPARC, INC.*":∞1990:∞2050s d¢1:ñ13:û:∫"THE FORMS SHOP":ù:π34,1~ n•´1880Ñ x≤ï Ç≤ SET UPõ å≤Î ñNC–4:ÜL(55),LE(55),M(55),Y(55),T$(55),E$(55),X(55),PC$(NC,1),PN$(NC),LL(NC)Ò †≤ ™≤DISK AND “ ≤*******8.1.86*********9≤* FORMS.SHOP *U≤* BY PAUL S. DUNSEATH*q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** Pó:¢10:ñ13:û:∫"THE FORMS SHOP":ù:∫:ST$–"BY PAUL S. DUN ,I) (1»RR(DSET)À100)Ã(…I)H™D1(DSET,I)–D(DSET,I) (1»RR(DSET)À100)Ã(…I)m¥B1(DSET,I)–R1(DSET,I)…D1(DSET,I)ÄæB–B»B1(DSET,I)ì»R–R»R1(DSET,I)®“DD–DD»D1(DSET,I)æ‹X4$–‰(R1(DSET,I))ÍÊ≠È(X4$,4)œ"D"ƒX$–X4$:∞3500:X4$–X$:´1530X4$–‰(¬A(R1(DSET,V(DSET) Z∫:∫"PRESENT VALUE":∫Md∫"PERIOD EXPECTED ESTIMATED EXPECTED"án∫" REVENUES EXPENSES PROFITS":≤8/2/3 SPACESøx∫" (PR. VAL) (PR. VAL) (PR. VAL)":≤8 SPACES»Ç∫UL$ŸåB–0:R–0:DD–0ÍñÅI–1¡T(DSET)†R1(DSET,I)–R(DSET X3$–‰(¬A(B(DSET,I)))W∫√3…(Iœ9));I;√10…„(X1$));X1$;√10…„(X2$));X2$;√11…„(X3$));X3$f≠CP–1ƒ1330û(≠I–8ŒI–16ƒ∫:∫"PRESS <RETURN> TO CONTINUE ";:æA$:∫:∫§2ÇŒ<∫:∫"RETURN RATE";:∫√18);RR(DSET);" %"ËF∫"COST";√25);CC(DSET)P∫"END VALUE";√20);R(DSET,I)∫X1$–‰(R(DSET,I))Iƒ≠È(X1$,4)œ"D"ƒX$–X1$:∞3500:X1$–X$:´1240bŒX1$–‰(¬A(R(DSET,I)))wÿX2$–‰(D(DSET,I))£‚≠È(X2$,4)œ"D"ƒX$–X2$:∞3500:X2$–X$:´1270ºÏX2$–‰(¬A(D(DSET,I)))—ˆX3$–‰(B(DSET,I))˝≠È(X3$,4)œ"D"ƒX$–X3$:∞3500:X3$–X$:´1300Ç»≈ÃÃœ†††††††††††††††††††††††††¡àààààààà†††††††††††††††††††††¡àààààààà¡–“…Ã†±π∏∂†††††††††††¬àààààààà†††††††††††††††††††††¡––Ã≈”œΔ‘Æ√œÕ–¡“≈†††††††††††††Δ…ŒƒÆ≈Õ†††††††††††††††††††††††ÕœŒ…‘œ“ÆÕœƒ”††††††††††††††††††˛zˇ#ó:±RESS A KEY ROUTINE%º≤´%Δ¢24:å…868:ñ7:∫"PRESS TO CONTINUE";:ÅPAUSE–1¡250:Ç:¢24:ñ7:∫"PRESS <RETURN> TO CONTINUE";:ÅPAUSE–1¡250:Ç:≠‚(…16384)—128´1990:≤10 SPACESª%–π…16368,0:∫¡%⁄±«%‰≤€%Ó≤ SCREEN SCROLL·%¯≤&¢24:ÅI–1¡24:∫:ÅJ–1¡75:Ç:Ç:CK DRIVE DOOR":´1950@$v≠ER–4ƒ∫"DISK IS WRITE-PROTECTED.":´1950v$Ä≠ER–9ƒ∫"DISK IS FULL. INSERT ANOTHER DISK.":´1950±$ä≠FLAG–2ÕER–5ŒER–6ŒER–254ƒ∫F$" NOT ON THIS DISK.":´1950—$î∫"ERROR "ER" IN LINE "EL"."Ú$û∞1990:¥FLAG´420,420,420,1150¯$®≤%≤≤ P/N> ? < >";BS$;BS$;:æA$:∫A$;:π34,1<#≠A$–"Y"ŒA$–Á(121)´830Y#&≠A$–"N"ŒA$–Á(110)ƒó:´630m#0∫BL$;BL$;:´1810s#:≤á#D≤ ERROR TRAPSé#N≤ ∏#XER–‚(222):EL–‚(218)»256 ‚(219):å…3288Â#b≠ER–5ŒER–6ŒER–4ŒER–8ŒER–9ƒ∫D$;"CLOSE";F$$l≠ER–8ƒ∫"I/O ERROR--CHE∫"NO. OF REPETITIONS = ";R:∫"FIRST LINE IS ";H;" LINE(S) FROM TOP":u"Í≠CE$–"Y"ŒCE$–Á(121)ƒ∫"TEXT IS CENTERED":´1790ì"Ù∫"TEXT IS LEFT JUSTIFIED"¢"˛π34,9:©200…"ÅK–1¡M:∫"LINE # ";K;": ";T$(K):Ç:∫"#©255:π…16368,0:ñ1:¢23:å…868:∫"IS THIS SET-UP OK <Y– + ( ÿ.!? %%%% . !%%- >>>< (&20 *, **>> "2*&"" >> ">> "8""> """"""< >> "ÿ+"*:<"">""""""""""""">>><2"<""">""" "" ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>>00000>"PREPARE PRINTER AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:≠‚(…16384)—128´1690:≤17 SPACES]!Æ¢23:å…958c!∏±i!¬≤ç!Ã≤ USER'S VERIFICATION OF SET-UPì!÷≤C"‡ó:∫"SUMMARY OF THE FORMAT YOU HAVE CHOSEN :":∫:∫"LINES PER FORM = ";M:∫"BLANK LINES BETWEEN FORMS = ";L:E$—œÁ(121)ÕE$—œ"Y"ƒ1600$ JE$(K)–E$7 TLE(K)–(L(K))À2K ^Y(K)–M(K)…LE(K)j h≠CE$–"N"ŒCE$–Á(110)ƒY(K)–1p r±v |≤ë Ü≤ PRINTER PREPARATIONó ê≤® ö¢23:ñ1:å…958O!§¢23:ñ1:∫" PLEASE AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:¢23:ñ1:∫" PLEASE CALCULATION"≤i,≠X$—"1"ŒX$œ‰(NC)ƒ∫BL$;BL$:∫"SORRY, IT MUST BE ONE OF C, I, W, OR R":∫:∫:∞1990:´1540ö6X(K)–Â(X$):M(K)–40:L(K)–80 „(T$(K))ÀLL(X(K)) @π…16368,0:ñ1:¢20:∫"DO YOU WANT BOLD-FACE PRINT <Y/N>? < >";BS$;BS$;:æE$:∫E$:≠E$—œ"N"ÕE$—œÁ(110)Õ’…ç–L´Ö˝HòHäH•˝…¡0…€§¿–!¢LD…∞0…∫§¿ ¿– ¢LD¢LD¢Ω˚çcΩ¸çi•˝)? Ö©iÖ•iÿÖ•iÖ•% Ö¢† Æ•e$Ö•iÖ•Ê8È eÖ±§2¿?–I†ëÊÊ –—h™h®hL˝• )Ö•jjjj) Ö•j)‡Öjj)Ö`ÍÍÍÍ4—–»≠î—–©ôàô––`»ò™˛– ˛`,T¿,Q¿`,T¿,V¿,P¿`,T¿,P¿,W¿`,P¿,W¿,U¿`≠ø…L`√œŒ‘‘“¡–”∫††”≈‘ø††“≈Õœ÷≈ø††‘“¡–”†Δ’ÃÃ†¡ÃÃ†‘“¡–”†“≈Õœ÷≈ƒ±Æ†”≈‘†‘“¡–†††††††††††≤Æ†“≈Õœ÷≈†¡†‘“¡–††≥Æ†“≈Õœ÷≈†¡ÃÃ†‘“¡–”††††œ“†–“≈””†“≈‘’“Œ††(®–ˆ \€©† Ì˝§Ö»–Ω©q†ì :€†πîπîæîÑ $Ì©† Ì˝§àÊ` 9’©Ö∏©Öπ g› RÁ`e˛Ö˛êÊˇ` Ì˝©† Ì˝©Ω Ì˝©† Ì˝`†±˛)–©†çîà±˛çî`±˛™à±˛ $Ì`©≈$Ö$∞ é˝`© bí•˛Ö•ˇÖ†©ô»ô»© bí –Ó`çî†î© :€≠ î ®àπ™àÑπ $Ì§©¨ Ì˝–Á©© lí` bí ùí≠ î ®àπçîàπçîÓî–Óî≠î¿≠¿˚,¿…∞ê…∫∞) …–©2çî©ˇÖœ Së•ÓH¶Ï§Ì(•Î…:∞Læ` dë•÷Ö$•◊ [˚•Ö2`¢'Ω!îùPΩIîù–ΩqîùPΩôîù– Â`¢Ωîº îËùîòù î ÓË•uùîÖ¸•vù îÖ˝`©ˇÖ©£ Ì˝†æîÜPπ î…ˇÖQÑ $Ì©† Ì˝• ‰ë`¢©ççäÑ`•uÖP•vÖQ ÷†±õ0 \€»–Ù`8È™ÑÖ†–Ñù†œÑû†ˇ  ,◊˚0ˆ©† Ì˝ ,◊0 \€Ω–ùIîΩPùqîΩ–ùôî Â•˙u© ¢'ùPù–ùPù– Ò©?Ö2•"Ö©Ö$©Ö" [˚©Ö6©˝Ö7•˚ ¶ë Ì©† Ì˝ ‹ëÆù¨ù gì–Æ4æ¨5æÜ6Ñ7•Ö"•œ≠î!™ ®¸¨¿¿ó –ÛL>ë,¿≠¿˚…Ö–©ÖŒL>ë…õ–•˙–©ˇÖ˙L6ê dë©Ö˙’…ë–•˚–©ˇ–©Ö˚L2ê…Ü– Bì∞π…í– Sì∞∞…î– ]ì∞ß…á– Iì∞û…Å– SëLxè…Ñ–#,∞LAë•Ô5¢ÜÔΩ!îùΩ!ïùΩ!ñùΩ!óù –Â¢Ω˝ìï ¯•÷Ö$•◊ [˚L ê≠¿…Å–\•œ–X•u≈¸– •v≈˝–LAë Çë,¿•$Ö÷•%Ö◊¢µ ù˝ì ¯¢Ωù!îΩù!ïΩù!ñΩù!ó –Â•uÖw•vÖx <˚ é˝¶¯öL?‘…ó– ©ˇÖŒÖ˙©Öœ•u≈¸– •v≈˝–LAë Çë¢ΩîΩî≈u–•v›î– :ˇ¢ˇÜŒËÜœ– ﬁ•Œ–LAë•2Ö•$Ö÷•%Ö◊¢'ΩPù!î¿…±–<¢Ωî–&Ü©y†ì :€ o˝‡ Pí¶•Pùî•Qùî©ùî– “©ä†ì :€¢©ç`…≤–5©Ä†ì :€ o˝‡" Pí¢Ωî•P›î–•Q›î–©ùî „¢©ç`…≥–©ñ†ì :€¢©ùî ˙¢©ç`…çLé`…Ü– Bì©ç`…í– Sì©ç`…á– Iì©ç`…î– ]ì©ç`…è– ©…Ö∫©:Öª©∞Öº¢†˝Ü8Ñ9 gì Í¢©ç`é2æå3æÛÖÎÜÏÑÌhÖÓ•π…©§ lí©¢ Ì˝•˛iÖ†•ˇiÖ° =€©¢ Ì˝LVç©† lí•˛iH©eˇ®h ˘Í .Ì ùí© bí•ˇLËå…ñL¸ç X¸ Bì•kÖ˛•lÖˇ≈n– •˛≈m–©ç`†±˛ç î™ í±˛…Ä»ê ©í©• Àí† ìí© ˘í–Ô é˝ é˝•ˇ–√±˛…Äê& ©í©§ Àí©¢ Ì˝•˛Ö†•ˇÖ° =€©¢ Ì˝© ˘í–ﬂ ©í©† Àí•˛§ˇ ˘Í .Ì© ˘í–ÍØ…åL∫é Bì ,í©©†ì :€©` Ì˝Δ$≠¿˚,©ÖÔÖ˚Öœ¢†åéˆå˜Ü¢©Ö©ˇù îË‡ê¯¶ gìÜsÑt¢f†åÜ8Ñ9 gì Í`é2æå3æLæH•3…›h,¿L˝h ˝…Å–©ˇÖŒÖ˙ÖÔ,¿¢ΩmìùË‡–ı©Ö3©ç`…Ñ–$©Ö†¿–©# Ì˝ ±ë• é˝ é˝§àÂ©ç`…ö– X¸ Bì©ˇÖ––…òLcç X¸ Bì•iÖ˛•jÖˇ≈l– •˛≈k–©ç` í≠î \€≠î \€±˛…Ä»ê©• lí»» ìí?±˛…Äê" ˝ 9˚ X¸©X¢ ÖÜ†ˇ»± [˚»±Ö$»±…ç ˝–Ú≠ø…L– ¯æ© ıæ¢ﬂ† Ü<Ñ=¢†-Ü>Ñ?¢†åÜBÑC† ,˛Lå ¬ŸœŒ«†‘≈≈†ŸœŒ«™™††√œ–Ÿ“…«»‘†±π∏∂†Õ…√“œ”–¡“√¨††…Œ√Æ††™™ç©LçıÖ∫©Öª©èÖº•uÖ¸•vÖ˝©ˇÖŒÖ˙ :Ç:¢13:ñ1*ıå54572:ÅB–512¡768:≠‚(B)—œ0ƒÇà˙T$(K)–"":AD–Â(T$(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:ÇÈó:¢10:∫"PLEASE SELECT ONE OF -":∫:ÅI–1¡NC:∫" <"I"> "PN$(I):ÇI:∫:∫" < >";BS$;BS$;:æX$:∫X$Ô≤≤ CENTERING æ©175:ñ10:ÅX–1¡„(ST$):∫Í(ST$,X,1);:Z–‚(…16336)»‚(…16336):ÅY–1¡20:Ç:Ç:∫:©255:ÅI–1¡1000:Ç:±a»≤x“≤ START OF SET-UP~‹≤ªÊó:¢10:∫"WHAT DO YOU WISH TO PRINT":∫" ON LINE ";K;" ? " ¢13:ñ1:ÅL–1¡39:∫".";:Ç:∫"^";:ÅL–1¡39:∫".";:Ç:∫"^";:ÅI–1¡52:∫".";":∫:∫" PRESS ";:û:∫"E";:ù:∫" TO CONFIRM YOU WISH TO EXIT"wx∫:∫:ñ6:∫"OR ";:û:∫"ANY OTHER KEY";:ù:∫" TO CONTINUE ";:ôÇæA$:≠A$–"E"ŒA$–Á(101)ƒ∫:´1430£å´1150÷ñ¢22:∫:ñ13:ST$–"'BYE FOR NOW..":∞1470:π34,0:ó:Ä‹†≤¯™≤ SLOWPRINT SUBROUTINE˛¥≤[:∫√8);"<N> TO RETURN TO THE":∫√16);"PREVIOUS STEP":∫√8);"<R> TO RESTART":∫:∫√8);"< >";BS$;BS$;:æA$:∫A$ÇF≠A$–"Y"ŒA$–Á(121)´1390ùP≠A$–"N"ŒA$–Á(110)´1150∑Z≠A$–"R"ŒA$–Á(114)´380Ãd∫:∫BL$;BL$:´1330:n∫:∫:∫:∫"EXITING WILL DESTROY ANY FILE IN RAM...RITE";F$‚∫M:∫H:∫R:∫L:∫CE$(ÏÅK–1¡MFˆ∫X(K):∫E$(K):∫T$(K):∫Y(K)LÇé ∫D$;"CLOSE";F$:∫:∫" FILE ";F$;" CREATED":∞1990:≤6 SPACESî≤Ø≤ LEAVING THE PROGRAMµ(≤≈2π…16368,0:óg<¢6:∫"WOULD YOU LIKE TO QUIT?":∫:∫" PRESS <Y> FOR YES"O SEE A CATALOG OF THE DISK":∫:Ñ"FILE NAME: ";F$@´≠F$–""ƒ1330R∞≠F$—œ"?"´1240ï∫≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DRüƒ∞1990©Œ´1190ÿ∫:∫D$;"OPEN";F$;",S";SL;",D";DR:∫D$;"CLOSE";F$:∫D$;"DELETE";F$:∫D$;"OPEN";F$:∫D$"WFORM t≤u~π…16368,0:FLAG–4:ó:¢10:∫"WOULD YOU LIKE TO SAVE THIS FORMAT":∫" TO DISK <Y/N> ? < >";BS$;BS$;:æA$:∫A$êà≠A$–"N"ŒA$–Á(110)´1330´í≠A$–"Y"ŒA$–Á(121)´1190æú∫BL$;BL$:´11500¶ó:¢10:∫" WHAT FILE NAME DO YOU WISH TO USE? ":∫" PRESS ? T$"≠A$–"Y"ŒA$–Á(121)ƒ∞1690:´870=$≠A$–"N"ŒA$–Á(110)´1150T.¢15:∫BL$;BL$:´1040ü8π…16368,0:ó:¢10:∫"WOULD YOU LIKE TO RERUN <Y/N>? < >";BS$;BS$;:æZ$:∫Z$ºB≠Z$–"Y"ŒZ$–Á(121)ƒó:´210◊L≠Z$–"N"ŒZ$–Á(110)´1150ÍV∫BL$;BL$:´1080`≤j≤ SAVE THE :¨ñ1:∫R$;:∫¿Y(K));PC$(X(K),1);BF$;T$(K);BZ$;PC$(X(K),0)@∂∫F¿ÇS ≠L–0´990b‘ÅJ–0¡L:∫:ÇhﬁÇyË∫:∫D$;"PR#0"Ú≤í¸≤ DO IT AGAIN?ò≤π…16368,0:ó:¢10:∫"WOULD YOU LIKE TO REPEAT WITH THE":∫" SAME SETTINGS <Y/N> ? < >";BS$;BS$;:æA$:∫A 66":´7904∞1990:∞1760B>∞1690:∫:∫D$;"PR#0":≤ CLEAR THE DECKSHH≤^R≤ START PRINTINGd\≤éf∫:∫D$;"PR#"PS$:∫Á(9)"136N":∫PC$(1,1);ôpÅN–1¡R¶z≠H–0´910µÑÅG–1¡H:∫:Ç¿éÅK–1¡MÎòBF$–"":≠E$(K)–"Y"ŒE$(K)–Á(121)ƒBF$–B1$¢≠T$(K)–""ƒ∫:´960? ";:Ñ"";A$R–Â(A$)ó:¢10:∫"HOW MANY LINES DOWN FROM THE TOP":∫" DO YOU WISH THE PRINTING TO BEGIN ? ";:Ñ"";A$:H–Â(A$)» ≠Hœ66ƒ∫BL$;BL$:∫"THAT WILL BE OFF THE PAGE AT THE BOTTOM":∞1990:´790 *≠H—0ƒ∫BL$;BL$:∫" PLEASE USE A NUMBER BETWEEN 1 AND:L–Â(L$):A$–""ä⁄π…16368,0:≠((2 M)»L)œ66ƒ∫BL$;BL$:∫"THAT IS LONGER THAN AN 11-INCH PAGE;":∫" ARE YOU SURE <Y/N> ? < >";BS$;BS$;:æA$:∫A$§‰≠A$–"Y"ŒA$–Á(121)´770æÓ≠A$–"N"ŒA$–Á(110)´720ﬁ¯≠((2 M)»L)œ66ƒ∫BL$;BL$:´730ó:¢10:∫"HOW MANY REPETITIONS ∫:± T":∫D$;"READ BEST":ÑNB:∫D$;"CLOSE":´1307+@∫D$;"CLOSE"k+J∫D$;"OPEN BEST":∫D$;"WRITE BEST":∫0:∫D$;"CLOSE"¶+T∫D$;"OPEN LISTS":∫D$;"WRITE LISTS":∫0:∫D$;"CLOSE":´130∫+^≤ TITLE ROUTINE,hâ:ó:û:ñ10:∫"THE BEST FOR "N" WORDS":ù:¢3:∫" NAME";:ñ24:∫"TIME": ñ13:¢7:ù:∫"WORD ELEVATOR"+*Ê ñ19:¢8:∫"BY"D* ñ15:¢9:∫"GARY KNOX"]*˙ ñ15:¢13:∫"COPYRIGHT"ê*ñ16:¢14:∫"1986 BY":ñ12:¢15:∫"MICROSPARC, INC."ú*∞2840:±À*¢24:ñ7:∫"PRESS <RETURN> KEY...";:æA$:â:ó:±„*"≤ ** FILE OPENER **Ó*,•´2880'+6∫D$;"OPEN BES:ñ1:å…868:´26804)Ç ≠AZ$–"N"ƒ¢6:ñ1:å…958:S$–"":´2510Q)å ≠S$–""ƒ¢6:ñ1:å…958:´2510W)ñ ±n)† ≤ ** TITLE PAGE **å)™ û:ñ7:¢5:ÅK–8¡33:∫" ";:Ç:∫™)¥ û:ñ7:¢5:ÅK–8¡33:∫" ";:Ç:∫¡)æ ÅK–6¡22:ñ32:∫" ":Çﬂ)» ¢22:ÅK–32¡7«…1:ñK:∫" ";:Ç¸)“ ÅK–22¡6«…1:ñ7:¢K:∫" ";:Ç*‹)–13ƒ2680(< ≠Ê(AZ$)—œ8ƒ2660/(F ≠Ÿ(0)–BEƒ2580[(P ≠U–BE»1ƒS$–"":å…1008:∫" ";:å…1008:´2570è(Z S$–Ë(S$,U…BE…1):å…1008:∫" ";:U–U…1:å…1008:´2580¥(d ≠U—EN…1ƒU–U»1:S$–S$»AZ$:ñU:∫AZ$;æ(n ´2580)x ¢24:ñ6:∫"IS SPELLING OK? (Y/N) ";:æAZ$:≠AZ$—œ"Y"ÕAZ$—œ"N"ƒ¢24NO MORE WORDS."+'‚ ≠Lœ–38ƒBE–1:EN–39:´2550P'Ï S$–"":BE–”((40…L)À2)…1:EN–BE»L»1['ˆ ¢6:ñBEs' ∫Á(91);:ñEN:∫Á(93);Ñ' U–BE:¢6:ñU»1«' æAZ$:AS–Ê(AZ$):≠Δ(ASœ64ÕAS—91)ÕAS—œ8ÕAS—œ63ÕAS—œ21ÕAS—œ13ƒ2580ÿ' ≠Ê(AZ$)–63ƒ±ı'( ≠Ê(AZ$)–21ƒAZ$–" ":´2660 (2 ≠Ê(AZ$S∞2440,2450,2460,2470:´2280&&à ∞150:±0&í ´1960<&ú ∞1780:±F&¶ â:ó:Äk&∞ ¢HL»2»OS»OS (SN—10):ñHT:∫SI$(OS)ñ&∫ ¢HL»2»CS»CS (SN—10):û:ñHT:∫SI$(CS):ù:±∞&ƒ ≤ ** INPUT ROUTINE **·&Œ ¢2:ñ2:∫"TYPE A WORD..THEN PRESS RETURN KEY."'ÿ ñ2:∫"PRESS <?> KEY WHEN ù:∫" DOWN";:û:ñ23:∫"RETURN";:ù:∫" TO CHOOSE.";%B π…16368,0W%L K–‚(…16384):≠K—128ƒ2380Ñ%V π…16368,0:K–K…128:≠K—œ8ÕK—œ21ÕK—œ13ƒ2380é%` OS–CS¬%j ≠K–8ƒCS–CS…1:CS–CS (CSœ0)»SN (CS–0):∞2480:´2380˘%t ≠K–21ƒCS–CS»1:CS–CS (CS—–SN)»(CS–SN»1):∞2480:´2380&~ ¥C A WORD LIST.",$ﬁSI$(4)–"END THE PROGRAM."4$Ëâ:óT$Úû:ÅX–0¡HL…1:∫HL$(X);:ÇX:∫:ù]$¸CS–1q$ ÅX–1¡SN:≠X–CSƒûï$ ¢HL»2»X»X (SN—10):ñHT:∫SI$(X):ùú$ ÇX∞$$ ¢19:û:∫HL$(2):ù’$. ¢21:ñ11:∫"<PRESS THESE KEYS>":ñ2-%8 ¢23:û:∫"<--";:ù:∫" UP";:ñ10:û:∫"-->";: "A#¢HL$(2)–" ^^^^^^^^^^^^^^^^^^^^^^^^^^^ "w#¨HL$(3)–" CHOOSE ONE OF THE FOLLOWING "≠#∂HL$(4)–" ^^^^^^^^^^^^^^^^^^^^^^^^^^^ "«#¿SI$(1)–"PLAY A GAME."Ì# SI$(2)–"DIRECTIONS FOR THE GAME."$‘SI$(3)–"CREATE"\KP–‚(…16384):≠KP—œNNƒ2140#"f±k"pÅTT–16¡18:¢TT:ñ2:∫" ":ÇTT:©80:±|"z≤ ** MENU **ü"Ñπ216,0:HT–9:SN–4:Q$–Á(34):HL–5’"éHL$(0)–" ^^^^ ^^^^^^^^ "#òHL$(1)–" WORD ELEVATOR ©255:NN–218:∞2140:KP–218:π8,1:∞230y!*∞2160:π8,0:¢16:ñ2:∫"PRESS THE <-- KEY":∫:ñ2:∫"A WORD WILL MOVE OFF THE ELEVATOR "û!4©255:NN–136:∞2140:π8,1:∞430:π8,0—!>∞2160:¢16:ñ2:∫"PRESS THE <RETURN> KEY...":©255Ï!Hπ…16368,0:NN–141:∞2140ˇ!RæA$:ó:â:Ω:´130THE ELEVATOR":F(2,3)–1:L–8: ¯©255:NN–149:∞2140:π8,1:´630á ∞2160:π8,0:¢16:ñ2:∫"PRESS THE <A> KEY":∫:ñ2:∫"THE ELEVATOR WILL MOVE UP"≠ ©255:NN–193:∞2140:KP–65:π8,1:∞230¸ ∞2160:π8,0:¢16:ñ2:∫"PRESS THE <Z> KEY":∫:ñ2:∫"THE ELEVATOR WILL MOVE DOWN"#! ES'."N–π8,0:¢22:∫"PRESS <RETURN> KEY ";:æA$:∫:≠Ê(A$)—œ13ƒ¢22:ñ1:å…868:´2000ã⁄N–3:WL$(2,1)–"COMPUTER":WL$(2,2)–"CHIP":WL$(2,3)–"APPLE"Ω‰∞1530:π8,0:¢12:ñ13:∫"TRY THE FOLLOWING..":©80 ÓDI–1:¢16:ñ2:∫"PRESS THE --> KEY":∫:ñ2:∫"A WORD WILL MOVE ONTO ELEVATOR TO MOVE THE WORDS TO THE OTHER SIDE OF THE SCREEN. THE WORDS MUST BE PLACED IN ALPHABETICAL ORDER.":∫Δ∫" THE COMPUTER WILL KEEP TRACK OF HOW LONG IT TAKES. IF YOU ARE FAST ENOUGH, THE COMPUTER WILL ADD YOUR NAME TO THE 'BEST TEN SCOR"Kî∫S$(K):ÇK:∫D$;"CLOSE":±<û≤ ** GAME INSTRUCTIONS **k®ó:û:ñ7:∫"WORD ELEVATOR INSTRUCTIONS":ù:∫:∫ﬁ≤∫" THE COMPUTER WILL PUT WORDS ON ONE SIDE OF THE SCREEN. THE WORDS MAY NOT BE IN ALPHABETICAL ORDER.":∫sº∫" IT IS YOUR JOB TO USE THE∫D$;"CLOSE":L–11:NW–0%Dó:∞2500MN≠Ê(AZ$)—œ63ƒNW–NW»1:S$(NW)–S$:´1860SX∫íb∫D$;"OPEN LISTS":∫D$;"WRITE LISTS":NL–NL»1:∫NL:∫D$;"CLOSE"≤l∫D$;"OPEN WORDLIST"NL",L26"“v∫D$;"WRITE WORDLIST"NL",R0"‚Ä∫NW:ÅK–1¡NWä∫D$;"WRITE WORDLIST"NL",RSIDE"¬í3:π8,1:±/Ã≤ ** GET BEST SCORES **b÷∫D$;"OPEN BEST":∫D$;"READ BEST":ÑNB:≠NB–0ƒ1770Ç‡ÅK–1¡NB:ÑB$(K),B(K),WR(K):ÇîÍ∫D$;"CLOSE":±ØÙ≤ ** MAKE WORD LIST **Ω˛≠A$–"N"ƒ±√∫œD$–Á(4)Û∫D$"OPEN LISTS":∫D$"READ LISTS"˚&ÑNL0(Üñ18:∫"00000":T–0:EP–(K…1) 8»40:BT–EPmêì108,159¡108,191:ì164,159¡164,191:ì100,(K…1) 8»40¡178,(K…1) 8»40õöíCL:ÅY–160¡190:ì2,Y¡106,Y:ì166,Y¡277,Y:ÇY£§¢22‘Æñ2:∫" <A>ELEV UP ";:ñ25:∫" <-- LEFT SIDE "∏ñ2:∫" <Z>ELEV DOWN ";:ñ25:∫" --> RIGHT ñ8:∫" W O R D E L E V A T O R ":∫NJñ2:∫"ALPHABETIZED";:ñ30:∫"WORD LIST":∫nTπ8,1:ÅK–1¡N:ñ28:∫WL$(2,K):Çß^ÅK–1¡N:ì0,K 8»40¡90,K 8»40:ì185,K 8»40¡279,K 8»40:ÇK‘hÅKK–(K…1) 8»42¡(K…1) 8»44:ì0,KK¡279,KK:Ç‚rEM–0:EU–0ˇ|π8,0:ñ19:¢21:û:∫"TIME":ù≠‚(2051)–141ƒ1560r∫D$;"BLOAD PRINTER":∫D$"BLOADPTABLE":≠‚(48896)–76ƒπ2050,216:∫Á(4)"PR# A$802":π8,0:´1570áπ54,3:π55,8:π8,0ƒ"ì0,0¡279,0¡279,191¡0,191¡0,0:ì0,159¡279,159:ì0,35¡279,35€,CL–”(7 €(1))»1:íCL¯6ÅY–1¡34:ì2,Y¡277,Y:ÇY:í3#@¢2:ÇWN–10å≠NW—–10ƒWN–NWkñ∫"ENTER A NUMBER FROM 2 TO "WN;:Ñ" ";N$:N–Â(N$):≠N—2ŒNœWNƒ¢14:ñ1:å…868:´1430v†ÅK–1¡Né™T$–S$(”(NW €(1))»1)ú¥≠K–1ƒ1500©æÅL–1¡K…1ø»≠T$–WL$(2,L)ƒ1450Δ“ÇL÷‹WL$(2,K)–T$›ÊÇK˜≤ ** DRAW ELEVATOR **˙ê:í3$):≠LI—1ŒLIœNLƒ13103(∫D$;"OPEN WORDLIST"LI",L26"R2∫D$;"READ WORDLIST"LI",R0"Z<ÑNWfFÅK–1¡NWÖP∫D$;"READ WORDLIST"LI",R"KìZÑS$(K):ÇK£d∫D$;"CLOSE"”nó:¢10:∫"ENTER THE NUMBER OF WORDS YOU WANT"˛x∫:∫"TO ALPHABETIZE ON THE ELEVATOR.":∫1):WR(RR)–WR(RR»1):ÇRR:NB–NB…1'Ï´990Bˆ≤ ** GET WORD LISTS **x∫D$;"OPEN LISTS":∫D$;"READ LISTS":ÑNL:∫D$;"CLOSE"Ñ ≠NL–0ƒ±ô≠NL–1ƒLI–1:´1320ó:¢10:∫"WHICH WORD LIST DO YOU WANT?":∫:∫"YOUR CHOICES ARE LIST NUMBERS 1 TO "NL;:Ñ" ";NL$:LI–Â(NL¡N:≠L$œWL$(1,KK)ƒL$–WL$(1,KK):LL–KK+úÇKK\¶ñ25:∫L$:WL$(1,LL)–"ZZZZZZZZZZZZZ":≠PP–Nƒ1210n∞PP–PP»1:´1160¶∫¢23:∫"PRESS <RETURN> KEY.. ";:æA$:∫:≠Ê(A$)—œ13ƒ1210Øƒ´850ŒŒÅTT–NB¡1«…1:≠WR(TT)–Nƒ1250÷ÿÇTT‚ÅRR–TT¡NB:B$(RR)–B$(RR»1):B(RR)–B(RR»K):∫WR(K):Ç:∫D$;"CLOSE""LΩ:´120>V≤ ** WORDS ARE WRONG **ã`â:ó:∫"YOUR LIST WAS OUT OF ORDER.":ÅKK–1¡20:A–‚(…16336):Ç:ÅKK–1¡1000:Ç:∫≥j∫"YOUR LIST";:ñ25:∫"CORRECT LIST":∫ÀtÅK–1¡N:∫WL$(1,K):ÇK·~¢5:PP–1:FL–1:MI–1ˆàL$–WL$(1,1):LL–1#íÅKK–1L–0ÕKZ—10ƒFL–1:K–K»1:´910H≠FL–0ƒ∫:û:∫"YOUR TIME WAS";:ñ24:∫" "T" ":ùW≠KZ–0ƒ1100è¢23:∫"PRESS <RETURN> KEY ";:æA$:≠Ê(A$)—œ13ƒñ1:´1050°$≠FL–0ƒ∫:´1100æ.≤ ** SAVE BEST SCORES **È8∫:∫D$;"OPEN BEST":∫D$;"WRITE BEST":∫NBBÅK–1¡NB:∫B$(K):∫B(1:å…998:å…868:´920-¢NB–NB»1:≠NB–1ÕFL–0ƒ970>¨ÅL–NB¡K»1«…1j∂B$(L)–B$(L…1):B(L)–B(L…1):WR(L)–WR(L…1)q¿ÇLÖ å…1008:ñ1:å…868¶‘B$(K)–K$:B(K)–T:WR(K)–N:FL–1æﬁ≠WR(K)–NÕKZ–0ƒ∞2920ÎË≠WR(K)–NƒKZ–KZ»1:∫KZ") "B$(K);:ñ25:∫B(K)˘Ú≠K—NBƒ860¸≠F»159)À2)À8)»1:ñ12:∫" PRESS <RETURN> ":æA$:∫:≠Ê(A$)—œ13ƒ820W>≤ ** LIST BEST SCORES **eHFL–0:MI–0rRKZ–0:K–0Ü\K–K»1:≠NB–0ƒ910ûf≠WR(K)–NÕKZ–10ƒ1230Æp≠TœB(K)ƒ990ºz≠FL–1ƒ990ÃÑ≠KZœ–10ƒ990‹é≠KZ–0ƒ∞2920òÑ"ENTER YOUR NAME ";K$:≠K$–""ƒñ:Y2–159:BT–BT»4:Y1–BTNÅX1–0¡279«5:ìX1,Y1¡X2,Y2:X2–X2…5:ÇX1:X1–X1…5:X2–X2»5kCC–”(7 €(1))»1:≠CC–4ƒ780ôíCC:ÅY1–BT¡159«5:ìX1,Y1¡X2,Y2:Y2–Y2…5:ÇY1√ ÅY–160¡190:ì1,Y¡106,Y:ì166,Y¡278,Y:ÇYÙ*¢22:ñ2:∫" YOUR TIME-->";:ñ26:∫" GOOD WORK! ":4¢(”((BT185,(L…6) 8»40¡279,(L…6) 8»40&äEC–1/î∞110bûñ16:¢L:∫WL$(2,L…5):E$–WL$(2,L…5):WL$(2,L…5)–""q®≠DI–1ƒ2050z≤´200óº≤ ** CHECK WORD ORDER **´ΔT–”(T):ÅK–1¡N…1¥–π8,0“⁄≠WL$(1,K)œWL$(1,K»1)ƒ1120Ÿ‰ÇKıÓ≤ ** WORDS ARE RIGHT **¯X2–279S∞110:KP–0ñ2:¢L:∫E$C&≠L—œ6ƒì0,(L…6) 8»40¡90,(L…6) 8»40[0WL$(1,L…5)–E$:E$–""q:ND–ND»1:≠ND–Nƒ710}D≠DI–1ƒ±ãNEC–0:´200®X≤ ** MOVE RIGHT SIDE **∂bL–”(EPÀ8)Õl≠WL$(2,L…5)–""ƒ200Ùvñ28:¢L:∫" ":≤ 12 SPACESÄ≠L—œ6ƒìPÀ8) ∏≠EC–1ÕWL$(1,L…5)–""ƒ520=¬≠EC–0ÕWL$(1,L…5)—œ""ƒ470FÃ´200k÷ñ2:¢L:∫" ":≤12 SPACESÅ‡∞110:ND–ND…1:EC–1¨Íñ16:¢L:E$–WL$(1,L…5):∫E$:WL$(1,L…5)–""“Ù≠L—œ6ƒì0,(L…6) 8»40¡90,(L…6) 8»40€˛´200ñ16:¢L:∫" ":≤12 SPACE,≠EP»EUœ(BT)Œ(EP)»EU—45ƒEU–0:´200+6∞110A@í0:ì100,EP¡180,EPnJ≠EC–1ƒñ16:¢L:∫" ":≤ 12 SPACES{TEP–EP»EUë^í3:ì100,EP¡180,EPühL–”(EPÀ8)Ærñ16:¢L:∫E$∫|≠DI–1ƒ±»Üπ…16368,0—êEU–0⁄ö´200ˆ§≤ ** MOVE LEFT SIDE **ÆL–”(E"SELECT CREATE A WORD LIST.":´2840E ¥≤ ** ELEVATOR & WORD MOTION **N æMI–0h »ÅK–1¡6:KP–‚(…16384):Çv “π…16368,0 ‹∞110ë Ê≠KP–193ƒEU–…8¢ ≠KP–218ƒEU–8∏ ˙≠KP–136ƒEU–0:´430” ≠KP–149ÕEC–0ƒEU–0:´610· ≠EU–0ƒ200Ô L–”(EPÀ8)˝ "≠DI–1ƒ310"ATOR"" Zâ:ó:D$–Á(4):∞2730:∫:´1204 d≤ ** TIMER **k nT–T»1:T$–‰(”(T)):¢22:ñ(23…„(T$)):∫T$:P–‚(…16336):± xD$–Á(4):∫:´2860µ ÇÜS$(100),F(2,10),WL$(2,10),B$(100),B(100),WR(100)ø å´2180À ñD$–Á(4)€ †∞1740:∞1280" ™≠NL–0ƒó:∫"NO WORD LISTS...":¢8:∫$ ≤**********************9≤* WORD.ELEVATOR *U≤* BY GARY KNOX *q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** P≠‚(104)—œ16ƒπ104,16:π103,1:π4096,0:∫Á(4)"RUN WORD.ELEV íãoãáã÷†àï»¬ƒçõ´≠¶≈œºæ≤™Ø±âbâ<â/ââ&âââ´âwâ}âãâèâìâóâõâNâÉâáâ≠¿,¿`HäHòH†Ä¢ˇ,¿0 –¯à–Ûh®h™h`†¡–œ√¡Ã†»≈ÿ†∫†§ƒ≈√†∫†£¬…Œ†∫†•”‘¡‘’”†∫Œ÷™¬ƒ…⁄√œ–≈“¡‘…œŒ†∫¡ƒ√”¬√Õ’Ãƒ…÷¡Œƒ≈œ“œ“¡¡”ÃÃ”“÷∫÷¡Ã’≈†††”–¡√≈∫√»Œ«†œ–≈“††º≠¨≠æ∫…Œ√¨ƒ≈√≈”√∫≈ÿ…‘††“≈‘’“Œ∫√»Œ«†“≈«†††††»¨¬¨ƒ∫¬¡”≈œ–≈“¡‘…œŒ”∫†´¨†≠¨†™¨†Ø¨†¶¨†≈¨†œ¨†º¨†æ¨†≤Tãüã≠ã€ãbãzã` Ä˛†± Ì˝»¿êˆLÑ˛¢ Qç∞©Ö∏©Öπ†ÑPÑQ±∏…ç»–˜8`à¢ÜA¢Ü?±∏…≠K…∞êÎ…∫∞Á8È∞Ö>¶A 0$>&?•>Ö<•?Ö=>&?>&?•>e<Ö>•?e=Ö?Lç•Pe>ÖP•Qe?ÖQ¶AËà´08©ÂPÖP©ÂQÖQ`ÜB¢ÜC ìç…ç+…à–ä©†§$àÑ$ë( ‰…ˇÌ…†ê‹‰B∞ÿ§$ë(ùÊ$Ë–Ãùä`8`§$±(H©ﬂë(h,¿0 ªçë(,¿0 ªçLìçë(?©Ö¸Ö˝¢F?f>ê•¸eÖ¸•˝ejÖ˝f¸ff –„`•Ö•Ö©Ö>Ö?¢&&>&?8•>Â®•?ÂêÊÖ?Ñ> –„` Ü$àòL[˚ÜÑ†± Ì˝»–ˆ`¢ﬁ†ç å©Ö$¢Ê†ç å é˝©Ö$¢Ó†çLå¢† å• iﬁ™©iç®Lå¢† å Ä˛• e®©† Ì˝¢πé Ì˝» –ˆ©† Ì˝LÑ˛ êåL∂å êåLπå•¶ i®πÛé™π˘é® å• iﬁÖ©içÖ•ÖP•ÖQ©Ö œä•ÖP•ÖQ©Ö© Ö$• [˚¶P•Q A˘©Ö$ ú¸¶P•Q $Ì é˝© Ö$•Q ã©† Ì˝•P ã©Ö$ ú¸•Q§P Ú‚L.Ì† Hê©±–©∞ Ì˝hàÔ`•ÖP•ÖQ© ÖLœä¢† åhLã• ®π®éÖπ©éÖl•eÖ•eÖ`•%Ö•%Ö`• Ö•*Ö`•EÖ•EÖ`•JÖ•jÖ`•Ö•Ö`8•ÂÖ•ÂÖ`•Ö>•Ö…–4 Bå©Ö$ »åêL9äL ä Bå©Ö$¢ QçêL9ä «ˇ ßˇ•>ÖP•?ÖQL ä Bå©Ö$¢ QçêL9ä©ÖPÖQ©ˇÖ∏©Öπ ±…†˘…ç …±&P&QLä• ™•Pï•Qï©Ö$ ú¸ üâL◊à :ˇL,ä¢† å Ä˛¢’†ç å Ñ˛¢† å "å¢† å "å¢† å¢†é å¢† å "å¢† å¢ˆ†ç å¢† å¢ˇ†ç å¢(† å©≠ Ì˝ä–Û é˝¢/†éLå∏àG©ÖÖÖÖÖÖÖ X¸ ?ä Ñå Zå üâ≠¿˚,¿…‡ê)ﬂ†Ÿ∫é à¯ :ˇL◊àò ®πÕéÖπŒéÖl äå• IÖ ÑåL◊à äå©ÖÒ äå©Ö–Ë äå©Ö–ﬂ• ™ˆ–ˆLHâ• ™µ–÷÷ üâL◊à• ™8©ıï©ıïLHâÊ•… –©Ö Zå ¢âL◊à©ÖÒ©Ö–Î©–¯©–Ù©–©–Ï©–Ë©–‰©–‡ ¥ä Cã 7ãL(ã X¸L–• xáA,B$ Çπ0,256" å∫10Ã99À.1? ñ§4095:£4096:A$–"NO ROOM"N †£32768:´17Z ™∫A%(89)p ¥ÜA%(19):ÜA%(19,1)z æ∫45À0Ö »A$–123Æ “ÅI–1¡20:A$–A$»"ABCDEDFGHIJKLMNOP":ÇIº ‹A–¬X(1) 2‘ Ê∫Á(4)"RENAME HELLO"⁄ ≥„ ˙å768 Â ≤ **********************;≤ * ERROR.DEMO *X≤ * BY CHARLES HILL *u(≤ * COPYRIGHT 1986 BY *í2≤ * MICROSPARC, INC. *Ø<≤ * CONCORD, MA 01742 *ÃF≤ **********************÷P•´250ËZÅI–1¡10:∫I:ÇJ˘dA$–Í(1,2,B$)ˇn± 630Yäπ…16368,0:¢13:å…958:¢14:∫"DO YOU WISH IT CENTERED <Y/N> ? < >";BS$;BS$;:æCE$:∫CE$uî≠CE$–"Y"ŒCE$–Á(121)´690ëû≠CE$–"N"ŒCE$–Á(110)´690£®∫BL$;BL$:´650∞≤ó:ÅK–1¡M∫º∞1510¿ΔÇ–ó:¢10:∫"HOW MANY BLANK LINES":∫" BETWEEN FORMS ? ";:Ñ"";L$ -ÑY(K)0Ç#:∫D$;"CLOSE";F$-D∞17603N≤KX≤ PREPARE THE FORMQb≤Wl≤∑vó:¢10:∫"HOW MANY LINES (1 TO 33) DO YOU WISH":∫" TO PRINT ON EACH FORM ? ";:Ñ"";A$:M–Â(A$)Ä≠M—1ŒMœ33ƒ∫BL$BL$:∫:∫" SORRY, IT MUST BE BETWEEN 1 AND 33":∞1990:´G–2:∫:∫D$;"VERIFY";F$PFLAG–3:∫:∫D$;"OPEN";F$;",S";SL;",D";DR:∫:∫D$;"READ";F$eÑM:ÑH:ÑR:ÑL:ÑCE$pÅK–1¡MÅ&ÑX(K):ÑE$(K)¢(å54572:ÅB–512¡768:≠‚(B)—œ0ƒÇ+T$(K)–"":AD–Â(T$(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:ÇSK":∫:Ñ"FORMAT NAME: ";F$:≠„(F$)œ15ƒF$–Ë(F$,15)>©≠F$–""ƒ380OÆ≠F$—œ"?"ƒ510í∏≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DRª¬∞1990:≤ CALL THE KEYPRESS SUBROUTINE…Ãπ…16368,0“÷´420ÿ‡≤ÚÍ≤ READ THE DISK FILE¯Ù≤˛FLA:¢10:∫"DO YOU WISH TO USE A FORMAT":∫" WHICH IS ON THE DISK <Y/N> ? < >";BS$;BS$;:æA$:∫A$tÜ≠A$–"N"ŒA$–Á(110)´620éê≠A$–"Y"ŒA$–Á(121)´420†ö∫BL$»BL$:´380/§FLAG–1:ó:¢10:∫" WHAT FORMAT DO YOU WISH TO USE?":∫" PRESS ? TO SEE A CATALOG OF THE DI$–"1" JDR–Â(DR$):¢15:ñ22:∫DR$>T≠DR—1ŒDRœ2ƒ∫BL$;BL$;:´320∑^¢17:ñ1:π…16368,0:å…958:∫"ENTER SLOT NUMBER FOR YOUR":∫" PRINTER INTERFACE (1-7): <1>";BS$;BS$;:æPS$:≠PS$–CR$ƒPS$–"1"“hPS–Â(PS$):¢18:ñ28:∫PS$r≠PS—1ŒPSœ7ƒ∫BL$;BL$;:´350Z|ó:π…16368,0:û:∫"RETURN";:ù)Rµ49152,128:π49168,0:±„5:∫"YOU CAN EVEN SIMULATE PULL DOWN MENUS"5‰∫:∞840PÓØ®1,6,1,7:û:∫"RED ";ä¯ù:¢3:∫"BLUE":∫"VIOLET":¢5:∫"GREEN":∫"BLACK":∫"WHITE";öÅJ–1¡4000:Ç°ØÆ Øó:∫"THE POSSIBILITIES ARE ENDLESS!"– ∫€*∫:∞840Î4Øî1,38,2,23Ò>ÄH∫"PRESS ";XØ®I»4,5,I»3,I»8:∫I%bÅJ–1¡500:Ç+lÇ:vÅI–1¡10:ØÆIÄÅJ–1¡500:ÇRäÇ:Øólî∫"LET'S DO IT AGAIN,"Éû∫"ONLY FASTER...."é®∫:∞840ö≤ÅI–1¡10±ºØ®I»3,5,I»3,I»8:∫IøΔÇ:ÅI–1¡10˙–ØÆ:Ç:Øø" COLORS BRUSHES SHAPES PRINTER FILE",1,38,2,22*⁄¢:∞840‡ØÆ:Ø®2,17,15,222Í∫"ONE FINAL COMMAND"SÙû:∫"&HOME";:ù:∫" IS USED TO"j˛∫"CLEAR THE HIRES"y∫"WINDOW."Ñ∫:∞840óØÆ:Øî9,21,5,10µ&∫"NOW THAT YOU KNOW THE";”0∫"COMMANDS, HERE'S WHAT";Ë:∫"YOU CAN DO..."ÛD∫:∞840ˇNÅI–1¡1040hØÆ:Ø®2,10,10,150r∫"THESE TWO COMMANDS"C|∫"ARE ALMOST";TÜ∫"THE SAME "fê∫"EXCEPT...";oö∞850Ñ§ØÆ:Ø®13,18,10,16¶Æû:∫"&STORE";:ù:∫" ALLOWS YOU"¡∏∫"TO RESTORE THE OLD";ÿ¬∫"WINDOW WITH THE"˙Ã∫"COMMAND: ";:û:∫"&RESTORE":ù÷∫∫"THE SYSTEM WITH"-û:∫"&NEW A$,L,W,T,B":ù6∞840JØÆ:Ø®19,19,3,10d"∫"ONCE EVERYTHING IS"ä,∫"INITIALIZED, THE":∫"COMMANDS:";§6û:∫"&DRAW";:ù:∫" AND"«@û:∫"&STORE";:ù:∫" CAN BE USED"„J∫"TO OPEN UP A WINDOW";˘T∫"ON THE SCREEN."^∞8) †∫:∫"A HIRES GRAPHICS-WINDOW PROGRAM."V ™¢10:∫"THIS PROGRAM IS DESIGNED TO ALLOW"Ä ¥∫:∫"YOU TO INCORPORATE PROFESSIONAL-"≠ æ∫:∫"LOOKING WINDOWS INTO YOUR PROGRAMS!"≥ »∫æ “∫:∞840Œ ‹Ø®2,15,3,10Ê Ê∫"FIRST, YOU NEED";˚ ∫"TO INITIALIZE"˙" Z∫Á(4)"BLOADCHAR.SET". d∫Á(4)"BRUNSHOW"f nØø" STANDARD HIRES OUTPUT WINDOWS (SHOW)",1,38,2,23á xπ32,2:π33,36:π34,3:π35,22:Øó∑ Ç¢22:∫"S.H.O.W."¿14)"WRITTEN BY STEPHEN LEW"· å∫"COPYRIGHT 1986 BY MICROSPARC, INC."ˇ ñ¢4:ñ1:∫"WELCOME TO SHOW,"ô é˝¶ﬁ‡˛ê`‡∞ ß0Ω`“H \€Ëhı©P†” :€©X†” :€¶⁄•€ $Ì©† Ì˝©∫ Ì˝ é˝†±‹–»»»»»±‹0C…:? Ä Ì˝»–Ó8ÈÖˇòH©† Ì˝©–Öù©œÖû†ˇΔˇ ,◊˚0ı ,◊ Ä Ì˝(Ù©† Ì˝h®»–∑L<‘ + ≤**********************9≤* SHOW.DEMO *U≤* BY STEPHEN LEW *q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** P≠‚(104)—œ64ƒπ103,1:π104,64:π16384,0:∫Á(4)"RUNSHOW.DEMO 67<$'<$67>67<$$$%%%-66$$$$>>>%%-..$$-.5-.5???????????????,%-,%-,%-,%4-?<,-I --5-.5-----,%-,--....6,77777??'?<'$$66?$$66???$$66?$$66>7?>??<<<<$>%%%%%--5--5--5----,--,--,--66666??'??'??'?$$66???-$$66?>??>??>??$$$$$I--...---------%%%--...6667<$'<$67>67<$'<$67>67<$'<$67>67<$'<$67>67<$'<$67>€>>>>>66666$?$?$$?$$$-$-$--6-$$$-$-$-$-6-6-6?????------666-$--6-6-666?66?6?6$$$$$<<<<<,???????57777766666í-,%-,------------54-.5-6667?<'?<'?<'?<'$6??$6>7?>7?>7?>7?<$$$I)-...---------%%%-555556777?''''7777?<<<<7777?<<<<>>>>?-=?<<<$,,,,,IIIIII)57.5-.5???????$$66-57777766666$?$?$?$$-$-$-$-$?$-$-$--6--$$%%%%5557''?>>66-$--6-6-6?6-6-6-6-66?6?6?6$$$$$<<<<<,-?????????-5777776666$?$?$?$$$-$-$??$$--6---$?$?$$-$-$-------6-6-66?6?6---$--66??6-6-666?6?6?6$$$$$<<<<<,---?????????????----------$???????∂JIII…€€?<<$%%$?$?$?$$$$$-$-$-$-$---------6-6-6-6-66666?6?6?6$$$$$66666$$$$$<<<<<<?????7777776666<'<'<'$<'$$$,%,%,-5.5.5.,-----5%,%,%,-5.5.5666>76>7>7>7$$$$$<<<<<<?????77777766666<'<'<'$<'$$$,%,%,-5.%-6-$$$,5.--%,5666-$-.%,-5.5.5666>76>7>7>7$$$$$<<<<<,-$$66?????777?'''$%%%%%ïíí“€8-,,,,,-----.....í*,,55-,,,--...%%-..677?<<?'''777??>>'''LI1&-,,,-...%6í*,,55--...,,,-%%-..677?<<777??'''?>>'''LI1&-...-,,,%6%%-...%%%-555-,,,55567777???<<>>??'''''$-....-%%%555--,,,, -..-..--,,-,,555>>>'''4777>',=?6?$-?'''6776-6-6-$-$-$--6?6?6?6?6?$?$?$?$?$-6.------%$-6666>'$???????6>'$$$$ííí",%$,%$4&,56.56.%$,%$4,56.56.5>?'$<76>??'$<76>?gêííí€€ÿ-6-6-----$-$-66?6-66?$?$?????6?6?$$-$?$$ -555----%%%-555677777??????''''''$%%=65555-----%%%%%I ------555555677?'''?,5656565656?????--<<$%%-..677I $$76&$,56&$<''?/%?-</-,,$$466'$$66.%$$6665-=?5-?.=?>6 <<$$%$%$%$--6.6.6./6677???<<$$5555-,,,$I!?<'$$$$%%%%-....6666>7?>'?<$$$$4&$66.,%-.5%$46666$$,?>7?<'?í---------6>????????'$ííí",%,%,%,%,5.5.5.5.5>?'<'<'<=7>7>7>?'--@%#Hní«ÛS|∫“˙AÖØÊ&]î—Y¨| h®Ó#o±!#666665.65...5-.-------,%-,,$%,$%$$$$4II>>>>>>66555555--,,,,,,$$''''''??$$$$$,,,,,5555566666?????%$$$$$66666%%%-...&$$$$$&4H $$,,,,,4555556677777<<<<<%$$66NII&$$4$,$,$,$,$ $?o 666'¥;'∏M·ím%6 F6?? $,(--$¸.6M!$@+ı66>ìs-$$$cﬂ366n 8 $¥6--d066˛$$$V$$$ﬂ366&$(u66?$e<8?6.6äh$<8˜66%e<876.ﬂ#$uˆ?Dd-$<o)ñ⁄6$l 66ˆ?$í$$ﬂ36Æv$$$ﬂ366f¸Æn ‰h¸∂J6.-%@+ ??$,-ı.-ﬂ#$ñI!í@π?6.-$$$ºñ1>e‰?ñÒŒ--% ??ñJ ˆ?*6( $.(',-µ2ˆ?9?,`-ñ2?$<?∑í19Á,(u∂ˆ? -$8˜vNÒ?∞∞ˆñíÿ--÷9?' 8‡ñJí ?0.,$?66-%*%<8∏6ın $?$,-ˆˆ?'$ @?66-$,-66?'$%@??6.6---@??6.I@ÇÑãëü≠∫Δ…‘›ÏÛ¯˝(5BNZeq}ÄÑéñ†™∑√œ‹ËÙ"*7@MZfp~åó†´∂¬ŒÿÂÛ˚∂@$$6É$l6ˇ-%˛$$t9?'w!8,V ∏M5' vveå± $@ 6@6$4PÒñb¥-ﬂ'H∂&0--160ƒπ…16304,0:π…16300,0:π…16302,0:´2700`´1110100L.≠ER–10ƒâ:ó:¢5:ñ5:∫"PREVIOUS FILE BY THAT NAME IS LOCKED":N–N»1:´1100Å8≠ER–8ƒâ:ó:¢5:ñ5:∫"PLEASE CHECK DISK DRIVE":´1100©Bâ:ó:¢5:ñ5:∫"UNEXPECTED ERROR":´1100ıL¢10:ñ5:∫"PLEASE PRESS THE <SPACE BAR>":∫:ñ6:∫"TO RETURN TO THE PROGRAM"&V≠‚(Q)–:ò0:S–E:F–27:HA–101:VP–142:±&‘A–S:±0ﬁB–S:±:ËC–S:±DÚD–S:±N¸E–S:±éì0,0¡279,0¡279,191¡0,191¡0,0:ì1,1¡278,1¡278,190¡1,190¡1,1:±úER–‚(222)Œ≠ER–9ƒâ:ó:¢5:ñ5:∫"NO MORE ROOM ON DISK":´1100$≠ER–4ƒâ:ó:¢5:ñ5:∫"DISK IS WRITE-PROTECTED":´15,110zí1:î1≈105,100,Ñô3:ò0:îD≈105,100Déí5:ô2:ò0:îE≈101,142Jò±w¢HC–3:ô1:ò0:S–A:F–3:HA–117:HB–149:VP–90:±§¨HC–5:ô1:ò0:S–B:F–9:HA–113:HB–145:VP–60:±Ã∂HC–7:ô2:ò0:S–C:F–15:HA–115:VP–110:±Ù¿HC–1:ô3:ò0:S–D:F–21:HA–105:VP–100:± HC–5:ô2);"BSAVE FACE.";N;",A$2000,L$2000"1*N–N»1:´270;4â:ó:ÄS>≤ ** SUBROUTINES **ÇHÅT–1¡„(A$):î(Ê(Í(A$,T,1))…31)≈T 10»H,V:Ç:±∞Rπ232,0:π233,64:ë:π…16302,0:í3:ô1:ò0:∞1030“\î2≈130,90:îA≈117,90:îA≈149,90Ìfí5:îB≈113,60:îB≈145,60pí7:ô2:ò0:îC≈11#®ÅI–40¡100:π768,I:π769,7:å770:ÇI≤ÅI–100¡40«…1:π768,I:π769,7:å770:ÇRºπP,0fΔ≤ ** OPTIONS **s–ÅL–1¡400ã⁄≠‚(Q)–160ƒπP,0:´770£‰≠‚(Q)–155ƒπP,0:´820∂Ó≠‚(Q)–144ƒ´790Ω¯ÇL„ÅI–132¡80«…1:π768,I:π769,7:å770:ÇÏ´270˜•´1040" ∫Á(4:S–S»1:πP,0:≠SœF»5ƒS–F:´5207D≠‚(Q)–160ƒπP,0:´620ON≠‚(Q)–155ƒπP,0:´820_Xí0:îS≈HA,VPhb´520ulîS≈HA,VPãv¥T∞1000,1010,1020õÄÅL–1¡1500:Ç¢äÇT∂î≤ ** DISPLAY **ûπ232,0:π233,73:í0:ô1:ò0:A$–"LET'S MAKE FUNNY FACES !":H–12:V–180:∞840§ÅL–1¡25:ÇÆ´330+∏îS≈HA,VP:îS≈HB,VP:¬¥T∞980,990JÃÅL–1¡1500:ÇQ÷ÇTf‡≤ ** 2ND LOOP **qÍÅT–1¡3ÑÙ¥T∞950,960,970ç˛πP,0ûíHC:îS≈HA,VP≠ÅL–1¡500:Ç“≠‚(Q)–136ƒí0:îS≈HA,VP:S–S…1:πP,0Ê&≠S—FƒS–F»5:´5200≠‚(Q)–149ƒí0:îS≈HA,VP,64:πP,0"JíHC:îS≈HA,VP:îS≈HB,VP1TÅL–1¡300:Ç_^≠‚(Q)–136ƒí0:îS≈HA,VP:îS≈HB,VP:S–S…1:πP,0sh≠S—FƒS–F»5:´330°r≠‚(Q)–149ƒí0:îS≈HA,VP:îS≈HB,VP:S–S»1:πP,0µ|≠SœF»5ƒS–F:´330ÕÜ≠‚(Q)–160ƒπP,0:´440Âê≠‚(Q)–155ƒπP,0:´820˛öí0:îS≈HA,VP:îS≈HB,VP–1¡4000:Ç"≤ ** MAIN PROGRAM **H˙ÅI–132¡80«…1:π768,I:π769,7:å770:ÇhA–3:B–9:C–15:D–21:E–27:∞850≤π232,0:π233,73:í3:ô1:ò0:A$–"LET'S MAKE FUNNY FACES !":H–12:V–180:∞840¡ÅL–1¡500:Ç÷"≤ ** 1ST LOOP **·,ÅT–1¡26¥T∞930,940@π232,0:π233†≤ ** TITLE PAGE **- ™ë:í3:π…16302,0:∞1030h ¥π232,0:π233,73:í3:ô1:ò0:A$–"FUNNY FACE":H–86:V–60:∞840Ç æî35≈134,80:î58≈144,80ß »A$–"STEVE SMITH":H–80:V–100:∞840œ “A$–"COPYRIGHT 1986":H–70:V–170:∞840˘ ‹A$–"MICROSPARC, INC.":H–60:V–180:∞840 ÊÅT****************** Pâ:ó5 Z∫Á(4);"BLOAD C.SHAPES"W d∫Á(4);"BLOAD HI.RES.CHAR.SET"i n≤ ** SOUND **t xÜM(24)î ÇÅI–0¡23:áM(I):π770»I,M(I):Ç„ åÉ 174,0,3,173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,5,3,96˝ ñP–…16368:Q–…16384:N–1 1( ≤ ********************************O≤ * FUNNY.FACE *v≤ * BY STEPHEN W. SMITH *ù(≤ * COPYRIGHT 1986 *ƒ2≤ * BY MICROSPARC, INC. *Î<≤ * CONCORD, MA 01742 * F≤ ************** $"´120:≤ DO IT AGAIN NTER SLOT NUMBER FOR YOUR":∫" FORMAT DISK (1-7): <6>";BS$;BS$;:æSL$:≠SL$–CR$ƒSL$–"6"o,SL–Â(SL$):¢11:ñ22:∫SL$ë6≠(SL—1)Œ(SLœ7)ƒ∫BL$;BL$;:´290@¢14:ñ1:π…16368,0:å…958:∫"ENTER DRIVE NUMBER FOR YOUR":∫" FORMAT DISK (1-2): <1>";BS$;BS$;:æDR$:≠DR$–CR$ƒDRL(3)–136:PN$(3)–"COMPRESSED"\ÊPC$(4,1)–EX$»"4":PC$(4,0)–EX$»"5":LL(4)–80:PN$(4)–"ITALICS"°PC$(5,1)–EX$»"-1":PC$(5,0)–EX$»"-0":LL(5)–80:PN$(5)–"UNDERLINED"»˙B1$–EX$»"G":BZ$–EX$»"H":≤ BOLDFACEŒ≤‚≤ MAIN PROGRAMË≤T"ó:π…16368,0:¢10:∫"EPRINTER COMMANDS ¥≤e æD$–Á(4):CR$–Á(13):BS$–Á(8):EX$–Á(27):BL$–Á(7):≤COMMONLY USED CONTROL CHARSü »PC$(1,1)–EX$»"P":PC$(1,0)–"":LL(1)–80:PN$(1)–"NORMAL"‹ “PC$(2,1)–Á(14):PC$(2,0)–Á(20):LL(2)–40:PN$(2)–"EXPANDED"‹PC$(3,1)–Á(15):PC$(3,0)–Á(18):LSEATH":∞1470L Z¢20:∫"*COPYRIGHT (C) 1986 BY MICROSPARC, INC.*":∞1990:∞2050s d¢1:ñ13:û:∫"THE FORMS SHOP":ù:π34,1~ n•´1880Ñ x≤ï Ç≤ SET UPõ å≤Î ñNC–5:ÜL(55),LE(55),M(55),Y(55),T$(55),E$(55),X(55),PC$(NC,1),PN$(NC),LL(NC)Ò †≤ ™≤DISK AND ≤*******8.1.86*********9≤* FORMS.SHOP *U≤* BY PAUL S. DUNSEATH*q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** Pó:¢10:ñ13:û:∫"THE FORMS SHOP":ù:∫:ST$–"BY PAUL S. DUN *5w6<""<""<< <""< <$"< """2 "6**""""""""<""< :$"""<"""**6""< >0>,**":<"">""""""""""">>>"2"<"">""" "" ">"6**"""&*2""""""""""*,"""< ">""""""""""**6"""""> >>> >0000>">> ($, *,**>> 2**&" >>""""> > ""> """""< >>" 11»I,Ê(Í(I$,I))»128ÇÇ˙π72,0:π223,‚(248):≤ ZERO STATUS REGISTER TO AVOID 'HANG'; ALSO SAVE STACK POINTER FOR RESUME HANDLERªå65392:≤ $FF70,-144-->SCAN THE KEYBOARD INPUT BUFFER”å768:≤ EXECUTE TONEó:¢23:ñ1:∫"PRESS <RETURN>";:π…16368,0:æX TO BASIC n≤ xó Ç¢10:ñ1e å∫"PRESS <RETURN> TO EXECUTE TONE ROUTINE":∫"PRESS <ESC> TO QUIT"â ñ¢15:π…16368,0:æX$:≠X$–Á(13)ƒ220ù †≠X$–Á(27)ƒâ:ó:Ä¶ ™´130¨ ¥≤… æ≤ INPUT MONITOR COMMANDS‰ »≤ INTO KEYBOARD BUFFERÍ “≤˘ ‹ÅI–1¡„(I$)Êπ5IDIS ≤ USING METHOD FOUND ATP ≤ HTTP://WWW.LLX.COM/~NPARKER/A2/SHLAM.HTMLr 2≤ DEFINE MONITOR INPUT STRINGΩ <I$–"300:A2 20 AD 30 C0 A4 08 88 D0 FD CA D0 F5 C6 08 D0 EF 60 N F328G"√ F≤⁄ P≤ LOADS IN A SHORTÚ Z≤ TONE ROUTINE THEN d≤ RETURNS≤ **********************;≤ * LAM.DEMO2 *X≤ * BY MARK CRAVEN *u≤ * COPYRIGHT (C) 1986 *í≤ * BY MICROSPARC, INC *Ø≤ * CONCORD, MA 01742 *Ã≤ **********************Î≤ MODIFIED TO WORK ON IIGS ≤ BY S. KARATSOR≤ OUTCOMEf¢22:ñ1:∫√40),p¢24:ñ1:∫√39);Pzü:¢24:ñ13:∫"THE GAME'S OVER";:ùjÑÅPAUSE–1¡15:∫BELL$;:Ç}é¢24:ñ13:∫√15);ïò≤ VICTORY OR DEFEAT•¢≠RR–4ƒ∞2240∂¨≠RR—œ4ƒ∞2320º∂± ¿≤ VICTORYÈ G–10…N:≤ NUMBER OF GUESSES˙‘RK$–"NOVICE"ﬁ≠œ…9ƒ∞2090‰ÇIÓ±5¯≤ RIGHT FRUIT, RIGHT PLACE@ÅI–1¡4Ñ≠CODE(I)–GUESS(I)ƒî8≈XC,Y:Y–Y»12:GUESS(I)–…9:CODE(I)–…9:RR–RR»1äÇê ±Ø*≤ RIGHT FRUIT, WRONG PLACE∫4ÅJ–1¡4Ó>≠CODE(J)–GUESS(I)ƒî9≈XC,Y:Y–Y»12:CODE(J)–…9:J–4ıHÇJ˚R± \,I 25…15+bÅPAUSE–1¡10:P–‚(…16384):ÇPAUSE;l≠P—128ƒ1860Ivπ…16368,0UÄA–P…128[ä±lî≤ GRADE MOVEäûÅI–1¡4:CODE(I)–SCODE(I):Çô®Y–113:RR–0Ω≤≤ RIGHT FRUIT, RIGHT PLACE (RR)«º∞2040ÊΔ≤ RIGHT FRUIT, WRONG PLACEÒ–ÅI–1¡4 ⁄≠GUESS(I)—OUR LAST CHANCE !"-¢24:ñ(21…„(S$)À2):∫S$;_ÅI–1¡20:CLICK–‚(…16336):ÅPAUSE–1¡150:ÇPAUSE,Iq¢24:ñ12:∫√18)î&XC–(10…N) 25»35:≤ X COORDINATEö0±¡:π…16368,0:≤ FLASH AND GET KEYPRESS”Dî7≈XC,I 25…15ˆNÅPAUSE–1¡10:P–‚(…16384):ÇPAUSEXï7≈XCFILE,R"R! n∫"THIS IS RECORD #"R) x´90B Ç∫D$;"CLOSE TESTFILE"H åÄd ñÉ 1,10,100,1000,10000,0 f ≤ **********************;≤ * TEST.FILE.MAKER *X≤ * COPYRIGHT 1986 BY *u(≤ * MICROSPARC, INC. *í2≤ * CONCORD, MA 01742 *Ø<≤ **********************¡FD$–Á(4):L–100‹P∫D$;"OPEN TESTFILE,L"LÏZáR:≠R–0ƒ130 d∫D$;"WRITE TEST¯ æﬁ©ˇÖ©ÖLπ ¯Êé‡%∞$ LÁéäm…(∞ LÁé‡ê LÁé‡∞`Lô·•(Ö•) <Ö§$±Ië,¿˚Ië≠¿,¿`Ê$•$≈!êLÁΔ$•!Ö$Δ$•"≈%∞Δ%L"¸`À Õ…ïàäãò)i¡ £ @Ö†ŸÉÎà¯8I¿–LS i˝ê≥ºi˝¬∞©äLù`PÖ`© Ö©Ö™®Ω-ë»Ω.ë»–ÚÊ•…@)j™L`*UU* /˚ X¸ O© ÖÊ©Ö ,W¿,R¿,P¿`©Lçı©ççˆ©ç˜≠“…æ–©ùç0æ©ç1æ©ç2æ©ç3æ`©ùÖ6©Ö7©Ö8©Ö9LÍ…ó– ± S L∑…Æ– ± N L∑…î…®…øL…ﬁ ± ◊ L∑ ± û L∑ ± 1 {›†±†Öà±†Öà±†ÖN± ù»¿(ƒN–Ú© ù»¿(– REGISTER TO AVOID 'HANG'; ALSO SAVE STACK POINTER FOR RESUME HANDLER~|å65392:≤ $FF70,-144-->SCAN THE KEYBOARD INPUT BUFFER¨Üó:¢23:ñ1:∫"PRESS <RETURN>";:π…16368,0:æX$√ê´130:≤ DO IT AGAIN ∫ TO MOVE PICTURE":∫"PRESS <ESC> TO QUIT"L¢24:π…16368,0:æX$:≠X$–Á(13)ƒ340`≠X$–Á(27)ƒâ:ó:Äi"´250o,≤å6≤ INPUT MONITOR COMMANDSß@≤ INTO KEYBOARD BUFFER≠J≤ºTÅI–1¡„(I$)÷^π511»I,Ê(Í(I$,I))»128‹hÇErπ72,0:π223,‚(248):≤ ZERO STATUS5¡X»80,Y…15:≤ BI»ìX»110,Y…35¡X»110,Y¡X»130,Y¡X»130,Y…15¡X»110,Y…15:≤ Be“ìX»150,Y¡X»150,Y…35:≤ L®‹ìX»173,Y…8¡X»185,Y…8¡X»185,Y…15¡X»170,Y…15¡X»170,Y¡X»185,Y:≤ E±ÊX–25‡ÅI–1¡20:ìX»5 I,Y»5»2 I¡X»200…5 I,Y»5»2 I:ÇÎ˙¢22:ñ1(∫"PRESS <RETURN>ë:π230,64:≤ CLEAR PAGE 1 BUT PLOT ON PAGE 2q å≤ DRAWS FIGURE OUT OF SIGHT ON PAGE 2 BEFORE MOVING IT TO PAGE 1Ä ñí3:≤ WHITEé †Y–80:X–30≥ ™ìX,Y¡X,Y…40¡X»30,Y¡X»30,Y…40:≤ Nÿ ¥ìX»55,Y¡X»55,Y…15:ìX»55,Y…20:≤ IæìX»80,Y…35¡X»80,Y¡X»100,Y¡X»100,Y…1IDIS ≤ USING METHOD FOUND ATP ≤ HTTP://WWW.LLX.COM/~NPARKER/A2/SHLAM.HTMLr 2≤ DEFINE MONITOR INPUT STRINGë <I$–"2000<4000.5FFFM F328G"ó F≤µ P≤ MOVES RANGE $4000-$5FFF– Z≤ (HIRES P2) TO PAGE 1Ï d≤ THEN RETURNS TO BASICÚ n≤¸ xó:â:ê, Ç≈≤ **********************;≤ * LAM.DEMO1 *X≤ * BY MARK CRAVEN *u≤ * COPYRIGHT (C) 1986 *í≤ * BY MICROSPARC, INC *Ø≤ * CONCORD, MA 01742 *Ã≤ **********************Î≤ MODIFIED TO WORK ON IIGS ≤ BY S. KARATSOR )~ëÊ˛ ° †±) @ë»©ë»ƒ˝ê˘±)|ëÊ˛•˛≈ˇê€¢Üˇ ° †•ˇ±)ëò»ë»ƒ˝ê˘±)|ëÊ˛Δˇ‹• Ö¸•" Ö˛•# Öˇ ° ©§!àëà˚Ê˛•˛≈ˇêÎLX¸Æ Ü¸ÆËËÜ˝≠ ™ Ü˛≠ ™ËËÜˇ`•˛ )Ö•˛JJJJ)ÊÖ©êiÖN•˛J)`ÖJJNe¸Ö`Ñ†ëΔ•…ˇ–Δ•…§`ÑÊ–Ê†±§`hh©Ö©iÖ˝ ° •Ö•Ö§˛•˝Ö˛ ° •˛Ö˝Ñ˛†±ë»ƒ!ê˜Ê˛Ê˝•˝≈ˇ∞êœ ° ©†ë»ƒ!ê˘Ê˛•˛≈ˇêÍL‘•…–•…ˇ–`¢ Í ùË‡–ı¢ Í ï Ë‡ –ˆ } •˛§ˇ¶˝ Ü˝àÖˇÑ˛ ° §˝ Í ëà¿ˇ–ˆΔ˛•˛≈ˇ∞Ë`•ç¸ •ç } ° †± — »ƒ˝êˆÊ˛•˛≈ˇêÈ¢ µ — ¯¢Ω — ˜¢Ωï ¯ } Δ˝ΔˇΔˇ ° †±)ëò»ë»ƒ˝ê˘±π©Lçı©Øçˆ©ç˜`ë(Ü§$•(Ö•) <Ö¢±HÊN–ÊO –Ië¢P,¿Ïhë≠¿…õ– ,¿ îL±(¶L˝•(e$Ö•)iÖ•)@•– •) –©,©,©Ö• Ö¢†±E¸ëÊ•iÖ Ì`ÖÑÜ§2¿ˇ†Ñ¸•)… ∞(…–©Ö…–©ˇÖ…… …– S §¶•L˝ W§$»ƒ!êÌ§%»ƒ#êÊ• Ö¸•# Öˇ•" Ö˛Í(S$,S,1):ÇS,H:±)@É1,15,9,3,9,28,18,15 æ∞310 »ÅH–0¡3 “SL–0- ‹¢VP(H):ñHP(H)9 ÊÅC–1¡13J X–D%(13 H»C)x ˙S–”((X…1)À13):≠S—œSLƒ¢VP(H)»S:ñHP(H):SL–Sç ∫Í(C$,X…13 S,1);ô ÇC:∫:ÇHª Ñ"ANOTHER? ";YN$:≠YN$–"Y"ƒ130¡ "Ä⁄ ,≤ PRINT SUIT LETTERS6ó:ÅH–0¡3:¢VP(H):ÅS–1¡4:ñHP(H)…2:∫" dÜDL(52),D%(52),VP(3),HP(3): nÅI–0¡3:áVP(I),HP(I):ÇS x≤ CREATE RANDOM DECKt ÇÅI–1¡52:DL(I)–€(1):D%(I)–I:Çõ å≤ SORT FP ARRAY WITH INT TAGALONGS´ ñØDL,1,52,D%¿ †≤ SORT EACH HANDÂ ™ÅH–0¡3:F–13 H»1:L–F»12:ØD%,F,L:Ç˛ ¥≤ DISPLAY FOUR HANDS* ≤**********************9≤* BRIDGE.HANDS *U≤* BY LOREN WRIGHT *q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤**********************‡P∫Á(4)"BRUN SUPER.SORT" ZC$–"AKQJT98765432":S$–"SHDC`‘`‘`‘`‘`‘``‘````‘``≠zîçgî•∏H•πH•˚H•¸H≠tîÖ∏≠uîÖπ≠{îÖ˚≠|îÖ¸†±∏—˚ê∞Œgî≠gî » ‡–ËL'î8hÖ¸hÖ˚hÖπhÖ∏`†î©s ˘Í¢• #Î†î©z ˘Í†©• ≤Î`≠6ïÕãîê –≠5ïÕäî∞¢5L‘`````‘````‘`‘```````‘`‘`‘`‘`‘`‘`‘0 „ﬂHòH≠pîÖ∏≠qîÖπ†hë∏hàë∏≠oî–©çoîÓoîÓoî≠oî…–¥©5Ö∏©ïÖπ „ﬂç5ïå6ï Oî`©çhîÆhîΩGïçiî≠hî ®πiëÖ∏»πiëÖπ†±∏–»±∏–`†±∏H»±∏ÖπÖ¸hÖ∏Ö˚¨iî•˚mÉîÖ˚•¸mÑîÖ¸à¿–Ï¨iîà±˚ôjî±∏ë˚πjîë∏à¿ˇ–ÌÓhî≠hî……–`ÓhîÓhîL+ì≠sî)Ä ≠zî)Ä–`≠zî)Ä8`≠sîÕzî`≠tîÕ{î`Æzî‡–8`Æsî‡–˚©îÖ¸ í≠Éî…– ≠Ñî…– &ì àí≠äîÕ5ï–¡≠ãîÕ6ï–π`•˚iÖ˚•¸iÖ¸`†±∏H»±∏ÖπÖ¸hÖ∏Ö˚†±∏ôsîà¿ˇ–ˆ í†±˚ôzîà¿ˇ–ˆÓÅî≠Åî…–ÓÇî ê†πzîôsîà¿ˇ–ı≠ÅîçÉî≠ÇîçÑî•˚Õ5ï–•¸Õ6ï–` íL<í©™çrîΩiëÖ∏ËΩiëÖπË¨rîπGïç´í†±∏ië∏»±∏ië∏Órî≠rî…–œ`¢éoîÆoîΩiëÖ∏çpîËΩiëÖπçqî†±∏–åFïåáî¨áîπiëÖ˚»πiëÖ¸ÓáîÓáî ë≠ÜîÓFïLDë≠áî…–©çáî…–ŒLDë†±˚»Lë¿–ÓÜî`¢©(ë˚»Ωôîë˚»ËL3ë©)ë˚`©£ç4ë©îç5ë©5Ö˚©ïÖ¸ ë`ÆDïΩiëÖ˚ËΩiëÖ¸`äîôî£î≠îºîÀî⁄îÈî¯îïï%ï5ï†…©ôâîà–˙` ¿í≠Gïçí≠Gï…–©ßçVí©ìçWíLΔë…–©–çVí©ìçWíLΔë©4çVí©îçWí©çÅîçÇîçÉîçÑî©äÖ∏©îÖπ©äÖ„èr©ÖsÖoçˆ©êç˜Æø‡L–8ÈÖtÖp` bê Éë Zë xê©êçXí≠Eï©∞çXí≠DïJ™≠âîùGï ≈êÓDïÓDï≠Öî–“¢Ωäîù5ï ˜ –ê éë mê†±∏……:»–Ûòe∏Ö∏êÊπ`•∏çSï•πçTï`≠SïÖ∏≠TïÖπ`†©çÖî±∏……:…,…Àë˚»LêÓEïŒÖî¿–`à±˚…$–©çâî»»`…%–©çâî»»`©çâî»»`òe∏Ö∏êÊπ`©ôç4ë©îç5ë†åÜî SS+|¢24:ñ11:∫"PLEASE ENTER FRUIT";BELL$;6ÜÅI–1¡4@ê∞1850OöFRUIT–A…48s§≠FRUIT—1ŒFRUITœPFƒ∫BELL$;:´1680âÆîFRUIT≈XC,I 25…15ú∏GUESS(I)–FRUIT£¬ÇI≠ÃN–N…1≥÷±ƒ‡≤ TURNS LEFT◊Í¢24:ñ11:∫√18);ÒÙS$–‰(N)»" TURNS LEFT"˛≠N–1ƒS$–"Y:î15≈10,60:î14≈10,85“í3%‹Y–1132ÊÅI–10¡14EîI≈10,Y:Y–Y»10K˙ÇQ±]≤ LABELh¢22:ñ1s"ÅI–1¡5è,û:∫I;:ù:∫FRUIT$(I);√2);ï6Çº@≠PF–6ƒ¢24:ñ1:û:∫"6";:ù:∫FRUIT$(6);¬J±”T≤ ENTER MOVEÏ^≤ DISPLAY TURNS LEFTˆh∞1760r≤ GUE∞1360≤ VERTICAL LABEL'(∞1420>2≤ HORIZONTAL LABELH<∞1550NF±[P≤ RECORDfZÅI–1¡4ÄdSCODE(I)–”(PF €(1))»1ÜnÇúxN–10:≤ TURNS LEFT¢Ç±Æå≤ LABELøñó:ë:ò0:ô1:í3œ†ÅY–10¡85«25€™î7≈10,Y·¥ÇËæí0»î11≈10,10:î12≈10,35!L¢16:ñ15:∫"CHOICE = ? ";BELL$;)VæS$5`K–Â(S$)Gj≠K—1ŒKœ2ƒ1100dtPF–K»4:≤ PIECES OF FRUITj~±zà≤ PLAY GAMEÄí≤äú∞1280ê¶≤ö∞∞1620†∫≤™ƒ∞1940∞Œ≤ƒÿ≠RR—œ4ÕNœ0ƒ1200 ‚≤‘Ï∞2140⁄ˆ±Ò≤ INITIAL POSITION˛ ≤ RECORD51,54,46,03 É 40,21,62,63,39,12,23,54,14,45,37,0Y‘É 56,23,54,14,45,37,36,60,37,60,0lﬁÅI–16384¡17019sËáV|ÚπI,VÇ¸Çïπ233,64:π232,0õ±°≤ß$ó¡.¢10:ñ15:∫"DIFFICULTY"‡8¢12:ñ15:û:∫"1";:ù:∫" EASY"ˇB¢14:ñ15:û:∫"2";:ù:∫" HARD"QA$–Á(27)ƒó:Ä%Ä≠Ê(QA$)—32ƒ¢VV:´600:äQB$–QB$»QA$:´600@î±Uû≠QB$–""ƒå…1036:±Ü®≠„(QB$)œ1ƒQB$–Ë(QB$,„(QB$)…1):∫" ";:å…1008:±†≤QB$–"":∫" ";:å…1008:± T≤ INPUT SUBROUTINE*HH–„(QQ$):ñ1:¢VV4∫QQ$;L&ñHH:å…958:∫QB$;:ñHHv0æQA$:∫QA$;:≠QA$–Á(27)ƒâ:ó:´500:≤ QUITú:≠Ê(QA$)—32ÕQA$—œÁ(13)ƒ∫Á(7);:´530≠D≠QA$–Á(13)ƒ±øNQB$–QA$:å…868ŒXæQA$:∫QA$;‚b≠QA$–Á(13)ƒ´660˙l≠QA$–Á(8)ƒ∞670:´600v≠"∏æCH$:∫CH$:≠CH$–Á(13)ƒ´1805¬≠CH$–Á(27)ƒó:´320EÃ∫Á(7);:´420K÷¶ èPRESS <RETURN>, OR PRESS <ESC> TO ":∫"QUIT":J|æCH$:∫CH$:≠CH$–Á(13)ƒ´180`Ü≠CH$–Á(27)ƒó:´320pê∫Á(7);:´370Äö≠ER—œ8ƒ´470´§¢7:∫" *** A DISK ERROR OCCURRED ***":∫Æ∫"PLEASE CHECK YOUR DRIVE, THEN PRESS":∫"<RETURN> TO CONTINUE, OR <ESC> TO QUIT.6,111,964,∫D$"BSAVE DISKOVERER.UNI,A$7000,L$1218"f6ó:¢7:∫Á(7);"DISKOVERER.UNI HAS BEEN CREATED."l@Ä|Jó:ER–‚(222)áTπ216,0ó^≠ER—œ6ƒ´410“h¢7:∫Á(7);:∫" *** DISKOVERER IS NOT ON THIS DISK ***":∫,r∫"INSERT THE DISK WITH DISKOVERER":∫"AND ‹π30354,32:π30421,32:π30587,327Êπ29179,31:π29226,31Yπ29211,50:π29270,50:π30335,50q˙π30411,50:π30577,50π29236,49£π29343,76:π29344,248:π29345,129¿ÅX–33272¡33291:áA:πX,A:Ç"É 173,26,111,201,1,240,7,169,1,141,26,111,208,5,169,3,141,2EATED.":∫:∫:∫"INSERT THE DISK WITH DISKOVERER ON IT.":¢20:∫"PRESS <RETURN> TO CONTINUE,<ESC> TO QUIT";x å¢21:æCH$:∫CH$å ñ≠CH$–Á(13)ƒ´180¢ †≠CH$–Á(27)ƒó:´320µ ™∫Á(7);:ñ1:´140ø ¥•´330À æD$–Á(4)Â »∫D$"BLOAD DISKOVERER"˝ “π29196,32:π29310,32****** dâ:ó:ùh n∫"*** DISKOVERER CONFIGURE PROGRAM ***":∫:∫"COPYRIGHT 1986 BY MICROSPARC, INC.":∫:∫Ã x∫"THIS PROGRAM WILL CONFIGURE DISKOVERER ":∫"TO RUN WITH THE UNIDOS 3.3 OPERATING":∫"SYSTEM.":∫f Ç∫"A NEW FILE NAMED DISKOVERER.UNI WILL BE":∫"CRM ≤ **********************;≤ * CONFIGURE *X≤ * FOR DISKOVERER *u(≤ * TO RUN UNDER *í2≤ * UNIDOS 3.3 *Ø<≤ * COPYRIGHT 1986 BY *ÃF≤ * MICROSPARC, INC. *ÈP≤ * CONCORD, MA 01742 * Z≤ **************** ˛zˇ#?ˇΔœ“Õ”ÆÕÿ∏∞††††††††††††††††††††‘œŒ≈Æƒ…¡Ã≈“††††††††††††††††††† ¡àààààààà¡’«’”‘†±π∏∂†††††††††† àààààààà†††††††††††††††††††††!ƒ…”Àœ÷≈“≈“††††††††††††††††††††√œŒΔ…«’“≈†††††††††††††††††††††‘≈”‘ÆΔ…Ã≈ÆÕ¡À≈“†††††††††††††††Δœ“Õ”Æ”»œ–†††††††††††††††††††† Δœ“Õ”Æ…Õ◊“††††††††††††††††††††ƒ…÷Æ∏¬…‘††††††††††††††††††††††Õ’Ã‘Æ±∂¬…‘††††††††††††††††††††”Õ’Ã‘Æ∏¬…‘††††††††††††††††††††¡Õ–≈“Æ‘œŒ≈††††††††††††††††††††Δœ“Õ¡‘Æƒ≈Õœ†††††††††††††††††††–“…Œ‘≈“Æƒ≈Õœ††††††††††††††††††…àààààààà††††††††††††††††††††† ”»œ◊†††††††††††††††††††††††††† √»¡“Æ”≈‘††††††††††††††††††††††”»œ◊Æƒ≈Õœ††††††††††††††††††††† ◊œ“ƒÆ≈Ã≈÷¡‘œ“†††††††††††††††††&–“…Œ‘≈“†††††††††††††††††††††††–‘¡¬Ã≈††††††††††††††††††††††††Õ’Ã‘Æ∏¬…‘††††††††††††††††††††† ÷œ“¡‘…œÆ¬…Œ†††††††††††††††††††÷œ“¡‘…œÆ”»¡–≈”††††††††††††††††Δ…Ã≈ÆÕ¡À≈“††††††††††††††††††††¡’‘œÆ√Ã≈¡Œ≈“†††††††††††††††††† «àààààààà†††††††††††††††††††††!¡àààààààà ’ÃŸ†±π∏∂††††††††††††"»àààààààà††††††††††††††††††††† ¡–œ√¡Ã††††††††††††††††††††††††≈àààààààà†††††††††††††††††††††¡àààààààà ’Œ≈†±π∏∂††††††††††††Δàààààààà†††††††††††††††††††††Õ…√“œ”√œ–≈††††††††††††††††††††ƒ≈√…”…œŒÕ¡À≈“†††††††††††††††††3÷œ“¡‘…œ†††††††††††††††††††††††Ã¡ÕÆƒ≈Õœ±†††††††††††††††††††††Ã¡ÕÆƒ≈Õœ≤†††††††††††††††††††††Δ’ŒŒŸÆΔ¡√≈††††††††††††††††††††»…Æ“≈”Æ√»¡“Æ”≈‘†††††††††††††††√Æ”»¡–≈”†††††††††††††††††††††† ≈““œ“ÆÃ…”‘≈“†††††††††††††††††† ≈““œ“Æƒ≈Õœ††††††††††††††††††††–¡«≈Æ‘◊œÆ‘≈ÿ‘†††††††††††††††††“œÕÆ◊“…‘≈“††††††††††††††††††††!√àààààààà†††††††††††††††††††††"¡ààààààààÕ¡Ÿ†±π∏∂†††††††††††††ƒàààààààà†††††††††††††††††††††”’–≈“Æ”œ“‘††††††††††††††††††††¬“…ƒ«≈Æ»¡Œƒ”††††††††††††††††††Ç»≈ÃÃœ†††††††††††††††††††††††††¡àààààààà†††††††††††††††††††††¡àààààààà¡–“…Ã†±π∏∂†††††††††††¬àààààààà†††††††††††††††††††††¡––Ã≈”œΔ‘Æ√œÕ–¡“≈†††††††††††††Δ…ŒƒÆ≈Õ†††††††††††††††††††††††ÕœŒ…‘œ“ÆÕœƒ”††††††††††††††††††INE(S) FROM TOP":C"Í≠CE$–"Y"ŒCE$–Á(121)ƒ∫"TEXT IS CENTERED":´1790a"Ù∫"TEXT IS LEFT JUSTIFIED"p"˛π34,9:©200ó"ÅK–1¡M:∫"LINE # ";K;": ";T$(K):Ç:∫"©255:π…16368,0:ñ1:¢23:å…868:∫"IS THIS SET-UP OK <Y/N> ? < >";BS$;BS$;:æA$:∫A$;:π34,1 #≠A$–"Y"ŒA$–‚(…16384)—128´1690:≤17 SPACES+!Æ¢23:å…9581!∏±7!¬≤[!Ã≤ USER'S VERIFICATION OF SET-UPa!÷≤"‡ó:∫"SUMMARY OF THE FORMAT YOU HAVE CHOSEN :":∫:∫"LINES PER FORM = ";M:∫"BLANK LINES BETWEEN FORMS = ";L:∫"NO. OF REPETITIONS = ";R:∫"FIRST LINE IS ";H;" LK))À2 ^Y(K)–M(K)…LE(K)8 h≠CE$–"N"ŒCE$–Á(110)ƒY(K)–1> r±D |≤_ Ü≤ PRINTER PREPARATIONe ê≤v ö¢23:ñ1:å…958!§¢23:ñ1:∫" PLEASE AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:¢23:ñ1:∫" PLEASE PREPARE PRINTER AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:≠SORRY, IT MUST BE ONE OF C, I, W, OR R":∫:∫:∞1990:´1540h6X(K)–Â(X$):M(K)–40:L(K)–80 „(T$(K))ÀLL(X(K))Â@π…16368,0:ñ1:¢20:∫"DO YOU WANT BOLD-FACE PRINT <Y/N>? < >";BS$;BS$;:æE$:∫E$:≠E$—œ"N"ÕE$—œÁ(110)ÕE$—œÁ(121)ÕE$—œ"Y"ƒ1600ÚJE$(K)–E$ TLE(K)–(L(K)–"":AD–Â(T$(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:Ç∑ó:¢10:∫"PLEASE SELECT ONE OF -":∫:ÅI–1¡NC:∫" <"I"> "PN$(I):ÇI:∫:∫" < >";BS$;BS$;:æX$:∫X$Ω≤Ÿ≤ CENTERING CALCULATIONﬂ"≤7,≠X$—"1"ŒX$œ‰(NC)ƒ∫BL$;BL$:∫"(…16336):ÅY–1¡20:Ç:Ç:∫:©255:ÅI–1¡1000:Ç:±/»≤F“≤ START OF SET-UPL‹≤âÊó:¢10:∫"WHAT DO YOU WISH TO PRINT":∫" ON LINE ";K;" ? "◊¢13:ñ1:ÅL–1¡39:∫".";:Ç:∫"^";:ÅL–1¡39:∫".";:Ç:∫"^";:ÅI–1¡52:∫".";:Ç:¢13:ñ1¯ıå54572:ÅB–512¡768:≠‚(B)—œ0ƒÇV˙T$(TO EXIT"Ex∫:∫:ñ6:∫"OR ";:û:∫"ANY OTHER KEY";:ù:∫" TO CONTINUE ";:gÇæA$:≠A$–"E"ŒA$–Á(101)ƒ∫:´1430qå´1150§ñ¢22:∫:ñ13:ST$–"'BYE FOR NOW..":∞1470:π34,0:ó:Ä™†≤Δ™≤ SLOWPRINT SUBROUTINEÃ¥≤)æ©175:ñ10:ÅX–1¡„(ST$):∫Í(ST$,X,1);:Z–‚(…16336)»‚":∫√8);"<R> TO RESTART":∫:∫√8);"< >";BS$;BS$;:æA$:∫A$PF≠A$–"Y"ŒA$–Á(121)´1390kP≠A$–"N"ŒA$–Á(110)´1150ÖZ≠A$–"R"ŒA$–Á(114)´380öd∫:∫BL$;BL$:´1330n∫:∫:∫:∫"EXITING WILL DESTROY ANY FILE IN RAM...":∫:∫" PRESS ";:û:∫"E";:ù:∫" TO CONFIRM YOU WISH :∫E$(K):∫T$(K):∫Y(K)Ç\ ∫D$;"CLOSE";F$:∫:∫" FILE ";F$;" CREATED":∞1990:≤6 SPACESb≤}≤ LEAVING THE PROGRAMÉ(≤ì2π…16368,0:ó5<¢6:∫"WOULD YOU LIKE TO QUIT?":∫:∫" PRESS <Y> FOR YES":∫√8);"<N> TO RETURN TO THE":∫√16);"PREVIOUS STEP´≠F$–""ƒ1330 ∞≠F$—œ"?"´1240c∫≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DRmƒ∞1990wŒ´1190÷ÿ∫:∫D$;"OPEN";F$;",S";SL;",D";DR:∫D$;"CLOSE";F$:∫D$;"DELETE";F$:∫D$;"OPEN";F$:∫D$"WRITE";F$Î‚∫M:∫H:∫R:∫L:∫CE$ˆÏÅK–1¡Mˆ∫X(K)LIKE TO SAVE THIS FORMAT":∫" TO DISK <Y/N> ? < >";BS$;BS$;:æA$:∫A$^à≠A$–"N"ŒA$–Á(110)´1330yí≠A$–"Y"ŒA$–Á(121)´1190åú∫BL$;BL$:´1150˛¶ó:¢10:∫" WHAT FILE NAME DO YOU WISH TO USE? ":∫" PRESS ? TO SEE A CATALOG OF THE DISK":∫:Ñ"FILE NAME: ";F$Á(110)´1150".¢15:∫BL$;BL$:´1040m8π…16368,0:ó:¢10:∫"WOULD YOU LIKE TO RERUN <Y/N>? < >";BS$;BS$;:æZ$:∫Z$äB≠Z$–"Y"ŒZ$–Á(121)ƒó:´210•L≠Z$–"N"ŒZ$–Á(110)´1150∏V∫BL$;BL$:´1080æ`≤“j≤ SAVE THE FORMÿt≤C~π…16368,0:FLAG–4:ó:¢10:∫"WOULD YOU 4,128:æZ$:â:ó# ñ∫:∫Á(4);"CATALOG") †øI *";& <ÅI–0¡39:∫"*";:ÇI0 Fπ34,76 dó< i∫m n∫"This disk contains DOS 3.3 only programs";ú x∫"from Nibble Magazine Volume 7, 1986 and"ƒ Ç∫"Nibble Express, Volume 7. Enjoy!" å∫:∫"Press RETURN to CATALOG the disk.":π…16368,0:µ…1638* óÅI–0¡39:∫"*";:ÇIM∫"* *";~(∫"* Nibble Magazine Programs *";Ø-∫"* DOS 3.3 *";‡2∫"* 1986 *"; 7∫"* ˇ`¨n m` ÆÔ•ü)iÕ˜nÒç˜n™•†)i ç¯n®© ç'mçBmç^mçHm Mm≠Únê…Æ˜n¨¯n m`¢ΩObÖ¸ÖΩcÖ˝ΩœcÖ†©ë¸ë»¿&–ıË‡†–›`¨˝`πÑiçRnπóiçSn†åÙnåˆn©çˇnÆˆnΩ«`Ö¸ÖΩ∏fÖ˝Ω≈fÖi çınÆÙn†Ω“fÖÔ©çÛnÔê©ë¸ë»ŒÛn–ËÏˇn–‡•˝iÖ˝Õın–œ≠ˇnçÙniçˇnÓˆn≠ˆn…–ü`©@ÖŒ©Dç¸n©ç˝nå˙n m†Ω`1Ó˘nË»Ω`1Ó˘nËÊÏΔ–‹` Úl§Ï m†Ω`Iˇ1¸ë¸ë»ËΩ`Iˇ1¸ë¸ë»ËÊÏΔ–Ÿ`¶˘§˙ΩßeÖÎΩèd™ÑÏ©Ö`πObeÎÖ¸ÖπcÖ˝πœcÖ` ;m§Ï m†ËΩbQë¸ë»ƒ–ÒÊÏ‰ê‰`ÜÎÑÏ¢ΩbÖËΩbÖ`©çÚn ;m§Ï m†ËΩb1¸ÓÚn»ƒ–ÊÏ‡+ê„` ÆÔ•ü)içˇ`™•†)i çn®©ç'mçBmç^mçHm Mm≠ÚnêŒÆ'†±÷Ö˘»±÷Ö˙ «l†¶ πaôa»πaôa» –ÔêΔÊ ÊÊ†ΔΔ±Ö˘HÊ±Ö˙HÊ©ÍçÿlçŸlçÂlçÊl «l†•˘e˛Ö˘ë»•˙eˇÖ˙ë öl≠˘n? Êm öl≠˘n–1¨˛n ∞nà–˙©`ÖŒ©dç¸n©ç˝n ÕnΔ˚–ê sm Øm•iÖê Êm©ëçÿlçÂl©¸çŸlçÊl slhÖ˙hÖ˘ sl Úl§Ï m†Ω`ë¸ë»ËΩ`ë¸ëË»ÊÏΔ–›`©ç˘n Úl§Ï sl sm Øm,¿≠¿˚≠¿ …õ–L+k…†–,¿≠¿˚…Ã–,¿L.j 5k,¿ ük≠˘n–≠˛` ®¸•˚–≠˚n–† înà–˙L.jL∑j© ÖŒ©ç¸n©ç˝n ÕnÆË ‡/éË≠¿˚Ó˚nLgj,¿ X¸≠Q¿`… –≠e`ÖÌ†±Ìçe`»±ÌÖ˛»±ÌÖˇ»±Ìçf`êG…À–≠f`ÖÌ†±Ìçe`»±ÌÖ˛»±ÌÖˇ»±Ìçf`ê%…Δ–≠˛`…ê8È ç˛`ê…ƒ–≠˛`ÕÒn∞i ç˛``•…∞™iV¢†ΩObÖ¸ÖΩcÖ˝ΩœcÖ©ë¸ë»¿(ê˜Ë‡£ê›¢†Ωı`ÖΩ˘`Ö© ë»¿(–˜Ë‡–Ê m,P¿,W¿,T¿,S¿©Ö©”Ö¢†Ω‘`ëË»¿!êı©ˇç˝`©`ÖÓ©aÖÖ◊©Ö÷©çÒn©ç˛nÓ˝`≠˝`J∞Ó˛n©ç˚n8≠ÒnÈç˛`çÒnÓÛ≠Û…:–©0çÛÓÚ≠Ú…2–L+k m n≠Ònç˛`©Ö˛©Öˇ≠g`çe`≠j`çf`© Ö˚©Ö © Ö©Ö©†ëÖ˘»©îëÖ˙LD YOU LIKE TO PLAY AGAIN? (Y/N)";:æA$:≠A$–"Y"ƒ1008JÄA<ESC>-EXITS THE GAME";∫:∫"L-ADVANCES TO THE NEXT LEVEL"c∫:ñ9:∫"PRESS <RETURN> TO PLAY";:æA$áX–€(‚(159)) ”(€(‚(160))):å24576¢"CH–‚(24829):≠CH—19ƒ320œ,∫" CONGRATULATIONS YOU MADE IT THROUGH"Ù6∫:∫"19 TOUGH LEVELS OF VORATIO!"2@∫:∫"WOUOUS ONE."Gæ∫:∫" DO YOU NEED INSTRUCTIONS? (Y/N)";:æA$:≠A$–"N"ƒ280p»ó:∫"J-TURN THE HEAD 15 DEGREES LEFT"õ“∫:∫"K-TURNS THE HEAD 15 DEGREES RIGHT"π‹∫:∫"D-SLOWS VORATIO DOWN"÷Ê∫:∫"F-SPEEDS VORATIO UP"˜∫:∫"<SPACE>-PAUSES THE GAME"˙∫:∫" Ç∫:∫"SEARCH OF APPLES. AFTER EATING TEN "[ å∫:∫"APPLES, YOU WILL BE TRANSPORTED TO THE"ã ñ∫:∫"NEXT LEVEL. A 1000 POINT BONUS WILL BE"± †∫:∫"AWARDED FOR A PERFECT LEVEL."ﬂ ™∫:∫"THERE ARE 19 LEVELS AND EACH IS MORE" ¥∫:∫"DIFFICULT THAN THE PREVIIGHT 1986 BY MICROSPARC, INC.**":¢23:ñ7:∫"PRESS <RETURN> TO CONTINUE";:æA$:∫Ö Z∫Á(4)"BLOAD VORATIO.BIN":∫Á(4)"BLOAD VORATIO.SHAPES"† dâ:ó:ñ16:û:∫"VORATIO":ùœ n∫:∫" YOUR MISSION IS TO GUIDE A RAVENOUS"˛ x∫:∫"WORM THROUGH A FIELD OF MUSHROOMS IN "+9≤**********************9≤* VORATIO *U≤* BY DARELL FETZER *q≤* COPYRIGHT (C) 1986 *ç≤* BY MICROSPARC, INC *©≤* CONCORD, MA 01742 *≈≤**********************L Pâ:ó:ñ16:∫"VORATIO":ñ11:∫"BY DARRELL FETZER":∫"** COPYR TECTED.":´1950D$Ä≠ER–9ƒ∫"DISK IS FULL. INSERT ANOTHER DISK.":´1950$ä≠FLAG–2ÕER–5ŒER–6ŒER–254ƒ∫F$" NOT ON THIS DISK.":´1950ü$î∫"ERROR "ER" IN LINE "EL"."¿$û∞1990:¥FLAG´420,420,420,1150Δ$®≤‡$≤≤ PRESS A KEY ROUTINEÊ$º≤y%Δ¢24:å…868:ñ7:∫"PRESS Á(121)´830'#&≠A$–"N"ŒA$–Á(110)ƒó:´630;#0∫BL$;BL$;:´1810A#:≤U#D≤ ERROR TRAPS\#N≤ Ü#XER–‚(222):EL–‚(218)»256 ‚(219):å…3288≥#b≠ER–5ŒER–6ŒER–4ŒER–8ŒER–9ƒ∫D$;"CLOSE";F$‚#l≠ER–8ƒ∫"I/O ERROR--CHECK DRIVE DOOR":´1950$v≠ER–4ƒ∫"DISK IS WRITE-PRO,©¢Fêejf –ÛÖ ©§ Ì˝• ¶ A˘©Ω Ì˝¶• $Ì`ÄÄÄˇˇˇ @ÄÄÄÄÅÅ~‡@@ˇÄˇˇ˛ÄÄÄ<<ÄÄÄˇˇ˛“ˆ>bÜ™ŒÚ:^Ç¶ Ó6`ffggggggghhhhhhhiiiÄÄÄÄÄÄÄáˇ·ààà@@@@@@@@@@@ˇˇÑ!ÄÄÑ!ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÄÄÄÄèÒèÒÄÄÄÄˇˇˇÄˇ¸ÄÄÄÄÄÄÄÄÄÄÄÄ888888ˇ¯<< <<ˇ˛@@@@ˇ˛ˇ¸ˇ¸áˇ·ÄÄÄ !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&'''''''""## !!""## BBCC@@AABBCC@ˇ¸;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW VZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-–––PPPPPPPP–––––––– $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;?@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNR`px|~?cclx```px-xpe`w|p<x||<~8~p?`ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ((((((((®®®®®®®®((((((((®®®®®®®®((((((((®®®®®®®®((((((((®®®®®®®®PPPPPPPP––––––––PPPPPPPP––––––––PPPPPPPP–––––`™ L™i>>8|~~~|8px|||xp`pxxxp`@`ppp`@@```@@?@?@?gj√kgoksows{w{ÉˇáÉ˛ãá˝èã˝ìè˝óì˝õó˝ˇüõ˝˛£ü˝˝ß£˛˝´ßˇ˝Ø´˝≥Ø˝∑≥˝ª∑˝øª˛√øˇgàà0∞0∞0∞0∞X 000000 2 00P–P– Õn¨˙n©† ®¸¢˛ŸΩŸ…:–©0ùŸ ‡–ÏÓËêÊ`≠˝nÖœ¶Œ≠0¿à–Δœ –ˆÔ•ŒiÖŒÕ¸n–ﬁ`-AD PARAMETER":∞2990:´9706ﬁTEST–Â(WD$):TEST–¬A(TEST)|Ë≠TEST—1ŒTESTœ20ƒER$–"(NUMBER OF PERIODS) OUT OF RANGE":∞2990:´970çÚT(DSET)–TEST¥¸IRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0∫±–≤ * END VALUE * ≠T(DSET)–0ƒER$–"(NUMBER OF PERIODS) NOT INP(COST) BAD PARAMETER":∞2990:´910J¢CC(DSET)–Â(WD$):CC(DSET)–¬A(CC(DSET))q¨IRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0w∂±ì¿≤ * NUMBER OF PERIODS *– ó:¢12:ñ1:∫"NUMBER OF PERIODS (1-20)";:∞3040:≠IN$–""ŒXFƒ±‘∞3170:≠RESULT—œ1ƒER$–"(NUMBER OF PERIODS) BETER":∞2990:´840D\RR(DSET)–Â(WD$):RR(DSET)–”(100 RR(DSET)».5)À100kfIRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0qp±Äz≤ * COST *ªÑ≠T(DSET)–0ƒER$–"(NUMBER OF PERIODS) NOT INPUT":∞2990:±Âéó:¢12:ñ1:∫"COST ";:∞3040:≠IN$–""ŒXFƒ± ò∞3170:≠RESULT—œ1ƒER$–"(DSET,I)–¬A(D(DSET,I))ÇC IRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0I*±b4≤ * RATE OF RETURN *ù>≠T(DSET)–0ƒER$–"(NUMBER OF PERIODS) NOT INPUT":∞2990:±ŒHó:¢12:ñ1:∫"RETURN RATE ";:∞3040:≠IN$–""ŒXFƒ±R∞3170:≠RESULT—œ1ƒER$–"(RETURN RATE) BAD PARAMV(DSET)–0:PI(DSET)–0–±,⁄≤ * OUTFLOW *g‰≠T(DSET)–0ƒER$–"(NUMBER OF PERIODS) NOT INPUT":∞2990:±xÓÅI–1¡T(DSET)´¯ó:¢12:ñ1:∫"OUTFLOW ";I;" ";:∞3040:≠IN$–""ŒXFƒ±È∞3170:≠RESULT—œ1ƒER$–"(OUTFLOW) BAD PARAMETER":∞2990:´760D(DSET,I)–Â(WD$):D:ä≠T(DSET)–0ƒER$–"(NUMBER OF PERIODS) NOT INPUT":∞2990:±KîÅI–1¡T(DSET)}ûó:¢12:ñ1:∫"INFLOW ";I;" ";:∞3040:≠IN$–""ŒXFƒ±∫®∞3170:≠RESULT—œ1ƒER$–"(INFLOW) BAD PARAMETER":∞2990:´670Á≤R(DSET,I)–Â(WD$):R(DSET,I)–¬A(R(DSET,I))ÌºÇΔIRR(DSET)–0:NP±:≤ * DATA SET *IDó:¢12:ñ1:∫"DATA SET (1-10) ";:∞3040:≠IN$–""ŒXFƒ±àN∞3170:≠RESULT—œ1ƒER$–"(DATA SET) BAD PARAMETER":∞2990:´580£XSET–Â(WD$):SET–¬A(SET)€b≠SET—1ŒSETœ10ƒER$–"(DATA SET) OUT OF RANGE":∞2990:±ËlDSET–SETÓv±ˇÄ≤ * INFLOW *ATALOG OPTION *SÙET–EF:EF–3:ó:∫:∫D$Ë("CATALOG",7…4 (‚(48896)–76)):≠F$—œ"?"ƒ∞3430_˛EF–ET:±Ä≤ * PRINTER SLOT SELECTION *Üó—¢12:∫"PRINTER SLOT: ";PS;BS$;:æZ$:≠Z$—œCR$ÕZ$—œEX$Õ(Z$—"1"ŒZ$œ"7")´540Ë&≠Z$–EX$ŒZ$–CR$ƒ∫:±0∫Z$:PS–Â(Z$):∞3430:MX–MITEMS(TL)Ü∞3590:≠Z–20ƒ±;ê¥SL∞2000,2450,2320,2230Dö´370\§≤ * PRINT OPTIONS *uÆTL–5:EM–1:∞3540:∞480í∏SL–1:PX–31:MX–MITEMS(TL)§¬∞3590:≠Z–20ƒ±µÃ¥SL∞2570,530æ÷´430ˆ‡¢20:ñ5:∫"PRINTER: ";:û:∫Í("OFFON ",1»3 (CP),3);:ù:±Í≤ * CS(TL)∞3590:≠Z–20ƒ±-¥SL∞2810,2640,5006"´250O,≤ * INPUT NEW DATA *c6TL–3:EM–1:∞3540Ä@SL–1:PX–31:MX–MITEMS(TL)íJ∞3590:≠Z–20ƒ±∏T¥SL∞2000,970,650,740,830,900,1050¡^´310‹h≤ * CHANGE FLOW DATA *rTL–4:EM–1:∞3540|SL–1:PX–31:U *†NC–17:ÜCM$(NC) ™∞35204¥≤ * MAIN MENU *HæTL–1:EM–0:∞3540e»SL–1:PX–31:MX–MITEMS(TL)Å“∞3590:≠Z–20ƒ∫Á(7);:´210¨‹¥SL∞250,310,370,580,1110,430,2600,1960µÊ´190‘≤ * DISK OPERATIONS MENU *Ë˙TL–2:EM–1:∞3540SL–1:PX–31:MX–MITEM0,ME)< nÜT(10),CC(10),RR(10),RV(10),NPV(10),PI(10),IRR(10)∏ xCL–…868:KBD–…16384:RST–…16368:T(DSET)–0:CC(DSET)–0:RR(DSET)–0:RV(DSET)–0:NPV(DSET)–0:PI(DSET)–0:DSET–1:IRR(DSET)–0:CP–0‰ Ç∏¬A(X)–”(X».5):∏¬B(X)–”(X 1000».5)À1000Ù åEF–0:•´3350ñ≤ * MEN:∫"** COPYRIGHT 1986 BY MICROSPARC, INC **":∞3430« ZME–20:D$–Á(4):BS$–Á(8):CR$–Á(13):UA$–Á(11):DA$–Á(10):FS$–Á(21):EX$–Á(27):CS$–Á(95):ÅI–1¡39:UL$–UL$»CS$:Ç:ÜX$(1):X$(0)–" ":X$(1)–"-->":SX–4:PS–1 dÜR(10,ME),D(10,ME),B(10,ME),R1(10,ME),D1(10,ME),B1(1§1 ≤**********************9≤* DECISIONMAKER *U≤* BY RICHARD SCHUBERT*q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤**********************1 Pó:¢10:∫"NIBBLE DECISIONMAKER BY RICHARD SCHUBERT";:¢12 PTœT(DSET)ƒER$–"(DELETE) NOT IN DATA SET":∞2990:±†%ﬁR(DSET,PT)–0:D(DSET,PT)–0:≠PT—T(DSET)ƒÅRM–PT¡T(DSET)…1:R(DSET,RM)–R(DSET,RM»1):D(DSET,RM)–D(DSET,RM»1):ÇRM∂%ËT(DSET)–T(DSET)…1›%ÚIRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0„%¸±Ú% ≤ * EDIT *&& ≠T(DSET)–PR#0",$ò∫:∫"PRESS <RETURN> FOR MENU ";:æA$2$¢±C$¨≤ * DELETE *{$∂≠T(DSET)–0ƒER$–"(DELETE) NO DATA TO DELETE":∞2990:±ß$¿ó:¢12:ñ1:∫"DELETE ";:∞3040:≠IN$–""ŒXFƒ±·$ ∞3170:≠RESULT—œ1ƒER$–"(DELETE) BAD PARAMETER":∞2990:±1%‘PT–Â(WD$):PT–¬A(PT):≠PT—1Œ(X1$));X1$;√16…„(X2$));X2$Y#\≠CP–0Õ(I–8ŒI–16)ƒ∫:∫"PRESS <RETURN> TO CONTINUE ";:æA$:∫:∫_#fÇã#p∫:∫"NET PRESENT VALUE";:∫√12);NPV(DSET)ª#z∫"PROFITABILITY INDEX";:∫√10);PI(DSET);" %"Ô#Ñ∫"INTERNAL RATE OF RETURN";:∫√6);IRR(DSET);" %"$é≠CP–1ƒ∫:∫D$"∫"INFLOW AND OUTFLOW DATA ";DSET:∫Y"∫" PERIOD INFLOW OUTFLOW":≤2/5/7 SPACESë"∫" REVENUES EXPENSES":≤12/6 SPACES ö" ∫UL$Æ"*≠T(DSET)–0ƒ2200ø"4ÅI–1¡T(DSET)‘">X1$–‰(R(DSET,I))È"HX2$–‰(D(DSET,I))#R∫√4…(Iœ9));I;√16…„î±!û≤ * QUIT *!®ó_!≤¢10:Ñ"ARE YOU SURE YOU WANT TO QUIT? ";YN$:≠YN$—œ"Y"ÕYN$—œÁ(121)ƒ±e!ºÄw!Δ≤ * DISPLAY *}!–óî!⁄≠CP–1ƒ∫:∫D$"PR#"PSº!‰∫"RETURN RATE";:∫√18);RR(DSET);" %"ÿ!Ó∫"COST";:∫√25);CC(DSET)˘!¯∫"END VALUE";:∫√20);RV(DSET)""∫:…CC(DSET) 0≠X—–0ƒT2–TZ* :≠X—–0ƒTZ–1000 DÇR Nñ1:å…868:∫Á(7):≠CPƒ∫D$"PR#"PSj Xñ1:åCL:ù:≠T1œ0ƒ1890ä b∫"INTERNAL RATE OF RETURN";© lIRR(DSET)–”(100 T2».5)À100¡ v∫√6);IRR(DSET);" %"÷ Ä≠CP–1ƒ∫:∫D$"PR#0˝ ä∫:∫"PRESS <RETURN> FOR MENU ";:æA$!" %"&÷≤ * INTERNAL RATE OF RETURN *:‡≠CPƒ∫:∫D$"PR#0"pÍ∫:û:∫"WORKING ";:ù:T2–0:VP–2 ‚(37):HP–‚(36):PF–8ÇÙÅTZ–0¡100«0.1û˛X–0:PF–17…PF:†PF:çHP,VPØÅI–1¡T(DSET)—X–X»B(DSET,I) (1»TZÀ100)Ã(…I)◊Ç &X–X»RV(DSET) (1»TZÀ100)Ã(…T(DSET)…1)NCLUDING RESIDUAL VALUE)";o§NPV(DSET)–”(B»VR…CC(DSET)».5):X1$–‰(NPV(DSET)):≠È(X1$,4)œ"D"ƒX$–X1$:∞3500:X1$–X$|Æ∫√3);X1$∫∏∫:∫"PROFITABILITY INDEX";:≠DD»CC(DSET)–0ƒPI(DSET)–0:´1740Ï¬PI(DSET)–”(1000 ((R»VR)À(DD»CC(DSET)))».5)À10Ã∫√10);PI(DSET);X6$J≠CP–1ƒ1630JT≠I–8ŒI–16ƒ∫:∫"PRESS <RETURN> TO CONTINUE ";:æA$:∫:∫P^Ç~hVR–RV(DSET) (1»RR(DSET)À100)Ã(…T(DSET)…1)¢r∫:∫"PRESENT VALUE OF RESIDUAL";≤|∫√4);¬A(VR)œÜ∫:∫"RESULTS OF ANALYSIS"˜ê∫:∫"NET PRESENT VALUE OF CASH FLOW"ö∫"(II)))˙X5$–‰(D1(DSET,I))F≠È(X5$,4)œ"D"ƒX$–X5$:∞3500:X5$–X$:´1560`X5$–‰(¬A(D1(DSET,I)))vX6$–‰(B1(DSET,I))¢"≠È(X6$,4)œ"D"ƒX$–X6$:∞3500:X6$–X$:´1590º,X6$–‰(¬A(B1(DSET,I)))ﬁ6∫√2…(Iœ9));I;√12…„(X4$));X4$;@∫√12…„(X5$));X5$;√12…„(X6$));,I) (1»RR(DSET)À100)Ã(…I)H™D1(DSET,I)–D(DSET,I) (1»RR(DSET)À100)Ã(…I)m¥B1(DSET,I)–R1(DSET,I)…D1(DSET,I)ÄæB–B»B1(DSET,I)ì»R–R»R1(DSET,I)®“DD–DD»D1(DSET,I)æ‹X4$–‰(R1(DSET,I))ÍÊ≠È(X4$,4)œ"D"ƒX$–X4$:∞3500:X4$–X$:´1530X4$–‰(¬A(R1(DSET,V(DSET) Z∫:∫"PRESENT VALUE":∫Md∫"PERIOD EXPECTED ESTIMATED EXPECTED"án∫" REVENUES EXPENSES PROFITS":≤8/2/3 SPACESøx∫" (PR. VAL) (PR. VAL) (PR. VAL)":≤8 SPACES»Ç∫UL$ŸåB–0:R–0:DD–0ÍñÅI–1¡T(DSET)†R1(DSET,I)–R(DSET X3$–‰(¬A(B(DSET,I)))W∫√3…(Iœ9));I;√10…„(X1$));X1$;√10…„(X2$));X2$;√11…„(X3$));X3$f≠CP–1ƒ1330û(≠I–8ŒI–16ƒ∫:∫"PRESS <RETURN> TO CONTINUE ";:æA$:∫:∫§2ÇŒ<∫:∫"RETURN RATE";:∫√18);RR(DSET);" %"ËF∫"COST";√25);CC(DSET)P∫"END VALUE";√20);R(DSET,I)∫X1$–‰(R(DSET,I))Iƒ≠È(X1$,4)œ"D"ƒX$–X1$:∞3500:X1$–X$:´1240bŒX1$–‰(¬A(R(DSET,I)))wÿX2$–‰(D(DSET,I))£‚≠È(X2$,4)œ"D"ƒX$–X2$:∞3500:X2$–X$:´1270ºÏX2$–‰(¬A(D(DSET,I)))—ˆX3$–‰(B(DSET,I))˝≠È(X3$,4)œ"D"ƒX$–X3$:∞3500:X3$–X$:´1300ER OF PERIODS) NOT INPUT":∞2990:±8j≠CP–1ƒ∫:∫D$"PR#"PS>tóe~∫"INFLOW AND OUTFLOW DATA ";DSET:∫íà∫"PERIOD INFLOW OUTFLOW EXPECTED"Ãí∫" REVENUES EXPENSES PROFITS":≤8/2/3 SPACES’ú∫UL$Ê¶ÅI–1¡T(DSET)∞B(DSET,I)–R(DSET,I)…DUT":∞2990:±:$ó:¢12:ñ1:∫"END VALUE ";:∞3040:≠IN$–""ŒXFƒ±{.∞3170:≠RESULT—œ1ƒER$–"(END VALUE) BAD PARAMETER":∞2990:´1060•8RV(DSET)–Â(WD$):RV(DSET)–¬A(RV(DSET))ÃBIRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0“L±ÊV≤ * CALCULATE *!`≠T(DSET)–0ƒER$–"(NUMB:ÑD(DSET,I)/^ÇS/hÑCC(DSET):ÑRR(DSET):ÑRV(DSET):ÑIRR(DSET):ÑNPV(DSET):ÑPI(DSET)Y/rÇk/|∫D$"CLOSE";F$v/ÜDSET–1/êEF–0Ö/ö±†/§≤ * SUPPORT ROUTINES *≠/Æó:¢12:ñ1¿/∏∫"ERROR ";ER$; /¬∞3430–/Ã±‡/÷≤ * INPUT *˝/‡åCL:HP–‚(36):IN$–"":XF–00ALOG)--":∫":";:∞3040:≠IN$–""ŒXFƒF$–"":´2960V.WD$–IN$:∞3450:≠Ë(WD$,1)–"?"ƒ∞500:´2820Ñ.≠QFƒER$–"(FILE NAME) INVALID":∞2990:´2810è."F$–WD$æ.,∫:∫D$"VERIFY";F$:∫D$"OPEN";F$:∫D$"READ";F$Õ.6ÅDSET–1¡10◊.@ÑDSET‰.JÑT(DSET)/TÅI–1¡T(DSET):ÑR(DSET,I)Ç ÅDSET–1¡10-å ∫DSET#-ñ ∫T(DSET)J-† ÅI–1¡T(DSET):∫R(DSET,I):∫D(DSET,I)P-™ Çí-¥ ∫CC(DSET):∫RR(DSET):∫RV(DSET):∫IRR(DSET):∫NPV(DSET):∫PI(DSET)ò-æ Ç™-» ∫D$"CLOSE";F$µ-“ DSET–1æ-‹ EF–0ƒ-Ê ±”- ≤ * LOAD *‚-˙ EF–2:ó:¢12+.ñ1:∫"LOAD FILE (? FOR CAT1:ó:¢12P,Z ñ1:∫"SAVE FILE (? FOR CATALOG)--":∫":";:∞3040:≠IN$–""ŒXFƒF$–"":´2780{,d WD$–IN$:∞3450:≠Ë(WD$,1)–"?"ƒ∞500:´2650´,n ≠QFƒER$–"(FILE NAME) NOT VALID":∞2990:´2640˝,x F$–WD$:∫:∫D$"OPEN";F$:∫D$"CLOSE";F$:∫D$"DELETE";F$:∫D$"OPEN";F$:∫D$"WRITE";F$-(DSET)–0:NPV(DSET)–0:PI(DSET)–0%+ˆ ±5+ ≤ * PRINT *F+ CP–1…CP:∞480L+ ±\+ ≤ * CLEAR *ë+( ≠T(DSET)ƒÅI–1¡T(DSET):R(DSET,I)–0:D(DSET,I)–0:ÇI„+2 T(DSET)–0:CC(DSET)–0:RR(DSET)–0:RV(DSET)–0:IRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0È+< ±¯+F ≤ * SAVE *,P EF–2990:´24707*∫ R(DSET,I)–Â(WD$):R(DSET,I)–¬A(R(DSET,I))v*ƒ ó:¢12:ñ1:∫"OUTFLOW ";I;" ";:∞3040:≠IN$–""ŒXFƒIN$–"0":´2530µ*Œ ∞3170:≠RESULT—œ1ƒER$–"(OUTFLOW) BAD PARAMETER":∞2990:´2500‚*ÿ D(DSET,I)–Â(WD$):D(DSET,I)–¬A(D(DSET,I))¯*‚ T(DSET)–T(DSET)»1+Ï IRR ADD *{)í I–T(DSET)»1:≠Iœ20ƒó:¢12:∫"MAXIMUM OF "ME" HAS BEEN REACHED.":∫"YOU MUST DELETE AN ENTRY TO ADD ANOTHER.":∞3430:±ó)ú R(DSET,I)–0:D(DSET,I)–0Ã)¶ ó:¢12:ñ1:∫"INFLOW ";I;" ";:∞3040:≠IN$–""ŒXFƒ2500 *∞ ∞3170:≠RESULT—œ1ƒER$–"(INFLOW) BAD PARAMETER":∞:ñ1:∫"PRESS <RETURN> TO KEEP CURRENT VALUE":¢12:ñ1:∫"OUTFLOW ";ED;" ";:∞3040:≠IN$–""ŒXFƒ2420õ(` ∞3170:≠RESULT—œ1ƒER$–"(OUTFLOW) BAD PARAMETER":∞2990:´2390À(j D(DSET,ED)–Â(WD$):D(DSET,ED)–¬A(D(DSET,ED))Ú(t IRR(DSET)–0:NPV(DSET)–0:PI(DSET)–0¯(~ ±)à ≤ *T,ED):¢23:ñ1:∫"PRESS <RETURN> TO KEEP CURRENT VALUE":¢12:ñ1:∫"INFLOW ";ED;" ";:∞3040:¥IN$–""´2390:≠XFƒ±•'B ∞3170:≠RESULT—œ1ƒER$–"(INFLOW) BAD PARAMETER":∞2990:´2360’'L R(DSET,ED)–Â(WD$):R(DSET,ED)–¬A(R(DSET,ED))\(V ó:¢10:∫"CURRENT VALUE: "D(DSET,ED):¢230ƒER$–"(EDIT) NO DATA TO EDIT":∞2990:±P& ó:¢12:ñ1:∫"EDIT ";:∞3040:≠IN$–""ŒXFƒ±å&$ ∞3170:≠RESULT—œ1ƒER$–"(EDIT) BAD PARAMETER":∞2990:´2330ﬁ&. ED–Â(WD$):ED–¬A(ED):≠ED—1ŒEDœT(DSET)ƒER$–"(EDIT) NOT IN DATA SET":∞2990:´2330g'8 ó:¢10:∫"CURRENT VALUE: "R(DSEQ Ä˛ ª Ñ˛ é˝≠ †æ »π ÑÎ $Ì W€§Î»Ã ∞L` g› RÁ ˇ ÷•õÖÏ•úÖÌ ' ÷•õÖÓ•úÖÔ ] ' ]` é˝ é˝•ÏÖ•ÌÖ•ÓÖ•ÔÖ ÷êd†±õ™»±õÑÎ $Ì© §Î \€» –±õ– Ñ˛`Ô8È™ÑÎ†–Ñù†œÑû†ˇ  »˚0ˆ W€ »0 \€–ˆ \€© –ø»–Êû±ù`±—ò Ä˛®`¢d ª•–LV`iç≠  iç ≠  iç Lë†±H»±ÖhÖ`†±H»±ÖhÖ`Æ ‡}Ëäç ™†±ù »Ë±ù L⁄Æ‡}Ëäç ™†±ù»Ë±ù`Æ ‡}Ëäç ™†±ù »Ë±ù ` 8 é˝ Ä˛¢7 ª Ñ˛ é˝≠†æ»πÑÎ $Ì W€§Î»Ã∞L¨ é˝ Ä˛¢E ª Ñ˛ é˝≠ †æ »π ÑÎ $Ì W€§Î»Ã ∞Lﬁ é˝¢‘øÕ…””…Œ«†Ã…Œ≈”≈ÿ‘“¡†Ã…Œ≈”√»¡Œ«≈ƒ†Ã…Œ≈”ß¬Ÿ≈Œœ†”’√»†£çS©*çT≠0¿à–ŒT –ıÆSL>`@≠≠S ØLk¢) ª`¢†±–»±–¢Ä†±–»±–ä @Låä…¿e…ÄX…@K»»» ¶à ¶»L√±—∞ t LΩ W *hhLk`»±–±L8±e—–aL√ *Lk t Lk W *Lk≠ `` é˝© $¸¢'©Ω Ì˝ –˙ ' ` 8©Ö#¢Ü" Ü%`© `©Ö#¢Ü" Ü%`©Ö $¸©1ç à©Ög©Öh•¸ÖØ•˝Ö∞©Ös©SÖt` $¸©2ç©Ö à©Ög©SÖh•˛ÖØ•ˇÖ∞©Ös©ñÖt`¢Ü¢Ü¢Ü¢SÜ`¶– ¶ØÜ¸¶∞Ü˝`¶ØÜ˛¶∞Üˇ`©çç ç `Ω» Ì˝ËLª`–“œ«£Æ∫ƒ“£Æ∫ÆÆÆ¶Ã£¨‘¨¬¨√¨”¨»¨±¨≤¨Õ¨≈¨ƒ¨“√œÕ–¡“≈†◊»¡È©Açˆ©ç˜©ÖB©ÖC ÷∑©ÖB©SÖC ÷∑ Ø¢ËËÜ¸¢Ü˝¢ËËÜ˛¢SÜˇ Ÿ©SÖL¢H ± ô à¶ h…M–Liˇ…E– Ø©ˇÖ ôÛ X¸¢_ ª© 6Lz•…T– ˇL…B– ˇL'…1…2–çh™ Ÿ`…H–LX¸H ôÛ X¸¢ ª¢Ü"h…S–LÍ…C–LU…D–Lˇ…L–L+…R–LëL…ﬁ© 6≠h™ 0ç“ç `©@ 6©¶ 8L– NUE":Ñ"";A$ó4Q$–"ENTER WORDS NOW"»Á(7):∞170M∞840:≤ DISPLAY BOARD^"π33,9:π35,19s,∞660:≤ GET WORDS{6ÇPNè@≤SCORE THE GAMEóJâ:ó¥TQ$–"SCORE THE GAME":∞160·^¢6:Q$–"ELIMINATING DUPLICATE WORDS":∞150Ûh∞950:¢6:å…868+r¢8:∫" NS–11000:≤ TIME LIMIT = 3 MINUTES>æ∞1130:≤GENERATE LETTERSM»≠NP–0ƒNP–1V“PC–0\‹óiÊÅPN–1¡NP‚â:ó:∫"PLEASE HAVE ";:û:∫PL$(PN);:ù:∫" SIT IN FRONT":∫"OF THE APPLE NOW -- ALL OTHER PLAYERS PLEASE DON'T WATCH!!!"˙∫:∫"PRESS RETURN TO CONTI»I:∫"PLAYER "I"'S (10 CHARS): ";:Ñ"";PL$(I):≠„(PL$(I))œ10ƒPL$(I)–Ë(PL$(I),10)YdSC(I)–0`nÇIñx¢20:å…958:∫"IS THE ABOVE OK (Y/N) Y";Á(8);:Ñ"";A$ßÇ≠A$–"N"ƒ1290±åU–2:±Õñ≤**********************‡†≤PLAY THE GAME¸™≤**********************"¥≤**********************+ˆ≤ENTER PLAYERSG≤**********************O â:órQ$–"ENTER PLAYERS' NAMES":∞160è¢4:∫" (RETURN EXITS)"µ(¢3:Ñ"HOW MANY PLAYERS (1-4)? ";A$¬2≠A$–""ƒ±‡<≠A$—"1"ŒA$œ"4"ƒ∫G$;:´1290ÌFNP–Â(A$)˘PÅI–1¡NPMZ¢5PICK RANDOM NUMBERS & LETTERS/tÅI–1¡5:ÅJ–1¡5A~X–”(€(1) 6)»1]àL$(I,J)–Í(CC$(I,J),X,1)fíÇJ,Ilú±{¶≤ERROR ENDì∞å768:≤ ON ERR CLEAR¨∫LI–‚(218)»‚(219) 256∫ƒER–‚(222)≈Œπ216,0ˆÿ∫"AN ERROR #";ER;" HAS OCCURRED IN LINE ";LI¸‚ÄÏﬁÅJ–1¡LI…KXË≠WD$(J,I)œWD$(J»1,I)ƒT$–WD$(J,I):WD$(J,I)–WD$(J»1,I):WD$(J»1,I)–T$:CH–1_ÚÇJn¸≠CH–0ƒK–LIuÇK|ÇIÇ±ô$≤ RESET "0" COUNTS•.ÅI–1¡NP∫8ÅJ–1¡Â(WD$(0,I))‰B≠WD$(J,I)–"^^^"ƒWD$(0,I)–‰(J…1):´1110ÎLÇJÚVÇI¯`±j≤ I–0¡48p¢6»I 2:ñ10:∫" ":≤21 SPACESGz¢5»I 2:ñ10RÑIN–I»1¶é∫" ";L$(IN,1);" ";L$(IN,2);" ";L$(IN,3);" ";L$(IN,4);" ";L$(IN,5);" "≠òÇIµ¢∫:ùª¨±Ã∂≤ SORT WORDSÿ¿ÅI–1¡NPÎ LI–Â(WD$(0,I))˛‘ÅK–1¡LI…1:CH–0150,2290´7604 â:ó:Q$–"QUIT THE PROGRAM":∞160o*¢5:∫"DO YOU REALLY WISH TO QUIT (Y/N) N";Á(8);:Ñ"";AN$©4≠Ë(AN$,1)–"Y"ƒó:∫"THANK YOU FOR PLAYING FIND'EM !!":Ä≤>´760≈H≤DISPLAY BOARDÀRû˙\¢4:ñ10:∫" ":≤21 SPACESfÅä±î≤ GET WORDS7ûPV–0:LE–0:B$–"":CT–0:≤WORD CTD®ÅDE–1¡NSX≤≠‚(KB)œ127ƒ∞500sº≠DEœNS…450ƒYY–‚(SOUND){ΔÇDE£–â:¢20:∫G$;"TIME LIMIT REACHED":∞180©⁄±¬‰≤ START OF MAIN MENU ÓU–1›¯â:ó:VP–19:∞210Ï≠NN–SNƒ800¥NN∞1260,1430,2B$–B$»A$:´600:LE–LE…14D≠LE—–0ƒLE–1:B$–"":´600DNB$–Ë(B$,LE)\X¢20:ñ1:å…868:∫B$;:±ob≤ END OF WORD∫lCT–CT»1:WD$(CT,PN)–B$:WD$(0,PN)–‰(CT):¢PV»1:ñ1:∫B$:B$–"":LE–0:PV–‚(37)Àv¢20:ñ1:å…868ˇÄ≠CT–100ƒâ:¢20:∫G$;"WORD LIMIT REACHED":∞180:°:±§U–U»1:U–¬MD(U):´250%ÆU–U…5:´450<∏U–U»5:≠UœSNƒU–U…15Q¬≠U—–0ƒU–U»5:´450ZÃ´250e÷≤ EXITp‡NN–U:ùvÍ±éÙ≤ PROCESS KEY PRESS†˛A–‚(KB):πKS,0º≠A–141ƒ610:≤END OF WORDŒ≠A–136ƒ∞570:±ﬁA$–Á(A…128)Û&≠A$—"A"ŒA$œ"Z"ƒ±0LE–LE»1:6ñSP:û:∫Í(DE$,(Uœ5) 40»(Uœ10) 40»SP,8);H@A–‚(KB):≠A—128ƒX–€(X):´320dJπKS,0:A–A…128:≠A–21ƒ420qT≠A–8ƒ410Ñ^≠A–32ŒA–10ƒ440íh≠A–11ƒ430†r≠A–13ƒ470÷|ÅQ–U»1¡U»SN…1:Z–¬MD(Q):≠A–Ê(Ë(SN$(Z),1))ƒU–Z:´250›ÜÇQÊê´320˛öU–U…1:U–¬MD(U):´250»È(M$,X):¢VP:ñ21…X:Q–‚(SOUND)»‚(SOUND):∫MP$:Ç:±C “≤ START OF MENUT ‹NL–3»(SNœ10)g Êû:¢VP»NL:∫BK$;á ¢VP»NL:ñ(20…„(BS$)À2):∫BS$;ñ ˙ZZ$–SN$(U)® û:ñ1:¢VP:∫ZZ$π ù:¢VP»1:∫DE$Ÿ SP–U 8…7…(Uœ5) 40…(Uœ10) 40Ó "¢VP»1:≠Uœ5ƒ¢VP»2˛ ,≠Uœ10ƒ¢VP»3)dÅI–768¡777:áA:πI,A:ÇB nÉ 104,168,104,166,223,154,72,152,72,96L x∞2580V Ç∞2860_ å´740y ññ(21…„(Q$)À2):∫Q$:ù:±Ñ †û:´150è ™ü:´150¿ ¥¢22:∫"PRESS <RETURN> TO CONTINUE";:æA$:∫A$:±„ æ≠„(M$)À2—œ”(„(M$)À2)ƒM$–M$»" "/ »ÅX–1¡„(M$)À2:MP$–Ë(M$,X)B ≤ **********************;≤ * FIND.EM *X≤ * BY DAVID GRIGGS *u(≤ * COPYRIGHT (C) 1986 *í2≤ * BY MICROSPARC, INC *Ø<≤ * CONCORD, MA 01742 *ÃF≤ **********************◊P•´1190˝Z∏¬MD(X)–X…((XœSN) SN)»((X—–0) SN) ƒCH$–" ":û:ÅY–1¡4:VP–8»Y:M$–T$(Y):∞190:ÇY:∞180:ù:´2880@%ê´2890(I):Ç1$É 1,0,1,1,0,1,-1,1,-1,0,-1,-1,0,-1,1,-17$"±=$,óI$6CH$–"*"[$@C–1:H–20:L–40t$J¢C:ñC:ÅI–C¡L:∫CH$;:Çç$TÅI–C¡H:¢I:ñL:∫CH$;:Ç©$^ÅI–L¡C«…1:¢H:ñI:∫CH$;:Ç≈$hÅI–H¡C«…1:¢I:ñC:∫CH$;:Ç€$rC–C»1:L–L…1:H–H…1Ô$|≠C–11ÕCH$–" "ƒ±6%Ü≠C–9ÕCH$–"*"K"4#‹ É"EDASRI","NKSOQH","NRTPUA","FEOTNI","KLGCIJ"f#Ê É"ELXYAG","HIENRO","LOMPIG","AWXOBE","AEZYDT"ò# É"TMARID","ASHRTL","NIFDSG","EATNIJ","YWTNAU" #˙ É"SGFBTU","VREAGU","XOLAVR","SLOCTR","PTEAIN"Î#ÅI–1¡5:ÅJ–1¡5:áCC$(I,J):ÇJ,I$ÅI–1¡8:áDX(I),DYN$(I)»BK$,40):Ç:DE$–Ë(DE$»BK$»BK$,80»(SNœ10) 40)∏"æ T$(1)–"FIND'EM! BY DAVID GRIGGS":T$(2)–" COPYRIGHT (C) 1986 ":T$(3)–" BY MICROSPARC, INC ":T$(4)–" CONCORD, MA 01742 "–"» ≤DATA FOR THE CUBES#“ É"WYCSBA","ORMTIS","GDETOC","BDHCFA","MLNIE' NAMES"%!n SN$(2)–" PLAY THE GAME"D!x SN$(3)–"DISPLAY STANDINGS"s!Ç SN$(4)–" CLEAR MEMORY AND RESTART PROGRAM"î!å SN$(5)–" QUIT THIS PROGRAM"ü!ñ DE$–""√!† ÅI–1¡SN:DE$–DE$»Ë(SN$(I),7)»" "Ò!™ ≠Ë(SN$(I),1)–" "ƒSN$(I)–Í(SN$(I),2):´27300"¥ SN$(I)–Ë(SSECTION T$–""H ( ÜSN$(5),CC$(5,5),L$(5,5),WD$(100,4),A(25,3),C(5,5)a 2 G$–Á(7):D$–Á(4):NE–0Ü < SOUND–…16336:KB–…16384:KS–…16368ú F BS$–"FIND 'EM !!"‹ P BK$–" ":≤ 40 BLANKSÂ Z SN–5!d SN$(1)–" ENTER PLAYERSX(A(P,3))(Œ A(P,2)–A(P…1,2)»DY(A(P,3))aÿ ≠A(P,1)—1ŒA(P,1)œ5ŒA(P,2)—1ŒA(P,2)œ5ƒ2440:≤OFF BOARDπ‚ ≠A$–L$(A(P,1),A(P,2))ÕC(A(P,1),A(P,2))–0ƒC(A(P,1),A(P,2))–1:P–P»1:≤ CORRECT LETTER√Ï ´2420Ãˆ ÇZ,Q’ OK–0€ ± ≤ START OF DATA INITIALIZATION 1¡5:ÅZ–1¡5%` ≠L$(Q,Z)—œË(W$,1)ƒ2550Qj A(1,1)–Q:A(1,2)–Z:C(Q,Z)–1:P–2:A(2,3)–0ft ≠(P…1)–LIƒOK–1:±w~ A$–Í(W$,P,1)ãà A(P,3)–A(P,3)»1ûí ≠A(P,3)—9ƒ2500ªú ÅX–1¡3:A(P,X)–0:ÇX:P–P…1“¶ C(A(P,1),A(P,2))–0‡∞ ≠P–1ƒ2550Í∫ ´2430 ƒ A(P,1)–A(P…1,1)»D******************1 â:ó:Q$–"CLEAR MEMORY":∞160n ¢5:∫"DO YOU REALLY WISH TO DO THIS (Y/N) N";Á(8);:Ñ"";A$É$ ≠Ë(A$,1)–"Y"ƒ°:¨â. ±û8 ≤CHECK THE WORDS∞B LI–„(W$):OK–0¯L ÅII–1¡5:ÅJJ–1¡5:C(II,JJ)–0:P1–II»(JJ…1) 5:ÅP–1¡3:A(P1,P)–0:ÇP,JJ,II V ÅQ–---------- -----":≤11 SPACES/13 -'S/3 SPACES/5 -'Sp¨≠NP–0ƒ¢7:∫G$;" ..... NO PLAYERS ENTERED .....":´2270|∂ÅI–1¡NPü¿¢5»I:∫"PLAYER "I" - ";PL$(I);:Æ ñ31:∫SC(I)¥‘ÇΩﬁ∞180«ËU–2:±„Ú≤**********************˜¸≤CLEAR THE GAME ≤***SCORES,RÅI–1¡NP:SC(I)–SC(I)»Â(WD$(0,I)):Ç6\U–3:±Rf≤**********************mp≤DISPLAY THE STANDINGSâz≤**********************ëÑâ:ó≤éQ$–"DISPLAY THE SCORES":∞160Îò¢4:∫" NAME SCORE":≤15/9 SPACES4¢∫" ---D$(J,I)‰∞23606Ó¢20:å…958:∫"THE WORD: ";:û:∫W$:ùt¯≠OK–0ƒWD$(J,I)–"^^^":¢20:ñ24:∫"IS NOT FOUND!!":∞180:´2090õ¢20:ñ24:∫"CORRECT (Y/N) ";:æA$:∫A$¨≠A$–"Y"ƒ2090Õ≠A$–"N"ƒWD$(J,I)–"^^^":´2090◊ ´2050ﬁ*ÇJÂ4ÇIÙ>∞950:∞1060H≤ POST INñ29:∫WD$(0,I)XÇ"b∞1805l≤ VERIFY WORDS=vâ:óXÄQ$–"VERIFY WORDS":∞160aä∞840¨î¢16:∫"IF THE SPELLING IS CORRECT, PRESS 'Y'. PRESS 'N' IF INCORRECT."∑ûπ34,17Ω®ó…≤ÅI–1¡NP‹ºLI–Â(WD$(0,I))ÎΔ≠LI–0ƒ2100˜–ÅJ–1¡LI⁄W$–W–1¡LI(I)¬FL–0:A$–WD$(L,I)5Ã≠„(A$)—3ƒFL–1:´1810A÷ÅJ–I¡NPP‡ÅK–1¡LI(J)cÍ≠J–IÕK—–Lƒ1790çÙ≠A$–WD$(K,J)ƒWD$(K,J)–"^^^":FL–(J—œI)î˛ÇKõÇJ¥≠FL–1ƒWD$(L,I)–"^^^"ªÇL¬&ÇI“0∞950:≤ SORTÔ:∞1060:≤RESET WORD COUNTSDÅI–1¡NP:¢10» WORDS WORDS":≤14/8 SPACES]|∫"PLAYER ENTERED -- UNIQUE":≤7 SPACES™Ü∫"--------- ------- ------":≤9 -'S/4 SPACES/7 -'S/6 SPACES/6 -'S»êÅI–1¡NP:LI(I)–Â(WD$(0,I))Êö¢10»I:∫PL$(I);:ñ17:∫LI(I)Ì§ÇI˘ÆÅI–1¡NP∏ÅL9©ÖÖ¢F fê•eÖ•ejÖfff –„©§ Ì˝•¶ A˘•¶ A˘`/•Ö©¢*≈êÂÊ –ÚÖ ©§ Ì˝• ⁄˝©Ω Ì˝©¶ $Ì` OF RETURN,COST,END VALUEl9LÉ4,CHANGE FLOW DATA,DISPLAY DATA,ADD FLOW DATA,EDIT FLOW DATA,DELETE FLOW DATA£9VÉ2,PRINT OPTIONS,TOGGLE PRINTER STATUS,SELECT SLOTx:±x8.É5,8,MAIN MENU,DISK OPERATIONS,INPUT NEW DATA,CHANGE FLOW DATA,SELECT DATA SET,CALCULATE,PRINT OPTIONS,CLEAR,QUIT°88É3,DISK OPERATIONS,LOAD,SAVE,CATALOG9BÉ7,INPUT NEW DATA,DISPLAY DATA,NUMBER OF PERIODS,INFLOW (NEW DATA),OUTFLOW (NEW DATA),RATE:¢23:ñPX:å…868:π…16368,0Z7¢23:ñPX:∫SL;:æZ$:≠Z$œ–"1"ÕZ$—–‰(MX)ƒSL–Â(Z$):N–OS:∞3620:´3590Â7Z–(Z$–FS$ŒZ$–DA$)…(Z$–BS$ŒZ$–UA$)»10 (Z$–CR$)»20 (Z$–EX$):¥ΔZ´3600:SL–SL»Z (Z—10):SL–SL…MX (SLœMX)»MX (SL—1):N–OS:∞3620:¥Z—10´3590:∫:±8$¢3»2 N:ñSX:∫X$(SL–OS);16‘ó:≠EMƒ∫"<";:û:∫"ESC";:ù:∫"> FOR ";MENU$(EM,0)N6ﬁ¢1:ñ24:∫"DATA SET: "DSETÅ6ËTL$–MENU$(TL,0):¢3:ñ”((40…„(TL$))À2):û:∫TL$;:ù≥6ÚÅI–1¡MITEMS(TL):¢3»2 I:ñ8:∫I". "MENU$(TL,I):ÇÁ6¸¢23:ñ1:û:∫" USE ARROWS OR SELECT NUMBER: ";:ù:±7N–SL:OS–SL:∞3620:Z–0$—œ"?"ƒI–„(WD$):QF–1:´3480Z5é≠LC$œ"Z"Œ(LC$—"0"ÕLC$—œ".")Œ(LC$œ"9"ÕLC$—"A")ƒQF–1:I–„(WD$)a5òÇIg5¢±5¨≠„(X$)–14ƒX$–" "»X$£5∂X$–‰(¬B(Â(Ë(X$,11))))»È(X$,4):±˘5¿Æ:áNMENUS:ÜMENU$(NMENUS,9):ÅI–1¡NMENUS:áMITEMS(I):ÅJ–0¡MITEMS(I):áMENU$(I,J):ÇJ,Iˇ5 ±OR "ER" IN LINE "EL".":´190=4R∫"ERROR "ER" IN LINE "EL".":ÄY4\∞3430:¥EF´2640,2810,500ã4f¢23:ñ6:∫"PRESS <RETURN> TO CONTINUE";:æZ$:∫:±®4p≤ * VALIDATE FILE NAME *«4zQF–0:≠„(WD$)œ15ƒQF–1:´34905ÑÅI–1¡„(WD$):LC$–Í(WD$,I,1):≠I–1Õ(LC$—"A"ŒLC$œ"Z")ÕLC103≤ * ERROR *@3ERR–‚(222):ELINE–‚(218)»256 ‚(219):å…3288M3 ó:¢12:ñ1É3*≠(ER–11Õ‚(48896)–76)ŒER–6ƒ∫"FILE NOT FOUND":´3420´34≠ER–5ƒ∫"NO MORE DATA IN FILE":´3420€3>≠ER–8ƒ∫"I/O ERROR--CHECK DRIVE DOOR.":´3420H≠EF–1Õ(ER–53ŒER–69ŒER–133)ƒ∫"ERR;2≤≠(LC$—"0"ŒLC$œ"9")ÕLC$—œ"-"ÕLC$—œ"."Œ„(IN$)œ20ƒRESULT–2L2ºLC$–Ë(IN$,1)t2Δ≠„(IN$)œ1ƒIN$–È(IN$,„(IN$)…1):´32902–IN$–""ë2⁄≠IN$—œ""ƒ3230≥2‰WD$–WD$»LC$:RESULT–RESULT»1:±–2ÓLC$–Ë(IN$,1):≠LC$—œ" "ƒ±¯2¯IN$–È(IN$,„(IN$)…1):≠IN$–""ŒXFƒ33003´33»L1$1D´30501Nπ36,HP:´304011X≤ * GETWORD *E1bWD$–"":RESULT–01l≠IN$–""ƒER$–"(GETWORD) STRING EMPTY":∞2990:RESULT–3:±ê1vLC$–Ë(IN$,1)∏1Ä≠„(IN$)œ1ƒIN$–È(IN$,„(IN$)…1):´3220√1äIN$–""’1î≠LC$–" "ƒ3180Ô1û≠LC$–" "ŒLC$–","ƒ3310ˇ1®WD$–WD$»LC$Í∫CS$;BS$;0ÙæL1$'0˛≠L1$–CR$ƒåCL:±e0≠L1$–BS$Õ„(IN$)œ1ƒ∫" ";BS$;BS$;:IN$–Ë(IN$,„(IN$)…1):´3050ñ0≠L1$–BS$Õ„(IN$)–1ƒ∫" ";BS$;BS$;:IN$–"":´3050®0≠L1$–BS$ƒ3050 0&≠L1$–EX$ƒ¥IN$—œ""´3150:XF–1:±‰00≠L1$—" "ƒ∫Á(7);:´30601:≠L1$œ–" "ƒ∫L1$;:IN$–IN$;{<|=}CÉEÖ•®ÆØÀÃÖ[ò¢›¬ïË‡êˆÖ˚Ωÿï–¢›ÓïË‡ êˆΩ˜ï¶[†‡äJêJJ à–˙»à–Ú`…–†Ñ,Ñ-Ñ.Ñ/ hïhhL?î™Ω¶˘Ö.)Ö/ò)è©Ö˚ ËîH hïh®πhîÖ,π®îÖ-)–•˚Ö˚•2I¿Ö2 ı¯•˚•2I¿Ö2 S˘XPïPñP⁄P‘¯Ë¯QLQMQoQô¯¢¯Ç¯î¯¿˘?˙¶˘≥˘j˛t˛pQ¶Q^˛c˛P◊©Lç¯©ÖBç˘©îÖCç˙©Ös≠ø…L©î–©êÖt¢/Ë†Ω¶Qô; à–ˆ ,˛ Ì©RÖV©îÖW©ÖX¢ΩÙP®Ω€PëVË‰X–Ú`2Rrí≤“Ú:âzZúdût|<41Qqë±—Ò¬‚4§¨ƒ‰\\\\|<4L§¨¥ºƒÃ‰Ï|††††¿¿‡‡`"3]ÇìÛ"3]àô/3]èü";]àî˝"3]»ì"3]»©Ò"3]èüÒ"3]èü&1áöZI≈≠•w¨«ãuäuäsãsæ~ïZî&f6v8x¢ ≤ **********************;≤ * TONE.DIALER *X≤ * BY ALAN H. STEIN *u(≤ * COPYRIGHT (C) 1986 *í2≤ * BY MICROSPARC, INC *Ø<≤ * CONCORD, MA 01742 *ÃF≤ **********************˙Pó:SLOT–2:≤ CHANGE THIS TO YOUR MODEM SLOT ZA " TO CONTINUE";:ÅPAUSE–1¡250:Ç:¢24:ñ7:∫"PRESS <RETURN> TO CONTINUE";:ÅPAUSE–1¡250:Ç:≠‚(…16384)—128´1990:≤10 SPACESâ%–π…16368,0:∫è%⁄±ï%‰≤©%Ó≤ SCREEN SCROLLØ%¯≤—%¢24:ÅI–1¡24:∫:ÅJ–1¡75:Ç:Ç:ó:±‡æ©Lçı©çˆ©ç˜©ŒÖ˝©dÖ˛©Öˇ©Ö¸`…≥–©Ö¸LïŸ…¶–©Ö¸LïŸ•¸LïŸ ∑ ¯ÊÜ˝ ∑ ıÊÜ˛ ∑ ıÊÜˇ•˛Ö•ˇÖ©Ö¢Fêejf –ÛÖ¢&& –˜•˝IˇiÖ„Ö˙•„–•„∏PΔ˙•„∏∏P,0¿•„Ö˙•–•–• ΔΔΔ∏P—`b©Ö • IˇÖÊ©ÄÖ •IˇÖÊ©ÄE Ö ©¢Fêejf –ÛÖ $ 8©ÂÖ©Â Ö ©§ Ì˝• ¶ A˘©Ω Ì˝§• Ú‚ .Ì`–‚(218)»256 ‚(219)e∏ó:¢12:∫"ERROR "ER" IN LINE "EL".":¢23:∫"PRESS <RETURN> TO CONTINUE":æZ$:∫:´310–@Ñ"NAME OF TEXT FILE ";N$:≠N$–""ŒN$—"A"ŒN$œ–Á(91)ƒ∫Á(7);:´310SJ∫Á(4);"OPEN ";N$jT∫Á(4);"DELETE ";N$^∫Á(4);"OPEN ";N$ïh∫Á(4);"WRITE ";N$¢rÅK–1¡N…1Æ|∫ST$(K)µÜÇKÀê∫Á(4);"CLOSE ";N$’öπ34,0Ô§∫Á(4);"NOMON C,I,O":ÄÆER–‚(222):EL∫B$;:H$–H$»B$ »´130/ “≠„(H$)—–1ƒπ36,0:´120D ‹X–‚(36):≠X–0ƒ250T Êπ36,‚(36)…1t Z–Z…2:H$–Ë(H$,„(H$)…1):´130® ˙Z–Z…2:H$–Ë(H$,„(H$)…1):Y–‚(37):≠Yœ0ƒ¢(Y):π36,39± ´130Œ ST$(N)–H$:∫:≠„(H$)–0ƒ290◊ ´110· "•´430˜ ,∫Á(4);"MON C,I,O"˝ 6ó> Çå…868Ä åæB$:Z–Z»1:≠B$—œÁ(13)ÕZœ220ƒ∫:∫:∫Á(7);"WARNING: ";Z" CHARACTERS IN LINE.":∫"PRESS <RETURN> TO FINISH LINE":∫:∫H$»B$æ ñ≠B$—œÁ(13)ÕZœ220ƒ∫"ABOVE IS LINE, INCLUDING LAST ENTRY":∫Õ †≠Zœ237´270È ™≠B$–Á(13)ƒ´270:≤ RETURN˚ ¥≠B$–Á(8)ƒ´210 æg ≤ **********************;≤ * FILE.MAKER *X≤ * BY L. GLASSER *u(≤ * COPYRIGHT (C) 1986 *í2≤ * BY MICROSPARC, INC *Ø<≤ * CONCORD, MA 01742 *ÃF≤ **********************ŸPÜST$(99)ﬂZóÁdN–0ÒnN–N»1ˇxH$–"":Z–0 AGE 2 - PRESS <RETURN> FOR PAGE 1 "8 ™¢22:ñ1:∫P1$;:æG$P ¥π…16301,0:π…16299,0t æπ36,0:¢22:π41,‚(41)»4:∫P2$;:æG$Ç »π…16300,0ã “´170˝.TEXT"' Z≤ :CLEAR HI-RES PAGE 1 AND 2> dó:ê:í6:ì0,0:å62454S në:í3:ì0,0:å62454q x≤CLEAR TEXT WINDOW PAGE 2~ ÇÅI–20¡24ü åπ36,0:¢I:π41,‚(41)»4:∫√40):ÇÀ ñ≤PRINT IN TEXT WINDOW PAGE 1 AND PAGE 2# †P1$–"PAGE 1 - PRESS <RETURN> FOR PAGE 2 ":P2$–"Pç ≤**********************9≤* PAGE.TWO.TEXT *U≤* BY CLARK BURDMAN *q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** P≠‚(104)—œ96ƒπ104,96:π103,1:π24576,0:∫Á(4)"RUN PAGE.TWO≈ ≤*******8.1.86*********9≤* FORMS.SHOP *U≤* BY PAUL S. DUNSEATH*q(≤* COPYRIGHT (C) 1986 *ç2≤* BY MICROSPARC, INC *©<≤* CONCORD, MA 01742 *≈F≤********************** Pó:¢10:ñ13:û:∫"THE FORMS SHOP":ù:∫:ST$–"BY PAUL S. DUN ….5)L–‹(N)À‹(10):≠VT–5ƒó=ñ20…(Nœ–1) (”(L)»1):¢VT:∫N$UVT–VT»1:≠VTœ22ƒVT–5^"´150 §24:∫" ":≤30 SPACESJ ™≠„(N$)œ22ƒ∫Á(7);:´150:a ¥N–Â(N$):≠N—0ƒâ:ó:ÄÑ æ≠Nœ99999999ƒ∫Á(7);:´150:≤8 9'SØ »≠Nœ0ÕË(N$,1)–"0"ƒN$–È(N$,„(N$)…1):´200Ã “≤ CLIPS LEADING ZEROES“ ‹:ÿ Ê≤Ô ≤ ALLOWS FOR ZERO˙≠Nœ1.5ƒN–”(N 01742 *9 P≤ ********************************? Z≤h d≤ A SHORT DEMONSTRATION OF A ROUTINEn n:í x≤ WHICH LINES UP DECIMAL POINTSò Ç:© åó:π34,0:VT–5∞ ñ¢2/ †Ñ"ENTER A NUMBER WITH OR WITHOUT DECIMAL POINT (NEGATIVE TO END) ";N$:¢3:ñ`( ≤ ********************************O≤ * FORMAT.DEMO *v≤ * BY FRANK SWEET *ù(≤ * AND JOHN FRANCIS *ƒ2≤ * COPYRIGHT 1986 BY *Î<≤ * MICROSPARC, INC. * F≤ * CONCORD, MA OF RANGE":´460‡π64485,A_ÍÑ"ENTER NEW DURATION (<CR> FOR NO CHANGE) -> ";D$:≠D$–""ƒ520ãÙA–Â(D$):≠A—0ŒAœ255ƒ∫"OUT OF RANGE":´490ò˛π64483,A¿ó:∫"NEW BELL SOUND":∫Á(7);Á(7);Á(7)œÅA–1¡500:Çÿ´290˙&≤ CHANGE TEXT WINDOW DEFAULTS0ó¥PL…7´440,560,690,770,1100,1340,1610,870CÆ≤ CHANGE SOUND OF BELLa∏ó:∫"CHANGE SOUND OF BELL"†¬∫"CURRENT PITCH: ";‚(64485):∫"CURRENT DURATION: ";‚(64483)„ÃÑ"ENTER NEW PITCH (RETURN FOR NO CHANGE) -> ";P$:≠P$–""ƒ490÷A–Â(P$):≠A—0ŒAœ255ƒ∫"OUT6PL–8:C$–" --> "!@¢PL:ñ1:∫C$;;Jπ…16368,0:µ…16384,128PTIT–‚(…16384)…128d^OP–PL:π…16368,0Üh≠IT–8ƒPL–PL…1:PL–PL»NN (PL—8)¨r≠IT–21ƒPL–PL»1:PL–PL…NN (PLœNN»7)ª|≠IT–13ƒ420–Ü¢OP:ñ1:∫" ";Úê≠OP—œPLƒA–‚(…16336) ‚(…16336)˚ö´320(§56œÉ 8,CHANGE SOUND OF BELL,CHANGE TEXT WINDOW DEFAULT,CHANGE MONITOR PROMPT,LOAD DIFFERENT VERSION OF ROM,CHANGE APPLESOFT COMMANDS,CHANGE APPLESOFT ERROR MESSAGES,LIST CURRENT APPLESOFT TO PRINTER,EXIT·"ó:∫"OPTIONS-"˝,∫:ÅA–1¡NN:∫¿6);CM$(A):Çâ:∫≤ MAIN MENU ˙π34,5:ó*´1560LáNN:ÜCM$(A):ÅA–1¡NN:áCM$(A):Ç∑É 2,96,234,32,14,234,169,0,133,98,133,99,133,100,133,101,165,172,32,175,233,165,161,32,175,233,165,160É 32,175,233,165,159,32,175,233,165,158,32,181,233,76,230,234,208,4,:ÅA–22¡3«…1:∫:Ç:π34,3H ™¢24:∫"COPYRIGHT (C) 1986":ÅA–22¡4«…1:∫:Ç:π34,4| ¥¢24:∫"BY MICROSPARC, INC.":ÅA–22¡5«…1:∫:Ç:π34,5Ü æπ34,0ë »π33,16† “π32,23:ó:â¸ ‹π34,5:¢24:∫"++++++++++++++++++++++++++++++++++++++++":ÅA–22¡7«…1:∫:Ç:≤ 40 '+' IN QUOTESÊ6:Ç:± d≤ TITLE PAGEo nA$–"........................................":â:ÅA–1¡24:¢A:∫A$;:Ç:≤ 40 '.' IN QUOTESó xÅA–20¡0«…1:π32,A:π33,(21…A) 2:ó:Ç:â∂ ÇWE–49289:RE–49288:FL–49291€ å¢24:∫"ROM WRITER":ÅA–22¡2«…1:∫:ÇÂ ñπ34,2 †¢24:∫"BY CURT CLIFTON", ≤ ************************?≤ * ROM.WRITER *^≤ * BY CURT CLIFTON *}(≤ * COPYRIGHT (C) 1986 *ú2≤ * MICROSPARC, INC. *ª<≤ * CONCORD, MA 01742 *⁄F≤ ************************ıPÜAC$(110),AE$(18):´110 ZÅZZ–1¡ SEATH":∞1470L Z¢20:∫"*COPYRIGHT (C) 1986 BY MICROSPARC, INC.*":∞1990:∞2050s d¢1:ñ13:û:∫"THE FORMS SHOP":ù:π34,1~ n•´1880Ñ x≤ï Ç≤ SET UPõ å≤Î ñNC–4:ÜL(55),LE(55),M(55),Y(55),T$(55),E$(55),X(55),PC$(NC,1),PN$(NC),LL(NC)Ò †≤ ™≤DISK AND $ = ";P$:∫"AND V = "VÊ∫J∫"PRESS <RETURN> FOR TEXT SCREEN";:æZ$:∫:â 28,0:û:¢7:∫" PRINT IN INVERSE":ùP ™π7,1:¢9:∫"PRINT NUMBERS AS SUBSCRIPTS -->A5"Ñ ¥π7,2:¢11:∫"PRINT NUMBERS AS SUPERSCRIPTS -->A6"≥ æπ7,0:¢13:∫"USE CHR$ --> CHR$(91) = ";Á(91)‘ »P$–"A CHARACTER STRING":V–10Ù “¢15:∫"AND PRINT VARIABLES:"‹¢17:∫"P4:π103,1:π16384,0:∫Á(4)"RUN PRINTER.DEMO"É d∫Á(4)"BLOAD PRINTER":∫Á(4)"BLOAD PTABLE":≠‚(48896)–76ƒπ2050,216:∫Á(4)"PR# A$802":´120ì nπ54,3:π55,8õ xë:óø Ç∫"THE PRINTER ROUTINES WILL---"€ å¢3:∫"PRINT IN CAPITALS"˙ ñπ8,1:∫"PRINT IN LOWERCASE" †πL ≤ **********************;≤ * PRINTER.DEMO *X≤ * BY KEVIN KNOX *u(≤ * *í2≤ * COPYRIGHT 1986 BY *Ø<≤ * MICROSPARC, INC. *ÃF≤ * CONCORD, MA 01742 *ÈP≤ **********************) Z≠‚(104)—œ64ƒπ104,6‘≈ÿ‘çÕœŒ†√¨…¨œç≈ÿ≈√†‘≈Õ–çŒœÕœŒ†√¨…¨œç»œÕ≈ç–œÀ≈¥∞ππ≥¨≤≥¥∫–œÀ≈¥∞ππ¥¨≤≥¥∫–œÀ≈¥∞ππµ¨≤≥¥ç–œÀ≈±±∏¨∞∫–œÀ≈¥≥∂ππ¨±çÕœŒ†√¨…¨œçœ–≈Œ†‘≈Õ–çƒ≈Ã≈‘≈†‘≈Õ–çœ–≈Œ†‘≈Õ–çŒœÕœŒ†√¨…¨œç–œÀ≈≥≥¨≥≥ç–œÀ≈±±∏¨∞∫ø√»“§®¥©¢◊“…‘≈†‘≈Õ–¢∫–œÀ≈µ±¨∞∫Ã…”‘∫–œÀ≈µ±¨≤≤±ç√Ãœ”≈†‘≈Õ–çŒ≈◊ç–œÀ≈¥∞ππ≥¨≥≤∫–œÀ≈¥∞ππ¥¨π¥∫–œÀ≈¥∞ππµ¨±∂∂çNSTALLED.";Á(34)"∫Á(4);"CLOSE"/$π216,0:±7.â:ó=8Ä]B≤ CHANGE APPLESOFT COMMANDSÄLó:∫"CHANGE APPLESOFT COMMANDS"ŸVEL–1:I$–"":ÅA–53456¡53854:≠‚(A)œ128ƒI$–I$»Á(‚(A)…128):AC$(EL)–I$:EL–EL»1:I$–"":´1130Î`I$–I$»Á(‚(A))ÚjÇAtS–1:E–EL… ¿∫Á(4);"DELETE EXEC ROM.";N$> ∫Á(4);"OPEN EXEC ROM.";N$]‘∫Á(4);"WRITE EXEC ROM.";N$kﬁ∫"MONICO"êË∫"A=PEEK(";WE;"):A=PEEK(";WE;")"•Ú∫"BLOAD ROM.";N$ ¸∫"A=PEEK(";FL;"):A=PEEK(";FL;")"⁄∫"NOMONICO"∫"PRINT ";Á(34);"ROM.";N$;" NOW I,1)–Á(110)ƒ1070p∞890:´1070ez∫:Ñ"ENTER NAME FOR YOUR ROM VERSION -> ";N$:≤ 12 SPACEStÑ≠N$–""ƒ870çé≠N$–"?"ƒ∞1790:ó:´890òò•´1890√¢∫Á(4);"BSAVE ROM.";N$;",A$D000,L$2FFF"·¨∫Á(4);"OPEN EXEC ROM.";N$∂∫Á(4);"CLOSE EXEC ROM.";N$≠N$–""ƒ´290& ≠N$–"?"ƒ∞1790:´7701*•´1850K4∫Á(4);"BLOAD ROM.";N$V>π216,0|Hó:∫"ROM.";N$;" IS NOW INSTALLED."ëRÅA–1¡1000:Ç:´290§\≤ EXIT ROUTINEfó:Ñ"WOULD YOU LIKE TO SAVE YOUR VERSION OF ROM TO DISK (Y/N) -> ";A$:≠Ë(A$,1)–"N"ŒË(A$ PROMPT:";A$<–≠„(A$)œ1ŒA$–""ƒ∫"ONE CHARACTER PLEASE":´710Q⁄π65386,Ê(A$)»128j‰ó:∫"NEW PROMPT: ";A$ÓÅA–1¡1000:Ç:´290ò¯≤ LOAD DIFFERENT ROM‘ó:∫"LOAD DIFFERENT VERSION OF ROM":∫"? TO CATALOG DISK"ˇ∫:Ñ"ENTER NAME OF VERSION TO LOAD:";N$-> ";A$:≠A$–""ƒ660DÄA–Â(A$):≠A—‚(64317)ŒAœ23ƒ∫"OUT OF RANGE":´630\äπ64342,A:π64346,A…1Üîó:∫"TEXT WINDOW MODIFIED":ÅA–1¡1000:Çèû´290´®≤ CHANGE MONITOR PROMPT ≤ó:∫"CHANGE MONITOR PROMPT"º∫:∫"CURRENT PROMPT: ";Á(‚(65386))ΔÑ"ENTER NEW:∫"CHANGE TEXT WINDOW DEFAULT"7:∫"CURRENT DEFAULTS-"vD∫:∫¿6);"TOP EDGE: ";‚(64317):∫¿6);"BOTTOM EDGE: ";‚(64342)|N∫§XÑ"ENTER TOP EDGE -> ";A$:≠A$–""ƒ630œbA–Â(A$):≠A—0ŒAœ23ƒ∫"OUT OF RANGE":´600Álπ64317,A:π64318,176vÑ"ENTER BOTTOM EDGE ARE THE FORMb≤l≤xvó:¢10:∫"HOW MANY LINES (1 TO 33) DO YOU WISH":∫" TO PRINT ON EACH FORM ? ";:Ñ"";A$:M–Â(A$)ƒÄ≠M—1ŒMœ33ƒ∫BL$BL$:∫:∫" SORRY, IT MUST BE BETWEEN 1 AND 33":∞1990:´630äπ…16368,0:¢13:å…958:¢14:∫"DO YOU WISH IT CENTERED <Y/N>R:∫:∫D$;"READ";F$&ÑM:ÑH:ÑR:ÑL:ÑCE$1ÅK–1¡MB&ÑX(K):ÑE$(K)c(å54572:ÅB–512¡768:≠‚(B)—œ0ƒÇ¡+T$(K)–"":AD–Â(T$(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:ÇÀ-ÑY(K)—0Ç‰:∫D$;"CLOSE";F$ÓD∞1760ÙN≤X≤ PREPÆ≠F$—œ"?"ƒ510S∏≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DR|¬∞1990:≤ CALL THE KEYPRESS SUBROUTINEäÃπ…16368,0ì÷´420ô‡≤≥Í≤ READ THE DISK FILEπÙ≤÷˛FLAG–2:∫:∫D$;"VERIFY";F$FLAG–3:∫:∫D$;"OPEN";F$;",S";SL;",D";D/N> ? < >";BS$;BS$;:æA$:∫A$5Ü≠A$–"N"ŒA$–Á(110)´620Oê≠A$–"Y"ŒA$–Á(121)´420aö∫BL$»BL$:´380§FLAG–1:ó:¢10:∫" WHAT FORMAT DO YOU WISH TO USE?":∫" PRESS ? TO SEE A CATALOG OF THE DISK":∫:Ñ"FORMAT NAME: ";F$:≠„(F$)œ15ƒF$–Ë(F$,15)ˇ©≠F$–""ƒ380x^¢17:ñ1:π…16368,0:å…958:∫"ENTER SLOT NUMBER FOR YOUR":∫" PRINTER INTERFACE (1-7): <1>";BS$;BS$;:æPS$:≠PS$–CR$ƒPS$–"1"ìhPS–Â(PS$):¢18:ñ28:∫PS$±r≠PS—1ŒPSœ7ƒ∫BL$;BL$;:´350|ó:π…16368,0:¢10:∫"DO YOU WISH TO USE A FORMAT":∫" WHICH IS ON THE DISK <YæSL$:≠SL$–CR$ƒSL$–"6"0,SL–Â(SL$):¢11:ñ22:∫SL$R6≠(SL—1)Œ(SLœ7)ƒ∫BL$;BL$;:´290Δ@¢14:ñ1:π…16368,0:å…958:∫"ENTER DRIVE NUMBER FOR YOUR":∫" FORMAT DISK (1-2): <1>";BS$;BS$;:æDR$:≠DR$–CR$ƒDR$–"1"·JDR–Â(DR$):¢15:ñ22:∫DR$ˇT≠DR—1ŒDRœ2ƒ∫BL$;BL$;:´320L(3)–132:PN$(3)–"COMPRESSED"\ÊPC$(4,1)–EX$»"4":PC$(4,0)–EX$»"5":LL(4)–80:PN$(4)–"ITALICS"b≤â˙B1$–EX$»"G":BZ$–EX$»"H":≤ BOLDFACEè≤£≤ MAIN PROGRAM©≤"ó:π…16368,0:¢10:∫"ENTER SLOT NUMBER FOR YOUR":∫" FORMAT DISK (1-7): <6>";BS$;BS$;:PRINTER COMMANDS ¥≤e æD$–Á(4):CR$–Á(13):BS$–Á(8):EX$–Á(27):BL$–Á(7):≤COMMONLY USED CONTROL CHARSü »PC$(1,1)–EX$»"Q":PC$(1,0)–"":LL(1)–80:PN$(1)–"NORMAL"‹ “PC$(2,1)–Á(14):PC$(2,0)–Á(20):LL(2)–40:PN$(2)–"EXPANDED"‹PC$(3,1)–Á(15):PC$(3,0)–Á(18):L¡17:ÅB–1¡„(AE$(A)):≠B–„(AE$(A))ƒπLC,Ê(Í(AE$(A),B,1))»128:LC–LC»1:Ç:´1530kπLC,Ê(Í(AE$(A),B,1)):LC–LC»1:Çë˙Ç:≠LC—œ54095ƒÅA–LC¡54095:πA,160:Çö´290µ≤ MOVE ROM TO RAM CARDÈ¢12:∫"PLEASE STAND BY.......PREPARING RAM CARD"X"A–‚(WE):A–‚(WE):HX(N$)œ239…CC»„(AE$(A))ƒ∫"TOO LONG":´1450:≤ 19 SPACESS»≠N$–""ƒ∫"NOT CHANGED":´1410é“∫"ACCEPTED":N–„(N$):N1–(239…CC»„(AE$(A)))…N:≠N1–0ƒ1495¶‘ÅT–1¡N1:N$–N$»" ":Ç“◊CC–CC…(„(AE$(A))…„(N$)):AE$(A)–N$:´1410Ó‹ó:∫"MODIFYING MESSAGES"HÊLC–53856:ÅA–1BER TO CHANGE, OR 'L' TO LIST":Ñ" -> ";N$Iå≠N$–"L"ƒLM–17:∞1820:´1390Zñ≠N$–""ƒ´1500Ü†A–Â(N$):≠A—1ŒAœ18ƒ∫"OUT OF RANGE":´1410ú™∫"#";A;¿6);AE$(A)≈¥∫"MAXIMUM LENGTH: ";239…CC»„(AE$(A))3æÑ"ENTER NEW ERROR MESSAGE -> ";N$:≠„2≤ CHANGE ERROR MESSAGESE<ó:∫"CHANGE APPLESOFT ERROR MESSAGES"ûFEL–1:I$–"":ÅA–53856¡54095:≠‚(A)œ128ƒI$–I$»Á(‚(A)…128):AE$(EL)–I$:EL–EL»1:I$–"":´1370∞PI$–I$»Á(‚(A))∑ZÇAΔdS–1:E–EL…1ÂnÅA–S¡E:∫"#";A;¿6);AE$(A):ÇxCC–239+Ç∫"ENTER NUM7ˆ∫"ACCEPTED":CC–CC…(„(AC$(A))…„(N$)):AC$(A)–N$:´1180Só:∫"MODIFYING COMMANDS"Æ LC–53456:ÅA–1¡107:ÅB–1¡„(AC$(A)):≠B–„(AC$(A))ƒπLC,Ê(Í(AC$(A),B,1))»128:LC–LC»1:Ç:´1310—πLC,Ê(Í(AC$(A),B,1)):LC–LC»1:Ç˜Ç:≠LC—œ53854ƒÅA–LC¡53854:πA,160:Ç(´2907ƒ∫"OUT OF RANGE":´1180Yƒ≠„(AC$(A))—2ƒ∫"SINGLE LETTER COMMAND. CAN'T MODIFY IT.":´1180oŒ∫"#";A;¿6);AC$(A)òÿ∫"MAXIMUM LENGTH: ";398…CC»„(AC$(A))ﬂ‚Ñ"ENTER NEW COMMAND:";N$:≠„(N$)œ398…CC»„(AC$(A))ƒ∫"TOO LONG":´1230ˇÏ≠„(N$)—2ƒ∫"TOO SHORT":´123015~ÅA–S¡E:∫"#";A;¿6);AC$(A):≠AÀ18—œ”(AÀ18)ƒÇ:´1170eàÑ"PRESS <RETURN> FOR NEXT PAGE:";A$:Ç:´1170píCC–398πú∫"ENTER NUMBER TO CHANGE, L TO LIST, OR Q TO QUIT":Ñ" -> ";N$ÿ¶≠N$–"L"ƒLM–107:∞1820:´1150Í∞≠N$–"Q"ƒ´1280∫A–Â(N$):≠A—1ŒAœ10O RESTART":∫:∫√8);"< >";BS$;BS$;:æA$:∫A$CF≠A$–"Y"ŒA$–Á(121)´1390^P≠A$–"N"ŒA$–Á(110)´1150xZ≠A$–"R"ŒA$–Á(114)´380çd∫:∫BL$;BL$:´1330˚n∫:∫:∫:∫"EXITING WILL DESTROY ANY FILE IN RAM...":∫:∫" PRESS ";:û:∫"E";:ù:∫" TO CONFIRM YOU WISH TO EXIT"8x):∫Y(K)ÇO ∫D$;"CLOSE";F$:∫:∫" FILE ";F$;" CREATED":∞1990:≤6 SPACESU≤p≤ LEAVING THE PROGRAMv(≤Ü2π…16368,0:ó(<¢6:∫"WOULD YOU LIKE TO QUIT?":∫:∫" PRESS <Y> FOR YES":∫√8);"<N> TO RETURN TO THE":∫√16);"PREVIOUS STEP":∫√8);"<R> T0∞≠F$—œ"?"´1240V∫≠F$–"?"ƒó:∫:∫D$;Ë("CATALOG",7…(‚(48896)–76) 4);",S";SL;",D";DR`ƒ∞1990jŒ´1190…ÿ∫:∫D$;"OPEN";F$;",S";SL;",D";DR:∫D$;"CLOSE";F$:∫D$;"DELETE";F$:∫D$;"OPEN";F$:∫D$"WRITE";F$ﬁ‚∫M:∫H:∫R:∫L:∫CE$ÈÏÅK–1¡Mˆ∫X(K):∫E$(K):∫T$(KTHIS FORMAT":∫" TO DISK <Y/N> ? < >";BS$;BS$;:æA$:∫A$Qà≠A$–"N"ŒA$–Á(110)´1330lí≠A$–"Y"ŒA$–Á(121)´1190ú∫BL$;BL$:´1150Ò¶ó:¢10:∫" WHAT FILE NAME DO YOU WISH TO USE? ":∫" PRESS ? TO SEE A CATALOG OF THE DISK":∫:Ñ"FILE NAME: ";F$´≠F$–""ƒ133.¢15:∫BL$;BL$:´1040`8π…16368,0:ó:¢10:∫"WOULD YOU LIKE TO RERUN <Y/N>? < >";BS$;BS$;:æZ$:∫Z$}B≠Z$–"Y"ŒZ$–Á(121)ƒó:´210òL≠Z$–"N"ŒZ$–Á(110)´1150´V∫BL$;BL$:´1080±`≤≈j≤ SAVE THE FORMÀt≤6~π…16368,0:FLAG–4:ó:¢10:∫"WOULD YOU LIKE TO SAVE ∫¿Ç ≠L–0´990#‘ÅJ–0¡L:∫:Ç)ﬁÇ:Ë∫:∫D$;"PR#0"@Ú≤S¸≤ DO IT AGAIN?Y≤¬π…16368,0:ó:¢10:∫"WOULD YOU LIKE TO REPEAT WITH THE":∫" SAME SETTINGS <Y/N> ? < >";BS$;BS$;:æA$:∫A$„≠A$–"Y"ŒA$–Á(121)ƒ∞1690:´870˛$≠A$–"N"ŒA$–Á(110)´1150CKS H≤R≤ START PRINTING%\≤Of∫:∫D$;"PR#"PS$:∫Á(9)"136N":∫PC$(1,1);ZpÅN–1¡Rgz≠H–0´910vÑÅG–1¡H:∫:ÇÅéÅK–1¡M¨òBF$–"":≠E$(K)–"Y"ŒE$(K)–Á(121)ƒBF$–B1$¡¢≠T$(K)–""ƒ∫:´960˚¨ñ1:∫R$;:∫¿Y(K));PC$(X(K),1);BF$;T$(K);BZ$;PC$(X(K),0)∂E TOP":∫" DO YOU WISH THE PRINTING TO BEGIN ? ";:Ñ"";A$:H–Â(A$)â ≠Hœ66ƒ∫BL$;BL$:∫"THAT WILL BE OFF THE PAGE AT THE BOTTOM":∞1990:´790 *≠H—0ƒ∫BL$;BL$:∫" PLEASE USE A NUMBER BETWEEN 1 AND 66":´790⁄4∞1990:∞1760>∞1690:∫:∫D$;"PR#0":≤ CLEAR THE DEONGER THAN AN 11-INCH PAGE;":∫" ARE YOU SURE <Y/N> ? < >";BS$;BS$;:æA$:∫A$e‰≠A$–"Y"ŒA$–Á(121)´770Ó≠A$–"N"ŒA$–Á(110)´720ü¯≠((2 M)»L)œ66ƒ∫BL$;BL$:´730Ãó:¢10:∫"HOW MANY REPETITIONS ? ";:Ñ"";A$ÿR–Â(A$)@ó:¢10:∫"HOW MANY LINES DOWN FROM TH ? < >";BS$;BS$;:æCE$:∫CE$6î≠CE$–"Y"ŒCE$–Á(121)´690Rû≠CE$–"N"ŒCE$–Á(110)´690d®∫BL$;BL$:´650q≤ó:ÅK–1¡M{º∞1510ÅΔÇœ–ó:¢10:∫"HOW MANY BLANK LINES":∫" BETWEEN FORMS ? ";:Ñ"";L$:L–Â(L$):A$–""K⁄π…16368,0:≠((2 M)»L)œ66ƒ∫BL$;BL$:∫"THAT IS LE–6ƒ∫"FILE NOT FOUND":Ñ"PRESS <RETURN>";N$:´760<"Xπ216,0:±P"bE–‚(222):π216,0∏"l≠E–8ƒ∫"CHECK DISK DRIVE":Ñ"PRESS <RETURN> TO CONTINUE OR <A> TO ABORT.";N$:≠N$–"A"ŒN$–Á(97)ƒ´290¡"v´920!#Ä≠E–9ƒ∫"DISK FULL":Ñ"PRESS <RETURN> TO CONTINUE OR <A> TO A;√5…„(‰(A)));AE$(A):Ç'!Í∫Á(4);"PR#0"0!Ù´290F!˛ó:∫Á(4);"CATALOG"`!Ñ"PRESS <RETURN>:";N$f!±Å!Ñ"START #,END # :";S,E©!&≠S—1ŒEœLMŒSœEƒ∫"OUT OF RANGE":´1820Ø!0±√!:E–‚(222):π216,0˙!D≠E–8ƒ∫"CHECK DISK DRIVE":Ñ"PRESS <RETURN>";N$:´760/"N≠C$(A»36);√24…„(AC$(A»36)));:≠A»72—œ108ƒ∫"#";A»72;√5…„(‰(A»72)));AC$(A»72)O §ÇY Æ∫:∫:∫| ∏∫" APPLESOFT ERROR MESSAGES-"’ ¬EL–1:I$–"":ÅA–53856¡54095:≠‚(A)œ128ƒI$–I$»Á(‚(A)…128):AE$(EL)–I$:I$–"":EL–EL»1:´1750Á ÃI$–I$»Á(‚(A))Ó ÷ÇA!‡ÅA–1¡17:∫"#";$^∫Á(4);"PR#1":∫Á(9);"80N";h∫" APPLESOFT COMMANDS-"îrEL–1:I$–"":ÅA–53456¡53854:≠‚(A)œ128ƒI$–I$»Á(‚(A)…128):AC$(EL)–I$:EL–EL»1:I$–"":´1670¶|I$–I$»Á(‚(A))≠ÜÇAπêÅA–1¡36I ö∫"#";A;√5…„(‰(A)));AC$(A);√24…„(AC$(A)));"#";A»36;√5…„(‰(A»36)));A$–"D000<D000.FFFFM F328G":ÅI–1¡„(HX$):π511»I,Ê(Í(HX$,I,1))»128:Ç:π72,0:π223,‚(248):å…144u'ÅI–59779¡59825:áJ:πI,J:Çâ,A–‚(FL):A–‚(FL)î6ó:´270¨@≤ DISPLAY APPLESOFT“Jó:∫"DISPLAY APPLESOFT ON PRINTER"TÑ"ACTIVATE PRINTER AND PRESS <RETURN>:";NTER NUMBER TO PULSE DIAL: ":QB$–"":∞520C"∫Q$;QB$;J$:≤ PULSE DIALI,∫ç6VV–17:QQ$–"ENTER NUMBER TO TONE DIAL: ":∞520:≤ GET NUMBER INPUT¶@≤ TONE DIAL A NUMBER∂JÅX–1¡„(QB$)‡TD1$–Í(QB$,X,1):∞370:≤ DIAL X'TH DIGITÊ^ÇÔh´310 r≤ TONE DIAL N> TO ACCEPT, <ESC> TO EXIT":∞460, ¥π35,218 æD$–Á(4)E »J$–Á(10)R “Q$–Á(17)l ‹V$–"D1234567890*#ABC"y ÊZ$–Á(26)• CR3–…16253»SLOT 16:≤ CONTROL REGISTER 3Ø ˙DL–30– ∫D$"PR#"SLOT:≤ TURN ON MODEMÓ πCR3,32:≤ TURN ON SPEAKER'VV–17:QQ$–"EN$–"TOUCH TONE DIALER":∞460+ dA$–"BY":∞460H nA$–"ALAN H STEIN":∞460:∫y xA$–"COPYRIGHT 1986 BY MICROSPARC, INC.":∞460Å Ç∫:∫µ åA$–"THE FIRST NUMBER WILL BE PULSE DIALED":∞460‚ ñA$–"ALL OTHERS WILL BE TONE DIALED":∞460Î †¢22:! ™A$–"PRESS <RETURONTINUE";:ÅPAUSE–1¡250:Ç:¢24:ñ7:∫"PRESS <RETURN> TO CONTINUE";:ÅPAUSE–1¡250:Ç:≠‚(…16384)—128´1990:≤10 SPACES|%–π…16368,0:∫Ç%⁄±à%‰≤ú%Ó≤ SCREEN SCROLL¢%¯≤ƒ%¢24:ÅI–1¡24:∫:ÅJ–1¡75:Ç:Ç:ó:±07$Ä≠ER–9ƒ∫"DISK IS FULL. INSERT ANOTHER DISK.":´1950r$ä≠FLAG–2ÕER–5ŒER–6ŒER–254ƒ∫F$" NOT ON THIS DISK.":´1950í$î∫"ERROR "ER" IN LINE "EL"."≥$û∞1990:¥FLAG´420,420,420,1150π$®≤”$≤≤ PRESS A KEY ROUTINEŸ$º≤l%Δ¢24:å…868:ñ7:∫"PRESS TO C&≠A$–"N"ŒA$–Á(110)ƒó:´630.#0∫BL$;BL$;:´18104#:≤H#D≤ ERROR TRAPSO#N≤ y#XER–‚(222):EL–‚(218)»256 ‚(219):å…3288¶#b≠ER–5ŒER–6ŒER–4ŒER–8ŒER–9ƒ∫D$;"CLOSE";F$’#l≠ER–8ƒ∫"I/O ERROR--CHECK DRIVE DOOR":´1950$v≠ER–4ƒ∫"DISK IS WRITE-PROTECTED.":´195OP":6"Í≠CE$–"Y"ŒCE$–Á(121)ƒ∫"TEXT IS CENTERED":´1790T"Ù∫"TEXT IS LEFT JUSTIFIED"c"˛π34,9:©200ä"ÅK–1¡M:∫"LINE # ";K;": ";T$(K):Ç:∫„"©255:π…16368,0:ñ1:¢23:å…868:∫"IS THIS SET-UP OK <Y/N> ? < >";BS$;BS$;:æA$:∫A$;:π34,1˝"≠A$–"Y"ŒA$–Á(121)´830#´1690:≤17 SPACES!Æ¢23:å…958$!∏±*!¬≤N!Ã≤ USER'S VERIFICATION OF SET-UPT!÷≤"‡ó:∫"SUMMARY OF THE FORMAT YOU HAVE CHOSEN :":∫:∫"LINES PER FORM = ";M:∫"BLANK LINES BETWEEN FORMS = ";L:∫"NO. OF REPETITIONS = ";R:∫"FIRST LINE IS ";H;" LINE(S) FROM T)–M(K)…LE(K)+ h≠CE$–"N"ŒCE$–Á(110)ƒY(K)–11 r±7 |≤R Ü≤ PRINTER PREPARATIONX ê≤i ö¢23:ñ1:å…958!§¢23:ñ1:∫" PLEASE AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:¢23:ñ1:∫" PLEASE PREPARE PRINTER AND PRESS A KEY";:ÅPAUSE–1¡250:Ç:≠‚(…16384)—128T BE ONE OF C, I, W, OR R":∫:∫:∞1990:´1540[6X(K)–Â(X$):M(K)–40:L(K)–80 „(T$(K))ÀLL(X(K))ÿ@π…16368,0:ñ1:¢20:∫"DO YOU WANT BOLD-FACE PRINT <Y/N>? < >";BS$;BS$;:æE$:∫E$:≠E$—œ"N"ÕE$—œÁ(110)ÕE$—œÁ(121)ÕE$—œ"Y"ƒ1600ÂJE$(K)–E$¯TLE(K)–(L(K))À2 ^Y(K(K))»‚(131)»256 ‚(132):πAD,B…512:πAD»1,0:πAD»2,2:T$(K)–Í(T$(K),1):B–768:Ç™ó:¢10:∫"PLEASE SELECT ONE OF -":∫:ÅI–1¡NC:∫" <"I"> "PN$(I):ÇI:∫:∫" < >";BS$;BS$;:æX$:∫X$∞≤Ã≤ CENTERING CALCULATION“"≤*,≠X$—"1"ŒX$œ‰(NC)ƒ∫BL$;BL$:∫"SORRY, IT MUS¡20:Ç:Ç:∫:©255:ÅI–1¡1000:Ç:±"»≤9“≤ START OF SET-UP?‹≤|Êó:¢10:∫"WHAT DO YOU WISH TO PRINT":∫" ON LINE ";K;" ? " ¢13:ñ1:ÅL–1¡39:∫".";:Ç:∫"^";:ÅL–1¡39:∫".";:Ç:∫"^";:ÅI–1¡52:∫".";:Ç:¢13:ñ1Îıå54572:ÅB–512¡768:≠‚(B)—œ0ƒÇI˙T$(K)–"":AD–Â(T$∫:∫:ñ6:∫"OR ";:û:∫"ANY OTHER KEY";:ù:∫" TO CONTINUE ";:ZÇæA$:≠A$–"E"ŒA$–Á(101)ƒ∫:´1430då´1150óñ¢22:∫:ñ13:ST$–"'BYE FOR NOW..":∞1470:π34,0:ó:Äù†≤π™≤ SLOWPRINT SUBROUTINEø¥≤æ©175:ñ10:ÅX–1¡„(ST$):∫Í(ST$,X,1);:Z–‚(…16336)»‚(…16336):ÅY–1 ABORT";N$:≠N$–"A"ŒN$–Á(97)ƒ´290*#ä´920 L†††††…†≠√ıÚÛÔÚ†ıç◊©ÚÈÙÂ†·†ÛÂ„ÙÔÚ†††††Õ†≠√ıÚÛÔÚ†‰Ô˜Óç‘©Ú·„Î†ÂÓÙÚ˘††††††††À†≠√ıÚÛÔÚ†ÚÈÁËÙç”©Â„ÙÔÚ†ÂÓÙÚ˘††††††† †≠√ıÚÛÔÚ†ÏÂÊÙç¡©”√……†„Ë·ÓÁÂ†††††††¡ÚÚÔ˜†ÎÂ˘Û†≠†√ıÚÛÔÚç»©Â¯†„Ë·ÓÁÂ††††††††††ÈÓ†ÙË·Ù†‰ÈÚÂ„ÙÈÔÓçΔ©ÈÏÙÂÚ†ÙÔÁÁÏÂ††††††¬†≠√ıÚÛÔÚ†ÙÔ†ÛÙ·ÚÙçÃ©Ô˜ÂÚ†„·ÛÂ†ÙÔo»å7o¨…Ü–†?å6o»å7o–ù…â–†?å6o†å7oç…àS…çe…ò–hh©ˇ`…†∞ :ˇLØz…¿ê ,0o –-6o7oùo…‡ê,+o0)ﬂ…†∞…Äê) @ Ì˝ËÏ2oLØz :ˇ‡–LØz ¸©† Ì˝ ¸ LØz©ùoLú¸,0o©Ã–©’çv,6o©Œ–≠7o–© –©Fçw`hÖhÖ †Ê–Ê ±,+o0…‡ê)ﬂ Ì˝L≈{• H•H` lÄ Ω{“©Â·‰†·†ÛÂ„ÙÔÚ†©ç!oÓ"o≠ o≈>–ÿ`≠o [˚≠o iÖ$¨oπmH ⁄˝©moÖ$hLîx≠"o [˚≠!o i® ]z» ]z©m!o® ]z†π oôoà˜`±(…‡ê)ﬂ)?ë(`©¢ù o ˙`†ò,.oômPôn»–`≠oÕ%o–≠oÕ&o–©Ω–©*ç˜`¢ˇé6oËé7oé0o ó{ ˝,1o!H…ò…ç…àI∞… êià…˙∞h :ˇLØzh…è– ˝LP{…ì–≠0oIÄç0oLØz…é–†ˇå6–©çôàÛ «ˇ ßˇ≠…ç–hh©` „ÑÖ†≠,oë»≠oë»©ë»≠oë»≠oë†©ë»©më†©ë»≠$oë†≠,oë»≠oë§• Ÿ©ÖH∞` ·x ú¸ Ω{™™†“◊‘”†ÂÚÚÔÚ†™™††±…– Ω{◊ÚÈÙÂ†–ÚÔÙÂ„ÙÂ‰ÆÆÆL‘y…@– Ω{ƒÚÈˆÂ†≈ÚÚÔÚÆÆÆL‘yH Ω{√Ô‰Â£†§h ⁄˝hh :ˇ ˝8`Õ o–`Ó o– ©ç!oç"oÓ!o≠!o…êo âzLØp rLéq $rLéq ·x Ω{≈ÓÙÂÚ†‚˘ÙÂ†ÙÔ†ÛÂÙ∫†§ Íx–•>¨ oôm»–˙ Øp` ît Âq∞M©ÖÖ †√πm¢ êH¯• iÖ •iÖhÿ Èà¿8∞ﬂ ·x• „˝• ⁄˝ Ω{†ÛÂ„ÙÔÚÛ†ÊÚÂÂÆÆÆL˝`…†∞/,*o,3o Ä…†∞©Æ–2…Äê) @–(…@ê)Lﬁx… ∞ @–,+o0…†ê…‡ê )ﬂ–… ê)LÌ˝©Ö$©L[˚©ç2o©Äç1o £z†πo2z¨ oLûvLÑwL¨w X¸©Ö©mÖ;¨ oÑ>Ñ: –¯¶/Ê>§> ˜Δ•–Í•> ﬁy ·x ú¸ Ω{–ÚÂÛÛ†·†ÎÂ˘ÆÆÆ ˝…ê–©ç4o©Äç5o ŒuL5w…ÿ¢LØp≠m…#∞8ço≠m…∞.çoLéq :ˇ ·x Ω{≈Ó‰†ÔÊ†‘Ú·„ÎØ”Â„ÙÔÚ†ÏÈÓÎÆÆÆL˝ :ˇ ·x Ω{…Óˆ·ÏÈ‰†‘Ú·„Î†ÔÚ†”Â„ÙÔÚÆÆÆL˝≠ o†Ÿ9Åêà¯†π9ÅÖ> ﬁy zL2z†òôm»–˘àå%ê…∏ê`)ç/oH≠5o0 z ·x ú¸h ï˛©Ö$ [˚ Ω{â∏∞ŒÍÍÍÍÍÍÍÍÍÍ¢äH ¡˚¢ J˘†±(… ∞ @…ˇ–©† Ì˝»¿(êÍ é˝h™ËÏ4oê” é˝ é˝ é˝ ì˛≠5o0L2z`¨ oπm…#∞çoLˆsL:ˇ¨ oπm…∞çoLˆsL:ˇ xv∞ ãv∞ îtLéq` ûv∞ XtL‰v` ∏t¨ o¿ˇ–"≠m:…#∞9ço≠m…∞/ço ît éq Xt¨ oπm–»»’–ıòÖ> ﬁy z Ë–˜≠)oÖ> ﬁyLØp ·x Ω{≈ÓÙÂÚ†¡”√……∫†©ç1o©ç2o £z¢¨ oΩo–`ôm¿ˇ–Lˆs ˆsË–Á ·x Ω{«Ô†ÙÔ†ÔÛÈÙÈÔÓ∫†§ Íx–•> ﬁy z 2z` ·x Ω{≈ÓÙÂÚ†»≈ÿ∫†©Äç1o©ç2o £z¢Ωo–`çËΩoˆçËÜ†åÑ1 ßˇ¨ o•>ôm¿ˇ–Lˆs ˆs¶Lêu©ç4oç5o≠/o…ê3 ·x Ω{≈ÓÙÂÚ†ÚÈÓÙÂÚ†ÛÏÔÙ£†®±≠∑©∫† ˝…± o–Ó!o≠!o…ê©ç!oÓ"o zL2z©Õ o–`Œ oŒ!o©ç!oŒ"o zL2z©Õ"o– Õ!oLvt`Œ"o8≠ oÈç o zL2z≠ o…ˇ–`…ÙêLtiç oÓ"o zL2z jz zL2z©ˇç o©ç!o©ç"o zL2z¢Ωmùn†ò Ê˚Ë–Ò≠%oç'o≠&oç(o≠ oç)o`≠'o( :ˇ ·x Ω{ŒÔ†”Â„ÙÔÚ†ÈÓ†Û·ˆÂ†‚ıÊÊÂÚÆÆÆL˝çoç%o≠(oçoç&o¢Ωnùm) Ä˛©Ö$≠o ⁄˝©Ö$≠o ⁄˝ Ñ˛©&Ö$ ˝…Ÿ–n≠˜…ΩY ·x B¸ Ω{jj`WARNING`SECTORoBUFFER`MISMATCH`jjç`DO`YOU`WANT`TO`WRITE`ANYWAY`hYoNi` ˝…Ÿ–©ç$o y jzLØp` ·x Ω{ƒ©ÈÛÏ·˘†‚ıÊÊÂÚ¨†”©·ˆÂ†‚ıÊÊÂÚ¨†ÔÚ†¬©ÔÙË ˝…¬–©ˇç'o©¿ç.o jz uz Øp`…”–©ˇç'o©@ç.o–È…ƒ–Î©Äç.o–€Ó o–Œço qLéqÓo≠o…ê©çoÓo≠o…#ê©ço`Œo©çoŒo©"ço` ·x Ω{≈ÓÙÂÚ†‘Ú·„Î∫†§ Íx– •>…#∞ço`L:ˇ ·x Ω{≈ÓÙÂÚ†”Â„ÙÔÚ∫†§ Íx– •>…∞ço`L:ˇÓo≠o…ê©ço ç,o`≠o…©ço–Óo`≠*oIÄç*oLØp≠3oIÄç3oLØp≠+oIÄç+oLØp ·x Ω{ =$ =$ (/[˚ Ω{√ÔÌÌ·Ó‰∫†Lú¸©Ö$© [˚ Ω{”Ω††ƒΩ††‘ÚΩ§†††”ÂΩ§††††ΔΩ††††ÃΩ††††´¢Ω5ÅÖ$Ωo‡ê ⁄˝ –Ó ∞ Ì˝ Ê©Ö$≠*o yq©Ö$≠+o yq©$Ö$≠ oL⁄˝0 Ω{` Ω{œŒ†`LØp©ç$o y jz≠oç%o≠oç&oLØp X¸hh Ω{‘Ô†ÚÂ≠ÂÓÙÂÚ†ÙËÂ†ƒÈÛÎÔˆÂÚÂÚ†≠†√¡ÃÃ†∂çç©LÖ©NÖ©pÖL–©ço©ço qLéq©ço©p¯©ço ç,o©ço©ço©ço©ç)oç$o©ç-o©ç3o©Äç*o©ˇç%oç&oç'oç(oç.o©ˇç/o uz jz≠≥˚…–©ë Ì˝©Äç¿,©ç+o 9˚ â˛ ì˛,-o0 Á{©Äç-o Øp q âz ıp ˝ç#o ìpL~p¢ˇËΩ@ÅÕ#o–ıä ™ΩÅHΩ~ÅH`L:ˇ©®Ö$ [˚¢òH ⁄˝©∫ Ì˝πm ⁄˝» –Ù©† Ì˝h®…¸–¢ J˘¢πm îx» –Ù» ú¸L2z©Ö$© !!! ! !!!!!!!!!"""" " 3,46,53,63,54,30,36,60,50,54,39,36,23g É 54,62,36,36,44,44,36,39,39,55,46,46,55,39,54,54,54,62,36,36©*É 60,36,36,36,55,54,54,54,53,54,62,36,36,39,36,36,36,23,54,54‰4É 62,53,22,53,38,63,36,55,60,44,39,63,44,37,44,44,44,0Ò>≤ SQUARE3HÉ 39,45,54,44,45,44,53,45,46,54,54,55,63,62,39,37,44,36,39,60,54xÓÉ 46,55,54,39,36,36,55,54,54,39,36,60,54,62,60,54,63,55,63,60∫¯É 39,39,36,44,44,37,45,46,45,62,31,27,51,55,54,45,36,53,54,37◊É 36,44,54,46,36,44,54,0„≤ LEMON%É 36,36,44,45,46,53,53,546,46,45,46@®É 61,62,60,63,60,39,39,39,39,39,36,39,36,39,36,0M≤≤ CHERRYéºÉ 9,12,36,12,36,41,12,37,63,63,58,23,63,58,58,50,23,23,54,55–ΔÉ 55,55,46,46,37,37,63,44,44,46,46,49,46,46,37,37,37,39,55,62Á–É 31,44,44,36,36,0Ù⁄≤ PEANUT6‰É 36,45,36,36,36KvÉ 44,37,45,46,54,54,46,54,53,54,55,55,63,63,36,36,36,44,36,36zÄÉ 37,53,62,54,54,55,54,54,37,36,44,54,54,0áä≤ BANANA…îÉ 18,42,46,45,46,45,45,53,30,55,63,63,63,60,63,60,39,39,39,39ûÉ 39,60,36,60,36,44,44,44,54,54,46,46,54,53,53,53,,36,60,54,54,54,54,54,54ZDÉ 38,39,36,36,36,36,36,55,54,54,54,54,54,60,36,36,36,36,36,62zNÉ 54,54,54,54,36,39,36,36,0ÖX≤ PEAR«bÉ 36,36,36,36,59,53,22,59,23,54,54,62,54,55,54,53,53,37,60,60 lÉ 44,36,37,36,36,44,54,54,54,62,54,53,54,37,36,60,3713,2≤ APPLERÉ 36,36,37,36,37,53,18,53,45,53,53,46,54,54,39,36,60,60,60,55î&É 46,54,54,14,37,53,62,62,60,54,61,55,36,36,36,36,39,36,60,54÷0É 54,46,54,54,54,62,36,36,36,55,54,54,39,36,36,44,36,36,60,28:É 54,54,54,54,54,54,62,36,36,36,36,36Ñ" = ? ";S$§V–Â(S$)-Æ≠V—1ŒVœ10000ƒ3909∏Z–€(…V)?¬±LÃ≤ VALUESx÷É APPLE,PEAR,BANANA,CHERRY,PEANUT,LEMONê‡ÅI–1¡6:áFRUIT$(I):ÇñÍ±£Ù≤ SHAPES©˛≤É 15,0,32,0,141,0,215,0,15,1,61,1,129,1,207,1,2,2,40,2,59,2,72,2,81,2,93,2,101,2,1E.":∫7^∫"EACH GUESS IS SCORED WITH THESE MARKERS:":∫eh∫" SOLID: RIGHT FRUIT IN THE RIGHT SPOT"îr∫" HOLLOW: RIGHT FRUIT IN THE WRONG SPOT."¿|¢14:ñ1:∫"PLEASE ENTER A RANDOM NUMBER."ŸÜ¢16:ñ21:å…958:∫BELL$¸ê¢16:ñ1:û:∫"FROM 1 TO 10000";:ùöSUBROUTINE|D–…1ÜÅJ–1¡168ê≠D1$–Í(V$,J,1)ƒD–J…1>öÇK§≠D—0ƒ450eÆπCR3,D»48:ÅK–…40¡DL:Ç}∏πCR3,D»32:ÅK–1¡DL:ÇÉ¬±òÃ≤ CENTER DISPLAY∏÷TB–20…”(„(A$)À2):≠TB—1ƒTB–1ƒ‡∫¿TB)A$ Í±¯ÙπCR3,0:∫Z$:≤ TURN OFF SPEAKER AND HANG UP˛˛ÄÚÔÁÚ·Ì` ·x ú¸,¿˚≠¿,¿…ê–©ç4o©Äç5o ŒuLÅ…ø…Ø8``›∫ótQ.ç“—÷√Ææº¨‘”£≥ƒΔÃÅ◊⁄Àï à…ãÕä¬≈øØéè¡«»êîìíÿâ†ÉÜòŒ–ö°±äqçqßq‰qÙqrr#r#r8r_rárárûr∞rΔrªr—rësısıstt5t5tWtWtut~tÊ{Ê{ìt∑t uEunu≈uwvävùv wÆv∫vjw“wÔwxxx=x=xÂÓÙÂÚ†ÈÓˆÂÚÛÂ†„Ë·Ú·„ÙÂÚÛç™ﬁΔ†≠ÂÓÙÂÚ†ÊÏ·ÛËÈÓÁ†„Ë·Ú·„ÙÂÚÛç††ﬁ†Ω†√ÔÓÙÚÔÏ¨†™†Ω†ÔÓÏ˘†ˆ·ÏÈ‰†ÊÔÚ†¡”√……†ç ≠Ä Å∞LÁ{LØp X¸©Ö$ Ω{‘ËÂ†ƒÈÛÎÔˆÂÚÂÚç†††√œ–Ÿ“…«»‘†±π∏∂†¬Ÿ†Õ…√“œ”–¡“√¨†…Œ√Æç`© [˚ Ω{–ÚÂÛÛ†ßøß†ÊÔÚ†ÌÔÚÂ†ËÂÏ¨†√‘“Ã†–†ÙÔ†ÚÈÓÙÔÚ†·Ó˘†ÔÙËÂÚ†ÎÂ˘†ÊÔÚ†ÙËÂ†Ì·ÈÓ†„ÚÂÂÓ†††††”–†≠√ÔÓÙÈÓıÂ†·†“Â·‰çç√‘“Ã†„Ë·Ú·„ÙÂÚÛ†‰ıÚÈÓÁ†»Â¯†¶†¡”√……†ÈÓıÙ†ﬁÿ†≠√·Ó„ÂÏÛ†ÈÓıÙç†ﬁ»†≠¬·„ÎÛ·„Â†®Û·ÌÂ†·Û†º≠≠©ç†ﬁÕ†≠√ÔÌÏÂÙÂÛ†ÈÓıÙ†®Û·ÌÂ†·Û†“≈‘’“Œ©ç™ﬁœ†≠ÈÓÛÂÚÙ†ÓÂ¯Ù†„Ë·Ú·„ÙÂÚ†Â¯·„ÙÏ˘ç™ﬁ”†≠ÛËÈÊÙ†„·ÛÂ†®ıÂÚØÏÔ˜ÂÚ©ç™ﬁŒ†≠ÂÓÙÂÚ†ÓÔÚÌ·Ï†„Ë·Ú·„ÙÂÚÛç™ﬁ…†≠ÁÚ·Ì†·Ó‰†ÛÂÙ†ı†ÚÂ≠ÂÓÙÚ˘†ˆÂ„ÙÔÚç ≠Ä ÅêLØp lÄ Ω{ﬁ–†≠–ÚÈÓÙ†Û„ÚÂÂÓ††††ﬁŒ†≠ŒÂ˜†‚ıÊÊ†Û·ˆÂçﬁ‘†≠”ÂÙ†‘Ú·„Î†††††††ﬁœ†≠œÏ‰†‚ıÊÊ†ÚÂÛÙÔÚÂﬁ”†≠”ÂÙ†”Â„ÙÔÚ††††††ﬁ⁄†≠⁄ÂÚÔ†·ÚÙ†‚ıÊÊÂÚﬁ√†≠ŒÂ¯Ù†√·Ù†ÛÂ„ÙÔÚ†ﬁ“†≠”ÂÙ†‘Ø”†·Ó‰†“Â·‰ﬁΔ†≠ŒÂ¯Ù†ÊÈÏÂ†ÊÈÂÏ‰†ﬁ…†≠…Ó‰ÈÚÂ„Ù†“Â·‰çﬁÿ†≠‘ÂÛÙ†ÛÁÁÏÂ††≈†≠√ıÚÛÔÚ†ÙÔ†ÂÓ‰çƒ©ÚÈˆÂ†ÙÔÁÁÏÂ†††††††æ†≠…Ó„†ÛÂ„ÙÔÚç£©”ÏÔÙ†ÙÔÁÁÏÂ†††††††º†≠ƒÂ„†ÛÂ„ÙÔÚç«©Ô†ÙÔ†ÔÛÈÙÈÔÓ†††††ø†≠»ÂÏçŒ©Â¯Ù†ÛÂ„ÙÔÚ†ÚÂ·‰†††°†≠ΔÚÂÂ†ÛÂ„ÙÔÚÛç–©ÚÂˆ†ÛÂ„ÙÔÚ†ÚÂ·‰ç÷©‘œ√†ÛÂ„ÙÔÚ†ÚÂ·‰†††⁄©ÂÚÔ†‚ıÊÊÂÚÛç√©·Ù†ÛÂ„ÙÔÚ†ÚÂ·‰††††ÿ©·ÌÈÓÂ†‰ÈÛ·ÛÛÂÌ‚Ï˘ç—©ıÈÙ†ÚÔ