Sys 9/10ý)^DExecOV  DDfn1OV
  DDfn2OV  DGfidOV  DEmsgOV  DTestOV!  DEditOV#  DBfunOV+  DBslvOV3  DBerrOV9  DBfilOV=  EBASICGOC$0TRFSYSTEMSYgCOPYGOj00PRINTGOl00BLCKJACKBSoHAMURABIBS‹WUMPUSBSHANGMANBS³REVERSEBSÃBACKBSÏINITIALBSäSEAWARBSéDROODLEGOþ00HORSEBSˆSTARTREKBS#LANDERBS2STARTREKBSIˆBLCKJACKBS^…HORSEBS^ExecÍÅ!æ@Âë!:õþRÂë!¯2Æ-û:Å-·Ìx#!I%:Å-æ@Äå:Å-æ€Ì;#á#:Å-æ@ÄÍÅ!!@-"Ç-@G%:˜-·ÊZ F%:Ê-æ(<2Ê-:Å-æ@>ÿ2Å-Ä'xþÊA !@-T$:˜-·Ê† "$Íž#Ú– !A åÕ!Ê-~É*Ç-Ë-€ÍÕ!Â² þ	ÊŸ þ ÊŸ Ã¿!þ<Âæ ÍÕ!Ê¿!þ1Ú¿!þ4Ò¿!æO:Ê-æü±2Ê-€ÍÕ!Ê¿!þ>Â¿!ÍÕ!Ê¿!þ.ÊŸ!xþ Ò¿!ÍÕ!Âæ !Ë-x·Ê¿!w:Ê-æ±ÅÍ!ÁÚç!Õë~æÆ…o>Œg^#V!à}„Êæ!!Ë-:Ê-æ±Í$ÚO!Á:Ê-æÊÿ!!É-~öwÃA :Ê-æáÂ¿!å~æ<…o>Œg~þBÂp!#~þSÊ#áó>2ˆ-:Ê-æ2‰-~æÆ_-ë"Š-!Œ-w#Â”!ÃA ¯ÍÕ!Êú ÍÕ!Êú ÍÕ!Â¿!Ãú !Ãî!å!6"“-!É-~ö€wáÉ~#þÈþ	Èþ Èþ,Èþ+ÉÁëÃî!*š-ëÍEmsgû>Í$ÃA ë!A å* å* å!åëåå!É-~öw!É-:Æ-þ€>2Æ-Ê."~æwáÉ>&¯2˜-É!*æ@ÂN"ÃQ"!-æ@ÂN"ÃQ"!³"†-Éæ@î@2±-É*€-æ@Â‡">/6+¼Âg"!É-~öîwÉæ@Â‡"ö@w*Ç-ÑÃy Ãç!Gæ@Â‡"> Â¿!>°Ã"¯!>!>!>!>!>ÍDfn1ÃÅ!!@-ÍÊ"¯ÍEditÃÅ!å!É-~öwáÉ¯!>!>!>!>!>ÍDfn2ÃÅ!¯ÍTestÉBASICGO!÷">Í$Úæ!Á:Ê-ö 2Ê-ÍÊ"é!0Ã!#!0:É-æÂ7#:˜-·Â7#áÃç!ÑÃ"!02˜-~/w¾ÂR#/w¾ÂR##ÃA#+"€-:Å-ö€2Å-2±-ë!U%æ@ÈÍÃÑINITIAL!n#~#Í!Ò‰#>@2Å-É!p#@->€2Æ-~#þÈÃ”#~þ Ê±#þ	Ê±#þÂµ#ÃÖ##Ãž#åÕF¸ÂÐ#þ ÊÊ##Â¹#"Ç-Ã$·ÂØ#Ñá7ÉOxþ Êý#þ	Êý#þÊý#þ+Êý#þ,Êý#Ñ!
ëáÃµ#> "Ç-¹Ê$ÑÁÅÕ!
ë`iÍž#ÒÔ#Ñ!^#Vá¯ÉDISABLE 3"MEMTEST î"INIT    ¤"IMAGE   ¡"SetSys  ­"flip    C"fold    8"RESET   ENABLE  0"FULL    N"DONT    x"VERIFY  U";       ³CONTINUE"START   #REENTER #ZAP     ]"GET     "LIST    Ô"list    Ô"SAVE    Ÿ"DELETE  Ö"UNDELETEÙ"TYPE    ß"PACK    Ü"HELP    §"RENAME  ª"EDIT    ¹"Sniff   â"$$(Exec/4D)-top of RAM is Dfn1Ã‡!!@-Í':@-þYÊ þNÂ 7É7?É".!@-Í'@-!
þÊ^ 
þÊk Ö0Ú% þ
ÚT ÖÚ% þò% ))))µoÃ: *.åÑÍÑ>Í$|·}ÉåÕÅÇ !
Í" Âr þÊ þÊ þÂr ÁÑá2.É~æÆ…o>ŒgÉóÍ32(2¡-:.2 -O>!(ÍÚ°!ÉWhich drive (1,2 or 3)?Disk name (up to 8 characters)?From address = Start address = Load address = # of sectors (1-7F) = File name (1 to 31 characters) = (Cleaning disk)From To !".9".!À!"“-‡_!¤!^#VÕÉ:"÷"Å!?$S%À'¯2 -ÍEmsg>Í$*.ùÉÍÍo 2.!d"“-!(>,6#¼ÂÙ!2±-!i!Í!Z(:.O>åÍÚ°!á++++|þÿÂì!!"(!("(ß !@-
Í'@-!(þÊ7"w#Â*"Ã£ ÿ !0Í" ".!Í" ". !Í" "	.0!!
Í" ÂX"þÒX"".!G!Í!OGË-> ÍGfidÚ°!!Ì-~æö w+~æ#Í!Ú¡"Ã°!{·Â°!zþÂ°!*(".".!Ì-~æÆ_.w#ÂÆ"*.ë*.:Ë-æO:.ÍÚ°!!Ë->ÍGfidÚ°!É!z!ÍÍo :.2.!€!ÍÍo !d"“-!T"	.>ÿ2 -2±-0*	.:.O>
ÍÚ°!0*	.:.O>
ÍÚ°!*	.öÿ"	.|þÿÂ##!0:.O>
ÍÚ°!!0:.O>
ÍÚ°!Ãå*í$,Ê˜#"í$~á·Ê†#É*.|µÂ¤#á¯7É+".*.#".+&>ÍÚ°!!&"í$~á·Ê†#ÉHtxtx!Ì#>Í!Ú°!!.~#Âæ#!ÿ%"í$É~#þÈþ Èþ	ÈþÉ!@-Íõ#Â$þÊ;$þÊ;$Íõ#Â)$þÊ;$þÊ;$Ã$À%Íõ#Â,$>¯ÉáÃŽ$ÍÒ#Í$Í†#Ú…$þÂE$Í†#Ú…$þ.ÂE$Í†#Ú…$þ.ÂE$!À%Í†#Ú…$¾Â|$þÊŽ$#Ãi$~þÊŽ$ÃE$ÍÒ#!ï$ÍÍ†#ØÍ$þÂŽ$Í†#Øþ.Â’$Í†#Øþ.È!Á$ÍÍ þXÈþxÈ>Í$ÃŽ$Type X to abort, anything else to continue:No text found for ...åÕ~æW#~ö€Í$Â
%#>.Í$~ö€Í$#~ö€Í$ÑáÉ System file-not renamed! renamed to !d"“-!@-Íõ#Â\%.>ÍGfidÚ°!Ë->ÍGfidÚ°!!.:Ë-æG~æ¸2.Â°!#~æþÂ§%#~þ*ÊÍ&+~æ<_~þ*Â»%#~·Êj'!.~#Í!Ú°!ë".!Ë-~#Í!Ò°!*.~æ@Â°!~æO:Ì-æþÂ&:Í-þ*>Â&Ã°!¹Ê&Ú†&ÃD&*.Í%!F%Í*.~æO:Ë-æ€Â)&#Í-w#Â-&Í£ *.Í%!Å Ã*.Í%~æG:Ì-æG~€w*(Xå"(>,¼Ê°!Ñå*.#åÁáw+y»Âu&z¸Âu&Ã&*.åÍ%á:Ì-æG~æG/_ÿ*("(*.#ë*.#H	~#>,ºÂ²&*.~æàG:Ì-æ°wÃ&:.æ€Â°!!Ë-~æ€Â°!!„!:.Í!{‚þÂ°!!(~·Èæ€Ê'Í— Ãô&åë*.åÁë~æ<_~¹Â'#~¸Ê!'áÃü&áå~æ@Ê5'Í%!+%ÍÃ'Í%!F%Íáåë!Ì-~æ<O	ë~æ<O	w#wÍ£ áåÍ%!Å ÍÃ':Ë-ö€2Ë-.!Ì-æG~æ¸Â'#¾Â'Âƒ'É!.~ö€#Í!Ò¤'{‚þÈÃ°!ë".~æ@Êº'Í%!+%ÍÃ'ÍØ%Ã'Ío !„!Í!ÒÓ'zƒþÂ°!!(ó~·Ê£ ö@wÍ— Ã×'Dfn2".!ù "“-!9".‡_!$ ^#VÕ*.Éd!#}"j$Ë%–'~æÆ…o>ŒgÉó*(>,6#¼ÂB Í32(2¡-: -O2±->!(ÍÚí É!(~·Ê€ òz åÑÍ0 Ãp z³ÉDisk  has  files on it.Size NameSize Addr   La   Sa Name sectors in use,  deleted.ÍGfidÐÍEmsg>Í$*.¯2 -ùÉ~#þÈþÈþ	Èþ Èþ,Èþ+É>2.!@-Í!Â!þÊ[!þÊ[!Í!ÂI!þ Ê.!þ	Ê.!þÊ[!Ãí þ1Úí þ4Òí æ2.!â :.Ã!Í!Òí {·Âí !… Íë!(~·Êˆ!Í$#Â{!ë#Íå*	(>
Ío&á#Í*(Ír&!Å Í#å!(~·úÁ!ÊÔ!Í0 Ã³!åæÆO	N#Fë	ëáÃ»!ëÍr&áÍ:˜-!  ·Êë!!« Í!(>2.~·Êx"ú\"æ@~Ê":˜-·~Ê\"åæÆ_Íb"áå:˜-·Ê7"~æÆ_Íe"###Íe"#Íe"áƒ ÍÇ":.=2.Â\">2.>.Í$Í >Í$Í0 Ãö!
^#VëÕxÍu&á> Ã$>Ã$Í!Òí {·Âí 2.!d"“-!(~·ú¢"Ê³"Í0 Ã”"æ2.w»"ÍÇ"Ãœ":.·ÈÃ<  undeletedåx·ÊÝ"><Í$xÆ0Í$>>Í$~æO#Í#Âá"#~·Êû">.Í$Í##Í#ëÍáÉ~ö€Ã$!@-Í!Â
#Ë-¯Íå å¯2.:Ë-·úD#!Ì-~æ<…o>„g~þ*ÂD#2.:Ë-ö€2Ë-Ã$!Ì-~æþÂV##~þ*Êz#ÍÛ#:.·Êq#!Ë-~#Í!Úq#ÍÛ#Ã`#á~#þ,Ê#É!Ë-~·úí ~#Í!ÒV#!Ì-~æ_V#^ë".ë!(~·Êq#ò±#Í0 Ã£#åë*.ë~æ@Â×#~æ<…o>Œg~ºÂ×##~»áÂ«#åÍç#áÃ«#!Ë-~#Í!Úí ëå~æ@Âí ~ö€wÍ< á$:Ë-æGÃÇ" deleted.!Ë-~#Í!Úí ëå~æ@ÊP$áÍ0 ~·Êq#~æÀåÂ#$Ì-æG~æ¸Â#$#Í-¾Â#$#ÂE$áå~ö€wÍ< áå:Ë-æG$ÍÇ"Ã#$Í!!d"“-Íj Èë".~æÆ_".~*.·Â»$"(~æÆ_~/_#~Í©$Í< Ãs$*	(+"	(/W*("(É~æÆ_^#Vë".ë#^#Vë".ë*.".ë*({/_z/W"
.*
.|·Âë$}þÚû$>G:.O&*.xõÅÍÚí Áñõ&*.ÍÚí ñ_*.".*."./_ÿ*
."
.|µÂë$*.}/_|Í©$*.åÁ*.~#|þ,ÂW%*.~·Ê„%æÆO	N#F+Õë	ës#rÑ	Ãd%"(Í< Ãs$å*.,".ÊŸ%~á·Ê%É*.|µÊù +".*.#".+'Õ:Ë-æO>ÍáÚí Ã˜%!@-Í!ÂÎ%Ë->@Íå !ÿ'".!Ì-~æ@Âí ~æÆ_^#V#ë".ë^#Vë".ÅÍ%ÁÍ$þÂ	&Â	&>.Í$Í þXÈþxÈ>Í$Ã&2i&:i&2j&¯2h&x·Â‰&>2h&ÃŒ&2g&"d&!0&"@&¯2f&2k&!B&"b&Í@'*d&Íä&:f&·Â¾&<õ*@&60#"@&ñG:h&·ÂÙ&:g&ØÊÙ&O> Í$¯ÂÏ&*@&6!0&ÃT]bk>å*b&+N+F"b&á·	Ò'<T]Ãö&þ
Ò'Æ0þ0Â'g:k&þ|Ê'Ã3'Æ7*@&w:f&<2f&:k&>2k&#"@&xþÿÂæ&yþÿÂæ&É:l&G:j&¸ÂR'*m&"b&É!T]{/_z/Wå*b&r#s#"b&Ñ:j&2l&Í}'ÒU'*b&"m&É!·GÒ‰'·Ø·È{_zWØxÃ€'Í!!]å!:.OxÍÒ¿'ÍÑ>/Í$ÑÕÍÑ>	Í$á+|µÈÃœ'Gfid2$"" "ë"""Åá""æ‡_!, ^#VÕ*""ë* ":$"Éf Š!~2ü-" "#þÈþ	ÈþÈþ,Èþ Èþ+É!!!!!¯2ü-* "7Éë6Õ+#6Âl Ñæ€Êˆ 2ü-!@-" "(Í'*""ë* "€Í0 Â¥ þ	Ê’ þ Ê’ ÃS þ<ÂÎ Í0 ÊJ þ1ÚJ þ4ÒJ æÍ0 ÊJ þ>ÂJ Í0 ÊS þ.Êa!xþ ÒM Í0 ÂÐ *""~±wx·ÊS #w:$"æ Ê!y·Ê!å~_ë*"ë#r#sá:$"æ@ÊX!+~#Í!õÕÚ5!æÆG*""#wÂ*!ÃV!{·ÂV!zþÂV!*(ë*""#~æÆÕ_Ñs#rÑñ* ">2ü-É¯Í0 ÊP þ.ÊP Í0 Êä þ.ÊP Í0 ÂP Ãä ~æ·ÊJ þÒJ #Í!Ò²!{·Â] zþÂ] :$"·ú] ÃÄ!:$"æ€ÊY * "#Í"Ãñ!*(ë* "#Í"ë>,¼ÊV "(6*	(#"	(!úÿ^#V*("(Í32(2¡-: -O!(>ÍÚ] É~æÆG~#Â"ÉEmsgÃ	 d Í*š-"œ-ë"š-:É-ö@î@2É-d ë~þÿÊ[ ºÂ5 #~»Ê@ +##~·Â6 #Ã$ #Ã?No message for error !D ÍÃÑI can't run that fileI can't find that fileDisk directory unreadable!ÿDisk directory destroyed!I can't read directory-no disk or door open!Disk directory unreadable!DIO says: Bad parameters!DIO says: No disk or door open!DIO says: Hard error! Preamble bad!DIO says: Checksum error!DIO says: Verify error!DIO says: Write protected!Dont what?Nothing to run!Gfid says: Bad disk identifierGfid says: Name too longGfid says: Illegal extensionGfid says: Name null or wierd!What?That file already existsThat file does not existI can't: the disk is fullI can't: the directory is fullI can't rename across drives: use copyNo new extension givenI can't do that to a system fileOutput file not specifiedOutput file already existsInput file not specifiedInput file does not existÿÿTest*€-"-!:¢-·ûvÂ
 Ã4 õÍ ñæÆ'Î@'Í$É{/_À/_AÉÍF ?ÍF ÍF Ã4 !!Í>"Í >Í #Í:.!Í :-!Í #Íy<Í UÍš ªÍš Íš ÿÍš !!Í:+!Í :*!Í #ÍÉA*-!#T!"ÅÕåsÍ+ #z¼Â¦ >áÑÁõÅÕå~»ÄÔ Í+ #z¼Â¹ áÑÁñ=ÈõÅÕåÃ¹ åÕÅõCë**!,Âë $Âë ñÁÑáóÉ"*!>Í$zÍ {Í >/Í$ñõÍ >/Í$xÍ Ãå  Test - Cl= Errors=ÂU!#
¾ÂV!#
¾ÂW!#
¾ÂX!#^#VQ!ÅëéÃ!#######Â#!!"ÍS#Ã!ASMB `)EDIT  )RUN  'EXIT ÀLIST ¢(PRINT''INIT P(COPY é,RENAM¸'DELET˜.MERGE&.DUMP Á,LOAD D,CHGATj'CREAT(XGEN M,HOME (BUILDb*RUNGOÓ)VIEW ø*EditÃk Edit/31! Ãz¼À{½É}“o|šgÉï ©$û"Z$ï ñ"Ö#ï ï M#M#M#M#M#¼#%É#*####ï ¥#‰#z#ï ï ð Ã0Ã0>ÍEdit·ÂÆ åÍ !\ 0~#Â{ áÍ„%Ò– ÍEmsg>Ã$*.".0!7" 0"(0*€-"*0*.0ë*Í "&036ÿÍ©$Íû"!<!"“-ÍB!Í^!Í !Ï åGþòM#xæ_!$ ^#VëéÉÍ !s'Í!w'ÍÍN!Í þÀ!f'Í>ÿ2@3!@"&0Íñ"Í©$:`0·Â,!Í%Ã!Í%Â,!Í'>É20áÉÍ Ã6!"$0*(0""03!7¯Í ÂT!É>ÿ2'0*"0ë*(0Í Ê!*€-ëÍ Ú¢!~þÊ«!þ	Ê±!ÍÂ!Ø#Ãi!>`i"&0ÍÂ!Ø**0#Ãi!> ÍÂ!Ò¢!É?Ã´!?{ÍÄ!Øy¢Â´!#Ãi!ö€å!3	¾ÊÓ!w*.0	wá>¸É*(0+~*$0þÊï!þ	Ê÷!#Ã"@ÀÃü!ø} o"$0ÃN"**0#~þ	Ê"þÊ$"*$0+"$0ÃN"?Ã&"*$0ë!3+z·úJ"~¸ÂJ"þ?ÊE"?{¡Â."ë"$0:%0þÚ"Â"@*"0~#""0þÊx"Êx"þ	Â["xæøGÂ["!À"$0Ã"*(0""0!"$0öÉåÕõ*&0ë!3:æ~Ê©"æÃ«"ö€¾Ê¹"w*&0ë*.0wñÑáÉ* 0ë*(0Í È+"(0~**0w+"*0·É*€-ë**0Í È#"*0~*(0w#"(0·ÉÍ#Í"Âñ"ÉÍ½"Í"Âû"Ã"Í×"ÈÍÙ!ÉÍ½"ÈÍ"öÉÍ#È*(0+~þÂ#öÉÍ#ÊJ#**0#~þÂ*#*(0+~þÊJ#Í#Â:#öÉxþÊg#**0ë*(0Í Èxw#"(0ÃÙ!* 0ë*(0Í È+"(0~Ã"Íg#È*(0+~þÂz#ÉÍg#È*(0+~þ0Øþ:Ú‰#æ_þAØþ[Ú‰#É*€-ë**0Í È#~þÈÍ-wÃ¬#ÅÍ#ÁÈÂ¾#ÉÅÍ*#ÁÈÂË#É*(0ë**0Í Ðë",06ÿ#"(0!¢0"00Í^!Í þÊK$þÊ.$ö€G*(0ë**0Í Òñ#ëp#å!ÿ'ë*00Í Êñ#p#"00á"(0Ãñ#*(0ë*,0#Í Êñ#ë+"(0*00+"00Ãñ#*00+ë*,0"(0ë"20**0ë!¢0å*€-Í áÊ¥$~æë#¾ëÂ^$ëå*20Í áë#Âa$**0ëÍ +",0Í^!Í#Í"*,0ÿÿ",0Ú’$Í^!ÉÍñ"*(0",0ë**0Í |µÈ|g}o#ëÍ"z³Êð$Í&Úë$w#"(0þÂÄ$¯²ÂÄ$³æÀÊð$ÃÄ$>2`0*(0ë*,0Í Ê"Í½"Ãð$Íû"**0",0ë*€-Í |µÈ|g}o#ëÍ"z³ÊG%Õ#~ÍÏ&Â2%"*0",0ÑþÂ%¯²Â%³æÀÂ%"*0öÉ{þÂ|%Í$'Í !–'Í!¢0®' Í'!¢0Í)&ÐÍEmsgÃ_%>Í$ÃÍF'Â„%å¯2_02`02”02–0!¾'Íá" 0+>¾ÊT'#XT40>`ÍGfidÒÑ%!Í Â}&!Ô'Í* 0Ã)&>2_0å!50~æƒ_"g0a0~#Âë%!ÿ1"e0á>¾#Â!&!50~ö€w+>ÍGfidÚ!ö'Í* 0Ã)&å!Ì'Íáå!è'ÍáXT>`i0ÍGfidÒQ'!Í Â}&>2”0!Ì'Í!j0~æƒ_"ž0˜0~#~!"š0!2"œ0¯É7ÉÅÕå:_0·Ê¤&*e0,Êœ&"e0~·ÊŒ&áÑÁÉ*c0|µÂ¨&7Ã˜&+"c0*a0#"a0+:40æO>1GÍÚM%!1"e0Ã“&ÅåGöxõ:–0·Äï&*œ0ñõw,"œ0Ìï&ÁxáÁÉ>2–0*˜0:i0æO2>ÍÚM%*˜0#"˜0*š0#"š0¯2–0É¯ÍÏ&Â'*š0ë*ž0##s#r¯#wÂ3'!i0>ÍGfidÉ~#þÈþ Èþ,É!ÍEmsg>Í$7ÉExiting...		     Hit ESC again to leaveOutput disk is full. New file name:Input file: openednot foundCreating output file: deletedBfunãÕo&) ^#VëÑãûÉ!3!J!\"i"i}"¹"É"Ñ"û"#<$Í$d%Ô%6&&F !ª&'ÁÍNG2@.õ>ÓÍ¢ ÍHEÍŒEÂl *RåÍ²AÑë"RÃr ÍNGGñÂ/{²ÈF:@.Í/+Ãw óå*‚-p->ÿ½Â• .?:„-½ÊŸ "‚-áûÉõ!/z·Â¢5ñþÓ{Êá þ Ú¿ 6Û#s#6ÉÉþÒ¼ “"þÚ× !R._^#Vë"/>Ã2/Éþ Úî 6x#6ÓÃ¹ þÒ¼ † ·Ê× $þÊ× !B.ÃÏ ÍNGÕÍHEÍNGásÉÍEÍNGÕÍHEÂ%!ÍNG!*!ãéÍ8GÍ%EÃU@ÍiG*¯ºÂ8G»Â8Gë"ëÃ8G>:õÍ6Eñ+¾Ê\!"fQÃÕ!Í—!Í¾B"Ó!*Ñ!+|µÈ"Ñ!*Ó!ÍÀ!ÕÍÀ!ÕÍÀ!Ááx²Â™5yþ0ò™5{þ€ò™5QÍ"Ãe!*fQåÍ6EþÊ“5þàÂ›!ÍNGë#"Ñ!ÍHEÍ6Eþ2Â“5á"fQÉÍ©DÍiG*Ó!ûÿ	"Ó!ÉÍNGz·Â™5{þ€ò™5ÕÍHEÍNGz·Â™5{þ0ò™5ÕÍHEÍNGkÑSÁYåÕ{æþO>/’ÿÞÒ"Æ&h))))))G:WYÑ{æxÊ/"Æå!V"O	Fá~Oþ@ÚB"?Ñ{æxÊR"î?¡w"É±ÃM" ÍEÍ¾BÂ¥5ëÃ*!ÍEÍ¾BÂ¥5z³Ê¢5n&Ã*!ÍiGõ>ÛÍ¢ ñ2A.Í/o&Ã8Gá!·Ê£"GÍ oÃŽ"ó*„-:‚-û½Ê´".ÃŽ".ÃŽ"Í»D*jQë*RÍ)FÃ8GÍiGënÃŽ"ÍE!"R!ìQ¯7ÍWB¯!pQìQÍOÚÌ5!pQÍ©DÃ-!ÕBK	$ÍÆJÑ·õÕæ*RåëÍ©DÁÅ	$ÍÔKÍiG{27RëÍ8GÁÅ	$Í¥IÑÁÅÕÍ¯J:7RæÊP#ÑÁÅÕ	$Í¯JÑÁÅÕ
æÑÕ!,$Í”D*RÁÑÕåÅåëÍ©DÁPYÍ¥IÁÑÕÅÍ¥IÁÅ'$ÍÆJÁÑÕÅÍ¥IÁÅ"$ÍÆJÁÑÕÅÍ¥IÁÅ$ÍÆJÁÑÅÕÍ¥IÑÕ*RåëÍ©DÁÅ;$ÍÆJÁÑÕÅÍ¥IÁÅ6$ÍÆJÁÑÕÅÍ¥IÁÅ1$ÍÆJÑÁÁÅÍÔKÁÑÕÅÍ¥IÑÁÅÍ¯J*R"RÁñòø#
·Èî€:7RæÈ
·Èî€ÉpycAP@0BCB”H@30…F‚p6Å$ xCrD$QÀ‡8QG4@pBE&‰BCÕBK$Í¥IÑ!c%·Ê”DõæÕëÍ©DÍŸDÍº?ÍŸDÁÅÍ¯JÍiGz·Â.J{þ@Ò.JÁÅõöQ!Ì$>	Í&Á!öQ~€wÑñò”DÕ!c%Í”DÁöQÃÔK™™™™@#XVA&P’‘A 4–“AiATxTa@f!$@—V‚#?PsX¾8DA?ÕÍØ$Á$ÃÔK·Ê™5ú™5õ>@ÕBKöQ!J%>Í&ÁÅûQ!c%>Í&öQûQÍÔKÑñÖ@ò%/<€o&ÅÕÍ8GáåÍ¾DÁÑ
²öQÃÆJF#58¾@T0À‡QEÀ†AEƒ?“‘S@Fqh?u2r>BWc@BPƒA'tAA·Èú™5@æÊt%<ëpÞ@õåDMöQ!Ó%>Í&>áåõûQÍ”DûQöQÍÔKûQöQÍ¯J$ûQÍ¥IöQûQÍÆJñá=Â‹%åë!öQÍ”Dáñ†wÉTB@TBA
·È·Âä%PY!c%Ã”DÅÕëÍÁGÂ&$ÑÕ·ú&Í(AÚ&áÍ©DÍiGáÕåöQÍ”DÁÑÈÕÅöQÍ¥IÃ&áÍ©DÑÕÍØ$!pQåÍ¾DÑÁÅÍ¥IÑÃF$·ÊQ&ÍŸDBK€&Í¥IÍiGë+"RÃT&Í»D*R}æ-â`&?|g}oÂZ&"R#Í8GÍŸDBK€&ÃÔKeS`E"ìQõÅÕÍ”DÁÑÕÅÍ¥I*ìQûÿ"ìQëÁÅÍÆJÁÑñ=ÈõÃŒ&!d"ô.!"@.ÍCHåÍHE*ð.ÂÍ&ÍCHÚÍ&ÂÍ&#"ìQÍ/EþÂ™5á¯2ZQ~þÈìQëÍsEÐëtQÍ¤6#å!tQÍ\EÍ–IÍ‘IáÃÝ&!
"ö."ø.ÍHÚ('"ö.ÍHEÂ('ÍHÚ™5|µÊ¢5"ø.Í/EþÂ™5ÿÿÍÿF*î.~þÊm'###"fQÍ6EþÊ9'Í1HÚE'ëÍÿFÚE'ÂE'*ú.ë*fQ++s#r#ÃE'*ø.DM*ö.ë*î.~þÈå#s#r#á…oÒŠ'$ë	ëÃy'Bslvo&) ^#VëûéÞ N"Ö !b.^#V#åÅ!. åë>ù€/<éÁáò ÉÍ7#ÉÍ'#ÉÛÚS ÒdÛ!
6#wÃd!6#~ÓÃd:é.·Âi Í7Ío Ã5ó¯Óå!T"áûÉÍ‘ ª@ÎÉÍ‘ ª@ææÉÍo ó!= "!5 (~#Â£ ûÃ­¯GÍ(õ:é.·ÊÆ ñë¾ëÂ"ÃÈ ñõ€GñÂ± Í(€É!–#>?Ãâ ¯!¶$2é."ë.!_ "ô.ÍHEx%Íú Ãt!Í/E*fQ"~#þ€Ò>!þ Ê!!þ,Ê!!þÊ!!Ê´HÃ!"fQGyþÊ3!> Ã%!xþ,Êd!*ë.Áéå!‚0G~¸ÊP!<#ÂC!Ã“5#~þÒ`!Ê´HÃP!áÃ!Í6EþBÊ} þPÊ† Ã“5!"ÍaEÍ‘I>–ÓOÍ(=Â!yþåÂ!€%:é.õ¯2é.Í¯ Â"ñ2é.!€%x%~Í$#Â®!!€%¾Âz!#Â¼!:Š%O:%==Ê9"=Ê'"==Êß!Ã}!*‹%ë*î.ëÍ¯ ë+õ:é.·Âø!"ð.:ˆ%Í#Í‘IñÊ}!Ío :é.·Â"Í7ÃÌ5ÃÌ5Working..."Í<":é.·Â9"*fQ6ÃÊ7Í‘I:é.·Âo *ð.6Í7Ão *î.~þÂ\"ÃÌ5!i "ô.!ü#"ë.¯2é.Í6Eþ,Ê|"þ;Â“5>>2í.%Íú >2%!"›%"˜%*î."ž%ë*ð.	Í)F"Ž%!"ÍaEÍ‘I*Ž%|·Ê×"Í)F"Ž%¯2š%ÍE#*›%"›%Ã²"}2š%ÍE#¯<2š%:í.2%ÃE#O~#õ€GñÍ,Âï"x/<Ã,dÍ#
Í#GÃ#‘ú#Ã#Ã#õxÆ0Í$ñÉå!õ~·Â,#4#ñwáÉå!
~·Â;#5#~áÉ>!Ó:˜%Í#Í‘I!ÿ+|·ÂU#@>æÍ,Â]#>Í,>!%Íì":š%*›%ë*ž%Íì"*˜%#"˜%>æÍ,Í,Í,Ão ÃÌ5åÕÅÍ ÁÑáË-SB> ÕÍGfidáÚÐ5~#Ã!å*›%w,"›%áÀåÕ*›%}·ÊÛ#6,ÂÒ#"›%ë*¬%#"¬%+:®%O>ÍÚÐ5*¨%#"¨%ÑáÉë~þ Ê$#6 !%Í›#Ú$ÃÐ5{‚þÂÐ5ó:Ë-æ2®%!"ª%"¨%!/"›%*("¬%"¦%*î.~þÊ_$tQÍ¤6#åtQÍ½#þÂQ$áÃ@$:í.þÂ{$>RÍ½#>UÍ½#>NÍ½#>Í½#:›%·ÄÈ#!"¬%ó!Ì-~ö wæÆ_¦%w#Â$>!Ë-ÍGfidÚÐ5Éë~þ ÊÀ$#6 !x%Í›#ÚÐ5ë~æÆ_¦%~#ÂØ$!ª%¯†ÂÐ5#Âé$:Ë-æ2®%!ÿ/"›%!œQÍ$%wþ#Â%Íá5Ú%ÍaPÍ7Ã%Ír5Ã%å*›%,Ê6%"›%~á·Ê$%É*¨%|…·ÂN%áá:æ.þÀ<2æ.Ã'"+"¨%*¦%#"¦%+/:®%O>ÍÚÐ5!/"›%~á·Ê$%ÉBerrÃ	 I!ûåÕÅ_! ^#VëÁÑãÉ( # Ÿ ÕÁÃ* Íûv:^Q¯ÊF *R"jQ*Rs#r#Å!"@.Í€I:ZQ·Â’ 2ê.:`Q·Â’ ÍÚ `itQÍ¤6Í‘I!tQÍ\EÍ‘I:ê.æ?Ê’ W> Í$Â >œÍ$Í‘IÑ!"@.Íõ Ã« ûå!"@.áÍaE:`Q·Â‘I:ZQ·Ê‘I!?!ÍaEÍÚ 
o
gtQÍZH>!tQÍ\EÃ‘I*î.DM^ë!fQ#z¾+Âð {¾ëÐÃÝ *š-"œ-ë"š-I!ë~þÿÊ3!ºÂ!#~»Ê!+##~·Â!#Ã!#Í+~þeÀ!.!Ãrror*š-ëÍEmsgÉ in line "Syntax eSyntax eSubscript eBad argument eDimension eFunction definition eOut of bounds eType eFormat e	I can't find that line 
FOR-NEXT eRETURN without GOSUBDivision by zeroFunction definition eMissing matching NEXTRead eOops...BASIC goofed!Oops...BASIC goofed!Input eOut of memoryI cant do that directlyArgument mismatch eThat line was too long!Overflow eTape checksum eTape verify eCan't continue!That's not a BASIC file!Nothing to save!That channel not open!That channel not open for inputThat channel not open for output End of file on that channel!Input eÿCan't do that to an OUT file ÿÿBfilO:þþnÂÐ5y! Í¦$ëûéô ô ô !d d d d åÅ!Ö.Í¦${²ëÂG Õ!ÍêDÑër+sëå}6#½ÂI ÑÁáÉ:@.‡_!Î.^#VëÉ2@.!r._~æÂõ {‡O!Æ.	^#VÕ!Ö.	^á{½Ê¡ 6#½ÂŒ :@.!¡ ååÕÅõÃ•3ÍT œQ#~+æÆG~#Â¯ !úÿ:@._å!¾.^#Vás#r!œQ>ÍGfidÜÐ5:@.!r._6!b.is#rÉ~æÊÝ CÍ3ÃÝ Í/Eþ:Â“5Í6EÍNGz·Â¢5{·Ê¢5ú¢5þÒ¢52@.ÍHEÂ“5Í/Eþ\Ê“5þÊ“5þ‘Êõ"þOÊ0#þRÊ{"þCÊ"þPÊT!Ã“5Í6EÍ/EþOÂ“5Í6EÍ/EþSÂ“5Í6EÍHEÂ“5ÍNG{²õÌ”"ñÈ:@.G!r.…o~æ@ÿÊÌ5H!~.		N#F+z¸Ú«!Â²!{¹ÊÎ!Ò²!åÕÍ”"Ñá:@.Í^2GÚÎ!~»Â²!#~+ºÂ²!xþÂ«!:@.O!r.	~æÈÍ$:@.O!Æ.Í¦$Õ!Ö.Í¦$á}»À|ºÈë!Æ.ÍF$!®.åÍ¦$áÍF$!¾.åÍ¦$á|µÈÍF$ÉÍ6EÍ/EþLÂ“5Í6EÍ/EþOÂ“5Í6EÍ/EþSÂ“5Í6EÍ/EþEÂ“5Í6E:@.þØO!r.	~æ€È!b.Í¦$!n"å:@.ëé:@._!r.6ÉÍ6EÍ/EþEÂ“5Í6EÍ/EþWÂ“5Í6E:@._!r.~æ€ÊÌ5ÿ~æÂÌ5~æ@ÊÌ5~æÂÌ5~æÂÇ"{ÍT Ãé#~æCÅÄ3ÍT Íé#ÁxÃc$åÕÅ:@._!b.^#V!ñ"åÕÉÁÑáÉÍÚ"Í6EÅÍHEÂ“5ÍNGÁÕÂþ":@.O!b.ÑÍF$!B.ÑÍF$!R.ÑÍF$!r.6ÉÍ6EÍ/EþPÂ“5Í6EÍ/EþEÂ“5Í6EÍ/EþNÂ“5Í6EÍHEÂ“5ÍŒEÂ“5*RåÍ²AÑë"RœQ:@.þÚ“5z³Ê„#~+Ãw#>ÍHEÂ“5ÍÚ"Í6Eþ†Êã#þ”Ê¬$þIÂ“5Í/EþNÂ“5Í6EÍ/Eþ”Â“5Í6EÃ[$ÍT |µÂÐ#Õ!,ÍêDÑër+sëë!œQTDÕ>`ÍGfidáÉÍ»#ÜÐ5~æ2A.#~æÆ_^#Vå:@.O!~.	:A.w!Ž.ÍF$á#^#V!ž.ÍF$yÍ, :@.O!¦.ÍF$!r.	6À^2!R.ÍF$ÍL$i!b.		s#rÉ!~.ÍF$!†.ÃF$:@.õÍã#ñ2@.OS3!B.ÍF$>Q!b.ÍF$!r.	6Â!ž.Í¦$!¾.ÍF$!Ž.Í¦$!®.ÍF$!¦.Í¦$!Æ.ÍF$É		^#VÉÍ»#Ò%{·ÄÐ5zþÄÐ5~æ2A.#~æÆ_^#V#6ÂÒ$:@.O!®.ÍF$Í, !Æ.ÍF$!r.	6ÁS3!B.ÍF$!¾.ÍF$ÍL$>Q!b.ÍF$!~.	:A.wÉÍÐ5Ã 2Ã"2! "System 88 BASIC version A01.",FREE(0)," bytes free."Ê7«?2Q77-Q«7m7°?ž7/Qx89ñ<9ë9¢<@>Ï;¤:þ:/;ï;T<V?â<ê;E?<?<Q·:¡?¦?ç:€LETFOR‚PRINT‚!ƒNEXT„IF…READ†INPUT‡DATAˆGOTO‰GOSUBŠRETURN‹DIMŒSTOPPLOTŽRESTOREREMFN‘DEF¼END’FILE“ON”OUT•POKE–EXITŸSTEPžTOTHENœTAB›ELSEšCHR$™ASC˜VAL«STR$ RUN¡LIST¢VERIFY£SCR¤CLE¥LOAD¦CON§EXEC¨REN©BYEªSAVEà(â*ã+å-ç/ìANDíORï>=ð<=ñ<>ò=>ó=<ô<õ=ö>÷NOTá^ÆINTÌLENÍCALLÎRNDÊSGNËSINÄSQRTØFREEÙINPÚPEEKÛABSÜCOSÝLOGÞEXPßTIMEÿ©’?
¥IÆJ?¯Jº?
ÔKŽAšA~?mAyA—?"AAA"AAÿ@AA„Aj?e?o?•Ay?ˆ?ƒ?Q?¯.7õÁ!9Åñ"ò.!D2"“-!d"ô.*€-VRëÃÙ4>?2ZQ*ô.éxþÌÃ$^#VÉ·Ê åÕÅG_!r.N!¦.ÍV2+yæÊ²2åÅÕX!Ö.~Ñ»ÁáÂ•2#r+Ã²2s#rþÂ­2!~.X4Â­2#4ÁÑá·ÉåÕyæÄ3yæîOX·Â×2!ž.ÍV2{²Ê3r+sX!Ž.ÍV2y·Âæ2r+sÕX!~.N!Ö.XÍV2áÅ>ÍÜÐ5ÁX!r.~öæûwÑáÃ•2ÑáÁÑá¯7ÉåÕÅX!®.ÍV2ÕX!Ö.ÍV2ÕX!~.NÑá>ÍÜÐ5ÁX!r.~æûwÑáÉþÊM2åÕÅõO_!r.~æÂË3!Æ.ÍV2xr+såÕ!Ö.Y~Ñá»Â3#r+yÃ•3ñÁÑáxÉ_!®.ÍV2Õr+s_!¾.ÍV2r+s_!Ö.ÍV2Õ_!~.NÑá>ÍÜÐ5Ã3~æÂ 4~æÊú3åY!Ž.ÍV2ÕY!®.ÍV2á|ºÂï3}»áÂú3~öwÃ 4~æ÷öwY!®.ÍV2ÕY!Ö.ÍV2!~.	NáxÍÜÐ5!Æ.ñõOYÍV2ëñÁÅõxF¸ÊD4þÊ­4ÅOxþyÁÊª4w#ër+sñõåÕ!Ö.OY~Ñá»Â3Íd4Ã3s#rÕy_!®.ÍV2Õr+s_!~.NáÑõ>ÍÜÐ5ñ_O!r.~æûw!¾.ÍV2r+s|À(ÃÌ5Ã3ñõOÕå!Ö.YÍV2á6#{½ÊÌ4~þÂº4ÑÃD4Ñë+Íd4ñÁÑáÃS3"î.*ò.ù"dQõÍ47ñÒ5*î.~þÊú4ÍQÃî4"ð.Í7Ã5Í7¯2æ.ÍËEÍ±EÍ«A*dQù!"@.Í€I>2`Q!5"ô.û!"ö."ø.¯2ZQ:æ.·ÊO5>Í?I:aQ·ÊO5Í?IÍ—HÍ‘I:œQþÊ@5Íá5Úl5Í7ÍaPÃ5Ír5Ã5!tQ"fQÍ/Eæàþ >0Êj8ÍR8Í/EþÈ!_Q¾È!!!!!!!!	!
!!!!!! ÃÌ5*ð.+"fQ¯Ã×5>Ã×5>ÍBerrÃ5!œQ"fQÍH"rQõ*fQtQÍœ6Õ‚0åG¾Â
6#Ã6·ú<6·ò6áîÿÂý5Ñ~þÊ6#þ"Âö5~þÊ6#þ"Êö5Ã*6ñÑxþ‰Ê`6þˆÊ`6þ–Ê`6þŽÊ`6þ›Ê`6þÂö5Íœ6"fQÅÕÍHÑÁ>—D}*fQÚö5xÍœ6þ,Âù5#Ã`6>!qQqñÉ#~þ Ê™6É#åÍ{EÍZHá##:fQ•:gQœÒÉ6:ê.·ÂÉ6{Öuæ?2ê.~þ—Ê7·úé6þÂå6:ê.·À{Öu2ê.ÉÃ®6å!‚0¾#Âí6~·úý6#Ãò6áÃ®6#åÍ{EÍZHÃ¬6Í{7*î.6"ð.Í{7*€-6+"R*ð.#"jQ!4ÍêD¯2aQ½5!B.Íb7º5Íb7iÍb7Íb7!Ö.Íb7!M2"D.!S3"B.És#r#ÈÃd7ÍExec!D2"“-É!b.^#V#åÅ!‘7åë>ù€/<éÁáò€7!"@.ÉÍ{7Ã###"fQÉ:aQ·ÊÐ5¯2`Q2ZQ!d"ô.áá"fQÃC8*ò.ù"dQ!d"ô.ûvÍCHÂ«5åÍ7Í‘I*î.~þÊ5+"fQ"hQ6¯2ZQ2`Q2aQÍ«A‘¯ÍýCÚ98þÊŸ5Í'EÍõCÍ9DÒÌ5å!ÍêDÍ EëáÍ’BÍDÃ8áÍ¤7ÍËEÍ±EÍ–IÍR8Í®CÒC8Ã˜<>2_Q¯2^QÍ/E·òx8þ—Ò“5T0Í6Eæo&Í{Eé&ååÍ¾BåÅ>õÍ6Eþ,ÊÁ8þõÂ“5ñ>õÂŸ8*fQåÃÜ8ñÁáåÅÍú?*R"ç.Áá>¼Èë*ç."RëÍ¾DÃ­8ñÂ|8õ*fQåÍ6EþÊ“5þ\Ê“5þõÂÊ8ÑñÁáÕõ>ÍWBñ*fQ"ë.á"fQ·Ê|8áá¯¼Â“5*ë."fQÉÍFÍ¾BÊ¥5åõÍ'EÍú?áåÍ¾DžÍ'EÍú?>ŸÍJEÒ49!ªAÍ©DÃ79Íú?ûÿÍÌDë*fQ"ç.ãåÍ®CÚ®5ër+s+Ñr+s+6á"fQ¯GÅƒÍýCÚx9þÁÊ^9Â_9Ã…9*ç."fQÃÌ5ÍF¯2ìQ*R#~þÂ®5#åÍÓCÚ¦9ÍÄBëáåÍsEÂ®5áååãN#FÑÕ:ìQ·ÌÆJá~ëáÕÍ{E·úË9ëDMÍ(AáÒØ9"RÉõÿÍ{EëÍ®Cë"fQáÃC8ÍŒEÊ:Íú?Í»DÍ'E:pQ·Êz:>›2_QÍ1HÒà:Ã[8*RååÍ²AåÍ6Eþ÷Ò“5þïÚ“5ÍÓ@#Í{E###ÑÁåÅÕ*RåÍ²AëáÁx±ÊZ:z³Êu:ã~+ã¾+ÊB:Ã`:z³Ê`:7á!n:ãå!pQ6A>Éá"RÃ÷9<Ã`:Í/Eþ—Âˆ:Í¤7Ãz:þÈÍ6Eþ„Êy:þ›Âz:Âz:>„2_QÃ
:Í1HÚ“5ÍFëÍ.G###Ãß9ÍNGÊ¢5z·Â¢5ˆÍ'EÕÍ1HÚ“5ÁÊà:,Í6E¸Â¢5ÅÃÈ:ëÍFÃ&;ÍF*R#~þÂ¤:"RÃí:ÍFýÿÍÌDåÍ1HÚ“5ë"bQÍ®CDMáp+q+6å*bQ"fQáÍ.GÍ¤7Ãç9ÍF*R#~þÊ±5þÊM;þÊ^;Ã6;#^#V"Rë~þÂß9Ã˜<#~GÆ_>ÎÿWëùw#Âk;ë"R#~þÊš;åÍ²AÑÕåÍ®CÍ¬;Á*RÑÅÍQ"RÑÉ+å#åÍú?Í®CÑÍ¬;áÃ©Dë#^#Vë"fQë#~þ"RÈ#^#V"RëÍ¾D*RÃ¶;ÍF¯þÊÜ;\Í/EþÈ¸ÈÍ6EÃÜ;>ÃÓ;ÍãCÚ<Í9DÒœ5Í EÍNGÊœ5Í%EÍ‰BÍHEØÃï;yö OÍ9DÒœ5Í E!ÍêDåÍNGÕÕ!ÍêDÑÍ’BÍHEÚI<ÍNGÁÕÍÖGãåÃ+<Í%EÑáÍ¬BÃ
<ÍF*fQ"ç.Í®CÚ˜<>2aQ*fQã!9"dQ:ZQ·Â€<*ç."fQÍ€I!é@:ZQ·>2ZQÊÕ5!î@ÃÕ5ÍF¯2aQÃ5ÍFÍÙDÍHEÒ´<‡‡ÍýCÍÙDÚÌ5Í¾BÍÙDÊÓ<åÍÒEÚ·<áÍ¾DÃØ<>"ÍWBÍÙDÍHEÒ¥<ÉÍ1Hë*î.Ô.G+"hQÉÍ¾E!"@.Í/EþÊ‘Iþ\Ê‘IÍ/EþÈþ\È!_Q¾Èþ:Â;=Í6EÍNGz·Â¢5{·ú¢5þÒ¢52@.ÍHEÂ“5Ã=þœÊ>þ%ÂK=Í‹=Ã`=ÍŒEÊi=Íú?Í»D*RÍNÍaEÍHEÊ=Ã‘I*RåÍ²AÑë"Rz³Ê`=FÍ?I:@.þÌ–I+Ãu=ÍËEÍ6EÍHÒÎ=þDÊÈ=!R€þZÊÂ=@þCÊÂ= þãÊÂ=þ$ÊÂ=þ#Â	>~°wÃŽ=Í¾EÃŽ=|·Â¨5}þÒ¨52RÍ6EþIÊ>þEÊî=þFÂ¨5õÍHÚ¨5|·Â¨5}!R¾Ò¨52 Rñ2R!RF~æýwxæÄ±EÉÍ6EÍ EÍNGÍ%Ez·Â¢5!z.:@.O	~»Ò`= Í?IÃ3>!"@.ó*fQå!9"bQáåû>:ÍJEÚx>ûÍNGz·Â¢5{þÒ¢5·ú¢52A.¯õÃ?>1å!?"ô.ûáÍJEõ>"ÍJEÒ
??:A.·Ì?IÍ—HñõÄ‘IœQÕÍ¾BÊÑ>ÑÍOÚð>ÍHEÚâ>xþ,Ê£>þÂð>:A.·Â>?Í?IÃ>ÍéF>ÍWBá"fQÃ±>x!d"ô.þÑáÈåÕ:A.·!ÂÌ5!'?ÍaEñÄ‘Iá"fQÃ@>#ÍaE#"fQ,Í'EÃ˜>*bQùá+"fQûÃc< Input error-retype "ÍFÍDÃÏ;ÍFÃÌ5¯Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>	Ã²?>
Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>Ã²?>ÍBfunÉæÖAòÊ?G¯xÃð?ÖÐÕO&æÊÙ?$æðÊì?·Êè?$¯ÂÑ?Ñ%È·ðBKþ@ÃÆJ!Ø1å!"ñ9ÒÌ5¯2]Q:]Q·ÂU@ÍÓCÚ$@ÍÄBÊ¥5Í©DÃU@þåÊk@ÍÒEÒU@¯Í0FÒU@Í/EþÌÊ[?þÍÊM?þ™Ê`?þ˜Êt?þà!À1ÊÅ@Í/EþáÒk@þÀÒ¸@á:]Q·Ê“5Éæ*]Q-Ê‹@þÊ‰@þÊ‹@þÂ“5Í6EÃ@>	ÍÓ@Ñ¾ÐÕåÍ6EáåÍý?áå~ÍŸDæÂ¯@"R	DM!@ã#Í{EéÍ6E*]Q-Ê“5ÍÓ@åÍ EÍú?Í%EáÃŸ@æO!À1			É in line "Stop"Interrupted"ÁÍ*AØwÉÍ*Aw>AÈØwÉÍ*AÈwÉÍ*AÀwÉÍ*AÈØwÉÍ*AÐwÉ>þõÅ·ò;A
·ò;AëPYDMî€g
î€¼Â`Aþ€Ê`A!üÿåëë	Áë¾Â`A#ÂUAÑáõÕ$ô‘Dáñ>É
·È·ÈPYÃ‘D
·ÂtA·ÈÃtABK·ÊtA¯É·Èî€ÉæÉ·Èò‘D!þ@Ã”DA!"RÉ¯Å·õñõÍèEÒáAñõÂ“5Í/EþšÊBþ«Ê.B>ÿÍ0FÒBÍ¾BÂ¥5z³ÊB*RDMÍ)FÍýD"RÕ*R~#z³ÂøAÑñáåÂBõ>ãÍJEÒ¹AááÉÍEÍNGÕÿÿÍÌDÑsÍ%EÃBÍEÍú?ÍHEÚBB%Í'EÍ‹=Í%EÍ»D*RÍNX"RÃáAåõÅ*RåÍ³Aë*R"R!9ÍsEáÚuBëáñÔ’BÁ*Rz³È~+Ã~B!ÕÍêDÑs#r#É^#V#É!ÍêDå##Í’BáåÍÖGëáÍ’Bë##ÃêDÍÓCÚ“5ÍéCÒ/CÍ/E>àÍJEÊäBÍ9DÒ(C!ÍêDÃ(C> ±OÍ9DåÜœBáÕ##åÍNGáÍsEÒ–5ãëá##N#Fåx±ÊCÍÖGã+å,Í'EÃ÷BÍ%Eá#ÍVEöÉÍ9Då
Ü‰BáÍ—Bë"RëåÍ—B"Rë"R>àÍJE?Ò¢CÍNGÊ¢5!RÍsEÚhCÂ–5*R+"RÕÍHEÚCÍNGÊ–5!RÍsEÚ‰CÂ–5ë"RÍ%EÑ*RÍ)Fú–5#"R"R7Á*Rë*R>=ÉÍ6Eþ\ÈþÊÆC!_Q®Â“5ÍÒ;Ã®C~ÖÆÿ?Ò¤7"fQÉÍuDØGÍ‚D?ÐæOÉÍÓCÚ“5>$ÍJEØyö€O¯ÉÍãCyö@OÉÅÍÓ;Í®CÍ6EÁ¸È¹ÈþÂýC7ÉÍ/EþõÈþÊ$DÍ6EÃD‘ÍýCÚÅ5þ‘ÊŸ5¼Ã'ExÖA‡*ð.#ÍQT]Í{E|µÊWD~#¹ÂDD##ÉÕ!ÍêD"Rëá"RÍ’Bëq###>2^Q7ÉÍ/EþAØþ[?ÒŒDÉÍ/Eþ0Øþ:?Ø#"fQÉ!ªA~+Â–DÉ*R	T]ÉåûÿÍÌDÑëÍ”D¯<2]QÉ!pQë*R	"RÃ”D*RåÍýD"RáÉå*fQå*hQ"fQá"hQáÉë*jQåÍýD"jQáåÍ‚EáÉÕë!jQÍsEÚE!RÍsEëÑØ*€-+"RÃÌ5Í6EàÃ'E)Í6E¸ÈÃ“5Í6E+ÃÏC*fQ~#þ Ê9Eþ	Ê9EÃÏC>,õÍ6Eñ+¾È7ÃÏCÂVEÉÃcE"~G¹ÈþÊ“5Í?I#ÃcE#z¾+À{¾Éõ~#foñÉ6#z³Â‚EÉÍ/EëþÌ6EÍuDÚ¡EÍ‚DÔ6Eë"fQþ"Èþ$ÈþšÈþ«É*R"!R*R"#RÉ*!R"R*#R"RÉ!#"RÉÍ/Eë!pQÍOØë"fQ!pQÃ©D·ÂîE>"þ"Â÷EÍJEØ*fQ"RG~#¸ÊFþÊ“5ÃF"fQ*RÉ:_QþÂH?:`Q·ÈÃÌ5}“o|šgÉöW>ÍJEØÍFÕÍõCñõ©ú¥5Í9DÚŸ5Í—BÕÍ EÿÿÍÌD6ÍéFÍ¾BÍéFÊ”FåÍ©DýÿÍÌDÑÕr+s+6Íú?áÍ¾DÍ6Eþ,ÂœFÍéFÍHEÚáFÃ^F>ÍWBÃ€Fþ)Â“5ÍéF>)ÍJEÚáFýÿÍÌDÑr+s+ñw!þï9ëÍÌDÿS
w+ÂÇFr+61>õÍJEÂI8Ã/;ÍéFÃÌ5"lQá"nQ*fQã"fQ*nQå*lQÉ*ö."ú.*î.Nyþ7È#ÍsE+È?ÐåÕ*ø.ë*ú.Ú¢5"ú.Ñá	Ã
GÍÿFÚ«5Â«5ÉìQÕÍZH>Ñ!pQåÍOáÃ©D*Rå*Rå*RåÍú?á"Rá"Rá"RÍŸDåÍº?Í»Dá~ûÿ·Èú¢5îÀO#~Í£GÚ¢5ò G~Í£GÚ¢5ú…Gz³Éåbk)Ú¿G)Ú¿GÚ¿G)Ú¿Gëæƒ_zÎWáÉååpQÕÕÍ”DÑÍº?ÁÑÍ(AáÉx·Ê÷Gz·Â¢5{YÍüGåXÍüG|·Â¢5}á„gÐÃ¢5ByÃâG!T)·òHÂHÉÍ/E"0RÍP?ØÍ£GÚ¢5ÍPÚH*0R+"fQëÉ>—ÍJE7À#^#V#"fQë·ÉÍ/Eþ*î.ÈÍHÚ™5ëÍÿFÚ«5É¯ðØÍHüÍHœÿÍHöÿÍHÿÿÍHÀ>0ÉÕÿ"[Q	Ú‚H*[QBÑ°È>0€É!œQ:æ.·Ê÷H:A.·Â¹HIPÍ'þÈÃÌ5_!R.^#V!œQÐHÅÕ:A.ÉÒåHå!r.:A._~ö wá>·ÊÇHw#þÈ>½ÂÇH6É>€2æ.:Ê-æ ÂI0w#þÈÂILOAD,Iî 2Ê->2æ.·Ê/Iw#Ã$I@-wþÈþÈ#Ã2I:@.åÕ!B._^#V!UIåÕÉÑáþÊoIþ Øå:@.Õ!z._Ñ4áÉåÕ:@.!z._Ñ6áÉåÕ!z.:@._~Ñá·ÈÃ?I:ZQ·È:`Q·Â€<Ãc<
·È·Â¯IÉÅÕ!BR>6+=Â¶I¯!JRÍBJ>!BRõÅÕ
õæÊåIOåÍŸJ>ŽwáÂØIñæÊþIIROåÍŸJáÂõIÑÁñ+=ÂÊI;RÍfJ;RÍ‘JÑáæG~æ€Ö@Ê9Jò3J·>ú9JÃÌ5G®æ€°?RëÃ”DÕÅæðOõæ±+wñÂFJæðÁÑÈ+wÉæð!~Ê|JþPØ+>Ã…JæþØ>†'wÐ+>Â…JÉæðÀ!T]ÃAJÅÕ·Ž'w+Â¢JÑÁÉ!MR·Èî€Åw+ÂºJÁMR·ÈÅ
·ÊãJæoæ•`iòÞJë/<þ	ÚèJëÑÃ”DÕVÕÆõBR¯+~ÂöJñõ!BR·ÊKO¯+Â	KñÚK#T]ÍBJë~þP+åÔuJÑñá®F+Åò¢KÕ7™>ˆë–ë†'+Â4KáÚ^Kñî€õåšxžÆ'w+?ÂPKëáÕT]¯#wÂdKáÁ#~·Â}KÂnKÁÉáæðõÂ…KxÖw¨ò’Kñ6ÉñÂ›K¯ÃBJ+ëÃ–DÕ·Ž'+Â¦KÚ½KáñÑÃ–D>áÁ~åÍ|JÑáxæÊ.JpÃAJ·Ê´5
·È!üÿ	",RÅõÕåÅÕ!RRw+ÂîK6ÑÁ¯!JRÍBJ!CR¯w+ÂL
w+ÂL6>RÕÅ!RRÍtLÁGÑÕÅ!IRÍtLÁ°*,Rw#",RÑÂLÑÍfJÍ‘JÑæ‘gñoÁæ”ÆAÊrLòkL>úrLÃ.JëW{®æ€²ÉÿÅÕå7™>‰–ë†ë'+Â~LáÑÁÚwLëÍŸJyÉ"7RG!R6": R·Ê´L+60Ê¨5=Ã¦L+6."2R"4R".RÊÊL+6 ÃÀL",R+6!*7R~æÊBMÖAú›M<GOÖÚöLÊóLO>0Í¬MÂêLHÍîMÍ¬MÂ÷LAÍîMÍÔMÃM+~þ.ÊMþ,ÊMþ"Ú)M<wþ:ÂBM60ÃM)Rþ€Ê=M#61<Ê¨5ÃBM>1Í¬M!R:Rþ#ÊTM:R·òlM~þ0Â`M6 +ÃTM:Rþ#ÂlM#6"+~"4Rþ.ÂM+~þ ÊˆMþ!ÂM##60ÃM>0Í¬M*7R~·>-üÄM*,RÉ/·GÊM>0ÍÔMÃ Mõ:Ræ@ÊÃM!6R5ÂÃM6>,ÍÄMñ*.R+W~þ!Ê¨5".RrÉ*4R#W~þ"ÊäM"4RrÉñzþ5ÚBMÃM>W¸>0Øx=’_ÿõ*7Rñ~Ú
NæÆ0Éå>26R>€2)R:RþIÊšNþ#ÊjNþEÊ³N:RÍ™Lá:Rõæ ÊCN~·>+ôÄMñ>$ÜÄM*,R:Rþ#Â]N#~þ ÊUN+T]þ"ÈÃaNå!"Rá~æÊšNþIÒ³NåG+~æÂN~·ÊNáxþAÚ³NÍÁGÂ,NÍÁGÂ¨5¯2 R:R<Í™L>"2RÃ2N~æ2)R~2)Ræ€öAw:RÖÍ™L*4R~þ.ÊÔN#6E#:)Ræ+ÊêNÖAòêN-/<p#å_*2R++~þ1ÂO+~6 #w#".R61ëÑÍmH>"Ã2Nþ ÊOþ	ÊO¯2(R2'R2)R>÷2+Rþ+ÊHOþãÊHOþåÊCOþ-ÂIO>€2(R",R>+6=ÂNO".Rë"0RÍPÚˆOþ.ÂmOÍPÚvO7É!)R5ÍPÊoOÚÎOþEÊÜO¯Ã»OÍPÊ…OÚ–Oþ.ÊsOÃOÍ1P!)R4ÍPÚ–Oþ.ÊÈOþEÊÜO¯!)R†Æ@úmO!(R¶*,Rw*0Rë:*RGÉÍPÒÔOÍ1PÃÈOþEÊÜOÃ­OÍPÚÿOþ+ÊùOþãÊùOþ-ÊöOþåÂmO2'RÍPÒmO_ÍPÒPÍ£GÍP:'R·{Ê®O/<Ã®O*0R~2*R#"0Rþ:Ðþ0?Ðæ7ÉG!+R4~*.RÊQPðÚIPxwÉ~°w#".RÉxþØÍtJÐ#6!)R4É*rQë*î.~þÊ„P#ÍsE+Ê™PÚ™P~ÍQÃhP:qQþÈÍQ*ð.ÍîP6"ð.ÉF"%R:qQÊ²PÖÊ«PÆÊåPÚÑPG:qQþÈxÍQ*%RÍQ*ð.ë"ð.ÍQÃåP/<ÍQÍQë*%RÄúP6"ð.*%R:qQþÈqQOw#x±ÂõPÉw+x±ÂQÉ:ð.•O:ñ.œG±É…oÐ$É*ð.ÍQë!€-ÍsEÒEÉ¯!>!>ÍBslvÉ>ÍBfilÉ!T">2!mR4~#ÂbRÃ0ÍžRÉÍŠRÉÍSÉ
>Í­ª@ÚÉûv:ùS·ÂŠRåó!d"áûÉ:R2õS¯2ÿS!T">2!S"=>Ã2<:€R·È!ÌRF#Í<þÂÁRÉ2		1	1	1	!1	)1	11	91	A1	I1	Q10Œ:€Rþ>	Ê|S> ÍS:ÿSæÈÃSxþ	ÊSåõþÂ|SÍzS:yRo:zRÍzS-Â4S:{RÍzS:|Ro:zRÍzS-ÂHS¯2ÿS:õS=2õSÂÈS>ÍzS:~Ro:}RGÍS-ÂjS:R2õSÃÈSåõ·ÊÈSþ ÚŒS:ÿS<2ÿSó:ùS·Â¯S>2ùSÍR!ÍS"!/"ñS"óS>#Óó*óSñõæw,:ñS½ÂÅSûvÃ¯S"óSñáGûÉ*ñS:óS½ÂçSÛæÊ×S¯2ùSÓÃd~,"ñSÓÃdˆOVRLY ˆOVENT ˆSBUF1(ˆKBUF-ˆCMND-@ˆMEMTOP-€ˆKBIP-‚ˆKBIG-„ˆKBEX-†ˆCMDF-ˆˆCMDD-‰ˆCMDP-ŠˆCMDA-ŒˆCMDN-ŽˆDONT-ˆPVEC-“ˆUVEC-•ˆSCHR-˜ˆUCHR-™ˆERROR-šˆLERR-œˆJOBST-žˆNFDIR- ˆNFCK-¡ˆMTO-¢ˆRAW-±ˆTRIES-²ˆSINT-³ˆONCE-ÅˆLUSER-ÆˆCMPTR-ÇˆEFLG1-ÉˆEFLG2-ÊˆEIC€ˆEERR@ˆFILE-ËˆDIRTY-üˆSCREENˆWH0 ˆWH1$ˆIORETdˆSTACKˆWarmˆDioˆWait	ˆMsgˆErrˆOvrtoˆGoverˆRtnˆKilliˆFlushˆLook!ˆRunr$ˆRlwe'ˆFold*ˆFlip-ˆRlgc0ˆCkdr3ˆIexec6ˆRTMôÃ0Ã0!@-Í0Í¬0Ú0Íñ0Ã0Í,1ÉÍW1Â0>+¾Êk1#w1>@ÍGfidÚn1>¾#Êe1¢1>@ÍGfidÒh1!x1~æƒ_"á1Í1~#Âc0!£1~æƒ_"ã1Õ1~#~:¢1·ò™0*á1ë*ã1+w+w!"×1!ÿ2"Ý1!3"ß1ÉÅÕå*Ý1,Ê¾0"Ý1~áÑÁÉ*Ï1|µÂÊ07Ãº0+"Ï1*Í1#"Í1+:w1æO>2GÍÚ!2"Ý1Ã¹0ÅåG¯xõ*ß1w,"ß1Â'1*Õ1:¢1æO3>ÍÚ*Õ1#"Õ1*×1#"×1¯ÁxáÁÉ*Ñ1"Ù1*Ó1"Û1*ã1##×1w#ÂB1!¢1>ÍGfidÉ~#þÈþ	Èþ Èþ,É!!!ÃÃ‘1Ã"0
>Í­ª@ÚÉûv:s2·Â"0åó!d"áûÉ:02o2¯2y2!¯0"=>Ã2<:0·È!^0~#Í<þÂS0É2		1	1	1	!1	)1	11	91	A1	I1	Q10Œ:0þ>	Ê
1> Í¯0:y2æÈÃ¡0þ	Ê—0åõþÂ1Í
1:0o:0Í
1-ÂÅ0:0Í
1:0o:0Í
1-ÂÙ0¯2y2:o2=2o2ÂX1>Í
1:0o:0Í¯0-Âú0:02o2ÃX1åõ·ÊX1þ Ú1:y2<2y2ó:s2·Â?1>2s2Í0!\1"!/"k2"m2>#Óó*m2ñõæw,:k2½ÂU1ûvÃ?1"m2ñáûÉ*k2:m2½Âv1ÛæÊf1¯2s2ÓÃd~,"k2ÓÃd~#þÈþ Èþ	Èþ,Èþ+É!9"€2!þ1"“-!@-Í€1Â¡1Ë->@ÍGfidÚ[2ûÍ60!ÿ3"~2!Ì-~æ@Â[2~æÆ_^#Vë"z2ë#^#Vë"|2ûÍ2Ú2Í¯0Ãæ1...Aborted*k2"m2!/6,Â2!ò1ÍÍ"0*€2ùÉå*~2,"~2Ê-2~á·Ê2É*|2|µÂ82á7É+"|2*z2#"z2+3Õ:Ë-æOxÍáÚ[2Ã&2ÍEmsg*€2ù>Ã$90 PRINT CHR$(12),100 DIM D(208),H(16),O(16),P(16,11),Q(11),S(16),X(16)170 PRINT "WELCOME TO LAS VEGAS BLACKJACK.HERE ARE OUR RULES:"180 GOSUB 3840190 R=16195 PRINTCHR$(12)\PRINT200 INPUT "HOW MANY DECKS? (1-4) ",N220 IF N>0 THEN 250230 PRINT "1 TO 4 DECKS"240 GOTO 200250 IF N>4 THEN 230260 E=N*52 \GOSUB 1840280 B=1290 GOSUB 1920310 PRINT320 G=1330 INPUT "BET PLEASE ",U340 IF U>0 THEN 400360 IF U=0 THEN 3780370 B=1380 GOSUB 1920390 GOTO 330400 IF U<501 THEN 430405 PRINT"HOUSE LIMIT $500,",\GOTO 330430 GOSUB 2030440 H(1)=U450 N=Q(2)460 PRINT "MY UP CARD ",470 GOSUB 2470480 N=P(R,1) 490 PRINT "YOUR 1ST CARD ",500 GOSUB 2470510 N=P(R,2) 520 PRINT "YOUR 2ND CARD ",530 GOSUB 2470540 GOSUB 2810550 IF M=11 THEN 560 ELSE 570560 GOSUB 3650570 IF W=21 THEN 580 ELSE 660580 PRINT "I HAVE BLACKJACK, ",590 IF X(1)=21 THEN 600 ELSE 630600 PRINT "SO DO YOU,WE PUSH ON THE HAND."610 GOSUB 3550620 GOTO 310630 PRINT "YOU LOSE" \V=V-U \ GOTO 610660 IF X(1)=21 THEN 670 ELSE 700670 PRINT "YOU HAVE BLACKJACK.YOU WIN."680 V=V+3*U/2690 GOTO 610700 PRINT "PLAY ",710 IF R=1 THEN 730720 PRINT " FOR HAND ",G," ",730 INPUT F \ IF F>-1 THEN 770750 PRINT "ONLY 0-4 IS VALID.RE-ENTER" \ GOTO 730770 IF F>3 THEN 750780 IF F=1 THEN 800 ELSE 1110800 IF A<=E THEN 820810 GOSUB 2920820 M=S(G)830 M=M+1840 S(G)=M850 N=D(A)860 P(G,M)=N870 PRINT "YOUR CARD IS ",880 GOSUB 2470890 GOSUB 2370900 A=A+1910 IF N=11 THEN 920 ELSE 930920 O(G)=O(G)+1930 X(G)=X(G)+N940 IF X(G)<22 THEN 700950 IF O(G)=0 THEN 990960 O(G)=O(G)-1970 X(G)=X(G)-10980 GOTO 940990 PRINT "YOU BUSTED WITH ",X(G)1000 X(G)=0 \ Y=Y-11030 IF G<R THEN 10601040 GOSUB 30601050 GOTO 3101060 G=G+1 \ N=P(G,1) 1080 PRINT "YOUR 1ST CARD FOR HAND ",G," WAS ",1090 GOSUB 24701100 GOTO 7001110 IF F<>0 THEN 11801120 IF X(G)<22 THEN 10301140 IF O(G)=0 THEN 9901150 X(G)=X(G)-101160 O(G)=O(G)-11170 G=G+11180 IF F=2 THEN 1190 ELSE 14001190 IF S(G)=2 THEN 12301200 PRINT "DOUBLE ON 1ST 2 CARDS ONLY" \GOTO 7001230 IF A<=E THEN 12501240 GOSUB 29201250 H(G)=2*U1260 N=D(A)1270 P(G,3)=N1280 A=A+11290 PRINT "YOU DRAW THE ",1300 GOSUB 24701310 GOSUB 23701320 IF N<>11 THEN 13401330 O(G)=O(G)+11340 X(G)=X(G)+N1350 IF X(G)<22 THEN 10301360 IF O(G)=0 THEN 9901370 O(G)=O(G)-1 \ X(G)=X(G)-10 \ GOTO 13501400 N=P(G,1)1410 Y=Y+11420 GOSUB 23701430 M=N1440 N=P(G,2)1450 GOSUB 23701460 IF M=N THEN 15001470 PRINT "YOU MAY ONLY SPLIT PAIRS" \ GOTO 7001500 R=R+1 \ Y=Y+1 \ P(R,1)=P(G,2) \ S(G)=1 \ S(R)=11550 X(G)=X(G)/21560 X(R)=X(G)1570 H(R)=U1580 IF N=11 THEN 1600 ELSE 7001600 IF A<=E THEN 16201610 GOSUB 29201620 N=D(A) \ P(G,2)=N1640 PRINT "1ST ACE GETS A ",1650 GOSUB 24701660 GOSUB 23701670 IF N=11 THEN 1680 ELSE 16901680 N=11690 X(G)=X(G)+N1700 A=A+11710 IF A<=E THEN 17301720 GOSUB 29201730 N=D(A)1740 P(R,2)=N1750 PRINT "2ND ACE GETS A ",1760 GOSUB 24701770 GOSUB 23701780 IF N=11 THEN 1790 ELSE 18001790 N=11800 X(R)=X(R)+N1810 A=A+11820 GOTO 10401830 REM BUILD DECKS OF CARDS1840 FOR I=1 TO N1850 J=(I-1)*521860 FOR K=1 TO 521870 D(K+J)=K1880 NEXT K1890 NEXT I1900 RETURN1920 PRINT "SHUFFLING" 1930 FOR I=B TO E 1940 C=RND(0)*E1950 IF C<B THEN 19401960 L=D(I)1970 D(I)=D(C)1980 D(C)=L1990 NEXT2000 A=B2010 RETURN2030 FOR I=1 TO 112040 Q(I)=02050 FOR J=1 TO R2060 P(J,I)=02070 NEXT J2080 NEXT I2090 R=12100 Y=12110 IF (A+4)<=E THEN 21402120 B=12130 GOSUB 19202140 PRINT "DEALING"2150 P(R,1)=D(A)2160 Q(1)=D(A+1)2170 P(R,2)=D(A+2)2180 Q(2)=D(A+3)2190 A=A+42200 T=22210 S(1)=22220 GOSUB 22602230 M=N2240 RETURN2250 REM VALUE OF DEALERS HAND2260 Z=02270 W=02280 FOR I=1 TO 22290 N=Q(I)2300 GOSUB 23702310 IF N=11 THEN 2320 ELSE 23302320 Z=Z+12330 W=W+N2340 NEXT2350 RETURN2360 REM VALUE OF A CARD2370 IF N<14 THEN 24002380 N=N-132390 GOTO 23702400 IF N=1 THEN 2410 ELSE 24302410 N=11 2420 RETURN2430 IF N<11 THEN 24502440 N=102450 RETURN2460 REM PRINT A CARD2470 I=02480 IF N<14 THEN 25202490 N=N-132500 I=I+12510 GOTO 24802520 IF N=1 THEN 2530 ELSE 25502530 PRINT "ACE ",\GOTO 26802550 IF N>10 THEN 26102560 PRINT N,\GOTO 26802610 IF N>11 THEN 26402620 PRINT "JACK ",\GOTO 26802640 IF N>12 THEN 26702650 PRINT "QUEEN ",\GOTO 26802670 PRINT "KING",2680 PRINT " OF ",2690 IF I=0 THEN 2700 ELSE 27202700 PRINT "SPADES" \RETURN2720 IF I=1 THEN 2730 ELSE 27502730 PRINT "HEARTS"2740 RETURN2750 IF I=2 THEN 2760 ELSE 27802760 PRINT "DIAMONDS"2770 RETURN2780 PRINT "CLUBS"2790 RETURN2810 O(G)=02820 X(G)=02830 FOR I=1 TO 22840 N=P(G,I)2850 GOSUB 23702860 X(G)=X(G)+N2870 IF N=11 THEN 2880 ELSE 28902880 O(G)=O(G)+12890 NEXT I2900 RETURN2910 REM SAVE THE CARDS DEALT AND SHUFFLE2920 K=T2930 FOR I=1 TO R2940 K=K+S(I)2950 NEXT2960 FOR I=1 TO K2970 A=A-12980 J=D(I)2990 D(I)=D(A)3000 D(A)=J3010 NEXT3020 N=K+13030 GOSUB 19203040 RETURN3050 REM DEALERS LOGIC3060 N=Q(1)3070 PRINT "MY HOLE CARD IS ",3080 GOSUB 24703090 IF Y=0 THEN 3330\REM3100 IF W<17 THEN 31503110 IF W >17 THEN 32603120 IF Z=0 THEN 33203130 W=W-103140 Z=Z-13150 IF A<=E THEN 31703160 GOSUB 29203170 N=D(A)3180 T=T+13190 A=A+13200 Q(T)=N3210 GOSUB 23703220 IF N=11 THEN 3230 ELSE 32403230 Z=Z+13240 W=W+N3250 GOTO 31003260 IF W<22 THEN 33203270 IF Z=0 THEN 33103280 Z=Z-13290 W=W-103300 GOTO 31003310 PRINT "I BUSTED ",3320 PRINT "MY TOTAL IS ",W3330 FOR I=1 TO R 3340 PRINT "YOU ",3350 IF X(I)<>0 THEN 3390 \ REM3360 PRINT "LOST ",3370 V=V-H(I)3380 GOTO 34803390 IF W<22 THEN 3430 \ REM3400 PRINT "WON ",3410 V=V+H(I)3420 GOTO 34803430 IF W=X(I) THEN 3440 ELSE 34603440 PRINT "PUSHED ON ",3450 GOTO 34803460 IF W<X(I) THEN 3400 \ REM3470 GOTO 33603480 IF R=1 THEN 3490 ELSE 35103490 PRINT "THE HAND"3500 GOTO 35203510 PRINT "HAND ",I3520 NEXT I3540 PRINT3550 PRINT "YOU'RE ",3560 IF V<>0 THEN 35903570 PRINT "EVEN"3580 RETURN3590 IF V>0 THEN 36203600 PRINT "BEHIND $",V3610 RETURN3620 PRINT "AHEAD $",V3630 RETURN3640 REM INSURANCE ROUTINE3650 INPUT "INSURANCE ? (YES OR NO) ",A$3660 IF A$="YES" THEN 3690 ELSE RETURN3690 PRINT "YOUR INSURANCE BET ",3700 IF W=21 THEN 3710 ELSE 37403710 PRINT "WINS!"3720 V=V+U3730 RETURN3740 PRINT "LOSES"3750 V=V-U/23760 RETURN3780 PRINT \ PRINT3790 PRINT "THANKS FOR PLAYING"3800 PRINT "HERE'S YOUR FINAL STANDING" \ GOSUB 3550 3820 GOTO 99993840 REM INSTRUCTIONS3850 PRINT "THE DEALER STANDS ON 17 OR MORE,"3860 PRINT "  BUT WILL HIT A SOFT 17"3870 PRINT "YOU MAY SPLIT ANY PAIR."3880 PRINT "YOU MAY DOUBLE ON THE FIRST TWO CARDS,"3890 PRINT "  AND GET ONLY ONE MORE CARD."4000 PRINT 4010 PRINT "USE THESE CODES TO PLAY"4020 PRINT "  0 - STAND"4030 PRINT "  1 - HIT"4040 PRINT "  2 - DOUBLE DOWN"4050 PRINT "  3 - SPLIT A PAIR"4060 PRINT 4070 PRINT "A ZERO BET ENDS THE GAME"4080 PRINT "A NEGATIVE BET FORCES A SHUFFLE."4090 PRINT "PRESS RETURN TO CONTINUE. READY",4100 FOR R=1 TO PEEK(3072)\N=RND(0)\NEXT4110 INPUT A$4120 RETURN9999 STOPRUN40 PRINTCHR$(12)50 PRINT "HAMURABI:  DO YOU WISH TO VISIT THE ORACLE TO HEAR"60 PRINT "REVELATIONS CONCERNING THE WISE AND PROFITABLE RULE"70 INPUT"OF ANCIENT SUMERIA DURING YOUR TEN YEAR TERM? (Y OR N)",A$80 IF A$(1)="Y" THEN GOSUB 130090 B=RND(TIME(0)/65536)\D1=0\P1=0100 Z=0\P=95\S=2800\H=3000\E=H-S110 Y=3\A=H/Y\I=5\Q=1120 D=0130 PRINTCHR$(12)140 PRINT\PRINT\PRINT "HAMURABI: I BEG TO REPORT TO YOU,"\Z=Z+1150 PRINT "IN YEAR",Z,",",D," PEOPLE STARVED,",I," CAME TO THE CITY."160 P=P+I170 IF Q>=0 THEN 200180 P=INT(P/2)190 PRINT "A HORRIBLE PLAGUE STRUCK!  HALF THE PEOPLE DIED."200 PRINT "POPULATION IS NOW",P,"."210 PRINT "THE CITY NOW OWNS",A," ACRES."220 PRINT "YOU HARVESTED",Y," BUSHELS PER ACRE."230 PRINT "RATS ATE",E," BUSHELS."240 PRINT "YOU NOW HAVE",S," BUSHELS IN STORE."\PRINT250 IF Z=11 THEN GOTO 1030260 C=INT(10*RND(0))\Y=C+17270 PRINT "LAND IS TRADING AT",Y," BUSHELS PER ACRE."280 PRINT "HOW MANY ACRES DO YOU WISH TO BUY",290 INPUT Q\IF Q<0 THEN 1000300 IF Y*Q<=S THEN 330310 GOSUB 920320 GOTO 280330 IF Q=0 THEN 360340 LET A=A+Q\S=S-Y*Q\C=0350 GOTO 420360 PRINT "HOW MANY ACRES DO YOU WISH TO SELL",370 INPUT Q\IF Q<0 THEN 1000380 IFQ<A THEN 410 390 GOSUB 950400 GOTO 360410 A=A-Q\S=S+Y*Q\C=0420 PRINT430 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE",440 INPUT Q450 IF Q<0 THEN 1000470 IF Q<=S THEN 500480 GOSUB 920490 GOTO 430500 S=S-Q\C=1\PRINT510 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED",520 INPUT D\IF D=0 THEN 660530 IF D<0 THEN 1000550 IF D<=A THEN 580560 GOSUB 950 \GOTO 510580 IF INT(D/2)<S THEN 620590 GOSUB 920600 GOTO 510620 IF D<10*P THEN 650630 PRINT"BUT YOU HAVE ONLY",P," PEOPLE TO TEND THE FIELDS. NOW THEN,"640 GOTO 510650 S=S-INT(D/2)660 GOSUB 980680 Y=C\H=D*Y\ E=0690 GOSUB 980700 IF INT(C/2)<>C/2 THEN 730710 REM THE RATS ARE RUNNING WILD720 E=INT(S/C)730 S=S-E+H740 GOSUB 980750 REM LET'S HAVE SOME BABIES.760 I=INT(C*(20*A+S)/P/100+1)770 REM HOW MANY PEOPLE HAD FULL TUMMIES.780 C=INT(Q/20)800 Q=INT(10*(2*RND(0)-.3))810 IF P<C THEN 120830 D=P-C\IF D>.45*P THEN 860840 P1=((Z-1)*P1+D*100/P)/Z850 P=C\D1=D1+D\GOTO 140860 PRINT\PRINT "YOU STARVED",D," PEOPLE IN ONE YEAR!!!"870 PRINT "WHAT DID THE ORACLE TELL YOU?"880 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"890 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU "900 PRINT "HAVE ALSO BEEN EXILED TO PERSIA!"910 GOTO 1280920 PRINT "HAMURABI:  THINK AGAIN.  YOU HAVE ONLY"930 PRINT S," BUSHELS OF GRAIN.  NOW THEN,"940 RETURN950 PRINT "HAMURABI:  THINK AGAIN.  YOU OWN ONLY",A," ACRES."960 PRINT "NOW THEN,"970 RETURN980 C=INT(RND(0)*5)+1990 RETURN1000 PRINT\PRINT "HAMURABI:  I CANNOT DO WHAT YOU WISH."1010 PRINT "GET YOUSELF ANOTHER STEWARD!!!!"1020 GOTO 12801030 PRINT "IN YOUR TEN YEAR TERM OF OFFICE,",P1," PERCENT OF"1040 PRINT "THE POPULATION STARVED PER YEAR ON THE AVERAGE."1050 PRINT "A TOTAL OF",D1," PEOPLE DIED!!"\L=A/P1060 PRINT "YOU STARTED WITH TEN ACRES PER PERSON AND ENDED"1070 PRINT "WITH",L," ACRES PER PERSON."\PRINT1080 INPUT"DO YOU WISH TO HEAR THE ORACLE'S EVALUATION?",A$1090 IF A$(1)<>"Y" THEN GOTO 12801100 PRINTCHR$(12)1110 IF P1>33 THEN 8801120 IF L<7 THEN 8801130 IF P1>10 THEN 12101140 IF L<9 THEN 12101150 IF P1>3 THEN 1250 1160 IF L<10 THEN 12501170 PRINT "A FANTASTIC PERFORMANCE!  CHARLEMANE, DISRAELI,"1180 PRINT "AND JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!"1190 PRINT "THE ORACLE OF SUMERIA IS PLEASED."1200 GOTO 12801210 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND"1220 PRINT "IVAN IV.  THE PEOPLE (REMAINING) FIND YOU AN"1230 PRINT "UNPLEASANT RULER, AND, FRANKLY, HATE YOUR GUTS!"1240 GOTO 12801250 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER,"1260 PRINT "BUT REALLY WASN'T TOO BAD AT ALL.",INT(P*.8*RND(0))1270 PRINT "PEOPLE WOULD DEARLY LIKE TO SEE YOU ASSASSINATED."1280 PRINT "SO LONG -- BACK TO BASIC."1290 PRINT\PRINT\PRINT\GOTO 14201300 PRINT CHR$(12)1310 PRINT "YOUR STEWARD IS WISE AND DEVOTED TO BRING YOU TO VISIT."1320 PRINT "HEED MY ADVICE WELL, HAMURABI."1330 PRINT\PRINT\PRINT\PRINT "TO AVOID IMMEDIATE EXILE, DO NOT STARVE MORE THAN"1340 PRINT"HALF THE PEOPLE DURING ANY SINGLE YEAR."1350 PRINT\PRINT "TO AVOID EXILE AFTER TEN YEARS, KEEP THE AVERAGE RATIO OF"1360 PRINT"ACRES TO PEOPLE AT LEAST SEVEN TO ONE."1370 PRINT\PRINT1380 INPUT"DO YOU WISH TO BEGIN YOUR FIRST YEAR? (Y OR N)",A$1390 IF A$="Y" THEN RETURN1400 GOTO 12801410 STOP1420 PRINT ""RUN100 REM *** WUMPUS ***110 DIM P(5)120 K=RND(TIME(1)/65536)130 PRINTCHR$(12),TAB(22),"HUNT THE WUMPUS"140 INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y OR N)",I$150 IF I$="N" THEN 170 ELSE GOSUB 690160 REM-SET UP CAVE (DODECAHEDRAL NODE LIST)170 DIM S(20,3)180 FOR J=1 TO 20190 FOR K=1 TO 3200 READ S(J,K)\NEXT\NEXT210 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6220 DATA5,7,15,6,8,17,1,7,9,8,10,18,2,9,11230 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16240 DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19250 DEF FNA(X)=INT(20*RND(0))+1260 DEF FNB(X)=INT(3*RND(0))+1270 DEF FNC(X)=INT(4*RND(0))+1280 REM-LOCATE L ARRAY ITEMS290 REM-1-YOU,2-WUMPUS,3&4-PITS,5&6-BATS300 DIM L(6)\DIM M(6)310 FOR J=1 TO 6320 L(J)=FNA(0)330 M(J)=L(J)\NEXT340 REM-CHECK FOR CROSSOVERS (I.E. L(1)=L(2),ETC.)350 FOR J=1 TO 6360 FOR K=J TO 6370 IF J=K THEN 390380 IF L(J)=L(K) THEN 310390 NEXT\NEXT400 REM-SET # ARROWS410 A=5420 L=L(1)430 REM-RUN THE GAME440 PRINT "HUNT THE WUMPUS!"450 REM-HAZARD WARNINGS & LOCATION460 GOSUB 1160470 REM-MOVE OR SHOOT480 GOSUB 1310490 ON O GOTO 510,550500 REM-SHOOT510 GOSUB 1370520 IF F=0 THEN 480530 GOTO 570540 REM-MOVE550 GOSUB 1650560 IF F=0 THEN 460570 IF F>0 THEN 620580 REM-LOSE590 PRINT "HA HA HA - YOU LOSE!"600 GOTO 630610 REM-WIN620 PRINT "HEE HEE HEE - THE WUMPUS'LL GETCHA NEXT TIME!!"630 FOR J=1 TO 6640 L(J)=M(J)650 NEXT J660 INPUT "SAME SET-UP (Y-N)",I$670 IF I$<>"Y" THEN 310680 GOTO 410690 REM-INSTRUCTIONS700 PRINT "WELCOME TO 'HUNT THE WUMPUS'"710 PRINT "  THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH"720 PRINT "ROOM HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK"730 PRINT "AT A DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU"740 PRINT "DON'T KNOW WHAT A DODECAHEDRON IS, ASK SOMEONE)"750 PRINT760 PRINT "     HAZARDS:"770 PRINT "BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS",780 PRINT " IN THEM."790 PRINT "     IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"800 PRINT "SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"810 PRINT "     GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME",820 PRINT " OTHER"830 PRINT "     ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME)"840 GOSUB 1920850 PRINT "     WUMPUS:"860 PRINT "THE WUMPUS IS NOT BOTHERED BY THE HAZARDS (HE HAS",870 PRINT " SUCKER"880 PRINT "FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY HE"890 PRINT "IS ASLEEP. TWO THINGS WAKE HIM UP: YOUR ENTERING"900 PRINT "HIS ROOM OR YOUR SHOOTING AN ARROW."910 PRINT "     IF THE WUMPUS WAKES, HE MOVES (P=.75) ONE ROOM"920 PRINT "OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU"930 PRINT "ARE, HE EATS YOU UP (AND YOU LOSE!)."940 PRINT950 PRINT "     YOU:"960 PRINT "EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW."970 PRINT "     MOVING: YOU CAN GO ONE ROOM (THRU ONE TUNNEL)"980 GOSUB 1920990 PRINT "     ARROWS:"1000 PRINT "YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT. EACH"1010 PRINT "ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING"1020 PRINT "THE COMPUTER THE ROOM #S YOU WANT THE ARROW TO GO TO."1030 PRINT "IF THE ARROW CAN'T GO THAT WAY(IE NO TUNNEL) IT MOVES"1040 PRINT "AT RANDOM TO THE NEXT ROOM."1050 PRINT "IF THE ARROW HITS THE WUMPUS, YOU WIN."1060 PRINT "IF THE ARROW HITS YOU, YOU LOSE."1070 PRINT1080 PRINT "     WARNINGS:"1090 PRINT "WHEN YOU ARE ONE ROOM AWAY FROM WUMPUS OR HAZARD,"1100 PRINT "THE COMPUTER SAYS:"1110 PRINT "WUMPUS- 'I SMELL A WUMPUS'"1120 PRINT "BAT   - 'BATS NEARBY'"1130 PRINT "PIT   - 'I FEEL A DRAFT'"1140 GOSUB 19201150 RETURN1160 REM-PRINT LOCATION & HAZARD WARNINGS1170 PRINT1180 FOR J=2 TO 61190 FOR K=1 TO 31200 IF S(L(1),K)<>L(J) THEN 12701210 ON J-1 GOTO 1220,1240,1240,1260,12601220 PRINT "I SMELL A WUMPUS!"1230 GOTO 12701240 PRINT "I FEEL A DRAFT"1250 GOTO 12701260 PRINT "BATS NEARBY!"1270 NEXT\NEXT1280 PRINT "YOU ARE IN ROOM ",L(1)1290 PRINT "TUNNELS LEAD TO ",S(L,1),S(L,2),S(L,3)1300 PRINT\RETURN1310 REM-CHOOSE OPTION1320 INPUT "SHOOT OR MOVE (S-M)?",I$1330 IF I$<>"S" THEN 13501340 O=1\RETURN1350 IF I$<>"M" THEN 13201360 O=2\RETURN1370 REM-ARROW ROUTINE1380 F=01390 REM-PATH OF ARROW1400 INPUT "# OF ROOMS (1-5)?",R1410 IF ((R<1)OR(R>5)) THEN 14001420 FOR K=1 TO R1430 INPUT "ROOM #?",P(K)1440 NEXT1450 REM-SHOOT ARROW1460 A=A-1\L=L(1)\K=11470 FOR Q=1 TO 31480 IF S(L,Q)=P(K) THEN L=P(K)\GOTO 15201490 NEXT1500 REM-NO TUNNEL FOR ARROW1510 L=S(L,FNB(1))1520 IF L<>L(2) THEN 15401530 PRINT"HURRAY! YOU GOT THE WUMPUS!"\F=1\RETURN1540 IF L=L(1) THEN PRINT"OUCH! ARROW GOT YOU!"\GOTO 15901550 K=K+1\IF K<=R THEN 14701560 PRINT"MISSED!"1570 GOSUB 16001580 IF A>0 THEN RETURN ELSE PRINT"OUT OF ARROWS!"1590 F=-1\RETURN1600 REM-MOVE WUMPUS ROUTINE1610 K=FNC(0)\IF K=4 THEN 1640 ELSE L(2)=S(L(2),K)1620 IF L(2)<>L THEN 16401630 PRINT "TSK TSK TSK - WUMPUS GOT YOU!"\F=11640 RETURN1650 REM-MOVE ROUTINE1660 F=01670 INPUT "WHERE TO? ",L1680 IF (L<1) OR (L>20) THEN 16701690 FOR K=1 TO 31700 REM- CHECK IF LEGAL MOVE1710 IF S(L(1),K)=L THEN 17501720 NEXT1730 IF L=L(1) THEN 1750 ELSE PRINT"NOT POSSIBLE-",\GOTO 16701740 REM-CHECK FOR HAZARDS1750 L(1)=L1760 REM-WUMPUS1770 IF L<>L(2) THEN 18301780 PRINT "...OOPS! BUMPED A WUMPUS!"1790 REM-MOVE WUMPUS1800 GOSUB 16101810 IF F=0 THEN 1830 ELSE RETURN1820 REM-PIT1830 IF ((L<>L(3)) AND (L<>L(4))) THEN 18701840 PRINT "YYYIIIIEEEE...FELL IN PIT"1850 F=-1\RETURN1860 REM-BATS1870 IF ((L<>L(5)) AND (L<>L(6))) THEN 19101880 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHERESVILLE FOR YOU!"1890 L=FNA(1)1900 GOTO 17501910 RETURN1920 INPUT "TYPE RETURN NOW TO CONTINUE......",C$\PRINTCHR$(12)1930 RETURNRUN90 PRINT CHR$(12)\PRINT "WELCOME TO HANGMAN !"100 GOSUB 1150\ REM: SETUP WORD VECTOR110 DIM M(7,13,2)120 Z=RND(ABS(SIN(TIME(0))))130 GOSUB 980140 F2=0 \ REM: HANGMAN LOGIC150 GOSUB 390\ GOSUB 600160 C=0170 K=LEN(W$)\G$=""\FOR I=1TOK\G$=G$+"-"\NEXT180 F1=1\ GOTO 250190 A$=FNI$(0)\ F=0\F1=0200 FOR I=1 TO K\IF W$(I,I)<>A$(1,1) THEN 220210 F=1\G$(I,I)=A$(1,1)220 IF G$(I,I)="-" THEN F1=1230 NEXT240 IF F=0 THEN GOSUB 350250 PLOT 0,30,0\PRINTG$\PLOT 0,27,0260 IF F1=1 THEN 190270 PLOT 0,15,0\PRINT"CONGRATULATIONS!         "280 PRINT"THERE MAY BE SOME HOPE FOR YOU AFTER ALL!"290 FOR I=1 TO 2500\NEXT\PRINTCHR$(12)\PLOT 0,43,0300 PLOT 26,32,0\ INPUT "CARE TO TRY AGAIN, TURKEY? ",B$310 B$=B$+" "\ IF B$(1,1)<>"N" THEN 150320 PRINT\PRINT\PRINT" SO LONG CHICKEN! COME BACK NEXT TIME YOU"330 PRINT"  HAVE GALLOWS FEVER!"\PRINT\PRINTTAB(40),"- THE HANGMAN -"340 GOTO 1240350 U$=U$+A$\ C=C+1360 PLOT 0,15,0\PRINT"USED LETTERS: ",U$\PLOT 0,12,0370 Z=FNH(C)\ IF Z=0 THEN RETURN380 GOTO 290390 IF F2=1 THEN 560400 PRINTCHR$(12)\PRINT\PRINT\PRINT\PRINTTAB(15),"WELCOME TO THE HANGMAN!"410 PRINT\PRINT\PRINT420 PRINT"THIS IS MY TERRITORY, AND I DON'T WELCOME INTRUDERS!"430 PRINT\PRINT"IF YOU WISH TO LIVE TO SEE ANOTHER SUNSET, YOU MUST PROVE"440 PRINT"YOUR WORTH. IF YOU CAN GUESS MY WORD WITHOUT MAKING 7 MISTAKES"450 PRINT"YOU MAY STAY. IF NOT, MY EXECUTIONS ARE SWIFT AND IMMEDIATE!"460 PRINT\PRINTTAB(40),"SINCERELY,"\PRINTTAB(40),"-THE HANGMAN-"470 FOR I=1 TO 1500480 IF INP(0)<>0 THEN Z=INP(1)\ GOTO 500490 NEXT500 PRINTCHR$(12)\PLOT0,43,0\PLOT26,24,0\PRINT"YOU WILL BEGIN IMMEDIATELY!"510 PLOT 0,21,0520 RESTORE 1150\READ Q\ FORI=1TOQ530 READ J$540 IF LEN(J$)<10 THEN J$=J$+" "\ GOTO 540550 L$=L$+J$\ NEXT560 G$=""\ U$=""570 A=FNH(0)580 F2=1590 RETURN600 W=INT(RND(0)*314)\ W=W-(INT(W/Q)*Q)+1610 W$=""620 K=(W-1)*10\ FOR I=1TO10630 IF L$(K+I,K+I)=" " THEN RETURN ELSE W$=W$+L$(K+I,K+I)640 NEXT650 RETURN 660 DEF FNI$(X)670 PLOT 0,24,0\PRINT"GUESS?"\PLOT 0,21,0680 IF INP(0)=0 THEN 680 ELSE Z=INP(1)690 IF Z>128 THEN Z=Z-128700 IF Z<65 OR Z>91 THEN 680710 PLOT 0,24,0\PRINT"      "\PLOT 0,21,0720 RETURN CHR$(Z)730 FNEND740 DEF FNH(X)750 IF X<>0 THEN GOTO 840760 PRINTCHR$(12)\PLOT0,44,0770 FOR I=1TO6\ PLOT 40,I,1\ NEXT780 FOR I=40 TO 127\ PLOT I,7,1\ NEXT790 FOR I=1 TO 47\PLOT 127,I,1\NEXT800 FOR I=127 TO 50 STEP -1\PLOT I,47,1\NEXT810 FOR I=47 TO 44 STEP -1\PLOT 50,I,1\NEXT820 FOR I=47 TO 39 STEP -1\PLOT 83,I,1\ NEXT830 RETURN X840 IF X=7 THEN 890 ELSE I=1850 IF M(X,I,1)=0 THEN 880860 L=M(X,I,1)\V=M(X,I,2)\POKE L,V870 I=I+1\ GOTO 850880 RETURN 0890 A1=6501\ W1=10\ L1=7900 FOR I=47 TO 39 STEP -1\ PLOT 83,I,1\ NEXT910 FOR Y=A1+64*L1 TO A1 STEP -64920 FOR X=W1 TO 0 STEP -1930 V=PEEK(Y+X)\ POKE Y+X+64,V940 NEXT\ NEXT950 PLOT 56,38,0\PRINT"YOU LOST!"\PLOT 0,35,0960 RETURN -1970 FNEND980 N=0\FORI=1TO7\FORJ=1TO13\M(I,J,1)=0\M(I,J,2)=0\NEXT\NEXT990 PRINTCHR$(12),"LOADING..."1000 READ X\ IF X<-10 THEN RETURN1010 IF X<0 THEN 10501020 IF X>100 THEN 10601030 N=N+1\M(K,N,1)=L\M(K,N,2)=X\L=L+11040 GOTO 10001050 K=-X\ N=0\ GOTO 10001060 L=X\ GOTO 10001070 DATA -1,6312,62,54,54,6375,62,7,47,47,6,6440,29,50,531080 DATA 311090 DATA -2,6505,48,55,6569,0,7,6633,0,7,6697,0,71100 DATA -3,6504,54,6566,62,43,59,6630,7,6693,62,151110 DATA -4,6506,54,55,6570,3,59,46,6637,7,6701,141120 DATA -5,6762,29,55,6827,59,46,6892,56,6956,56,541130 DATA -6,6760,53,31,6822,62,43,6886,56,6949,62,481140 DATA -9991150 REM: HERE ON IS USER PROGRAMMABLE1160 DIM L$(300)\RETURN1170 DATA 301180 DATA "CONCISE","VERIFY","LITHOGRAPH","CONVERSION"1190 DATA "AUTOMATIC","INTERIM","MISTAKE","LANTERN","GNU"1200 DATA"XEROX","PAPER","REHEAT","SYSTEMS","PRODUCT"1210 DATA"VERSION","DOCUMENT","DESCRIBE","CAPABLE"1220 DATA"CHARACTER","RESTORE","NEXT","FISH","SLASH","TIGER"1230 DATA"FLY","KNIGHT","LAB","LABORATORY","FOLLOW","PYREX"1240 REMRUN110 DIM A(30),A$(16)120 A$="                " \REM 16 SPACES130 PRINT CHR$(12),TAB(25),"REVERSE"140 T=RND(TIME(1)/65535)150 INPUT "Would you like instructions? (Y or N)",I$160 IF I$="N" THEN 340170 IF I$="n" THEN 330180 PRINTCHR$(12),"This is the game of REVERSE. To win, all you"190 PRINT"have to do is arrange an unsorted, sequential"200 PRINT"list of integers. The final arrangement must"210 PRINT"have 0 on the left and 'count up' to the highest"220 PRINT"integer (on the right). You can only reverse"230 PRINT"the order of a block of integers. This block"240 PRINT"can be any length but must begin with the left-"250 PRINT"most integer. For example, if the current list is:"260 PRINT"1 2 3 4 5 0 6 7 8 9"270 PRINT"and you reverse 5, you will then have:"280 PRINT"5 4 3 2 1 0 6 7 8 9"290 PRINT"Note the positions of the first 5 and last 5 digits."300 PRINT"Now, if you reverse 6, you will win:"310 PRINT"0 1 2 3 4 5 6 7 8 9"320 PRINT"If you want to change the array size, reverse 0!"340 INPUT "How many digits do you want to arrange?",M350 IF M<=0 THEN 1080360 IF M<=17 THEN 410370 PRINT"I'm sorry, but I can't go beyond 17 array elements."380 GOTO 330390 G=0410 G= G+1420 X= 0430 PRINTCHR$(12),"Game #",G440 PRINT"Thinking....",460 FOR L1=0 TO M-1470 A(L1)=INT (M*(RND(TIME(1)/65535)))480 IF L1=0 THEN 540500 L2= 0510 IF A(L1)=A(L2) THEN 470520 L2=L2+1530 IF L2<L1 THEN 510540 NEXT L1560 PRINTCHR$(12)," POSITIONS:",570 FOR L1=1 TO M580 PRINT%3I,L1,590 NEXT L1600 PRINTCHR$(11) \PRINT" THE LIST: ",610 FOR L1=0 TO M-1620 PRINT%3I,A(L1),630 NEXT L1640 IF W=1 THEN RETURN650 X= X+1660 PRINT\PRINT"This is your try #",X670 PRINT"How many integers do you want to reverse?",680 REM A$ + 6 SPACES690 PRINTA$,"      ",\POKE 6399,160700 PLOT 80,37,0\INPUT R$710 PLOT 0,34,0 \FOR I=1 TO 6 \PRINTA$, \NEXT720 POKE 6496,160 \PLOT 0,34,0730 IF LEN(R$)<3 THEN 760740 PRINT"I can't use a number with more than 2 digits,"750 PRINT"even if it's correct!" \GOTO 600760 IF LEN(R$)=0 THEN 810770 FOR I=1 TO LEN(R$)780 R1=ASC(R$(I,I))790 IF (R1<48) OR (R1>57) THEN 810800 NEXT \R=VAL(R$) \GOTO 820810 PRINT"Input error - retype!" \GOTO 600820 IF R<0 THEN PRINT"That's a strange choice--try again!"\GOTO 600830 IF R=0 THEN 340840 IF R<=M THEN 870850 PRINT"Please remember, you can't reverse more than",M860 GOTO 600870 REM REVERSE R NUMBERS IN LIST A880 FOR L1= 0 TO INT(R/2)-1890 T= A(L1)900 A(L1)= A(R-L1-1)910 A(R-L1-1)= T920 NEXT L1930 REM CHECK FOR A WIN940 FOR L1=0 TO M-1950 IF A(L1)<>L1 THEN PRINTCHR$(12), \GOTO 560960 NEXT L1970 W=1 \GOSUB 560980 PRINT\PRINT\PRINT990 PRINT"And you WON in",X," move", \IF X=1 THEN PRINT"!" ELSE PRINT"s!"1000 PRINT\W=01010 INPUT "Type return key when you are ready to continue",I$1020 IF G<10 THEN 4101030 INPUT "You've played many games, are you getting bored?",I$1040 IF I$="y" THEN 10801050 IF I$="Y" THEN 10801060 G=5 \GOTO 4101070 REM EXIT ROUTINE1080 PRINTCHR$(12),"BYE!"120 DIMB(26),R(16),M$(32),Z$(32)130 Z=RND(TIME(0)/65535)\PRINTCHR$(12)140 A$=FNI$("PLAYER A?",5,28,8)\B$=FNI$("PLAYER B?",5,28,8)150 GOSUB 750\GOSUB 720160 B(25)=0\B(26)=0\GOSUB 650170 Z=FND(57,13,B$)\ Z=FND(57,2,A$)180 Z=FND(1,6,"DICE:")190 P=1\W$=A$200 H=0\GOSUB 580210 GOSUB 1720220 FOR M=1 TO 2230 D=D1\IF M=2 THEN D=D2240 F=FNG(M)250 IF F<1 THEN ON F+3 GOTO 350,330,400260 Z1=(P*P+P)/2\Z2=ABS(B(Z1+25))\IF Z2>0 THEN 460270 IF B(F)=0 THEN 480 ELSE IF SGN(P)<>SGN(B(F)) THEN 440280 T=F+D*P290 IF T<1 OR T>24 THEN T=0\ IF FNB(P)=0 THEN 450 ELSE 380300 IF P=SGN(B(T)) OR B(T)=0 THEN 380310 IF ABS(B(T))>1 THEN 470320 Z=FNM(T,0)\Z=FNH(-P,1)\GOTO 380330 F=((P*P+P)/2)+25\IF B(F)=0 THEN 490340 Z=(P*P-P)/2\T=ABS(Z*25-D)\GOTO 300350 IF H=1 THEN 230360 D=D1\D1=D2\D2=D\Z=FNA(1,7,D1+176)\Z=FNA(5,7,D2+176)370 GOTO 230380 IF F>24 THEN Z=FNH(P,-1)390 Z=FNM(F,T)\H=1\Z=FNW(P)400 NEXT410 IF D3=1 THEN D3=0\GOTO 220420 IF P<0 THEN 190 ELSE P=-1\W$=B$430 GOTO 200440 M$="Other player!"\ GOTO 500450 M$="Can't bear off..."\ GOTO 500460 M$="Man on bar!"\ GOTO 500470 M$="Can't hit..."\ GOTO 500480 M$="Point empty.."\ GOTO 500490 M$="No man on bar..." \ GOTO 500500 J$=""\L=0\N=1\K=LEN(M$)510 IF N>K THEN 540 ELSE K$=M$(N,N)\N=N+1520 IF K$=" " THEN 540530 J$=J$+K$\IF LEN(J$)<7 THEN 510540 L=L+1\Z=FND(0,L,J$)\J$=""550 IF N<=K THEN 510560 FOR I=1TO800\NEXT\ FORY=47TO30STEP-3\ FORX=0TO12STEP2570 PLOT X,Y,0\ NEXT\NEXT\ GOTO 240580 REM: DICE590 Z=FNA(3,8,63)\ FOR N=1 TO RND(0)*15+4600 D1=INT(RND(0)*6)+1 \ D2=INT(RND(0)*6)+1610 Z=FNA(1,7,D1+176)\ Z=FNA(5,7,D2+176)\ NEXT620 Z=FNF(1,7,5)\ Z=FNF(5,7,5)\ D3=0630 IF D1=D2 THEN D3=1\ Z=FNA(3,8,170)\ Z=FNF(3,8,5)640 RETURN650 RESTORE 710\ FOR V=-4 TO 4\ IF V=0 THEN 700660 READ T,N\G=SGN(V)\B(T)=G*N670 FOR X=1 TO N\ W=FNX(T)\W2=FNY(T,X)680 A=FNS(T,G)\B=FNS(T,G*2)690 Z=FNA(W,W2,A)\Z=FNA(W+1,W2,B)700 NEXT\NEXT\RETURN710 DATA 6,5,8,3,13,5,24,2,1,2,12,5,17,3,19,5720 RESTORE 730\ FORI=1TO16\READ R(I)\NEXT\RETURN730 DATA 60,52,38,39,60,44,37,39740 DATA 57,41,13,15,57,25,11,15750 REM: PLT BD\ PRINTCHR$(12)\ F=15760 PRINTCHR$(12)\ PLOT 0,43,0\ F=15770 FOR X=15 TO 112\ PLOT X,5,1\PLOT X,42,1\ NEXT780 A=19\ FOR X=F TO F+48 STEP 8\ FOR Y=6 TO 41\ P=0790 IF X=F OR X=F+48 OR Y<A OR Y>48-A THEN P=1800 PLOT X,Y,P\ NEXT\ IF A=19 THEN A=18 ELSE A=19\ NEXT810 F=F+49 \ IF F<=64 THEN 780820 FOR P=1 TO 24\ X=FNX(P)\ Y=FNY(P,-1)\ Z=FNA(X,Y,P+192)830 NEXT\RETURN840 DEF FNA(X,Y,V) \ REM: PUT V @ ADDR X,Y; RET OLD V.850 A1=Y*64+X+6144\A2=PEEK(A1)860 POKE A1,V \ RETURN A2870 FNEND880 DEF FNX(P) \ REM: RET X ADDR OF POS P.890 Z=P \ IF P>12 THEN Z=25-P900 RETURN 57-(Z*4)910 FNEND920 DEF FNY(P,N) \ REM: RET Y ADDR OF POS(P)+N.930 IF N>8 THEN RETURN -2940 Y1=1+N \ IF P>12 THEN Y1=14-N950 RETURN Y1960 FNEND970 DEF FNQ(P) \ REM: +1 IF B(P) LEFT HALF, ELSE 0.980 Q1=P-1\ Q1=(INT(Q1/6)+1)/4\ Q1=Q1-INT(Q1)\ Q1=INT(Q1*2)990 RETURN Q11000 FNEND1010 DEF FNS(P,X)1020 S1=0 \ IF X<0 THEN S1=41030 S1=S1+(FNQ(P)*2)+ABS(X) \ IF P>12 THEN S1=S1+81040 RETURN R(S1)1050 FNEND1060 DEF FNM(F,T)1070 M1=ABS(B(F))1080 IF F>24 THEN 11001090 M2=FNX(F)\ M3=FNY(F,M1)\ M8=FNF(M2,M3,6)1100 M1=B(F) \ M2=SGN(M1) \ B(F)=M1-M21110 IF T=0 THEN RETURN 01120 M1=B(T)\ B(T)=M1+M2\ M1=ABS(B(T))\ M3=FNX(T)1130 M4=FNY(T,M1)\ M5=FNS(T,M2*1)\ M6=FNS(T,M2*2)1140 M7=FNA(M3,M4,M5)\ M7=FNA(M3+1,M4,M6)\ M8=FNF(M3,M4,5)1150 RETURN 01160 FNEND1170 DEF FNF(X,Y,T)1180 F1=FNA(X,Y,63)\ F3=A1\ F2=FNA(X+1,Y,63)\ F4=A11190 FOR F5=1 TO T \ FOR F6=1 TO 35 \ NEXT1200 F7=PEEK(F3) \ F8=PEEK(F4) \ POKE F3,F1 \ POKE F4,F21210 F1=F7 \ F2=F81220 NEXT \ RETURN 01230 FNEND1240 DEF FNG(T) \REM: INPUT MOVE1250 IF INP(0)>0 THEN 12701260 G8=(T-1)*4+1\ G1=FNA(G8,8,156)\ G1=FND(0,3,W$+"'S")1270 G1=FND(0,4,"MOVE:")1280 IF INP(0)=0 THEN 1280 ELSE G2=INP(1)1290 IF G2=13 THEN G2=-37\ G3=-1\ GOTO 13301300 IF G2=32 THEN G2=-32\RETURN -21310 IF G2=27 THEN G2=-19\G3=0\GOTO 13301320 G2=G2-64\ G3=G2\ IF G2<0 OR G2>24 THEN 12501330 G1=FNA(6,4,G2+192)\ G1=FND(0,3,"       ")1340 G1=FND(0,4,"       ")\ G1=FNA(G8,8,63)\ RETURN G31350 FNEND1360 DEF FNI$(M$,I,X,Y)\PRINTCHR$(12)1370 I$=""\I4=LEN(M$)/2+1\ I1=FND(32-I4,2,M$)\I1=11380 IF INP(0)=0 THEN 1380 ELSE I2=INP(1)1390 IF I2=13 THEN 1420 ELSE IF I1>I THEN 13801400 I$=I$+CHR$(I2)\ I3=FNA(X-1+I1,Y,I2+128)1410 I1=I1+1\ GOTO 13801420 RETURN I$1430 FNEND1440 DEF FND(X,Y,Z$) \ REM: DISPLAY Z$ @X,Y1450 FOR D5=1 TO LEN(Z$)1460 D6=ASC(Z$(D5,D5)) \ D7=FNA(X-1+D5,Y,D6+128)1470 NEXT \ RETURN 01480 FNEND1490 DEF FNB(P) \ REM: RET 1 IF BEAR OFF OK1500 B1=1\B2=18\B3=1\ IF P=-1 THEN B1=24\B2=7\B3=-11510 FOR B4=B1 TO B2 STEP B3\ B5=SGN(B(B4))1520 IF B5=P THEN RETURN 01530 NEXT\ RETURN 11540 FNEND1550 DEF FNH(H1,H2)1560 Z5=((H1*H1+H1)/2)+25\Z6=B(Z5)1570 IF H2>0 THEN B(Z5)=Z6+H1\Z6=B(Z5)1580 Z1=ABS(Z6)\Z2=INT((Z1-1)/3)\Z3=Z1-(Z2*3)1590 Z1=57+(Z3-1)*2 \ Z3=12-Z2 \ Z2=Z2+31600 IF H1<0 THEN Z2=Z31610 Z3=FNS(24,H1) \ Z4=FNS(24,H1*2)1620 Z=FNA(Z1,Z2,Z3) \ Z=FNA(Z1+1,Z2,Z4)1630 Z3=15 \ IF H2<1 THEN Z3=141640 Z=FNF(Z1,Z2,Z3)1650 RETURN 01660 FNEND1670 DEF FNW(P)\ FOR W1=1 TO 261680 IF SGN(B(W1))=P THEN EXIT 17101690 NEXT\PRINTCHR$(12)\PLOT30,24,01700 PRINTW$+" WON !!!"\GOTO 17501710 RETURN 01720 OUT 0,1311730 IF INP(0)=0 THEN RETURN ELSE I=INP(1)1740 IF I<128 THEN 1730 ELSE RETURN1750 REMRUN5 DIM A$(15),B$(45)\PRINT CHR$(12),20 PRINT "I CAN DO THE FOLLOWING PROGRAMS FROM THIS DISK:"30 PRINT "1...SEAWAR..naval target practice"40 PRINT "2...BLACKJACK..las vegas style card game"50 PRINT "3...STARTREK..fight the klingons in the enterprise"60 PRINT "4...HORSE..graphic horse race"70 PRINT "5...HAMURABI..govern sumeria for a ten year term"80 PRINT "6...WUMPUS..find a mythical monster in his cave"90 PRINT "7...HANGMAN..word guessing game in graphics"100 PRINT "8...REVERSE..number reversing game"110 PRINT "9...LANDER..land the lunar lander on the moon"120 PRINT "10..BACKGAMMON..famous board game"300 INPUT "ENTER THE NUMBER OF THE PROGRAM THAT YOU WANT: ",X310 IF (X>0) AND (X<11) THEN 400330 PRINT "INVALID PROGRAM NUMBER.RE-ENTER...."\GOTO 300400 IF X=1 THEN A$="SEAWAR"\GOTO 690410 IF X=2 THEN A$="BLCKJACK"\GOTO 690420 IF X=3 THEN A$="STARTREK"\GOTO 690430 IF X=4 THEN A$="HORSE"\GOTO 690440 IF X=5 THEN A$="HAMURABI"\GOTO 690450 IF X=6 THEN A$="WUMPUS"\GOTO 690460 IF X=7 THEN A$="HANGMAN"\GOTO 690470 IF X=8 THEN A$="REVERSE"\GOTO 690480 IF X=9 THEN A$="LANDER"\GOTO 690490 IF X=10 THEN A$="BACK"\GOTO 690690 B$="SCR"+CHR$(13)700 B$=B$+"LOAD,"+A$+CHR$(13)710 FOR S1=1 TO LEN(B$)\OUT 0,ASC(B$(S1,S1))\NEXT9999 STOPRUN2 Z=RND(TIME(0)/65535)\Z=05 PRINT CHR$(12),10 PRINT"YOU COMMAND A FLEET OF SHIPS OPERATING IN ENEMY TERRITORY"20 DIM Q$(12)30 INPUT "DO YOU NEED INSTRUCTIONS? ",Q$40 IF Q$="YES" THEN 6045 IF Q$="Y" THEN 6050 GOTO 16060 PRINT CHR$(12),70 PRINT "YOU TELL YOUR GUN CREWS THE ELEVATION TO SET THEIR GUNS"80 PRINT"ELEVATION IS IN DEGREES(0-360)"90 PRINT "YOUR TASK FORCE CONSISTS OF 3 DESTROYERS,2 CRUISERS,"100 PRINT "2 BATTLESHIPS,AND 2 HEAVY AIRCRAFT CARRIERS."110 PRINT "THE ENEMY HAS 9 SHIPS FOR HIS DEFENSE."120 PRINT "IF YOU SUCCEED IN SINKING ALL HIS SHIPS BEFORE HE SINKS"130 PRINT "YOURS,YOU HAVE WON.HOWEVER,IF HE SINKS YOURS,YOU HAVE"140 PRINT "LOST.PRESS RETURN WHEN READY."\INPUT Q$160 DIM Z$(20),D$(40),I$(10),P$(72),M$(40),N$(40)180 PRINT CHR$(12),190 READ Z$200 GOTO 280210 RESTORE220 IF (0=9) OR (A=9) THEN 710230 FOR X=1 TO A\READ Z$\NEXT X260 READ Z$270 A=A+1280 IF Z$="AIRCRAFT CARRIER" THEN 330290 IF Z$="U-BOAT" THEN 1610300 IF Z$="TORPEDO BOAT" THEN 320310 P=1320 GOTO 340330 RESTORE340 PRINT350 PRINT "YOUR FLAGSHIP SIGHTS AN ENEMY ",Z$360 T=43000.-30000*RND(0)+(RND(0)*10)*.987654+102370 IF T<10000 THEN 360380 S=0\P2=0390 T=INT(T)400 IF Z$="U-BOAT" THEN 1650410 PRINT "RANGE TO THE TARGET ",T," METERS."420 IF P=1 THEN 1150430 IF S>4 THEN 450440 GOTO 480450 PRINT "DUE TO YOUR POOR SHOOTING,TARGET HAS MOVED OUT OF RANGE"460 S=S1+S\GOTO 280480 INPUT "WHAT ELEVATION? ",B490 PRINT "---FIRE---"\S=S+1510 IF B>360 THEN 1110520 IF B<0 THEN 640530 IF B=0 THEN 660540 IF B=90 THEN 790550 IF B>330 THEN 660560 IF B>180 THEN 1060570 IF B>150 THEN 1020580 IF B>90 THEN 820590 V1=675.285600 E=INT(T-(V1^2/9.80665*SIN(2*B/57.3)))610 IF ABS(E)<=100 THEN 840620 IF E>100 THEN 960630 IF E<-100 THEN 990640 PRINT "GUN BACKFIRED,KILLING CREW!"\GOTO 690660 PRINT "IF YOU ARE TRYING TO KILL FISH,YOU ARE ON TARGET."670 PRINT "SHELL EXPLODED UNDER WATER 50 METERS FROM YOUR SHIP"680 GOTO 1240690 PRINT "          ADMIRAL,PLEASE!!!"\GOTO 1240710 PRINT "**** PEACE ****"\PRINT720 PRINT "YOU FIRED ",S1," ROUNDS.THE ENEMY FIRED ",S2," ROUNDS"730 IF O=9 THEN 750740 IF A=9 THEN 770750 PRINT "ALL YOUR SHIPS HAVE BEEN SUNK!!"\GOTO 2220770 PRINT "YOU HAVE DECIMATED THE ENEMY!!!"\GOTO 1810790 PRINT "YOU IDIOT!YOU FIRED STRAIGHT UP,AND THE SHELL CAME"800 PRINT "DOWN ON YOUR OWN GUN,DESTROYING IT!"\GOTO 1240820 PRINT "HEY STUPID!YOU'RE FIRING ON YOUR OWN SHIPS!"\GOTO 1240840 IF Z$="U-BOAT" THEN 860850 GOTO 880860 PRINT "DEPTH CHARGE EXPLODED ON TOP OF THAT BABY!!"870 A=A+1\GOTO 890880 PRINT "*** BOOM ***"890 PRINT "TARGET DESTROYED. ",900 PRINT S," ROUNDS EXPENDED."920 PRINT "YOU HAVE LOST ",O," SHIPS.THE ENEMY HAS LOST ",A,"."930 S1=S1+S940 P=0\GOTO 210960 IF Z$="U-BOAT" THEN 1740970 PRINT "SHOT FELL ",ABS(E)," METERS SHORT OF TARGET."\GOTO 1240990 IF Z$="U-BOAT" THEN 17601000 PRINT "SHELL OVERSHOT TARGET BY ",ABS(E)," METERS."\GOTO 12401020 PRINT "YOU JUST SANK YOUR OWN FLEET TANKER!!!"1030 S1=S1+11040 IF P=1 THEN 12401050 GOTO 4301060 PRINT "THE SHELL EXPLODED IN YOUR SHIP,DESTROYING IT!!"1070 O=O+11080 IF O=9 THEN 7101090 IF P=1 THEN 12401100 GOTO 6901110 PRINT B," EXCEEDS 360 DEGREES BY ",B-360," DEGREES!"1120 S1=S1+11130 IF P=1 THEN 12401140 GOTO 4301150 PRINT "THE ENEMY ",Z$," IS FIRING ON YOUR SHIPS!"1160 P4=1234*RND(RND(0))+(RND(0)*10)1170 IF P4<500 THEN 1160\REM1180 IF P2=1 THEN 1250\REM1190 IF INT(P4)<100 THEN 14201200 IF Z$="U-BOAT" THEN 17101210 PRINT "HIS FIRST ROUND FELL ",INT(P4)," SHORT."1220 S2=S2+1\GOTO 4301240 IF P2=1 THEN 11601250 P1=1250*RND(RND(0))+(RND(0)*10)1260 IF P1>P4 THEN 12501270 IF P1<(P4-400) THEN 12501280 IF P1<100 THEN 13401290 P4=P1\S2=S2+11310 IF Z$="U-BOAT" THEN 17801320 PRINT "THE ENEMY ROUND FELL ",INT(P1)," METERS SHORT."\GOTO 4301340 S2=S2+1\P2=1\GOSUB 14701370 PRINT "THE ENEMY ",Z$," SANK ",D$1380 O=O+11390 IF O=9 THEN 710 1400 IF D$="YOUR LAST BATTLESHIP!" THEN 7101410 GOTO 4301420 P2=11430 GOSUB 1470 1440 PRINT "IN FACT,HE JUST SANK ",D$1450 O=O+1\GOTO 13901470 RESTORE1480 FOR C=1 TO (9+O)\READ D$\NEXT C1510 READ D$1520 DATA "U-BOAT","210 MM SHORE GUN","70,000 TON CRUISER"1530 DATA"BATTLESHIP","TORPEDO BOAT","HEAVY FRIGATE"1540 DATA "E-TYPE DESTROYER","GUIDED MISSLE SHIP","AIRCRAFT CARRIER"1550 DATA "ONE OF YOUR DESTROYERS","YOUR HEAVY CRUISER"1560 DATA "ANOTHER OF YOUR DESTROYERS","ONE OF YOUR BATTLESHIPS"1570 DATA "YOUR LAST DESTROYER","YOUR AIRCRAFT CARRIER"1580 DATA "YOUR LIGHT CRUISER","YOUR LAST AIRCRAFT CARRIER"1590 DATA "YOUR LAST BATTLESHIP"1600 RETURN1610 PRINT "YOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT "1620 PRINT "FIVE FATHOMS"1630 P=1\GOTO 3601650 PRINT "RANGE TO THE TARGET ",\T=INT(T-1500)1670 IF T<0 THEN 3601680 PRINT "AS ",T," METERS"1690 PRINT "THE U-BOAT HAS COMMENCED FIRING TORPEDOES"\GOTO 11601710 PRINT "HIS FIRST TORPEDO EXPLODED ",(INT(P4)-50),1720 PRINT " METERS BEHIND YOUR SHIP."\GOTO 12201740 PRINT "DEPTH CHARGE EXPLODED ",ABS(E)," METERS SHORT."\GOTO 12401760 PRINT "DEPTH CHARGE EXPLODED ",ABS(E)," AFT OF TARGET."1770 GOTO 12401780 PRINT "THE ENEMY TORPEDO EXPLODED ",(INT(P1)-50),1790 PRINT " METERS IN FRONT OF YOUR SHIP."1800 GOTO 4301810 STOPRUN>Í$!6?Í™1>292>@262>272>282¯2:22;2!

-Â+0%Â+0ÍŸ1}·GþÒJ0>2;2¯2:2Ã1xþ.Ò\0>ÿ2;2¯2:2Ã1xþEÒn0>2:2¯2;2Ã1xþ\Ò€0>ÿ2:2¯2;2Ã1xþsÒ‘0>2:22;2Ã1xþŠÒ¤0>ÿ2;2>2:2Ã1xþ¡Òµ0>ÿ2:22;2Ã1xþ¸ÒÈ0>ÿ2:2>2;2Ã1xþÏÒñ0:92=292Â1>292>@262>272¯2:22;2Ã1xþæÒþ0¯282Ã1>282:62G::2€262:72G:;2€272:62þ?Ú11::2¿<2:2>?262ÃA1·òA1::2¿<2:2¯262:72þÚY1:;2¿<2;2>272Ãi1·òi1:;2¿<2;2¯272:62!o:72O:82_Í¼1>/‘OÍ¼1>•oÍ¼1:72OÍ¼1Ã(0*"<2*<2}æ-â«1?|g}oÂ¥1"<2#&ÉåÅÕÍÆ1ÑÁáÉ{2@2>/‘þÚÚ1ÖÃÏ12?2x2>2}·_Òî1!E2Ãñ1!B2:?2O	~2A2:>2O·yOxGÂ2!	~þ@Ú2>?G:A2O:@2·yÒ02 Ã22/°æ?wÉ5ÿTš	7/7;=>ÌÃ$^#VÉ·Ê åÕÅG_!r.N!¦.ÍV2+yæÊ²2åÅÕX!Ö.~Ñ»ÁáÂ•2#r+Ã²2s#rþÂ­2!~.X4Â­2#4ÁÑá·ÉåÕyæÄ3yæîOX·Â×2!ž.ÍV2{²Ê3r+sX!Ž.ÍV2y·Âæ2r+sÕX!~.N!Ö.XÍV2áÅ>ÍÜÐ5ÁX!r.~öæûwÑáÃ•2ÑáÁÑá¯7ÉåÕÅX!®.ÍV2ÕX!Ö.ÍV2ÕX!~.NÑá>ÍÜÐ5ÁX!r.~æûwÑáÉþÊM2åÕÅõO_!r.~æÂË3!Æ.ÍV2xr+såÕ!Ö.Y~Ñá»Â3#r+yÃ•3ñÁÑáxÉ_!®.ÍV2Õr+s_!¾.ÍV2r+s_!Ö.ÍV2Õ_!~.NÑá>ÍÜÐ5Ã3~æÂ 4~æÊú3åY!Ž.ÍV2ÕY!®.ÍV2á|ºÂï3}»áÂú3~öwÃ 4~æ÷öwY!®.ÍV2ÕY!Ö.ÍV2!~.	NáxÍÜÐ5!Æ.ñõOYÍV2ëñÁÅõxF¸ÊD4þÊ­4ÅOxþyÁÊª4w#ër+sñõåÕ!Ö.OY~Ñá»Â3Íd4Ã3s#rÕy_!®.ÍV2Õr+s_!~.NáÑõ>ÍÜÐ5ñ_O!r.~æûw!¾.ÍV2r+s|À(ÃÌ5Ã3ñõOÕå!Ö.YÍV2á6#{½ÊÌ4~þÂº4ÑÃD4Ñë+Íd4ñÁÑáÃS3"î.*ò.ù"dQõÍ47ñÒ5*î.~þÊú4ÍQÃî4"ð.Í710 DIM P(4),R(4),S(4),A(4,3),H(4,5),F(6,5),M$(16)40 G=0 \ RESTORE50 GOSUB 39060 FOR I=1 TO 5 \ READ H(1,I),H(2,I),H(3,I) \ NEXT70 FOR I=1 TO 6 \ FOR J=1 TO 5 \ READ F(I,J) \ NEXT \ NEXT80 Z=RND(ABS(SIN(TIME(0))))90 GOSUB 150100 FOR I=1 TO 2500 \ NEXT\GOSUB 670\FOR I=1 TO 4000\ NEXT130 IF G=5 THEN G=0\ GOSUB 390140 GOTO 90150 PRINTCHR$(12)160 FOR I=1TO4\ P(I)=0\ S(I)=0\ R(I)=1\ NEXT170 S=0\ W=4\ GOSUB 800180 FOR Q=1 TO 4 \ Z=FNH(Q,0) \ NEXT185 GOSUB 880190 PLOT 28,42,0\PRINT"AND THERE THEY GO!"\ PLOT 0,41,0200 FOR I=1 TO 800\ NEXT210 GOSUB 880220 PLOT 28,42,0\PRINT"                  "\ PLOT 0,41,0230 Q=INT(RND(0)*1E6)\Q=Q-(INT(Q/4)*4)+1250 B=INT(RND(0)*2)+1\IF INT(RND(0)*150) <> 45 THEN 310270 IF P(Q)>54 THEN 310280 M$="BROKE A LEG!"\ Z=FNM(Q,200)\IF Z=0 THEN 310300 B=-1\W=W-1310 Z=FNH(Q,B)\IF S=W THEN 360320 IF Z<58 THEN 230330 P(Q)=-1\ S=S+1\ S(S)=Q\Z=W\ IF W>3 THEN Z=3350 IF S<Z THEN 230360 PLOT 0,47,0370 PRINT TAB(18),"WIN:",S(1),"   PLACE:",S(2),"   SHOW:",S(3)380 RETURN390 PRINTCHR$(12)400 PRINT"HI! WELCOME TO HORSE RACE. THIS PROGRAM DEMONSTRATES"410 PRINT"THE USE OF POLY 88 VIDEO GRAPHICS IN GAME ANIMATION."420 PRINT\PRINT"THE HORSES YOU WILL SEE ARE MADE UP OF INDIVIDUAL"430 PRINT"GRAPHIC CELLS IN A 6 BY 20 MATRIX. THE ANIMATION IS"440 PRINT"DONE BY MOVING TWO ALTERNATING SETS OF PATTERNS ACROSS"450 PRINT"THE SCREEN." \ PRINT520 FOR I=1 TO 10000\ NEXT530 RETURN540 DEF FNM(Q,T)550 L=LEN(M$)560 Y=(4-Q)*9+3 \ X=2*(P(Q)-L-1)\IF X<2 THEN RETURN 0580 M=Q*192+63680\ Z=5 \ IF Q=4 THEN Z=13600 PLOT X,Y,0 \ PRINTM$ \ POKE M,Z\IF T<0 THEN RETURN 1620 FOR I=1 TO L\M$(I,I)=" "\NEXT\FOR I=1 TO T \ NEXT640 PLOT X,Y,0 \ PRINTM$ \ POKE M,Z650 RETURN 1660 FNEND670 I=S(1)\J=S(2)\K=S(3)\A(I,1)=A(I,1)+1\A(J,2)=A(J,2)+1\A(K,3)=A(K,3)+1710 PRINT CHR$(12)\PLOT 0,47,0\G=G+1\PRINT "RACE #",G \ PLOT 0,42,0730 PRINTTAB(12),"HORSE:",TAB(24),"WIN   PLACE   SHOW"\PRINT\ PRINT750 FOR I=1 TO 4\PRINTTAB(14),I,TAB(24),%3I,A(I,1),%8I,A(I,2),%7I,A(I,3)\NEXT790 RETURN800 FOR Y=1 TO 37\PLOT 0,Y,1\NEXT\FOR Y=1 TO 37\PLOT 127,Y,1\NEXT 820 FOR Y=1 TO 37 STEP 9\FOR X=1 TO 13\PLOT X,Y,1\NEXT\NEXT850 FOR Y=1 TO 36\PLOT 13,Y,1\NEXT\PLOT 0,47,0\PRINT"RACE #",G+1\PLOT 0,42,0870 RETURN880 FOR Y=1 TO 36\PLOT 13,Y,0\NEXT\RETURN900 DEF FNH(N,I)910 J=P(N)\M=R(N)\M=(M*M+M)/2+2\IF J<0 THEN RETURN 0930 K=6208+(N*192)+J\IF I<0 THEN 1010950 FOR L=1 TO I+1 \ POKE K+L,63 \ POKE K+L+64,63 \ NEXT960 IF P(N)+I>57 THEN I=58-P(N)970 K=K+I \ L=K+64980 FOR J=1 TO 5 \ POKE K+J,H(1,J) \ POKE L+J,H(M,J) \ NEXT990 P(N)=P(N)+I \ R(N)=R(N)*-11000 RETURN P(N)1010 REM: HERE FOR BREAK A LEG1020 FOR H1=1 TO 3 STEP 21030 FOR L=1 TO 2\POKE K+L,63\POKE K+L+64,63\NEXT\K=K+1\M=K+641050 FOR J=1 TO 5\ POKE K+J,F(H1,J)\ POKE M+J,F(H1+1,J)\ NEXT1060 FOR L=1 TO 180\NEXT\NEXT\P(N)=-1\RETURN 01080 FNEND1090 DATA 62,30,21,54,15,31,54,49,59,43,63,46,47,63,631100 DATA 62,54,54,63,55,21,31,54,11,591110 DATA 63,63,63,63,63,52,37,36,54,461120 DATA 63,63,63,63,63,54,54,54,54,469999STOPRUN5REM WRITTEN TERRY WOODWARD,COMPUTER CENTER,205-942-856710X=0\GOSUB 449030DIM D(6),Q(12,12),K(3,3),G(12,12),Z$(15),C$(6),C(9,2),W8(10)50DEF FNA(X)=INT(X*RND(0)+1)70B9=RND(TIME(0)/65535)\T=(FNA(20)+20)*100\T0=T\E=4000\P=15\S=500\V=614490DEF FND(D)=SQRT((K(I,1)-S1)^2+(K(I,2)-S2)^2)110Q1=FNA(8)\Q2=Q1\S1=Q1\S2=Q1130FORI=1TO9\FORJ=1TO2\C(I,J)=1\NEXTJ\NEXTI150C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1170C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0190FORI=1TO6\D(I)=0\NEXT210B9=0\K9=0230FORI=1TO8\FORJ=1TO8\K3=0\B3=0250IFRND(0)<.8 THEN290270K3=FNA(3)\K9=K9+K3290IFRND(0)<.96THEN330310B3=1\B9=B9+1330S3=FNA(5)\G(I,J)=(K3*100)+(B3*10)+S3\NEXTJ\NEXTI350IF(K9=0)OR(B9=0)THEN210370INPUT "PRESS RETURN TO CONTINUE",W9$\!CHR$(12),390POKE 3103,27\POKE 3102,28\!CHR$(12),\GOTO570410IFQ1>=1THEN450430S1=1\Q1=1450IFQ1<=8THEN490470S1=8\Q1=8490IFQ2>=1THEN530510S2=1\Q2=1530IFQ2<=8THEN590550S2=8570Q2=8590X=G(Q1,Q2)/100\K3=INT(X)\B3=INT((X-K3)*10)610S3=G(Q1,Q2)-((B3*10)+(K3*100))630IFK3=0THEN670 ELSE!"COMBAT AREA CONDITION RED"650IFS>(K3*100)THEN670ELSE!"SHIELDS LOW"670FORI=1TO3\FORJ=1TO3\K(I,J)=0\NEXTJ\NEXTI690FORI=1TO8\FORJ=1TO8\Q(I,J)=0\NEXTJ\NEXTI710Q(S1,S2)=1730FORI=1TOK3\GOSUB 4410750Q(R1,R2)=2\K(I,1)=R1\K(I,2)=R2\K(I,3)=200\NEXTI770IFB3=0THEN810790GOSUB 4410\Q(R1,R2)=4810FORI=1TOS3\GOSUB 4410\Q(R1,R2)=3\NEXTI830GOSUB 3050850GOSUB 2670870!"COMMAND: ",890IFINP(0)=0THENGOSUB4870\GOTO890910A=INP(1)\IF(A<48)OR(A>54)THEN890930W9$=CHR$(A)\A=VAL(W9$)\!A950IF(A>=0)OR(A<=6)THEN1030970R1=A+1990IFD(R1)>=0THEN10301010GOSUB 4330\! Z$," NOT OPERATIONAL"\GOTO8301030ON A+1 GOTO 1070,4890,1750,1930,2470,3850,44501050!"INVALID COMMAND"\GOTO8701070INPUT "COURSE(1-9): ",C11090IF(C1<1)OR(C1>=9)THEN10701110INPUT "WARP FACTOR (0-8): ",W11130IF(W1<=0)OR(W1>8)THEN11101150IF(D(1)>=0)OR(W1<=.5)THEN11901170!"ENGINES DAMAGED,MAX SPEED IS WARP .5"\GOTO11101190IFE-(W1*8)>0THEN12701210IFS<1THEN28101230!"YOU ONLY HAVE ",E," UNITS.SUGGEST YOU CROSS-CIRCUT"1250!"FROM SHIELDS,WHICH HAVE ",S," UNITS"\GOTO8701270FORI=1TO6\IFD(I)>=0THEN13101290D(I)=D(I)+11310NEXTI1330IF(FNA(10)<>5)OR(W1<2)THEN13901350R1=FNA(6)\D(R1)=D(R1)-FNA(5)\GOSUB 43301370!"DAMAGE CONTROL REPORTS: ",Z$," DAMAGED."1390N=INT(W1*8)1410Q(S1,S2)=0\X=S1\Y=S2\C2=INT(C1)1430X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)1450X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)1470FORI=1TON\S1=S1+X1\S2=S2+X21490IF(S1<1)OR(S1>8)OR(S2<1)OR(S2>8)THEN16301510IFQ(INT(S1),INT(S2))=0THEN15501530S1=S1-X1\S2=S2-X2\GOTO15701550NEXTI1570S1=INT(S1)\S2=INT(S2)\Q(S1,S2)=1\E=E-N\IFW1<1THEN8301590T=T+11610IF(T>T0+30)THEN2870ELSEGOTO8301630X=Q1*8+X+X1*N\Y=Q2*8+Y+X2*N\Q1=INT(X/8)\Q2=INT(Y/8)1650S1=INT(X-Q1*8+.5)\S2=INT(Y-Q2*8+.5)\IF S1>0THEN16901670Q1=Q1-1\S1=81690IFS2>0THEN17301710Q2=Q2-1\S2=81730T=T+1\E=E-N+5\IF(T>T0+30)THEN2870ELSE4101750IFK3=0THEN26501770!"ENERGY AVAILABLE=",E\INPUT"ENERGY UNITS TO FIRE:",X1790IFX<1THEN8701810IFE-X<0THEN1770ELSEE=E-X1830FORI=1TO3\IFK(I,3)=0THEN19101850H=INT(X/(FND(0)))\K(I,3)=K(I,3)-H1870!H," UNIT HIT ON KLINGON",\IF K(I,3)>0 THEN !\GOTO19101890GOSUB 23101910NEXTI\GOTO22901930IFP>0THEN19701950!"PHOTON TORPEDOS EXPENDED"\GOTO8701970INPUT"TORPEDO COURSE (1-9): ",C11990IF(C1<1)OR(C1>=9)THEN19702010C2=INT(C1)\X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)2030X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)\X=S12050Y=S2\P=P-12070X=X+X1\Y=Y+X22110IF(X<1)OR(X>8)OR(Y<1)OR(Y>8)THEN24502130POKE V+(INT(X)*64)+(INT(Y)*3),31\FORW9=1TO20\NEXTW92150POKE V+(INT(X)*64)+(INT(Y)*3),632170IF(Q(INT(X),INT(Y))=0)AND(Q(INT(X+.5),INT(Y+.5))=0)THEN20702190FORI=1TO32210IF(INT(X)=K(I,1))AND(INT(Y)=K(I,2))THEN22702230IF(INT(X+.5)=K(I,1))AND(INT(Y+.5)=K(I,2))THEN22702250NEXTI\GOTO23902270GOSUB 23102290GOSUB 2670\GOTO8302310K(I,3)=0\Q(K(I,1),K(I,2))=0\!" KLINGON DESTROYED" \K3=K3-12330K9=K9-1\IFK9=0THEN29902350G(Q1,Q2)=G(Q1,Q2)-1002370RETURN2390IF(Q(INT(X),INT(Y))=0)OR(Q(INT(X+.5),INT(Y+.5))=0)THEN20702400IFQ(INT(X),INT(Y))<>3THEN24302410!"STAR DESTROYED"\Q(INT(X),INT(Y))=0\GOTO22902430POKE 3103,24\POKE 3102,28\!"STARBASE DESTROYED"2440!"YOU ARE RELIEVED OF DUTY"\GOTO47702450!"TORPEDO MISSED"\GOTO22902470!"ENERGY AVAILABLE=",E+S\INPUT"ENERGY UNITS TO SHIELDS:",X2490IFX<0THEN8702510IF(E+S-X<0)THEN24702530E=E+S-X\S=X\GOTO8302550FORR1=1TO6\GOSUB 43302590!Z$,\IFD(R1)=0THEN!" IN SERVICE ", ELSE!" DAMAGED ",2610IFINT(R1/2)=R1/2THEN!\FORW8=1TO200\NEXTW82630NEXT R1\GOTO8702650!"NO KLINGONS IN THIS QUADRANT"\GOTO8702670IFC$="DOCKED"THENRETURN2690IFK3=0THENRETURN2710FORI=1TO3\IFK(I,3)=0THEN27702730H=INT(K(I,3)/FND(0)+1)\S=S-H\! H," UNIT HIT ON ENTERPRISE"2750IFS<0THENEXIT29102770NEXTI2790RETURN2810POKE 3102,28\POKE 3103,242830!CHR$(12),\!"** FATAL ERROR **"\!"ENTERPRISE IS DEAD IN SPACE"2850GOTO29502870POKE 3103,24\POKE 3102,282890!CHR$(12),\!"IT IS STARDATE ",T\GOTO29502910POKE 3102,28\POKE 3103,24\!CHR$(12),2930!"THE ENTERPRISE HAS BEEN DESTROYED"2950!"THE FEDERATION WILL BE CONQUERED BY THE REMAINING ",K9," KLINGONS!!"2970GOTO47702990POKE 3102,28\POKE 3103,24\! CHR$(12),3010!"THE LAST KLINGON HAS BEEN DESTROYED."\!"CONGRATULATIONS!"3030GOTO47703050FORI=S1-1TOS1+1\FORJ=S2-1TOS2+13070IF(I<1)OR(I>8)OR(J<1)OR(J>8)THEN31103090IFQ(I,J)=4THENEXIT31303110NEXTJ\NEXTI\GOTO31703130C$="DOCKED"\E=3000\P=153150FORI=1TO6\D(I)=0\NEXTI\S=500\GOTO32703170IFK3>0THEN32303190IFE<300THEN32503210C$="GREEN "\GOTO32703230C$="*RED* "\GOTO32703250C$="YELLOW"3270POKE 3102,27\POKE 3103,24\PLOT 0,47,03290W7=1\FORI=1TO9\W8(I)=0\NEXTI3310FORI=Q1-1TOQ1+1\FORJ=Q2-1TOQ2+13330IF(I<1)OR(I>8)OR(J<1)OR(J>8)THEN33703350W8(W7)=G(I,J)3370W7=W7+1\NEXTJ\NEXTI3390!"  1  2  3  4  5  6  7  8"3410Z=0\!"1",\GOSUB 4230\!"    QUADRANT ",Q1,",",Q2,"         3"3450!"2",\GOSUB 4230\!"STARDATE ",T,"       4   2"3490!"3",\GOSUB 4230\!"CONDITION ",C$,"   5   +   1"3530!"4",\GOSUB 4230\!"ENERGY ",%5I,E,"         6   8"3570!"5",\GOSUB 4230\!"TORPEDOS ",%2I,P,"            7"3610!"6",\GOSUB 4230\!"SHIELDS ",%4I,S,"      ",3650!":",%3I,W8(1),":",%3I,W8(2),":",%3I,W8(3),":"3670!"7",\GOSUB 4230\!"KLINGONS ",%2I,K9,"       ",3710!":",%3I,W8(4),":",%3I,W8(5),":",%3I,W8(6),":"3730!"8",\GOSUB 4230\!"    SECTOR ",S1,",",S2,"      ",3770!":",%3I,W8(7),":",%3I,W8(8),":",%3I,W8(9),":"3790!"0=SET COURSE 1=LOAD TORPEDOS 2=PHASERS"3810!"3=TORPEDOES  4=SHIELDS  5=COMPUTER  6=RESIGN"3830POKE 3102,28\POKE 3103,27\!CHR$(12),\RETURN3850INPUT"COMPUTER ACTIVATED: ",A\IF (A<0) OR (A>1) THEN39103890ON A+1 GOTO 2550,60003910!"FUNCTIONS AVAILABLE FROM LIBRARY COMPUTER:"3930!"0=DAMAGE REPORT   1=TORPEDO DATA"\GOTO38504210GOSUB 3050\GOTO8704230Z=Z+14250FORI=1TO8\Z$="   <*>+++ * >!<"\!Z$(Q(Z,I)*3+1,Q(Z,I)*3+3),\NEXTI4290IF(Z=1)OR(Z=8)THENRETURNELSE!"    ",4310RETURN4330RESTORE 43504350DATA "WARP ENGINES","SCANNERS","PHASER BANKS","TORPEDO TUBES"4370DATA "SHIELD CONTROL","COMPUTER"4390FORX=1TOR1\READ Z$\NEXTX\RETURN4410R1=FNA(8)\R2=FNA(8)\IF Q(R1,R2)=0THENRETURNELSE44104450POKE 3103,24\POKE 3102,28\!CHR$(12)4470!"YOUR RESIGNATION HAS BEEN ACCEPTED"\GOTO47704490!CHR$(12),4510!"****** WELCOME TO THE STARSHIP ENTERPRISE ********"4530!"  <*> = ENTERPRISE     * = STAR"4550!"  +++ = KLINGON       >!< = STARBASE"\!4570!"COMMAND 1 IS LOAD OR UNLOAD TORPEDOS.A TORPEDO LOADED"4590!"   DECREASES ENERGY BY 400 UNITS.A TORPEDO UNLOADED INCREASES"4610!"   ENERGY BY 400 UNITS."4630!"COMMAND 2 IS PHASER CONTROL"4650!"COMMAND 3 IS PHOTON TORPEDOS.COURSE IS SAME AS WARP"4670!"    ENGINES.LIBRARY COMPUTER CAN COMPUTE TRAJECTORY"4690!"COMMAND 4 CHANGE ENERGY IN SHIELDS"4710!"COMMAND 5 IS LIBRARY COMPUTER:0=DAMAGE REPORT,1=TORPEDO DATA."4750!"COMMAND 6 IS RESIGNATION"\!\RETURN4770INPUT "DO YOU WISH TO TRY AGAIN ",C$4790IFLEN(C$)=0THENGOSUB4490\GOTO704810IFC$(1,1)="N"THEN48504830GOSUB 4490\GOTO704850POKE 3102,28\POKE 3103,24\GOTO99994870FORW8=6848TO6900\POKE W8,9\POKE W8,63\NEXTW8\RETURN4890!"EACH TORPEDO LOADED  (+) DECREASES ENERGY 400 UNITS."4910!"EACH TORPEDO UNLOADED (-) INCREASES ENERGY 400 UNITS."4930INPUT"HOW MANY TORPEDOS (+ OR -) ? ",W9\IFSGN(W9)=0THEN8704950IFSGN(W9)=-1THEN50104970IFW9*400>ETHEN28104990E=E-(W9*400)\P=P+W9\GOTO8305010IFABS(W9)>PTHEN49305030E=E+(ABS(W9)*400)\P=P-ABS(W9)\GOTO8306000FORI=1TO3\IFK(I,3)<=0THEN61106040X=K(I,2)-S2\Y=S1-K(I,1)6060IFX=0THEN61506070A=INT(((57.3*FNQ(Y/X))/45+1)*100)/1006080IF(X>0)AND(Y<0)THEN62006090IFX<0 THEN 61306100!"KLINGON AT ",K(I,2),",",K(I,1)," COURSE=",A6110NEXTI\GOTO8306130A=A+4\GOTO61006150IFY<0THEN61806160A=3\GOTO61006180A=7\GOTO61006200A=A+8\GOTO61006220DEF FNQ(U)6230C1=.99997726\C2=-.33262347\C3=.19354346\C4=-.116432876240C5=.05265322\C6=-.01172120\U2=SGN(U)\U=ABS(U)\U=(U-1)/(U+1)6250U=.7853982+C1*U+C2*U^3+C3*U^5+C4*U^7+C5*U^9+C6*U^116260U=U*U2\RETURN U6280FNEND9999 STOPRUN70 PRINT%#Z6F1,100 REM *** LUNAR LANDER ***110 DIM L$(60)120 S= 6144130 PRINTCHR$(12),TAB(22),"LUNAR LANDER"140 PRINT\INPUT "WOULD YOU LIKE INSTRUCTIONS (Y OR N)?",I$150 IF LEN(I$)=0 THEN 550160 IF I$(1,1)<>"Y" THEN 550170 PRINT\PRINT"YOU ARE THE PILOT OF A LUNAR LANDER MODULE, AND,"180 PRINT"UNFORTUNATELY, YOUR ON-BOARD COMPUTER BROKE DOWN"190 PRINT"(IT WAS NOT MADE BY POLYMORPHICS). YOU TOOK OVER"200 PRINT"MANUAL CONTROL TO LAND YOUR SHIP ON THE MOON."210 PRINT"INITIALLY, YOUR LANDER IS SEVERAL HUNDRED FEET"220 PRINT"ABOVE A LUNAR LANDING PLATFORM, AND FALLING TOWARD"230 PRINT"IT, ACCELERATING AS IT FALLS. YOUR OBJECTIVE IS TO"240 PRINT"MAKE A SOFT LANDING ON THE PLATFORM. YOUR ONLY"250 PRINT"AVAILABLE MANEUVER IS TO BRAKE WITH YOUR ROCKET"260 PRINT"ENGINE."\PRINT270 GOSUB 1550280 PRINTCHR$(12),290 PRINT"1) ABOUT YOUR ENGINE: YOUR ENGINE HAS TWO LIMITATIONS:"300 PRINT"   A) IT CAN ONLY EXERT A THRUST BETWEEN 0-9"310 PRINT"   B) THEIR IS A LIMITED AMOUNT OF FUEL ON BOARD, YOU"320 PRINT"      HAVE ENOUGH FOR A SAFETY FACTOR, BUT CONSERVE!"330 PRINT\PRINT"2) UNITS OF FUEL: ONE UNIT OF FUEL SHALL REDUCE YOUR"340 PRINT"   ACCELERATION BY ONE FOOT PER SECOND SQUARED, AND"350 PRINT"   SINCE LUNAR ACCELERATION IS 2 FT/SECOND SQUARED,"360 PRINT"   A BURN RATE OF 2 WILL HOLD YOUR SPEED CONSTANT."370 PRINT\PRINT"3) THE LANDING PLATFORM: IT IS VERY IMPORTANT THAT"380 PRINT"   YOU TRY TO LAND ON THE PLATFORM, OTHERWISE THE"390 PRINT"   LANDER WILL NOT SURVIVE A LANDING ON THE MOON."\PRINT400 GOSUB 1550 \ PRINTCHR$(12),410 PRINT"REMEMBER - THE ONLY COMMANDS YOU CAN USE TO CONTROL"420 PRINT"YOUR SPEED ARE: 0 THROUGH 9 (BURN RATE)."430 PRINT"SMALLER BURN RATES MAKE THE LANDER FALL FASTER OR"440 PRINT"DECREASE UPWARD VELOCITY."450 PRINT"LARGER BURN RATES MAKE THE LANDER FALL SLOWER OR"460 PRINT"INCREASE UPWARD VELOCITY."470 PRINT"'2' KEEPS THE VELOCITY CONSTANT."\PRINT480 PRINT"THE LARGER THE BURN RATE, THE FASTER YOU USE FUEL."490 PRINT"IF YOU RUN OUT OF FUEL, YOU CAN'T CONTROL YOUR,"500 PRINT"SPEED - GRAVITY TAKES OVER!"510 PRINT\PRINT"WHEN THE GAME DISPLAY APPEARS, YOUR LANDER WILL BE"520 PRINT"IN THE UPPER LEFT, PLATFORM ON THE BOTTOM."530 PRINT"AT THAT POINT, TYPE IN ANY BURN RATE TO BEGIN."540 GOSUB 1550550 PRINTCHR$(12),560 REM          INITIALIZE DATA570 T= 0580 H= 500590 V= 35+INT(10*RND(0))600 F= 150+INT(50*RND(0))610 B= 0620 REM          INITIALIZE SCREEN630 PRINTCHR$(12),640 REM THE STARS650 FOR X= 0 TO 50660 POKE S+INT(1020*RND(0)),174670 NEXT X680 REM THE LANDING PLATFORM690 FOR X= 54 TO 74700 PLOT X,0,1710 NEXT X720 GOSUB 1570 \ K=INP(1) \ GOTO 760730 GOSUB 1570740 REM          INPUT750 IF INP(0)=0 THEN 760 ELSE K=INP(1)760 B=K-48770 IF B<0 OR B>9 THEN 750780 REM          PROCESSING790 T=T+1800 IF T=127 THEN 1090810 IF T=74 THEN 970820 IF T>74 THEN B=2830 IF B>F THEN B=F840 F=F-B850 V1= V-B/2+1860 IF H<(V+V1)/2 THEN 1020870 H= H-(V+V1)/2880 IF H>500 THEN 1090890 V= V1900 IF F>0 THEN 730910 REM          FREE-FALL ROUTINE920 PRINT CHR$(11)930 PRINT" OUT OF FUEL - FREE FALL STARTS!"940 B=0950 GOSUB 1570960 GOTO 790970 PRINT CHR$(11)980 PRINT\PRINT" YOU HAVE OVER SHOT THE LUNAR PLATFORM... BUCKLE YOUR"990 PRINT" SEATBELTS AND PREPARE FOR A CRASH LANDING!"1000 GOTO 8401010 REM CONTACT1020 IF T>54 THEN 11401030 REM          MISSED PLATFORM ROUTINE1040 PRINT CHR$(11)1050 PRINT\PRINT\PRINT\PRINT" YOU HAVE MISSED THE LANDING PLATFORM, AND"1060 PRINT" CRASHED ON THE LUNAR SURFACE, JUST BELOW."1070 GOTO 11601080 REM          ORBIT ROUTINE1090 PRINTCHR$(11)\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT1100 PRINT" YOU HAVE OVER-CORRECTED YOUR BURN RATE TO COUNTERACT"1110 PRINT" THE GRAVITATIONAL PULL AND GONE INTO ORBIT ..FOREVER!"1120 GOTO 15201130 REM          CONACT WITH PLATFORM ROUTINE1140 PRINTCHR$(11)\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT1150 PRINT" CONTACT WITH PLATFORM!"1160 IF B=2 THEN D=H/V1170 IF B=2 THEN 11901180 D= (-V+SQRT(V^2+H*(4-2*B))) / (2-B)1190 V= V+D*(2-B)1200 T= T+D1210 H= 01220 GOSUB 15701230 REM          COMMENT ROUTINE1240 PRINTCHR$(11)1250 RESTORE 12601260 DATA "BY GEORGE, YOU'VE GOT IT!"1270 DATA "WHEN YOUR WHIPLASH SUBSIDES, HAVE ANOTHER GO!"1280 DATA "WELL, BACK TO THE OLD DRAWING BOARD."1290 DATA "DID YOU KNOW THAT THIS LEM COSTS $114,942,124.99?"1300 DATA "PLEASE DON'T LITTER."1310 DATA "WITH A POLY-88 TO HELP YOU, YOU MIGHT OF MADE IT!"1320 DATA "SIMPLY SMASHING!"1330 DATA "TO DIE, TO SLEEP, NO MORE....."1340 DATA "IT'S A BIRD!  IT'S A PLANE!  IT'S A MISCALCULATION!"1350 DATA "ACTION UNGOVERNED BY THOUGHT ENDS IN DIASTER"1360 DATA "WELCOME TO NEGATIVE POPULATION GROWTH!"1370 DATA "LIKE A BRICK!"1380 DATA "CLOSE DOESN'T COUNT"1390 DATA "AH! TO HAVE TO COME SO CLOSE!"1400 DATA "OOH! ..... I CAN'T LOOK AT THE MESS!"1410 DATA "BLOOD, GUTS, TWISTED METAL, YUCK!"1420 T1= INT(V/3.1)1430 IF T1>15 THEN T1=151440 FOR X= 0 TO T11450 READ L$1460 NEXT X1470 PRINTCHR$(11)\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT1480 PRINT" ",L$1490 IF V*.27 < 9 THEN 15201500 PRINT\PRINT" AND YOU HAVE JUST BLASTED A NEW LUNAR CRATER",V*.27,1510 PRINT" FEET DEEP!"1520 PRINTCHR$(16+8) \ GOSUB 15501530 GOTO 5601540 REM	CONINUE ON USER INPUT1550 INPUT"TYPE RETURN KEY NOW TO CONTINUE....",Z$\RETURN1560 REM          HEADER PRINT-OUT SUBROUTINE1570 REM1580 PRINTCHR$(11),1590 PRINT" TIME=",T,1600 PRINT" HEIGHT=",H,1610 PRINT" VELOCITY=",V,1620 PRINT" FUEL=",F,1630 PRINT" BURN=",%2I,B1640 REM          PLOT LEM ROUTINE1650 IF H/10>46 THEN 16801660 PLOT T,H/10,11670 PLOT 0,0,01680 RETURN1690 REM EXIT ROUTINE1700 PRINTCHR$(12),1710 FOR I=1 TO 101720 K=INP(1)1730 PRINTK,K-481740 NEXT1750 PRINTCHR$(12)5REM WRITTEN TERRY WOODWARD,COMPUTER CENTER,205-942-856710X=0\GOSUB 449030DIM D(6),Q(12,12),K(3,3),G(12,12),Z$(15),C$(6),C(9,2),W8(10)50DEF FNA(X)=INT(X*RND(0)+1)70B9=RND(TIME(0)/65535)\T=(FNA(20)+20)*100\T0=T\E=4000\P=15\S=500\V=614490DEF FND(D)=SQRT((K(I,1)-S1)^2+(K(I,2)-S2)^2)110Q1=FNA(8)\Q2=Q1\S1=Q1\S2=Q1130FORI=1TO9\FORJ=1TO2\C(I,J)=1\NEXTJ\NEXTI150C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1170C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0190FORI=1TO6\D(I)=0\NEXT210B9=0\K9=0230FORI=1TO8\FORJ=1TO8\K3=0\B3=0250IFRND(0)<.8 THEN290270K3=FNA(3)\K9=K9+K3290IFRND(0)<.96THEN330310B3=1\B9=B9+1330S3=FNA(5)\G(I,J)=(K3*100)+(B3*10)+S3\NEXTJ\NEXTI350IF(K9=0)OR(B9=0)THEN210370INPUT "PRESS RETURN TO CONTINUE",W9$\!CHR$(12),390POKE 3103,27\POKE 3102,28\!CHR$(12),\GOTO570410IFQ1>=1THEN450430S1=1\Q1=1450IFQ1<=8THEN490470S1=8\Q1=8490IFQ2>=1THEN530510S2=1\Q2=1530IFQ2<=8THEN590550S2=8570Q2=8590X=G(Q1,Q2)/100\K3=INT(X)\B3=INT((X-K3)*10)610S3=G(Q1,Q2)-((B3*10)+(K3*100))630IFK3=0THEN670 ELSE!"COMBAT AREA CONDITION RED"650IFS>(K3*100)THEN670ELSE!"SHIELDS LOW"670FORI=1TO3\FORJ=1TO3\K(I,J)=0\NEXTJ\NEXTI690FORI=1TO8\FORJ=1TO8\Q(I,J)=0\NEXTJ\NEXTI710Q(S1,S2)=1730FORI=1TOK3\GOSUB 4410750Q(R1,R2)=2\K(I,1)=R1\K(I,2)=R2\K(I,3)=200\NEXTI770IFB3=0THEN810790GOSUB 4410\Q(R1,R2)=4810FORI=1TOS3\GOSUB 4410\Q(R1,R2)=3\NEXTI830GOSUB 3050850GOSUB 2670870!"COMMAND: ",890IFINP(0)=0THENGOSUB4870\GOTO890910A=INP(1)\IF(A<48)OR(A>54)THEN890930W9$=CHR$(A)\A=VAL(W9$)\!A950IF(A>=0)OR(A<=6)THEN1030970R1=A+1990IFD(R1)>=0THEN10301010GOSUB 4330\! Z$," NOT OPERATIONAL"\GOTO8301030ON A+1 GOTO 1070,4890,1750,1930,2470,3850,44501050!"INVALID COMMAND"\GOTO8701070INPUT "COURSE(1-9): ",C11090IF(C1<1)OR(C1>=9)THEN10701110INPUT "WARP FACTOR (0-8): ",W11130IF(W1<=0)OR(W1>8)THEN11101150IF(D(1)>=0)OR(W1<=.5)THEN11901170!"ENGINES DAMAGED,MAX SPEED IS WARP .5"\GOTO11101190IFE-(W1*8)>0THEN12701210IFS<1THEN28101230!"YOU ONLY HAVE ",E," UNITS.SUGGEST YOU CROSS-CIRCUT"1250!"FROM SHIELDS,WHICH HAVE ",S," UNITS"\GOTO8701270FORI=1TO6\IFD(I)>=0THEN13101290D(I)=D(I)+11310NEXTI1330IF(FNA(10)<>5)OR(W1<2)THEN13901350R1=FNA(6)\D(R1)=D(R1)-FNA(5)\GOSUB 43301370!"DAMAGE CONTROL REPORTS: ",Z$," DAMAGED."1390N=INT(W1*8)1410Q(S1,S2)=0\X=S1\Y=S2\C2=INT(C1)1430X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)1450X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)1470FORI=1TON\S1=S1+X1\S2=S2+X21490IF(S1<1)OR(S1>8)OR(S2<1)OR(S2>8)THEN16301510IFQ(INT(S1),INT(S2))=0THEN15501530S1=S1-X1\S2=S2-X2\GOTO15701550NEXTI1570S1=INT(S1)\S2=INT(S2)\Q(S1,S2)=1\E=E-N\IFW1<1THEN8301590T=T+11610IF(T>T0+30)THEN2870ELSEGOTO8301630X=Q1*8+X+X1*N\Y=Q2*8+Y+X2*N\Q1=INT(X/8)\Q2=INT(Y/8)1650S1=INT(X-Q1*8+.5)\S2=INT(Y-Q2*8+.5)\IF S1>0THEN16901670Q1=Q1-1\S1=81690IFS2>0THEN17301710Q2=Q2-1\S2=81730T=T+1\E=E-N+5\IF(T>T0+30)THEN2870ELSE4101750IFK3=0THEN26501770!"ENERGY AVAILABLE=",E\INPUT"ENERGY UNITS TO FIRE:",X1790IFX<1THEN8701810IFE-X<0THEN1770ELSEE=E-X1830FORI=1TO3\IFK(I,3)=0THEN19101850H=INT(X/(FND(0)))\K(I,3)=K(I,3)-H1870!H," UNIT HIT ON KLINGON",\IF K(I,3)>0 THEN !\GOTO19101890GOSUB 23101910NEXTI\GOTO22901930IFP>0THEN19701950!"PHOTON TORPEDOS EXPENDED"\GOTO8701970INPUT"TORPEDO COURSE (1-9): ",C11990IF(C1<1)OR(C1>=9)THEN19702010C2=INT(C1)\X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)2030X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)\X=S12050Y=S2\P=P-12070X=X+X1\Y=Y+X22110IF(X<1)OR(X>8)OR(Y<1)OR(Y>8)THEN24502130POKE V+(INT(X)*64)+(INT(Y)*3),31\FORW9=1TO20\NEXTW92150POKE V+(INT(X)*64)+(INT(Y)*3),632170IF(Q(INT(X),INT(Y))=0)AND(Q(INT(X+.5),INT(Y+.5))=0)THEN20702190FORI=1TO32210IF(INT(X)=K(I,1))AND(INT(Y)=K(I,2))THEN22702230IF(INT(X+.5)=K(I,1))AND(INT(Y+.5)=K(I,2))THEN22702250NEXTI\GOTO23902270GOSUB 23102290GOSUB 2670\GOTO8302310K(I,3)=0\Q(K(I,1),K(I,2))=0\!" KLINGON DESTROYED" \K3=K3-12330K9=K9-1\IFK9=0THEN29902350G(Q1,Q2)=G(Q1,Q2)-1002370RETURN2390IF(Q(INT(X),INT(Y))=0)OR(Q(INT(X+.5),INT(Y+.5))=0)THEN20702400IFQ(INT(X),INT(Y))<>3THEN24302410!"STAR DESTROYED"\Q(INT(X),INT(Y))=0\GOTO22902430POKE 3103,24\POKE 3102,28\!"STARBASE DESTROYED"2440!"YOU ARE RELIEVED OF DUTY"\GOTO47702450!"TORPEDO MISSED"\GOTO22902470!"ENERGY AVAILABLE=",E+S\INPUT"ENERGY UNITS TO SHIELDS:",X2490IFX<0THEN8702510IF(E+S-X<0)THEN24702530E=E+S-X\S=X\GOTO8302550FORR1=1TO6\GOSUB 43302590!Z$,\IFD(R1)=0THEN!" IN SERVICE ", ELSE!" DAMAGED ",2610IFINT(R1/2)=R1/2THEN!\FORW8=1TO200\NEXTW82630NEXT R1\GOTO8702650!"NO KLINGONS IN THIS QUADRANT"\GOTO8702670IFC$="DOCKED"THENRETURN2690IFK3=0THENRETURN2710FORI=1TO3\IFK(I,3)=0THEN27702730H=INT(K(I,3)/FND(0)+1)\S=S-H\! H," UNIT HIT ON ENTERPRISE"2750IFS<0THENEXIT29102770NEXTI2790RETURN2810POKE 3102,28\POKE 3103,242830!CHR$(12),\!"** FATAL ERROR **"\!"ENTERPRISE IS DEAD IN SPACE"2850GOTO29502870POKE 3103,24\POKE 3102,282890!CHR$(12),\!"IT IS STARDATE ",T\GOTO29502910POKE 3102,28\POKE 3103,24\!CHR$(12),2930!"THE ENTERPRISE HAS BEEN DESTROYED"2950!"THE FEDERATION WILL BE CONQUERED BY THE REMAINING ",K9," KLINGONS!!"2970GOTO47702990POKE 3102,28\POKE 3103,24\! CHR$(12),3010!"THE LAST KLINGON HAS BEEN DESTROYED."\!"CONGRATULATIONS!"3030GOTO47703050FORI=S1-1TOS1+1\FORJ=S2-1TOS2+13070IF(I<1)OR(I>8)OR(J<1)OR(J>8)THEN31103090IFQ(I,J)=4THENEXIT31303110NEXTJ\NEXTI\GOTO31703130C$="DOCKED"\E=3000\P=153150FORI=1TO6\D(I)=0\NEXTI\S=500\GOTO32703170IFK3>0THEN32303190IFE<30