óBASICPGM1Xþx!ÈÍÀü(Ãçü2ÐÍ>Èþ(Ãçü:ÐÍÃü(Ãçü*Èé!ÈÐí°!Ð5:Ð*ÐÍÒü 	Ý!ÐÝuÝt:Ðþ ÙÉ>ÉR>HIMEM?LOMEM@ÐBREAKAÐNOBREAKä?B¹& +¡-¢*£/¤^¥<¦>§<=¨>=©<>ª=«AND¬OR­NOT®GOTO¯GOSUB°STEP±AT²THEN³THEN´TOµ:¶#·(¸)¹,º;§=<¨=>©><¬:Œ=€;;‹;É=Æ=:[>:õ:c:»:;Ï<Ö<·<:i;w>Œ=Ü<:<:C>:y:þ::C>::€::C>:i>:6>:N>:'>:Hi CathyFATAL SYSTEM ERROR     Coleco SmartBASIC V1.0 (c) 1983, Lazer MicroSystems Inc]:NEXT without FORSyntaxRETURN without GOSUBOut of DATAIllegal QuantityOverflowOut of MemoryStack OverflowUndefined StateADAML.vol4  Uªÿ BOOT       ˆDIRECTORY  ÈBASICPGMTØ°°°HELLOAEAB·ŒespgameARA·duelcannonA$ìCHECKERSAÿÿ(ºWCALENDERAÿÿ3©WFLOWERAHÿÿ6†WDESIGNAHÿÿ7`WHIDEWORDAÿÿ:ªWGAMEAakeAÿ=ROBOTAeAÿ@ëWCHRRACEAAÿBWSTORYAHAÿCqWLOAN-PRINTAEþWHWEENAÿÿÿÿÿG¥WSNOWFLAKEAÿKiWPASSWORDAÿÿLzÖW(0î¯2&?É(øË#ËËËËòz2&?ËÃ©*+?""?*-?"$?*.?"%?Éí[%?*.?}«2?ËûËý".?íS%?Éë!&?4ÊñëÉÍÍ;z·È|·(¡‚0Öú}þ(ÃñÖ82&?PY:"?Í°:#?Í°:$?Í°:%?Í°ëË|Â¥ËËËËÃ¨·(&70*+?	DM*-?íZëËÃÌË:ËËËË? ÝÉyHCZÉÍ;|·Êîz·Ê”ÒÿÆ€òþ€(Ã
Æ€òñ2&?!"?"?"'?")?"?" ? !'??
–#
ž#
ž#
ž#
ž#
ž#
ž#
žÚ´7!?Ë#Ë#Ë#Ë!.?Ë>+Ë+Ë+Ë+Ë+Ë+Ë+ËÂ:?·úž*?)""?*?íj"$?:?·ø:%?æ2%?É:&?<2&?*?""?*?"$?Ã!'??
†#
Ž#
Ž#
Ž#
Ž#
Ž#
Ž#
Ž·ÃNÂ!%?Ë¾ÉÂ:&?·È:%?·!""?"Ã>ÃO'èd
ª­GOSUB­GOTO×INPUTªLETÑNEXTäPRINTÔREAD	¹REM
¿FORÈIF¼DATAÔDIMÚONßONERRÐSTOPÐRETURNÐENDÍDEFÐCLEARÐRESUMEÐNEWÐPOP°RUN¶LISTÐTRACEÐNOTRACE³DELçCALLÐCONTÐCLRERR êGET!ùPOKE"ÐRESTORE#ÐHOME$DRAW%XDRAW&ÐFLASH'ÐINVERSE(ÐNORMAL)ÐTEXT*ÐGR+ÐHGR,ÐHGR2-HLIN.VLIN/öHPLOT0ùPLOT1çHTAB2çVTAB3ÐSHLOAD4êRECALL5êSTORE6íWAIT7SPEED8ROT9SCALE:COLOR;HCOLOR<IN=PmentBad SubscriptRedimensioned ArrayDivide by ZeroType MismatchString Too LongFormula Too ComplexUndefined FunctionIncorrect Function UsageIllegal ModeBreakCan't Continue*5EMMZkx…£°¿à•þÿÿÒ	
Í3·ÂÍ2	Ú|´ÈÃþŠÚÊÙÙOGÉæOÉÙÙOÉÕåÅÍ¼!v?ÍN/ÁáÑÉÍÃ/:.?î€2.?:&?*.?”8íK+?í[-?*%?ÃSíK"?í[$?Í(íD¼È:%?2?ª!%?ËþËú.gË<Ë<Ë<(	iHCZ% ÷æ(Ë:ËËËË= ó}úË*"?	DM*$?íZ0ËËËËÍS0Â»Â»,Â»$ÌS:?ËË"$?íC"?ÉíD*"?íBDM*$?íR_0:?î€2?¯“ë!íBDM!íR_:&?W|·  ehAKÕWbirthdayAÿÿPZsoundexAFTR		(OthelloA["Wdungeon2AÿÿbWplot3dAEFTrÂrobot2AEFTs0bannerAEFTv KALIDOANAyBWbldlotto2A{qWjinglebellA}RWgetema     #WgetemA     ‚uGAME2A     …FENGLISHA  ˆ€HOWARDA   Œ€READme1STAŽVRANCKSA  BLOCKS LEFT$?>2&?ð!.?Ú	!%?>€®wÉ!/?Ú	!&?~·Â/	6+w+w+w+wÉ¯wÉ:&?þÚa	ÖÒe	íD*$?Ë|ËüË<Ë=ÂJ	ÂX	·É¯•o>œg·É!æ7ÉÕë!/?Úr	!&?z³Ê§	¢Êª	ò	{íD_z/?ÎWÊ«	>>=Ë#Ëò	w+ú 	Ëºr+s+¯w+wÑÉSz·>ˆò	Ã˜	Õåí[%?*.?z·Êÿ	|·Ê

}«ú

z¼Âó	{½Âó	$?!-?¾Âó	+¾Âó	+¾Ê
áÑ:%?ÎÀ<É´Ê
}·ú
Ëû7ËáÑÉÙÅÕå¯2?GOW_ÙoOþ+(Ö- =2?þE(jþe(fþ. (îÃÒ
Ö0þ
ÒÒ
g}æð ÛÙÍ”
ÕÅÙ}oÙÍ”
ÙÙÍ”
ÙÙá	DMáíZëÙo|ÙO0¯   7Ù}Îoæð(ŸÃ/
`i)DMbkíjëÉ¯GOþ+(þ- Ö0þ
0gxþ0VG€„GÃ­
 xíDG€êeÙÅÕÙÁhAíS"?ÑJ¨"$?Í
*"?å*$?ÍøÆ&þM0)O!;	#6?ò*%?".?*#?",?*!?"*?,-È*+?6+#6?É*.?"%?*,?"#?**?"!?,-È*"?6"#6?Éþ“Ò^æ!c…oÒQ$~á…oÒY$~#foé>ÃR
æ7&æoÃg	æ7ÙÙ&oÃg	æ7ÙÙogÃg	Å!"?åÍŸÃÖçÅ!+?åÍ ÃÖçëãPYëí í í í í ÑÁ¯É

á	ÁÕW_Ãr	
o
g##~ëãåÍ`Á}|##~·O#ë(í°ÑÁ>ÿ7ÉáÍ/ÁÉá2?Íµ:?Í/2!?GÍÍãxÁÉÊýËw *ÅÙÙæ  Í3·áÕÍ2ÑÙÙþ¸Â¯ÉÍ3·áÍ2>ÿÉþÈÂÙÙÅÍ3á·ÂÙÙþ¸ÂÕ~	N‘ÖÙÅOÙ#	ëÍŸ•{zYP!ûÿ9ùëí°+ë!&?í¸ÕW_Í3Ñ!9í°ùÙÁÙÑ¯É!"?ÃÓ!+?ÙyÙë#ÅN‘ÙOÙyåbkÍ`ës#ráx±Êù#í°+ëÁ>ÿÉ!"/?í¸Í`Íü:2?_Ë'Ë'ƒ_!þíRÍë5Í/Íü:&?íK"?í[$?ËúÖ„(Ë:ËËË< õ:2?áõzæÆ0w#zæWñ=(å`i)DMëíjåë)ëíjë)ëíjë	DMáíZëÃGõ:2?G+~þ0 ø+~õû:?Æþ8>Öò´6.íDG#60ûñ#w ûÃÊGñ(w#ù6.ñ ëÃÊ60#û %6E#:?·+òÝ-íDp#/Ö
òáp#:<úëp#+v?·íR}É:&?þ„Ø :%?þ Ø!?4!ôÃ]Â*%?|·ÊË}Âõ>€2&?!¿Í!Í,!ºÍ!ÍYÍâ!CÍ<!µÍ!ñÖ€oŸg7Íg	Í/!’Ã]Â:&?·ÈÍ!&?5Ãë:/?·Ê :&?·ÈÜÍ‚!.?Ë~(Ë¾!<åÍ,Í(Í³)æ2B?Í¸	(>ÿ2B?ÃÊÍh8þ0Í;ÍõÃÆÅ!.?Ë¾Í`ÁôÉÍ;ÍJÍÍYÍ`Ãë:B?Ë/úÐÃ	Â!—Í]ÍÍh89·òíD!2*?`iÍ€Ê'
¾Ò'åÍµÍ#Íý2!?ÍÍãáÃ:!?·#~#foÅÕéÙyÙ·ÈÍƒÍÍ2!?Í€ÊTÍý2!?
<ÂH7Éá1€ÓÜÅÝ!Ý9ÝåýáéÍÍÙ*Ý>í[Ù>"å>ëxæøö@GËpÊ¢í[å>}“|š0##^#V#OËxÕÙÑ $ÉÙËp(	ËíSú>"ü>Ù33Ã¦>·ÕÙÑ(ÃOËxÙÈÙËp(Õå++++>#ÍÚ.¯Í¡2> ÍÚ.áÑÙÉÕÙxæœGæ(*Ù>Í%í[Ý>"å>!ÿÿÑËXË˜ÙÄÐÙËPÙÄWÃHÍWÍƒ.ÙyÙ·ÕõÍjñÊ.ÑÙË°Ù!HåÃ– áÙË`ÙÌN‡O!	~#foÍ2ÍµÃ/ÍžC<À!kB:?®2?:?¾À>ÃÍ›t•ªÅÙÙÍ3áíK"?q#p#íK$?q#p#:&?wÉÅÅÙÙÍ3Í2	DMáÚq#pÉÅÙÙÍ3Á*"?}|q#pÉÙËøÙÉÙË¸ÙÉÙË ÙÉÙËàÙÉÍWÍt.!"ë>ÍÍÙËÐÙÃ£>ÙÙ>ÃÙxæDÂËðí[ú>ÁÖÉ*"?"+?*$?"-?*%?".?É+?í°É!ù"?í°ÉÑ*%?å*#?å*!?åëéÑá"!?á"#?á"%?ëéÑ*.?å*,?å**?åëéÑá"*?á",?á".?ëéÍ2	Ø|·òxþÿØ}þÉ }þ€?É	!%?Ë~È:&?·ÈË¾ëãéør1€);ª8¢ÚInƒù"€¢ÚI€ÐÌTšy‚‚€€4óµ4ó5€´ì-æ@»K.÷|OG‹X}f‚Ñ‘~ ÈL~
¢ªªýÿÿ€l]-q|oetöøv/wvz²˜Xc|¼îýu~ùr1€„ˆÑ—yJv3#}Òä]¥€¡ÚIÿû¹jv6Ùª{JÚà×åéþÿÿ€yËV^d›€“8v€;ª8‚Âí[%?íK>?*@?z·(8Ë{(ëíK#?íC+?"-?!ÈÍ¬2>?Í¬2??Í¬2@?Í¬2A?íK>?*@?¯2?€_Ãø~åÍ°á#Éá}|*%?å*#?å*!?å,- goéõ*"?å!9}ãw#ã|ãwááoéá}|á,-"!?á"#?á"%? goé*"?6"				Í]Ñ·ÉáÙáÑÁÙéÍ
Ê
7ÉÍ
ò
öþõ8Æõ!ÂÍ]ñÃù
ÑÖ&ú
ÝíÜÇYê™$$*	À-­T˜<ì¾K'&­±O,³Î÷_B"õ÷ÒJ óµ‡}#¸Ñt'%F*¯‡–w-Í¾1šmA4Éq7P ;eå<>~JlAî’E2ªw8H¿”•fK÷|O5Ü$4RB.aU	Ì¼Yÿë/\Ïþæ[_A_p	cwÌ+fÖ”¿Vi½7mG¬Å'pY·Qs˜nw=
×#zÍÌÌL} „H‡zŠ@ŽPC‘$t”€–˜ ¼>›(knžù¢@·C:¥¥Ôh¨*ç„¬õ æ5¯2©_c²¿É¶/¼¢1¹:k^¼#Ç
ÀÆëx-Ã·&×XÆ2x†Ê?h)ÍÏÂSÐaQYÔº¥o%×(ËNÚy9?Þ×!áÍÉòIä@|o|ç¨­Åë7EîWß„vñ–õ|Î—@øÂ½pûQ™vÿ!w?:&?· 60+6É:%?·òÚ6-#æ2%?å&:&?Ö<0
!þÍ]%îW!?	~‚0ú{2??Ã!+?ÙyÖOÙÅëí í í í í ëÁ¯ÉN#x±Èí°É Í/ÑÁ¯É*+?í["?##†Ú	å!"?Í`""?###ëÍáÍÑÁ>ÿÉÍ'ÑÁ¯ÉÍ`ÑÁ¯ÉÍâÑÁ¯ÉÍpÑÁ¯É:&?·Êø:/?·ÊøÃÚ:&?G:/?°ÊøÃÚ Í¸	8<XÍ÷ 	Í¸	8L(J*Íõ 	Í¸	8(8Íõ Í¸	0*Í÷ Í¸	(>2&?!""?"$?ÑÁ¯ÉÍç Í¸	(â¯2&?ÑÁÉÍò*"?ë*+?##Í?.¯Éþ·Â%Í3ÙÙÉþ¡Â7ÍƒÍÍæ7Í	¯Éþ­ÂÍÍƒÍÍæ7Í	¯Éþ·ÂdÅÍµÍ3GÍÍãxÁÙÙÉþ¡ÂrÍƒÍåÃ1þ­ÂåÍƒÍåÃCÙyÙ·(ÙÙÖ þ0O¥OÐÉÙÙÌ¯É)\cjq—¥µÅÓñx‰ÿÙÙÍAvƒŸÉÊþÙÙÍAw„‘±ÉÐIÍå<å!.?Ë¾õíDoŸg¯Íg	Í/!ëÍ¶:&?Á€Òá<å·íRáÂñÃ
:.?·ú
ÃÍ!ùÍ#ÃâÂ:%?>€Í|Í,íK3?í[5?¯ÍÓÍYÃâÂ>@Ã|Â:%?>!%?Ë¾2B?!¡Í]íK"?í[$?Ëú:&?Ö‚8(+þ 8ÃÈþá8óË:ËËË<Â®ÃÈË!ËËË= õíC3?íS5?:B?‚WòÞ!	åËºËr(!¯íBDM!€íRë*Æ·íR8 *ÄíB!õ0&õ!·íBDM!@íRë!)x±²³(>‚=Ë!ËËËò Ëº2&?íC"?íS$?ñ8r"7?ÍÍ,Í`*7?Í¶ÍYÃ`ÂÍ!«ÍÍ¸	84!°ÍÍ¸	8
Í<!ŸåÃ™!ùÍ!Í<*%?Ëý$"%?!ùÍ!!¨åÍ!ÌÃ<Í	!œÃ!!¦Ã!åÍÍ`á~õ#+?í°"7?*"?"9?*$?";?:&?2=?ÃìÅ*9?"+?*;?"-?:=?2/?Í`*7?+?í°"7?Í/Õ*ü>OÙÑz³ÊÃHÙ>Ãgë – ý"gk"®%ã m!ã ½ ²ê!Ÿ4 Íy Ô-!ïÀÅƒ:'ó­¢$x'
%R+^,”,*+/+4+9+>+C+H+¢+Ó+ß,ƒ+8,B,M+ô-ì-Ž'P*Ã,Ñ,[+o+4//+v*ÊÏ´'ÙÙæ7ë~æG#N#^ë}Ù<‘/OÙ`i	)	íKß>	~#N#F(-æü á~#foéúëË_Â}Ëo+DMá##(ç##ãáÅ	ÁËwïæü å!Í*í>6++++DM+"í>áp+q¯¶úëË_ +Ëo(½R?p+q¶ë~æG#N#^ë}Ù<‘/OÙ`i	)	íKß>	ÉÕåõÍñA!ÍšÚ÷ÍƒÕô_æ0{ ÍšÚ÷Í¹áp+qÑõÙÙþ·Â8"Í¾ñÕWzæ0T]Âœ)	DMÑ ÃÍËoÃâÍµÍ¾"?Íã*?Ð!å`iF#ÃÓãÙÙþ¹ :ÅåÍ303· 0áÁKz^#V#ãÍš8%åõÍ2	8ñ$%úë+íR8áþ‘Â&#ÙÙbkÍN/~ÙíDOÙ~ƒ_Ò#ÙÙÃ/#ÙÙ>?ÍÚ.ÕÍ/BK·ÊE#å!?¾áÊbÑ
·(
·Ê*#7ÅõíS?ÙyÙ2?Í›l#x$$ñáÒÔ#ÕT]þ Â~#Ãt#ÅÍ
áÚBKí["?s#r#í[$?s#r#:&?wÑ
þ,(·Ê¯#þ ÂÔ#Ã#ÙyÙ·ÈÙÙÃ*#ÙyÙ·(ÙÙÃM#!õ#ÍN/Í`/ÉÑÙË@Ù !$ÍN/í[?:?ÙOÙÍ`/Ã*#>Ã?Extra Ignored?ReenterñáÅ0	~þ  #Ã$íS	?T]·(õþ"Êh$å>#~þ,(·Â-$íS	?Ñ·íR}Á`iÍ`}|##~#·ë(Oí°DMí[	?
þ"Â#Ã##å~þ"Ê7$·Ê7$#Ãj$ñëãÒÓ#Å~þ  #Ã$T]Í
ÚÍ2	ÚÁ}|BKÑÃ#Íi/õÍ›³$³$ø$oñþ.(þE(þe(þ-(þ+(þ0Úþ:Òþ¯æËe Å&o·Íg	áíK%?¯w#w#w#q#pÉ¯É`i>Í`}þ¹(Õþ¡(ÑÍïÙyÙ·ÊoÙÙ`iÙyÙ·Ê}ÙÙÍïå·íBáÊoÐ"O?ÅÍð0ÁíCO?åÍð0Á}iO|`GÚWå·íBá( ÕÅåÍNáÁÍ“4å·íBáÚXÊXÑÉíCO?Íð0ÐÕÍ“4ÑÉÿÿÃ)ÙyÙ·È*Û>|µÊã ÙÙþ¹Êþ¡ÊÍïÙyÙ·Ê`iÙyÙ·ÊÍïxDgyMoå·íBáÊØÕåÅ"O?Íð000$åÅ"O?Íð0í[Ù>å·íRá( +++V+^ãëå·íRáëã8Íò1*Û>|µ(ÁáÃÖÁáÑÃ£>Õ`iÍë1ÑÃ£>Í3·Â+:&?·Ê6=Ê6ÙÙþ²ÈÃ– ÙÍ€ÉÙÙÍÜÍAf½ÒkíD…o-ÂcÃkÙÙÍÜµ(> ÍÚ.- úÙÙþ¸ÊÔÃÙÙþ¹ÊÃþºÊÔþŒÂÙÙ·ÊW=Ê<ÙÙÙÙÍ3Òx·Â¸ÍÙyÙ·ÂxÃ`/*"?##ÍN/Ã®ÍAfæÖO> ÍÚ.ÂÍÙyÙ·ÂxÉ!ÜåÝ!Ý9Ýåýá>>>>
>>>>ÁÉÍ3:&?·(*þ€8&þ‘ÒÍ³)*$?:&?Ë| ËüÖ‘<ÈË<ËÃ&'X	ÅÃ$'!ÉÍ'ÍƒÕÙÕÅåÙýåÝåÍ2ÝáýáÙáÁÑÙÑ¯ÉÍƒÕÙÕÅåÙýåÝå*?ßÂÍ'~o¯gÃg	Í'åÙÙÍÜ}Á*?·íBØÉÍÜåÙÙÍÜÙyÙ·Ê«'ÙÙåÍÜ}ágÁíx­¤Ê¬'ÉÍƒÙÕÅåÙýåÝå*?Í2ÝáýáÙáÁÑÙÉÍá'*í>íKï>·íB·Ãg	Õ*ã>"ñ>T]*ó>íSó>íKï>å·íBáÒ=(^#V+½Â0(¼Â0(:ò>:ñ>]T##~ÆÒ"(O*ñ>ëí°íSñ>Ãñ'##~#…oÒñ'$Ãñ'*ñ>"ï>ÑÉÊ*"?##~·Ê#OÕw?í°¯v?þ (úÍ
ÑÐÃñÊ*"?##~·Ê#n&Ãg	ÂÍ2	Ú|´ÂMÙÙÖ¸Â<!"?Í`""?###qÉÂÙÙþ¸ÂÕÍ¼:v?!"?Í`""?##N#w?ëí°ÑÉÊ*"?#Ã|(Ê!"?N#FáÅå!9}|ÙÙÍÜM±ÊO?Íð0Ò² "!ÕÝ!Ý9åÙáËðÍ€Ã/Ýù>ÉÑÙËðáÙÝáýáÉÝùá"!å·íBá ááÝáýáÉ>é}=ÊX!-ÙÙÈþ¹ÂJ!ÃD!ÙÙÍïÍã ýåÝåÙåÙÃý ÍƒÝåýåÍ›!·ÂÅÅýåáÝåÁå·íBáÒÄ!	ÁÅ#x¾+ y¾Â­!ùÁÅÅÃÄ!##N#~##¾+ y¾0+~+ngÃ•!ÙÙÍ3áíK"?q#p#íK$?q#p#:&?wÙÙÍ3*%?å*#?å:"?õ3ÙyÙ·Ê""ÙÙÍ3*%?å*#?å:"?õ3ÙåËèÙÕ!1"åý!ý9ÃHÅÅÅÃ"ÙÃÙxæ`(öyÙ·Êv"ÕÙÅÙÍ›N"·Âý~¸ ý~¹(ÙÁÙÑ!9ùýáÝáýù>É`iÁÁ!9~#foÕå"?í í í í í !9+?í í í í í ãåÍ/Ñ!"?í í í í í á+?í í í í í Í¸	ÑõýË	~ ñ(0ÑÙá#|µ+(ËðåÙÕ!1"åÃHñÒÏ"!9ùýáÝáÙyÙ·ÈÙÙÃk"ÙÙWYÅÙÙþ¸ÁÈ>!>	ÃÙÙþ¹ ïÙÙÍ*F#~#¶Âô°ú+åÙÙþ· Ñ!ÅåÍ3áÁ0Æ· ÃÍƒÕëÍ2	ë8¸úÍšÚ÷ëãëÙÙþ¹ÊAþ¸ —xÕ_æ0{ ÍšÚ÷ÑÍ¹áq#pÙyÙ·ÈÃÕÅõL}!Ë9Ò­8ë)ëò|ÁxÁÑÉã"?íS?áAÅõy7O	Í·íBñËoDM*í>(R?rí©âîsí©êâÁÑr+s+ùqDM+"í>í[?*?éƒ_0þ¹(1þ¸(?þ·(3þŠÚ(þ‹(þ8Ûþ’(Òƒ_ÒÃÃx= Å ÂÃ ¼>Ã ´ÉÅåO&Æo0$ÍyíKï>	"ï>`iÁq#p#w++ÁÉå!.9áØ>ÃÅåíKï>	Ú¤íKí>íBáÁØÅåÍá'áåíKï>	Ú÷íKí>íBáÁØÃ÷ÕÍ`/*Ù>íKÛ>Í“4ÅåÍNáÁx± ñÑÉÙyÙ·(ÜÙÙÍï!Ã)ÙyÙ·(È*Û>|µÊã ÙÙ|###ñwÉ*Ù>"õ>¯2ù>2÷>2ø>É:ù>·Âj%*õ>íK÷>°±Â@%íKå>å·íBáÒú##N#F#
·Ê.%
þÊW%OÒ@%Ã@%
·íC÷>"õ>Ê@%2ù>Í›2&w%‡%ÕÍY&ÑÍ’ÃM&T]Ã¸%ÕÅ*÷>:ù>O~þ Âž%Ê'&#Ã%þ,Ê‚%þ"Êñ%T]"?Êé%#~þ,Â­%#"÷>y2ù>·íR-}áÍ`^#V+}|##~·Êå%#í[?Oëí°ÑÃM&#"÷>#Ã½%Ê'&#T]"?~þ"Ê	&Êé%#Ãû%åÊ&#~þ,Ê&þ Ê
&Ã#"÷>á#Ã½%y2ù>"÷>oÃÅ%ÕÍY&`iíK"?q#p#íK$?q#p#:&?wÑÙyÙ·ÈÙÙÃ%Å:ù>Oí[÷>þ Âp&Êå&Ãb&þ,Êò&y2ù>íS÷>þ,Ê´&Â}&*÷>w?:ù>Oí°"÷>x2ù>w?Í
ÚÁ·Èþ Ê¨&Ãí[÷>Í
Úbkí[÷>"÷>·íR:ù>•O*÷>~þ,Êø&þ ÂÊú&#ÃÒ&y2ù>íS÷>2&?ÁÉ¯2&?bk#"÷>y2ù>>>>>2?ÙíSú>"ü>ËÐÙþ0ÙË@ÙÂ’Íc_Í`/>?ÍÚ.:?þ >2?G!€·(	~#…o0$÷ÍN/:?þ0!¡ÍN/ÙËpÙ(!¨ÍN/ÙåÙá+++V+^Í§2Í`/!""?"+?:?þÂ£>ÙËÙÃ¦>ÙËÈÙHÅíKþ>Ãž  Error In ÙË€ÙÉÙËp(ÙÍïíCþ>ÙËÀÙÉÙÃëÍ
%*Ù>+"í>*ß>#‘	íKë>x· >¹(íDO8¯ÕWw#wí¡êøÑ+:á>½ :â>¼(ÕT]íKá>Å"á>*ã>·íBDMáí°íSã>Ñ*ã>"ó>"ï>ÉÙËpÙÊëÍ*~æ0Â#å!åÙÙþ·ÀÙÙÖŒþÐÍ*~æüÀÙÙþ¸ÀááÙÕÙÁq#pÃã ÙËp(ËH(Ëˆ*ü>Ùí[ú>ÉÙÃÙÃëÙÙÍïíCO?Íð0Ò¸ åÙáËðÍ€ÉááÝáýá>ÃÍÜ}·Êã ÙÙþ®ÂD!}=Ê– -ÙÙÈþ¹ÂÕ ÃÏ ÙyÙƒ_ÐÉÍƒýåÝåÙåÙÙÙÍïÕíCyÁáåÅO##~¹ÉÍà(Ò)OÙÙÖ¸Êx)ÃÍà(Ú)g‘OÙÙþ¸ÂyLÃw)ñÚ¢)GyHÃv)Íà(õÙÙþ¸Ê9)ÅÍÜÁEÙÙþ¸ÂñÚ¢)õ¸Ú9)¹Ú9)ñy€AOx=G!"?y<(%Í`""?##N#ëãå###x…o0$í°áÑ¯w#wÉ¯!"?Í`""?áÃ)Â:&?·Èþ ÐíK$?ËxËø(*"?å*$?å*%?å!*åþÚ
þÚ**"?Ë8ËËË<þ Ââ)åË%ËËËòñ)Ë¸íC$?""?á}ÉÍ2	å·Íg	á}É!%?Ëþá".?á"-?á"+?õÍ¸	(!€".?!"+?",?Í/ñÉ:?!·…o0$n&·Ãg	ÙÙÍÜ}2?ÉÂÍAfo&·Ãg	ÂÍHfo&·Ãg	ÙÙÍ'åÍÐ*ß>Á·íBÈÕÒÅ**ã>í[ß>·íRT]	DM*í>+·íBÚ÷zPG{YO*ã>ë"ã>"ó>"ï>ëí¸íSß>Ãð*!k+·íBÒ÷PY*ã>íKß>·íBDM*ß>íSß>í°ë"ã>"ï>"ó>*ë>T]))í[ß>"á>þ(:?ÍÚ.ÍC4ÃN/GæàËÚ$3!(Ã×.Â4xþŠÚN3ÊV3þ‹Êa3þÊÙ3þ‘Úl3Êå3þ’Ê¥4!(Í×.æö0ÍÚ.ÉÕ_Í§2ÑÉë^#VÍ§2ëÉxægoÕT]))í[ß>~Wzæ@ÄÐ3zæ(2G###~ÍÚ.ùBÑ·(`GÍÚ.øDxæ0þ  >$ÃÚ.þÀ>%ÃÚ.###~#foyíKá>	OÍN/Ã”3å!/;ÍN/áÉëÍN/N	ëÉë>"ÍÚ.FyOÍN/>"ÍÚ.yH	OëÉxÍ14> õÜÚ.xÍM4ÍN/ñÜÚ.xþ²Â4Ãe4þ¹Â)4> ÃÚ.þºÀ> ÃÚ.:?·x(þ¥?ÐþµÉþ«÷Å!ÃT4Å!2Õ¾	Êb4^#ÃW4ÑÁÉOÍî2È> ÍÚ.Í3y·Âs4É&o#åÍe4Ñ·È!|ÍN/Ã|4ÅÍŸ2^#V#åÍ|4áÍ`/ÁÉ2"?2#?2$?2%?2&?ÕÅÍÁÑyÖOÉ*ó>N#F+
½ :
¼ 5##~`iÍ`N#F+}|##~·(#Õë*ó>###Oí°"½ÚÁEÙyÙ·Ê]-ÅÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁëãSYDMÍVdÑÙyÙ·ÈÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEÕÍÅdÃ3-ÕÍdÑÉÂÍ2	Ú|·Â}þÒOÕÍiÑo¯gÃg	ÙÙÍ*~æ(Â~Õ###ëGæOxöÍ7ÑÒú|ægDM	)	íKß>	F#~#fo´ÊúÕÅDM~!
_
WÍš=ÂÅ-ñæ0(Íš|`G}iOÑëãéÍƒ-ÍÉÑÉÍƒ-ÍhÑ·ÈÃ÷·Èþ!8ø·ÉFO#y¸Ú.Hõy·Ê*.¾Â,.#x±Â.ñÉÚ;.î ¾Â;.Ã".ÁÉæ7ÅÕåÍ
.áÑÁÉæ7ÅÕåÍ.áÑÁÉËoÂe.þA?Ðþ[Éþa?Ðþ{Éþ0?Ðþ:É!€Ñ"Ù>!"Û>"Ý>!@û">?!‘Ò"@?Éæ7õÍ¬M!v?ÍN/ëÍ`/w?·íRE> ÍÚ.ù>^ÍÚ.Í`/ñáõÍN/!Ì.ñÜN/Í`/Ã£>	 Expectedá·áõÅÕå*I?·Ä2áÑÁñÉõÍfüñõþ(:1?= >Ífü>ÁÉÅ*ë>åæxG*ß>5~~æx¸###ÂB7Ååyþ8>æÂ77yN#F*á>	OF#GOÍK.áÁÊP7##ã|µ+ãÂ733ÁÉ+++~Á*ë>+·íB|öŒgÁ7É!"é>Í.Too Many Variables Declared!åõÍ7Ú/8*ë>#>ü¤ ÇÕÅ>Í5*ã>T]íKá>·íBDM!"ã>ë(+í¸#ÁíSá>ÑAyþ8ñ2	?Æ@:	?úß7°HwÆ@yÁ#q#p#Oò8Õå<Í5*ã>í[á>·íRëás#r*ã>Ñq#ëí°íSã>Í^.0ö wí¡ê8*ë>#"ë>+>Œ´gÉññÉ!"é>Í.Statement Too ComplexÅÕ*é>|µ >ý!é>Í`"é>###6*é>###^4#>)»8¸ë)DM)	ÑÁp#q#r#s#íKç>p#qÉ*é>|µÈ###FÈ#~#N#V#^#ÅåÍŠ7ÑëF#Nz{Áå!"é>Éå*ç>w#"ç>g}þw|áÀÃ^6ë	ëÉ>¹>º> >¡
>­>·>¸ågÍ[5DáÐÍÎ521Ê21	Ë}æüoåÕë*Ù>^#V*O?å·íRáÑÚ.1Ê91ÁÃø0ÑÃø0*Ù>	·ÑÉ*Ù>Ñ7ÑÉÕÍò1ÑÍð0ÉÙËÐËØÙÝåÕÍð0ÜA1DMí[Ý>*Ù>íBå`ií[Ù>íRå:M?OË*Ù>T]íBíKã>å·íBáÚà1"Ù>ëÁx±Ê™1í°ÕÝá:O?:P?ë	ëÁx±Ê²1í°ÝsÝr:M?Oáí°*Û>#"Û>))"Ý>*ã>"ï>"ó>*Ù>+"í>ÝáÉáááÝá!ÓÃ×."O?Íð0ÐÙËÐËØÙÝåýå##^#VÕÍÔ0íKÙ>*Ý>	BKëíRå`iPY=O	ëÁx±Ê&2í¸ÕåÝáýááíKÛ>ýÿÝýx±Ê2ÝVÝ^ëå·íRáëÚY2Âb2üÿÝÃ82:N?ƒ_Òb2ýrýsÝ~ýwÝ~ýwüÿÝýÃ82ýý"Ù>ý+ý"í>*Û>+"Û>))"Ý>ýáÝáÉ:?^#V#þ¯2Q?Åå!>·ñ=(18 
õþ(:Q?7õ{ö0ÍÚ.ñëáN#F#åëõ|¸ }¹8ÐíBóááÁÉ:?·Â3þ >?ÃÚ.ÑÉÙÙÍ'åÍÐáíKÙ>å·íBáÒ÷íKï>å·íBáÚ÷"í>É!3f&!f!!'f!H!<H!Œc!c!É!hKÕÍ2ÑÉÙÙÍÜ>½ÚMÕÍ/IÑÉÙÙÍÜ>½ÚMÕÍ(IÑÉÍÜ>'½ÚåÙÙÍÜ>'½ÚÁEÕÍžJÑÉÍÜ>'½ÚåÙÙÍÜ>'½Ú}ágåÙÙÍÜ>'½Ú}ÁÕ_ÍuIÑÉÍÜ>'½ÚåÙÙÍÜ>'½Ú}ágåÙÙÍÜ>'½Ú}ÁÕ_ÍüIÑÉÍ2	Ú|·Â>'½ÚåÙÙþ¹ÂÍÜ>'½ÚÁEáëãÕÍûJo¯gÃg	ÍÜMÕÍOfÑÉÍÜ}·Ê>½ÚMÕÍkfÑÉÁÕÍÍfÑÉÍÜåÙyÙ·(ïÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEáÕ]ÍÜgÑÉÁÕÍ¹fÑÉÍÜåÙyÙ·(ïÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEáÕ]ÍiÑÉÙÙÍÜMÕÍèfÑÉÙÙÍÜMÕÍÝfÑÉÙÙþ´Ê=-ÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿ó>ÑÉ*ó>###"ó>É##~#…o0ôñåÅõo&Í*ó>:ï>½ :ð>¼(ÙËPÙ ##NñÖ8‘õÍÉ4ñ8õ*ó>Ã65ñO	"ó>"ï>ÁáÉÍ.ÈÕÍX.Ú±5Íl.Ú¦5þ:(.æüþ< '<æ(@ËG(ëî?¾Ê“5>=¾Â¡5ëÑ7Éæýþ<Ê”5>ë7ÑÉÍl.Ú¥5Ñ7ÉÍX.Ú°5Íl.Ú°5Ñ7ÉÑ7É>!ÃÓ5>!2ÅÕ_A~·Êþ5N#ëãÍK.ãëÂô5+·íR7~ÑÁÉy…oÒÙ5$ÃÙ5ÑÁ¯ÉÍÆ5ØÃÎ5!"é>!w@"ç>Íz6Í‘6Ú6ÊL6Í.'Meaning Of Line Unclear ':' Expected ?¯ÍÂ8*ç>w@·íB|·Êo6Í.Line Too Long}2M?Í“8w@ÉÅíKç>¯ÍÂ8Í¨6*ç>·íB}=ÁÉÍ.Èþ:Êœ6·ÉÍ.Èþ:Êœ67ÉÅÍ[5Ò7x·ÊÌ6þ&(Í.Illegal CommandÍÆ5Òà6ÍÂ8ÍÕ8#~#foÃè6>ÍÂ8!ª~·Ê7#N#F#õåÅ!ú6ãéáñ=Âî6
Ífü:0?21?ñõ:?G ý< ùñÃLÙÙÍÜ>½Ú)U?	~#fo"I?ÉÙÙÍÜ>½Ú)e?	~#fo"E?É~·ÈÅåO#~ÍÚ.ÂT/áÁÉå!~ÍN/áÉÅåÕ*E?Í2ÑáÁÉÍ`/!yÃN/:nBõ¯2nB:pB· :lBõ¯2lBu?>€åÅëåN##Íi/þ 8,þ€0(wÍ„0#x¹Ú¤/õñ6xÑÁáÍ“0:pB· ñ2lBñ2nBÉåÅ!Q0í± !b0		Á~#foãÉ>”>—ÖÍ„0Ã¤/ÁáwÃ³/x·Ê¤/+>Í„0Ã¤/:;Bæw>¡Í„0Ã³/Í¸GzæíDÆõ6 #x¹Ò»/> Í„0ñ= íÃ¤/áå>\Í„0Í“0Ã /	¡£ ¢€¤¦§¥¤/ù/ù/ù/ù/û/û/û/û/D0õ/ñ/00$00½/õåÅÕ*K?Í2ÑÁáñÉåÅ!~F#~Í„0ùÁáÉ!æO	8Íl.Ð)8DM)8)8	0äÍ.Number Too BigÅbk
<O€G}o0$~·ÂÛ0x2N?ÁÉÕ*Ý>ëbkå·íBáÚÐ¸7?ÀÍÂ8ÍÕ87ÉÍë80Íë88ûÍ$9?0õÉÍ$9ÐîÍã80Íã88ûÍç8?0õÉÍç8ÐîÅÍ9!Q90!f:åÍ[5ÐáÍS97ÁÉÊ%=Ê#<þ.Ê%=þ"ÊÒ=Íï88ÁÁÉÍ¹9åÍó8Ò°<ñæÉÅåÍ[50ÍÎ50þ­0ÍÂ8ÍÕ87áÁÉB‚€„…0Í.Illegal EquationÍ;9ÐGgÍ;9Ò¥9gÍ.ÕÍ|9.0#åÖ !–9…o0$~áoæð´g>¥oÅDMÍÃ9Á}¹8õËY x¤8x¬8ËpÁ7ÀË„ÉÑ!5åÃ.ÍO:ÉÍO:Í‘.Numeric EquationÍL:ÉÍL:Í‘.String Equation!ÅÍ¹9ÁÐ|æ¸À33ÉÍr:ÉÍr:Í‘.EquationÍ¹9Ð33ÉÍÛ8ÐÃ:>±Íõ8ÐÍ:ÍC>Ã:Í<æõÍ6>ñ(Í‘.Real VariableÍ<õÍ>ñÒ:Ã6:ÍÈ:Í‘.'THEN'>®Íõ88"þ²ÀáÍÕ8Í[5Ò¹6(Â¹6>²ÍÂ8Ãz6>³ÍÂ8>áÃŒ=>°Íõ8ÐÃ:>´€Íý> !Í&ý> !Í&ý!"tB!"sB!>>Í¶CàÍ ý>ÿ2qBÉ8xøþG:pBþÈxõ:mB· þ 8þ€0å!lB¶áÍ(DñÉÍDñÉz³ :mB· ÍôCÍžC< é:kBþÀÍDÃ‰CÍKü2kB>0(Í¨ü¯Í¨ü>ÿÉíCaBíScBíSiB"eB2gB2hBz2<B€=2=B{2>B=2?B::B2;B:9BÍGÉO¯2qByÉõÅåÝåýåÕÍíC:9B>þUõÅåÝåýåÕÍíC!€Gí± !‘G		G~#foéõÅåÝåýåÕÍíCÍG*iB$:=B¼0:<Bg,:?B½0	-åÍFGÍÀFá"iBÍIG:;BÍpG!HBÍý:9BÍpG!@BÍý!@BHB®#ùë:9B>þõo&)))íKgB	ëÍýÁ:nBõ¯2nBxÍGñ2nB:pB· :rB·Ä{>ÿ2qB2oBÑýáÝááÁñÉÍF:<B2jBÍFG
*iB:?B½(
,>
¸ÄGÃTD>
¸ ¼ÍÃF*iBÃWD*iB:>B(	Íl.8ÍX.Ð>ºÍÂ8ÃÜ<Í.Number Too BigÍ
8é:&?·Ê¥=þÚC=þÒC=*"?|µÊf=>’ÍÂ8*"?}ÍÂ8|ÍÂ8*$?}ÍÂ8|ÍÂ8:&?ÍÂ8¯É:$?ÚC=Í2	7åÍg	Í¸	áÂC=|·òš=>¡ÍÂ8ÍX	Ãš=!‡>åÍ[5ÐÀáÍ£0|·Â·=}þ
Ò¬=ö€ÍÂ8¯É>ŠÍÂ8}ÍÂ8¯É>‹ÍÂ8}ÍÂ8|ÍÂ8¯É:!>·ÃÙ=>‘"7ÍÂ8*ç>åÍÂ8·Êü=¸Ê>þ"Ì>ÍÂ8Ãæ=xþ"(áq>ÉÍ‘.'"'þ: ð0Þç?É>ªÍõ8ØÃ¹6>µÍÂ8Í.þ:Â–>É>ªÍõ8ØÍ‘.'='ÍÛ8ØÍ‘.','>¶Íõ8ØÍ‘.'#'>´Íõ8ØÍ‘.'TO'>±Íõ8ØÍ‘.'AT'>®Íõ8ØÍ‘.'GOTO'Í‘.Line NumberÍ‘.':'1~ÓÍa@ÍWÍv/!¦>åÍ/w?Í.ÈÍl.ÚÄ>Í	6áÃàÍ£0"O?Í‘6ÊÖ>Í	6ÃJ1Ãî1€ÑkkkÑkkÍýÑáÁÚÍ>F!@B:bBOÃý:;Bå*iBGÍZGÕ!@BpÍýÑ:pB· zæW:nB!@B®wÍýáÉ*iB>ÿ2oBÍZG!;BÃý\b)))))í[eBë:oB¢WÉo&)))íKgB	ëÉ
€ ¢£¡	”—ËGzEBE­D
E&EÙDúDñEÓEÍEFÄE²EÙDËD&Eí[iBÉí[iB:<BíD‚W:>BíDƒ_ÉÍG*cBíKaBxAOåÅÍZGÅ!@BÍý::B!@BÁ	+í©âöG(ù##6!@BÍcü>Ífü>
ÍfüÁá,ÉÍGÃZDýåÝå!9B>¦w!:B>¦w¯2pB2lB2mB2nBÍ–BÝáýáÉ>2pB¯2mB>€2lB!9B¶w>€!:B¶wýåÝå€Í ýÍ±HÍ±H!>0>Í¶CÀÍ ýÝáýáÉüüüüüüüüððððððððÀÀÀÀÀÀÀÀ€8 ÿÿ!œHÍsK!¬HÍ†K>2pB!>Í&ý!ˆA6! 
Ååë!„HÍýáÁÂÙH
âÍ f!€€Ã(lµAÍÌü!p(lÖí°>ÃÚ.!)AAí°ÃÔ]HELLOAõ:pB· =2rB:qB·Ä{ñíEÅ:sB=ÂjAÕåÝåýå*tB>¬g"tB>Í)ýýáÝááÑ>2sB¯2rBÍ#ýÁÉÿÿÿÿÿÿÿÿÎgÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿyBÿÿÿÿÍ ý€Í ýÍ ý!>Í)ý!>Í)ý! >Í)ý!¯Í)ý!8>Í)ý>Ð!Í&ý>ð! Í&ý>! Í&ýÍ8ý!JCøÍý!Íõ8Í:ÍC>Í:>´Íõ8Ú;ÉÍ3;Í‘.'FN<function name>'FN Í[5ÐyþØ!0;ÍK.ÀÕÍ[5ÑÐÀáÃ:Í‘.'GOTO' or 'GOSUB'>®Íõ88>¯Íõ80ÝÍŒ=ÍÛ88øÉÍ[5ÐÊ—=Ã‡>Í§;ÉÍ§;Í‘.Line Number RangeÍ[5Ð(ÈÍÛ88Íç8ÐÍ[5ÐÀáÃ—=áÍ—=Í°;ÉÍ.ÈÅ þ$(	þ%(>Í.þ(yÁÀöÉÍ.Illegal Variable NameÍ<Í‘.VariableÍ<áÃÕ<Í[5Ð?Àáyþ8Å!0;ÍK.Á &ÀÍ[50Ç ÃDÍ68¡ÕxÍÕ8GÍË;°GëãëÍ78ÅÍQ8ÁxÆ@òj<|ÍÂ8}ÍÂ8(yÍÂ8(Í^.0ö ÍÂ8Â€<ÑÅÍœ<Á¯ËhÈ<ÉÍï8ÐÍ_:Òf:ÍÛ8Ú <Íó8ØÍ‘.')'Í.þ"ÂÖ<ÍÒ=Íß8ÚÖ<Í‘.';'Í<ÍÛ8ÐÍ<ÃÒ<Í_:Íß8ÚÜ<ÍÛ8ÚÜ<Í.Èþ:Èþ;(éþ,(åþ"(þ.½(ª-ÍGÃTD*iB:=B¼($ÃE:?B½Ê­D,:<BgÃE*iB:<B¼(%ÃE:>B½Ê­D-:=BgÃE>ÿ2oBÍaE:pB· >2oBÍaE::B2;BÃZDÍ¥FÕÅ:;Bw	T]+í¸:9BëÁÑÃý>ÿ2oBÍ”E:pB·ÂZD>2oBÍ”EÃZDÍ¥FÕÅåT]#í°á::B~2;B:9BwÁÑÃý:aBG*cBÍOF::B2;BÍG*cBÃTDÍFÃZDÍF*iB,:>BO:aB•ÊZDG:<BgÍOFÃZD:<Bº(Ò­D:=Bº(Ú­D:>B»(Ò­D:?B»(Ú­DëÃE:/üO>íy>íy>íy!€ãã+|µ ù>ŸíyÃ­DåÅåÅ!@B ::Bw#üÁáÉÍ>F:bBOÅå>ÿ2oBÍlFáÁ:pB·À>2oBÅåÍZG!@BÍýá,ÁîÉ>ÿ2oBÍ‘F:pB·À>2oBÍ¥FåÅAÍ:FÁá::B2;BÃý*iB:=B<”OÍZG!@BÅåÕÍýÑáÁÉÍG>ÿ2oBÍÕF:pB·À>2oB*cBåÍZGá:aBGÅÕ,åÍZGÕ:bBOÅ!@BÍýÁÑáãëå!@BÿÉã ÿ ÓPP	‰C‰C//RCÿ/ê.//////‰C‰C‰C‰C‰C‰C‰C‰CSPCˆTABˆERRNUMˆ>*ABSˆäASCˆo(ATNˆTCHR¨ƒ(COSˆjEXPˆèFREˆÐ'INTˆ°)LEFT¨)LENˆÖ(LOGˆMID¨C)PDLˆc-PEEKˆk'POSˆ\*RIGHT¨!)RNDˆXSCRNˆ,SGNˆíSINˆrSQRˆ^STR¨«(TANˆHUSRˆY'VALˆE(VPOSˆi*JFU@JL[@GY¿Y|p.z}ÙÙ!£>"u?bkN#y…o0$~#å~#foÅÍ7ÁÑâ!>Éwü!0AfFí°>ÿ2oBÍ9+Ít.¯2lB2vBGÍèf> 2:B>_29B2qBÍ¨üÍ±ZÍªZÍ£ZÍ¸Z!yB"B¯!ÅA
wü!ÙAwüÍ
c!õA)A> Í&ý!5>ÿÍ&ý!>ðÍ&ý! `5ÍýÉÍ;I2‰AÉÍ6I2ˆAÉ!]I!MI	~É!lIí¹yÉ
	
	ÅIËIØIêI:pB=ÀÝåýåyHGSyòŒIYHCíDXGÅCJÍ”KÁOÅ!mIO	Õ^#VëÑÕéÑÁ(Åyþ äÁÅy!ëØýáÝáÉÍ°KÃ¨IÍßK!ëÍ°KÐ!ëÍßK!ëÍ°K¾!ëÍßK´1J>JUJqJ:pB=ÀÝåýåyHGSyòJYHCíDXHGÅBKÍ”K!ôIO	Õ^#VëÑéýáÝáÉÍ°KÁ(ôÍƒJÅóÍßKÕ!ëÍ°KÑÁ(ÝÍƒJÅé!ëÍßKÕ!ëÍ°KÑÁ(ÁÍƒJÅé!ëÍßKÁ(¯ÍƒJÅóËA ËÁ!!üËëÉÁJÇJÕJèJ:pB=ÀÝåýåxAOÍ”K!–JO	Õ^#VëÑéýáÝáÉÍ°KÃ¼JÍßK!ëÍ°KÃ¼J!ëÍßK!ëÍ°KÃ¼J!ëÍßKÃ¼JKK%K0K:pB=ÀB*™A"™AÍhSÁË:¶A!õA
ÍÒü'»ÁÍ@SÃé^Í`/í[B*™AëÍ§2!×SÍN/Í`/Á:¶AõÍÃüÁÍÿa7ÉÍ?SÃ_!õAÍ¥S!ÎSÍN/!BÍŒSÃ`/Í SÍ˜S!õAÍ¥SÕÍÚ.í[B> Í¨2Í SÑë+6 !B~#ÍÚ.ùÃ`/:B>*8> ÃÚ.åB> úB~þ(#ö+~áÉDIRECTORYVolume:  Blocks FreeÍ[ÐÍD[Ð>AÍÆ[+B!Aí°ëq#q!AÍb0/åÕõ!A:µAÍðüÁÑá ÕÅ7Bí í Í~`ñÑ!7B~#¶ !"™AÍ`Å:µA!AÍÀüÁÂé^2¶A!AÍ”axPæ(pÅ!AÍbV#^íS™AÍÐ["’B:µAÍáü*’B:µAPYÍÉüÂé^*’B:µAÍÀüÁÂé^2·A2¼A*’BËØÍ”a+BÍ^bÍô\ÍÙ\ ø:¶AÍÃüÂé^:¶AGÍÿaÍaÃ
XÍ[Ð!"™AÍ. 7ÉRÍÿPÐ>AÍÆ[!AÍbÒ"_!AÍðü((úÍõOó(óÍ¡Pì(ìÍ På(åÍqQÞ(ÞÍR×(×Í”RÐ(ÐÍ$`É(ÉÍZÂ(ÂÍZ»(»Í¨]´(´Í]­(­Í±_¦(¦ÍåSŸ(ŸÍ·W˜(˜Í!V‘(‘ÍÓTŠ(ŠÍfaƒ(ƒÍoaÃúLÂüLÍÃOÃúLÂüLÍÀOÃúLÊüLÍ³bÃúLÊüLÍÌ]ÃúLÊüLÍ4PÃúLÕw?Í.ÊNæ_!ŸNí±ÂNÍ[5ÒN!×NFx·(/#ÍK.(#x…oÒÍM$ÃÍMx…o0$ÍÕ8Í.õN!AO	~#foñÙË€ÙéÑÉÍ˜R0ÑáñáÃ£>(ÍÊO8òááñã!¥Oã·õé(óÍõOì(ìÍ¡På(åÍ PÞ(ÞÍqQ×(×ÍRÐ(ÐÍ”RÉ(ÉÍ$`Â(ÂÍZ»(»ÍZ´(´Í¨]­(­Í]¦ÂNÍÃOÃNÂNÍÀOÃNÊNÍ³bÃNÊNÍÌ]ÃNÊNÍ4PÃNOAWPCDRLUBNMSIFOPENAPPENDREADWRITEPOSITIONPR
INCATALOGDELETERENAMELOCKUNLOCKBÑÁz³ íÑ:»AÍ?bq#pÃjVñÂ%_!AÍðü(!A:µAÍÀüÂé^2»A!AÍ”aádO>¸ jy2»AÍ?b##~#foN#F^#VÅ	Á~#fo|ægëíB(|·Â
_}lÚ
_Ú
_gÚ
_ÁÁë`iíRÊjV0Å:»A2¶AÍÆüÅÍÙ\Áx± öÃjVåôyÍ%aÃ$WÍ[Ð>AÍÆ[Í.(Í‹Y8XÉ!AÍbÒ"_å!AÍðüÌ%a:µA!AÍÀüÂé^õÍÆüÂé^ñáõ~#¶Áx0 2¼A!AÍ”a*I?>O½ >U½7È"G?!OU"I?7ÉåÕ·õÍY~#¶ÊìXñå!AÍðüÌ%aA:µAÍíüÂé^!A:µAÍÀüÂé^2»A!AÍ”aÍÐ["’B:µAÍáü*’B:µAPYÍÉüÂé^*’B:µAÍÀüÂé^áF+NÅíC™A*’B2¼A2·A¸Í”a:»A2¶AÕÅÅÍÙ\Íô\Áx± óÁÑz³ èÑÅx± ÁÅÅÕÍÙ\Íô\ÑÁz³ êÑ:¼AÍ?bq#pÃ
XñÂ%_!AÍðüÌ%a!A:µA.Èþ,ÂÿQÍ.Èæß¨ÀÍ.Èþ$ #Í.ÈÍYQÐ!…oÍYQ0)8
)8)8)Ò&Q?ÉÍm.ÐÅÍ£0ÁxþAÕ—A(™Aës#rÑ7É·ÈÍm.æ¿Ö ØÖ'?Ðþ
?ÐþÉÍ[ÐÍýPÐÍúPÐÍD[ÐÍÐ["”B:µAÍáü*™A	ë:µA*”BÍÉüÂé^:µA*”BÍÀüÂé^2·Aÿ*”BÍ”a!"”A>2–A:·A!”AÍÕüÂé^:·AíK™A*—AÍÕüÂé^:·AÍÃüÂé^:·AGÍÿa>HÍS\7Éñ·ÉÍ[ÐÍ.(þ,ÂÿQÕÍ.ÑÈæßþA ãÍýPÐ*—A"™Aæ7õÍD[0Ð>HÍÆ[:µA!AÍÀüÂé^2¶Aÿ!AÍ”a:¶A!”AÍÒüÂé^:–AþÂ%_ñ8*™A"—A:¶Aÿÿ*—AÍÒü(þ
Âé^:¶AÍÃü:¶AGÍÿa*—A7ÈÃé^ÍRé!"™AÍD[Ð:µA!ÄSÍÀüÂé^ÿ!ÄSÍ”a2¶A!õAÍÒüÂé^ÍSS:¶A!õAÍÒüÂé^%Å:¶A!õAÍÒü 6!BËF 6þ(XË^ ËV(í[ÝåýåxAOÍ”K!óJO	Õ^#VëÑéÍ@KÃ8KÍWKÃ8K!ëÍ@KÃ8K!ëÍWKÍCIýáÝáÉÕ!wAÍý:wAË?Ë?Ë?Ë?ÑÉÕ!wAÍý:wAæÑÉ:pBþÈ>ÃZC~þÿÈ#^#V#ëÕÍ)ýÑëÃsK~þÿÈG#N#Í ýÃ†KPË(Ë(x‡‡‡G‡€ÆAË)a0ÆozæëÉÕ!wAÍý:ˆAO>!wA¦±wxAí°ÑÕ!wAÍýÑÉÕ!wAÍý:ˆAO>ð!wA¦±wÃÊK*I?å!RC"I?!xBÍN/á"I?Ã`/!vBËV Kþ(8O:pBþÈ:?·(ÍžC< !:kB!?® 
=2?ÍžC< ú:kB!?® >ÃyÃZCÕÍ¸GzÑ·> ½2vBÉþ(*Bw#"BB·íBÀÃ_*B¯2vBwÕyBíR}íSB*½AÍìLÍ.ÊÅLæß!›Ní±ÂüLÍ[5ÒüL!ªNFx·(G#ÍK.(#x…o0ï$Ã°LÑ*C?"E?*G?"I?Éx…o0$ÍÕ8Í.õN!sO	~#foñéÍ˜RÒüLÑÉ(ÍÊO8÷ÑÃ_:µA!AÍÀüÂé^2¶A!A:¶AÍ”a*™A|µ7ÈMDÅ:¶AÍ?boåÅg}þå| Íô\ÍÙ\áÊ_þÁ èx± ã7É*ÁAé*¿AéÍÝUõÍRCñÉ!/"I?>2vBñÉõÍRCñõþ 	:wBþ(â>2wB:¼A2·AÍ?b·õåüÙ\áñGæ"(?####^#Vr+sz³(-ñõþ *ñåÕÅÍô\ÁÑÕÅËxÄÙ\¯Íô\ÁÑz³ îá##^#V++r+sÉÍÊUñÍô\É:»A2¶AÍÙ\Ê_õ:»AÍ?bæ"(+####^#Vr+sz³(ñõþ åÕÍÙ\Ñz³ öá##^#V++r+sñÉÍ[Ð>AÍÆ[Í.(Í‹Y8qÉ!AÍbÒ"_å!AÍðü(:µA!AÍÀüÂé^áõ~#¶(ñ2»A!AÍ”a*E?>S½ >U¼7È"C?!SU"E?*K?"›A!V"K?7ÉO>¸y(Í%a!2¶A2»AÍÆü/åÕ·õÍY~#¶(gñå!AÍðü(Ó:µA!AÍÀüÂé^2»A!AÍ”aáF+NÅÕÅÅÍÙ\Áx± öÁÑz³ ëÑÅx± ÁÅÅÕÍÙ\SAVEBLOADBRUNCLOSEMON NOMON"LOAD$SAVE&FP(INT*INIT,RUN.RECOVER0NN!N(N/N6N=NDNKNRNYN`NgNnNwN€N‰N’NMMTMbM[MiMpMwMíLõLMMMMM#M*M1M8M?MFMMˆM‘MšM£MIllegal Form Of OS Command>>!>]2z7ÉÍ[ÐÍD[Ð>AÍÆ[:µA!AÍáü7È>HÍÆ[:µA!AÍáü7ÈÃé^Í[ÐÍ[ÐÍD[Ð>AÍÆ[>AÍÁ[:µAA!©AÍÞü7È>HÍÆ[>HÍÁ[:µAA!©AÍÞü7ÈÃé^Í[ÐÍD[Ð>AÍÆ[:µAA!õAÍÌü7È>HÍÆ[:µAA!õAÍÌü7È©A!Aí°>aÍÆ[>AÍÁ[:µAA!©AÍÞü7È>hÍÆ[>hÍÁ[:µAA!©AÍÞü7ÈÃé^æ7õÍ[ÁÐÅÍD[ÁÐÅ>AÍÆ[!õAA:µAÍÌüÊ×P>HÍÆ[!õAA:µAÍÌüÂé^:BGñËX xË/2B!õAA:µAÍÏü7ÈÃé^L!AÍÍÀüÂé^2»A!AÍ”aÍÐ["’B:µAÍáü*’BPY:µAÍÉüÂé^:µA*’BÍÀüÂé^2¼A˜!"™A*’BÍ”a:»AÍ?b##N#F:¼AÍ^bÁÁ:»A2¶A:¼A2·AÅÍÙ\Íô\Áx± óÃ
X!AÍbØÃ"_·Éþ,Â‰YÍ.ÈBæ_¸(R¸Â‰YÅÍúYáÐM*™A"—AÍ.(ÅÍíYÁÐÍ.À>B(¸í[—A*™A(ë>7É¸(	*—A¯7Éí[—A!>7ÉÍ[ÐÍ.Èæ_¸ îGÍQÉ!dZ!lZåæ_!tZÅí± D`i	ÁÊaZæþ <‡<<<€Gëãëëãë~#foÍ2Í.(þ,ÂaZÍ.ÃZx!xZí±á7È·ÉÁá·É¸Z£Z±ZªZœZ‡Z•ZŽZOICL
!øK"½AÉ!mU"ÁAÉ!WU"¿AÉ!RC"ÃAÉ!©Z"½AÉ!rU"ÁAÉ!ÝU"¿AÉ!©Z"ÃAÉ!#$%&'+-.@\^`{}~|_$$$$1A$$$$2ASVD#$	ÍY.ØÍm.ØÅå!¿ZÃüÂé^7ÈÃé^WÃØüÃçüBOOT>2pB2mB>€2lBýåÝå€Í ýÍYcÍYcÀÍ ýÝáýáÉ€8 ÿÿ!{A6#6!DcÍsK!TcÍ†K! >Í&ý!>Í&ý!‰A6Í fÉ>2pB¯2mB>€2lB!9B¶w>€!:B¶wÝåýå€Í ýÍYcÍYc!€€> Í&ý!5>ÿÍ&ý! `5Íý!>ðÍ&ý!>0>Í¶CÀÍ ýýáÝáÉ:pBæÈyHGýåÝåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁPYÙÅÕåÙÕÙÑÙÍCeíKfÍïeÙáÑÁÙÝáýáÉyHG{ZW¯xº 	¯y» Í
dÉ:pBæÈÝåýåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁË…ËË•z0íDËÅW{‘0íDËÍ_’8zS_ËÕÍÔdýáÝáÉQX!{AF#Ns+rÍ\dÉÙÅÕåÙåÅÙÁáÙ!zË/íDOÿÍe$åk&·íJúeJ·íBDMüÈÃé^*I?å!ô\"I?Í[Òz]ÍD[Òz]ÍÐ["”B:µAÍáüÍwb:µA*”BíK™Aí[—AÍÉüÂé^:µAÍÀüÂé^2·Aÿ*”BÍ”aÍ#^:·AÍÃüÂé^:·AGÍÿa:µAí[”BÍíüÂé^>AÍS\7á"I?ÉÍÙ\À*—A"E?*™A"I?*›A"K?:¶AÍÃüÂé^:¶AGÍÿa>ÉÍÙ]!]"E?*K?"›A*ÃA"K?*I?"™A!§]"I?ÃÔÍÙ]!ö]ÚÍá]öÍ[ÐÍD[ÐÍá[:¶Aÿ!AÍ”a*E?"—AÉÍÙ\À*—A"E?*™A"I?*›A"K?:¶AÍÃüÂé^:¶AGÍÿaÙÙÃ¯2?*Ù>íKÛ>Í“4x± ø> 2?ÉRange ErrorWrite ProtectedEnd of DataFile Not Found	I/O ErrorNo More RoomFile LockedSyntax ErrorNo Buffers AvailableFile Type MismatchControl Buffer Overflowþ(,þ((þ(þ(þ(%þ(ðÃ!g=Âg>øÃ!g=Âg>üÃ!g=Âg>þÃ!g>ÿ æËAÊ-gG>GÝ!€AyÍSg>æÍSg>æÍSg>æÍSgýáÝáÉ!`g‡_^#Vëépgzg‡g‘g›g¨g²g¿gÝpÝ6øÃÉgÝ6xíDÝwÃÉgÝ6ÝpÃÉgÝpÝ6ÃÉgxíDÝwÝ6ÃÉgÝ6øÝpÃÉgÝ6øxíDÝwÃÉgxíDÝwÝ6øÝ#Ý#É6?$$--66?:pBæÈyKXWÝåýåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁÕ*~Ay‡O	^#V*~AÑÙÅÕåÙÕÙÑÙ~þÊdhGÍuhÕÙÁÙÍƒhxþÊ_hÍuhÕÙÁÙÍƒhxþÊ_hÍuhÕÙÁÙÍƒh#~Ã/híKfÍïeÙáÑÁÙýáÝáÉæWË8Ë8xæ_Ë8ÉÅÙ!€AxË'…oÒ‘h$~#ngyËÏÙõ:}AGñþÂ®hõÍCeñËÙx„GËxÊºhíDþÚÏhæËxÂÊhÃËhËÏËxÊÖhíDGy…OËyÊáhíDþÚöhæËyÂñhÃòhËÏËyÊýhíDOÙÃüÂé^:µAAÍíüÁÂé^Íÿa!AÍb?Øôÿ	67ÉõÍbñëFÅåõÍOa(òAañîÍKaáñwÉñÍGaöõÃé`õÃ£`î!ÆA
¾(ú¯+~·ÉÍzaÐÍ'/7ÉÍzaÐÍA/7É·ÉÍ.Èþ# öÍ.ÈÍm.ÐÖ0þÐo&ÉÕåÅõ!ÅA
~·(ùÃ"_ñÁp#wãåÅõÍðü 1ñÁëáã#s#rÅ( ÁÑÕÅõåëËX ÍbÒ"_ëá#ëí í ++í í ñÁáÑÉñÁááÑÉáxîíRw™AÙÕõåÅx!ÅA	#¾ +6#õÁáñÑÉÍkbA>ÙAõÍL.(å!ëáñ= ï·Éñ!7ÉÕÅO!ÅA
~·(#~+¹(óÃ
_ÁÑ~ÉÅÍ?b	Áq#pÉå>¾# ûáÉÕ*I?å!”b"I?!"—A"™AÍ#^á"I?ÑÉ*—A·íJ"—AÐ*™A#"™AÉBASICPGMÍ[ÐÍD[Ð!õA©b:µAÍÌü7È!AÍkb	w!A:µAÍ9Í½ü:µA!cÍÀüÂé^!cõÍÕüÂé^ñÍí±áÁ7È?ÉÍ.ÈÖ,7È?ÉÍ[Ð!©A!A
Í.ÈÍïZÐëí ëâ8[ÍïZ8ôþÍïZ8ú6A#67ÉÍ.(Åþ, Í.ÈÍ‰[Ðy±ÈþÐx!âZí±È·ÉÖC€G8ŸÍ.ÈÍm.ÐÍ.(‘þ, åÍ.ÈæßÅ!ßZí±ÁÀêk[ÈÍ.ÈÖ1þÐ!éZ…o0$~2µAÆÅ>í±Á++É!©A!AõÍµ[ñwÉ!ÑZÍðüÀ!ØZÍðüÀÃ"_>AÍÆ[:µA!AÍÀü2¶AÈ>HÍÆ[:µA!AÍÀüÂé^2¶A!¸AÍÒü 2:ºA= íK¸AÅ:¶A!¸AÍÒü Áx± ëÉ:¶AÍýÈ:¶AÍÃüÃ%_õ:¶AÍÃüñÃé^õ©A!Aí°>AÍÆ[:µAA!õAÍÌü(>HÍÆ[:µAA!õAÍÌü ?>aÍÁ[:µA!©AÍáü(>hÍÁ[:µA!©AÍáü!AÍµ[~õ!©AÍµ[ñö w:µAA!©AÍÞüÂé^ñÍÁ[:µAí[”B!©AÍÞüÈÃé^:¶A!¸AÍÒü x±!¸A~Éþ
ÈÃé^!¸Aw:·AÍÕá,ÃeDMáz=¼ÒêdíKfÍïeÙáÑÁÙÉåÙÑËUÊ&ezS_ËMÊ/e{íD_ËEÊ8ezíDW{_z€WÙÍCeÉÅÕåÙÕÙÁÅ:pBþ(	yþŸ8ÁÃ¯e!{Ap#qÍØe! íKfy½Â³ex¼Â³eÁyæ_!fNxæG¯7ýG:‰AËxÊœe/¡wÃ¯e±w!f>¦G:‰A°wáÑÁÉÕå"fÍïeáë!fÍýÑ!ë!fÍýÃveYÍ5ýKXÍ5ýQÍ2ýë)))ëÉ!fPYÕÍýÑ!àë!fÍýÉÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>€2lB¯2nBÉ:pB·À2lB2nBÉ>€2nB:pB·À2lBÉÕÍ¸GzÑÉÕÍ¸G{ÑÉåÕÍ³GyæWyæƒ_Í}f>ÍZCÑáÉåÕÍ³GYÍ}f>ÍZCÑáÉ:<Bº(8WÃf:=Bº0W:>B»È8_É:?B»Ð_É!¯ÅõåÍ&ýáñ#< òÁîÉ:pBæÈ!‰AËþÍÍf!‰AË¾É:pBæÈ!{AV#^ÍægÉy·Âäf>ÿ2}AÉAÝåýå>? GË/Ë/Ë/O:Ýf=Âg>>>>$>>>>>>>>> >!2?ÙËÐËpÙ(ÙíSú>"ü>Ë@ÙÂ’Íc_Í`/:?ÖG!>^(	~#…o0$÷ÍN/Í`/Ã£>!/"I?!‰C"E?!RC"K?!ÄAÅ#~#·(¯+w#~åÍÃüáå#~#fo]T	~ÍíüáÁ×!ÙA¯wüÉÍ[ÐÕÍúPá8ë!"™AÍD[Ð>AÍÆ[A!õA:µAÍÌü(þÂé^!APY:µAÍÉü(Ãé^!AÍðü ÍÆüÂé^!ÙA~·(ùÃ"_ë!Aí°*™Aës#r7ÉÍ[ÐÍD[Ð>AÍÆ[!AÍðü(E!AÍkbÅ!ÅA~#N·(8æ`(^#V+ãÅEM!AÍL.iÁã(##Øá:µAAÍíüÃaáyõÍ?b0ñõÍOaÊé`òé`ñîèæÀÊ÷`0Íô\ÍÙ\ ø:¶AÍÃü:¶AGÍÿa!‰C"E?ñõÍÃüÂé^:µAí[’BÍíü*’B"”B>AÍÆ[>AÍS\ÁÍÿa!/"I?,!‰C"E?!RC"K?!/"I?ñõÍ ÁÉ:pBæÈ!‰AËþÍÜg!‰AË¾ÉÝåýåÕÅÍài>ƒÝ!ŠAÝåÍ>ýÝ!ŠA>ƒÍ>ýÝáÁ!¼i		~#foéÝ~·(]>Ã§iÝ~ÃGiÝ~ÃGiÝ~ÃGiÝ~Æ0þ:8=(	þ; 
>#Ã§i>*Ã§i¯Ã§iÝ~ÃdiÝ~Ã§iÝ~Ã§iÝ~Ý~Ý~Ý~	:ÜiÑýáÝáÉ:Ýiõ:Þið:ßië¤i²i­i·ii•iDiOiUi[iai~i„iŠišiŸi€€€€ÝåýåÝ!ŠAÝå>Í>ýÝ!ŠA>Í>ýÝáÝ~!ÛjÅO		Á~#foéÝ~!õjÃjýáÝáÉ!ÜiÍÓjÃj!ÜiÍÊjÃj!ÝiÍÊjÃj!ÝiÍÓjÃj!ÜiÍÓj#ÍÊjÃj!ÜiÍÓj#ÍÓjÃj!ÜiÍÊj#ÍÊjÃj!ÜiÍÊj#ÍÓjÃj!ÞiÍÓjÃj!ÞiÍÊjÃj!ßiÍÊjÃj!ßiÍÓjÃj!ÞiÍÓj#ÍÊjÃj!ÞiÍÓj#ÍÓjÃj!ÞiÍÊj#ÍÊjÃj!ÞiÍÊj#ÍÓjÃj>†0>ÿwÉ~Ö0¯wÉjj,j>j#jjXjj5jKjjjejjrj„j–j{j="n" THEN 130:HOME120? d$; "CATALOG,D"; dr$130?:? TAB(8); "< ENTER PROGRAM >"140?:? TAB(10):INPUT " "; p$160? d$; "RUN "; p$; ",D"; dr$mtracksAröBLOCKS LEFTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿT a$:IF a$="Y" OR a$="y" THEN HOME:GOTO 4090IF a$="N" OR a$="n" THEN TEXT:? "ESP EXITED":END100GOSUB 4200:GOTO 801000REM    title & intro1010VTAB 3:HTAB 15:? "ESP"1020?:?:? "This game tests your ESP skillsYou will see the 5 Zener Cards"1030? "which are frequently used for  ESP research. These cards are  numbered 1-5.ADAM will 'think'"; 1040? " of a card and then wait for youto enter your guess. Press the number key which corresponds tothe card "; 1050? "that you think ADAM is'thinking' of.ADAM will 5HOME10 d$=CHR$(4)20?:?:? TAB(5); "SMARTBASIC IS BOOTED."30FOR x=1 TO 4000:NEXT40HOME:?:? TAB(5); "DO YOU WANT TO ACCESS"45FOR x=1 TO 100:NEXT x46?:?:?50?:? TAB(5); "THE DATA PACK (1)"55?:? TAB(5); "THE DISK DRIVE (5)"56?:? TAB(5); "2ND DRIVE (6)"60?:? TAB(13); ">"; :GET dr$70HOME:?:? TAB(5); "INSERT TAPE OR DISK"80?:? TAB(5); "OF YOUR CHOICE. HIT ":?:? TAB(5); "ANY KEY TO CONTINUE"90GET t$100HOME:?:?:? TAB(5); "DO YOU NEED A DIRECTORY"105?:? TAB(12); "(Y OR N)":GET c$:HOME110IF c$="N" OR c$j°jjj£jjj½jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅåÕ!·l9-í°!kl¬Lí°Í¬ÑáÁ:oý2µAÍÌüÊA!;ÍN/Í`/Í`/!älÍN/Í`/ÃAÉÿþÐ Éÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     DISK enhanced by MMSGÿdTransfer protocols available, 1 - XMODEM or MODEM7 protocol 2 - CompuServe 'B' protocol 3 - CompuServe 'A' protocol 4 - DC2/DC4 capture protocol 0 - Abort transfer requestPlease make a selection: 4Capture Buffer TransferNo error detection/correctionOpening capture buffer...1REM  esp5HOME: beep$=CHR$(7)+CHR$(7)20GOSUB 100030GOSUB 200035 a=INT(RND(1-x))40HOME:HGR:HCOLOR =3: ri=050GOSUB 3000:REM    draw cards60GOSUB 4000:REM    get guess70GOSUB 500080? "Want to try again (Y/N)"; :INPUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrecord whether you are correct and    after 100 guesses will rate"1060? "your telepathic powers by"1070? "giving you a score based on    your percentage of correct"1080? "guesses."1090RETURN1100STOP2000REM    randomize2010?:? " PRESS ANY KEY"2020FOR i=0 TO 99: x=i: y=PEEK(64885):IF y<>13 THEN RETURN2030NEXT i:GOTO 20203000REM    draw card outlines3010FOR a=11 TO 199 STEP 473020HPLOT a, 20 TO a+36, 203030HPLOT a, 20 TO a, 763040HPLOT a, 76 TO a+36, 763050HPLOT a+36, 20 TO a+36, 763100NEXT a3, 93:HPLOT 71, 106 TO 79, 1063610HPLOT 79, 92 TO 79, 96:HPLOT 78, 97:HPLOT 77, 98:HPLOT 76, 100:HPLOT 75, 101:HPLOT 74, 102:HPLOT 73, 1033620HPLOT 72, 104:HPLOT 71, 1053640HPLOT 118, 92:HPLOT 119, 91 TO 124, 91:HPLOT 125, 92 TO 125, 96:HPLOT 124, 973642HPLOT 120, 98 TO 123, 98:HPLOT 124, 99:HPLOT 125, 100 TO 125, 1043644HPLOT 118, 105:HPLOT 124, 105:HPLOT 119, 106 TO 123, 1063650HPLOT 170, 91 TO 170, 106:HPLOT 165, 91 TO 165, 99:HPLOT 165, 99 TO 173, 993770HPLOT 218, 91 TO 225, 91:HPLOT 218, 92 TO 21col-2, 35:HPLOT col-1, 36:HPLOT col, 37 TO col, 393172HPLOT col-1, 40:HPLOT col-2, 41:HPLOT col-3, 42:HPLOT col-4, 43:HPLOT col-5, 44:HPLOT col-6, 45:HPLOT col-7, 463174HPLOT col-8, 47 TO col-8, 493176HPLOT col-7, 50:HPLOT col-6, 51:HPLOT col-5, 52:HPLOT col-4, 53:HPLOT col-3, 54:HPLOT col-2, 55:HPLOT col-1, 563180HPLOT col, 57 TO col, 593190NEXT col3200REM    draw star3210HPLOT 159, 44 TO 167, 443220HPLOT 167, 44 TO 167, 423230HPLOT 168, 40 TO 168, 423240HPLOT 169, 38 TO 169, 40:HPLOT 170, 36 TO OR d=1 TO 2000:NEXT d4220RETURN5000REM    calculate % correct5005 guess=guess-15010 per=(ri/guess)*100: per=INT(per+.5)5020HOME:VTAB 22:HTAB 2:? "Your score was "; per; "%."5030IF per>35 THEN VTAB 23:? "I think you cheated!"5040IF per<=35 AND per>22 THEN VTAB 23:? " Not bad!!!"5050IF per<=22 THEN VTAB 23:? "You aren't the amazing KRESKIN!"5060FOR d=1 TO 3000:NEXT5099RETURNCapture buffer closed.[74726,1102]ESP            0HPLOT 165, 99 TO 173, 993770HPLOT 218, 91 TO 225, 91:HPLOT 218, 92 TO 217, 583320HPLOT 176, 52 TO 176, 54:HPLOT 175, 51 TO 175, 52:HPLOT 174, 49 TO 174, 503330HPLOT 175, 48:HPLOT 176, 47 TO 177, 47:HPLOT 178, 46:HPLOT 179, 453400REM    draw circle3410 x=213: y=53: rs=103420FOR g=0 TO 3.2 STEP .043430 r1=SIN(g)+COS(g)3440 r9=rs*r13450 x9=r9*COS(g): y9=r9*SIN(g)3451 c=c+13452IF c=1 THEN 34653460HPLOT x+x9, y-y93462HPLOT x+x9+1, y-y9 TO q, w3465 q=x+x9: w=y-y93470NEXT3500REM    draw numbers3510HPLOT 29, 91 TO 29, 1063600HPLOT 73, 91 TO 78, 91:HPLOT 72, 92:HPLOT 71105REM    draw cross3110HPLOT 27, 38 TO 31, 38:HPLOT 31, 38 TO 31, 45:HPLOT 31, 45 TO 38, 453120HPLOT 38, 45 TO 38, 49:HPLOT 38, 49 TO 31, 49:HPLOT 31, 49 TO 31, 563130HPLOT 31, 56 TO 27, 56:HPLOT 27, 56 TO 27, 49:HPLOT 27, 49 TO 20, 49:HPLOT 20, 49 TO 20, 453140HPLOT 20, 45 TO 27, 45:HPLOT 27, 45 TO 27, 383145REM    draw box3150HPLOT 69, 41 TO 83, 41:HPLOT 83, 41 TO 83, 55:HPLOT 83, 55 TO 69, 55:HPLOT 69, 55 TO 69, 413155REM    draw wavy lines3160FOR col=119 TO 131 STEP 63170HPLOT col-3, 34:HPLOT 8, 98:HPLOT 219, 98 TO 224, 983772HPLOT 225, 99:HPLOT 226, 100 TO 226, 1043774HPLOT 225, 105:HPLOT 220, 106 TO 224, 106:HPLOT 218, 104:HPLOT 219, 1053775RETURN4000FOR guess=1 TO 1004010 no=INT(RND(1)*5)+14050HOME:VTAB 22:HTAB 4:? "Guess #"; guess; " "; :GET g$4055IF ASC(g$)=3 THEN END4060 g=VAL(g$):IF g<1 OR g>5 THEN GOSUB 4200:GOTO 40504070IF g=no THEN  ri=ri+14071FOR d=1 TO 750:NEXT4100NEXT guess4105RETURN4200REM    error sub4210VTAB 23:HTAB 1:? beep$; " INVALID ENTRY! PLEASE REENTER."4215F170, 373250HPLOT 171, 38 TO 171, 40:HPLOT 172, 40 TO 172, 42:HPLOT 173, 42 TO 173, 433260HPLOT 173, 44 TO 180, 433270HPLOT 160, 45:HPLOT 161, 46:HPLOT 162, 47 TO 163, 47:HPLOT 164, 48 TO 164, 49:HPLOT 165, 493280HPLOT 166, 50:HPLOT 165, 51 TO 165, 52:HPLOT 164, 52 TO 164, 54:HPLOT 163, 55 TO 163, 583290HPLOT 164, 57:HPLOT 165, 56:HPLOT 166, 55:HPLOT 167, 54 TO 168, 54:HPLOT 169, 53:HPLOT 170, 523300HPLOT 171, 53:HPLOT 172, 54 TO 173, 54:HPLOT 174, 55:HPLOT 175, 56:HPLOT 176, 573310HPLOT 177, 55 TO 17dTransfer protocols available, 1 - XMODEM or MODEM7 protocol 2 - CompuServe 'B' protocol 3 - CompuServe 'A' protocol 4 - DC2/DC4 capture protocol 0 - Abort transfer requestPlease make a selection: 4Capture Buffer TransferNo error detection/correctionOpening capture buffer...5NOTRACE10TEXT:HOME: pi=3.141593/18020DIM yy(256), sq(100), ax(100), ay(100), b(1)30 n$="D U E L I N G  C A N N O N S"40VTAB 13:HTAB 3:? n$50FOR i=0 TO 1:VTAB i*4+11:HTAB 1:FOR j=0 TO 30:? "*"; :NEXT j:NEXT i60FOR x0IF x<3 OR x>254 THEN 650630HCOLOR =0:FOR i=1 TO 25: bx=l-2+RND(1)*4: by=m+RND(1)*2:HPLOT bx, by640NEXT i650 np=1-np:GOTO 290660HCOLOR =3:FOR i=x-10 TO x+10 STEP 2:HPLOT i, p-(RND(1)*10) TO x, p:NEXT i670VTAB 23:HTAB 1:? "DO YOU WISH TO CONTINUE? <Y/N>"; 680GET a$:IF a$="" THEN 680690IF a$="Y" OR a$="y" THEN 70700TEXT:HOME:END1000VTAB 23:HTAB 0:? CHR$(7); SPC(10); "BAD VALUE!"; SPC(10); :FOR dl=1 TO 1000:NEXT dl:RETURN2000 c=1: l$="0"2010GET a$: a=ASC(a$)2020IF a=13 THEN  z=INT(VAL(l$)*10)/10:RE2:HTAB 19:? ABS(wind)200HCOLOR =3:IF wind=0 THEN 240210HPLOT 107, 10 TO 147, 10220IF wind>0 THEN HPLOT 107, 10 TO 120, 5:HPLOT 107, 10 TO 120, 15:GOTO 240230HPLOT 147, 10 TO 134, 5:HPLOT 147, 10 TO 134, 15240 b(0)=RND(1)*15+55-5*ABS(wind)250 b(1)=RND(1)*15+185+5*ABS(wind)260FOR i=0 TO 1:FOR j=b(i)-3 TO b(i)+3:HPLOT j, p-5 TO j, p:NEXT j280HCOLOR =2:NEXT i290HCOLOR =0:FOR i=1 TO iv:HPLOT ax(i), ay(i):NEXT i310VTAB 24:HTAB 0:? SPC(30); :VTAB 24:HTAB 20*np:? "ANGLE?"; :GOSUB 2000: an=z330IF an<5 OR 0IF x<3 OR x>254 THEN 650630HCOLOR =0:FOR i=1 TO 25: bx=l-2+RND(1)*4: by=m+RND(1)*2:HPLOT bx, by640NEXT i650 np=1-np:GOTO 290660HCOLOR =3:FOR i=x-10 TO x+10 STEP 2:HPLOT i, p-(RND(1)*10) TO x, p:NEXT i670VTAB 23:HTAB 1:? "DO YOU WISH TO CONTINUE? <Y/N>"; 680GET a$:IF a$="" THEN 680690IF a$="Y" OR a$="y" THEN 70700TEXT:HOME:END1000VTAB 23:HTAB 0:? CHR$(7); SPC(10); "BAD VALUE!"; SPC(10); :FOR dl=1 TO 1000:NEXT dl:RETURN2000 c=1: l$="0"2010GET a$: a=ASC(a$)2020IF a=13 THEN  z=INT(VAL(l$)*10)/10:RE(an*pi)/10: y=p+(np-( NOT np))*y+16*sq(iv)480IF x<3 OR x>254 OR y<0 THEN 650490IF y>p+7 THEN 510500IF x>b(np)-5 AND x<b(np)+5 THEN 570510 ym=(ABS(py-y)/((ABS(px-x))+1E-04))*SGN(y-py)520 st=SGN(x-px): rn=x-px: cc=0530IF n=1 THEN  cc=rn: rn=0: st=-st540 l=px+cc: m=py+ym*ABS(cc)550IF yy(l)<m THEN 610560 cc=cc+st:IF ABS(cc-rn)>ABS(st) THEN 540570HCOLOR =3:HPLOT x, y580 px=x: py=y: ax(iv)=x: ay(iv)=y590IF yy(x)<y THEN  l=x: m=yy(x):GOTO 610600GOTO 450610IF ABS(x-b(0))<4 OR ABS(x-b(1))<4 THEN 66062=1 TO 100: sq(x)=(x/10)*(x/10):NEXT x70HGR:HOME80VTAB 21:HTAB 13:? "WIND: 0":VTAB 22:HTAB 085VTAB 21:HTAB 13:? "WIND:0"90VTAB 21:HTAB 22:? "ANGLE: 0"100? SPC(1); "BAGS: 0"; SPC(12); "BAGS: 0"110HCOLOR =1: np=0: iv=0120 p=RND(1)*20+139: hg=RND(1)*70+25130FOR i=0 TO 255: yy(i)=p:NEXT i140FOR i=159 TO p STEP -1:HPLOT 0, i TO 255, i:NEXT i150FOR i=107 TO 147: hx=SIN(((i-106)*4.5+180)*pi)*hg160 yy(i)=hx+p170HPLOT i, hx+p TO i, 159:NEXT i180 wind=INT(RND(1)*10):IF RND(1)>.5 THEN  wind=-wind190VTAB 2TURN2030IF a>45 AND a<58 AND a<>47 AND c<6 THEN  l$=l$+a$: c=c+1:? a$; :GOTO 20102040IF a<>163 THEN 20102050IF c=1 THEN  l$="0":GOTO 20102060 l$=LEFT$(l$, LEN(l$)-1): c=c-1:? a$; :GOTO 2010Capture buffer closed.[73766,1233]CANNOc=rn: rn=0: st=-st540 l=px+cc: m=py+ym*ABS(cc)550IF yy(l)<m THEN 610560 cc=cc+st:IF ABS(cc-rn)>ABS(st) THEN 540570HCOLOR =3:HPLOT x, y580 px=x: py=y: ax(iv)=x: ay(iv)=y590IF yy(x)<y THEN  l=x: m=yy(x):GOTO 610600GOTO 450610IF ABS(x-b(0))<4 OR ABS(x-b(1))<4 THEN 66062an>175 THEN GOSUB 1000:GOTO 310340VTAB 22:INVERSE350VTAB 22:HTAB 7+19*np:? SPC(6); 360VTAB 22:HTAB 7+19*np:? an; :HTAB 0370VTAB 24:HTAB 0:? SPC(30); :VTAB 24:HTAB 20*np:? "BAGS?"; :GOSUB 2000: bg=z380IF bg<1 OR bg>40 OR bg<>INT(bg) THEN GOSUB 1000:GOTO 370390VTAB 22:INVERSE400VTAB 22:HTAB 7+19*np:? SPC(6); 410VTAB 22:HTAB 7+19*np:? bg; 420VTAB 23:HTAB 0:? SPC(30); 430 bg=bg*10:IF np=1 THEN  an=an+180440 py=p-5: px=b(np): iv=0450 iv=iv+1460 x=bg*iv*COS(an*pi)/10+b(np)-wind*sq(iv)470 y=bg*iv*SIN5HOME10REM  Taken from 12/82 CREATIVE COMPUTING100? "#"109FLASH110? "         CHECKERS            "111NORMAL125 ti=21: sp=255:GOSUB 1380130DIM r(4), t(4), s(8, 8)140FOR x=1 TO 8:FOR y=1 TO 8:READ j:IF j=15 THEN 160150 s(x, y)=j:GOTO 170160RESTORE:READ s(x, y)170NEXT y:NEXT x180DATA           1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15190FOR z=1 TO 2000:NEXT:?200? " THIS IS A GAME OF CHECKERS":? " BLACK IS `X` WHITE IS `O`"210? " THE SQUARES ARE REFERRED TO BY":? " COORDINATE SYSTEM"220? " 1,1`IS T90IF fa$="Y" THEN 720700IF ab$="Y" AND o=2 THEN GOSUB 1480:GOTO 720710IF o=2 THEN GOSUB 1480:GOTO 720720IF q0>r(0) THEN  r(0)=q0: r(1)=x: r(2)=y: r(3)=u: r(4)=v:GOTO 750730IF q0=r(0) AND RND(1)>.5 THEN  r(0)=q0: r(1)=x: r(2)=y: r(3)=u: r(4)=v:GOTO 750740GOTO 770750 ti=1: sp=20:GOSUB 1380751IF id$="Y" THEN ? " I AM CONSIDERING "; r(1); ","; r(2); " TO "; r(3); ","; r(4)760 t1=t(1): t2=t(2): t3=t(3): t4=t(4)770 q0=0:RETURN780IF r(0)=-99 THEN 1420790 ti=3: sp=20:GOSUB 1380791? "  I`LL MOVE"792? "  DO YOU WANT INTERATIVE DEEPENING (Y/N)? "; id$340 ti=3: sp=20:GOSUB 1380341 ab$="Y":GOTO 410350GOTO 410360 ti=3: sp=20:GOSUB 1380361INPUT " DO YOU WANT PRUNER SEARCH (Y/N)"; fa$370IF fa$="Y" THEN 410380 ti=3: sp=20:GOSUB 1380381INPUT " DO YOU WANT ALPHA-BETA SEARCH (Y/N)"; ab$390IF ab$="Y" THEN 410400 ti=20: sp=150:GOSUB 1380401? " DEFAULT IN MINIMAX SEARCH"410 ti=3: sp=20:GOSUB 1380411INPUT " DO YOU WANT TO GO FIRST (Y/N)"; c$420GOSUB 2000: tb=ta430 r(0)=-99: g=-1: p1=12: p2=12440IF c$="Y"HEN RETURN890IF s(u, v)=0 AND s(x+a/2, y+b/2)>0 THEN  id=0:GOSUB 640900RETURN910?:GOSUB 2000: td=ta: tf=tf+INT((td-tb)/60*100+1E-05)/100920 p1=0: p2=0930FOR y=9 TO 0 STEP -1:FOR x=0 TO 9940IF y=9 AND (x=0 OR x=9) THEN 1030950IF y=0 AND (x=0 OR x=9) THEN 1030960IF y=0 OR y=9 THEN ? TAB(2*x-1); " "; x; :GOTO 1030970IF x=0 OR x=9 THEN ? y; :GOTO 1030980IF s(x, y)=0 THEN ? TAB(2*x); "."; :GOTO 1030990IF s(x, y)=1 THEN ? TAB(2*x); c1$; : p1=p1+1:GOTO 10301000IF s(x, y)=-1 THEN ? TAB(2*x); c2$; : p2=pTHEN  o=o+1:GOTO 470540 id=0:IF id$="Y" THEN  o=1550GOTO 780560REM           FIRST MOVE GENERATOR570IF id=1 THEN RETURN580 u=x+a: v=y+b:IF u<1 OR u>8 OR v<1 OR v>8 THEN RETURN590IF s(u, v)=0 THEN GOSUB 640:RETURN600IF s(u, v)<0 THEN RETURN610 u=u+a: v=v+b:IF u<1 OR u>8 OR v<1 OR v>8 THEN RETURN620IF s(u, v)=0 THEN GOSUB 640630RETURN640 ua=u: va=v: xa=x: ya=y: ed=1: ga=g650GOSUB 2040: q0=q660IF id$="Y" THEN 700670IF q0>8 THEN GOSUB 1480:GOTO 720680IF fa$="Y" AND q0>0 THEN GOSUB 1480:GOTO 7206HE LOWER LEFT CORNER"230? " 1,8`IS THE UPPER LEFT CORNER"240? " 8,1`IS THE LOWER RIGHT CORNER"250? " 8,8`IS THE UPPER RIGHT CORNER"260?:? " THE COMPUTER WILL TYPE`+ TO`":? " WHEN YOU HAVE ANOTHER JUMP"270?:? " TYPE `0,0` IF YOU CAN NOT JUMP"280?:? "YOU WILL BE ASKED WHICH TYPE":? " OF COMPUTER SEARCH YOU WANT"290? " PRUNED SEARCH IS FASTER"300 ti=3: sp=20:GOSUB 1380301?:?:INPUT " SEARCH LEVEL (1-2) ?"; o305 ti=3: sp=20:GOSUB 1380310IF o=1 THEN 330320GOTO 360330 ti=3: sp=20:GOSUB 1380331INPUT " FROM "; r(1); ","; r(2); " TO "; r(3); ","; r(4): r(0)=-99800IF r(4)=1 THEN  s(r(3), r(4))=-2:GOTO 820810 s(r(3), r(4))=s(r(1), r(2))820 s(r(1), r(2))=0:IF ABS(r(1)-r(3))<>2 THEN 910830 s((r(1)+r(3))/2, (r(2)+r(4))/2)=0840 x=r(3): y=r(4):IF s(x, y)=-1 THEN  b=-2:FOR a=-2 TO 2 STEP 4:GOSUB 880850IF s(x, y)=-2 THEN FOR a=-2 TO 2 STEP 4:FOR b=-2 TO 2 STEP 4:GOSUB 880:NEXT b860NEXT a:IF r(0)<>-99 THEN ? " TO "; r(3); ","; r(4): r(0)=-99:GOTO 800870GOTO 910880 u=x+a: v=y+b:IF u<1 OR u>8 OR v<1 OR v>8 T THEN  c1$="X": c2$="0": c3$="0*": c4$="X*": m=m+1:GOTO 910450 c1$="0": c2$="X": c3$="X*": c4$="0*"460 m=m+1470IF id$="Y" AND o=2 THEN  x=r(1): y=r(2): b=g:FOR a=-1 TO 1 STEP 2:GOSUB 570:NEXT480IF m=2 AND s(2, 6)=0 THEN  r(1)=3: r(2)=7: r(3)=2: r(4)=6:GOTO 790490FOR x=1 TO 8:FOR y=1 TO 8:IF s(x, y)>-1 THEN 520500IF s(x, y)=-1 THEN  b=g:FOR a=-1 TO 1 STEP 2:GOSUB 570:NEXT510IF s(x, y)=-2 THEN FOR b=-1 TO 1 STEP 2:FOR a=-1 TO 1 STEP 2:GOSUB 570:NEXT:NEXT520NEXT y:NEXT x530IF id$="Y" AND id=0 AND o<2 2+1:GOTO 10301010IF s(x, y)=-2 THEN ? TAB(2*x); c3$; : p2=p2+3:GOTO 10301020IF s(x, y)=2 THEN ? TAB(2*x); c4$; : p1=p1+31030NEXT x1040IF y=6 THEN ? TAB(19); "MOVE NO."; m; 1070?:NEXT y:?1080IF p1=0 THEN 14101090IF p2=0 THEN 14201100IF p1>p2 THEN  p3=(p1-p2)*p1/p21110IF p2>p1 THEN  p3=(p1-p2)*p2/p11120IF p1<7 OR p2<7 THEN ? " END GAME "1130IF o=2 AND ab$<>"Y" AND fa$<>"Y" THEN 11501140GOTO 11701150 ti=3: sp=20:GOSUB 13801151? " I have evaluated your best move as: "; 1160? t1; ","; t2; " TO "; URN1640IF s(u1, v1)=0 THEN GOSUB 1700:RETURN1650IF s(u1, v1)>0 THEN RETURN1660 u1=u1+a1: v1=v1+b1:IF u1<1 OR u1>8 OR v1<1 OR v1>8 THEN RETURN1670IF s(u1, v1)=0 THEN GOSUB 17001680RETURN1690REM         2nd MOVE GEN1700 ua=u1: va=v1: xa=x1: ya=y1: ed=8: ga=g11710GOSUB 20401720 q1=q1730IF id$<>"Y" AND q1>8 THEN GOSUB 18001740IF ab$="Y" AND q0-q1<r(0) THEN  ab=11750IF q1>t(0) THEN  t(0)=q1: t(1)=x1: t(2)=y1: t(3)=u1: t(4)=v11760IF q1=t(0) AND RND(1)>.5 THEN  t(0)=q1: t(1)=x1: t(2)=y1: t(3)=u1: t(4))/2)>-1 THEN GOSUB 1440:GOTO 11901290 s(a, b)=s(e, h): s(e, h)=0:IF ABS(e-a)<>2 THEN 13501300 s((e+a)/2, (h+b)/2)=01310 ti=5: sp=20:GOSUB 13801311INPUT " + TO "; a1, b1:GOSUB 1390:IF a1<1 THEN 13501320IF s(a1, b1)<>0 OR ABS(a1-a)<>2 OR ABS(b1-b)<>2 THEN GOSUB 1440:GOTO 13101330 e=a: h=b: a=a1: b=b1:IF b=8 THEN  s(a, b)=21340GOTO 12901350IF b=8 THEN  s(a, b)=21360GOSUB 2000: tb=ta: tg=tg+INT((tb-te)/60*100+1E-04)/1001370 id=0:GOTO 4601380REM         BEEP BEEP1383FOR zx=1 TO ti1384SPEED =sp1386?y1)=a4: s(u1, v1)=a51890IF ABS(x1-u1)=2 THEN  s((x1+u1)/2, (y1+v1)/2)=a61900RETURN1910REM         3rd MOVE GEN1920 u2=x2+a2: v2=y2+b2:IF u2<1 OR u2>8 OR v2<1 OR v2>8 THEN RETURN1930IF s(u2, v2)<=0 THEN RETURN1940 u2=u2+a2: v2=v2+b2:IF u2<1 OR u2>8 OR v2<1 OR v2>8 THEN RETURN1950IF s(u2, v2)=0 THEN GOSUB 19701960RETURN1970 q1=q1+p3-91980RETURN1990REM         TIMER2000 t1$=ti$2010 ta=3600*VAL(LEFT$(t1$, 2))+60*VAL(MID$(t1$, 3, 2))+VAL(RIGHT$(t1$, 2))2020RETURN2030REM         EVALUTATION2040 q=/2, (y+v)/2)=01520FOR x1=1 TO 8:FOR y1=1 TO 8:IF s(x1, y1)<1 THEN 15501530IF s(x1, y1)=1 THEN  b1=g1:FOR a1=-1 TO 1 STEP 2:GOSUB 1620:NEXT1540IF s(x1, y1)=2 THEN FOR b1=-1 TO 1 STEP 2:FOR a1=-1 TO 1 STEP 2:GOSUB 1620:NEXT:NEXT1550NEXT y1:NEXT x11560 s(x, y)=a7: s(u, v)=a81570IF ABS(x-u)=2 THEN  s((x+u)/2, (y+v)/2)=a31580 q0=q0-t(0):IF fa$="Y" THEN  q0=q0+31590IF id$="Y" THEN  q0=q0+31600 ab=01610RETURN1620IF id=1 OR ab=1 THEN RETURN1630 u1=x1+a1: v1=y1+b1:IF u1<1 OR u1>8 OR v1<1 OR v1>8 THEN RETt3; ","; t41170GOSUB 13901180GOSUB 2000: te=ta1190 ti=3: sp=100:GOSUB 13801191?:INPUT " FROM "; e, h: e=INT(e): h=INT(h)1200GOSUB 13901210IF e<1 OR e>8 OR h<1 OR h>8 THEN GOSUB 1440:GOTO 11901220IF s(e, h)<=0 THEN GOSUB 1440:GOTO 11901230 ti=3: sp=100:GOSUB 13801231INPUT "TO"; a, b: a=INT(a): b=INT(b)1240GOSUB 13901250IF a<0 OR a>8 OR b<0 OR b>8 THEN GOSUB 1440:GOTO 12301260IF s(a, b)=0 AND ABS(a-e)<=2 AND ABS(a-e)=ABS(b-h) THEN 12801270GOSUB 1440:GOTO 11901280IF ABS(a-e)=2 AND s((a+e)/2, (b+h=v11770 q1=01780RETURN1790REM         3rd LEVEL1800IF id$="Y" THEN GOSUB 2000:IF ta-tb>st-5 THEN  id=1:RETURN1810 a4=s(x1, y1): a5=s(u1, v1): s(u1, v1)=s(x1, y1): s(x1, y1)=01820IF ABS(x1-u1)=2 THEN  a6=s((x1+u1)/2, (y1+v1)/2): s((x1+u1)/2, (y1+v1)/2)=01830FOR x2=1 TO 8:FOR y2=1 TO 81840IF s(x2, y2)>-1 THEN 18701850IF s(x2, y2)=-1 THEN  b2=g:FOR a2=-1 TO 1 STEP 2:GOSUB 1920:NEXT1860IF s(x2, y2)=-2 THEN FOR b2=-1 TO 1 STEP 2:FOR a2=-1 TO 1 STEP 2:GOSUB 1920:NEXT:NEXT1870NEXT y2:NEXT x21880 s(x1,  CHR$(7); 1388NEXT zx1390SPEED =2551400RETURN1410 ti=20: sp=255:GOSUB 13801411?:?:? "  I WIN !!!":?:?:END1420 ti=20: sp=255:GOSUB 13801421?:?:? "  YOU WIN !!!":?:?:END1430REM         REJECT MOVE1440REM        1450 ti=21: sp=255:GOSUB 13801451? " ILLEGAL MOVE-TRY AGAIN"1460RETURN1470REM         2nd LEVEL1480IF id$="Y" THEN GOSUB 2000:IF ta-tb>st-5 THEN  id=1:RETURN1490 t(0)=-98: g1=11500 a7=s(x, y): a8=s(u, v): s(u, v)=s(x, y): s(x, y)=01510IF ABS(x-u)=2 THEN  a3=s((x+u)/2, (y+v)/2): s((x+u)0:IF id$="Y" THEN GOSUB 2000:IF ta-tb>st-5 THEN  id=1:RETURN2050IF p1<7 OR p2<7 THEN GOSUB 25302060 cp=0:IF ABS(ya-va)=2 THEN  q=q+10: cp=1:IF ga=-1 THEN  q=q+202070IF ga=-1 AND xa=3 AND ya=5 THEN  q=q-.22080IF ga=1 AND xa=6 AND ya=4 THEN  q=q-.22090FOR c=-1 TO 1 STEP 2:IF ua+c<1 OR ua+c>8 OR va+ga<1 OR va+ga>8 THEN 22502100IF s(ua+c, va+ga)=ga OR s(ua+c, va+ga)=2*ga THEN  q=q+12110IF ua-c<1 OR ua-c>8 OR va-ga<1 OR va-ga>8 THEN 22502120IF s(xa, ya)=2*ga THEN 21402130GOTO 21702140IF s(ua+c, va-c)=0ND v=7) OR (u=2 AND v=8) THEN  q=q+1.52620IF 8-u>u-1 AND u-1<x-1 AND 8-v<8-y THEN  q=q+.3:GOTO 26502630IF 8-u<x-1 AND v-1<y-1 THEN  q=q+.32640IF u=1 OR u=8 OR v=1 OR v=8 THEN  q=q-.352650IF s(x, y)<>-1 THEN 27402660FOR i=v TO 1 STEP -12670IF s(u, i)>0 THEN 27402680IF u=8 AND s(u-1, i)>0 THEN 27402690IF u+1>8 THEN 27402700IF u=1 AND s(u+1, i)>0 THEN 27402710IF s(u-1, i)>0 OR s(u+1, i)>0 THEN 27402720NEXT i2730 q=q+12740RETURN q=q-.52450IF va=1 OR va=8 THEN  q=q-.52460RETURN2470 uc=ua+fb: vc=0 AND s(ua, va+2*ga)=-ga THEN  q=q+.52240IF s(ua+c, va+ga)=0 AND s(ua+2*c, va+2*ga)=0 AND s(ua, va+2*ga)=-2*ga THEN  q=q+.52250NEXT c2260IF s(xa, ya)=2*ga THEN  q=q+.2:GOTO 23802270REM        MAN ONLY2280IF va=ed THEN  q=q+22290IF cp=1 THEN  fc=-2:FOR fc=-2 TO 2 STEP 4:GOSUB 2470:NEXT2300IF ya=ed-ga*2 THEN  q=q+.22310IF ya=ed-ga THEN  q=q+.32320IF ya=ed-7*ga THEN  q=q-2.22330IF xa=1 OR xa=8 THEN 23602340IF xa+1>8 OR xa-1<1 OR ya-ga<1 OR ya-ga>8 THEN 23602350IF s(xa+1, ya-ga)=2*ga OR s(xa-1, ya-gNMENT (Y/N)"240INPUT a1$250IF a1$<>"Y" THEN 280260? " BEFOR THE PRINTING OF EACH MONTH A`?` WILL APPEAR"270? " ALIGN TO THE TOP OF THE PAGE BEFORE PRESSING THE RETURN"280FOR i=1 TO 12290IF m$<>m0$(i) THEN 310300 m4=i310NEXT i320FOR k=1 TO 7330IF d1$<>d0$(k) THEN 350340 s0=k350NEXT k360REM     **********************************370REM      PROCESSING LOOP380FOR i2=m4 TO m4+n-1390 n0(2)=28400 y=y1410IF INT(y/4)<>y/4 THEN 430420 n0(2)=29430 i0=0440 m3=i2450IF m3<=12 THEN 510460 m3=m3-124va+fc2480IF uc<1 OR uc>8 OR vc<1 OR vc>8 THEN RETURN2490IF s(uc, vc)=0 AND s((uc+ua)/2, (vc+va)/2)=-ga THEN  q=q+102500IF s(uc, vc)=0 AND s((uc+ua)/2, (vc+va)/2)=-2*ga THEN  q=q+112510RETURN2520REM        ENDINGS2530IF ga=1 THEN RETURN2540IF p2<6 AND p1>p2 THEN 26102550IF v=3 AND s(u, 1)>0 THEN  q=q+22560IF s(x, y)<>-2 THEN 26502570IF u=3 AND s(1, v)>0 THEN  q=q+22580IF u=6 AND s(8, v)>0 THEN  q=q+22590IF v=6 AND s(u, 8)>0 THEN  q=q+22600GOTO 26502610IF (u=7 AND v=1) OR (u=8 AND v=2) OR (u=1 A AND s(ua-c, va+c)=0 AND s(ua-1, va+c)=-2*ga THEN 21602150GOTO 21702160IF s(ua+1, va-c)=-2*ga THEN  q=q+32170IF (s(ua+c, va+ga)=-ga OR s(ua+c, va+ga)=-2*ga) THEN 21902180GOTO 22002190IF s(ua-c, va-ga)=0 OR (ua-c=xa AND va-ga=ya) THEN  q=q-32200IF s(ua+c, va-ga)=-2*ga AND (s(ua-c, va+ga)=0 OR (ua-c=x AND va+ga=ya)) THEN  q=q-32210IF s(ua+c, va+ga)=-2*ga AND (ua-c=xa AND va-ga=ya) THEN  q=q-32220IF ua+2*c<1 OR ua+2*c>8 OR va+2*ga<1 OR va+2*ga>8 THEN 22502230IF s(ua+c, va+ga)=0 AND s(ua+2*c, va+2*ga)=20REM     CALENDAR30REM      DATA INITIALIZATION40 n=050 s0=060 l0=070 m1=780 m2=790 m4=1100DIM d0$(7)110DIM n0(12)120DIM m0$(12)130READ d0$(1), d0$(2), d0$(3), d0$(4), d0$(5), d0$(6), d0$(7)140FOR i=1 TO 12150READ m0$(i), n0(i)160NEXT i170? " ENTER THE FIRST MONTH AND YEAR TO BE PRINTED i.e., JAN, 1986"180INPUT m$, y1190? " ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON"200INPUT d1$210? " ENTER THE NUMBER OF MONTHS TO BE PRINTED i.e., 12"220INPUT n230? " DO YOU WANT PAGE ALIGa)=-2*ga THEN  q=q+22360IF ua=1 OR ua=8 THEN  q=q+1:IF va=ed THEN  q=q-1.22370RETURN2380REM        KING ONLY2390IF cp=1 THEN FOR fb=-2 TO 2 STEP 4:FOR fc=-2 TO 2 STEP 4:GOSUB 2470:NEXT:NEXT2400IF va=5 AND (ua=3 OR ua=4 OR ua=5) THEN  q=q+.252410IF va=4 AND (ua=3 OR ua=4 OR ua=5) THEN  q=q+.252420IF ua-1<1 OR ua+1>8 OR va-ga<1 OR va-ga>8 THEN 24402430IF s(ua-1, va-ga)=-ga AND s(ua+1, va-ga)=-ga THEN  q=q+12440IF ua=1 OR ua=8 THEN  q=q-.52450IF va=1 OR va=8 THEN  q=q-.52460RETURN2470 uc=ua+fb: vc=70 y=y1+1480IF INT(y/4)<>y/4 THEN 500490 n0(2)=29500GOTO 450510IF s0=0 THEN 620520GOSUB 690530FOR j=1 TO m2540GOSUB 790550IF n0(m3)<i0 THEN 610560GOSUB 850570GOSUB 1110580GOSUB 1110590 l0=l0+1600NEXT j610REM     ***********PROGRAM TERMINATION POINT620IF s0<>8 THEN 640630 s0=1640NEXT i2650?660?665PR #0670STOP680REM     *****SUBROUTINES FOLLOW690REM     ******PRINTS HEADINGS700PR #1705IF a1$<>"Y" THEN 720710INPUT x$720?730? "                                "; m0$(m3); " "; y740FOR20NEXT an130 a$="DRAW":GOSUB 1000140NEXT d141GET a$142IF a$<>"|" THEN TEXT143INPUT " PLAY AGAIN ? "; a$144IF a$="Y" THEN RUN150END170 sn=ABS(SIN(an*p)): ra=sn*m1+m2180 x=COS(a)*ra: y=SIN(a)*ra190IF an=0 THEN  a$="MOVE":GOSUB 1000: x1=x: y1=y:GOTO 1201000 xp=x*xm+xc: yp=192-(y*ym+yc)1010IF a$="MOVE" THEN  xo=xp: yo=yp:RETURN1020HPLOT xo, yo TO xp, yp1030 xo=xp: yo=yp:RETURN; 1030 s1=i+11040 i0=i0+11050 s0=i+11060NEXT i1070? "I"1080 l0=01090 s0=s11100RETURN1110REM     VERTICAL LINES1120FOR i=1 TO m11130? "I         "; 1140NEXT i1150? "I"1160RETURN1170REM    ******DATA FOR INITIALIZATION1180DATA     SUN,MON,TUE,WED,THU,FRI,SAT1190DATA     JAN,31,FEB,28,MAR,31,APR,30,MAY,31,JUN,301200DATA     JUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,311210REM     *****************************EN 720710INPUT x$720?730? "                                "; m0$(m3); " "; y740FOR0100IF n>41 THEN 140110IF SIN(z)=0 THEN 140120 z1=SIN(z)*x(n): z2=COS(z)*x(n): z2=-SQR(80^2-z2^2): d1=z1-z2130 y1=y(n): y2=20:IF ATN((y2-y1)/d1)>a2 THEN  n=41: f1=1:GOTO 220140 y=y(n): z1=x(n)*SIN(z)*COS(a):IF z1=0 THEN  z1=1E-04150 z1=ABS(z1): x=x(n)*COS(z): d=SQR(z1^2+y^2)160 an=ATN(y/z1)+a: y=SIN(an)*d: x=INT(x): y=INT(y)170IF f1<>0 THEN  a$="MOVE":GOSUB 1000: f1=0:GOTO 190180 a$="DRAW":GOSUB 1000190IF n=46 THEN  ex(3, e)=x: ey(3, e)=y200IF n=39 THEN  ex(1, e)=x: ey(1, e)=y210IF n=42 THEN  ex1HOME2? "  MAKE A FLOWER"4INPUT "  WHAT COLOR 1-15?"; co9INPUT "NUMBER OF`LEAVES`="; p: p=p/210INPUT "SLOWLY TWISTING (Y\N)"; b$: b$=LEFT$(b$, 1)15HGR2:HCOLOR =co: xc=140: yc=9616 xm=.95: ym=.9520 pi=3.1415: p2=2*pi30 s=p2/180: n1=5: n2=440FOR d=1 TO 1050 m1=n1*d: m2=n2*d:IF b$="Y" THEN  aa=d*pi/3060FOR an=0 TO p2 STEP s: a=an+aa70 sn=ABS(SIN(an*p)): ra=sn*m1+m280 x=COS(a)*ra: y=SIN(a)*ra90IF an=0 THEN  a$="MOVE":GOSUB 1000: x1=x: y1=y:GOTO 120100 x=INT(x): y=INT(y)110 a$="DRAW":GOSUB 10001 i=1 TO 7750? "   "; d0$(i); "    "; 760NEXT i770?780RETURN790REM     ****PRINTS SCHEDULE OUTLINE800FOR i=1 TO m1810? "I---------"; 820NEXT i830? "I"840RETURN850REM     ******PRINTS CALENDAR DAYLINE860FOR i=1 TO m1870IF j<>1 THEN 900880IF i<>s0 THEN 900890 i0=1900IF n0(m3)>=i0 THEN 940910? "I         "; 920 i0=i0+1930GOTO 1060940IF i0>9 THEN 1020950IF i0<>0 THEN 980960? "I         "; 970GOTO 1060980? "I     "; i0; "   "; 990 i0=i0+11000 s1=i+11010GOTO 10601020? "I     "; i0; "  "1HOME5? " DESIGN A SPACE STATION"10DIM x(70), y(70), ex(4, 50), ey(4, 50)12INPUT "NUMBER OF SPOKES"; st: st=st/214INPUT "ANGLE  "; a:INPUT "COLOR 1-15"; r:? r:GOSUB 37015HGR2:HCOLOR =r: xc=140: yc=9616 xm=.89: ym=1.1520 pi=3.1415: s=pi/st: a=a*pi/180: a2=a: s2=2*st+1: st=st+130FOR z=0 TO 2*pi STEP s: e=e+140IF sw=1 THEN 6050IF z>pi THEN  a=-a: sw=160 gn=0: a$="MOVE": x=0: y=0:GOSUB 100070FOR n=1 TO c:IF gn=1 THEN 22080IF n<47 THEN 10090IF z>0 AND z<pi THEN  gn=1: ex(4, e)=x: ey(4, e)=y:GOTO 22 i=1 TO 7750? "   "; d0$(i); "    "; 760NEXT i770?780RETURN790REM     ****PRINTS SCHEDULE OUTLINE800FOR i=1 TO m1810? "I---------"; 820NEXT i830? "I"840RETURN850REM     ******PRINTS CALENDAR DAYLINE860FOR i=1 TO m1870IF j<>1 THEN 900880IF i<>s0 THEN 900890 i0=1900IF n0(m3)>=i0 THEN 940910? "I         "; 920 i0=i0+1930GOTO 1060940IF i0>9 THEN 1020950IF i0<>0 THEN 980960? "I         "; 970GOTO 1060980? "I     "; i0; "   "; 990 i0=i0+11000 s1=i+11010GOTO 10601020? "I     "; i0; "  "(2, e)=x: ey(2, e)=y220NEXT n:IF gn=0 THEN  ex(4, e)=x: ey(4, e)=y230NEXT z: s2=e: e=e+1: ex(4, e)=ex(4, 1): ey(4, e)=ey(4, 1)240 a$="MOVE": x=ex(1, 1): y=ey(1, 1):GOSUB 1000250FOR n=1 TO st: x=ex(1, n): y=ey(1, n)260 a$="DRAW":GOSUB 1000:NEXT n270 x=ex(2, s2): y=ey(2, s2): a$="MOVE":GOSUB 1000280FOR n=1 TO s2: x=ex(2, n): y=ey(2, n)290 a$="DRAW":GOSUB 1000:NEXT n300 a$="MOVE": x=ex(3, s2): y=ey(3, s2):GOSUB 1000310FOR n=1 TO s2: x=ex(3, n): y=ey(3, n)320 a$="DRAW":GOSUB 1000:NEXT n330 a$="MOVE"320 a$(21)="U"330 a$(22)="V"340 a$(23)="W"350 a$(24)="X"360 a$(25)="Y"370 a$(26)="Z"380 y=1390FOR i=1 TO c400FOR j=1 TO r410 l$(i, j)="."420NEXT j430NEXT i440FOR k=1 TO n450INPUT "ENTER WORD "; w$(k)470GOSUB 670480NEXT k490INPUT "I`LL SHOW YOU WHERE I`VE HIDDEN THE WORDS IF YOU SAY ``PLEASE``  "; g$510IF g$<>"PLEASE" THEN 530520GOSUB 600530GOSUB 1450540?550?560GOSUB 600570REM        TERM POINT575PR #0580STOP590REM      PRINT ROUTINE600PR #1605FOR j=1 TO r610FOR i=1 TO c620? l$1010IF a$="MOVE" THEN  xo=xp: yo=yp:RETURN1020HPLOT xo, yo TO xp, yp1030 xo=xp: yo=yp:RETURN, e)=ex(4, 1): ey(4, e)=ey(4, 1)240 a$="MOVE": x=ex(1, 1): y=ey(1, 1):GOSUB 1000250FOR n=1 TO st: x=ex(1, n): y=ey(1, n)260 a$="DRAW":GOSUB 1000:NEXT n270 x=ex(2, s2): y=ey(2, s2): a$="MOVE":GOSUB 1000280FOR n=1 TO s2: x=ex(2, n): y=ey(2, n)290 a$="DRAW":GOSUB 1000:NEXT n300 a$="MOVE": x=ex(3, s2): y=ey(3, s2):GOSUB 1000310FOR n=1 TO s2: x=ex(3, n): y=ey(3, n)320 a$="DRAW":GOSUB 1000:NEXT n330 a$="MOVE" PT940 c0=c950 r0=r960IF d<>1 THEN 980970 r0=r-l0980IF d<>0 THEN 1000990 c0=c-l01000IF d<1 THEN 10301010 r0=r-l01020 c0=c-l01030IF c0<>c THEN 10501040 p0=01050IF r0<>r THEN 10701060 p=01070 z1=(RND(y)*r0/100+.01)*100+p*l01080 z2=(RND(y)*c0/100+.01)*100+p0*l01090 x1=INT(z1)1100 x2=INT(z2)1110REM    ENTRY OF WORD IN PUZZEL1120IF d=1 THEN 13401130IF d=0 THEN 12401140FOR i=1 TO l01150IF l$(x2+(i-1)*q0, x1+(i-1)*q)="." THEN 11701160IF l$(x2+(i-1)*q0, x1+(i-1)*q)<>MID$(w$(k), i, 1) THEN 71010REM          WORDGAME20INPUT "ENTER # OF COLUMNS IN THE GAME "; c40INPUT "ENTER # OF ROWS IN GAME  "; r60INPUT "ENTER # OF WORDS TO FIND  "; n80REM           DATA INITIATION90DIM l$(c, r)100DIM w$(n)110DIM a$(26)120 a$(1)="A"130 a$(2)="B"140 a$(3)="C"150 a$(4)="D"160 a$(5)="E"170 a$(6)="F"180 a$(7)="G"190 a$(8)="H"200 a$(9)="I"210 a$(10)="J"220 a$(11)="K"230 a$(12)="L"240 a$(13)="M"250 a$(14)="N"260 a$(15)="O"270 a$(16)="P"280 a$(17)="Q"290 a$(18)="R"300 a$(19)="S"310 a$(20)="T": x=ex(4, st): y=ey(4, st):GOSUB 1000340FOR n=st TO e: x=ex(4, n): y=ey(4, n)350 a$="DRAW":GOSUB 1000:NEXT n352GET a$353IF a$<>"|" THEN TEXT355INPUT " GO AGAIN Y/N ?"; a$357IF a$="Y" THEN RUN360END370 c=0:FOR x=4 TO 80 STEP 2: c=c+1: x(c)=x: y(c)=x/8+4380NEXT x390 x=80:FOR y=16 TO 20 STEP 2: x(c)=x: y(c)=y: c=c+1:NEXT y400 y=20:FOR x=82 TO 110 STEP 10: x(c)=x: y(c)=y: c=c+1:NEXT x410 x=110:FOR y=20 TO -20 STEP -2: x(c)=x: y(c)=y: c=c+1:NEXT y420 c=c-1430RETURN1000 xp=x*xm+xc: yp=192-(y*ym+yc)(i, j); ""; 630NEXT i640?650NEXT j660RETURN670REM     WORD BRAKEDOWN680REM     LANGUAGE690REM     700 l0=LEN(w$(k))710REM    RANDUM SELECTION720 t=1730IF t<100 THEN 760740? "I COULDN`T FIT THE WORDS IN- SORRY TRY AGAIN"750GOTO 580760 t=1770 p0=1780 q=-1790IF RND(y)<=.5 THEN 810800 q=1810 q0=-1820IF RND(y)<=.5 THEN 840830 q0=1840 d=2850IF q<>1 THEN 870860 p=0870IF q0<>1 THEN 890880 p0=0890IF RND(y)<.75 THEN 910900 d=1910IF RND(y)>.25 THEN 930920 d=0930REM    RANDEM SEL OF START: x=ex(4, st): y=ey(4, st):GOSUB 1000340FOR n=st TO e: x=ex(4, n): y=ey(4, n)350 a$="DRAW":GOSUB 1000:NEXT n352GET a$353IF a$<>"|" THEN TEXT355INPUT " GO AGAIN Y/N ?"; a$357IF a$="Y" THEN RUN360END370 c=0:FOR x=4 TO 80 STEP 2: c=c+1: x(c)=x: y(c)=x/8+4380NEXT x390 x=80:FOR y=16 TO 20 STEP 2: x(c)=x: y(c)=y: c=c+1:NEXT y400 y=20:FOR x=82 TO 110 STEP 10: x(c)=x: y(c)=y: c=c+1:NEXT x410 x=110:FOR y=20 TO -20 STEP -2: x(c)=x: y(c)=y: c=c+1:NEXT y420 c=c-1430RETURN1000 xp=x*xm+xc: yp=192-(y*ym+yc)1170NEXT i1180 t=01190FOR i=1 TO l0-11200 l$(x2+i*q0, x1+i*q)=MID$(w$(k), i+1, 1)1210NEXT i1220 l$(x2, x1)=MID$(w$(k), 1, 1)1230GOTO 14301240FOR i=1 TO l01250IF l$(x2+(i-1)*q0, x1)="." THEN 12701260IF l$(x2+(i-1)*q0, x1)<>MID$(w$(k), i, 1) THEN 7101270NEXT i1280 t=01290FOR i=1 TO l0-11300 l$(x2+i*q0, x1)=MID$(w$(k), i+1, 1)1310NEXT i1320 l$(x2, x1)=MID$(w$(k), 1, 1)1330GOTO 14301340FOR i=1 TO l01350IF l$(x2, x1+(i-1)*q)="." THEN 13701360IF l$(x2, x1+(i-1)*q)<>MID$(w$(k), i, 1) THEN 7101THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:? "Sorry, you missed!"560?:? "Your score: "; s5701 SPEED=204?:? "TO PLAY HIT SPACE BAR"5?:? "TO PLAY HIT SPACE BAR"6?:? "TO PLAY HIT SPACE BAR"7 SPEED=25510LOMEM :2900020DIM d$(4), tr(19)29REM   --TURN OFF CURSOR---30POKE 16953, 040 hs=0: s=0: sp$=CHR$(32)50FOR i=1 TO 4:READ d$(i):NEXT i60FOR i=28000 TO 28012:READ a:POKE i, a:NEXT i70HOME80? "Score:0"; TAB(15); "High Score:"; hs90HTAB 2:INVERSE:? SPC(29)100FOR i=3 TO 21:VTAB i:HTAB 2:? sp$110VTAB i:HTAB 30:? sp$:NEXT i120HTAB 2:? SPC(29):NORMAL:?130? "Pnts: +=100*=250 $=500/=-100"; 140ITHEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:? "Sorry, you missed!"560?:? "Your score: "; s570 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1260VTAB l:HTAB 29:? d$(q); : tr(l-2)=q270VTAB d:HTAB a:? sp$280 d=d+f:IF d>3 AND d<21 THEN 220289REM    --THIS POKE AND CALL MAKE A SOUND--290 f=-f:POKE 28006, 144:CALL 28000300POKE 28006, 141:CALL 28000310POKE 28006, 34+f:CALL 28000320FOR t=1 TO 5:NEXT t:POKE 28006, 159:CALL 28000330GOTO 220340IF d/2=INT(d/2) THEN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 370NEXT i1380 t=01390FOR i=1 TO l0-11400 l$(x2, x1+i*q)=MID$(w$(k), i+1, 1)1410NEXT i1420 l$(x2, x1)=MID$(w$(k), 1, 1)1430RETURN1440REM     FILL OF REMAINING POSITIONS1450FOR i=1 TO c1460FOR j=1 TO r1470IF l$(i, j)<>"." THEN 15001480 z1=(RND(y)*.26+.01)*1001490 l$(i, j)=a$(INT(z1))1500NEXT j1510NEXT i1520REM    PRINT OF WORDS TO FIND1530?1540? "WORD LIST"1550FOR k=1 TO n1560? w$(k)1570NEXT k1580RETURN+(i-1)*q)="." THEN 11701160IF l$(x2+(i-1)*q0, x1+(i-1)*q)<>MID$(w$(k), i, 1) THEN 710?:? "High score: "; hs580IF s<=hs THEN 610590 hs=s:?:? "Congratulatiions!"600?:? "You beat the high score!"610?:? "Press <E> to end, or"620? "any other key to play again."630GET kp$639REM   --"POKE 16953,95" TURNS CURSOR BACK ON--640IF kp$="E" OR kp$="e" THEN POKE 16953, 95:END650 s=0:GOTO 701000DATA    +,*,$,/2000DATA    58,102,109,211,255,201,0,62,0,50,117,253,20160350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 NVERSE: c=2: j=20:FOR i=4 TO 20 STEP 2150VTAB i:HTAB j:? SPC(30-j); 160 tr(c)=j: j=j+1-2*(i>=12)170 c=c+2:NEXT i:NORMAL180FOR i=3 TO 21 STEP 2190 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1200VTAB i:HTAB 29:? d$(q); : tr(i-2)=q:NEXT i209REM   --"CALL 28007" PREPARES FOR KEYPRESS-210 f=1: a=4: d=INT(RND(1)*18)+3:CALL 28007220VTAB d:HTAB a:INVERSE:? sp$; :NORMAL229REM   --"PEEK(64885)" TELLS LATEST KEYPRESS230IF PEEK(64885)=32 THEN CALL 28007:GOTO 340240 l=INT(RND(1)*19)+3:IF l/2=INT(l/2) THEN 27025010DIM dr(6, 2): rv=.520FOR i=1 TO 9: bl$=bl$+CHR$(32):NEXT i30FOR i=1 TO 6:READ dr(i, 1), dr(i, 2):NEXT i40HOME:? TAB(8); "RENEGRADE BOBOT II"50VTAB 5:? "  PRESS TRIGGER TO BEGIN."60IF PDL(7)<>1 THEN  c=RND(1):GOTO 6070HOME:GR:COLOR =980HLIN 0, 39 AT 0:HLIN 0, 39 AT 190HLIN 0, 39 AT 38:HLIN 0, 39 AT 39100VLIN 2, 37 AT 0:VLIN 2, 37 AT 1110VLIN 2, 37 AT 38:VLIN 2, 37 AT 39:COLOR =8120FOR i=1 TO 6:PLOT dr(i, 1), dr(i, 2):NEXT i130FOR i=3 TO 35 STEP 2:FOR j=3 TO 36140IF RND(1)>rv THEN COLOR =INT(RNOME310? " ...And the WINNER is "; CHR$(34); rc$(x); CHR$(34); "!"320INPUT " PLAY AGAIN Y/N"; b$330IF b$="Y" THEN RUN340ENDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ00IF nx<>dr(do, 1) OR ny<>dr(do, 2) THEN ? "LOCKED!":GOTO 360310? " UNLOCKED! "320COLOR =8*(px=dr(do, 1) AND py=dr(do, 2))330PLOT px, py340COLOR =15:PLOT nx, ny: px=nx: py=ny350IF p<>8 THEN 380360FOR d=1 TO 200:NEXT d370VTAB 22:HTAB 1:? SPC(9)380IF sc<ts THEN 480390 qx=rx+SGN(px-rx): qy=ry+SGN(py-ry): f=1400 p=SCRN(qx, qy):IF p=0 OR p=15 THEN 450410 d=2*INT(RND(1)*2)-1420IF f THEN  qx=rx+d: qy=ry:GOTO 440430 qy=ry+d: qx=rx440 f= NOT f:GOTO 400450COLOR =0:PLOT rx, ry:COLOR =11:PLOT qx, qy460I*A TERMINAL TALE OF", n$; "*"190?200? "     ONCE UPON A TIME, IN THE "210? " CITY OF "; c$; " ,THERE LIVED"220? " A BRAVE SOUL NAME "; n$; ","230? " ONE DAY, AS "; n$; " WAS "240? " OUT RIDING A WILD "; a$; ","250? g$; " HEARD THE NEARBY SCREAMS "260? "OF "; l$; ". UPON ARRIVING AT "270? " THE SCENE, "; g$; "  FOUND"280? l$; " UP IN A TREE,"290? " MENACED BY A BARKING DOG,"300? "NAMED "; b$; " ,DOWN BELOW. "310?320? "(PRESS ANY KEY TO CONTINUE.)"330GET k$340HOME350? "      THINKING FAST,"; 10DIM rc$(4), rp(4)20HOME30? " TO randomize, input"40INPUT " A number greater then 1. "; n50IF n<=1 THEN 4060FOR x=1 TO n70 q=RND(1)80NEXT x90HOME100FOR i=1 TO 4110? " WHAT IS THE CCARATER"120? " FOR RACER #"; i; 130INPUT rc$(i)140IF LEN(rc$(i))>1 THEN 130150 rp(i)=1160NEXT i170HOME180? "  AND THERE OFF!!!"190 x=INT(RND(1)*4)+1200VTAB x*4210HTAB rp(x)220? " "; rc$(x)230FOR de=1 TO 30240NEXT de250 rp(x)=rp(x)+1260IF rp(x)<32 THEN 190270? CHR$(7); 280FOR de=1 TO 1000290NEXT de300HD(1)*7)+1:PLOT j, i150NEXT j, i160VTAB 21:HTAB 11:? "SCORE :"170 px=INT(RND(1)*10)+2: py=(INT(RND(1)*18)+1)*2180 rx=INT(RND(1)*10)+26: ry=(INT(RND(1)*18)+1)*2190 sc=0: do=INT(RND(1)*6)+1: ts=RND(1)*500+500200COLOR =15:PLOT px, py210COLOR =11:PLOT rx, ry220 j=PDL(5)230 nx=px+(j=2 OR j=3 OR j=6)-(j>6)240 ny=py+(j=4 OR j=6 OR j=12)-(j=1 OR j=3 OR j=9)250IF px=nx AND py=ny THEN 380260IF nx<1 OR nx>38 OR ny<1 OR ny>38 THEN 490270 p=SCRN(nx, ny):IF p=0 THEN 320280IF p<>8 THEN 380290VTAB 22:HTAB 1310HOME20? "PLEASE PRESS <RETURN> AFTER"30? "ANSWERING EACH QUESTION."40?50INPUT "WHAT'S YOUR NAME?"; n$60INPUT "ARE YOU MALE OR FEMALE? "; s$70IF LEFT$(s$, 1)=CHR$(102) OR LEFT$(s$, 1)="F" THEN  g$="SHE":GOTO 9080 g$="HE"90? "WHAT CITY OR TOWN ARE"100INPUT "YOU FROM? "; c$110? "WHAT'S YOUR FAVORITE TINY"120INPUT "ANIMAL (E.G.,MOUSE)? "; a$130INPUT "WHO REALLY BUGS YOU? "; b$140INPUT "WHO DO YOU HAVE A CRUSH ON? "; l$150? "WHAT'S YOUR LEAST FAVORITE"160INPUT "FOOD? "; f$170HOME180? TAB(3); "F p=15 THEN 520470 rx=qx: ry=qy480 sc=sc+10:HTAB 17:VTAB 21:? sc:GOTO 220490TEXT:HOME:FOR i=1 TO 7500? CHR$(7); :FOR d=1 TO 50:NEXT d, i510? " YOU ESCAPED!":GOTO 540520TEXT:HOME:? CHR$(7); 530? " SORRY,YOU WERE CAUGHT!"540?:? " YOUR SCORE WAS "; sc550IF sc>hs THEN  hs=sc560?:? " THE HIGH SCORE IS "; hs570?:? " PRESS LEFT TRIGGER TO PLAY AGAIN"580? " OR RIGHT TRIGGER TO QUIT."590IF PDL(7)=1 THEN 70600IF PDL(9)<>1 THEN 590610END1000DATA    20,1,38,12,38,26,20,38,1,12,1,260290VTAB 22:HTAB 13n$360? " RAN INTO A NEARBY PIE SHOP,"370? " BOUGHT A FRESH "; f$380? " PIE, AND FED IT TO "; b$; ","390? "WHO LOVED IT!"400? "      THEN, "; n$; " HELPED"410? l$; " DOWN FROM THE TREE."420? " THEY RODE OFF ON THE "; a$430? " AND LIVED HAPPILY EVER AFTER."440? "("; b$; " WENT ON TO MAKE IT"450? " BIG IN PET FOOD COMMERCIALS.)"460?470? TAB(10); "*THE END*"ALLY BUGS YOU? "; b$140INPUT "WHO DO YOU HAVE A CRUSH ON? "; l$150? "WHAT'S YOUR LEAST FAVORITE"160INPUT "FOOD? "; f$170HOME180? TAB(3); "CONTINUE"720GET r$730 p=fp:GOTO 240799PR #1800HOME810? a; " FOR "; n; " MO. AT "; r; "%"815IF fp<>0 THEN ? "MONTHLY PAYMENT ="; fp820?825PR #0830RETURN900 w=INT(w): s$=STR$(w): k=LEN(s$)905 q=FRE(d$)910IF k=1 THEN  s$=bl$+".0"+s$:RETURN920IF k=2 THEN  s$=bl$+"."+s$:RETURN930 d$="."+MID$(s$, k-1)940 s$=MID$(s$, 1, k-2)+d$950 s$=MID$(bl$, 1, 8-k)+s$960RETURN1000 a=ABS(INT(a))1010IF a<1000000 THEN RETURN1020? "****TOO LARGE****"1030 a=0:RETURN2000 p=p+b: tp=tp+b: b=02010RETURN9990END T120TEXT:HOME: bl$=CHR$(32)125FOR j=1 TO 3: bl$=bl$+bl$:NEXT: bl$=MID$(bl$, 1, 6)130? TAB(5); "******LOAN-PRINT******"140?:?:?150INPUT "AMOUNT TO BE FINANCED?"; a155GOSUB 1000:IF a=0 THEN 150160?:INPUT "INTEREST RATE?"; r170?:INPUT "NUMBER OF MONTHS?"; n180 r=ABS(r): n=INT(n): m=r/1200:?190GOSUB 800200 w=(1+m)^n210 p=a*m*w/(w-1)220 p=INT(p*100+.99): p=p/100230? "MONTHLY PAYMENT IS "; p240 fp=p:?:?250? "NEXT ACTION:"260?270? "1-PRINT OUT"280? "2-CANCEL"290? "3-RESTART"300? "4-FINISHED"310 =20:DRAW 3 AT 180, 60170POKE 28006, 245-RND(0)*5:CALL 28000180IF RND(1)>.7 THEN GOSUB 1000190HCOLOR =4:ROT =50:DRAW 3 AT 70, 3200ROT =20:XDRAW 3 AT 180, 60210NEXT i:POKE 28006, 255:CALL 28000220POKE 28006, 144:CALL 28000230ROT =0:SCALE =2:FOR i=242 TO 62 STEP -4240FOR j=i TO i-3 STEP -1250POKE 28006, 128:CALL 28000260POKE 28006, 3512/j:CALL 28000:NEXT j270HCOLOR =3:DRAW 1 AT i, 6280HCOLOR =4:XDRAW 1 AT i, 6:NEXT i290POKE 28006, 159:CALL 28000300FOR i=14 TO 39 STEP 2:HCOLOR =3:DRAW 1 AT 63, iHEN 660580 w=b:GOSUB 900: b$=s$590 w=t:GOSUB 900: t$=MID$(s$, 2, 8)600 w=tt:GOSUB 900: tt$=CHR$(32)+s$610? j; TAB(4); b$; t$; tt$615IF b=0 THEN  j=n:GOTO 630620 h=h+1:IF h<16 THEN 660630?:? "PRESS 't' FOR TOTALS, OR"640? "SPACE FOR NEXT SCREEN"; 650GET r$:IF LEN(r$)=0 THEN 650655 h=0:GOSUB 450:IF r$="t" THEN ?:? "CALCULATING TOTALS..."660NEXT662GOSUB 799665PR #1670?:? "LAST PAYMENT ="; p/100680?:? "TOTAL PAYMENTS = "; tp/100690?:? "MONTHLY PAYMENT WAS "; fp700PR #0710?:? "PRESS ANY KEY TO *A TERMINAL TALE OF", n$; "*"190?200? "     ONCE UPON A TIME, IN THE "210? " CITY OF "; c$; " ,THERE LIVED"220? " A BRAVE SOUL NAME "; n$; ","230? " ONE DAY, AS "; n$; " WAS "240? " OUT RIDING A WILD "; a$; ","250? g$; " HEARD THE NEARBY SCREAMS "260? "OF "; l$; ". UPON ARRIVING AT "270? " THE SCENE, "; g$; "  FOUND"280? l$; " UP IN A TREE,"290? " MENACED BY A BARKING DOG,"300? "NAMED "; b$; " ,DOWN BELOW. "310?320? "(PRESS ANY KEY TO CONTINUE.)"330GET k$340HOME350? "      THINKING FAST,"; 10LOMEM :2900020DIM xy(4, 2):DIM m(28, 3)30POKE 16766, 109:POKE 16767, 10940FOR i=28000 TO 28093:READ a:POKE i, a:NEXT i50FOR i=1 TO 28:READ m(i, 1), m(i, 2), m(i, 3):NEXT i60FOR i=1 TO 4:READ xy(i, 1), xy(i, 2):NEXT i70HOME:HGR280HCOLOR =5:FOR i=1 TO 43:READ x, y, z90IF i<27 THEN HPLOT x, y TO x, z:GOTO 110100HPLOT x, y TO z, y110NEXT i120HPLOT 125, 22 TO 37, 110:HPLOT 125, 22 TO 213, 110130POKE 28006, 230:CALL 28000140SCALE =8:FOR i=1 TO RND(1)*14+8150HCOLOR =3:ROT =50:DRAW 3 AT 70, 3160ROTINPUT c: c=ABS(INT(c))320ON c GOTO 440, 400, 120, 370330? "CHOICES ARE 1,2,3,or 4"340GOTO 250370GOTO 9990400?:INPUT "MONTHLY PAYMENT? "; p410GOTO 240440GOSUB 450:GOTO 510450GOSUB 800460? TAB(5); "REMAINING"; TAB(17); 470? "---INTEREST---"480? "MO."; TAB(6); "BALANCE"; TAB(16); 490? "MONTH"; TAB(24); "TO-DATE"500RETURN510 b=a*100: tt=0: tp=0: h=0: p=p*100: r$=""520FOR j=1 TO n530 t=m*b540 t=INT(t+.5)550IF j=n THEN  p=b+t560 tp=tp+p: b=b-p+t: tt=tt+t565IF b<0 THEN GOSUB 2000570IF r$="t" T310HCOLOR =4:XDRAW 1 AT 63, i:NEXT i320HCOLOR =3:FOR i=1 TO 4330DRAW INT((i+1)/2) AT xy(i, 1), xy(i, 2)340 h(i, 1)=xy(i, 1): h(i, 2)=xy(i, 2):NEXT i350 p=1: g=1:CALL 28007360POKE 28006, m(p, 1):CALL 28000370POKE 28006, m(p, 2):CALL 28000380POKE 28006, 144:CALL 28000: t=m(p, 3)*25390HCOLOR =4:XDRAW INT((g+1)/2) AT h(g, 1), h(g, 2)400 dh=(INT(RND(1)*3)-1)*4: dv=(INT(RND(1)*3)-1)*4410 h(g, 1)=xy(g, 1)-dh: h(g, 2)=xy(g, 2)-dv420HCOLOR =3:DRAW INT((g+1)/2) AT h(g, 1), h(g, 2)430IF RND(1)>.7 THEN GOSU4,13,26000DATA     86,111,150,111,70,159,166,1597000DATA     44,104,191,52,144,176,56,52,56,60,56,887010DATA     60,144,176,66,88,124,76,88,124,80,56,687020DATA     84,52,56,96,144,176,104,144,176,112,88,1247030DATA     112,144,191,120,88,124,116,152,160,132,887040DATA     124,136,152,160,140,88,124,140,144,191,1487050DATA     144,176,156,144,176,176,88,124,184,887060DATA     124,193,144,176,200,144,176,208,104,1917070DATA     44,191,208,52,176,104,148,176,200,52,144,1047080DATA     112,144,140,143,53,53,53,54 ,62,62,39,55 4030DATA     63,60,62,39,39,36,108,9,60,110,41,60,6,04040DATA     60,60,60,36,37,37,5,216,155,624050DATA     46,46,31,56,62,62,6,0,05000DATA     143,15,2,131,14,2,134,13,6,131,14,65010DATA     143,15,6,143,15,2,131,14,2,134,13,25020DATA     138,10,2,131,14,2,134,13,2,143,15,65030DATA     134,13,2,143,11,2,138,10,25040DATA     138,10,2,138,10,2,128,10,2,138,10,25050DATA     143,11,2,131,14,2,134,13,2,133,11,25060DATA     143,11,2,143,11,2,138,10,25070DATA     143,11,2,13sd(j): k=INT(ns/2)181IF k*2<>ns THEN  d=d+12-rd(i):GOTO 200190 d=d+rd(i)200IF d>11 THEN  d=d-12210NEXT220 x=x+m*l*dx(d): y=y-l*dy(d):HPLOT  TO x, y: sn(nc)=sn(nc)+1:FOR c=nc TO 1 STEP -1:IF sn(c)<>7 THEN 240230 sn(c)=0: sn(c-1)=sn(c-1)+1:NEXT240IF sn(0)=0 THEN 180250FOR i=1 TO 5500:NEXT i:TEXT:RUN260GOTO 100270DATA      0,0,1,0,1,7,0,10,0,0,0,2,1,28,144,200,0,134,44,208,134,2527090DATA     68,124,120,132,124,184,68,88,120,132,88,1847100DATA     58,56,60,80,56,84,56,52,847110DATA     116,152,136,116,160,13600DATA     143,15,2,131,14,2,134,13,6,131,14,65010DATA     143,15,6,143,15,2,131,14,2,134,13,25020DATA     138,10,2,131,14,2,134,13,2,143,15,65030DATA     134,13,2,143,11,2,138,10,25040DATA     138,10,2,138,10,2,128,10,2,138,10,25050DATA     143,11,2,131,14,2,134,13,2,133,11,25060DATA     143,11,2,143,11,2,138,10,25070DATA     143,11,2,13B 1000440IF t>0 THEN  t=t-1:GOTO 440450 p=p+1-28*(p=28): g=g+1-4*(g=4)460POKE 28006, 159:CALL 28000470IF PEEK(64885)=0 THEN 360480HCOLOR =4:FOR i=1 TO 4490XDRAW INT((i+1)/2) AT h(i, 1), h(i, 2):NEXT i500GOTO 1401000HCOLOR =4+fe:HPLOT 123, 154:HPLOT 127, 1541010 fe= NOT fe:RETURN2000DATA      58,102,109,211,255,201,0,62,0,50,117,253,2013000DATA     3,0,8,0,35,0,62,04000DATA     44,44,44,45,53,53,53,53,54,62,60,55,39,63,624010DATA     60,55,39,36,108,9,60,110,41,60,6,04020DATA      44,44,44,45,550DIM dx(11), dy(11): m=7/660FOR n=0 TO 6:READ sd(n), rd(n): ln(n)=1/3:NEXT: ln(2)=SQR(ln(1))70 a=0:FOR d=6 TO 11: dx(d)=COS(a): dy(d)=SIN(a)80 a=a+.52359879:NEXT90FOR d=o TO 5: dx(d)=-dx(d+6): dy(d)=-dy(d+6):NEXT100TEXT:HOME110? " ENTER NUMBER OF CYCLES (1-4)"120INPUT "      OR ENTER A '0' TO QUIT: "; nc130IF nc=0 THEN END140IF nc>4 THEN 100150HGR2:HCOLOR =14160 x=235: y=142: tl=162:HPLOT x, y170FOR c=0 TO nc: sn(c)=0:NEXT180 d=0: l=tl: ns=0:FOR c=1 TO nc: i=sn(c): l=l*ln(i): j=sn(c-1): ns=ns+4,13,26000DATA     86,111,150,111,70,159,166,1597000DATA     44,104,191,52,144,176,56,52,56,60,56,887010DATA     60,144,176,66,88,124,76,88,124,80,56,687020DATA     84,52,56,96,144,176,104,144,176,112,88,1247030DATA     112,144,191,120,88,124,116,152,160,132,887040DATA     124,136,152,160,140,88,124,140,144,191,1487050DATA     144,176,156,144,176,176,88,124,184,887060DATA     124,193,144,176,200,144,176,208,104,1917070DATA     44,191,208,52,176,104,148,176,200,52,144,1047080DATA     112,144,140,145REM   Taken from "FAMILY COMPUTING" 9/8510DIM wd$(22), z$(32), pt(38), rc(22)20 sw=31: dl=800: bm=2130 all=0:FOR x=1 TO 22: rc(x)=040READ wd$(x):NEXT x: sp$=CHR$(32)50 rc(1)=2: rc(22)=2: z$(1)=",": z$(2)="."+sp$60FOR x=3 TO 32:READ z$(x):NEXT x70FOR x=1 TO 38:READ pt(x):NEXT x80 d$=z$(11):FOR x=1 TO 3890IF pt(x)>2 THEN  d$=d$+sp$100 d$=d$+z$(pt(x)):NEXT x: d$=d$+"?"110FOR x=1 TO 5120 t=INT(RND(1)*20)+2:IF rc(t)<>0 THEN 120130 rc(t)=1:NEXT x140FOR x=1 TO 22: t$="": a$=wd$(x)150 v=ASC(LEFT$(a$HEN ? " "; m$:RETURN2010 y=sw+1: z=1:FOR x=y TO 2 STEP -12020IF MID$(m$, x, 1)=sp$ THEN  z=0: y=x: x=22030NEXT x:? LEFT$(m$, y-1); 2040IF y-1<sw THEN ?2050 m$=RIGHT$(m$, LEN(m$)-y+z):GOTO 20003000VTAB vp:HTAB hp:RETURN4000GET k$:IF k$=CHR$(3) THEN END4010IF k$>CHR$(96) THEN  k$=CHR$(ASC(k$)-32)4020RETURN5000 vp=bm: hp=1:GOSUB 30005010 m$=" PRESS ANY KEY TO CONTINUE."5020GOSUB 2000:GOSUB 4000:RETURN6000DATA   yannj,preej,suhtm,gilha,prubj,sixem6010DATA       kapde,tjimn,pfeiu,pheiu,iarbn,rjavw(num$, 1):GOSUB 4010290IF k$="Q" THEN END300IF k$<>"H" THEN 190310FOR y=1 TO 11:FOR x=1 TO 2320 v=y+(x-1)*11: hp=sw-sw/x+1330 vp=y+1:GOSUB 3000:? v*2+99340IF rc(v)<2 THEN 360350 hp=hp+5:GOSUB 3000:? wd$(v)360NEXT x:NEXT y:GOSUB 5000:GOTO 190370 num=num-100:IF num<1 OR num>43 THEN 190380IF INT(num/2)=num/2 THEN 190390 num=(num+1)/2:IF num=22 THEN 630400IF rc(num)=0 THEN 470410IF rc(num)=1 THEN  rc(num)=3:GOSUB 440420 m$=" YOU ALREADY KNOW THAT THE PASSWORD"430 m$=m$+" HERE IS "+wd$(num)+".":GOHEN ? " "; m$:RETURN2010 y=sw+1: z=1:FOR x=y TO 2 STEP -12020IF MID$(m$, x, 1)=sp$ THEN  z=0: y=x: x=22030NEXT x:? LEFT$(m$, y-1); 2040IF y-1<sw THEN ?2050 m$=RIGHT$(m$, LEN(m$)-y+z):GOTO 20003000VTAB vp:HTAB hp:RETURN4000GET k$:IF k$=CHR$(3) THEN END4010IF k$>CHR$(96) THEN  k$=CHR$(ASC(k$)-32)4020RETURN5000 vp=bm: hp=1:GOSUB 30005010 m$=" PRESS ANY KEY TO CONTINUE."5020GOSUB 2000:GOSUB 4000:RETURN6000DATA   yannj,preej,suhtm,gilha,prubj,sixem6010DATA       kapde,tjimn,pfeiu,pheiu,iarbn,rjavw: all=1580FOR x=2 TO 21:IF rc(x)<2 THEN  all=0: x=21590NEXT x:IF  NOT all THEN 190600HOME: m$=" YOU NOW KNOW EVERY PASSWORD AND CAN"610 m$=m$+" GET YOUR SURPRISE AT THE LIBRARY."620GOSUB 2000:GOSUB 5000:GOTO 190630IF all THEN 670640 m$=" SORRY!  YOU CAN'T GET YOUR SUPRISE UNTIL"650 m$=m$+" YOU KNOW ALL THE PASSWORDS."660GOSUB 2000:GOSUB 5000:GOTO 190670FOR de=1 TO dl:NEXT de680 m$=d$:GOSUB 2000:END1000IF LEN(n$)=sw THEN ? " "; n$:RETURN1010? TAB((sw-LEN(n$))/2+1); n$:RETURN2000IF LEN(m$)<=sw T, 1))-64:FOR y=2 TO LEN(a$)160 n=ASC(MID$(a$, y, 1))-v170 t$=t$+CHR$(n+26*(n<65)):NEXT y180 wd$(x)=t$:NEXT x190HOME: n$=" PASSWORDS TO PONDER":GOSUB 1000:?200 m$=" WHAT PLACE ON APPLECREEK ROAD WHOULD YOU"210 m$=m$+" LIKE TO VISIT?":GOSUB 2000:?220 m$=" (TYPE THE NUMBER, <H> FOR A HINT,"230 m$=m$+" OR <Q> TO QUIT; THEN PRESS <RETURN>.)"240 vp=bm: hp=1:GOSUB 3000:GOSUB 2000250 vp=6: hp=1:GOSUB 3000260INPUT " NUMBER: "; num$:IF num$="" THEN 250270HOME: num=VAL(num$):IF num<>0 THEN 370280 k$=LEFT$6020DATA      sabwx,ltudq,uadmz,gmpsl,lruxy,sybkf6030DATA      lrmdy,qnrid,xumpk,liadp7000DATA      a,by,is,in,of,can,you,the,two7010DATA      eyes,from,life,name,peer,went,your7020DATA      books,crack,crate,guess,later7030DATA      beside,ehrich,having,nailed7040DATA      escaped,seconds,through,standing,suddenly8000DATA      12,16,30,3,20,6,18,21,7,19,2,298010DATA       23,25,5,31,24,9,1,26,32,28,13,10,278020DATA       21,2,8,9,22,10,15,25,17,4,23,6,14N(n$))/2+1); n$:RETURN2000IF LEN(m$)<=sw TTO 460440 n$=" HELLO, MOTHER.":GOSUB 1000450 m$=" THE PASSWORD HERE IS "+wd$(num)+"."460GOSUB 2000:GOSUB 5000:GOTO 570470 m$=" HELLO, MRS. WEISS! WHAT DO YOU THINK "480 m$=m$+" MY SECRET PASSWORD IS?":GOSUB 2000490?:INPUT t$:HOME500 lt=LEN(t$):IF lt=0 THEN 540510 pass$="":FOR x=1 TO lt: k$=MID$(t$, x, 1)520GOSUB 4010: pass$=pass$+k$:NEXT x530IF pass$=wd$(num) THEN 560540 n$=" SORRY, YOU'RE WRONG!":GOSUB 1000550GOSUB 5000:GOTO 190560 n$=" YOU GUESSED IT!":GOSUB 1000:GOSUB 5000570HOME: rc(num)=215005LOMEM :2900015010REM    BIRTHDAY15090 max=100: max%=max15100DIM music%(max, 2)15210 time%=1: frequency%=215610DATA   8,196,eg315612DATA   8,196,eg315614DATA   16,220,qa315616DATA   16,196,qg315618DATA   16,261,qc415620DATA   32,246,hb315630DATA   8,196,eg315632DATA   8,196,eg315634DATA   16,220,qa315636DATA   16,196,qg315638DATA   16,294,qd415640DATA   32,262,hc415642DATA   8,196,eg315644DATA   8,196,eg315646DATA   16,392,qg415648DATA   16,329,qe415650DATA   16,262,qc415652DATA    Computing":?:?104INVERSE105? "   the ADAM by D.Zimmerman  ":FOR zz=1 TO 4000:NEXT    zz:NORMAL107POKE 16953, 42110FOR ac=1 TO mc-1120 cl(ac)=ac+1130NEXT ac140 cl(mc)=0: ac=1150FOR an=1 TO mn-1160 nl(an)=an+1170NEXT an180 nl(mn)=0: an=1: kn=0: kc=0: sl=0190HOME200POKE 17059, 12:POKE 17115, 31:POKE 17126, 252:TEXT205?:? " DIRECTORY CONTAINS "; kn; " NAMES "210? "    IN "; kc; " SOUNDEX FOLDERS."220? " ROOM FOR "; mn-kn; " MORE NAMES"225INVERSE230? " ============================ ":NORMAL:?27850 duration=music%(music, time%)17860GOSUB 21000:REM    MAKE SOUND17870NEXT music17880INPUT "PLAY AGAIN (Y/N)?"; ans$17890IF ans$="Y" OR ans$="y" THEN RETURN17900 exit%=true%17990RETURN21000REM      PLAY NOTE OR SOUND21005 pitch%=mhertz/(32*pitch%)21010 second%=pitch%/1621020 first%=128+register%+(pitch%-second%*16)21030POKE chip%, first%:CALL sound%21040POKE chip%, second%:CALL sound%21050POKE chip%, loud%:CALL sound%21100FOR delay=1 TO duration*tempo:NEXT delay21120POKE chip%, quiet%:CALL:HTAB 6410FLASH:? " FIND SIMILAR NAMES ":NORMAL:?:?420?:? "      ENTER LAST NAME OR"430? "      "; :INVERSE:? "<RETURN>"; :NORMAL:? " FOR        MENU.":?440 n$=nu$: x$=""450INPUT x$460IF x$=nu$ THEN RETURN470GOSUB 2590480 n$=x$: x$=""490GOSUB 1440500GOSUB 1650510IF ok=yes THEN GOTO 540520?:?:?:? "THERE IS NO SOUNDEX FOLDER FOR THAT NAME.":?530GOTO 420540? "UNDER CODE "; c$; " ARE THE "550? " FOLLOWING NAMES:":?555SPEED =90560 cn=nr(cc)570IF cn=0 THEN GOTO 610580? na$(cn); " "; nf$(cn); " 8POKE 17059, 13:POKE 17115, 31:POKE 17126, 252:TEXT10HOME:VTAB 11:HTAB 3:INVERSE20? "SOUNDEX TELEPHONE ASSISTANT"30FOR z=1 TO 3000:NEXT:NORMAL40POKE 17059, 8:POKE 17115, 29:POKE 17126, 244:TEXT50 d$=CHR$(4)60 mn=100: mc=100: yes=1: no=0: nu$=""70 s$="01230120022455012623010202"80DIM co$(mc), nr(mc), cl(mc), na$(mn), nl(mn), nf$(mn),     ph$(mn)85INVERSE90?:?:? "  Adapted and modified for  ":?:?:?:NORMAL100? "  SOUNDEX TELEPHONE ASSISTANT"102? "  was published in January"103? "  issue of Popular16,247,qb315654DATA   24,220,q.a315656DATA   8,349,ef415658DATA   8,349,ef415660DATA   16,330,qe415662DATA   16,262,qc415664DATA   16,294,qd415666DATA   48,262,h.c415800FOR music=1 TO 2515810READ music%(music, time%), music%(music, frequency%)15820READ note$15830NEXT music15900GOSUB 31700: true%=116000REM     SOUND MAIN LOOP16610GOSUB 17800:REM    INPUT16630IF exit% THEN END16990GOTO 1600017800REM     PLAY17810REM  17820FOR music=1 TO 2517830 pitch%=music%(music, frequency%)17840REM  140? "   1. FIND SIMILAR NAMES":?250? "   2. ADD NAMES":?260? "   3. DELETE NAMES":?270? "   4. LIST ENTIRE DIRECTORY"280? "       BY SOUNDEX FOLDER.":?290? "   5. SAVE NAMES TO DISK":?300? "   6. LOAD NAMES FROM DISK":?310? "   7. CLEAR MEMORY":?320? "   8. END."330?340INPUT "     SELECT 1-8 -> "; se350HOME360IF se=8 THEN GOTO 4050370IF se<1 OR se>7 THEN GOTO 190380ON se GOSUB 400, 630, 980, 1270, 2030, 2230, 2650390GOTO 200400POKE 17059, 15:POKE 17115, 23:POKE 17126, 244:TEXT405HOME:VTAB 2 sound%21300RETURN31700REM     INITIALIZE SOUND VALUES31710DATA    58,102,109,211,255,20131720 loud%=144: quiet%=15931730 sound%=2800031740 chip%=2800631750 mhertz=359700031760 tempo=2031800REM    LOAD Z-80 MICROPROCESSOR PROGRAM31810FOR address=sound% TO sound%+531820READ byte%31830POKE address, byte%31840NEXT address31990RETURNOSUB 17800:REM    INPUT16630IF exit% THEN END16990GOTO 1600017800REM     PLAY17810REM  17820FOR music=1 TO 2517830 pitch%=music%(music, frequency%)17840REM  1"; ph$(cn)590 cn=nl(cn)600GOTO 570610?:? "END OF LIST"615SPEED =255620GOTO 420630HOME:POKE 17059, 6:POKE 17115, 31:POKE 17126, 246:TEXT635VTAB 2:HTAB 10640FLASH:? " ADD NAMES ":NORMAL:?:?650? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " FOR       MENU.":?660 n$=nu$: nf$=nu$: ph$=nu$670INPUT "ENTER LAST NAME: "; x$680IF x$="" THEN RETURN690GOSUB 2590700 n$=x$: x$=""710INPUT "ENTER FIRST NAME: "; x$720IF x$="" THEN RETURN730GOSUB 2590740 nf$=x$: x$=""750INPUT "ENTER PHONE # : "; ph$760?7201400SPEED =255: pz=01410?:?:HTAB 8:FLASH:? "  END OF LIST  ":NORMAL:?:PR #01420? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " TO       CONTINUE ":GET zz$1430RETURN1440 l1$=nu$1450FOR c=1 TO LEN(n$)1460 c$=MID$(n$, c, 1)1470 sq=ASC(c$)-ASC("A")+11480IF sq<1 OR sq>26 THEN GOTO 15001490 l1$=l1$+MID$(s$, sq, 1)1500NEXT c1510 l2$=LEFT$(l1$, 1): lc$=l2$1520FOR c=2 TO LEN(l1$)1530 c$=MID$(l1$, c, 1)1540IF c$=lc$ THEN GOTO 15601550 l2$=l2$+c$: lc$=c$1560NEXT c1570 l3$=LEFT$(n$, 1)1580FOR c=2 T059, 4:POKE 17115, 26:POKE 17126, 244:TEXT985VTAB 2:HTAB 8990FLASH:? " DELETE A NAME ":NORMAL:?:?1000? "       ENTER LAST NAME: "1010?:? " OR ENTER "; :INVERSE:? " <RETURN> "; :NORMAL:? "   FOR MENU.":?:?1020 n$=nu$: x$=""1030INPUT x$1040IF x$=nu$ THEN RETURN1050GOSUB 25901060 n$=x$: x$=""1070? "ENTER FIRST NAME:"1080 nf$=nu$: x$=""1090INPUT x$1100IF x$=nu$ THEN RETURN1110GOSUB 25901120 nf$=x$: x$=""1130GOSUB 14401140GOSUB 16501150IF ok=yes THEN GOTO 11901160?:? "DON'T HAVE ANYTHING LIKE no: cn=nr(cc): pn=01780IF cn=0 THEN RETURN1790IF na$(cn)+nf$(cn)<>n$+nf$ THEN GOTO 18101800 ok=yes:RETURN1810IF na$(cn)+nf$(cn)>n$+nf$ THEN RETURN1820 pn=cn: cn=nl(cn):GOTO 17801830IF an<>0 THEN GOTO 18501840 ok=no:RETURN1850 ok=yes: sn=an: an=nl(an): kn=kn+1: na$(sn)=n$:          nf$(sn)=nf$: ph$(sn)=ph$: nl(sn)=cn: cn=sn1860IF pn<>0 THEN GOTO 18801870 nr(cc)=cn:RETURN1880 nl(pn)=cn:RETURN1890IF pn<>0 THEN GOTO 19201900 nr(cc)=nl(cn)1910GOTO 19301920 nl(pn)=nl(cn)1930 na$(cn)=nu$: nf$(cn)=nLASH:? " BY SOUNDEX CODES     ":NORMAL:?:?1286IF sl=0 THEN GOTO 14101288INPUT "   (P)rinter or (S)creen? "; zz$1290IF zz$="P" OR zz$="p" THEN  pz=1:GOSUB 3000:GOTO 13101300SPEED =901310 cc=sl:IF pz=1 AND zc=0 THEN GOTO 13401320? co$(cc)1330? "----"1340 cn=nr(cc)1350? na$(cn); " "; nf$(cn); " "; ph$(cn)1360 cn=nl(cn)1370IF cn>0 THEN GOTO 13501372 cc=cl(cc)1374IF pz=0 THEN ?1390IF cc>0 AND pz=0 THEN GOTO 13201395IF cc>0 AND pz=1 AND zc=0 THEN GOTO 13401397IF cc>0 AND pz=1 AND zc=1 THEN GOTO 1370GOSUB 1440780GOSUB 1650790IF ok=yes THEN GOTO 870800IF an>0 THEN GOTO 820810GOTO 950820GOSUB 1710830IF ok=yes THEN GOTO 870840? "NO MORE SOUNDEX FOLDERS LEFT."850? "PRESS <RETURN> TO CONTINUE.":GET zz$860RETURN870GOSUB 1770880IF ok=yes THEN GOTO 930890GOSUB 1830900IF ok=no THEN GOTO 950910? "NAME ADDED. ENTER NEXT NAME:":?920GOTO 650930? "NAME ALREADY EXISTS. ENTER NEXT NAME:":?940GOTO 650950? "NO MORE NAME CARDS LEFT."960? "PRESS <RETURN> TO CONTINUE.":GET zz$970RETURN980HOME:POKE 17O LEN(l2$)1590 c$=MID$(l2$, c, 1)1600IF c$="0" THEN GOTO 16201610 l3$=l3$+c$1620NEXT c1630 l3$=LEFT$(l3$+"000", 4)1640 c$=l3$:RETURN1650 ok=no: cc=sl: pc=01660IF cc=0 THEN RETURN1670IF co$(cc)<>c$ THEN GOTO 16901680 ok=yes:RETURN1690IF co$(cc)>c$ THEN RETURN1700 pc=cc: cc=cl(cc):GOTO 16601710IF ac<>0 THEN GOTO 17301720 ok=no:RETURN1730 ok=yes: sc=ac: ac=cl(ac): kc=kc+1: co$(sc)=c$:          cl(sc)=cc: nr(sc)=0: cc=sc1740IF pc<>0 THEN GOTO 17601750 sl=cc:RETURN1760 cl(pc)=cc:RETURN1770 ok=      THAT NAME.":?:?1170? "PRESS "; :INVERSE:? " <RETURN> "; :NORMAL:? " TO      CONTINUE.":GET zz$1180RETURN1190GOSUB 17701200IF ok=yes THEN GOTO 12401210? "DON'T HAVE THAT NAME."1220? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " TO       CONTINUE ":GET zz$1230RETURN1240GOSUB 18901250?:?:HTAB 7:FLASH:? " NAME DELETED ":NORMAL:FOR zz=1 TO   2500:NEXT zz1260RETURN1270HOME:POKE 17059, 13:POKE 17115, 31:POKE 17126, 246:TEXT1275VTAB 2:HTAB 5:FLASH1280? " LIST ENTIRE DIRECTORY":NORMAL1284HTAB 5:Fu$: ph$(cn)=nu$: nl(cn)=an:       an=cn: kn=kn-11940IF nr(cc)<>0 THEN RETURN1950IF cc<>sl THEN GOTO 19801960 sl=cl(cc)1970GOTO 19901980 cl(pc)=cl(cc)1990 co$(cc)=nu$: cl(cc)=ac2000 ac=cc2010 kc=kc-12020RETURN2030HOME:POKE 17059, 8:POKE 17115, 29:POKE 17126, 244:TEXT2035IF kn>0 THEN GOTO 20602040VTAB 12:HTAB 5:FLASH:? " THE DIRECTORY IS EMPTY.         ":NORMAL2050FOR zz=1 TO 2500:NEXT zz:RETURN2060HTAB 6:FLASH:? "SAVE NAMES TO DISK ":NORMAL:?:?2063ONERR  GOTO 40002065? d$; "catalog "2067CLRE17126, 31:POKE 16953, 95:TEXT65535END0? d$; "close "; fi$2440RETURN2450GOSUB 17702460IF ok=yes THEN GOTO 25002470GOSUB 18302480IF ok=no THEN GOTO 25102490? "--OK":GOTO 23302500? "--CANCEL: DUPLICATE NAME.":GOTO 23302510? "--CANCEL: NO MORE NAME CARDS LEFT."2520? d$; "close "; fi$2530RETURN2540?2550IF ERRNUM(0)=5 THEN ? " END OF FILE "; fi$2555IF ERRNUM(0)<>5 THEN ? d$; "close "; fi$:GOTO 40502560? d$; "close "; fi$2580RETURN2590 x2$="": x3$=""2600FOR i=1 TO LEN(x$)2610 x2$=MID$(x$, i, 1? " LOAD NAMES FROM DISK ":NORMAL2237ONERR  GOTO 40002240? d$; "catalog"2243CLRERR2250?:? "NAME FOR INPUT FILE"2260? " PRESS "; :FLASH:? " <RETURN> "; :NORMAL:? " FOR      MENU."2270 fi$=nu$2280INPUT fi$2290IF fi$=nu$ THEN RETURN2300ONERR  GOTO 25502310? d$; "open "; fi$2320? d$; "read "; fi$2330INPUT n$, nf$, ph$2340? n$; ","; nf$; ","; ph$2350GOSUB 14402360GOSUB 16502370IF ok=yes THEN GOTO 24502380IF an>0 THEN GOTO 24002390GOTO 25102400GOSUB 17102410IF ok=yes THEN GOTO 24502420? "--CA? "INITIAL CONFIGURATION IS ALL"220? "BLANK EXCEPT FOR THE CENTER"225? "FOUR SQUARES, WHICH FORM THE"230? "PATTERN BELOW.................."245?250? "             O X"254?260? "             X O"265GOSUB 3250266?:?267? "TRY TO PLACE YOUR PIECE SO"268? "THAT IT OUTFLANKS MINE, CLEAR-"270? "ING A HORIZONTAL, VERTICAL OR"275? "DIAGONAL RUN OF MY PIECES"280? "BOUNDED AT EACH END BY AT"285? "LEAST ONE OF YOURS, THIS WILL"290? "'FLIP' MY PIECES, TURNING THEM"300? "INTO YOURS."305?310? "NOTE: YOU )2620IF x2$>="a" AND x2$<="z" THEN  x2$=CHR$(ASC(x2$)-32)2630 x3$=x3$+x2$:NEXT i2640 x$=x3$:RETURN2650RUN3000HOME:VTAB 113010? "   DO YOU WANT SOUNDEX CODES"3020? "   INCLUDED IN THE LISTING? "3030INPUT ""; zc$3040IF zc$="Y" OR zc$="y" THEN  zc=13045IF zc$<>"Y" AND zc$<>"y" THEN  zc=03050PR #13060RETURN4000IF ERRNUM(0)=8 THEN FLASH:? " PLEASE PUT A DISK IN       !!":NORMAL4005IF ERRNUM(0)<>8 THEN GOTO 40504010? " PRESS ANY KEY "4020INPUT zz$4040RESUME4050POKE 17059, 0:POKE 17115, 241:POKE RR2070? "ENTER NAME FOR THE OUTPUT FILE":? "OR "; :INVERSE:? " <RETURN> "; :NORMAL:? " FOR MENU."2080 fo$=nu$2090INPUT ""; fo$2100IF fo$=nu$ THEN RETURN2110? d$; "open "; fo$2120? d$; "write "; fo$2130 cc=sl2140 cn=nr(cc)2150? na$(cn); ","; nf$(cn); ","; ph$(cn)2160 cn=nl(cn)2170IF cn>0 THEN GOTO 21502180 cc=cl(cc)2190IF cc>0 THEN GOTO 21402200? d$; "close "; fo$2210? "DIRECTORY SAVED IN "; fo$2220RETURN2230HOME:POKE 17059, 11:POKE 17115, 24:POKE 17126, 244:TEXT2233VTAB 2:HTAB 5:FLASH2235100POKE 17059, 4:POKE 17115, 19:POKE 17126, 246:TEXT110CLEAR120DIM a(9, 9), i4(8), j4(8), c$(8), d$(2)139? "*******************************"140? "*** GREATINGS FROM OTHELLO ****"141? "*******************************"142?:?143? "    USE LOWER CASE LETTERS"146?147?150? "NEED INSTRUCTIONS? (Y or N)"; 160INPUT x$165?170IF x$="N" OR x$="n" THEN 390180IF x$<>"Y" AND x$<>"y" THEN 160190?200? "OTHELLO IS PLAYED ON AN 8 X 8"205? "CHECKER BOARD ROWS NUMBERED 1"210? "TO 8 AND COLUMNS a TO h. THE"215NCEL: NO MORE SOUNDEX FOLDERS LEFT."2430? d$; "close "; fi$2440RETURN2450GOSUB 17702460IF ok=yes THEN GOTO 25002470GOSUB 18302480IF ok=no THEN GOTO 25102490? "--OK":GOTO 23302500? "--CANCEL: DUPLICATE NAME.":GOTO 23302510? "--CANCEL: NO MORE NAME CARDS LEFT."2520? d$; "close "; fi$2530RETURN2540?2550IF ERRNUM(0)=5 THEN ? " END OF FILE "; fi$2555IF ERRNUM(0)<>5 THEN ? d$; "close "; fi$:GOTO 40502560? d$; "close "; fi$2580RETURN2590 x2$="": x3$=""2600FOR i=1 TO LEN(x$)2610 x2$=MID$(x$, i, 1MUST CAPTURE AT"315? "LEAST ONE OF MY PIECES IN THIS"320? "WAY IF IT IS AT ALL POSSIBLE"325? "ENTERING 0 0 FOR YOUR (ROW "330? "COLUMN) MOVE. WRITE YOUR ENTRY"340? "LIKE THIS - 5d. IF YOU CAN'T "341? "MAKE A LEGAL MOVE PRESS RETURN"342? "PRIOR TO MAKING AN ENTRY."350?390? "SHOULD I WAIT BEFORE MAKING MY"392? "MOVES? (Y or N)"; 400 f2=0410INPUT x$412?415 f2=0420IF x$="Y" OR x$="y" THEN GOSUB 3260:GOTO 410430IF x$="N" OR x$="n" GOTO 460440 f2=1460? "SHALL I PLAY MY BEST STRATEGY?"470? "    x$<>"a" AND x$<>"b" AND x$<>"c" AND x$<>"d" AND x$<>"e" AND x$<>"f" AND x$<>"g" AND x$<>"h" THEN 17601750IF i<>0 THEN 18201760? "ARE YOU FORFEITING YOUR TURN "1761? "   ( Y or N )"; 1762?1770INPUT x$1780IF x$<>"Y" AND x$<>"y" THEN 16401790IF z=1 THEN 21901800 z=11810GOTO 10001820FOR j=1 TO 81830IF c$(j)=x$ THEN 18701840NEXT j1850GOTO 16401870IF a(i, j)=0 THEN 19101880? "SORRY, THAT SQUARE IS OCCUPIED"1881? "TRY AGAIN"1890GOTO 16401910GOSUB 26201920IF f1=1 THEN 19701930? "SORRY, YOU ARE N 5)=w770 a(4, 5)=b780 a(5, 4)=b790 c1=2800 h1=2810 n1=4820 z=0840? "DO YOU WANT TO HAVE X or O"; 850 c=w860 h=b870INPUT x$875?880IF x$="X" OR x$="x" THEN 920890IF x$<>"O" AND x$<>"o" THEN 870900 c=b910 h=w920? "DO YOU WANT TO GO FIRST"922? "    (Y or N)"; 930INPUT x$935?:?:?940IF x$="N" OR x$="n" THEN 1020950IF x$<>"Y" AND x$<>"y" THEN 930970GOSUB 3100980GOTO 16901000IF f2=0 THEN 10201005? "PRESS RETURN FOR ME TO PLAY!"; 1010INPUT x$1012?1015? "HOLD ON - I`M THINKING!"1020 b1=-1? " PIECES"2250IF h1=c1 THEN 22902260IF h1>c1 THEN 23102270? "SORRY, I WON THAT ONE."2280GOTO 23202290? "A TIE ! ! ***"2300GOTO 25002310? "**** YOU WON !  ! ****"2320 c1=c1-h12330IF c1>0 THEN 23502340 c1=-c12350 c1=(64*c1)/n12360? "THAT WAS A "; 2370IF c1<11 THEN 24902380IF c1<25 THEN 24702390IF c1<39 THEN 24502400IF c1<53 THEN 24302410? "PERFECT GAME"2420GOTO 25002430? "WALKAWAY"2440GOTO 25002450? "FIGHT"2460GOTO 25002470? "HOT GAME"2480GOTO 25002490? "SQUEAKER"2500?2510? "DO YOU901450 z=11460GOTO 16901480 z=01485?:?:?:?:?:?:?:?:?:?:?1490? "I WILL MOVE TO "; 1500? i3; 1520? c$(j3)1530 i=i31540 j=j31550 u=11560GOSUB 28201570 c1=c1+s1+11580 h1=h1-s11590 n1=n1+11600? "THAT GIVES ME "; 1610? s1; 1620? " OF YOUR PIECES"1640GOSUB 31001660IF h1=0 THEN 21901670IF n1=64 THEN 21901690 t1=h1700 t2=c1710? "YOUR MOVE -- (ROW COLUMN)"; 1712?1720INPUT x$1721 i=VAL(LEFT$(x$, 1))1722 x$=MID$(x$, 2, 1)1725?:?:?:?:?:?:?:?:?1730IF i<0 THEN 17601740IF i>8 THEN 17601745IF    (Y or N)"; 471 s2=0480INPUT x$485?490IF x$="N" OR x$="n" THEN 520500IF x$<>"Y" AND x$<>"y" THEN 480510 s2=2520 b=-1530 w=1540 d$(b+1)="X"550 d$(o+1)="."560 d$(w+1)="O"570FOR k=1 TO 8580READ i4(k)590NEXT k600DATA              0,-1,-1,-1,0,1,1,1610FOR k=1 TO 8620READ j4(k)630NEXT k640DATA              1,1,0,-1,-1,-1,0,1650FOR k=1 TO 8660READ c$(k)670NEXT k680DATA                   a,b,c,d,e,f,g,h700FOR i=0 TO 9710FOR j=0 TO 9720 a(i, j)=0730NEXT j740NEXT i750 a(4, 4)=w760 a(5,OT NEXT TO ONE"1931? "OF MY PIECES:  TRY AGAIN"1950GOTO 16401970 u=-11980GOSUB 28201990IF s1>0 THEN 20302000? "SORRY, THAT DOES NOT FLANK A"2001? "ROW:  TRY AGAIN"2010GOTO 16402030 z=02040? "THAT GIVES YOU "; 2050? s1; 2060? " OF MY PIECES."2070 u=12080GOSUB 28202090 h1=h1+s1+12100 c1=c1-s12110 n1=n1+12115? "YOU HAVE "; h1; " AND I HAVE "; c12130GOSUB 31002150IF c1=0 THEN 21902160IF n1=64 THEN 21902170GOTO 10002190?2200? "YOU HAVE "; 2210? h1; 2220? " AND I HAVE "; 2230? c1; 22401030 i3=0: j3=01040 t1=c1050 t2=h1070 i=11075IF i=9 THEN 14101080FOR j=1 TO 81090IF a(i, j)<>0 THEN 13801120GOSUB 26201130IF f1=0 THEN 13801170 u=-11180GOSUB 28201200IF s1=0 THEN 13801210IF (i-1)*(i-8)<>0 THEN 12301220 s1=s1+s21230IF (j-1)*(j-8)<>0 THEN 12601240 s1=s1+s21260IF s1<b1 THEN 13801270IF s1>b1 THEN 13401310 r=RND(1)1320IF r>.5 THEN 13801340 b1=s11350 i3=i1360 j3=j1380NEXT j1382 i=i+11390GOTO 10751410IF b1>0 THEN 14801430? "I HAVE TO FORFEIT MY MOVE!"1440IF z=1 THEN 21 WANT TO PLAY ANOTHER "2515? "GAME ( Y or N )"; 2520INPUT x$2530IF x$="Y" OR x$="y" THEN 1002540IF x$<>"N" AND x$<>"n" THEN 25202550? "THANKS FOR PLAYING."2560END2620FOR i1=-1 TO 12630FOR j1=-1 TO 12640IF a(i+i1, j+j1)=t2 THEN 27102650NEXT j12660NEXT i12680 f1=02690RETURN2710 f1=12720RETURN2820 s1=02830FOR k=1 TO 82840 i5=i4(k)2850 j5=j4(k)2860 i6=i+i52870 j6=j+j52880 s3=02890IF a(i6, j6)<>t2 THEN 30702910 s3=s3+12920 i6=i6+i52930 j6=j6+j52940IF a(i6, j6)=t1 THEN 29702950IF a(i6,=y2:IF y2>2000 THEN 117119?:? a$:? "....YOU ARE ON YOUR WAY"120 gt=2:GOSUB 134121GOSUB 143122HOME123? "YOU HAVE ARRIVED AT . . . ."124?125? "THE TIME DUNGEON: ":? TAB(11); bz$126? "FOR THE YEARS:    "; bw$127?128? "YOU CARRY 1000 GOLD PIECES":?129? "YOU WILL ENCOUNTER . . ."130? "TIME PORTALS WHICH TELEPORT"131? "YOU TO EVENTS IN . . . . . . .":? bz$132 gt=8:GOSUB 134133GOTO 199134FOR zz=1 TO 908*gt135NEXT zz136RETURN137? "O   "; :RETURN138? "AP  "; :RETURN139? "?   "; :RETURN140? "NS TURN WHEN READY TO PLAY"; :RETURNE ( Y or N )"; 2520INPUT x$2530IF x$="Y" OR x$="y" THEN 1002540IF x$<>"N" AND x$<>"n" THEN 25202550? "THANKS FOR PLAYING."2560END2620FOR i1=-1 TO 12630FOR j1=-1 TO 12640IF a(i+i1, j+j1)=t2 THEN 27102650NEXT j12660NEXT i12680 f1=02690RETURN2710 f1=12720RETURN2820 s1=02830FOR k=1 TO 82840 i5=i4(k)2850 j5=j4(k)2860 i6=i+i52870 j6=j+j52880 s3=02890IF a(i6, j6)<>t2 THEN 30702910 s3=s3+12920 i6=i6+i52930 j6=j6+j52940IF a(i6, j6)=t1 THEN 29702950IF a(i6, ad$, i1$:? i2$, i3$:RETURN168? i2$, ad$:? i1$, i3$:RETURN169? i1$, i2$:? ad$, i3$:RETURN170? i3$, i1$:? i2$, ad$:RETURN171HOME173 gt=1174GOSUB 134175FOR b=1 TO 70: b4=INT(RND(1)*23+1)176 b7=INT(RND(1)*39+1):VTAB b4:? TAB(b7); "."; 177?:NEXT b:?178 gt=5E-03: y5=25179IF y3=yy THEN VTAB 1:? "ALREADY AT . . . . ":GOTO 196180IF y3<yy THEN 188181IF (y3-yy)<=50 THEN 185182 y3=y3-y5183GOSUB 382184IF y3=yy THEN 195185IF (y3-yy)<=50 THEN  y5=1186IF (y3-yy)<=5 THEN  gt=.4187GOTO 182188IF (yy-y3)<=50POKE 17059, 4:TEXT100HOME: bz$="AMERICAN HISTORY": bw$="1607 TO 1850"101? "THE TIME DUNGEON: ":? TAB(11); bz$:?102? "MODIFIED FOR THE               ADAM 1985"104?105? "AN EDUCATIONAL FANTASY GAME"106 gt=5:GOSUB 134: q3=0107HOME:DIM a(9, 9), b(50):GOSUB 451108? "YOU WILL BE TELEPORTED TO ...."109?110? "THE TIME DUNGEON . . . ."111? "TO STUDY "; bz$112GOSUB 1000113 ca=0: g=1000: m1=1: k=0: kl=1: tt=0: tr=0114? "ENTER YOUR CHARACTER'S NAME?"116INPUT a$117? "ENTER PRESENT YEAR"118INPUT y2: yy j6)=0 THEN 30702960GOTO 29102970 s1=s1+s32980IF u<>1 THEN 30703000 i6=i3010 j6=j3020FOR k1=0 TO s33030 a(i6, j6)=t13040 i6=i6+i53050 j6=j6+j53060NEXT k13070NEXT k3080RETURN3100?3110? TAB(37); "  a b c d e f g h"3120FOR i=1 TO 83130? TAB(37); i; 3140FOR j=1 TO 83150? " "; 3160? d$(a(i, j)+1); 3170NEXT j3180?3190NEXT i3200?3210RETURN3220END3230FOR z=1 TO 5000:NEXT:RETURN3235FOR z=1 TO 10000:NEXT:RETURN3240FOR z=1 TO 25000:NEXT:RETURN3250FOR z=1 TO 20000:NEXT:RETURN3260? "PUSH RE "; :RETURN141? "EW  "; :RETURN142? "X   "; :RETURN143REM       SET UP DUNGEON144FOR x=1 TO 8145FOR y=1 TO 8146 a(x, y)=INT(RND(1)*7+1)147NEXT y148NEXT x149REM       TRAPS150 h=INT(RND(1)*3+1)+1151FOR n=1 TO h152 x=INT(RND(1)*8+1)153 y=INT(RND(1)*8+1)154 a(x, y)=8155NEXT n156REM      EXITS157 s=INT(RND(1)*4+1)+1158FOR n=1 TO s159 x=INT(RND(1)*8+1)160 y=INT(RND(1)*8+1)161 a(x, y)=9162NEXT n163RETURN164 r6=INT(RND(1)*4+1):? qd$; "?:":?165ON r6 GOSUB 167, 168, 169, 170166GOTO 433167? j6)=0 THEN 30702960GOTO 29102970 s1=s1+s32980IF u<>1 THEN 30703000 i6=i3010 j6=j3020FOR k1=0 TO s33030 a(i6, j6)=t13040 i6=i6+i53050 j6=j6+j53060NEXT k13070NEXT k3080RETURN3100?3110? TAB(37); "  a b c d e f g h"3120FOR i=1 TO 83130? TAB(37); i; 3140FOR j=1 TO 83150? " "; 3160? d$(a(i, j)+1); 3170NEXT j3180?3190NEXT i3200?3210RETURN3220END3230FOR z=1 TO 5000:NEXT:RETURN3235FOR z=1 TO 10000:NEXT:RETURN3240FOR z=1 TO 25000:NEXT:RETURN3250FOR z=1 TO 20000:NEXT:RETURN3260? "PUSH RE50 THEN 192189 y3=y3+y5190GOSUB 382191IF y3=yy THEN 195192IF (yy-y3)<=50 THEN  y5=1193IF (yy-y3)<=5 THEN  gt=.4194GOTO 189195?:? "ARRIVAL . . . . AT"196? "DESTINATION YEAR . . . . "; yy197 gt=4:GOSUB 134198HOME:RETURN199 c=INT(RND(1)*8+1): d=INT(RND(1)*8+1): a(c, d)=1200 k4=INT(RND(1)*4+1)+3201HOME: a=a(c, d): gt=1:GOSUB 134202ON a GOSUB 292, 300, 410, 410, 306, 330, 335, 338, 362203IF kl=0 THEN 567204?:IF tt=1 THEN  tt=0:GOTO 201205IF g<=0 THEN 264206? a$; ", WHAT IS YOUR ACTION OR MOVE?"IN THIS   CHAMBER"308 a(c, d)=INT(RND(1)*2+1):GOSUB 478309 gt=1:GOSUB 134310 td=INT(RND(1)*10+1)311 g4=INT(RND(1)*350+1)312 y=INT(RND(1)*8+1)313IF y<=5 THEN 320314?:IF (g-g4)<0 THEN  g4=g315? "HE IS UNFRIENDLY . . AND AS HE"316? "LEAVES. HE TAKES . . . . . . ":? g4; " GOLD PIECES"317?: g=g-g4318IF td=5 AND k=0 THEN 325319RETURN320?321? "HE IS FRIENDLY...HE GIVES YOU"322? g4; " GOLD PIECES,WHICH YOU TAKE"323?: g=g+g4324GOTO 318325?: gt=2:GOSUB 134326? "YOU SEARCH THE CHAMBER.....AND"327 gTO 201235REM      WEST236IF a=6 THEN 260237IF (c-1)=0 THEN 290238 c=c-1239GOTO 201240HOME241IF a<>9 THEN 248242IF k=1 THEN 387243? "YOU CAN'T EXIT THE TIME DUNGEON"244? "YOU DON'T HAVE THE CRYSTAL KEY"245 gt=2:GOSUB 134246?247GOTO 204248? "YOU ARE NOT AT AN EXIT PORTAL"249 gt=2:GOSUB 134250GOTO 204251REM      GOLD252HOME:? "YOU HAVE "; g; " GOLD PIECES"253?254GOTO 204255REM      EW256HOME:? "YOU'RE IN A EAST-WEST CORRIDOR"257? "YOU CAN ONLY GO EAST OR WEST"258?259GOTO 204260REM    IVATED.......": gt=2:GOSUB 134348FOR a=1 TO 250349? "*        %"; 350NEXT a351 c=INT(RND(1)*8+1): d=INT(RND(1)*8+1)352?353?: g=100354? "YOU HAVE BEEN TELEPORTED TO..."355? ".......AN UNKNOWN LOCATION...."356?357? "AND YOU LOST MOST OF YOUR GOLD"358?359? "YOU HAVE "; g; " GOLD PIECES LEFT"360 gt=6:GOSUB 134361RETURN362? "YOU ARE AT AN EXIT PORTAL"363?364? "(A KEY IS REQUIRED)"365?366RETURN367 i=1: o=9: w=8368 b=0: e=5: r=14369 c=0: rp=0370GOTO 216371?: gt=2:GOSUB 134372? "BUT BEFORE  !"285GOTO 204286HOME:? "YOU ARE AT THE EAST WALL"287GOTO 282288HOME:? "YOU ARE AT THE SOUTH WALL"289GOTO 282290HOME:? "YOU ARE AT THE WEST WALL"291GOTO 282292 kt=INT(RND(1)*9+1)293? "YOU'RE IN A GLOWING TIME PORTAL"294 gt=1:GOSUB 134295?296? "THE LIGHT FADES . . . . . . ."297? "THE PORTAL IS INACTIVE . . . ."298IF a=1 AND kt>8 THEN 570299RETURN300? "YOU ARE IN A DUST FILLED PORTAL"301 gt=1:GOSUB 134302?303? "A BRIGHT LIGHT IS ACTIVATED AND"305GOTO 296306HOME307? "AN ALIEN TRAVELER IS 207?208? "(N)ORTH, (E)AST, (S)OUTH"209? "(W)EST, E(X)IT, (G)OLD"210INPUT m1$211 m1=m1+1:IF k=0 AND m1>70 THEN 371212IF m1$="N" THEN 220213IF m1$="E" THEN 225214IF m1$="S" THEN 230215IF m1$="W" THEN 235216IF m1$="X" THEN 240217IF m1$="G" THEN 251218?219GOTO 204220REM      NOTRH221IF a=7 THEN 255222IF (d-1)=0 THEN 281223 d=d-1224GOTO 201225REM      EAST226IF a=6 THEN 260227IF (c+1)=9 THEN 286228 c=c+1229GOTO 201230REM      SOUTH231IF a=7 THEN 255232IF (d+1)=9 THEN 288233 d=d+1234GOt=1:GOSUB 134328? "FIND..........THE CRYSTAL KEY!"329 k=1:RETURN330HOME331? "YOU ENTER,NORTH-SOUTH CORRIDOR"332? "THRU A SECRET DOOR":?:GOSUB 380333 kt=INT(RND(1)*9+1):IF kt>=7 THEN 545334RETURN335HOME336? "YOU ENTER A EAST-WEST CORRIDOR"337GOTO 332338REM      TRAP339? "YOU ENCOUNTER......A TIME TRAP"340? "..............IN THIS CHAMBER": gt=1:GOSUB 134341 td=INT(RND(1)*9+1)342IF td>=7 THEN 347343?344? "BUT YOU'RE LUCKY........"345? ".....IT DIDN'T ACTIVATE"346RETURN347 tt=1:? "AND IT ACT  NS261HOME:? "YOU'RE IN, NORTH-SOUTH CORRIDOR"262? "YOU CAN ONLY GO NORTH OR SOUTH"263GOTO 258264REM      GOLD ZERO265 gt=2:GOSUB 134266?267? "YOUR GOLD IS GONE AND YOU WERE"268? "UNABLE TO MEET THE DEMANDS OF"269? " . . . THE TIME DUNGEON . . . "270?271?272 t=3:GOSUB 134273GOSUB 402274?275? "ANOTHER GAME?"276? "ENTER '1'-YES  '0'-NO"277INPUT aa278IF aa<>1 THEN 280279HOME:GOTO 108280END281HOME:? "YOU ARE AT THE NORTH WALL"282? "YOU CANNOT PASS THROUGH"283?284? "TRY ANOTHER DIRECTIONYOU PROCEED......"373? "YOU LOOK TO THE GROUND AND...."374? ".....FIND THE CRYSTAL KEY.....": k=1375 gt=3:GOSUB 134376GOTO 212377? "YOU ANSWERED "; ca; " QUESTION(S)"378? "CORRECTLY....IN "; m1; " TURNS,"379GOTO 409380? "THE DOOR CLOSES & LOCKS BEHIND YOU": gt=1:GOSUB 134381RETURN382REM      TIME DISPLAY383VTAB 12:? "PORTAL YEAR >>>>>"; y3385GOSUB 134386RETURN387HOME:REM      EXIT PORTAL388? "YOU ENTER THE EXIT PORTAL AND"389? "INSERT THE CRYSTAL KEY IN SLOT"390?: gt=4:GOSUB 134391? "THE M "; g4; " GOLD PIECES"477RETURN478 zt=5479 x=INT(RND(1)*8+1): y=INT(RND(1)*8+1)480IF a(x, y)<=2 THEN  a(x, y)=5:RETURN481 zt=zt-1:IF zt=0 THEN RETURN482GOTO 479483DATA      1619,IN WHAT COLONY BEGAN THE SALE  OF SLAVES FROM AFRICA,4,VIRGINIA,NEW HAMPSHIRE,PLYMOUTH,CONNECTICUT484DATA     1620,WHAT GROUP OF PEOPLE FOUNDED   THE PLYMOUTH COLONY,4,SEPARATISTS,MORMONS,ENGLISH,CONFORMISTS485DATA     1607,THE LONDON CO. EXPEDITION SENT 3 SHIPS-GODSPEED-SARAH CONSTANT-&...,4,DISCOVERY,ENTERPRISE,BRITAIN,NEONS ASKED.":RETURN410HOME: y3=yy411GOSUB 444412 q3=q3+1413IF q3>50 THEN  q3=0:GOTO 415414GOTO 416415GOSUB 451416 q=INT(RND(1)*50+1)417IF b(q)=1 THEN 416418 b(q)=1419?420FOR ab=1 TO q421READ yy, qd$, id, ad$, i1$, i2$, i3$422NEXT ab423RESTORE424GOSUB 171425HOME: tr=tr+1426? "YOU'VE ARRIVED AT YEAR "; yy427? ".....IN "; bz$:?428? "YOU MUST ANSWER THIS QUESTION"429? ".....TO CONTINUE YOUR JOURNEY"430? "------------------------------"431? "THE YEAR IS: "; yy:?:IF id=4 THEN 164432? qd$433SETTS491DATA     1635,I WAS BANISHED FROM MASSACHU-  SETTS BAY FOR MY RELIGIOUS     BELIEFS,3,WILLIAMS,0,0,0492DATA     1783,WHAT DOCUMENT ENDED THE WAR OF INDEPENDENCE ?,1,TREATY OF PARIS,0,0,0493DATA     1781,I SURRENDERED MY ENTIRE ARMY   DURING THE WAR OF INDEPENDENCE,3,CORNWALLIS,0,0,0494DATA     1766,WHAT COLONIAL TAX DID THE BRIT-ISH REPEAL ?,4,STAMP ACT,WOOLEN ACT,SHIP TAX,FOOD TAX495DATA     1690,BRITISH PASSED THE .... ACT TO STOP THE MANUFACTURE OF TEXTIL-ES,4,WOOLEN,COTTTON,RAYON,CLOTHS496S ?":RETURN456? "*** (T)RUE OR (F)ALSE  ?":RETURN457? "*** WHO AM I (LAST NAME) ?":RETURN458? "*** MULTIPLE CHOICE ?":RETURN459? "ENTER CORRECT ANSWER ?"460INPUT e$461 g4=INT(RND(1)*500+1)+125462RETURN463 g=g+g4464? "YOU WIN "; g4; " GOLD PIECES"465 a(c, d)=INT(RND(1)*2+1)466 ca=ca+1:IF k=1 THEN RETURN467IF ca=k4 THEN 469468RETURN469GOSUB 325470RETURN471?: g4=INT(RND(1)*400+1)+25472? "THE CORRECT ANSWER IS '"; ad$; "'"473?:IF (g-g4)<0 THEN  g4=g474 g=g-g4475 gt=1:GOSUB 134476? "YOU LOSEACHINE BEGINS TO HUM....."392?: gt=2:GOSUB 134393 yy=y2:GOSUB 171394?395? "YOU FOUND YOUR WAY............"396? "...........BACK TO THE PRESENT"397?398? "YOU ACQUIRED "; g; " GOLD PIECES"399?400GOSUB 402401GOTO 274402 gg=g+100403 r=INT((gg*ca-7000+1)/m1)404?405? "GAME RATING IS "; r406?:IF g<=0 OR kl=0 THEN 377407? "YOU TOOK "; m1; " TURNS TO FIND":? "THE WAY OUT!"408? "AND ANSWERED "; ca; " QUESTIONS(S)":? "CORRECTLY,OUT OF "; tr; " QUESTIONS ":? "ASKED.":RETURN409? "OUT OF "; tr; " QUESTIW WORLD486DATA     1607,CAPT. CHRISTOPHER ... COMMANDEDTHE 1ST LONDON CO. EXPEDITION,4,NEWPORT,PIKE,SMITH,WILLIAMS487DATA     1607,JAMESTOWN IS NAMED AFTER THE   ENGLISH KING-JAMES I,2,T,0,0,0488DATA     1630,WHAT GROUP BEGAN THE COLONY OF MASSACHUSETTS BAY ?,4,PURITANS,SEPARATISTS,MORMONS,LOYALISTS489DATA     1630,THE PURITANS WERE NOT WELL     EQUIPPED TO SETTLE IN MASSA-   CHUSETTS,2,F,0,0,0490DATA     1635,WHAT COLONY DID REVEREND TOMAS HOOK HELP ESTABLISH ?,4,CONNECTICUT,VIRGINIA,PLYMOUTH,MASSACHU? "------------------------------"434? "QUESTION TYPE: "435ON id GOSUB 455, 456, 457, 458436GOSUB 459437IF e$=ad$ THEN 441438? "INCORRECT"439GOSUB 471440RETURN441? "CORRECT"442GOSUB 463443RETURN444? "YOU ENTER INTO A BLUE HAZY...."445? "........ TIME PORTAL ........."446?: gt=1:GOSUB 134447? "A PULSATING GLOW ............."448? "........INDICATES ACTIVATION":?449? "PRESENT YEAR .... "; y3: gt=3:GOSUB 134450RETURN451FOR i=1 TO 50452 b(i)=0453NEXT i454RETURN455? "PEOPLE, PLACES, OR THINGDATA    1782,AT WHAT CITY WAS THE AMERICAN  VICTORY THAT SHOCKED ENGLAND,4,YORKTOWN,JAMESTOWN,NEW YORK,SARATOGA497DATA    1786,AT WHAT CITY BEGAN THE ALTERINGOF-ARTICLES OF CONFEDERATION,4,ANNAPOLIS,SARATOGA,NEW YORK,ALBANY498DATA    1636,I FOUNDED THE SETTLEMENT CALLEDPROVIDENCE,3,WILLIAMS,0,0,0499DATA    1638,NEW HAMPSHIRE WAS BUILT BY     OVERFLOW OF PEOPLE FROM        MASSACHUSETTS,2,T,0,0,0500DATA    1679,IN 1679-WHAT COLONY RECEIVED A CHARTER FROM THE KING,4,NEW HAMPSHIRE,PLYMOUTH,VIRGINIA,CONNECTBY 1812-STEAMBOATS SERVED ON   THE OHIO AND MISSISSIPPI RIVERS,2,T,0,0,0523DATA    1816,I CREATED THE 'ERA OF GOOD     FEELING' IN POLITICS,3,MONROE,0,0,0524DATA    1832,I FEARED THE BANK OF THE UNITEDSTATES AS TOO POWERFUL,3,JACKSON,0,0,0525DATA    1830,I SPOKE BEFORE THE SENATE IN   SUPPORT OF 'UNIONS',3,WEBSTER,0,0,0526DATA    1812,THE WAR OF 1812 WAS OFTEN      CALLED THE SECOND WAR FOR      INDEPENDENCE,2,T,0,0,0527DATA    1803,.... PURCHASE WAS AN ACHIEVE-  MENT OF JEFFERSON'S ADMINIS-   TRATION,LED 'NOTES ON VIRGINIA',3,JEFFERSON,0,0,0507DATA    1763,THE FRENCH & INDIAN WAR ENDED  WITH THE SIGNING OF WHAT DOCU- MENT,1,PEACE OF PARIS,0,0,0508DATA    1777,MAIN BATTLE BETWEEN CONTINENTALAND BURGOYNE'S FORCES WAS NEAR,4,SARATOGA,NEW YORK,YORKTOWN,ANNAPOLIS509DATA    1785,CONFEDERATIONS 1ST LAND ORDIN- ANCE WAS CALLED-LAND ORDINANCE OF 1785,2,T,0,0,0510DATA    1787,NORTHWEST ORDINANCE ALLOWED    CREATION OF NEW STATES IN THE  WEST,2,T,0,0,0511DATA    1787,THE CONSTITUTION OF THE UNITED STATES WAS 533HOME:? "THE TIME DUNGEON * * * MAP"534?535FOR q=1 TO 8536FOR n=1 TO 8537IF c=n AND d=q THEN ? "=P= "; :GOTO 540538 s1=a(n, q)539ON s1 GOSUB 137, 137, 138, 138, 139, 140, 141, 139, 142540NEXT n541?542NEXT q543 gt=INT(RND(1)*8+1)+INT(RND(1)*(ca+5)+1)544GOSUB 134:HOME:RETURN545?:? "ON THE WALL IS A GLOWING SCREEN"546? "BELOW THE SCREEN IS A RED      BUTTON":?547 kt=INT(RND(1)*9+1): kl=INT(RND(1)*15+1)+2548GOSUB 565549INPUT k$550IF k$="Y" THEN 552551RETURN552IF kt>=6 THEN 533553IF kt<=4 TASHINGTON517DATA    1806,HE FOLLOWED THE MISSISSIPPI    RIVER NORTHWARD TO ITS SOURCE,4,PIKE,SMITH,ROGERS,JAMES518DATA    1845,WHAT GROUP OF PEOPLE MIGRATED  TO THE GREAT SALT LAKE,4,MORMONS,SEPARATISTS,LOYALISTS,INDIANS519DATA    1845,I LEAD THE MORMON MIGRATION TO THE UTAH TERRITORY,3,YOUNG,0,0,0520DATA    1850,BETWEEN 1830 AND 1850-2 MILLIONEUROPEON-S IMMIGRATED TO THE   U.S.,2,T,0,0,0521DATA    1807,I INVENTED THE STEAMBOAT-WHICH MADE WATER TRANSPORTATION      EASIER,3,FULTON,0,0,0522DATA    1812,ICUT501DATA    1649,LORD BALTIMORE PERSUADED THE   VIRGINIA COLONY TO PASS THE    TOLERATION ACT,2,F,0,0,0502DATA    1649,.... AND WILLIAMS ESTABLISHED  THE TOLERATION ACT,4,BALTIMORE,WASHINGTON,JEFFERSON,FRANKLIN503DATA    1649,TOLERATION ACT ALLOWS CATHOLICSAND PROTESTANTS RELIGIOUS FREE-DOM,2,T,0,0,0504DATA    1624,NEW YORK HAD BEEN FOUNDED AS   NEW NETHERLAND-A DUTCH COLONY,2,T,0,0,0505DATA    1760,I WAS KNOWN FOR MY EXPERIMENTS WITH ELECTRICITY,3,FRANKLIN,0,0,0506DATA    1760,I WROTE THE BOOK CAL4,LOUISIANA,NORTHWEST,SOUTHERN,VIRGINIAN528DATA    1825,THE GREATEST NUMBER OF PEOPLE  MIGRATED TO NORTHERN-MOHAWK VALLEY,2,T,0,0,0529DATA    1790,IN 1790-THERE WERE 8 MILLION   PEOPLE IN THE UNITED STATES,2,F,0,0,0530DATA    1850,THERE WERE 8 MILLION PEOPLE BE-YOND THE APPALACHIAN MOUNTAINS,2,T,0,0,0531DATA    1825,THE .... CANAL-CONNECTING      ALBANY WITH THE GREAT LAKES-WASOPENED,4,ERIE,NEW YORK,MICHIGAN,ST CLARE532DATA    1810,THE MACON BILL NO. 2 ALLOWED   TRADE WITH FRANCE AND ENGLAND,2,T,0,0,0COMPLETED IN 1785,2,F,0,0,0512DATA    1791,WHAT WERE THE 1ST 10 AMENDMENTSTO THE CONSTITUTION CALLED,1,BILL OF RIGHTS,0,0,0513DATA    1790,THOMAS JEFFERSON AND JAMES     MADISON FOUNDED THE .... PARTY,1,REPUBLICAN,0,0,0514DATA    1812,WAR OF 1812 RESULTED FROM BRIT-ISH VIOLATING AMERICAN TRADE   RIGHTS,2,T,0,0,0515DATA    1807,WHAT AMERICAN SHIP DID THE     BRITISH OPEN FIRE UPON,4,CHESAPEAKE,SARATOGA,DISCOVERY,GODSPEED516DATA    1812,WHO COMMANDED THE BATTLE OF NEWORLEANS,4,JACKSON,BALTIMORE,LINCOLN,WHEN 562554?: g4=INT(RND(1)*100+1)+25: g=g+g4555? "YOU RECEIVE "; g4; " GOLD PIECES"556? "BUT....THE CORRIDOR NARROWS": gt=3:GOSUB 134557 kl=kl-1:IF kl=0 THEN RETURN558GOSUB 565559INPUT k$560IF k$="Y" THEN 554561RETURN562?:? "NOTHING HAPPENS"563 gt=1:GOSUB 134564RETURN565?:? "DO YOU WISH TO PUSH THE BUTTON"566? "ENTER (Y)ES  OR  (N)O":RETURN567HOME:? "YOU ARE STUCK IN THE NARROW    CORRIDOR"568? "........AND.........":?: gt=3:GOSUB 134569GOTO 264570?:? "YOU NOTICE A DOOR TO YOUR RIGHT"571?y)160NEXT y:NEXT x:FOR x=1 TO 27170HPLOT 6*x-5, p(x, 1) TO 6*x-5, 159:NEXT x180FOR y=2 TO 17190HPLOT 6*y+151, p(27, y) TO 6*y+151, 165-y*6:NEXT y200HPLOT 1, 159 TO 157, 159 TO 253, 63Ok ]EGINS TO ... SPIN"591 g7=INT(g/2): g4=INT(RND(1)*g7+1): mm=INT(RND(1)*20+1)592 gt=4:GOSUB 134: g=g-g4593FOR k9=1 TO 250594? "+    =    +"; :NEXT k9596HOME:? "YOU WERE TELEPORTED INT......."597? "...... ANOTHE DIMENSION......."598? "...AND RETURNED IN AN INSTANT."599?:? "YOU DROPPED "; g4; " GOLD PIECES"600? "....AND WASTED "; mm; " MOVES..."601 m1=m1+mm602 gt=4:GOSUB 134603RETURN1000?:? "PRESS ANY # ON THE KEYPAD TO   CONTINUE.!":?1002 rx=rx-1:IF  NOT PDL(11) THEN 10021003 junk=RND(rx)1004RE9 AT 39120VLIN 2, 37 AT 0:VLIN 2, 37 AT 1130VLIN 2, 37 AT 38:VLIN 2, 37 AT 39:COLOR =8140FOR i=1 TO 6:PLOT dr(i, 1), dr(i, 2):NEXT150FOR i=3 TO 35 STEP 2:FOR j=3 TO 36160IF RND(1)>rv THEN COLOR =INT(RND(1)*7)+1:PLOT j, i170NEXT j, i180VTAB 21:HTAB 11:? "SCORE:"190 px=INT(RND(1)*10)+2: py=(INT(RND(1)*18)+1)*2200 rx=INT(RND(1)*10)+26: ry=(INT(RND(1)*18)+1)*2210 sc=0: do=INT(RND(1)*6)+1: ts=RND(1)*500+500220COLOR =15:PLOT px, py230COLOR =11:PLOT rx, ry240 j=PDL(5)250 nx=px+(j=2 OR j=3 OR j=6)-(j>10DIM g(43), p(27, 17)20HGR2:HCOLOR =130FOR i=1 TO 43: g(i)=159-(6*(i-27))*(i>27):NEXT i40 y=-8:FOR i=127 TO 31 STEP -650 x=-13:FOR j=128-i TO 284-i STEP 6: jc=(j+5)/660 z=SIN(.05*(x*x+y*y))*570IF z+i<0 THEN  z=-i80IF z+i<=g(jc) THEN 11090IF j=128-i THEN HPLOT j, g(jc):GOTO 130100HPLOT  TO j, z+i110 g(jc)=z+i:IF j=128-i THEN HPLOT j, z+i:GOTO 130120HPLOT  TO j, z+i130 p(x+14, y+9)=g(jc): x=x+1:NEXT j: y=y+1:NEXT i140FOR x=1 TO 27:HPLOT 6*x-5, p(x, 1)150FOR y=2 TO 17:HPLOT  TO 6*(x+y)-11, p(x, 572 kt=INT(RND(1)*9+1)573? "DO YOU WISH TO OPEN THE DOOR?"574? "ENTER  (Y)ES  OR  (N)O"575INPUT k$576IF k$="Y" THEN 578577RETURN578?:? "YOU TRY THE DOOR.......": gt=1:GOSUB 134579IF kt>=7 THEN 589580IF kt<=4 THEN 587581?: g4=INT(RND(1)*100+1)+25582? "THE DOOR OPENS........"583? "REVEALING A CLOSET......."584?: g=g+g4585? "YOU FIND "; g4; " GOLD PIECES"586?:RETURN587? "BUT THE DOOR WON'T OPEN......."588? "....IT MUST BE LOCKED":RETURN589?:? "THE DOOR OPENS...AND SUDDENLY"590? "THE CHAMBER B1REM  This game is taken 2REM  from the August3REM  1985 issue of 4REM  Family Computing.5REM  ==================6REM 7GOSUB 80010DIM dr(6, 2)20FOR i=1 TO 9: bl$=bl$+CHR$(32):NEXT30FOR i=1 TO 6:READ dr(i, 1), dr(i, 2):NEXT40HOME:? TAB(8); "RENEGADE ROBOT II"50?:INPUT "Please give me a # between 0 and 1 "; rv60IF rv<0 OR rv>1 THEN 4070VTAB 5:? "  PRESS LEFT TRIGGER TO START."80IF PDL(7)<>1 THEN  c=RND(1):GOTO 8090HOME:GR:COLOR =9100HLIN 0, 39 AT 0:HLIN 0, 39 AT 1110HLIN 0, 39 AT 38:HLIN 0, 3TURNt=INT(RND(1)*9+1)573? "DO YOU WISH TO OPEN THE DOOR?"574? "ENTER  (Y)ES  OR  (N)O"575INPUT k$576IF k$="Y" THEN 578577RETURN578?:? "YOU TRY THE DOOR.......": gt=1:GOSUB 134579IF kt>=7 THEN 589580IF kt<=4 THEN 587581?: g4=INT(RND(1)*100+1)+25582? "THE DOOR OPENS........"583? "REVEALING A CLOSET......."584?: g=g+g4585? "YOU FIND "; g4; " GOLD PIECES"586?:RETURN587? "BUT THE DOOR WON'T OPEN......."588? "....IT MUST BE LOCKED":RETURN589?:? "THE DOOR OPENS...AND SUDDENLY"590? "THE CHAMBER B6)260 ny=py+(j=4 OR j=6 OR j=12)-(j=1 OR j=3 OR j=9)270IF px=nx AND py=ny THEN 400280IF nx<1 OR nx>38 OR ny<1 OR ny>38 THEN 510290 p=SCRN(nx, ny):IF p=0 THEN 340300IF p<>8 THEN 400310VTAB 22:HTAB 1320IF nx<>dr(do, 1) OR ny<>dr(do, 2) THEN ? "LOCKED!":GOTO 380330? "UNLOCKED!!"340COLOR =8*(px=dr(do, 1) AND py=dr(do, 2))350PLOT px, py360COLOR =15:PLOT nx, ny: px=nx: py=ny370IF p<>8 THEN 400380FOR d=1 TO 200:NEXT390VTAB 22:HTAB 1:? SPC(9)400IF sc<ts THEN 500410 qx=rx+SGN(px-rx): qy=ry+SGN(py-ry)ters in your Banner?"290?300INPUT "(1=Shortest; 11=Tallest)?"; cc310IF cc<1 OR cc>11 THEN 290320HOME330? "What character shall I use to"340? "compose the letters of your"350? "Banner"360?370INPUT "(E.G., *,$,#)?"; ch$380IF ch$="" THEN 320390 ch$=LEFT$(ch$, 1)400HOME410? "Please enter the MESSAGE you"420? "want printed on your Banner."430? "Do NOT use LOWERCASE letters"440? "or COMMAS."450?460INPUT message$470?480? "When your printer is READY,"490? "Please press any key."500GET k$510HOre is "; hs590?:? "Press LEFT trigger to Play AGAIN"600? "or RIGHT trigger to QUIT."610IF PDL(7)=1 THEN 90620IF PDL(9)<>1 THEN 610630END640DATA   20,1,38,12,38,26,20,38,1,12,1,26800HOME:? " Renegade Robot II"810?:? "The object of this game is to"820? "avoid the Robot as long as is"830? "possible while checking the  "840? "8 doors around the parimeter "850? "of the building.  BEWARE....."860? "only ONE of them is unlocked!"870?:? "The longer You stay in the   "880? "building, the more points y$="p" THEN 240790IF k$="E" OR k$="e" THEN 800:GOTO 770800END810DATA 0,0,0,0,0,0,0,0,61,61,0,0820DATA 0,56,0,0,56,0,18,63,18,18,63,18830DATA 18,58,107,107,46,36,51,54,12,24,51,35840DATA 6,47,121,93,118,39,0,0,52,56,0,0850DATA 0,0,30,63,51,33,33,51,63,30,0,0860DATA 42,62,28,28,62,42,8,8,62,62,8,8870DATA   0,0,13,14,0,0,8,8,8,8,8,8   880DATA 0,0,3,3,0,0,3,6,12,24,48,32890DATA 30,63,37,41,63,30,1,17,63,63,1,1900DATA 17,51,39,45,57,17,34,35,41,61,55,34910DATA 6,14,26,63,63,2,58,59,41,41,47,38920DAT10REM  This program was20REM  taken out of the30REM  April 1985 issue40REM  of Family50REM  Computing Magazine.60REM  ================== 70REM 80DIM a%(471), bin%(6)90HOME100? "Getting Ready...Please Wait."110FOR i=0 TO 464 STEP 8120FOR j=0 TO 7130IF j=0 OR j=7 THEN  a%(i+j)=0:GOTO 150140READ a%(i+j)150NEXT j160NEXT i170 a%(80)=8180 a%(87)=8190 a%(367)=63200 a%(447)=63210FOR i=0 TO 6220 bin%(i)=2^i230NEXT i240HOME250? TAB(12); "*BANNER*"260?270? "How tall do you want the"280? "let: f=1420 p=SCRN(qx, qy):IF p=0 OR p=15 THEN 470430 d=2*INT(RND(1)*2)-1440IF f THEN  qx=rx+d: qy=ry:GOTO 460450 qy=ry+d: qx=rx460 f= NOT f:GOTO 420470COLOR =0:PLOT rx, ry:COLOR =11:PLOT qx, qy480IF p=15 THEN 540490 rx=qx: ry=qy500 sc=sc+10:HTAB 17:VTAB 21:? sc:GOTO 240510TEXT: e=USR(1):FOR i=1 TO 7520? CHR$(7); :FOR d=1 TO 50:NEXT d, i530? "YOU ESCAPED!!":GOTO 560540TEXT: e=USR(1):? CHR$(7); 550? "SORRY, YOU WERE CAUGHT!"560?:? "Your Score was "; sc570IF sc>hs THEN  hs=sc580?:? "The High ScoME520PR #1530FOR i=1 TO LEN(message$)540 pntr=(ASC(MID$(message$, i, 1))-32)*8550IF pntr<0 OR pntr>464 THEN  pntr=0560FOR j=pntr TO pntr+7570 ln$=""580 v=a%(j)590FOR k=6 TO 0 STEP -1600IF v>=bin%(k) THEN  v=v-bin%(k): c$=ch$:GOTO 620610 c$=" "620FOR l=1 TO cc630 ln$=c$+ln$640NEXT l650NEXT k660FOR k=1 TO (cc+1)/2670? ln$680NEXT k690NEXT j700NEXT i710PR #0720HOME730? "Your Banner is finished."740?750? "Press <P> to print another"760? "Banner or <E> to end."770GET k$780IF k$="P" OR kou"890? "rack up.  You can try keeping"900? "the various obsticals between"910? "the robot and you, but WATCH "920? "OUT, he has a few tricks up  "930? "metal gloves!"935?:? "Please use a joystick in the #1"940? "game port and .. HAVE a BLAST"950? "HIT A KEY WHEN READY..."960GET a$:RETURNOk ]TO 7520? CHR$(7); :FOR d=1 TO 50:NEXT d, i530? "YOU ESCAPED!!":GOTO 560540TEXT: e=USR(1):? CHR$(7); 550? "SORRY, YOU WERE CAUGHT!"560?:? "Your Score was "; sc570IF sc>hs THEN  hs=sc580?:? "The High ScoA 30,63,41,41,47,6,32,35,39,44,56,48930DATA 22,63,41,41,63,22,16,57,41,43,62,28940DATA 0,0,54,54,0,0,0,0,109,110,0,0950DATA 0,8,28,54,99,65,18,18,18,18,18,18960DATA 65,99,54,28,8,0,16,48,37,45,56,16970DATA 30,63,33,45,61,29,15,31,50,50,31,15980DATA 63,63,41,41,63,22,30,63,33,33,51,18990DATA 63,63,33,51,30,12,63,63,41,41,41,331000DATA 63,63,40,40,40,32,30,63,33,37,39,391010DATA 63,63,8,8,63,63,33,33,63,63,33,331020DATA 2,3,1,1,63,62,63,63,12,30,51,331030DATA 63,63,1,1,1,1,63,63,24,12,24,631040DATR a$="R" GOTO 820740IF a$="q" OR a$="Q" GOTO 760750GOTO 720760FOR i=1 TO 3:? b$:NEXT770TEXT:VTAB 13:HTAB 8:? "HOPE YOU ENJOYED"780FOR i=1 TO 1000:NEXT:? b$790VTAB 15:HTAB 11:? "KALIDOSCOPE":VTAB 24800GOSUB 830810POKE 17059, 1:TEXT:END820 reps=0: segs=0: r=0: s=0: d=d+1:GOTO 220830FOR i=1 TO 4000:NEXT840RETURN60HLIN x-a, x-a-1 AT y-b470HLIN x-a, x-a-1 AT y-b-1480HLIN x-a, x-a-1 AT y-b-2490HLIN x+a, x+a+1 AT y-b500HLIN x+a, x+a+1 AT y-b-1510HLIN x+a, x+a+1 AT y-b-2520HLIN x-a, x-a-1 AT y+b5100REM   KALIDO   110REM   BY TOM PASKO, BETHLEHEM PA.120POKE 17059, 13:TEXT130HOME: b$=CHR$(7)140? b$:VTAB 9:? TAB(11); "WELCOME TO:"150VTAB (13):? TAB(11); "KALIDOSCOPE":VTAB 24:GOSUB 830160GOSUB 830170HOME:VTAB (8):? "INPUT NUMERICAL DATE:"180? b$190VTAB (11):INPUT "MONTH? "; m200? b$210VTAB (13):INPUT "DATE? "; d220HOME230? b$240VTAB (13):INPUT "REPETITIONS? "; r250? b$260VTAB (15):INPUT "SEGMENTS? "; s270TEXT: n=(m*d)-(m+d)280 n=RND(-n)290GR:VTAB 24300DEF FN d(n)=INT(1+n*RND(1))31050FOR i=1 TO 4000:NEXT260? bp$270VTAB 19:? "PRESS: A - ABORT"280VTAB 20:? "       R - RUN"290VTAB 24:? "CHOICE? "; 300GET k$310IF k$="r" OR k$="R" THEN 340320IF k$="a" OR k$="A" THEN 590330GOTO 300340? bp$350HOME:VTAB 14:? "LOAD TAPE TO HOLD 'LOTTOCOUNT'"360VTAB 16:? "FILE IN DATA DRIVE #2"370FOR i=1 TO 3000:NEXT380? bp$390VTAB 19:? "THEN PRESS ANY KEY TO CONTINUE"; 400GET k$410HOME420VTAB 6:? "OPENING 'LOTTOCOUNT' FILE"430 d$=CHR$(4)440? d$; "OPEN LOTTOCOUNT,L57,d2"450VTAB 8:? "DEFINING30HLIN x-a, x-a-1 AT y+b+1540HLIN x-a, x-a-1 AT y+b+2550HLIN x+a, x+a+1 AT y+b560HLIN x+a, x+a+1 AT y+b+1570HLIN x+a, x+a+1 AT y+b+2580 segs=segs+1:GOTO 640590VLIN y-a, y-a-2 AT x-b600VLIN y-a, y-a-2 AT x+b610VLIN y+a, y+a+2 AT x-b620VLIN y+a, y+a+2 AT x+b630 segs=segs+1:GOTO 640640FOR i=1 TO 1500:NEXT650IF segs=s GOTO 670660GOTO 310670 reps=reps+1680IF reps=r GOTO 700690 segs=0:HOME:GR:VTAB 24:GOTO 310700TEXT710? b$:VTAB (14):? TAB(3); "PRESS R/RERUN OR Q/QUIT "; 720GET a$730IF a$="r" OA 63,63,28,14,63,63,30,63,33,33,63,301050DATA 63,63,36,36,60,24,30,63,33,34,63,291060DATA 63,63,36,38,63,25,16,57,41,41,47,61070DATA 32,32,63,63,32,32,63,63,1,1,63,631080DATA 60,62,3,3,62,60,63,63,6,12,6,631090DATA 51,63,12,12,63,51,48,56,15,15,56,481100DATA 35,39,45,57,49,33Ok ]2,8,8,62,62,8,8870DATA   0,0,13,14,0,0,8,8,8,8,8,8   880DATA 0,0,3,3,0,0,3,6,12,24,48,32890DATA 30,63,37,41,63,30,1,17,63,63,1,1900DATA 17,51,39,45,57,17,34,35,41,61,55,34910DATA 6,14,26,63,63,2,58,59,41,41,47,38920DAT100REM    - LOTTO COUNT FILE110REM    - Created 8/24/85120REM   130POKE 27410, 4:POKE 27411, 1:POKE 27412, 7:POKE 27413, 1:POKE 27414, 3: ebu=USR(1)140 bp$=CHR$(7)150HOME160VTAB 3:? "THIS PROGRAM WILL CREATE A FILE"170VTAB 5:? "TO BE USED WITH THE LOTTOCOUNT"180VTAB 7:? "PROGRAM."190FOR i=1 TO 3000:NEXT200FOR i=1 TO 3:? bp$:NEXT210VTAB 10:FLASH:? "CAUTION:":NORMAL220VTAB 12:? "IF YOU DO NOT KNOW HOW TO USE"230VTAB 14:? "THIS PROGRAM - PLEASE DO NOT"240VTAB 16:? "RUN IT. PRESS ABORT INSTEAD."2 a=INT(FN d(18))320 b=INT(FN d(18))330REM   *** x=horiz line, y=vertical line340 x=20: y=20350IF x-a<4 OR x+a>36 GOTO 310360IF y-a<4 OR y+a>36 GOTO 310370IF y+b+2>39 GOTO 310380 c=INT(FN d(18))390IF c=0 GOTO 380400IF c>15 GOTO 380410COLOR =c420 z=INT(FN d(2))430IF z=1 GOTO 460440IF z=2 GOTO 590450GOTO 420460HLIN x-a, x-a-1 AT y-b470HLIN x-a, x-a-1 AT y-b-1480HLIN x-a, x-a-1 AT y-b-2490HLIN x+a, x+a+1 AT y-b500HLIN x+a, x+a+1 AT y-b-1510HLIN x+a, x+a+1 AT y-b-2520HLIN x-a, x-a-1 AT y+b5 RECORD STRING"460 x$="00000000000000000000000000000000000000000000000000000000"470VTAB 10:? "WRITING ORIGINAL RECORD STRING"480? d$; "WRITE LOTTOCOUNT,R1"490? x$500VTAB 12:? "CLOSING 'LOTTOCOUNT' FILE"510? d$; "CLOSE LOTTOCOUNT"520? bp$530VTAB 14:? "'LOTTOCOUNT' FILE HAS NOW BEEN"540VTAB 16:? "BUILT."550REM  560REM  570REM  580REM  590REM    ABORT SUB":NORMAL220VTAB 12:? "IF YOU DO NOT KNOW HOW TO USE"230VTAB 14:? "THIS PROGRAM - PLEASE DO NOT"240VTAB 16:? "RUN IT. PRESS ABORT INSTEAD."28,2,143,8,3,143,8,1,143,7,2,143,8,22190DATA   128,10,2,143,11,2,134,13,4,143,8,4,138,10,2,138,10,22010DATA   138,10,4,138,10,2,143,8,2,134,13,3,143,11,12020DATA   138,10,8,128,10,2,128,10,2,128,10,3,128,10,12030DATA   128,10,2,138,10,2,138,10,3,138,10,12040DATA   138,10,2,143,11,2,143,11,2,138,10,2,143,11,42050DATA   143,8,4,138,10,2,138,10,2,138,10,4,138,10,22060DATA   138,10,2,138,10,4,138,10,2,143,8,2,134,13,32070DATA   143,11,1,138,10,8,128,10,2,128,10,2,128,10,32080DATA   128,10,1,128,10,2,135REM  * PROGRAM FROM FAMILY COMPUTING, DEC 1985 *6REM  * CHANGE TEMPO BY CHANGING LINE 30's VALUE *10LOMEM :2900020DIM f(144), d(144), s(144)30 tempo=10040FOR i=28000 TO 2800550READ a60POKE i, a70NEXT i80FOR i=1 TO 9590READ f(i), s(i), d(i)100IF i<50 THEN  f(i+95)=f(i): s(i+95)=s(i): d(i+95)=d(i)110NEXT i120FOR i=1 TO 144130POKE 28006, 144140CALL 28000150POKE 28006, f(i)160CALL 28000170POKE 28006, s(i)180CALL 28000190FOR j=1 TO d(i)*tempo200NEXT j210POKE 28006, 159220CALL 28000230NEX 2:? SPC(29):NORMAL:?130? "Pnts: +=100 *=250 $=500 /=-100"; 140INVERSE: c=2: j=20:FOR i=4 TO 20 STEP 2150VTAB i:HTAB j:? SPC(30-j); 160 tr(c)=j: j=j+1-2*(i>=12)170 c=c+2:NEXT i:NORMAL180FOR i=3 TO 21 STEP 2190 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1200VTAB i:HTAB 29:? d$(q); : tr(i-2)=q:NEXT i210 f=1: a=4: d=INT(RND(1)*18)+3:CALL 28007220VTAB d:HTAB a:INVERSE:? sp$; :NORMAL230IF PEEK(64885)=32 THEN CALL 28007:GOTO 340240 l=INT(RND(1)*19)+3:IF l/2=INT(l/2) THEN 270250 q=ABS(INT(RND(1)*8)-3):IF q8,10,2,138,10,32090DATA   138,10,1,143,8,2,143,8,2,128,10,2,143,11,22100DATA   134,13,8,142,17,2,138,10,2,143,11,2,134,13,22110DATA   142,17,7,142,17,1,142,17,2,138,10,22120DATA   143,11,2,134,13,2,143,15,8,143,15,2,128,10,22130DATA   138,10,2,143,11,2,131,14,8,143,8,2,143,8,22140DATA   128,10,2,143,11,2,138,10,8,142,17,2,138,10,22150DATA   143,11,2,134,13,2,142,17,7,143,17,1,143,17,22160DATA   138,10,2,143,11,2,134,13,2,143,15,82170DATA   143,15,2,128,10,2,138,10,2,143,11,2,143,8,22180DATA   143,50FOR i=1 TO 4000:NEXT260? bp$270VTAB 19:? "PRESS: A - ABORT"280VTAB 20:? "       R - RUN"290VTAB 24:? "CHOICE? "; 300GET k$310IF k$="r" OR k$="R" THEN 340320IF k$="a" OR k$="A" THEN 590330GOTO 300340? bp$350HOME:VTAB 14:? "LOAD TAPE TO HOLD 'LOTTOCOUNT'"360VTAB 16:? "FILE IN DATA DRIVE #2"370FOR i=1 TO 3000:NEXT380? bp$390VTAB 19:? "THEN PRESS ANY KEY TO CONTINUE"; 400GET k$410HOME420VTAB 6:? "OPENING 'LOTTOCOUNT' FILE"430 d$=CHR$(4)440? d$; "OPEN LOTTOCOUNT,L57,d2"450VTAB 8:? "DEFINING1REM   * TO PLAY HIT SPACE BAR *5REM    * FROM FAMILY COMPUTING NOVEMBER 1985 *10LOMEM :2900020DIM d$(4), tr(19)26POKE 17126, 246:TEXT30POKE 16953, 034REM  * TRY SOME DIFFERENT POKES ON LINE 35 *35POKE 17059, 4:POKE 17115, 26:POKE 17126, 246:TEXT40 hs=0: s=0: sp$=CHR$(32)50FOR i=1 TO 4:READ d$(i):NEXT i60FOR i=28000 TO 28012:READ a:POKE i, a:NEXT i70HOME80? "Score:0"; TAB(15); "High Score:"; hs90HTAB 2:INVERSE:? SPC(29)100FOR i=3 TO 21:VTAB i:HTAB 2:? sp$110VTAB i:HTAB 30:? sp$:NEXT i120HTABT i240END1000DATA   58,102,109,211,255,2012000DATA   138,10,2,138,10,2,138,10,4,138,10,2,138,10,22010DATA   138,10,4,138,10,2,143,8,2,134,13,3,143,11,12020DATA   138,10,8,128,10,2,128,10,2,128,10,3,128,10,12030DATA   128,10,2,138,10,2,138,10,3,138,10,12040DATA   138,10,2,143,11,2,143,11,2,138,10,2,143,11,42050DATA   143,8,4,138,10,2,138,10,2,138,10,4,138,10,22060DATA   138,10,2,138,10,4,138,10,2,143,8,2,134,13,32070DATA   143,11,1,138,10,8,128,10,2,128,10,2,128,10,32080DATA   128,10,1,128,10,2,13=0 THEN  q=1260VTAB l:HTAB 29:? d$(q); : tr(l-2)=q270VTAB d:HTAB a:? sp$; 280 d=d+f:IF d>3 AND d<21 THEN 220290 f=-f:POKE 28006, 144:CALL 28000300POKE 28006, 141:CALL 28000310POKE 28006, 34+f:CALL 28000320FOR t=1 TO 5:NEXT t:POKE 28006, 159:CALL 28000330GOTO 220340IF d/2=INT(d/2) THEN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/"C(29)100FOR i=3 TO 21:VTAB i:HTAB 2:? sp$110VTAB i:HTAB 30:? sp$:NEXT i120HTAB 2:? SPC(29):NORMAL:?130? "Pnts: +=100 *=250 $=500 /=-100"; 140INVERSE: c=2: j=20:FOR i=4 TO 20 STEP 2150VTAB i:HTAB j:? SPC(30-j); 160 tr(c)=j: j=j+1-2*(i>=12)170 c=c+2:NEXT i:NORMAL180FOR i=3 TO 21 STEP 2190 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1200VTAB i:HTAB 29:? d$(q); : tr(i-2)=q:NEXT i210 f=1: a=4: d=INT(RND(1)*18)+3:CALL 28007220VTAB d:HTAB a:INVERSE:? sp$; :NORMAL230IF PEEK(64885)=32 THEN CALL 28007:GOTO 34ns!"600?:? "You tied or beat the"605? "high score!"610VTAB 21:? "     Press <E> to end, or"620? " any other key to play again."630GET kp$640IF kp$="E" OR kp$="e" THEN POKE 16953, 95:END650 s=0:GOTO 701000DATA       +,*,$,/2000DATA       58,102,109,211,255,201,0,62,0,50,117,253,201HEN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/"F nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:?:? "Sorry, you missed!"560?:? "Your scor1 SPEED=202?:? "   TO PLAY HIT SPACE BAR "3?:? "TO PLAY HIT SPACE BAR"4?:? "TO PLAY HIT SPACE BAR"5REM    * FROM FAMILY COMPUTING NOVEMBER 1985 *7 SPEED=25510LOMEM :2900020DIM d$(4), tr(19)26POKE 17126, 246:TEXT30POKE 16953, 034REM  * TRY SOME DIFFERENT POKES ON LINE 35 *35POKE 17059, 4:POKE 17115, 26:POKE 17126, 246:TEXT40 hs=0: s=0: sp$=CHR$(32)50FOR i=1 TO 4:READ d$(i):NEXT i60FOR i=28000 TO 28012:READ a:POKE i, a:NEXT i70HOME80? "Score:0"; TAB(15); "High Score:"; hs90HTAB 2:INVERSE:? SP)420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:?:? "Sorry, you missed!"560?:? "Your score: "; s570?:? "High score: "; hs580IF s<hs THEN 610590 hs=s:?:? "Congratulatio0240 l=INT(RND(1)*19)+3:IF l/2=INT(l/2) THEN 270250 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1260VTAB l:HTAB 29:? d$(q); : tr(l-2)=q270VTAB d:HTAB a:? sp$; 280 d=d+f:IF d>3 AND d<21 THEN 220290 f=-f:POKE 28006, 144:CALL 28000300POKE 28006, 141:CALL 28000310POKE 28006, 34+f:CALL 28000320FOR t=1 TO 5:NEXT t:POKE 28006, 159:CALL 28000330GOTO 220340IF d/2=INT(d/2) THEN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390I)420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:?:? "Sorry, you missed!"560?:? "Your score: "; s570?:? "High score: "; hs580IF s<hs THEN 610590 hs=s:?:? "Congratulatioe: "; s570?:? "High score: "; hs580IF s<hs THEN 610590 hs=s:?:? "Congratulations!"600?:? "You tied or beat the"605? "high score!"610VTAB 21:? "     Press <E> to end, or"620? " any other key to play again."630GET kp$640IF kp$="E" OR kp$="e" THEN POKE 16953, 95:END650 s=0:GOTO 701000DATA       +,*,$,/2000DATA       58,102,109,211,255,201,0,62,0,50,117,253,201EN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390I+")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:? "Sorry, you missed!"560?:? "Your score: "; s570?:? "High score: "; hs580IF s<=hs THEN 610590 hs=s:?:? "1 SPEED=205?:? "TO PLAY HIT SPACE BAR"7 SPEED=25510LOMEM :2900020DIM d$(4), tr(19)29REM   --TURN OFF CURSOR---30POKE 16953, 040 hs=0: s=0: sp$=CHR$(32)50FOR i=1 TO 4:READ d$(i):NEXT i60FOR i=28000 TO 28012:READ a:POKE i, a:NEXT i70HOME80? "Score:0"; TAB(15); "High Score:"; hs90HTAB 2:INVERSE:? SPC(29)100FOR i=3 TO 21:VTAB i:HTAB 2:? sp$110VTAB i:HTAB 30:? sp$:NEXT i120HTAB 2:? SPC(29):NORMAL:?130? "Pnts: +=100*=250 $=500/=-100"; 140INVERSE: c=2: j=20:FOR i=4 TO 20 STEP 2150VTAB i:HTAB j:? +")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:? "Sorry, you missed!"560?:? "Your score: "; s570?:? "High score: "; hs580IF s<=hs THEN 610590 hs=s:?:? ":? d$(q); : tr(l-2)=q270VTAB d:HTAB a:? sp$280 d=d+f:IF d>3 AND d<21 THEN 220289REM    --THIS POKE AND CALL MAKE A SOUND--290 f=-f:POKE 28006, 144:CALL 28000300POKE 28006, 141:CALL 28000310POKE 28006, 34+f:CALL 28000320FOR t=1 TO 5:NEXT t:POKE 28006, 159:CALL 28000330GOTO 220340IF d/2=INT(d/2) THEN  nd=tr(d-2):GOTO 360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="F nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="+")-60*(p$="/")420 v=SGN(pt): x=50-20*(v<0)430POKE 28006, 144:CALL 28000440FOR i=v TO pt STEP v: s=s+v*10450VTAB 1:HTAB 8:? s; sp$; 460POKE 28006, 128:CALL 28000470POKE 28006, x:CALL 28000480 x=x-v:NEXT i:POKE 28006, 159:CALL 28000490GOTO 210500POKE 28006, 128:CALL 28000510POKE 28006, 50:CALL 28000520POKE 28006, 144:CALL 28000530FOR t=1 TO 100:NEXT t540POKE 28006, 159:CALL 28000550HOME:?:? "Sorry, you missed!"560?:? "Your scorCongratulatiions!"600?:? "You beat the high score!"610?:? "Press <E> to end, or"620? "any other key to play again."630GET kp$639REM   --"POKE 16953,95" TURNS CURSOR BACK ON--640IF kp$="E" OR kp$="e" THEN POKE 16953, 95:END650 s=0:GOTO 701000DATA    +,*,$,/2000DATA    58,102,109,211,255,201,0,62,0,50,117,253,201360350 nd=29360VTAB d:HTAB a:? sp$; 370 a=a+1:IF a=nd THEN 390380VTAB d:HTAB a:INVERSE:? sp$; :NORMAL:GOTO 360390IF nd<>29 THEN 500400 p$=d$(tr(d-2))410 pt=50-25*(p$="*")-40*(p$="SPC(30-j); 160 tr(c)=j: j=j+1-2*(i>=12)170 c=c+2:NEXT i:NORMAL180FOR i=3 TO 21 STEP 2190 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1200VTAB i:HTAB 29:? d$(q); : tr(i-2)=q:NEXT i209REM   --"CALL 28007" PREPARES FOR KEYPRESS-210 f=1: a=4: d=INT(RND(1)*18)+3:CALL 28007220VTAB d:HTAB a:INVERSE:? sp$; :NORMAL229REM   --"PEEK(64885)" TELLS LATEST KEYPRESS230IF PEEK(64885)=32 THEN CALL 28007:GOTO 340240 l=INT(RND(1)*19)+3:IF l/2=INT(l/2) THEN 270250 q=ABS(INT(RND(1)*8)-3):IF q=0 THEN  q=1260VTAB l:HTAB 29Ì1 ×67From: "George M. Koczwara" <georgek@hlm-gmk.com>Subject: Fw: The English language conundrum> >  Here is a topic for a future discussion with your family of    linguists. > >  Reasons why the English language is so hard to learn: 1)    The bandage was wound around the wound. 2)    The farm was used to produce produce 3)    The dump was so full that it had to refuse more refuse. 4)    We must polish the Polish furniture. 5)    He could lead if he would get the lead out. 6)    The soldier decidedk and send cargo by ship? Have noses that run and feet that smell? How can a slim chance and a fat chance be the same, while a wise man and a  wise guy are opposites? You have to marvel at the unique lunacy of a language in which your house can burn up as it burns down, in which you fill in a form by filling it out and in which an alarm goes off by going on.English was invented by people, not computers, and it reflects the creativity  of  the human race (which, of course, isn't a race at all). That is whytress and a sewer fell down into a sewer line. 16)   To help with planting, the farmer taught his sow to sow. 17)   The wind was too strong to wind the sail. 18)   After a number of injections my jaw got number. 19)   Upon seeing the tear in the painting I shed a tear. 20)   I had to subject the subject to a series of tests. 21)   How can I intimate this to my most intimate friend?Let's face it - English is a crazy language. There is no egg in eggplant nor ham in hamburger; neither apple nor pine in pineYOUR ACTION OR MOVE?"?(N)ORTH, (E)AST, (S)OUTH"?(W)EST, E(X)IT, (G)OLDZlW"?W+?N"?W+?E"?W+?S"?W+?W"?YOU ARE IN A DUST FILLED PORTAL"?A BRIGHT LIGHT IS ACTIVATED AND"?THE LIGHT FADES . . . . . . ."?THE PORTAL IS INACTIVE . . . ."?bob"?, WHAT IS YOUR ACTION OR MOVE?"?(N)ORTH, (E)AST, (S)OUTH"?(W)EST, E(X)IT, (G)OLDZlW"?W+?N"?W+?E"?W+?S"?W+?W"?YOU ARE AT AN EXIT PORTAL"?(A KEY IS REQUIRED)"?bob"?, WHAT IS YOUR ACTION OR MOVE?"?(N)ORTH, (E)AST, (S)OUTH"?(W)EST, E(X)IT, (G)OLDZle, 2 geese. So one moose, 2 meese? One index, 2 indices? Doesn't it seem crazy that you can make amends but not one amend. If you have a bunch of odds and ends and get rid of all but one of them, what do you call it? If teachers taught, why didn't preachers praught? If a vegetarian eats vegetables, what does a humanitarian eat? Sometimes I think all the English speakers should be committed to an asylum for the verbally insane.>  In what language do people recite at a play and play at a recital? Ship by truc to desert his dessert in the desert 7)    Since there is no time like the present, he thought it was       time to present the present. 8)    A bass was painted on the head of the bass drum. 9)    When shot at, the dove dove into the bushes. 10)   I did not object to the object. 11)   The insurance was invalid for the invalid 12)   There was a row among the oarsmen about how to row. 13)   They were too close to the door to close it. 14)   The buck does funny things when the does are present. 15)   A seams, when the stars are out, they are visible, but when the lights are out, they are invisible >=2Tä ç>·*áå#X~íy+í£## ôÍ>åÛæ(ú~íy+í£## ô¯>€7áÑýáÁÉ!çã~þ8¯w#O	fh"åÉÍ>å¯!)ÎDÿÿíB0û= ø	¯=íB<0ûíJG}Ó{ÓzÓ>Óxö ÓÉ>pÓÛîPæÒ øÉñåÕÅfÍ*åÍ:å¯2uýÁÑáÃíô1XþÍ{ñÃÈþ 8
ÿþ ýáÉÅÕåÃ(óÅÕOöþyÂIôšåÕÅÕÃIôõýË~(úý~æýwñÑÁÉÍFôõþ0ñÃvôý6ýË~(úý~æýwñþ >€ýwÃ‚ôåýáýË~Â<èÃOè TO PUSH THE BUTTON"?ENTER (Y)ES  OR  (N)O¹lN"?N+?Y"?bob"?, WHAT IS apple. English muffins weren't invented in England or French fries in France. Sweetmeats are candies while sweetbreads, which aren't sweet, are meat. We take English for granted. But if we explore its paradoxes, we find that quicksand can work slowly, boxing rings are square and a guinea pig is neither from Guinea nor is it a pig. And why is it that writers write  but fingers don't fing, grocers don't groce and hammers don't ham? If the plural of tooth is teeth, why isn't the plural of booth beeth? One goosÌ1 ×68From: "Howard Pines" <hpines9941@oscarnet.net> > > Subject: Try this if you have the huevos... > > > A police officer pulls a guy over for speeding and has the   following exchange: > Officer: "May I see your driver's license?" > Driver: "I don't have one. I had it suspended when I got my   5th DUI." > Officer: "May I see the owner's card for this vehicle? > Driver: "It's not my car. I stole it." > Officer: "The car is stolen?" > Driver: "That's right. But come to think of it, I think I   saw the us Buck Rogers, if I am not mistaken) which has a lot of SmartBasic programming on it including songs, games, etc.  This disk probably goes back to around 1985 or so - from the dubious and dusty archives of A.N.N.    Next month (July) will also be by proxie an old set of ADAM programming because this editor will be incognito in vacationland and THEN headed on to ADAMCON 13 in beautiful, warm, sunny OHIO !!!!!  SEE YA'LL !!!  ee your license? " > Driver: "Sure. Here it is." It was valid. > Captain: "Whose car is this?" > Driver: "It's mine, officer. Here's the owner's card. The driver   owned the car. > Captain: "Could you slowly open your glove box so I can see if   there's a gun in it?" > Driver: "Yes, sir, but there's no gun in it." Sure enough,   there was nothing in the glove box. > Captain: "Would you mind opening your trunk? I was told you   said there's a body in it." > Driver: "No problem." > Trunk is opened and thefer support (P)icks you up (Q)uiets your fears (R)aises your spirits (S)ays nice things about you (T)ells you the truth when you need to hear it (U)nderstands you (V)alues you (W)alks beside you (X)-plains thing you don't understand (Y)ells when you won't listen and (Z)aps you back to reality :-)  [BIG smile] OK THIS IS A TEST TO SEE HOW MANY FRIENDS YOU HAVE!!!! PASS IT ON TO EVERYONE YOU CONSIDER A FRIEND OR WOULD LIKE TO HAVE AS A FRIEND SEE HOW MANY TIMES YOU GET IT BACK!!   Ì1 ×65             June 2001 ADAM NEWS NETWORK MEDIA================================================================This month we have a couple of little items from our friends concerning the idiosynchresies (???) of our english language; a cute story to get you out of a traffic ticket, a friendly smile reminder, AND the ADAMCON 13 registration form.  NOW is the time to make that reservation before it becomes too late!!!!  After all that info, we have a disk from  ADAMLAND (the user group of the infamoowner's card in the glove box when I was putting my   gun in there." > Officer: "There's a gun in the glove box?" > Driver: "Yes sir. That's where I put it after I shot and killed  the woman who owns this car and stuffed her in the trunk." > Officer: "There's a BODY in the TRUNK?!?!? " > Driver: "Yes, sir." > Hearing this, the officer immediately called his captain. The   car was quickly surrounded by police, and the captain   approached the driver to handle the tense situation: > Captain: "Sir, can I sÌ1 ×58From: "Jerry" <gvrancks@crown.net>Subject: FW: Friendship This is a test of the Emergency Friendship System ....... A Friend.... (A)ccepts you as you are (B)elieves in "you" (C)alls you just to say "HI" (D)oesn't give up on you (E)nvisions the whole of you (even the unfinished parts) (F)orgives your mistakes (G)ives unconditionally (H)elps you (I)nvites you over (J)ust "be" with you (K)eeps you close at heart (L)oves you for who you are (M)akes a difference in your life (N)ever Judges (O)fre was no body. > Captain: "I don't understand it. The officer who stopped you   said you told him you didn't have a license, stole the car,   had a gun in the glove box, and that there was a dead body in   the trunk." > Driver: "Yeah, I'll bet the lying s.o.b. told you I was   speeding, too. > > fing, grocers don't groce and hammers don't ham? If the plural of tooth is teeth, why isn't the plural of booth beeth? One goosS+b7X°@+7>577TGS>S`>FT7<;.;7>QhS°@Q<]Ht°@H<@SLt@L>WJfJ>J^	°@J>_Lx2J°@L2
Q^QNA>N+I7>+Of776;97>C2>;C7M
OCZOY>N7>OCJT°@+L7GOfJ+O77BOJ>=OQ=7>QO\>G7@>7ON?	°@N°@<TL^090L<<1C>LHCL<COLWCLQ|0a<f0Q<<RQcCQ<QSCCSQh<>CKC<QOcO°@2a>UN]°@	>2N>OJLJ>>bJb>J°@S+n7f°@+7S
7POKE 16953, 0:HGR190ONERR  GOTO 9000200CALL 27410:REM    setmid205 e%=1210GOSUB 1200:REM    play song215GOSUB 1500:REM    show PICT217GOSUB 1300:REM    next PICT218GOSUB 1700:REM    next MASK219 i=200:REM    delay val 220GOSUB 6000:REM    delay230GOSUB 1600:REM    clear pict240GOTO 215290END1100REM    load song1110? d$; "bload "; sf$(s%); ",a"; sngbuf1120 s%=s%+1:IF s%>ns% THEN  s%=11130RETURN1200POKE 27441, 0:REM    loop1210POKE 27443, sngbuf/256:REM    song address hi 1220POKE 27442, sn>Qc	>SO;SOQ>;OjO°@V+b°@7n+7VJb74>[;P;J>7J`>Y7<;UJ;7>Jb°@J0`°@L<l0L<Q~<QCh<QCNBB°@N+^7aO°@+7>U>7D77JO7t°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@ÿSCCSQh<>CKC<QOcO°@2a>UN]°@	>2N>OJLJ>>bJb>J°@S+n7f°@+7S
71700 vm%=INT(RND(1)*nm%)+11705? d$; "bload "; vm$(vm%)1710RETURN6000REM    delay6020GOSUB 7000:IF z%<>0 THEN RETURN6025GOSUB 10200:REM    move text   6030 i=i-16040IF i>0 THEN GOTO 60206050RETURN7000 z%=PDL(13):IF z%<>15 THEN  z%=z%+128:RETURN7010 z%=PDL(7):IF z%=1 THEN  z%=163:RETURN7020 z%=PDL(9):IF z%=1 THEN  z%=161:RETURN7025IF PEEK(27444)=255 THEN GOSUB 1100:GOSUB 12007027 z%=07030RETURN8000REM    load up data   8005ONERR  GOTO 81008007 z$="Slides.DEF"8010? d$; "open "; z$8020? d$; 10LOMEM :4446015POKE 16149, 255:POKE 16150, 25520 d$=CHR$(13)+CHR$(4)25 bl$="                              "27GOSUB 10100:REM    init text30 signal%=0: f%=0: s%=1: e%=040GOSUB 8000:REM    load data50HOME:? "<A>dam or <M>idi? ":GET z$60IF z$="M" OR z$="m" THEN 10090? d$; "bload BIVID":GOTO 105100? d$; "bload BMVID"105 sngbuf=PEEK(27448)+PEEK(27449)*256107REM    PRINT "Max filesize="; 44460-sngbuf: END110GOSUB 1100:REM    load song115GOSUB 1700:REM    load MASK120GOSUB 1300:REM    load PICT125QSh>HST@>7T7DS`>R7>SQ_Q°@0f<tO~°@0O<L\<7CU@S@<CLC^<I@VLZLC<@LZL°@@+`7YJh+7J7[O~;l>c;7>O°@N°@>t2~>2	N°@@+~O7b+7>E>;V;OO^+b7W7+OO>WO>;F;+HOz7J+O77JO^O776Of>W7O>°@Nr2f>f°@2>
66NNl6`6N°@2ROj°@2ONr6?6N6cL`6L°@+N°@JZ7S+7J7=>S>Qr>YQ>7°@@Sp7O+9+7>YQj7HSQ7gbuf-PEEK(27443)*256:REM    address low 1230CALL 27419:REM    start playback1240RETURN1300 f%=f%+1:IF f%>np% THEN  f%=11305 z$=f$(f%):GOSUB 100001310RETURN1500POKE 27445, vi%(f%):REM    video effect in  1505CALL 27431:REM    show PICT1510RETURN1600 v%=f%-1:IF v%=0 THEN  v%=np%1602POKE 27445, vo%(v%)+128:REM    effect clear 1603 i=vo%(v%)1605CALL 27431:REM    clear it1610 v%=v%+1:IF v%>np% THEN  v%=11614REM    get new mask if trashed!1615IF vi%(v%)=3 AND (i=1 OR i=2) THEN GOSUB 17001620RETURNQSh>HST@>7T7DS`>R7>SQ_Q°@0f<tO~°@0O<L\<7CU@S@<CLC^<I@VLZLC<@LZL°@@+`7YJh+7J7[O~;l>c;7>O°@N°@>t2~>2	N°@@+~O7b+7>E>;V;OO^+b7W7+OO>WO>;F;+HOz7J+O77JO^O776Of>W7O>°@Nr2f>f°@2>
66NNl6`6N°@2ROj°@2ONr6?6N6cL`6L°@+N°@JZ7S+7J7=>S>Qr>YQ>7°@@Sp7O+9+7>YQj7HSQ7"read "; z$8030INPUT np%:REM    get # picts8033DIM f$(np%), vi%(np%), vo%(np%)8035FOR i=1 TO np%:INPUT f$(i), vi%(i), vo%(i):NEXT i8040INPUT nm%:REM    # masks8043DIM vm$(nm%)8045FOR i=1 TO nm%:INPUT vm$(i):NEXT8050INPUT ns%:REM    # songs8053DIM sf$(ns%)8055FOR i=1 TO ns%:INPUT sf$(i):NEXT8090? d$; "close "; z$8093CLRERR8095RETURN8100? d$; "close "; z$8105? "Error reading "; z$8110END9000REM    ERROR PROCESS9005IF e%=0 THEN 90209010CALL 27413:REM    reset NMI 9015POKE 16953, ASC("_"):TEXøüÿ
ÿïÏð| À ?ÿàÿÿþÿ€À?àÿÿÿÀ?ÿðÿÿÿ€Ààðãáàÿÿþüð`@DøÀÿÀ€ÿàð?ÿÿÿü€ÿàÀ?øüà?øððøD@p@DøÀðøDøÀüþÿÀ˜À.w{ŸÇÌƒÎÁcã3¼þ0püqxÌ4üþÿÀ˜À‡ƒ7	`ÿüà€ŽüÀCÀX`à!spÜÝÜœÜîïç11000DATA  "ADAMites at ADAMCON 12 in Toronto - July 20 - 23, 2000"11010DATA  "Jack and Jean Stone"11020DATA  "Bob and Judy Slopsema"11030DATA  "Rich and Frances Clee"11035DATA  "Dr. Rich Drushel"11040DATA  "Guy Bona III"11045DATA  "Pat and Bob Herrington"11050DATA  "Doug and Meeka Slopsema"11056DATA  "Audrey Worfold"11057DATA  "Doug Chappell"11058DATA  "Jean-Paul Gignac"11059DATA  "Peter Searle"11060DATA  "Dale Wick and Jillian Arnott"11061DATA  "Eleanor Drushel"11062DATA  "Ralph Veecock"11pÿ‡<8ósÏ‡<8ø¸<üøü¼žŸ‡Ÿ—“‘Ðð€@ÀàÀ| Àp°Œc0ð#à	gþüÀ€ÃŽÿààƒp`p°Œc0ð#à	gþüÀ€ˆ|À2<8xŽÎNnNñùÝýÀÃÎÏgÝÏÿÁçà0ð˜ˆüw?3€8øDxPHÆÀ0x<n.NŽ9ÍÑÁÎÏÇÁØÌÇGÇç÷wãJððððððððððððððððððððÀ'ÿÿàÿÿÿüÿÿøÿø?ð°PÄdTLDÄÀ ?ÿçàðøüþ?ÿÿ€Àÿÿùøüþÿ€ÿ?øüþÿ€?ÿð| À(ÿçÃþÿ€À?àÿÀ?ùðàÿ€Ààðÿ€Ààð?ÿð`  (0À ÿþÿÿÿàðøü?àÀÿÀÿ?ÿøüþÿÿïçT9020REM    PRINT "Stopped:"; z$; "?": END 9021END10000FOR i=1 TO LEN(z$):POKE 27450+i-1, ASC(MID$(z$, i, 1)):NEXT10006POKE 27450+i-1, ASC("H"):POKE 27450+i, 3:CALL 2743410007IF PEEK(27462)<>0 THEN 900010010RETURN10100REM    moving text10110READ t$:IF t$="" THEN RESTORE:READ t$10115 t$=bl$+t$+bl$10120 tn%=1: tl%=LEN(t$)-LEN(b$)10130RETURN10200IF td%>0 THEN  td%=td%-1:RETURN10203VTAB 22:HTAB 0:? MID$(t$, tn%, 30); 10205 dm%=FRE(0)10210 tn%=tn%+1:IF tn%>tl% THEN GOSUB 10100: td%=20010220RETURN8,ÇGÇç÷wsá;û‹óÎŽqpsq<Èøü>Žü1‡ƒ	`ÿüÀ€ŽüÀÀX`àøDx@ÀÀÁáa1ñð´ˆ(px7Ááa1àñðC´ˆ`  (0À<œp€ðòa€ø<ÀûÃ€>gÇ‡à8<só‡Ïà8<ðøÀàð˜œž<œp€ðòa€ø<Àxˆ€ˆpÀ€@`àÀÃ¼þÎŽ3sp8€€ÇÏ<063DATA  "Ena Greenshields"11065DATA  "Neil Wick"11070DATA  "Ron Mitchell"11080DATA  "Mike Hurst"11085DATA  "Dr. C. Murray McCullough"11086DATA  "George Koczwara"11090DATA    "" EK(27462)<>0 THEN 900010010RETURN10100REM    moving text10110READ t$:IF t$="" THEN RESTORE:READ t$10115 t$=bl$+t$+bl$10120 tn%=1: tl%=LEN(t$)-LEN(b$)10130RETURN10200IF td%>0 THEN  td%=td%-1:RETURN10203VTAB 22:HTAB 0:? MID$(t$, tn%, 30); 10205 dm%=FRE(0)10210 tn%=tn%+1:IF tn%>tl% THEN GOSUB 10100: td%=20010220RETURNÜã‰Žœçãàìæó àðø8ð…‰ðžîÎÿstps{s3?€9øD@p@DøÀøÀ<såxÎîÿîïîÎîàçìüŸûÀûßÝˆÐ?9?9€ÀÏ¹ßÝÁÇÏïw03?;€Ïœ¹8;¿;ž³ów€žs?»¸(Àáã|ÎxîîïîÎÿüþïû;{ŸÝÌÜxÐàÀ@€9ùÏÝÁw';¸ß;»;ÿðù¾ws¸8,À*sûs€¹û¿ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååà0<.NsqÏËÓž—pðp08<.€™¹só·',NA„Ääu{Í@ÀüÜÍÉÏ×ã;þ¾Ž`@À(0p0üÀ(s{¿»ðàN~Ç‡qsÓß±!—×Òp'#!¿¸¼Ÿ¿?™ÇÁ˜Á=ýÁåùÏÆæ÷ga;ãŽÀàp$ÏgÝÏÿÁçà0ð˜ˆüw?3€8øDxPHÆÀ0x<n.NŽ9ÍÑÁÎÏÇÁØÌÇGÇç÷wãåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå