íEíCfÃçüíE!?Óõw#:ø®wíEíCf!ÒñÍÒü(þ
Â0ü!?Ó~ÍÃü!@ÓFóÃ!"î´:ø®!ÍÀüÂ2kžÍ‹4Â:kžÍ‹4Â%Å:kžÍ‹4ÁÂý!QžýËF 0þ
ÊýËVÅÄ79ÁÛ:kž!Qž
ÍÒü'Ëý~Gý~O*î´	"î´ÉÍ79Í¡)7?É"ð´ë>2ò´|2ó´·òh9ë!·íR·ËËË{Ö
?0_ñËË{Æ0Í—9|µ Þ:ó´·ò–9>-Í—9Éåõ*ð´T]íSð´:ò´·(Oí¸:ò´<2ò´wëñwáÉThere are doors numbered 1-4"80?90FOR i=0 TO g100IF o$(i)="" THEN 120110IF l(i)=rm AND c(i)=0 THEN ? "There is a "; o$(i); " here.": i=g120NEXT i130?140INVERSE:? m$:NORMAL150 m$="huh?"155?:?160? "What are you going to do?"170INPUT q$175IF q$=CHR$(17) THEN GOTO 5000180REM      185 v$="": w$=""190FOR i=1 TO LEN(q$)195IF MID$(q$, i, 1)=" " AND v$="" THEN  v$=LEFT$(q$, i-1)200IF MID$(q$, i+1, 1)<>" " AND v$<>"" THEN  w$=MID$(q$, i+1, LEN(q$)-1): i=LEN(q$)205NEXT i210IF w$="" THEN  v$=q$215 vFIRST DIR  Uªÿ BOOT       ˆDIRECTORY  ÈCOMMITTEDAÜWpianoAEDHÃWwargamesPDAŠWgommPDFAeH5nuclearPDFA-WwordpuzzleA"~WdeadringerA'ÞWADVENT#19PA)WHAMsetFWAA8WHAM-FWAucH9TWEvilOne-PDAHÄWEviltwo-PDAMMWEvil2textHRÔHAMinstrucHUÀCOMtdINSTRH`ªrevengeAÿÿÿc«WpianoplusAÿd600, 650, 700, 700, 750, 800, 450, 825, 830, 550, 840, 845, 850, 855, 900, 630280GOTO 50350?:? "These are the words I know:"360FOR i=1 TO v370? v$(i); ","; 380NEXT i390?:?:? "Press any key":GET z$392RETURN400?:?:? "You are carrying;"410FOR i=1 TO g420IF c(i)=1 THEN ? o$(i); ","; 430NEXT i440?:? "Press any key.":GET z$445RETURN450IF rm=6 AND w$="1" THEN  rm=rm: f(6)=f(6)+1: m$="OK":RETURN452IF rm=14 AND w$="4" THEN  rm=rm: f(9)=f(9)+1: m$="OK":RETURN454IF rm=12 AND w$="1" THEN  rm=rm: f(12)=f10REM                     COMMITTED! ADVENTURE. Gordon R. Meyer 9/8412ONERR  GOTO 525015REM                       version (REV2.7) 16REM        (c)'84. Dist. via freeware w/permission.Limited Licence granted. Write: 2608W. 6000S. Roy, UT 84067 (801)773-776620DIM d(15), o$(9), v$(22), f(30), l(10), c(9), r$(15)30GOSUB 100049HTAB 1:? d$; "close game"50HOME:?:? "COMMITTED!":?:?52IF f(rm)>1 AND f(25)<>1 AND INT(RND(1)*6+1)=1 THEN  d(rm)=INT(RND(4)*15+65)60? "Your location is ROOM "; CHR$(d(rm))70?:? "b=0220FOR i=0 TO v225IF v$=v$(i) THEN  vb=i230NEXT i235 ob=0240FOR i=1 TO w245IF w$=o$(i) THEN  ob=i250NEXT i255IF w$>"" AND ob=0 THEN  m$="That's Silly!"260IF vb=0 THEN  vb=v+1265IF w$="" THEN  m$="Use two words please!"270IF vb>v AND ob>0 THEN  m$="You can't'"+q$+"'"271IF vb>v AND ob=0 THEN  m$="You don't make sense."272IF vb<v AND ob>0 AND c(ob)<>1 THEN  m$="You don't have '"+o$(ob)+"'"273IF v$="help" OR v$="inventory" OR v$="i" THEN  m$=""275ON vb GOSUB 350, 400, 400, 450, 500, 550, 550, ËWartAplusHÿi$WcrayAlusHÿj¦WthreeDAsHÿlWspanishAHÿq8WelizaAHHÿt
WfaceAHHÿ|/WlockoutAHÿ~7WScrambleAÿ…WmmHÿÿÿÿÿÿÿÿŠ]WlabelsAHÿ‹NWeraserAÿÿÿÿÑWalphasortAÿŽ…WPwordDocHT#passwordAÿÿ’AWBLOCKS LEFT”(12)+1: m$="OK":RETURN456IF rm=0 AND w$="two" THEN  rm=rm: f(0)=f(0)+1: m$="OK":RETURN458IF rm=8 AND w$="two" THEN  rm=rm: f(8)=f(8)+1: m$="OK":RETURN460IF rm=10 AND w$="two" THEN  rm=rm: f(10)=f(10)+1: m$="OK":RETURN461IF rm=15 AND w$="two" AND f(23)<>1 OR rm=15 AND w$="2" AND f(23)<>1 THEN  m$="It opens to an Iron Gate!":RETURN462IF w$="gate" AND rm=15 AND c(2)<>1 THEN  m$="You need the key.":RETURN463IF w$="gate" AND rm=15 AND c(2)=1 AND f(20)<>1 THEN  m$="It won't budge!":RETURN464IF w$="door" THover" THEN  m$="Are you a cop?"630RETURN650IF rm=15 AND c(2)<>0 AND w$="gate" THEN  m$="The lock clicks open.": f(20)=1651IF rm=15 AND c(2)=0 AND w$="gate" THEN  m$="You need the key."652IF w$="door" THEN  m$="It's unlocked."653IF w$="1" OR w$="2" OR w$="3" OR w$="4" THEN  m$="It's unlocked."654IF w$="one" OR w$="two" OR w$="three" OR w$="four" THEN  m$="It's unlocked."655IF w$="gate" AND f(20)=1 THEN  m$="It is unlocked."689RETURN700FOR i=1 TO g705IF w$=o$(i) AND c(i)=1 THEN  c(i)=0: l(i)=rm: m$= THEN  rm=rm+1: f(21)=1: f(rm)=f(rm)+1480IF u$="3" AND d=2 AND f(21)=0 THEN  rm=rm+4: f(21)=1: f(rm)=f(rm)+1481IF u$="4" AND d=4 AND f(21)=0 THEN  rm=rm-1: f(21)=1: f(rm)=f(rm)+1482NEXT i483 m$="OK"484IF f(21)=0 THEN  m$="The door opens to a brick wall!"499RETURN500IF w$="gate" AND f(23)=1 THEN  m$="It locks behind you.":RETURN505IF w$="gate" AND f(23)<>1 THEN  m$="It's already closed.":RETURN510IF w$="door" THEN  m$="It shuts by itself!":RETURN511IF w$="zipper" OR w$="fly" THEN  m$="ZZZIP!! That'30766? f(i)767NEXT i768FOR i=0 TO 15769? d(i)770NEXT i777? d$; "close game"778?:?:? "Game Saved":?:? "Game over.":?:NEW800IF w$<>"game" THEN  m$="Quit What?":RETURN810HOME:?:? "CHICKEN!":?:? "Your bones were found":? "by fraternity pledges during":? "a party."815?:?:?:?:? "GAME OVER"820NEW825IF w$="watch" THEN  m$="It's broken!":RETURN830IF w$="hat" AND c(6)<>0 THEN  m$="Very nice!":RETURN831IF w$="watch" AND c(4)<>0 THEN  m$="It's you!":RETURN835IF w$="lampshade" THEN  m$="It's a party!":RETEN  m$="You can't get"+w$:RETURN559IF l(ob)<>rm THEN  m$="It isn't here."560IF c(ob)=1 THEN  m$="You already have it."561IF ob>0 AND l(ob)=rm AND c(ob)<=0 THEN  c(ob)=1: l(ob)=17: m$="OK. You have it."562IF w$="real" THEN  m$="Real? This is a game!"589RETURN600IF rm=15 AND w$="gate" THEN  m$="It won't budge!"605IF w$="toy" THEN  m$="How cute!"607IF rm=9 AND w$="lever" AND f(25)=0 THEN  m$="It moves easily": f(25)=1:RETURN608IF rm=9 AND w$="lever" AND f(25)<>0 THEN  m$="'CLICK!'": f(25)=0609IF w$="EN  m$="Which door?":RETURN465IF w$="gate" AND rm<>15 THEN  m$="What gate?":RETURN466IF rm=15 AND f(20)=1 AND w$="gate" THEN  f(23)=1:GOTO 1300467IF w$="" THEN  m$="Open What?":RETURN470 d=0471IF w$="1" OR w$="one" THEN  d=1472IF w$="2" OR w$="two" THEN  d=3473IF w$="3" OR w$="three" THEN  d=2474IF w$="4" OR w$="four" THEN  d=4475 f(21)=0: rl=LEN(r$(rm))476FOR i=1 TO rl477 u$=MID$(r$(rm), i, 1)478IF u$="1" AND d=1 AND f(21)=0 THEN  rm=rm-4: f(21)=1: f(rm)=f(rm)+1479IF u$="2" AND d=3 AND f(21)=0"OK": i=g:RETURN710NEXT715IF w$="trail" THEN  m$="Your mark vanishes!":RETURN720IF c(ob)<>1 THEN  m$="What "+w$+"?"745RETURN750HOME:?:? "Save Game":?:? "Press <RETURN> to save game."751?:? "Press <ESCAPE> to resume play.":?752GET z$:IF z$=CHR$(27) THEN RETURN753?:? "Insert Data Pack or Disk.":? "Press any key when done.":?:GET z$754 d$=CHR$(4)755ONERR  GOTO 1400756? d$; "open game"757? d$; "write game"758? rm759FOR i=1 TO g760? l(i)761NEXT i762FOR i=1 TO g763? c(i)764NEXT i765FOR i=0 TO s better.":RETURN512IF w$="lever" THEN  m$="It won't move!":RETURN513IF w$="one" OR w$="two" OR w$="three" OR w$="four" THEN  m$="It closes by itself!"514IF w$="1" OR w$="2" OR w$="3" OR w$="4" THEN  m$="It closes by itself!"515RETURN550IF rm=9 AND w$="lever" THEN  m$="It's attached to the wall.":RETURN555IF rm=15 AND w$="gate" THEN  m$="It's too heavy!":RETURN556IF w$="fucked" OR w$="screwed" THEN  m$="Watch your mouth!!":RETURN557IF w$="drugs" THEN  m$="Drugs are bad for you.":RETURN558IF ob>g THURN836 m$="Wear what?!"837IF w$="rubber" OR w$="condom" THEN  m$="I'm on the pill.":RETURN838RETURN840IF w$="hubcap" AND c(5)<>0 THEN  m$="Makes a shitty frisbee!": c(5)=0: l(5)=rm:RETURN841IF w$="brick" AND c(7)<>0 THEN  m$="Nice toss!": c(7)=0: l(7)=rm:RETURN842IF w$="up" THEN  m$="Watch your shoes!"843RETURN845IF w$="comb" AND c(9)<>0 THEN  m$="You look nice"846IF w$="hairclip" AND c(8)<>0 THEN  m$="nice hairdo!"847IF w$="violence" OR w$="force" THEN  m$="Be gentle with me."848RETURN850IF w$=     this is where the finish message will go1305FOR row=0 TO 391310HLIN row, 39-row AT row:VLIN row, 39-row AT row1315HLIN row, 39-row AT 39-row:VLIN row, 39-row AT 39-row1320 hue=hue+1:IF hue=16 THEN  hue=11325COLOR =hue1330NEXT1335FOR i=1 TO 20:? CHR$(7):NEXT i1340HTAB (5):? "YOU WIN!!"1345FOR i=1 TO 2500:NEXT i1350TEXT:?1355? "You have escaped alive!":?:? "Congratulations!!":?:?1360IF c(1)>=1 THEN ? "You have a bag of gold too!"1365IF c(1)=0 THEN ? "Too bad about the gold.":? "Better luck n904 m$="What'"+w$+"' ?":RETURN1000DATA                      65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,801001REM      1010DATA            gold,key,lever,watch,hubcap,hat,brick,hairclip,comb1011REM      1015DATA     help,inventory,i,open,close,get,take,pull,unlock,leave,drop,save,quit,o1016DATA     wind,wear,steal,throw,use,pick,comb,read1017REM      1020DATA            3,4,9,10,1,6,12,14,11,171021REM      1030DATA                     23,234,234,34,123,1234,1234,134,123,1234,1234,134,12,124,124,75ONERR  GOTO 14001480? d$; "Open game"1485? d$; "read game"1490INPUT rm1495FOR i=1 TO g1500INPUT l(i)1503? CHR$(8); 1505NEXT i1510FOR i=1 TO g1515INPUT c(i)1517? CHR$(8); 1520NEXT i1525FOR i=0 TO 301530INPUT f(i)1533? CHR$(8); 1535NEXT i1540FOR i=0 TO 151545INPUT d(i)1547? CHR$(8); 1550NEXT i1560GOTO 495000REM        5005GR5015COLOR =75020FOR r=0 TO 395025HLIN 0, 39 AT r5030NEXT r5032COLOR =85035HLIN 10, 5 AT 155040VLIN 15, 18 AT 55045HLIN 5, 12 AT 185050VLIN 18, 22 AT 125051147? "is identical except for a":? "capital letter painted on":? "the wall. These letters are"1148? "the only way to identify":? "each room. In addition, every":? "room has four doors. Each"1149? "door is numbered 1-4.":?1150? "Your goal is to escape from":? "the maze. Please use the":? "word processor to read the":? "'Instruct' file."1151?:? "Press any key.":GET z$1200HOME:?:? "Do you wish to load":? "a previous game? <y/n>":GET z$1205IF z$<>"y" THEN RETURN1210GOTO 14501300GR1301REM             "lock" AND (rm=15) AND c(8)<>0 THEN  m$="Keep trying":RETURN851IF w$="lock" AND (rm=15) AND c(8)=0 THEN  m$="With what?":RETURN852IF w$="nose" OR w$="ass" THEN  m$="disgusting!"853IF w$="fight" THEN  m$="Fight yourself!"854RETURN855IF w$="hair" AND c(9)<>0 AND c(6)<>0 THEN  m$="You're wearing a hat!":RETURN857IF w$="hair" AND c(9)<>0 THEN  m$="You look nice.":RETURN858RETURN900IF w$="hat" AND c(6)<>0 THEN  m$="'P is for Portal'":RETURN902IF w$="watch" AND c(4)<>0 THEN  m$="It says...'^Q'   ":RETURNext time."1369 score=01370FOR i=0 TO 151372 score=score+f(i)1374NEXT i1375?:? "Your score="; score1380?:?:? "The End?":?:? "Game Over.":END1400? d$; "close game"1405?:?:INVERSE:? "DATA ERROR":NORMAL:FOR i=1 TO 2000:NEXT:CLRERR:GOTO 501450HOME:?:? "Play Previous Game.":?1455? "Press <RETURN> to continue."1460?:? "Press <ESCAPE> to get new game."1461GET z$:IF z$=CHR$(27) THEN RETURN1465?:? "Insert Disk or Data Pack.":? "Press any key when ready.":?:GET z$:? "One moment please."1470 d$=CHR$(4)141241031REM      1040FOR i=0 TO 151045READ d(i)1050NEXT i1055FOR i=1 TO 91060READ o$(i)1065NEXT i1070FOR i=1 TO 221075READ v$(i)1080NEXT i1090FOR i=1 TO 101095READ l(i)1100NEXT i1105FOR i=0 TO 151110READ r$(i)1115NEXT i1120 g=91125 rm=151130 w=g1135 m$="OK": v=221137GOSUB 52001140HOME:? "COMMITTED!":?:? "Gordon R. Meyer 1984":?:?:? "Instructions? <y/n>"1142GET z$:IF z$="n" THEN 12001145HOME:? "You have been trapped in":? "an abandoned Fun-House maze.":? "You will find that every room"5HLIN 12, 1 AT 225060VLIN 18, 27 AT 155065HLIN 15, 19 AT 185070VLIN 18, 22 AT 195075HLIN 15, 19 AT 225080VLIN 18, 22 AT 225085HLIN 22, 26 AT 185090VLIN 18, 22 AT 265095HLIN 22, 26 AT 225100VLIN 18, 22 AT 295105HLIN 29, 33 AT 185110VLIN 18, 22 AT 335115HLIN 29, 33 AT 225120VLIN 16, 22 AT 365125PLOT 36, 245128COLOR =105130HLIN 10, 39 AT 305135?:? "(c)1984   Gordon R. Meyer    "5140GET z$:TEXT: m$="Suprise!":GOTO 495200HOME:? "******************************"5201? "COMMITTED! Adventure Game":? "6 = A":?120HTAB 5:? "7 = B":?125HTAB 5:? "8 = C":?130? "Press <ESCAPE> to stop."1000REM   .....checks to see which key is being pressed....1005GET a$:IF a$="" THEN 10051008IF a$=CHR$(27) THEN POKE bytespot, offtoot:CALL startsound:END1009REM    if escape key is pressed then end 1010IF a$="1" THEN  pitch=261.62:GOTO 10201012IF a$="2" THEN  pitch=293.66:GOTO 10201013IF a$="8" THEN  pitch=523.24:GOTO 10201014IF a$="3" THEN  pitch=329.63:GOTO 10201015IF a$="4" THEN  pitch=349.23:GOTO 102010or trade the program all you"5217? "wish. PROVIDED that these"5218? "rules are followed..."5219? "     1. The program is not"5220? "changed in any form."5221? "     2. This message is not"5222? "changed or removed."5223? "     3. No fee or other"5224? "consideration is charged."5225?:? "Please use your word"5226? "processor to read the file"5227? "'Instruct' before playing."5228? "(it is on this disk!)"5229?:? "Press any key to play":GET z$:RETURN5250RESUME*"5201? "COMMITTED! Adventure Game"5REM    this pokes a Z80 ML routine into memory that activates the soundport 10030FOR address=startsound TO startsound+510040READ byte10050POKE address, byte10060NEXT address10070RETURN) THEN POKE bytespot, offtoot:CALL startsound:END1009REM    if escape key is pressed then end 1010IF a$="1" THEN  pitch=261.62:GOTO 10201012IF a$="2" THEN  pitch=293.66:GOTO 10201013IF a$="8" THEN  pitch=523.24:GOTO 10201014IF a$="3" THEN  pitch=329.63:GOTO 10201015IF a$="4" THEN  pitch=349.23:GOTO 1020101REM    ADAM PIANO written by Gordon Meyer 1984  Limited Licence Granted to share at no cost. BBS uploading okay 2REM    info for program came from Adam's Companion by Benson and Rochester (Avon). Highly Recmended! 9LOMEM :2900010GOSUB 1000020 toot=14430 offtoot=15940 bytespot=2800650 mhertz=359700060 tempo=2070HOME:?:? "ADAM PIANO":?80? "Use number keys to play notes.":?90?:HTAB 5:? "1 = C"95?:HTAB 5:? "2 = D":?100HTAB 5:? "3 = E":?105HTAB 5:? "4 = F":?110HTAB 5:? "5 = G":?115HTAB 5:?5202? "    This program is released"5203? "via the 'freeware' system."5204? "    You are free to use it how"5205? "you see fit. If you enjoy the"5206? "game a contribution is asked."5207? "Send what you feel it is worth."5208? "        Gordon Meyer"5209? "     2608 West 6000 South"5210? "        Roy, UT 84067"5211?:? "        thank you!"5212?:? "please press a key.":GET z$:HOME5213? "******************************"5214? "    Please share this program"5215? "with others. You may copy"5216? "16IF a$="5" THEN  pitch=392:GOTO 10201017IF a$="6" THEN  pitch=440:GOTO 10201018IF a$="7" THEN  pitch=493.88:GOTO 10201019GOTO 10051020GOSUB 20001040GOTO 10002000REM         >>>>Play the note<<<<<2020 twopitch=pitch/162030 onepitch=128+(pitch-twopitch*16)2040POKE bytespot, onepitch:CALL startsound2050POKE bytespot, twopitch:CALL startsoun2060POKE bytespot, toot:CALL startsound2090RETURN10000REM   ....set-up for sound maker....10010DATA         58,102,109,211,255,20110020 startsound=280001002:?5202? "    This program is released"5203? "via the 'freeware' system."5204? "    You are free to use it how"5205? "you see fit. If you enjoy the"5206? "game a contribution is asked."5207? "Send what you feel it is worth."5208? "        Gordon Meyer"5209? "     2608 West 6000 South"5210? "        Roy, UT 84067"5211?:? "        thank you!"5212?:? "please press a key.":GET z$:HOME5213? "******************************"5214? "    Please share this program"5215? "with others. You may copy"5216? "10HOME20VTAB 1030? TAB(2):INPUT "What is your name? "; a$40FOR x=0 TO 1000:NEXT50HOME:VTAB 10:? TAB(7); "Well, Hi "; a$60FOR x=0 TO 1000:NEXT70?:? TAB(5); "My name is Adam."80FOR x=0 TO 5000:NEXT90HOME:VTAB 10:? TAB(5); "Do you want to play?"95?100? TAB(6):INPUT "Type 'Yes' or 'No'"; b$110IF b$="Yes" THEN GOTO 200120IF b$="No" THEN GOTO 150130GOTO 90150HOME:VTAB 10:? TAB(1); "Too Bad, I'm going to turn off"160FOR x=0 TO 5000:NEXT170HOME:END200HOME:VTAB 10:? TAB(12); "Oh Goodie!!!"210FOR x=, 65+y570HPLOT 165, 65 TO 165+x, 65+y580NEXT i590HOME:? TAB(8); "MUSHROOM CLOUD"600? "  PRESS ANY KEY TO END PROGRAM":GET k$:TEXT:END000:NEXT70?:? TAB(5); "My name is Adam."80FOR x=0 TO 5000:NEXT90HOME:VTAB 10:? TAB(5); "Do you want to play?"95?100? TAB(6):INPUT "Type 'Yes' or 'No'"; b$110IF b$="Yes" THEN GOTO 200120IF b$="No" THEN GOTO 150130GOTO 90150HOME:VTAB 10:? TAB(1); "Too Bad, I'm going to turn off"160FOR x=0 TO 5000:NEXT170HOME:END200HOME:VTAB 10:? TAB(12); "Oh Goodie!!!"210FOR x=0 TO 2000:NEXT220?:? TAB(1); "How about 'GLOBAL THERMONUCLEAR WAR?'"230FOR x=0 TO 3000:NEXT240?:? TAB(5):INPUT "Type 'OK' or 'NO' "; c$250IF c$="OK" THEN GOTO 300260IF c$="NO" THEN GOTO 400270HOME:VTAB 8:GOTO 220300HOME:VTAB 10:? TAB(10); "YOU LOSE!!!!"310FOR x=0 TO 3000:NEXT320GOTO 500400HOME:VTAB 10:? TAB(10); "YOU WIN!!!!":END500HGR:HCOLOR =5510FOR y=190 TO 75 STEP -3520HPLOT 100, y TO 150, y525NEXT y530 r=50540FOR i=1.57 TO 7.85 STEP .05550 x=r*SIN(i): y=r*COS(i)560HPLOT 85, 65 TO 85+x5 g=16: b=g10TEXT:HOME20VTAB 8:? "  Gomm's Law:"30?:?:? "  In every computer program,"40?:? "  there is always"50?:? "  one more bug."55FOR i=1 TO 9000:NEXT60FOR i=1 TO 25070 g=g-1:IF g=0 THEN  g=2380VTAB b:HTAB 1490? " "; 100VTAB g:HTAB 14110? "g"; 112FOR j=1 TO 200:NEXT115 b=g120NEXT130END0 TO 2000:NEXT220?:? TAB(1); "How about 'GLOBAL THERMONUCLEAR WAR?'"230FOR x=0 TO 3000:NEXT240?:? TAB(5):INPUT "Type 'OK' or 'NO' "; c$250IF c$="OK" THEN GOTO 300260IF c$="NO" THEN GOTO 400270HOME:VTAB 8:GOTO 220300HOME:VTAB 10:? TAB(10); "YOU LOSE!!!!"310FOR x=0 TO 3000:NEXT320GOTO 500400HOME:VTAB 10:? TAB(10); "YOU WIN!!!!":END500HGR:HCOLOR =5510FOR y=190 TO 75 STEP -3520HPLOT 100, y TO 150, y525NEXT y530 r=50540FOR i=1.57 TO 7.85 STEP .05550 x=r*SIN(i): y=r*COS(i)560HPLOT 85, 65 TO 85+x, 65+y570HPLOT 165, 65 TO 165+x, 65+y580NEXT i590HOME:? TAB(8); "MUSHROOM CLOUD"600? "  PRESS ANY KEY TO END PROGRAM":GET k$:TEXT:END000:NEXT70?:? TAB(5); "My name is Adam."80FOR x=0 TO 5000:NEXT90HOME:VTAB 10:? TAB(5); "Do you want to play?"95?100? TAB(6):INPUT "Type 'Yes' or 'No'"; b$110IF b$="Yes" THEN GOTO 200120IF b$="No" THEN GOTO 150130GOTO 90150HOME:VTAB 10:? TAB(1); "Too Bad, I'm going to turn off"160FOR x=0 TO 5000:NEXT170HOME:END200HOME:VTAB 10:? TAB(12); "Oh Goodie!!!"210FOR x=0 TO 2000:NEXT220?:? TAB(1); "How about 'GLOBAL THERMONUCLEAR WAR?'"230FOR x=0 TO 3000:NEXT240?:? TAB(5):INPUT "Type 'OK' or 'NO' "; c$250IF c$="OK" THEN GOTO 300260IF c$="NO" THEN GOTO 400270HOME:VTAB 8:GOTO 220300HOME:VTAB 10:? TAB(10); "YOU LOSE!!!!"310FOR x=0 TO 3000:NEXT320GOTO 500400HOME:VTAB 10:? TAB(10); "YOU WIN!!!!":END500HGR:HCOLOR =5510FOR y=190 TO 75 STEP -3520HPLOT 100, y TO 150, y525NEXT y530 r=50540FOR i=1.57 TO 7.85 STEP .05550 x=r*SIN(i): y=r*COS(i)560HPLOT 85, 65 TO 85+x5POKE 16956, 3:POKE 16957, 2910TEXT:HOME20SPEED =4525INVERSE30? "TJ NUCLEAR POWER PLANT"35NORMAL40?:? "This program simulates the"50? "operation of a nuclear power"60? "reactor."65? "The object is to operate"70? "the plant at a maximum average"75? "power output without causing a"80? "reactor meltdown.":?90? "The control rods adjust the"100? "amount of heat produced by the"110? "reactor. Primary coolant"120? "transfers this heat to the"130? "heat exchanger. Secondary"140? "coolant transfersTOR OVERHEATED": rd%=rd%+1+(rt%>850)+(rt%>900)+2*(rt%>950): pd%=pd%+1: ed%=ed%+1+(rt%>850)530IF xt%>500 THEN ? "HEAT EXCHANGER OVERHEATED": xd%=xd%+1+(xt%>600): pd%=pd%+1: sd%=sd%+1540IF go%>2000 THEN ? "TURBINE OVERLOADED": td%=td%+1+(go%>2500): sd%=sd%+1550IF ct%>300 THEN ? "COOLING TOWER OVERHEATED": sd%=sd%+1560IF go%<1000 THEN ? "POWER OUTPUT LOW"570IF ev%<200 THEN ? "EMERGENCY COOLANT LOW"580IF pv%<100 THEN ? "PRIMARY COOLANT LOW": pd%=pd%+1590IF sv%<100 THEN ? "SECONDARY COOLANT LOW": sd%=sd%+a$="s" THEN GOTO 390225TEXT:HOME230? "The controls are operated by"235? "typing in the desired control"240? "rod settings and flow rates."242? "(Use values from 0 to 100)"245? "If no entry is made, the"250? "values won't change. Use the"252? "`space`bar to step to the"255? "different functions.When the"260? "desired entries have been"265? "made, use the`return`key to"268? "to advance to the next day."270?:? "The reactor can be operated"275? "until a meltdown occures or"278? "the reactor fuel sd%*(sd%<10)+100*(sd%>=10); "%"680IF xb% THEN ? "HEAT EXCHANGER FAILURE"690IF gb% THEN ? "TURBINE FAILURE"710IF rd%>5 THEN GOTO 3000720SPEED =255725? "INDICATORS:"730? "CORE TEMP      (MAX 800) "; rt%740? "EXCHANGER TEMP (MAX 500) "; xt%750? "TOWER TEMP     (MAX 300) "; ct%760? "POWER OUTPUT (MAX 2000KW) "; go%; " KW"765 kw%=tt/day%770? "AVERAGE PWR OUTPUT "; kw%; "KW/DAY"800? "CONTROL RODS- "; a%810? "COOLANT LEVELS:"820? "EMERGENCY- "; ev%; " FLOW- "; ef%830? "PRIMARY  - "; pv%; " FLOW- "; age"335? "the longer repairs will take."336FLASH340?:?:? "WARNING: THIS REACTOR HAS"345? "NO AUTOMATIC SAFTY DEVICES!!":?:?350NORMAL380GOTO 220390REM                     *********INITIATE********400GOSUB 2000410LET rh=0:LET rl=0:LET day%=0:LET tt=0:LET dmge%=0420LET a%=0:LET a1%=0:LET a2%=0460REM                    **********WRITE REPORT****470TEXT:HOME475 day%=day%+1480? TAB(7); "TJ NUCLEAR POWER PLANT"490? TAB(8); "STATUS REPORT - DAY "; day%500?510? "WARNINGS:"520IF rt%>800 THEN ? "REAC heat from"150? "the heat exchanger to the"160? "turbine, where power is "170? "produced, and finally to the"180? "cooling tower."185?190? "The emergency coolant is used"200? "to help shut down the reactor"205? "when the other systems fail."210? "Unlike the other coolants,"212? "emergency coolant is not"215? "recycled."216?:?220? "ENTER`D`TO SEE REACTOR DIAGRAM":? "ENTER`I`FOR INSTRUCTIONS":? "ENTER`S`TO START OPERATION"221GET a$222IF a$="D" OR a$="d" THEN GOSUB 6000:GOTO 220223IF a$="S" OR 1595IF rl>85 THEN ? "FUEL LOW"600?:? "DAMAGE:"620IF rd%>3 THEN ? "REACTOR CORE DAMAGED"630IF pd%>4 THEN ? "PRIMARY COOLANT LEAK - "; pd%; " /DAY"635 pv%=(pv%-pd%)*((pv%-pd%)>0)640IF sd%>4 THEN ? "SECONDARY COOLANT LEAK - "; sd%; " /DAY": sv%=(sv%-sd%)*((sv%-sd%)>0)650IF ed%>2 THEN ? "EMERGENCY COOLANT LEAK - "; 2*ed%; " /DAY"; ev%=(ev%-2*ed%)*((ev%-2*ed%)>0)660IF pb% THEN ? "PRIMARY COOLANT PUMP FAILURE - "; 10*pd%*(pd%<10)+100*(pd%>=10); "%"670IF sb% THEN ? "SECONDARY COOLANT PUMP FAILURE - "; 10*is exhausted."280? "The fuel will last for about"285? "100 to 150 days."290? "When the fuel is exhausted"292? "your performance will be "295? "evaluated."298? "(press `RETURN` to continue)":INPUT a$:HOME300? "If you want to repair damage"305? "or replace coolant, bring the"310? "reactor temperture down below"312? "100 and shut off coolant flows"315? "This will cause an automatic"320? "maintenance shutdown and"325? "all coolant will be replenished"330? "and repairs made.":? "THe greater the dampf%840? "SECONDARY- "; sv%; " FLOW- "; sf%850IF (100-rl)<5 THEN ?:?:?:? "REACTOR FUEL EXHAUSTED":GOTO 4000900REM               ****GET NEW CONTROL VALUES******910 p=VPOS(1)920VTAB (p-4)930HTAB (15)950 a2%=a1%: a1%=a%955 b$="":FOR i=1 TO 4960GET a$: z=ASC(a$)962IF z=63 THEN HOME:GOTO 5000965IF (z<>13 AND z<>32) AND (z>57 OR z<48) THEN 960970 b$=b$+a$:IF z=13 THEN 1170975IF z=32 THEN 990980 a%=VAL(b$): a%=a%+(100-a%)*(a%>100)985? a$; :NEXT i990VTAB (p-2):HTAB (29)1005 b$="":FOR i=1 TO 41010G pv%=1202030 sv%=1202040 rt%=252050 xt%=252060 ct%=252070 dmge%=dmge%+2*rd%+ed%+pd%+xd%+sd%+gd%2080 md%=5+3*(10*(rd%>3)+(ed%>3)+(pd%>3)+(sd%>3)+2*pb%+2*sb%+3*xb%+3*gb%): day%=day%+md%2090 rd%=02100 ed%=02110 pd%=02120 xd%=02130 sd%=02140 gd%=02150 pb%=02160 sb%=02170 xb%=02180 gb%=02190 ef%=0: pf%=0: sf%=02195 go%=02200RETURN3000REM                   ********MELTDOWN ENDING*******3010GOSUB 80003020IF rd%>6 THEN 31003030?:? "THE REACTOR CORE HAS BEEN":? "DESTROYED BY UNCONTROLED"3040?GET a$: z=ASC(a$)1135IF (z<>13 AND z<>32) AND (z>57 OR z<48) THEN 11301140 b$=b$+a$:IF z=13 THEN 11701145IF z=32 THEN 11651150 sf%=VAL(b$): sf%=sf%+(100-sf%)*(sf%>100)1160? a$; :NEXT i1165HTAB (1):VTAB (p-3):CALL -958:GOTO 8001170IF pf%=0 AND sf%=0 AND rh<1 AND rt%<100 AND a%=0 THEN GOTO 11751171GOTO 11801175GOSUB 2000:HTAB (1):VTAB (24):CALL -922:? "MAINTENANCE SHUTDOWN- "; md%; " DAYS."1176FOR a=1 TO 10000:NEXT a1180IF ef%>ev% THEN  ef%=ev%1200REM                    ***DAMAGE ESSESSMENT AND OPver a period of "; day%; " days":? "you have produced an average power":? "output of "; kw%; "KW per day."4050 kw%=1+(kw%>1000)+(kw%>1200)+(kw%>1500)+(kw%>1800)4070?:? "Your average power production":? "rate is:"4080ON kw% GOTO 4090, 4100, 4110, 4120, 41404090? "Horrible!":? "Find a less demanding job.":GOTO 42004100? "way below your area's":? "power needs.":GOTO 42004110? "Adequate.":? "you could do better.":GOTO 42004120? "EXCELLENT!":? "POWER COSTS IN YOUR AREA"4130? "WILL NOT BE INCREASED.":GOTOf%+(ct%-25)*sf%)/(pf%+sf%+1)+251340IF xb% THEN  xt%=rt%*.8+51350 sh=sf%*(100*(pv%>100)+pv%*(pv%<=100))/350*(xt%-ct%)1360IF xb% THEN  sh=sh*.21370 go%=sh/xt%*(xt%-ct%)*2/31375IF go%>2600 THEN  go%=26001380 go%=go%*(go%>0)*(gb%=0)1390 ct%=25+((xt%-25)*(sh-go%)/(sh+1)*.75)1395 ct%=25*(ct%<=25)+ct%*(ct%>25)1400IF xb%<1 THEN  xb%=(xd%>2)*(RND(4)>.9)1410IF gb%<1 THEN  gb%=(gd%>4)*(RND(4)>.9)1420 tt=tt+go%1430GOTO 4702000REM                   *****MAINTENANCE REPAIR SUBROUNTINE******2010 ev%=3002020ET a$: z=ASC(a$)1015IF (z<>13 AND z<>32) AND (z>57 OR z<48) THEN 10101020 b$=b$+a$:IF z=13 THEN 11701025IF z=32 THEN 10501030 ef%=VAL(b$): ef%=ef%+(100-ef%)*(ef%>100)1035IF ef%>ev% THEN  ef%=ev%1040? a$; :NEXT i1050VTAB (p-1):HTAB (29)1065 b$="":FOR i=1 TO 41070GET a$: z=ASC(a$)1075IF (z<>13 AND z<>32) AND (z>57 OR z<48) THEN 10701080 b$=b$+a$:IF z=13 THEN 11701085IF z=32 THEN 11101090 pf%=VAL(b$): pf%=pf%+(100-pf%)*(pf%>100)1100? a$; :NEXT i1110VTAB (p):HTAB (29)1125 b$="":FOR i=1 TO 41130 "THERMAL RUNAWAY, HOWEVER":? "THE CONTAINER BUILDING HAS NOT YET RUPTURED!"3080? "INITIATE YOUR EVACUATION PLAN."3090GOTO 50003100? "THE REACTOR CORE HAS MELTED":? "DOWN AND PRODUCED A STEAM"3110? "EXPLOSION. THE CONTAINER":? "BUILDING HAS RUPTURED. LETHAL"3120? "RADIOACTIVE GASES AND DEBRIS":? "HAVE ESCAPED."3150?:? "INITIATE YOUR EVACUATION":? "AND RADIOACTIVE CLEANUP PLANS"3160? "AND GET MEDICAL ASSISTANCE."3190GOTO 50004000REM                   ******EVALUATION OF GAME RESULTS******4020?:? "OERATION CALCULATIONS**1205 ev%=ev%-ef%-2*ed%*(ed%>3)1210 pd%=pd%+(pf%>90)*(RND(20)>.95)1220 sd%=sd%+(sf%>90)*(RND(20)>.92)1230 pb%=pd%>51240 sb%=sd%>51250IF pf%>(100-pd%*10) AND pb% THEN  pf%=(100-pd%*10)*(100-pd%*10>0)1260IF sf%>(100-sd%*10) AND sb% THEN  sf%=(100-sd%*10)*(100-sd%*10>0)1270 rl=rl+rh/501280 rh=(a%*30+a1%*60+a2%*10)/2500*(100-rl)1300 ph=pf%*(100*(pv%>100)+pv%*(pv%<=100))/3501310 eh=ef%/200*(rt%-25)1320 rt%=rt%+rh-eh-ph-5*(rt%>25)1325 rt%=25+(rt%-25)*(rt%>25)1330 xt%=((rt%-25)*p 42004140? "Near ther maxinum!":? "Power costs in your"4150? "AREA WILL DROP SIGNIFICANTLY."4200REM                  ****DAMAGE EVALUATION*******4215?:GOSUB 20004220 d%=1+(dmge%>10)+(dmge%>20)+(dmge%>30)4230? "THE EQUIPMENT DAMAGE SUSTAINED DURING"4240? "THIS PERIOD WAS "; 4250ON d% GOTO 4260, 4270, 4280, 42904260? "VERY LIGHT.":GOTO 50004270? "MODERATE.":GOTO 50004280? "HEAVY.":GOTO 50004290? "SEVERE."5000REM                  ***********END***********5020?:? "WOULD YOU LIKE TO TRY AGAIN?(Y OR15,15,15,16,15,16,16,16,17,16,18,16,19,16,206520DATA           16,21,16,22,16,23,16,24,16,25,16,26,16,27,16,28,16,29,16,30,15,30,14,30,13,30,13,30,12,30,12,296525DATA           12,28,12,276540HOME:VTAB 236550? "THIS IS THE HEAT EXCHANGER"6560COLOR =56570HLIN 28, 34 AT 106580VLIN 10, 18 AT 346590HLIN 28, 34 AT 186600VLIN 10, 18 AT 286605COLOR =2:PLOT 28, 12:PLOT 28, 16:COLOR =56610FOR i=1 TO de:NEXT i6620VTAB 236630? "THIS IS THE GENERATOR TURBINE"6640HLIN 5, 18 AT 306650VLIN 30, 36 AT 186660DATA           7,9,6,15,17,6,6,18,7,5,19,8,5,7,9,17,19,9,5,6,10,18,19,10,5,6,11,186085DATA           19,11,5,6,12,18,19,12,5,6,13,18,19,13,5,6,14,18,19,14,5,6,15,18,196090DATA           15,5,6,16,18,19,16,5,6,17,18,19,17,5,6,18,18,19,18,5,7,19,17,19,196095DATA           6,18,20,7,17,21,8,16,226100COLOR =06110HLIN 10, 14 AT 66120COLOR =126130HLIN 15, 16 AT 56140HLIN 15, 16 AT 46150HLIN 15, 16 AT 36160FOR i=1 TO de:NEXT i6170VTAB 236180? " THIS IS THE REACTOR CORE"6190COLOR =36200FOR i=9 TO 15614,38,13,38,12,38,12,376900? "THE SECONDARY COOLANT CARRIES"6910? "HEAT FROM THE HEAT EXCHANGER"6920? "TO THE TURBINE AND THEN TO":? "THE COOLING TOWER."6925COLOR =26930FOR i=1 TO 1236940READ y, x6950PLOT x, y6960FOR j=1 TO 200:NEXT j6970NEXT i6980DATA       4,35,4,37,5,35,5,36,5,37,6,35,6,36,6,37,7,36,8,36,9,36,10,36,11,36,12,36,12,35,12,34,12,33,12,32,13,32,14,32     6981DATA          15,32,16,32,16,33,16,34,16,35,16,36,17,36,18,36,19,36,20,36,20,35,20,34,20,33,20,32,20,31,20              6982,9,14,9,15,9,16,9,16,8,16,7,16,6,16,5,16,4,16,3,17,3,18,3,19,3,20,3,22,3,24,36410FOR i=1 TO de:NEXT i6420HOME:VTAB 236430? "THE PRIMARY COOLANT CARRIES":? "HEAT FROM THE REACTOR CORE"6440? "TO THE HEAT EXCHANGER."6450FOR i=1 TO 526460READ y, x6470PLOT x, y6480FOR j=1 TO 200:NEXT j6490NEXT i6500FOR i=1 TO de:NEXT i6510DATA           4,25,4,27,5,25,5,26,5,27,6,25,6,26,6,27,7,26,8,26,9,26,10,26,11,26,12,26,12,25,12,24,12,23,12,226515DATA           12,21,12,20,12,19,12,18,12,17,12,16,12,15,13,15,14, N)"; 5025NORMAL5030GET a$5040IF a$="y" OR a$="Y" THEN GOSUB 2000:GOTO 3905060HOME:END5100 b$=""5105FOR i=1 TO 45110GET a$5130IF ASC(a$)<>32 THEN 51405134IF b$="" THEN RETURN5136 out%=VAL(b$)5138RETURN5140IF ASC(a$)=13 THEN POP:GOTO 11705150 b$=b$+a$5160? a$; 5170NEXT i:RETURN6000GR:COLOR =15:FOR i=0 TO 39:HLIN 0, 39 AT i:NEXT i6005 de=60006010HOME:VTAB 236020? "  THIS IS THE REACTOR VESSEL"6030RESTORE6035COLOR =16040FOR i=1 TO 296050READ x1, x2, y6060HLIN x1, x2 AT y6070NEXT i6080HLIN 5, 18 AT 366670VLIN 30, 36 AT 56680COLOR =06690HLIN 2, 17 AT 336700FOR i=7 TO 15 STEP 26710PLOT i, 34:PLOT i+1, 326720NEXT i6730FOR i=1 TO de:NEXT i6740VTAB 236750? "THIS IS THE COOLING TOWER"6760COLOR =56770VLIN 23, 25 AT 246780VLIN 23, 25 AT 366790VLIN 25, 26 AT 256800VLIN 25, 26 AT 356810VLIN 26, 28 AT 266820VLIN 26, 28 AT 346830VLIN 28, 36 AT 276840VLIN 28, 36 AT 336850PLOT 34, 366860PLOT 26, 366870HLIN 25, 35 AT 386880FOR i=1 TO de:NEXT i6890VTAB 236896DATA                 210VLIN 11, 17 AT i6220NEXT i6230FOR i=1 TO de:NEXT i6240VTAB 236250? " THESE ARE THE CONTROL RODS"6260COLOR =136270VLIN 2, 17 AT 116280VLIN 2, 17 AT 136290FOR i=1 TO de:NEXT i6300VTAB 236310? "THE EMERGENCY COOLANT CAN COOL"6320? "THE REACTOR IN AN EMERGENCY."6330COLOR =26340FOR i=1 TO 366350READ y, x6360PLOT x, y6370FOR j=1 TO 200:NEXT j6380NEXT i6390DATA                  4,2,4,4,5,2,5,3,5,4,6,2,6,3,6,4,7,3,8,3,9,3,10,3,11,3,12,3,12,4,12,5,12,6,12,7,12,8,12,96400DATA                  13DATA            30,20,29,20,28,20,27,20,26,20,25,20,24,20,23,20,22,20,21,21,21,22,21,23,21,24,21,25,21,26,21,27,21,27,206983DATA            27,19,27,18,27,17,27,16,27,15,27,14,27,13,27,12,27,11,27,10,27,9,27,8,27,7,28,7,29,7,30,7,31,7,32,7,34,106984DATA            32,13,34,16,35,16,35,17,35,18,35,19,35,20,35,21,35,22,35,23,35,24,35,25,35,26,35,27,35,28,34,28,34,29,346985DATA            30,35,30,35,31,35,32,34,32,34,33,34,34,34,35,34,36,34,37,34,38,33,38,32,38,31,38,30,38,29,38,28,38,27,386986DATA       r":? "word.  If this persists, try"120? "either giving less words, or":? "bigger puzzle dimensions."125?130? " Press <RETURN> to continue...":GET a$160HOME300DEF FN a(z)=INT(RND(1)*z+1)310 tw=80315? CHR$(7)320INPUT "Do you want a solution printout with the puzzle? "; x$:?330INPUT "What is to be the width of the puzzle? (1 to 40) "; w: md=w:?340IF w*2<=tw THEN 345343? "That will not fit in "; tw:? "columns.":GOTO 330345IF w<1 THEN 330350INPUT "...And the length? "; l:IF l>w THEN  md=l352?355IF2 AT 20:HLIN 7, 33 AT 198040COLOR =3:HLIN 6, 34 AT 18:HLIN 5, 35 AT 17:HLIN 4, 36 AT 16:HLIN 3, 37 AT 158050COLOR =8:HLIN 3, 37 AT 14:HLIN 4, 36 AT 13:HLIN 5, 35 AT 12:HLIN 6, 34 AT 11:HLIN 7, 33 AT 108060COLOR =3:HLIN 8, 32 AT 9:COLOR =11:HLIN 9, 31 AT 8:HLIN 10, 30 AT 78070COLOR =3:HLIN 12, 18 AT 19:HLIN 22, 28 AT 19:COLOR =9:HLIN 14, 16 AT 18:HLIN 24, 26 AT 188080VTAB (23):HTAB (8)8090? "     MELTDOWN     ":FOR i=1 TO 1000:NEXT i8100TEXT:VTAB (12):HTAB (8)8110FLASH8120? "     MELTDOWN     "8130s,":? "type a period (.)."465?470FOR i=1 TO m480INPUT t$:IF t$="-" THEN  i=i-1:? "Re-do "; w$(i); "...":GOTO 480490IF t$="." THEN  m=i-1:GOTO 660500IF LEN(t$)=0 THEN ? "You goofed.  Try again”:":GOTO 480510 j=1520 te$=MID$(t$, j, 1):IF te$>="a" AND te$<="z" THEN 570525IF te$<"A" OR te$>"Z" THEN 530527 t$=LEFT$(t$, j-1)+CHR$(ASC(MID$(t$, j, 1))+32)+RIGHT$(t$, LEN(t$)-j):GOTO 570530IF te$=t$ THEN  t$="":GOTO 500540IF j=LEN(t$) THEN  t$=LEFT$(t$, j-1):GOTO 580550IF j=1 THEN  t$=RIGHT$(t$, LEN(t$)-12 z=15HOME10? TAB(6); "WORD SEARCH PUZZLE"40?50? "This program is a word search":? "puzzle maker!!"55? " USE NO CAPITAL LETTERS **"60? "The program takes a set of":? "words, supplied by you, and":? "fits them into a word search"70? "puzzle."90? "In the course of making the":? "puzzle, I may find that I":? "can't fit a certain word any-"100? "where, and will ask you if I":? "should try to fit it in once":? "more.  If you don't want me"110? "to do that, typing 'no' will":? "throw away that particula     26,38,25,38,24,38,23,38,22,38,21,38,20,38,19,38,18,38,17,38,16,38,15,38,14,38,13,38,12,38,12,377040HOME:VTAB 237060RETURN8000GR:COLOR =8:FOR i=0 TO 39:HLIN 0, 39 AT i:NEXT i:COLOR =14:FOR i=39 TO 0 STEP -1:HLIN 0, 39 AT i:NEXT i8010FOR i=1 TO 1000:NEXT i:COLOR =0:HLIN 17, 23 AT 36:COLOR =1:HLIN 16, 24 AT 35:COLOR =3:HLIN 17, 23 AT 348020FOR i=1 TO 500:NEXT i:COLOR =13:VLIN 20, 33 AT 19:VLIN 20, 33 AT 21:COLOR =11:VLIN 20, 34 AT 208030COLOR =8:HLIN 10, 30 AT 22:HLIN 9, 31 AT 21:COLOR =11:HLIN 8, 3 l<1 THEN 350360? "What is the maximum number of":INPUT "words in the puzzle? "; m:?370IF m>=2 THEN 380375? "Sorry, there must be at least":? "two words.":GOTO 360380?390DIM a$(l, w), w$(m)400DIM w(m, 3), dxy(8, 2), dd(28)410? "Now enter a heading that will":? "be printed over the puzzle:":? "("; tw; " characters maximum)"430INPUT xy$435HOME:? CHR$(7)440? "OK...Enter a word at each":? "question mark.":?:?:? "To re-do the previous word,"445? "type a hyphen (-)."448?460? "When you run out of wordNORMAL8140FOR i=1 TO 2000:NEXT i8150RETURN8,19,38,18,38,17,38,16,38,15,38,14,38,13,38,12,38,12,377040HOME:VTAB 237060RETURN8000GR:COLOR =8:FOR i=0 TO 39:HLIN 0, 39 AT i:NEXT i:COLOR =14:FOR i=39 TO 0 STEP -1:HLIN 0, 39 AT i:NEXT i8010FOR i=1 TO 1000:NEXT i:COLOR =0:HLIN 17, 23 AT 36:COLOR =1:HLIN 16, 24 AT 35:COLOR =3:HLIN 17, 23 AT 348020FOR i=1 TO 500:NEXT i:COLOR =13:VLIN 20, 33 AT 19:VLIN 20, 33 AT 21:COLOR =11:VLIN 20, 34 AT 208030COLOR =8:HLIN 10, 30 AT 22:HLIN 9, 31 AT 21:COLOR =11:HLIN 8, 3): j=j-1:GOTO 570560 t$=LEFT$(t$, j-1)+RIGHT$(t$, LEN(t$)-j): j=j-1570 j=j+1:IF j<=LEN(t$) THEN 520580? "-"; t$; "-"600IF LEN(t$)<=md THEN 610605? "That's too long, I'm afraid."607? "Try another one:":GOTO 480610FOR iz=1 TO i-1:IF w$(iz)<>t$ THEN NEXT:GOTO 630615? CHR$(7)620? "You entered that one already.":? "Try another:":GOTO 480630 w$(i)=t$640NEXT i650? "That's it..."; m; " words."660? "Now I need time to think..."680FOR i=1 TO m-1685FOR j=i+1 TO m690IF LEN(w$(i))<LEN(w$(j)) THEN  hz$=w$T$(x$, 1)="Y" OR LEFT$(x$, 1)="y" THEN 12501235PR #a1240END1250REM      1260FOR i=1 TO l:FOR j=1 TO w: a$(i, j)=".":NEXT j:NEXT i1270FOR i=1 TO m1280 ln=LEN(w$(i)): j=w(i, 2): k=w(i, 1)1290FOR p=1 TO ln1300 a$(j, k)=MID$(w$(i), p, 1)1310 j=j+dxy(w(i, 3), 2): k=k+dxy(w(i, 3), 1):NEXT p1320NEXT i1330 xy$="Here is the answer key:"1340GOSUB 10701350?:?1355PR #01360END "of typing paper, and press":? "<RETURN> to begin printing."1060FOR c=1 TO n:GOSUB 1070:NEXT:GOTO 12301070INPUT " "; a$:?1075P":? "'"; w$(i); "' in the":? "puzzle..."831?832? "Do you want me to":INPUT "look again? "; a$834IF LEFT$(a$, 1)="y" THEN 750835?:? "OK, I threw that one out."836 w$(i)="":GOTO 950850 j=sy: k=sx860FOR p=1 TO ln870IF LEN(a$(j, k)) AND a$(j, k)<>MID$(w$(i), p, 1) THEN 790880 j=j+dxy(sd, 2): k=k+dxy(sd, 1):NEXT p900 j=sy: k=sx910FOR p=1 TO ln: a$(j, k)=MID$(w$(i), p, 1)920 j=j+dxy(sd, 2): k=k+dxy(sd, 1):NEXT940 w(i, 1)=sx: w(i, 2)=sy: w(i, 3)=sd950NEXT i970FOR i=1 TO l975FOR j=1 TO w980IF a$(i,2)+2150 cl=INT(RND(1)*37)+2:IF cl=4 OR cl=35 THEN 150160PLOT cl, INT(RND(1)*37)+2:NEXT i170COLOR =15:HLIN 0, 39 AT 0:HLIN 0, 39 AT 39180VLIN 0, 39 AT 0:VLIN 0, 39 AT 39190 q=INT(RND(1)*15)200 x1=4: x2=35: y1=20-q: y2=19+q: xc=0: yc=1210 k=PDL(5)220FOR d=1 TO 150:NEXT d230IF PDL(7) OR PDL(9) THEN  s=s-1:GOTO 290240IF k<>0 AND k/3<>INT(k/3) THEN  xc=(k=2)-(k=8): yc=(k=4)-(k=1)250 x1=x1+xc: x2=x2-xc: y1=y1+yc: y2=y2-yc260IF SCRN(x1, y1)<>0 OR SCRN(x2, y2)<>0 THEN 310270 s=s+10280COLOR =1:PLOT x1,R #z1080 t=(tw-2*w)/2:?1090?1100? TAB((tw-LEN(xy$))/2); xy$1110?:?1120FOR j=1 TO l:? TAB(t); 1130FOR k=1 TO w:IF a$(j, k)="." THEN ? ". "; :GOTO 11401135? CHR$(ASC(a$(j, k))-32); " "; 1140NEXT:?:NEXT1150?:?1160? "Find these words in the above puzzle:"1170?: x=-1:? "  "; 1180FOR j=1 TO m:IF LEN(w$(j))=0 THEN 12101185 x=x+11190IF x>=4 THEN ?: x=0:? "  "; 1200FOR ww=1 TO (LEN(w$(j)))1202 ww$=MID$(w$(j), ww, 1)1204? CHR$(ASC(ww$)-32); 1206NEXT ww:? "  ", 1210NEXT:?:?:?:?1220RETURN1230IF LEF(i): w$(i)=w$(j): w$(j)=hz$700NEXT:NEXT710FOR i=1 TO 8:READ dxy(i, 1), dxy(i, 2):NEXT720FOR i=1 TO 28:READ dd(i):NEXT730DATA       0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1740DATA       2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7750FOR i=1 TO m760 ln=LEN(w$(i))770 nt=0790 sd=dd(FN a(28))800 sx=FN a(w): x1=sx+(ln-1)*dxy(sd, 1):IF x1<1 OR x1>w THEN 790810 sy=FN a(l): x1=sy+(ln-1)*dxy(sd, 2):IF x1<1 OR x1>l THEN 790820 nt=nt+1:IF nt<>w*l*2 THEN 850825? CHR$(7), CHR$(7)830? "I couldn't fit10 hs=0: fl=020TEXT:VTAB 2:HTAB 9:INVERSE:? "DEAD RINGER!":NORMAL30IF fl=0 THEN  fl=1:GOTO 6040VTAB 4:? "CURRENT HIGH SCORE:"; hs50VTAB 6:? "YOUR LAST SCORE:"; s70VTAB 11:? "CONTROLLER #1 CONTROLS THE RED"80? "RINGER (THE ONE THAT STARTS ON THE LEFT)."90?:? "EITHER TRIGGER WILL MAKE THE":? "GAME PAUSE AND LOWER YOUR":? "SCORE."100VTAB 22:? "PLEASE PRESS ANYKEY ON THE"110? "KEYPAD TO BEGIN."; 120IF  NOT PDL(11) THEN 120130GR:HOME:VTAB 21:HTAB 11:? "SCORE:": s=0140FOR i=1 TO 15:COLOR =INT(RND(1)*1 j)="" THEN  a$(i, j)=CHR$(FN a(26)+96)990NEXT:NEXT1010FOR i=1 TO m-1:FOR j=i+1 TO m1020IF w$(i)<=w$(j) THEN 10301021 hz$=w$(i): w$(i)=w$(j): w$(j)=hz$1025FOR k=1 TO 3: hz=w(i, k): w(i, k)=w(j, k): w(j, k)=hz:NEXT k1030NEXT j:NEXT i1035? CHR$(7)1040? "How many copies of this puzzle":INPUT "do you want? "; n1045IF n<1 THEN  z=0: n=11050? "For each copy, insert a sheet":? "of typing paper, and press":? "<RETURN> to begin printing."1060FOR c=1 TO n:GOSUB 1070:NEXT:GOTO 12301070INPUT " "; a$:?1075P y1:COLOR =14:PLOT x2, y2290VTAB 21:HTAB 18:? s300GOTO 210310FOR i=1 TO 100:NEXT i320IF s>hs THEN  hs=s330?:? "PLEASE PRESS ANY KEY ON THE"340? "KEYPAD TO START OVER."; 350IF  NOT PDL(11) THEN 350360GOTO 20370END (THE ONE THAT STARTS ON THE LEFT)."90?:? "EITHER TRIGGER WILL MAKE THE":? "GAME PAUSE AND LOWER YOUR":? "SCORE."100VTAB 22:? "PLEASE PRESS ANYKEY ON THE"110? "KEYPAD TO BEGIN."; 120IF  NOT PDL(11) THEN 120130GR:HOME:VTAB 21:HTAB 11:? "SCORE:": s=0140FOR i=1 TO 15:COLOR =INT(RND(1)*1e wild card key is your shortcut to moving about"43?:? "Press it first(nothing happens)then type the first letter of  the following commands"44?:? " up", "down", "north", "south", "east", "west", "look", "inventory"45?:? "If you choose an unrecognizabledirection, a default direction will be chosen"46?:?:? "next page":GET q$50HOME:SPEED =250:?:?51? "Don't get discouraged if you   don't solve this game the firsttime you play it"52FLASH:?:?:? "IT WOULD NOT BE AN ADVENTURE   GAME IF YOU COULD":NORMAL53?1REM          14k program|3k of running room!simplest solution 19 moves|1.7k for sound 2LOMEM :29000:FOR a=28000 TO 28005:READ b:POKE a, b:NEXT:POKE 460, 703DATA           58,102,109,211,255,2015? "instructions?   y"; :GET q$:IF q$<>"y" THEN 5410SPEED =50:HOME:FLASH:? "WELCOME TO GUY COUSINEAU'S     FIRST ADVENTURE GAME           WRITTEN IN OCTOBER 1984":NORMAL11?:?:? "This is a reasonably simple    game requiring only 19 moves   to solve."12?:?:? "When you play it for the first time, however, the 1000), e$(21, 2), g$(50), i$(6), r$(22), c$(5), w$(43)110FOR r=1 TO 21:FOR d=1 TO 6:READ r(r, d):NEXT:NEXT:? CHR$(7)120FOR r=1 TO 21:READ w$:GOSUB 1420: r$(r)=w$:NEXT:? CHR$(7)130FOR r=1 TO 20: a=1140READ w$:GOSUB 1420: a$(r, a)=w$:IF w$<>"" THEN  a=a+1:GOTO 140150NEXT: e=1:? CHR$(7)160READ w$:GOSUB 1420: e$(e, 1)=w$:IF w$="" THEN ? CHR$(7):GOTO 180170READ w$:GOSUB 1420: e$(e, 2)=w$: e=e+1:GOTO 160180 g=1190READ w$:GOSUB 1420: g$(g)=w$:IF w$="" THEN ? CHR$(7):GOTO 210200 g=g+1:GOTO 190210FOR c=1 TO E:? "       MOVING ABOUT       ":NORMAL31?:? "The game has a limited         vocabulary"32?:? "It understands two word        commands such as `get rock`"33?:? "All your actions must start    with a `command` and end with  a `thing`"34?:? "Some recognizable commands     are  stop  look  examine  quit get  leave"35?:? "Find other ones by             experimenting"36?:?:? "next page":GET q$40HOME:SPEED =200:?:?41? "If certain commands or things  are not understood, try doing  it another way"42?:? "Th2)+2150 cl=INT(RND(1)*37)+2:IF cl=4 OR cl=35 THEN 150160PLOT cl, INT(RND(1)*37)+2:NEXT i170COLOR =15:HLIN 0, 39 AT 0:HLIN 0, 39 AT 39180VLIN 0, 39 AT 0:VLIN 0, 39 AT 39190 q=INT(RND(1)*15)200 x1=4: x2=35: y1=20-q: y2=19+q: xc=0: yc=1210 k=PDL(5)220FOR d=1 TO 150:NEXT d230IF PDL(7) OR PDL(9) THEN  s=s-1:GOTO 290240IF k<>0 AND k/3<>INT(k/3) THEN  xc=(k=2)-(k=8): yc=(k=4)-(k=1)250 x1=x1+xc: x2=x2-xc: y1=y1+yc: y2=y2-yc260IF SCRN(x1, y1)<>0 OR SCRN(x2, y2)<>0 THEN 310270 s=s+10280COLOR =1:PLOT x1,:? "If you like this game          contact me for others"54INVERSE:?:?:? "     GUY COUSINEAU                  1059 Hindley Street       "; 55? "     OTTAWA Canada                  K2B 5L9                   "56?:?:?:NORMAL:? "Get ready......................The adventure begins shortly":SPEED =25557IF ASC(q$)=144 THEN 10060FOR w=1 TO 9999:NEXT:?:?:?:SPEED =25599? "remember to use 'wild card' andthe first letter of up down    north south east west inventoryand look for commands"100DIM r(22, 6), a$(22, 2 move    limit may not be enough"13?:?:?:?:?:FLASH:? "hit any key for next page":GET q$:NORMAL20HOME:SPEED =100:INVERSE:? "        THE SETTING        ":NORMAL21?:?:? "You are in a house with many   `rooms` or places where you cansee different things"22?:?:? "Your mission is to move about  the house, find, and defuse thebomb which has been planted    there"23?:?:? "Watch out for pitfalls and red herrings which may slow you    down or stop you dead"24?:?:?:?:? "next page":GET q$30SPEED =150:HOME:INVERS4:READ w$:GOSUB 1420: c$(c)=w$:NEXT:? CHR$(7)215FOR c=1 TO 35:READ w$:GOSUB 1420: w$(c)=w$:NEXT:? CHR$(7)220?:?:?:INPUT "time?"; q$225 r=ASC(LEFT$(q$, 1))+ASC(RIGHT$(q$, 1))230 r=RND(-r)300 r=INT(RND(1)*5)+1: m=101309GOTO 311310 k=INT(RND(1)*3):IF k<>0 THEN 315311GOSUB 1000315 m=m-1:IF m/10=INT(m/10) THEN GOSUB 1200316 p=p-1:IF p<0 THEN  p=0317IF p=0 AND (r=7 OR r=20) THEN ? w$(34):GOTO 1045320? "What do I do now?"330GET q$:IF ASC(q$)=144 THEN 1100340 c$=q$: t$="":? q$; 350GET q$: q=ASC(q$):I$:? "Whatever you say":IF t$=w$(17) AND r=8 THEN  o=1744 x=1745IF a$(r, x)="" THEN  a$(r, x)=w$(15):GOTO 315746 x=x+1:GOTO 745750 z=0:IF t$=w$(14) THEN  t$=t$+"s"751FOR i=1 TO 6:IF t$=i$(i) THEN  z=1752NEXT: zz=0753FOR x=1 TO 20:IF a$(r, x)=t$ THEN  zz=1754NEXT:IF z=0 AND zz=0 THEN ? "I see nothing special":GOTO 315759 z=0:FOR x=1 TO e:IF LEFT$(e$(x, 1), 4)=LEFT$(t$, 4) THEN 770760NEXT:IF z=0 THEN ? "I see nothing special"765GOTO 315770FLASH:? e$(x, 2):NORMAL: z=1:GOTO 760800IF t$<>w$(14) THEN ="stop" OR c$="end" OR c$="quit" THEN STOP460IF c$=w$(2) THEN 500461IF c$=w$(3) THEN 600462IF c$=w$(4) THEN 650463IF c$=w$(5) THEN 700464IF c$=w$(6) THEN 750465IF c$=w$(7) THEN 800466IF c$=w$(8) THEN 850468IF c$=w$(9) THEN 900469IF c$=w$(10) THEN 1300470IF c$=w$(11) THEN 1350471IF c$=w$(12) THEN 1140472IF c$=w$(1) THEN 311473IF c$=w$(13) THEN 1400474IF c$=w$(35) THEN ? "Don't get violent"480? "Don't know how to "; c$:GOTO 315500 u$=LEFT$(t$, 3): r1=0510FOR t=1 TO 20:IF LEFT$(r$(t), 3)=u$ TH0 THEN ? "     Y U C K": i$(y)="":GOTO 315890 i$(y)="":? "OK":IF LEFT$(t$, 2)="pi" THEN  p=10:? w$(25)895GOTO 315900IF t$<>w$(26) THEN ? "Whatever you say":GOTO 315905IF r<>5 THEN ? "Nothing happens":GOTO 315910 z=0:FOR x=1 TO 6:IF i$(x)="key" THEN  z=1920NEXT:IF z=0 THEN ? "Unable to do that":GOTO 315930SPEED =200:? w$(27)940FLASH:SPEED =111:?:?:? w$(28):?:?:?:SPEED =255:NORMAL950? "what do I do now?"960GET q$:? CHR$(7)970GET r$:IF ASC(q$)=144 AND ASC(r$)=145 THEN 1500980GOTO 16001000SPEED =50; t$:GOTO 315640 y=1641IF i$(y)="" THEN  i$(y)=a$(r, xx): a$(r, xx)="":GOTO 315645 y=y+1:IF y=7 THEN ? "Carrying TOO MUCH":GOTO 315646GOTO 641650 z=0:FOR x=1 TO 6:IF i$(x)=t$ THEN  z=1: y=x660NEXT:IF z=0 THEN ? "Unable to do that":GOTO 315670 x=1671IF a$(r, x)="" THEN  a$(r, x)=i$(y): i$(y)="":GOTO 315680 x=x+1:GOTO 671700IF t$<>"rope" THEN ? "Unable to do that":GOTO 315710 z=0:FOR x=1 TO 6:IF i$(x)=w$(15) THEN  z=1: i$(x)=""720NEXT:IF z=0 THEN ? "Don't have it":GOTO 315730? w$(16); 740INPUT tF q=32 THEN 400355IF q=13 THEN 450356IF q=163 THEN ? q$; :IF LEN(c$)<2 THEN  c$="":GOTO 350357IF q=163 THEN  c$=LEFT$(c$, (LEN(c$)-1)):GOTO 350360IF q<65 OR q>122 THEN 350370IF q>64 AND q<91 THEN  q$=CHR$(q+32)380 c$=c$+q$:? q$; :GOTO 350400? q$; 401GET q$: q=ASC(q$):IF q=13 THEN 450405IF q=163 THEN ? q$; :IF LEN(t$)<2 THEN  t$="":GOTO 401406IF q=163 THEN  t$=LEFT$(t$, (LEN(t$)-1)):GOTO 401410IF q<65 OR q>122 THEN 401420IF q>64 AND q<91 THEN  q$=CHR$(q+32)430 t$=t$+q$:? q$; :GOTO 401450?:IF c$SPEED =1:? "INTERESTING...................":SPEED =255:GOTO 315810 z=0:FOR x=1 TO 6:IF i$(x)=w$(14)+"s" THEN  z=1815NEXT:IF z=0 THEN ? "Don't have it":GOTO 315819SPEED =111820?:?:? TAB(10); w$(18):? TAB(10); w$(19):? TAB(10); w$(20):? TAB(10); w$(21)830? TAB(10); w$(22):? TAB(10); w$(23):? TAB(10); w$(24)840FOR w=1 TO 3333:NEXT:SPEED =255:HOME:GOTO 315850 z=0:FOR x=1 TO 6:IF i$(x)=t$ THEN  z=1: y=x860NEXT:IF z=0 THEN ? "Don't have it":GOTO 315870 z=0:FOR x=1 TO 4:IF t$=c$(x) THEN  z=1880NEXT:IF z=EN  r1=t520NEXT:IF r1=0 THEN  q$=LEFT$(t$, 1): d=0:GOTO 1120530 z=0:IF r1=0 THEN 545535FOR d=1 TO 6:IF r(r, d)=r1 THEN  z=1540NEXT:IF z<>0 THEN 550545?:? "   Can't go there":?:GOTO 310550IF r1=18 AND s=0 THEN 545560IF r1=7 AND p=0 THEN 545570IF r1=17 THEN  r=21:GOTO 310580 r=r1:GOTO 310600IF t$=w$(14) THEN  t$=w$(14)+"s"605 z=0:FOR x=1 TO g:IF g$(x)=t$ THEN  z=1610NEXT:IF z=0 THEN ? "Beyond my power":GOTO 315620 z=0:FOR x=1 TO 20:IF a$(r, x)=t$ THEN  z=1: xx=x630NEXT:IF z=0 THEN ? "Don't see ":? "I am in the "; r$(r); ".", "    I SEE":? CHR$(7):INVERSE:SPEED =2551010FOR t=1 TO 10:IF a$(r, t)="" THEN 10301020? a$(r, t), 1030NEXT:?:?:?:NORMAL:IF r<>21 THEN RETURN1040?:SPEED =1:? "you cannot defuse the bomb now":SPEED =2551045FOR n=1 TO m:? CHR$(7); :FOR w=1 TO 1876-n^2:NEXT:NEXT:GOTO 16101050RETURN1100REM            one character commands  3 is default1110GET q$: d=31115IF ASC(q$)>144 THEN  pp=315+ASC(q$):POKE pp, PEEK(pp)+31120IF q$="u" THEN  d=11121IF q$="d" THEN  d=21122IF q$="n" THATA         0,0,0,2,0,0  1710DATA        0,0,0,0,0,21711DATA        0,0,0,0,2,01712DATA         0,0,2,0,0,01713DATA        0,0,0,3,0,01714DATA        0,0,0,0,3,0 1715DATA        0,0,4,0,0,01716DATA        0,0,0,0,0,51717DATA        8,21,0,0,0,0 1718DATA         1,6,0,0,0,01719DATA        0,0,0,8,0,01720DATA         0,0,0,0,7,01721DATA        21,21,21,21,21,21 1731DATA       tuvez,tfdpoe gmpps,nbjo gmpps,mjwjoh sppn,cbtfnfou,dbwf,uvoofm,cbdl zbse,nbtufs cfesppn1732DATA        cbuisppn,mjoofo dm THEN 6501310 z=0:FOR x=1 TO 6:IF i$(x)=w$(15) THEN  z=1: i$(x)=""1320NEXT:IF z=0 THEN ? "Don't have it":GOTO 3151330? w$(29); :INPUT q$1340IF q$=w$(30) AND o=1 AND r=8 THEN  n=11345? "OK":GOTO 3151350IF t$<>w$(31) THEN ? "Can't do that":GOTO 3151355IF r<>8 THEN ? "OK":GOTO 3151356IF r=17 THEN  n=01360IF n=0 THEN  r=21:GOTO 3101370 r=17:? "OK":GOTO 3151400IF t$<>w$(32) THEN SPEED =1:? t$:SPEED =255:GOTO 3151405IF r<>1 THEN  t$=" "+t$:GOTO 14001410FLASH:? w$(33):NORMAL: s=1:GOTO 3151420IF w$=""tfs,kfxfmsz,,1750DATA        cbui,tjol,qjmm,cpuumf,hmbtt,,1751DATA        tiffut,upxfmt,,1752DATA        cfe,esfttfs,upzt,,1753DATA        dibjst,ubcmf,qmbout,,1754DATA        sfgsjhfsbups,ufmfqipof,tupwf,,1755DATA       ju't tnbmm jo ifsf,mput pg dmpuift,,1756DATA       wfhfubcmft,spqf,qsftfswft,,1757DATA        J tff tpnfuijoh bu uif cpuupn,,1758DATA       dpcxfct,tqfdusft,qbqfs po xbmm,xbmmqbqfs,,1759DATA       MPDLFE EPPS,nbjmcpy,hsbtt,cjset,gfodf,,1760DATA        xbufs,spdlt,lfz,dpjot,npme,n3ONERR  GOTO 16451620FOR z=1 TO 321625POKE 28006, 240+INT((z-1)/4):CALL 280001630READ a, b, c, d1631HPLOT a, b TO c, d1632? CHR$(7)1640NEXT1645FOR p=248 TO 255:POKE 28006, p:CALL 28000:FOR w=1 TO 100:NEXT:NEXT1650GET q$:TEXT:CLRERR:END1701DATA        0,2,18,0,0,01702DATA        1,3,9,12,10,11                       1703DATA         2,4,13,8,0,141704DATA        3,5,0,15,19,01705DATA        4,0,0,0,16,01706DATA        18,0,0,0,0,71707DATA        0,0,0,0,6,201708DATA         0,17,3,0,19,0 1709DEN  d=31123IF q$="s" THEN  d=41124IF q$="e" THEN  d=51125IF q$="w" THEN  d=61126IF d=0 THEN ? "Don't know where "; t$; " is":GOTO 3151128IF d=6 AND r=19 THEN ? "THE DOOR IS LOCKED FROM THE    INSIDE":GOTO 3151129IF q$="i" THEN 11401130IF q$="l" THEN 3111131 r1=r(r, d):GOTO 5301140INVERSE:? "I am carrying":FOR i=1 TO 6:? i$(i):NEXT:NORMAL:GOTO 3151200? "ONLY "; m; " MOVES UNTIL THE          BOMB BLOWS"1210IF m>0 THEN RETURN1220SPEED =1:? "       OOPS       ":SPEED =255:GOTO 16101300IF t$<>w$(15)ptfu,cfesppn,ejojoh sppn,ljudifo,dmptfu,sppu dfmmbs,xfmm,qbttbhf1733DATA        gspou zbse,cpuupn pg xfmm,ZPV IBWF CSPLFO ZPVS OFDL GSPN UIF GBMM1741DATA     cppltifmg,cpplt,tubjst,tifmg,,1742DATA        gpvs eppst,tubjst,qjduvsf,,1743DATA        tubjst,epps,,1744DATA        dmptfu,epps,tubjst,,1745DATA     gvsobdf,sppudfmmbs,tubjst,xpsltipq,uvct,,1746DATA        ju't ebnq jo ifsf,tnbmm uvoofm,,1747DATA       ju't wfsz tnbmm jo ifsf,uvoofm,,1748DATA        qbujp,usff,xfmm,,1749DATA        cfe,esft THEN 14701430 x$="":FOR x=1 TO LEN(w$): y$=MID$(w$, x, 1): y=ASC(y$)1440IF y<65 OR y>124 THEN  x$=x$+y$:GOTO 14601450 x$=x$+CHR$(y-1)1460NEXT: w$=x$1470RETURN1500GOTO 90501550FOR w=1 TO 1000:NEXT:TEXT1555? CHR$(7):FLASH:?:?:? "ALL IS WELL":NORMAL:?:?:? "you had "; m; " moves to spare"1560?:?:? "Your score is "; 81-m; " from perfect"1570END1600? "your tampering will cause the  bomb to go off":FOR w=1 TO 3333:NEXT1610HGR2:HCOLOR =21611POKE 28006, 230:CALL 280001612POKE 28006, 240:CALL 28000161jmefx,tqjefst,,1771DATA        cppl,uifsf jt tpnf xsjujoh1772DATA      tifmg,uifsf bsf cpplt po ju-qfsibqt J tipvme sfbe pof1773DATA        qjduvsf,ju jt wfsz ojdf  1774DATA        gvsobdf,ju jt wfsz ejsuz1775DATA      sppu,uifsf jt tpnfuijoh uifsf1776DATA       uvoofm,J tff mjhiu bu uif foe1777DATA      qbujp,ju jt nbef pg tupof 1778DATA        xfmm,uifsf jt tpnfuijoh tijoz epxo  uifsf1779DATA        esfttfs,J mjlf uifjs ubtuf jo dmpuift1780DATA        kfxfmsz,uijt kfxfmsz jt GBLF1781DATA       00,68,851842DATA            100,100,132,951843DATA             100,100,103,721844DATA              100,100,65,901845DATA            100,100,70,1221846DATA             100,100,75,1251847DATA               100,100,77,1381848DATA               100,100,88,1481850DATA           100,100,144,1221860DATA           100,100,166,1031861DATA            100,100,105,641862DATA            100,100,60,859050POKE 28006, 227:CALL 280009055ONERR  GOTO 91409060GR:FOR x=1 TO 100: y=INT(RND(1)*40): z=INT(RND(1)*40)           tqfdusft,UIFZ TBZ   xjme dbse   voep    efgvtft cpnc,,1801DATA      tupof,cppl,qjduvsf,dbtf,hmbtt,qjmm,cpuumf,tiffu,upxfm,upz,upzt,dibjs,dmpuift,spqf,qsftfswft 1802DATA        lfz,spdl,spdlt,kfxfmsz,dbtf,gppe,cpplt,qsftfswft,wfhfubcmf,whfhubcmft,,1815DATA      qjmm,qsftfswft,gppe,wfhfubcmft1816DATA       mppl,hp,hfu,mfbwf,ujf,fybnjof,sfbe,fbu,vompdl,espq,dmjnc,jowfoupsz,tbz,cppl,spqf1817DATA      up xibu tibmm J ujf ju?        up...,usff,Tpnf,Qfpqmf,Fyqfdu,Dmvft,Up,Sftpmwf,Fwfszuijoh1818DAT00,68,851842DATA            100,100,132,951843DATA             100,100,103,721844DATA              100,100,65,901845DATA            100,100,70,1221846DATA             100,100,75,1251847DATA               100,100,77,1381848DATA               100,100,88,1481850DATA           100,100,144,1221860DATA           100,100,166,1031861DATA            100,100,105,641862DATA            100,100,60,859050POKE 28006, 227:CALL 280009055ONERR  GOTO 91409060GR:FOR x=1 TO 100: y=INT(RND(1)*40): z=INT(RND(1)*40)        100,100,151,901828DATA             100,100,75,651829DATA            100,100,107,1221830DATA           100,100,120,1401831DATA            100,100,101,1441832DATA            100,100,165,861833DATA             100,100, 80,661834DATA             100,100,72,721835DATA              100,100, 70,801836DATA             100,100,61,1011837DATA            100,100,172,681838DATA             100,100,65,1071839DATA              100,100,65,1141840DATA           100,100,130,1331841DATA            100,1hmbtt,tpnfpof ibt cffo esjoljoh gspn ju1782DATA        cpuumf,mbcfm tbzt`ufnqpsbsz tisjol    qjmmt`1783DATA       upxfmt,npophsbn tbzt FU1784DATA          upzt,opu nz tuzmf..............op dpnqvufst     1785DATA        qmbout,uifz offe tpnf xbufs1786DATA        sfgsjhfsbups,ju jt gvmm pg gppe1787DATA       spqf,ju tffnt wfsz tuspoh1788DATA        xpsltipq,J ifbs ujdljoh-uif epps jt     mpdlfe boe xbmmt bsf tuffm1789DATA        nbjmcpy,b opuf tbzt `IBWF ZPV SFBE B   HPPE CPPL UPEBZ?`  1790DATA9065COLOR =INT(RND(1)*16)9070PLOT y, z: y=240+INT(RND(1)*6):POKE 28006, y:CALL 280009090 y=128+64+INT(RND(1)*16):POKE 28006, y:CALL 280009100 y=INT(RND(1)*10)+65:POKE 28006, y:CALL 280009130FOR w=1 TO 100+INT(RND(1)*150):NEXT:NEXT9140POKE 28006, 255:CALL 28000:CLRERR:GOTO 1550          100,100, 70,801836DATA             100,100,61,1011837DATA            100,100,172,681838DATA             100,100,65,1071839DATA              100,100,65,1141840DATA           100,100,130,1331841DATA            100,1A         J bn opx ibmg tj{f gps 10 npwft,epps,uif lfz xpslfe.............uif epps jt opx pqfo 1819DATA       J TFF UIF CPNC,xifsf tbmm J espq ju?..........Jo...,xfmm,epxo,tqfdusf1820DATA       uif cppltifmg npwft sfwfbmjoh  b qbttbhf,J bn opx gvmm tj{f boe uifsf jtop xbz pvu,gjtu1821DATA           100,100,100,1551822DATA            100,100,156,931823DATA            100,100,111,1111824DATA            100,100, 90,601825DATA           100,100,110,1501826DATA            100,100,80,631827DATA    10REM    HAMset. This must be run before using Holiday Address Manager for the first time!20REM    Using it after the first time will screw-up your files! Gordon Meyer30 d$=CHR$(4)40? d$; "open n"50 n=060? d$; "write n"70? n80? d$; "close n"90?:?:?:?:? "FINISHED"100END FugueAÿÿÿÿ;2WHELLOAAÿÿÿ<lWevil2AAÿÿÿ=JWBLOCKS LEFTB^; c1010?:? n$(c):? a$(c):? c$(c); ","; s$(c)1015IF hp$(c)="" THEN GOTO 10251020?:? "home phone:"; hp$(c)1025IF wm$(c)="" THEN GOTO 10351030?:? "1st work number:"; wm$(c)1035IF wf$(c)="" THEN GOTO 10451040?:? "2nd work number:"; wf$(c)1045IF bm$(c)="" THEN GOTO 10551050?:? "His Birthday:"; bm$(c)1055IF bf$(c)="" THEN GOTO 10651060?:? "Her Birthday:"; bf$(c)1065IF ad$(c)="" THEN GOTO 10721070?:? "other date:"; ad$(c)1072?:? "on christmas card list:"; xmas$(c)1073IF sv=2 THEN 30451074IF sv>0 GO1REM                                        C5DIM n$(102), a$(100), c$(100), s$(100), xmas$(100), hp$(100)10DIM wm$(100), wf$(100), ad$(100), bm$(100), bf$(100)11 beep$=CHR$(7)+CHR$(7)+CHR$(7)15REM                                    started 4/16/8420HOME: d$=CHR$(4)25GOTO 900048HOME:FOR c=1 TO 100:NEXT:?50HOME:NORMAL:?:? "MAIN MENU":? "What would you like to do?": c=n55?60? "Create System..........9"65? "Examine all files......E"70? "List all names.........L"75? "Search for name........S"80? "arch for.":INPUT z$2001IF n<=0 THEN RETURN2002IF z$="" OR z$=" " THEN RETURN2005FOR c=1 TO n2010IF n$(c)=z$ THEN GOTO 20502015NEXT c2020?:?:? "UNABLE TO LOCATE.":?:? "Try again with another name":? "or variation?":GET z$2025IF z$="y" OR z$="Y" THEN 20002030IF z$="n" OR z$="N" THEN RETURN2035?:? "Answer y or n please!":GOTO 20202049 sv=0:PR #02050HOME:?:? "File Found.":?:? "What would you like to do?":?:HTAB 52055? "1. Examine whole file.":?:HTAB 52060? "2. Print whole file.":?:HTAB 52065? "3.  235170IF z$="p" OR z$="P" THEN 240175IF z$="c" OR z$="C" THEN 245180IF z$="b" OR z$="B" THEN 250185IF z$="o" OR z$="O" THEN 255190IF z$="f" OR z$="F" THEN 260195GOTO 50200GOSUB 8000:GOTO 50210GOSUB 1000:GOTO 50215GOSUB 1500:GOTO 50220GOSUB 2000:GOTO 50225GOSUB 2500:GOTO 50230GOSUB 3000:GOTO 50235GOSUB 3500:GOTO 50240GOSUB 4000:GOTO 50245GOSUB 4500:GOTO 50250GOSUB 5000:GOTO 50255GOSUB 5500:GOTO 50260GOSUB 6000:GOTO 60901000HOME:FOR c=1 TO n1001IF n<=0 THEN RETURN1005HOME:?:? "Listing #"TO 10801075?:INVERSE:IF c=n THEN ? "Last file."1080PR #0:INVERSE:? "Press any key.":NORMAL:GET z$:IF sv>0 GOTO 20491085IF c>=n THEN RETURN1090NEXT c1500HOME:? "These names are on file:": c=11501IF n<=0 THEN RETURN1503 n$(101)="": n$(102)=""1505 x=11520?:? n$(c), n$(c+1)1525IF c>=n THEN 15451530 c=c+2: x=x+11535IF x=10 THEN 15501540GOTO 15201545INVERSE:?:? "end of list.":? "Press any key.":GET z$:RETURN1550INVERSE:?:? "Press any key.":GET z$: x=0:NORMAL:GOTO 15202000HOME:?:? "Enter name to seDelete file............D"85? "Update file............U"90? "Add names..............A"95? "Phone list.............P"100? "Christmas card list....C"105? "Birthday card list.....B"110? "Other card list........O"115? "Finish.................F"120?:?:INVERSE:? "Type your selection"125NORMAL:GET z$130IF z$="9" THEN 200140IF z$="e" OR z$="E" THEN 210145IF z$="l" OR z$="L" THEN 215150IF z$="s" OR z$="S" THEN 220155IF z$="d" OR z$="D" THEN 225160IF z$="u" OR z$="U" THEN 230165IF z$="a" OR z$="A" THENPrint name & address.":?:HTAB 52070? "4. Update file.":?:HTAB 52075? "5. Search another name.":?:HTAB 52080? "6. Return to Main Menu.":?:?:INVERSE:? "Enter a number.":NORMAL:GET z$2085IF z$="1" OR z$="!" THEN  sv=1:GOTO 10052090IF z$="2" OR z$="@" THEN  sv=1:GOTO 21502095IF z$="3" OR z$="#" THEN 21602100IF z$="4" OR z$="$" THEN 30402105IF z$="5" OR z$="%" THEN  sv=1:GOTO 20002110IF z$="6" OR z$="_" THEN  sv=0:RETURN2115GOTO 20502150HOME:VTAB 10:HTAB 10:FLASH:? "PREPARE PRINTER!":INVERSE:?:? "Pres070? "4. Change 1st work number":?:HTAB 53075? "5. Change 2nd work number":?:HTAB 53080? "6. Change Christmas Card.":?:HTAB 53085? "7. Delete whole file":?:HTAB 53090? "8. Return to Main Menu":?:?3095INVERSE:? "Select a number.":NORMAL:GET z$3100IF z$="1" OR z$="!" THEN 31503105IF z$="2" OR z$="@" THEN 31603110IF z$="3" OR z$="#" THEN 31703115IF z$="$" OR z$="4" THEN 31803120IF z$="5" OR z$="%" THEN 31903125IF z$="6" OR z$="_" THEN 32003130IF z$="7" OR z$="&" THEN  sv=2:GOTO 25403135IF z$="8" O 25402515NEXT c2520?:? "UNABLE TO LOCATE.":?:? "Try again with another name":? "or variation?":GET z$2525IF z$="n" OR z$="N" THEN RETURN2530IF z$="y" OR z$="Y" THEN GOTO 25002535?:? "Answer y or n please!":GOTO 25202540FOR d=c TO n-12545 n$(d)=n$(d+1): a$(d)=a$(d+1): c$(d)=c$(d+1): s$(d)=s$(d+1): xmas$(d)=xmas$(d+1)2550 hp$(d)=hp$(d+1): ad$(d)=ad$(d+1): bm$(d)=bm$(d+1): bf$(d)=bf$(d+1): wm$(d)=wm$(d+1): wf$(d)=wf$(d+1)2555NEXT d2560 n$(n)="": a$(n)="": c$(n)="": s$(n)="": xmas$(n)="": hp$(n)="": ar city, state zip":INPUT c$(c), s$(c):GOTO 30503169GOTO 31603170HOME:?:? "Enter home phone.":INPUT hp$(c):GOTO 30503180HOME:?:? "Enter 1st work number.":INPUT wm$(c):GOTO 30503190HOME:?:? "Enter 2nd work number.":INPUT wf$(c):GOTO 30503200HOME:?:? "On Christmas card list?":INPUT xmas$(c):IF xmas$(c)="Y" OR xmas$(c)="y" THEN 30503205IF xmas$(c)="n" OR xmas$="N" THEN 30503210?:?:? "Answer y or n please!":GOTO 32003220?:? "FILE ERASED":INVERSE:?:? "Press any key.":NORMAL:GET z$: s=s+1: sv=0:RETURN3500R c=1 TO n3010IF n$(c)=z$ THEN GOTO 30403015NEXT c3020?:?:? "UNABLE TO LOCATE.":?:? "Try again with another name":? "or variation?":GET z$3025IF z$="n" OR z$="N" THEN RETURN: sv=03030IF z$="y" OR z$="Y" THEN 30003035?:? "Answer y or n please!":GOTO 30203040 sv=2:GOTO 10053045?:INVERSE:? "Study file and press any key.":NORMAL:GET z$3050 sv=0:HOME:VTAB 10:? "What would you like to do?":?:HTAB 53055? "1. Change name":?:HTAB 53060? "2. Change address":?:HTAB 53065? "3. Change home phone.":?:HTAB 53s any key.":NORMAL:?:? "Type C to cancel.":GET z$2155IF z$="c" OR z$="C" THEN GOTO 2050: sv=02157PR #1:GOTO 10052160HOME:VTAB 10:HTAB 10:FLASH:? "PREPARE PRINTER!":INVERSE:?:? "Press any key.":NORMAL:?:? "Type c to cancel.":GET z$2165IF z$="c" OR z$="C" THEN  sv=0:GOTO 20502170PR #1:? n$(c):? a$(c):? c$(c); ","; s$(c):PR #0:GOTO 20502467 n=n-12500HOME:?:? "Enter name to be removed.":INPUT h$2501IF h$="" OR h$=" " THEN RETURN2502GOTO 25902503IF n<=0 THEN RETURN2505FOR c=1 TO n2510IF n$(c)=h$ THENR z$="*" THEN  sv=0:RETURN3140GOTO 30503150HOME:?:? "Enter corrected name.":INPUT n$(c):GOTO 30503160HOME:VTAB 10:? "Which needs correcting?":?:HTAB 5:? "1. street address":?:HTAB 5:? "2. city, state zip":?:HTAB 5:? "3. both"3163INVERSE:? "Select a number.":NORMAL:GET z$:HOME:IF z$="1" OR z$="!" THEN ? "Enter street address.":INPUT a$(c):GOTO 30503165IF z$="2" OR z$="@" THEN ? "Enter city, state zip.":INPUT c$(c), s$(c):GOTO 30503167IF z$="#" OR z$="3" THEN ? "Enter street address":INPUT a$(c):? "Ented$(n)="": bm$(n)="": bf$(n)=""2565 wm$(n)="": wf$(n)=""2567 n=n-12570 s=s+1:IF sv=2 THEN 32202575?:?:? "File has been erased.":?:INVERSE:? "Press any key.":NORMAL:?:? "Type #3 to delete another file.":GET z$2580IF z$="3" OR z$="#" THEN 25002585RETURN2590?:?:?:?:INVERSE:? "Press any key to continue.":NORMAL:?:? "Type C to cancel.":GET z$2595IF z$="c" OR z$="C" THEN RETURN2600GOTO 25033000HOME: s=s+1:? "Enter name to update.":INPUT z$3001IF z$="" OR z$=" " THEN RETURN3002IF n<=0 THEN RETURN3005FOIF n>=100 THEN RETURN3501HOME:?:? "How many names to add?":INPUT x:HOME3502IF x<=0 THEN RETURN3503IF n<=0 THEN RETURN3504IF n+x>100 THEN ? "Not enough memory!":FOR c=1 TO 1500:NEXT:GOTO 35003505FOR c=1 TO x3510HOME:?:? "Enter name.":INPUT n$(n+c):IF LEN(n$(n+c))>14 THEN ? beep$:GOTO 35103515?:? "Street Address?":INPUT a$(n+c):IF LEN(a$(n+c))>20 THEN ? beep$:GOTO 35153520?:? "City, State  Zip?":INPUT c$(n+c), s$(n+c):IF LEN(c$(n+c))>7 OR LEN(s$(n+c))>12 THEN ? beep$:GOTO 35203525?:? "Home phone numb RETURN5005 sv=4:GOTO 40015010HOME: x=0:?:? "Birthday Card List."5015? "Enter month to send cards for.":INPUT h$5020IF h$="" OR h$=" " THEN  sv=0:RETURN5025IF LEN(h$)>3 THEN ? "Use three letters please!":GOTO 50155035PR #1:HOME:?:?:? "Birthday Card List.":?:? h$:?:?5040FOR c=1 TO n5045IF h$=LEFT$(bm$(c), 3) THEN ? bm$(c):? n$(c):? a$(c):? c$(c); ","; s$(c): x=x+15050IF h$=LEFT$(bf$(c), 3) THEN ? bf$(c):? n$(c):? a$(c):? c$(c); ","; s$(c): x=x+15055IF x>=7 AND tp=2 THEN PR #0:?:?:INVERSE:? "Change hristmas card list?":INPUT xmas$(n+c):?3557IF xmas$(n+c)="n" OR xmas$(n+c)="N" THEN 35603558IF xmas$(n+c)="y" OR xmas$(n+c)="Y" THEN 35603559?:?:? "Answer y or n please!":?:GOTO 35553560NEXT c3565 s=s+1: n=n+x:RETURN4000IF n=0 THEN RETURN4001HOME:VTAB 10:? "Which type of paper?":?:HTAB 54005? "1. Fanfold":?:HTAB 54010? "2. Single Sheet":?:?:INVERSE:? "Select a number.":NORMAL:?:? "Type 0 to cancel.":INPUT tp4013IF tp=0 THEN  sv=0:RETURN4015IF tp<1 OR tp>2 THEN 40004020HOME:VTAB 10:HTAB 10:FLASH:?:? h$:?:?5540FOR c=1 TO n5545IF h$=LEFT$(ad$(c), 3) THEN ? ad$(c):? n$(c):? a$(c):? c$(c); ","; s$(c):?: x=x+15550IF x>=7 AND tp=2 THEN PR #0:?:?:INVERSE:? "Change paper and press a key.":NORMAL:GET z$: x=0:PR #15555NEXT c5560IF x=0 THEN PR #0:?:?:? "None for this month!":INVERSE:?:? "Press any key.": sv=0:GET z$:RETURN5565?:PR #0:?:?:INVERSE:? "End of list.":? "Press any key.": sv=0: x=0:GET z$:RETURN5999REM                             finish routine,,,,stores all data...if needed.6000IF n=0 THEN x=x+14065?:NEXT c4067 tp=04070PR #0:?:?:INVERSE:? "End of list.":? "Press any key.":GET z$: x=0:RETURN4500IF n=0 THEN RETURN4505 sv=3:GOTO 40014510 x=0:PR #1:HOME:?:? "Christmas Card List.":?:?4515FOR c=1 TO n4520IF xmas$(c)="y" OR xmas$="Y" THEN ? n$(c):? a$(c):? c$(c); ","; s$(c): x=x+1:?:?4525IF x>=9 AND tp=2 THEN PR #0:?:INVERSE:? "Change paper and press a key.":NORMAL:? "":GET z$:PR #14530NEXT c4535PR #0:?:?:INVERSE:? "End of list.":? "Press any key.": x=0: sv=0:GET z$:RETURN5000IF n=0 THENer?":INPUT hp$(n+c):IF LEN(hp$(n+c))>12 THEN ? beep$:GOTO 35253530?:? "1st work phone number?":INPUT wm$(n+c):IF LEN(wm$(n+c))>12 THEN ? beep$:GOTO 35303535?:? "2nd work phone number?":INPUT wf$(n+c):IF LEN(wf$(n+c))>12 THEN ? beep$:GOTO 35353540?:? "His Birthday?":INPUT bm$(n+c):IF LEN(bm$(n+c))>12 THEN ? beep$:GOTO 35403545?:? "Her Birthday?":INPUT bf$(n+c):IF LEN(bf$(n+c))>12 THEN ? beep$:GOTO 35453550?:? "Other important date?":INPUT ad$(n+c):IF LEN(ad$(n+c))>12 THEN ? beep$:GOTO 35503555?:? "On Cpaper and press a key.":NORMAL:GET z$: x=0:PR #15060NEXT c5065IF x=0 THEN PR #0:?:?:? "None for this month!":INVERSE:?:? "Press any key.": sv=0:GET z$:RETURN5070?:PR #0:INVERSE:?:? "End of list.":?:? "Press any key.": sv=0: x=0:GET z$:RETURN5500IF n=0 THEN RETURN5505 sv=5:GOTO 40015510HOME: x=0:?:? "Other Card List."5515?:? "Enter month to send cards for.":INPUT h$5520IF h$="" OR h$=" " THEN  sv=0:RETURN5525IF LEN(h$)>3 THEN ? "Use three letters please!":GOTO 55155535PR #1:HOME:?:?:? "Card List.":? "PREPARE PRINTER!":INVERSE:?:? "Press any key.":NORMAL:GET z$4022IF sv=4 THEN 50104023IF sv=3 THEN GOTO 45104024IF sv=5 THEN 55104025 x=0:HOME:PR #14027NORMAL:?:?:? "Telephone List.":?4030FOR c=1 TO n4035? n$(c), :? "home:"; hp$(c)4040IF wm$(c)="" OR wm$=" " GOTO 40454042? , "work:"; wm$(c)4045IF wf$(c)="" OR wf$(c)=" " GOTO 40504047? , "work:"; wf$(c)4050IF x>=13 AND tp=2 THEN PR #0:INVERSE:?:? "Change paper and press a key":NORMAL:? "":GET z$4055IF x>=10 AND tp=2 THEN HOME: x=0:PR #14060 GOTO 506005HOME:?:? "Finish.":?:INVERSE:? "Press any key.":NORMAL:?:?:? "Type c to cancel.":GET z$6010IF z$="c" OR z$="C" THEN GOTO 506011IF nn<=0 THEN 60156015IF s<=0 THEN 60906017?:? "One moment please.":? d$; "open n"6020? d$; "write n":? n:? d$; "close n"6025? d$; "open names,l15"6026FOR c=1 TO n6027? d$; "write names,r"; c6028? n$(c):NEXT c:? d$; "close names"6029? d$; "open address,l21"6030FOR c=1 TO n6031? d$; "write address,r"; c6032? a$(c):NEXT c:? d$; "close address"6033? d$; "open 90IF xmas$(y)="y" OR xmas$(y)="Y" THEN GOTO 81108095IF xmas$(y)="n" OR xmas$(y)="N" THEN GOTO 81108100? "y or n please!":GOTO 80808110IF y=x THEN RETURN8115NEXT y8120GOTO 80059000REM                      9010VTAB 10:? "Holiday Address Manager":?9015? "Gordon R. Meyer (c) 1984"9020?:?:?:?:INVERSE:? "One moment please"9025? d$; "open n":? d$; "close n"9030? d$; "open n":? d$; "read n"9035INPUT n9040GOTO 91009100REM                      9105HOME:HTAB 0:? d$; "close n"9110?:?:? "Holiday Address ):NEXT c:? d$; "close home"6053? d$; "open birth1,l13"6054FOR c=1 TO n6055? d$; "write birth1,r"; c6056? bm$(c):NEXT c:? d$; "close birth1"6057? d$; "open birth2,l13"6058FOR c=1 TO n6059? d$; "write birth2,R"; c6060? bf$(c):NEXT c:? d$; "close birth2"6061? d$; "open date,l13"6062FOR c=1 TO n6063? d$; "write date,r"; c6064? ad$(c):NEXT c:? d$; "close date"6065? d$; "open xmas"6066? d$; "write xmas"6067FOR c=1 TO n6068? xmas$(c)6069NEXT c6090HOME:VTAB 10:HTAB 10:? "GOODBYE!":END8000IF n>0 T          reads phone numbers and dates9170? d$; "open dates"9175? d$; "read dates"9180FOR c=1 TO n9185INPUT hp$(c), ad$(c), bm$(c), bf$(c), wm$(c), wf$(c)9190FOR i=1 TO 6:? CHR$(8):NEXT i9195NEXT c9197HTAB 0:? d$; "close dates"9198GOTO 489500 d$=CHR$(4)9501 n=09502? d$; "open n"9503? d$; "write n"9504? n9505? d$; "close n"pen n":? d$; "close n"9030? d$; "open n":? d$; "read n"9035INPUT n9040GOTO 91009100REM                      9105HOME:HTAB 0:? d$; "close n"9110?:?:? "Holiday Address eep$:GOTO 80358045?:? "1st work phone number?"8050INPUT wm$(y):IF LEN(wm$(y))>12 THEN ? beep$:GOTO 80458055?:? "2nd work phone number?"8060INPUT wf$(y):IF LEN(wf$(y))>12 THEN ? beep$:GOTO 80558065?:? "His Birthday?"8067INPUT bm$(y):IF LEN(bm$(y))>12 THEN ? beep$:GOTO 80658070?:? "Her Birthday?"8072INPUT bf$(y):IF LEN(bf$(y))>12 THEN ? beep$:GOTO 80708075?:? "Other important date?"8077INPUT ad$(y):IF LEN(ad$(y))>12 THEN ? beep$:GOTO 80758080?:? "Send Christmas card? (y or n)"8085INPUT xmas$(y)80city,l8"6034FOR c=1 TO n6035? d$; "write city,r"; c6036? c$(c):NEXT c:? d$; "close city"6037? d$; "open state,l13"6038FOR c=1 TO n6039? d$; "write state,r"; c6040? s$(c):NEXT c:? d$; "close state"6041? d$; "open work1,l13"6042FOR c=1 TO n6043? d$; "write work1,r"; c6044? wm$(c):NEXT c:? d$; "close work1"6045? d$; "open work2,l13"6046FOR c=1 TO n6047? d$; "write work2,r"; c6048? wf$(c):NEXT c:? d$; "close work2"6049? d$; "open home,l13"6050FOR c=1 TO n6051? d$; "write home,r"; c6052? hp$(cMagager":NORMAL9115?:? "Please see the 'Instruct'"9116? "file on this disk."9120?:? "Number of people on file is "; n9122IF n>=100 THEN ?:? "Memory Full.":?9125?:?:INVERSE:? "Press any key":NORMAL9127 nn=n9130GET z$9132IF n=0 THEN GOTO 509133?:?:INVERSE:? "One moment please.":NORMAL9135? d$; "open names"9140? d$; "read names"9145FOR c=1 TO n9150INPUT n$(c), a$(c), c$(c), s$(c), xmas$(c)9155FOR i=1 TO 4:? CHR$(8):NEXT i9160NEXT c9162HTAB 0:? d$; "close names"9169REM                          HEN RETURN8001HOME:?:?:? "Number of entries to be made?":INPUT x: n=x: s=s+18002FOR y=1 TO x8003IF x<=0 THEN  n=n-x: y=0:RETURN8004IF x>100 THEN  n=n-x: y=0:RETURN8005HOME:?:? "Enter Name"8010INPUT n$(y):IF LEN(n$(y))>14 THEN ? beep$:GOTO 80058015?:? "Street Address?"8020INPUT a$(y):IF LEN(a$(y))>20 THEN ? beep$:GOTO 80158025?:? "City, State   Zip?"8030INPUT c$(y), s$(y):IF LEN(c$(y))>7 OR LEN(s$(y))>12 THEN ? beep$:GOTO 80258035?:? "Home phone number?"8040INPUT hp$(y):IF LEN(hp$(y))>12 THEN ? b10REM   MISSION: E.V.I.L.20REM        by DBJ100DIM a(11, 11)110 m=PEEK(64885):HOME:? "  PRESS ANY KEY TO BEGIN..."120 k=PEEK(64885): i=i-1:IF k=m THEN GOTO 120130HOME:VTAB 5:INVERSE:? "  LINKING  "140FOR j=1 TO 600: m=RND(i):NEXT:NORMAL:HOME150VTAB 12:? "      MISSION:  "; 160 a$="E.V.I.L.  "170DEF FN a(q)=INT(RND(1)*q+1): z=FN a(10)180FOR i=1 TO 10190FOR j=1 TO 10200IF a(i-1, j)>0 OR a(i, j-1)>0 THEN 260210IF a(i-1, j+1)>0 OR a(i-1, j-1)>0 THEN 260220IF FN a(10)>9 THEN  a(i, j)=1: x=x+1230IF40HOME:?:? "BAD CODE":FOR t=1 TO 2000:NEXT t850 t=FN a(9):GOTO 520860HOME:FOR i=1 TO 30:? "SYNTAX ERROR":NEXT i870FOR i=1 TO 100:? "DESTRUCT *** "; :NEXT i880HGR2:FOR i=1 TO 30890HCOLOR =FN a(15)900 a=FN a(250): b=FN a(150)910HPLOT x, y TO a, b920 x=a: y=b930NEXT:FOR i=1 TO 3000:NEXT i:TEXT940VTAB 11:INVERSE:? "GREAT JOB!!  YOU DID IT!    "950? "SEE YOU SOON...":NORMAL960VTAB 24:SPEED =4:? "THE END"970SPEED =255980END990HOME:? "GREETINGS, HACKER":?:? "  YOU WILL BE LINKED TO A":?:? "COMPUTER :GOTO 450410IF d$="s" OR d$="S" THEN  i=i+1:GOTO 450420IF d$="e" OR d$="E" THEN  j=j+1:GOTO 450430IF d$="w" OR d$="W" THEN  j=j-1:GOTO 450440HOME:GOTO 370450IF FN a(10)=10 THEN LET z=FN a(999):GOTO 470460GOTO 680470HOME:VTAB 20:INVERSE:? "THE CODE IS NOW: "; z:NORMAL:FOR a=1 TO 1000:NEXT a480GOTO 680490HOME500? "INTRUDER ALERT":?:SPEED =4:? "HEY, WHAT ARE YOU DOING WITH":? "MY TERMINAL?": t=FN a(9)510SPEED =255520FOR u=1 TO 6530VTAB 12540? "TRACE ACTIVATES IN "; 7-u550VTAB 14:INVERSE:? " ENTE:? "A 3-DIGIT NUMBER.  IT CHANGES"1080?:? "PERIODICALLY, AND WE WILL KEEP"1090?:? "YOU POSTED ON THE CURRENT CODE.":?:?:INPUT "   PRESS <RETURN> TO CONTINUE"; a$1100HOME:? "  WE'VE PROGRAMMED YOUR COMPU-":?:? "TER TO WARN YOU IF A TERMINAL":?1110? "IS IN USE ONE ROOM AWAY, BUT"1120?:? "YOU WON'T KNOW IN WHICH DI-":?:? "RECTION.  SORRY, BUT IT'S THE"1130?:? "BEST WE CAN DO.  IF YOU LINK":?:? "UP TO AN ACTIVE TERMINAL, YOU":?:?1140INPUT "   PRESS <RETURN> TO CONTINUE"; a$:HOME:? "MUST INPUT A ONE-DIGIT0700IF j<1 THEN  j=1:GOTO 730710IF j>10 THEN  j=10:GOTO 730720GOTO 740730VTAB 12:INVERSE:? "YOU CAN'T GO THAT WAY.":NORMAL:GOTO 760740IF a(i, j)=1 THEN 490750IF a(i, j)=2 THEN HOME:GOTO 810760IF a(i-1, j)=1 OR a(i+1, j)=1 THEN 790770IF a(i, j-1)=1 OR a(i, j+1)=1 THEN 790780GOTO 370790VTAB 16:INVERSE:? "-WARNING:  A TERMINAL IS IN USENEXT DOOR (BE CAREFUL!)"800GOTO 370810INVERSE:? "THE MAIN COMPUTER!":NORMAL:?:? "YOU HAVE ACCESSED MCC-E1":?:?820INPUT "ENTER CODE NUMBER: "; a830IF a=z THEN 8608 x>z THEN 250240GOTO 260250IF a=0 AND a(i, j)=1 THEN  a(i, j)=2: a=1: z=0260NEXT j270? MID$(a$, i, 1); 280NEXT i:?290FOR i=1 TO 3000:NEXT300 i=FN a(10): j=FN a(10):IF a(i, j)=2 THEN 300310 a(i, j)=0320IF z<>0 THEN 130330GOSUB 990340HOME350INVERSE:? "THE LINK IS COMPLETE.  YOU ARE":? "NOW 'IN' E.V.I.L. HEADQUARTERS":NORMAL360GOTO 750370VTAB 22:INVERSE:? "** ROOM "; j; ", "; i; " "380VTAB 23:? "WHICH DIRECTION? "; :NORMAL:INPUT " "; d$:HOME390 d$=LEFT$(d$, 1)400IF d$="n" OR d$="N" THEN  i=i-1TERMINAL INSIDE"1000?:? "E.V.I.L. HEADQUARTERS.  THE":?:? "BUILDING HAS 100 ROOMS, 10x10."1010?:? "EACH ROOM HAS A TERMINAL.  WE":?:? "AREN'T SURE WHICH ONE YOU WILL"1020?:? "LINK UP WITH.  ALL WE CAN DO IS"1030? "CONNECT YOU TO ONE THAT IS NOT":?:? "IN USE.  AFTER THAT, YOU'RE ON":?:? "YOUR OWN."1040?:?:INPUT "PRESS <RETURN> TO CONTINUE"; a$1050HOME:? "  YOUR MISSION IS TO FIND AND":?:? "DEACTIVATE THE MAIN COMPUTER,"1060?:? "CALLED MCC-E1.  YOU MUST ENTER"1070?:? "THE CODE NUMBER, CONSISTING OF":?R # (1 to 9) "; :NORMAL560INPUT " "; n570IF t=n THEN HOME:GOTO 370580HOME:? "WRONG NUMBER":? "************"590NEXT u600FOR i=1 TO 5610HOME620? "---------------------":? "HACKER TRACE COMPLETE":? "---------------------"630FOR j=1 TO 800:NEXT j:HOME:FOR j=1 TO 200:NEXT j:NEXT i640VTAB 12:SPEED =4:? "WE'VE FOUND YOU, BUDDY, AND YOU":? "WON'T LIVE TO TELL ABOUT IT!!"650?:? "WE'LL BE RIGHT OVER...":SPEED =255660FOR i=1 TO 3000:NEXT670GOTO 960680IF i<1 THEN  i=1:GOTO 730690IF i>10 THEN  i=10:GOTO 73 NUMBER"1150?:? "TO STOP THEM TRACING YOU.  THIS":? "NUMBER IS DIFFERENT EACH TIME,"1160?:? "AND YOU MUST FIND IT BEFORE":?:? "TIME RUNS OUT.":?1170? "  TO MOVE TO A NEW ROOM, ENTER":?:? "A HEADING (NORTH, SOUTH, EAST":?:? "OR WEST)."1180?:?:INPUT "   PRESS <RETURN> TO CONTINUE"; a$:HOME1190? "  WHEN WE WISH TO GIVE YOU A":?:? "MESSAGE, IT WILL BE INVERSE,":?:? "LIKE THIS: "; 1200INVERSE:? " OUR MESSAGE"; :NORMAL1210? ".":?:? "THAT WAY, YOU WILL BE ABLE TO":?:? "TELL US APART FROM E.V.I.L'S":?:? "PRI0530IF c$=CHR$(128) THEN  a(a1-9)= NOT a(a1-9): a(a1-7)= NOT a(a1-7): ti=ti-1540 a$=""550FOR i=1 TO 8: a$=a$+STR$((a(i))):NEXT i560IF c$="" GOTO 1020570GOTO 420580HTAB 10:VTAB 16:? a$; 585REM      ha ha ha! 590IF a$=b$ THEN  b=b-1:?:?:?:FOR i=1 TO 1000:NEXT:GOTO 330600HTAB 10:VTAB 18:? b$; 610HTAB 21:VTAB 15:? "MAKE THIS"; 620HTAB 20:VTAB 16:? "<  BYTE..."; 630HTAB 20:VTAB 18:? "<LIKE THIS."; 640HTAB a1:VTAB 14:? " v "; 650HTAB 4:VTAB 7:? "TIME LEFT: "; ti660HTAB 4:VTAB 9:? "BYTES LEFT: "; b10REM        THE SERPENT 20REM     30REM       by D. Jacksch  40REM     50ONERR  GOTO 106060TEXT:DIM b(9), a(9)70 a1=1480FOR i=1 TO 4090? TAB(RND(1)*30); "."100NEXT i110?:?:? "       MISSION: E.V.I.L.":?120? "            PART II":?130?:? "        - THE SERPENT -"140FOR i=1 TO 8:?:NEXT150FOR i=1 TO 3000:NEXT160FOR i=1 TO 8:?:NEXT:? "         by D. Jacksch":FOR i=1 TO 3000:NEXT170REM        GLITCH  180HOME190ONERR  GOTO 1060200INVERSE:? "  To access MCC-E2, you must":? "change re-program":? "your toy, to make it nothing"790? "more than a beige paperweight."800?:? "You may chicken-out now,":? "if you so desire."810?:VTAB 22:? "  Quit... (y/n) ?"; :GET q$820IF q$="y" OR q$="Y" THEN HOME:GOTO 1020830IF q$="n" OR q$="N" GOTO 850840GOTO 810850HGR2:PR #1:?:?:PR #0:TEXT860? "Since you chose to ignore my":? "warning, I'll let you see what"865REM            870? "you came for.  Of course, soon":? "your ADAM will be just an":? "over-sized domino."880?:?:?:HTAB 7:? "<press PRINT  n=RND(1):IF n>.4 THEN  b(i)= NOT b(i)390 b$=b$+STR$((b(i)))400NEXT i410IF b<=0 THEN HOME:VTAB 14:? " MCC-E2 ACCESS APPROVED":GOTO 690420GOSUB 580430IF ti<=0 THEN HOME:INVERSE:? "  YOU RAN OUT OF TIME,":? "BUT THANKS FOR TRYING."439REM     glitcho   440IF ti<=0 THEN ? "SEE YOU SOON...":NORMAL:END450GET c$460IF c$=CHR$(161) THEN  a1=a1+1:GOTO 490470IF c$=CHR$(163) THEN  a1=a1-1:GOTO 490480GOTO 530490IF a1<9 THEN  a1=9500IF a1>16 THEN  a1=16510HTAB a1:VTAB 14:? " v "; 520HTAB 19:VTAB 14:GOTO 45NTOUTS.  OUR MESSAGES DO"1220?:? "NOT SHOW UP ON THEIR TERMINALS."1230?:?:? "GOOD LUCK.":?:? "WE KNOW YOU CAN DO IT!!"1240?:?:INPUT "   PRESS <RETURN> TO BEGIN"; a$:FOR s=1 TO 2000:NEXT:RETURNOUR COMPU-":?:? "TER TO WARN YOU IF A TERMINAL":?1110? "IS IN USE ONE ROOM AWAY, BUT"1120?:? "YOU WON'T KNOW IN WHICH DI-":?:? "RECTION.  SORRY, BUT IT'S THE"1130?:? "BEST WE CAN DO.  IF YOU LINK":?:? "UP TO AN ACTIVE TERMINAL, YOU":?:?1140INPUT "   PRESS <RETURN> TO CONTINUE"; a$:HOME:? "MUST INPUT A ONE-DIGIT670HTAB 19:VTAB 14675REM      680RETURN690FOR i=1 TO 2000:NEXT i700HOME:? "ELECTRONIC VIDEO INTELLIGENCE":? "LABORATORIES"710VTAB 12:FLASH:? " INTRUDER ALERT ":NORMAL720FOR i=1 TO 4000:NEXT i:HOME730? "*":FOR i=1 TO 2000:NEXT i:HOME740? "Greetings, Visitor!":?750? "I am MCC-E2.":?760? "You, no doubt, are the":? "so-called 'Agent Fig-Leaf'."770?:? "Unlike my predecessor,":? "'MCC-E1', I cannot be damaged":? "so easily."775REM       780?:? "On the other hand, my circuits":? "allow me to totally a few bytes of memory."210? "this will override E.V.I.L.'s":? "tracing circuits."220?:? " Good luck ! ":NORMAL230 a=PEEK(64885)240?:?:? "       <press any key>"250 b=PEEK(64885): c=c-1:IF a=b GOTO 250260 m=RND(c)270 b=INT(RND(1)*4+8): ti=7*b280REM      ANOTHER GLITCH 290HOME:FOR i=1 TO 155:IF (INT(RND(1)*2)) THEN ? "0"; :GOTO 310300? "1"; 310NEXT320HTAB 0:VTAB 22:? "Use left & right arrow keys,":? "and Home key."; 330 a$="00000000": b$=""340FOR i=1 TO 8350 a(i)=0360NEXT i370FOR i=1 TO 8380key>"890VTAB 22:GET q$900IF q$<>"•" GOTO 890910HOME:? "************"; :HTAB 22:? "E.V.I.L."920? "*TOP SECRET*"; :HTAB 22:? "MCC-E2"930? "************"; :?:?:? "CODENAME:  SERPENT"940?:? "PURPOSE:  To eliminate all":? "          ADAM computers.":?:?945REM          950? "PHASE I:  Adverse reviews in":? "major computer magazines.":?960? "PHASE II:  Removal of ADAM":? "from computer stores.":?970? "PHASE III:  Remote destruction":? "of privately owned ADAM":? "computers.  Involves altering"980? "builtelligence Laboratories (E.V.I.L.), a     corporation whose sinister intentions have never been fully  revealed, has since built a new computer, "MCC-E2."  Rumor   has it that E.V.I.L. is again up to something evil.  Their   new plan is codenamed "Serpent."    Your mission:       1)  Find out what "The Serpent" is.               2)  Return with both yourself, and ADAM, alive.        We are hoping that the information you get from them     will help us stop them, before it's too late.Info About the Pror$="list" GOTO 11901120IF br$="new" THEN RUN1130IF br$="run" GOTO 12201135REM          1140IF br$="ok" THEN END1150IF VAL(br$)>0 THEN GOTO 12301160? br$: brl=LEN(br$)1170? TAB(brl+1); "^":? "Illegal Command":GOTO 10801180?:? "It's in the mail.":GOTO 10801190?:? "eggs - 1 doz. large":? "butter - 1 lb.":? "milk - 2 gal."1200? "roast beef - 4 lbs.":? "cereal - 2 boxes":? "cat food"1210GOTO 10801220?:? "I have no legs.":GOTO 10801230 a=INT(RND(1)*100+1): c=VAL(br$): b=01240IF c=a THEN HOME:? "You   10000001                                                            ...will change       v                     to this:          10101001                 ----------------------------------------                  v                        This:             10010100                                                             ...will change    v                        to this:          11010100                                                            ---------------------------------------- ..x	E., Part 2 -- The Serpent."It is the sequel to Mission: E.V.I.L., in which Agent        Figleaf destroyed the master control computer, "MCC-E1."     Electronic Video IntelEVILTEXT     <WARNING: THIS FILE IS TOP SECRET>          This is "Mission: E.V.I.L., Part 2 -- The Serpent."It is the sequel to Mission: E.V.I.L., in which Agent        Figleaf destroyed the master control computer, "MCC-E1."     Electronic Video Int-in Read-Only-Memory,":? "using high-voltage 'spikes'."990GET q$:FOR i=1 TO 18:?:NEXT i1000VTAB 9:? "Currently, phase III is in":? "full operation...":VTAB 151010FOR i=1 TO 8000:NEXT i:VTAB 151015REM           1020ONERR  GOTO 10601030HOME:? "MESSAGE FROM E.V.I.L":? "HEADQUARTERS:":? "We now have control of your":? "computer..."1040GOTO 10401050END1060?:? "?Break In "; INT(RND(1)*50)*10+201070ONERR  GOTO 10801080?:INPUT "]"; br$1090IF br$="" THEN GOTO 10801100IF br$="catalog" GOTO 11801110IF bgram:                               The first part involves changing several 8-bit "bytes"   of MCC-E2's memory.  A handy "work-screen" has been provided by your hacker friends.  Use the left and right Arrow Keys,  and the Home key, on the keyboard.  Move the cursor (v),     then press Home, to make the top byte identical to the       bottom one.    One or two bits will change each time Home is pressed.Examples:                                                       v                     This:           guessed my secret number!":END1245REM           1250IF c<a THEN ?:? "That number is too low.":?1260IF c>a THEN ?:? "That number is too high.":?1270 b=b+1:IF b>7 THEN ?:? "Too Many Guesses!":GOTO 10801280INPUT "]"; c1290GOTO 12401300REM        ha ha ha! glitch after glitch after glitch!   65535REM       TO COMBINE PROGRAMS.."1040GOTO 10401050END1060?:? "?Break In "; INT(RND(1)*50)*10+201070ONERR  GOTO 10801080?:INPUT "]"; br$1090IF br$="" THEN GOTO 10801100IF br$="catalog" GOTO 11801110IF b.A few tries will be needed to get the hang of it.  If    time runs out, the program will "Abort", so you can avoid    detection.                                                                                               Of course, since no one has made it yet, we can't be     sure if MCC-E2 will trace you or not.  So, if you do gain    access to MCC-E2, you will have to "play it by ear."     -----------------------------------------------------------PROGRAMMER'S NOTE:  As you progress into the proJane Smith" when creating the file and    then later try and search for it under "J. Smith" the        computer will not be able to locate the file. It is          advisable to stick with one format for entering names.     When entering the city, state and zip, remember to      separate city and state with a comma. This is very important as this is how the computer distinguishes between the two.     Dates must be entered using the standard three letter   abbreviation for each month. (ie. Jan, Feb, Mar, Apn	Esh procedure. Press any key to continue.     The computer will determine if it is necessary to       resave your files. If this is needed, you will hear the data pack go Holiday Address Manager   Operating ManualGordon R. Meyer2608 W. 6000 S.Roy, Utah  84067(801) 773-7766 Loading:      You must first boot SmartBasic into your system as per Coleco's instructions. After this has been done, insert the  data-pack ting   "Extra Ignored.") (3) If you have nothing to enter in any    category just hit return without typing anything. (exception is the Christmas Card list when you must respond with a y or n) Create System: press <9>     Again, this allows you to begin your file system. After you have started the system, this function will not respond  so you will not loose any of your data. Examine all files: press <E>     This will display all your files, one after the other.  After the last file is displayed it wiayed on your monitor. To use  any of the functions simply press the key that is indicated. However, since you don't have any files yet, the only        function that will respond is Create System. (press <9>)     You will be asked how many names you have to start your system. Type the correct number and press return. (enter 0   to return to main menu)Entering Names:     It is important to remember that the way you enter the  name is the way the computer will remember it. For example,  if you enter "Mrs. gram, ADAM   may begin to act in an unusual manner.  So, stay alert, and  use what you know about your computer, to finish the game.   Experiment, and have fun!See you soon...                                          v                        This:             10010100                                                             ...will change    v                        to this:          11010100                                                            ---------------------------------------- ..r, etc.)  Again choose one format and stick with it.     You must respond to the Christmas Card prompt with      either a "y" for yes or an "n" for no.     Remember these three general rules: (1) The way you     enter data is the way the computer will treat it. Stick to a standard format. (2) Do not use any commas when entering     data. (except between city and state) Because of the way the computer handles information, it will ignore everything      after the comma. (It will tell you it did this by prinI have supplied you with into the drive. Type RUN  BOOK and press <return>. In a few moments you will see the   title screen.Getting Started:     Shortly after the title screen is displayed it will be  replaced with a report of the number of people on file.      Continue the program by pressing any key. Later, as your     file grows, you will see numerous question marks displayed   after you do this. Each question mark represents a data item that is being read into memory.     The main menu is now displll return to the main  menu.List all names: press <L>     This lists all the file names in memory. This function  is helpful if you should forget exactly how you entered a    name. It will return to the main menu when the end of list   is reached.Search for file: press <S>      This will search through all existing files for the    name that you input. (remember, name must be entered in the  same form as when the file was created.) If the name is not  found you will be asked if you want to try again. me phone number. 4. Change first work number. 5. Change second work number. 6. Change Christmas card list     status. 7. Delete entire file from memory. and 8. return to  the main menu.  Enter the number for the function you wish   to perform. (see section on Delete File for function #7)     You will be asked to re-enter the data that you have    indicated. If you have selected to change the address,       another menu will be displayed for you to choose the aspect  of the address that need correction. (ie allow you to change any           information on file. see section on update for more          information. 5. Search for another name. 'nuff said. 6.      Return to the main menu. Simply enter a number for the       function desired.     Exits: To escape this function, you may hit <return>    without entering a name to search for. This will return you  to the main menu.Delete File: press <D>     This will erase any file from memory. Simply enter the  name you wish removed. If the computer is unable to will not respond. Please see  Create System for information on data format.Exits: You may escape this function by entering the number   zero when asked how many files to add. Phone List: press <P>     This will generate a handy list of all names and their  phone numbers. You will be asked to indicate which type of   paper you are using in your printer. Be sure your printer is ready to go because once the function has started it will    continue until it is finished. If you have indicated that    you arto return  to the main menu. There is also the cancel option once a     name has been located. Update File:      This allows you to change any information you have on  file. Simply enter the name of the file needing changes.     Once the file has been found it will be displayed on    your screen. Study the file to determine what needs          changing,and press any key.     At his point a secondary menu will be displayed that    allows you eight options; 1. Change name. 2. Change address. 3. Change hoYou must   answer with either a y for yes or an n for no.      Once the name has been found, a secondary menu will be  displayed. You have six options: 1. Examine the whole file.  This will display all the information available on this      person. 2.Print the whole file. This will give you hard copy of all the information available on this person. 3. Print    name and address. This will give hard copy of the name and   address only. It is printed in mailing label format. 4.      Update the file. This will. state,street, etc. ) Simply press the number next to the desired aspect.     Exits: Press <return> when asked to enter a name. You   may return to the main menu after a name has been located by pressing number 8.Add Files: press <A>     This allows you to add more files to your system. You   will be asked to enter the number of files you intend to     add.Note that you cannot add a number that would exceed the  hundred file limit. Also if you already have one hundred     files on record, this function locate   the name as you entered it you must answer y or n to try     again or return to the main menu.     Once the name has been located, you will be asked if    you are sure you want to remove the name. Press any other    key to continue or type c to cancel. Remember, once a file   has been deleted it cannot be recovered.     After the name has been erased you may type number 3 if you wish to delete another name. Press any key to return to  main menu.     Exits: Press <return> without entering a nme e using single sheets of paper, the computer will      sound a bell and stop printing so you can change sheets.     Press any key to continue printing. When the entire list has been printed a bell will sound.      Exits: You may enter the number zero to escape this     function when you are asked to select paper type.  Christmas Card List: press <C>     This will print out the name and address of everyone    you have placed on your Christmas card list. The printing is done in mailing list format. Pleasebility. Please be sure a distribute all three  files connected with this program when making copies. (HAM,  Instruct, and HAMset.)     There are additional instructions imbedded w/in the     program. Please 'LIST' it to read those.     This program is distributed via the FreeWare system.    Software/$ contributions will be accepted by the Author!     Your support will allow the continuence of this method.      The program is set up for One Humdred entries.  This    can be changed by adjusting the DIM star Card List: press <O>     This will print out a list similar to the Birthday card list. Please see that section for more information.  Finish: press <F>     This function must be used everytime you are finished   using the Holiday Address Manager. Failure to do so could    result in the loss of data. You will be asked to confirm the finish procedure. Press any key to continue.     The computer will determine if it is necessary to       resave your files. If this is needed, you will hear the data pack bility. Please be sure a distribute all three  files connected with this program when making copies. (HAM,  Instruct, and HAMset.)     There are additional instructions imbedded w/in the     program. Please 'LIST' it to read those.     This program is distributed via the FreeWare system.    Software/$ contributions will be accepted by the Author!     Your support will allow the continuence of this method.      The program is set up for One Humdred entries.  This    can be changed by adjusting the DIM staanguage, type NEW <return>.     Remember, never turn off your system with a tape in the drive!     REV 8.1 UPDATES     Before running HAM you must first run the HAMset        program. This is very important!     This program will function best if put on a disk/DDP by itself. (In other words, no other programs on the media.)     You are limited to 14 letters and spaces in the name    area. 14 in address, and 20 in City State Zip     There are some known bugs in the program. The author    accepts no lia see the Phone List       section for information on exits and paper selection etc.Birthday Card List: press <B>     This will print the date, name, and address of all      people with birthdays during the indicated month. The        computer will ask you to input the month you want a print    out for. Enter the month using the standard three letter     abbreviation. Information will be printed in mailing label   format. Please see the Phone List section for information on paper type and exits etc.Othetements at the        begining of the program.  I would not suggest making it      higher as you must change other areas of the program to do   this and it will effect the performance of HAM.is very important!     This program will function best if put on a disk/DDP by itself. (In other words, no other programs on the media.)     You are limited to 14 letters and spaces in the name    area. 14 in address, and 20 in City State Zip     There are some known bugs in the program. The author    accepts no liago into operation. Your screen will report on the       progress of the procedure. Do not remove your data pack      until the screen clears and displays "Goodbye!". Then and    only then is it safe to open the drive door!     If ADAM determines that it is not neccasary to re-save  your files then you will see the "Goodbye!" screen displayed immediatly. It is safe to remove the data pack from the      drive.     You are now done using the Holiday Address Manager. To  continue using your SmartBasic lx	Efun-house maze.  Every room appears identical except for a letter painted on  the wall. However, these letters will change as you move     about the maze. It is not uncommCOMMITTED! Adventure gamePlaying Hints     COMMITTED! takes place in an abandoned fun-house maze.  Every room appears identical except for a letter painted on  the wall. However, these letters will change as you move     about the maze. It is not uncååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååru P.  The first time you enter a room you will be given the correct letter for that room.     Each room has four doors. To move about the maze, type  'open <door #>'. You may either spell out the number (ie.    four) or use the number keys (ie. 4). In addition, open can  be input as the single letter 'o'. The computer will         automatically move you into the adjoing room in the          direction you indicated, if this is possible!  Some doors    open to brick walls and some lead nowhere.  You may:CALL s260TEXT:END270REM    intialize280DATA    58,102,109,211,255,201290 s=28000300 c=28006310FOR a=s TO s+5320READ b330POKE a, b340NEXT a350RETURN65535REM   ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååommon to have two or more rooms all with the same letter!          *Hints*     The main goal of the game is to find the exit to the    maze. There are several other goals, one of which is to find a small bag of gold that is lost somewhere among the rooms.     Input must usually be in the standard adventure game    format. (two words) For example, get gold. Use all lower     case letter in your input! For a list of some commands type  help.     The rooms in COMMITTED! are identified with the letters A th2REM    Dave's Revenge5REM    by DB Jacksch10HGR:HPLOT 127, 9520LOMEM :2900030ONERR  GOTO 19040GOSUB 28050POKE c, 228:CALL s60 p=n:HCOLOR =170 h=RND(1)*12780 m=RND(1)*127+12890HCOLOR =RND(1)*15+1100HPLOT  TO m-63, h110IF p<127 THEN 130120 n=h: a=-1:GOTO 140130 n=m: a=1140FOR m=p TO n STEP a150POKE c, m:CALL s160NEXT m170GOTO 50180REM      silence190POKE c, 191:CALL s200POKE c, 223:CALL s210POKE c, 255:CALL s220POKE c, 158:CALL s230POKE c, 63:CALL s240POKE c, 95:CALL s250POKE c, 127 usually  assume that the doors are layed out in the four compass      directions with number one being north.     There is a way to turn off the machinery that is making the room letters switch around! Finding it can be a big      help!                 To save your current game for play at a later time,     type 'save game'. The computer will store you current        posistion etc. on data pack or disk.     Good luck!commands type  help.     The rooms in COMMITTED! are identified with the letters A th1REM         PIANO PLUS written by Gordon Meyer 1985.  Limited  L icence granted to share at no cost. BBS uploading okay. ‰‰2REM          info for program came from Adam's Companion by    Benson and Rochester (Avon). Highly Recmended! 4REM     VERSION 2.5  3/16/85 added output subroutine and wildcard help"8TEXT9LOMEM :2900010GOSUB 1000020 toot=14430 offtoot=15940 bytespot=2800650 mhertz=359700060 tempo=2070HOME:?: b$="'DO NOT STAMP' Software": vt=1:GOSUB 6000:?: b$="ADAM  Piano  Plus": vt49IF k=54 THEN  pitch=207.65:GOTO 2000:REM       G# oct3150IF k=55 THEN  pitch=466.16:GOTO 2000:REM       A# octave 4151IF k=57 THEN  pitch=277.18:GOTO 2000:REM       C# oct4152IF k=48 THEN  pitch=311.13:GOTO 2000:REM        D# oct4153IF k=27 THEN POKE bytespot, offtoot:CALL startsound:TEXT:END:REM        exit program154POKE bytespot, offtoot:CALL startsound:GOTO 1152000REM               >>>>Play the note<<<<<2020 twopitch=pitch/162030 onepitch=128+(pitch-twopitch*16)2040POKE bytespot, onepitch:CALEM       c oct2123IF k=118 THEN  pitch=73.415:GOTO 2000:REM       D oct2124IF k=98 THEN  pitch=82.408:GOTO 2000:REM        E oct2125IF k=110 THEN  pitch=87.308:GOTO 2000:REM        F oct2126IF k=109 THEN  pitch=97.998:GOTO 2000:REM        G oct2127IF k=44 THEN  pitch=220:GOTO 2000:REM        A oct3128IF k=46 THEN  pitch=246.94:GOTO 2000:REM        B oct3129IF k=115 THEN  pitch=116.64:GOTO 2000:REM        A# oct2130IF k=102 THEN  pitch=69.295:GOTO 2000:REM        C# oct2131IF k=103 THEN  pitch=77.7810? "(Three Octave Range)"3011? "To vary note length change"3012? "value of 'i' in line 2065"3013GOTO 1155000REM      5010GR5015COLOR =75020FOR r=0 TO 395025HLIN 0, 39 AT r5030NEXT r5032COLOR =85035HLIN 10, 5 AT 155040VLIN 15, 18 AT 55045HLIN 5, 12 AT 185050VLIN 18, 22 AT 125055HLIN 12, 1 AT 225060VLIN 18, 27 AT 155065HLIN 15, 19 AT 185070VLIN 18, 22 AT 195075HLIN 15, 19 AT 225080VLIN 18, 22 AT 225085HLIN 22, 26 AT 185090VLIN 18, 22 AT 265095HLIN 22, 26 AT 225100VLIN 18, 22 AT 29510121 THEN  pitch=440:GOTO 2000:REM       A octave 4141IF k=117 THEN  pitch=493.88:GOTO 2000:REM       B oct4142IF k=105 THEN  pitch=261.62:GOTO 2000:REM       C oct4143IF k=111 THEN  pitch=293.66:GOTO 2000:REM       D oct4144IF k=112 THEN  pitch=329.63:GOTO 2000:REM       E oct4145IF k=91 THEN  pitch=349.23:GOTO 2000:REM       F oct4146IF k=50 THEN  pitch=138.59:GOTO 2000:REM       C# oct3147IF k=51 THEN  pitch=155.57:GOTO 2000:REM       D# oct3148IF k=53 THEN  pitch=185:GOTO 2000:REM       F# oct31=3:GOSUB 600071 b$="Public Domain release by:": vt=6:GOSUB 6000: b$="Gordon Meyer": vt=8:GOSUB 600072?:?:?:?:?:? "Caps lock must be off!":?:? "Press <WILD CARD> for Help."73?:? "Press <ESCAPE> to exit program."115 k=PEEK(64885):REM         k now equals last keypress 116IF k=last THEN 115117 last=k118IF k=144 THEN 3000119IF k=17 THEN 5000120IF k=122 THEN  pitch=110:GOTO 2000:REM        A octave 2121IF k=120 THEN  pitch=123.47:GOTO 2000:REM        B oct2122IF k=99 THEN  pitch=65.405:GOTO 2000:RL startsound2050POKE bytespot, twopitch:CALL startsoun2060POKE bytespot, toot:CALL startsound2065FOR i=1 TO 200:NEXT i:POKE bytespot, offtoot:CALL startsound2090GOTO 1153000TEXT:? "Approx. Note.(Key=Note)":?3001? "Z=A", "X=B"3002? "C=C", "V=D":? "B=E", "N=F"3003? "M=G", ",=A":? ".=B", "S=A#"3004? "F=C#", "G=D#":? "J=F#", "K=G#"3005? "L=A#", "Q=C":? "W=D", "E=E"3006? "R=F", "T=G":? "Y=A", "U=B"3007? "I=C", "O=D":? "P=E", "[=F"3008? "2=C#", "3=D#":? "5=F#", "6=G#"3009? "7=A#", "9=C#":? "0=D#"303:GOTO 2000:REM        D# oct2132IF k=106 THEN  pitch=92.498:GOTO 2000:REM        F# octave2133IF k=107 THEN  pitch=103.83:GOTO 2000:REM        G# oct2134IF k=108 THEN  pitch=233.08:GOTO 2000:REM        a# oct3135IF k=113 THEN  pitch=130.81:GOTO 2000:REM       C oct3136IF k=119 THEN  pitch=146.83:GOTO 2000:REM       D octave3137IF k=101 THEN  pitch=164.82:GOTO 2000:REM       E oct3138IF k=114 THEN  pitch=174.62:GOTO 2000:REM       F oct3139IF k=116 THEN  pitch=196:GOTO 2000:REM       G oct3140IF k=5HLIN 29, 33 AT 185110VLIN 18, 22 AT 335115HLIN 29, 33 AT 225120VLIN 16, 22 AT 365125PLOT 36, 245128COLOR =105130HLIN 10, 39 AT 305135 vt=3: b$="(c)1985   Gordon R. Meyer":GOSUB 60005140GOTO 1156000REM    ** output subroutine**6005 m=LEN(b$)6010IF m/2<>INT(m/2) THEN  b$=b$+" ": m=m+16015FOR n=1 TO m/26020VTAB vt:HTAB 16-n:? LEFT$(b$, n); RIGHT$(b$, n); 6025NEXT n6030RETURN10000REM         ....set-up for sound maker....10010DATA               58,102,109,211,255,20110020 startsound=28000100154 THEN  y=154210IF y<0 THEN  y=0220HPLOT x, y230GOTO 20250HOME252IF PDL(13)=15 THEN 252255ON PDL(13) GOTO 260, 270, 280, 290, 300, 310, 320, 330, 340, 390, 350260 c=2:? "RED":GOTO 20270 c=8:? "YELLOW":GOTO 20280 c=9:? "BLUE":GOTO 20290 c=12:? "GREEN":GOTO 20300 c=15:? "PURPLE":GOTO 20310 c=14:? "AQUA":GOTO 20320 c=11:? "PINK":GOTO 20330 c=3:? "WHITE":GOTO 20340 c=4:? "BLACK":GOTO 20350? "RED=1, YELLOW=2, BLUE=3,":? "GREEN=4, PURPLE=5, AQUA=6,"360? "PINK=7, WHITE=8, BLACK=9"370IF PDL(13)=2REM        ART GALLERY  5REM       By D. Jacksch  10HGR220 h=INT(RND(1)*15+1):IF h=4 THEN  h=125HCOLOR =h30 a=RND(1)*90: b=RND(1)*50+10040 c=RND(1)*90: d=RND(1)*105+5050FOR i=1 TO 100 STEP 560HPLOT 40, a+i TO b+i, 180 TO c+i, d TO 40, a+i70NEXT80FOR i=1 TO 2000:NEXT90GOTO 10ApB·SWBLOCKS LEFTê154 THEN  y=154210IF y<0 THEN  y=0220HPLOT x, y230GOTO 20250HOME252IF PDL(13)=15 THEN 252255ON PDL(13) GOTO 260, 270, 280, 290, 300, 310, 320, 330, 340, 390, 350260 c=2:? "RED":GOTO 20270 c=8:? "YELLOW":GOTO 20280 c=9:? "BLUE":GOTO 20290 c=12:? "GREEN":GOTO 20300 c=15:? "PURPLE":GOTO 20310 c=14:? "AQUA":GOTO 20320 c=11:? "PINK":GOTO 20330 c=3:? "WHITE":GOTO 20340 c=4:? "BLACK":GOTO 20350? "RED=1, YELLOW=2, BLUE=3,":? "GREEN=4, PURPLE=5, AQUA=6,"360? "PINK=7, WHITE=8, BLACK=9"370IF PDL(13)=2TEXT:VTAB 12:? "_>>>>>> DAVE'S CRAYONS <<<<<<<"; 4FOR i=1 TO 6000:NEXT10HGR15? "CHANGE A COLOR WITH THE RIGHT-":? "HAND BUTTON, AND PUSH A NUMBER"18 x=127: y=7720IF PDL(9) THEN 25030IF PDL(5)=0 THEN 2035HCOLOR =c40ON PDL(5) GOTO 100, 110, 120, 130, 1, 140, 1, 150, 160, 1, 1, 170100 y=y-1:GOTO 180110 x=x+1:GOTO 180120 x=x+1: y=y-1:GOTO 180130 y=y+1:GOTO 180140 x=x+1: y=y+1:GOTO 180150 x=x-1:GOTO 180160 x=x-1: y=y-1:GOTO 180170 x=x-1: y=y+1180IF x>254 THEN  x=254190IF x<0 THEN  x=0200IF y>25REM          this pokes a Z80 ML routine into memory that  activates the soundport 10030FOR address=startsound TO startsound+510040READ byte10050POKE address, byte10060NEXT address10070RETURN85035HLIN 10, 5 AT 155040VLIN 15, 18 AT 55045HLIN 5, 12 AT 185050VLIN 18, 22 AT 125055HLIN 12, 1 AT 225060VLIN 18, 27 AT 155065HLIN 15, 19 AT 185070VLIN 18, 22 AT 195075HLIN 15, 19 AT 225080VLIN 18, 22 AT 225085HLIN 22, 26 AT 185090VLIN 18, 22 AT 265095HLIN 22, 26 AT 225100VLIN 18, 22 AT 2951015 THEN 370380HOME:GOTO 255390HOME:? "TO ERASE THE SCREEN:":? "PRESS THE LEFT FIRE-BUTTON."400IF PDL(7)=0 AND PDL(9)=0 THEN 400410IF PDL(7)=1 THEN 10420GOTO 38020IF PDL(9) THEN 25030IF PDL(5)=0 THEN 2035HCOLOR =c40ON PDL(5) GOTO 100, 110, 120, 130, 1, 140, 1, 150, 160, 1, 1, 170100 y=y-1:GOTO 180110 x=x+1:GOTO 180120 x=x+1: y=y-1:GOTO 180130 y=y+1:GOTO 180140 x=x+1: y=y+1:GOTO 180150 x=x-1:GOTO 180160 x=x-1: y=y-1:GOTO 180170 x=x-1: y=y+1180IF x>254 THEN  x=254190IF x<0 THEN  x=0200IF y>180GOTO 1120190REM         fsdfsfd200HGR:HCOLOR =3210FOR n=1 TO linecount*2 STEP 2220HPLOT xp(pc(n)), yp(pc(n)) TO xp(pc(n+1)), yp(pc(n+1))230NEXT n240RETURN250REM         sfdf260FOR n=1 TO pntcount270 xp(n)=(x(n)*vz)/(z(n)+vz)280 yp(n)=(y(n)*vz)/(z(n)+vz)290NEXT n300FOR n=1 TO pntcount310 xp(n)=((vz-z(n))*xp(n))/vz:IF xp(n)<0 THEN  xp(n)=0320 yp(n)=((vz-z(n))*yp(n))/vz:IF yp(n)<0 THEN  yp(n)=0330NEXT n340RETURN350REM       asfdas360FOR n=1 TO pntcount370 yr=(y(n)-yctr)*COS(rad)-(z(n)-zctp(size)1160DIM pc(size*3)1170DIM deg(3)1180GOTO 9601190REM         dfksjkjf1200 pntcount=10: linecount=131210FOR n=1 TO pntcount1220READ x(n), y(n), z(n)1230 y(n)=ABS(y(n)-160)1240NEXT n1250DATA      100,120,0,180,120,0,180,40,0,100,40,0,100,40,80,100,120,80,180,120,80,180,40,80,140,40,0,140,50,01260FOR n=1 TO linecount*21270READ pc(n)1280NEXT n1290DATA         1,2,2,3,3,4,4,1,5,6,6,7,7,8,8,5,1,6,2,7,3,8,4,5,9,101300RESTORE1310RETURN1320REM         fdfsfs1330FOR advance=1 TO 561340READ dprwe570 xmax=0: ymax=0: zmax=0: xsml=280: ysml=160: zsml=300580FOR n=1 TO pntcount590IF x(n)<xsml THEN  xsml=x(n)600IF x(n)>xmax THEN  xmax=x(n)610IF y(n)<ysml THEN  ysml=y(n)620IF y(n)>ymax THEN  ymax=y(n)630IF z(n)<zsml THEN  zsml=z(n)640IF z(n)>zmax THEN  zmax=z(n)650NEXT n660 xctr=(xsml+xmax)/2: yctr=(ysml+ymax)/2: zctr=(zsml+zmax)/2670RETURN680REM       fsdfasd690GOSUB 560700FOR axis=3 TO 1 STEP -1710IF deg(axis)=0 OR deg(axis)=360 THEN 740720 rad=deg(axis)/57.2958730ON axis GOSUB 350, BS(y(n)-160)1560NEXT n1570DATA      100,40,0,180,40,0,180,40,100,100,40,100,100,110,0,100,110,100,140,140,100,180,110,100,180,110,0,140,140,0,180,40,201571DATA      180,80,20,180,80,40,180,40,40,120,60,0,160,60,0,160,80,0,120,80,01580FOR n=1 TO linecount*21590READ pc(n)1600NEXT n1610DATA         1,2,2,3,3,4,4,1,1,5,5,6,6,7,7,8,8,9,9,10,10,5,10,7,3,8,4,6,2,9,11,12,12,13,13,14,15,16,16,17,17,18,18,151620RESTORE1630RETURN1640REM         fsdfs1650REM       fsfsd2000REM         sdfsfs2010TEXT:HOME2OPTIONS:"1000VTAB 9:HTAB 5:? "1) CUBE"1010VTAB 11:HTAB 5:? "2) PYRAMID"1020VTAB 13:HTAB 5:? "3) HOUSE"1030VTAB 15:HTAB 5:? "4) LOAD OBJECT FROM DISK"1040VTAB 17:HTAB 5:? "5) QUIT"1050VTAB 20:HTAB 1:? "CHOOSE 1-5:"; 1060GET k$: obj=VAL(k$):IF obj<1 OR obj>5 THEN 10601070? k$; 1080ON obj GOSUB 1190, 1320, 1480, 1640, 20001090GOSUB 250:GOSUB 1901100GOSUB 7901110GOTO 9601120REM       fsdf1125INVERSE1130 d$=CHR$(4): size=20: vz=-15000: clr=-9581140DIM x(size), y(size), z(size)1150DIM xp(size), yr)*SIN(rad)+yctr380 zr=(z(n)-zctr)*COS(rad)+(y(n)-yctr)*SIN(rad)+zctr390 y(n)=yr: z(n)=zr400NEXT n410RETURN420REM       fsfdsf430FOR n=1 TO pntcount440 xr=(z(n)-zctr)*SIN(rad)+(x(n)-xctr)*COS(rad)+xctr450 zr=(z(n)-zctr)*COS(rad)-(x(n)-xctr)*SIN(rad)+zctr460 x(n)=xr: z(n)=zr470NEXT n480RETURN490REM       fsfsd500FOR n=1 TO pntcount510 xr=(x(n)-xctr)*COS(rad)-(y(n)-yctr)*SIN(rad)+xctr520 yr=(x(n)-xctr)*SIN(rad)+(y(n)-yctr)*COS(rad)+yctr530 x(n)=xr: y(n)=yr540NEXT n550RETURN560REM        rwe1350NEXT advance1360 pntcount=7: linecount=91370FOR n=1 TO pntcount1380READ x(n), y(n), z(n)1390 y(n)=ABS(y(n)-160)1400NEXT n1410DATA       90,40,0,190,40,0,190,40,100,90,40,100,140,120,50,140,40,0,140,50,51420FOR n=1 TO linecount*21430READ pc(n)1440NEXT n1450DATA         1,2,2,3,3,4,4,1,1,5,5,4,2,5,5,3,6,71460RESTORE1470RETURN1480REM         kljljlk1490FOR advance=1 TO 951500READ dp1510NEXT advance1520 pntcount=18: linecount=221530FOR n=1 TO pntcount1540READ x(n), y(n), z(n)1550 y(n)=A420, 490740NEXT axis750GOSUB 250760GOSUB 190770ON obj GOSUB 1190, 1320, 1480780RETURN790REM       jhgjh800VTAB 21:HTAB 1:CALL clr810VTAB 1:HTAB 1:? "ENTER DEGREES TO ROTATE AXIS"850VTAB 22:HTAB 3:INPUT "X-AXIS:"; deg(1)860IF deg(1)=999 THEN RETURN870HTAB 3:INPUT "Y-AXIS:"; deg(2)880HTAB 3:INPUT "Z-AXIS:"; deg(3)890VTAB 21:HTAB 1:CALL clr940GOSUB 680950GOTO 790960REM       fsfdf965INVERSE970TEXT:HOME:HTAB 11:? "3-D OBJECT DISPLAY"980HTAB 11:FOR n=1 TO 18:? "-"; :NEXT n990VTAB 6:HTAB 1:? "020ENDXT advance1360 pntcount=7: linecount=91370FOR n=1 TO pntcount1380READ x(n), y(n), z(n)1390 y(n)=ABS(y(n)-160)1400NEXT n1410DATA       90,40,0,190,40,0,190,40,100,90,40,100,140,120,50,140,40,0,140,50,51420FOR n=1 TO linecount*21430READ pc(n)1440NEXT n1450DATA         1,2,2,3,3,4,4,1,1,5,5,4,2,5,5,3,6,71460RESTORE1470RETURN1480REM         kljljlk1490FOR advance=1 TO 951500READ dp1510NEXT advance1520 pntcount=18: linecount=221530FOR n=1 TO pntcount1540READ x(n), y(n), z(n)1550 y(n)=A                *"350? "*               VENTANA IS WINDOW                 *"355? "*               FIESTA  IS PARTY                  *"360? "*             CONCIERTO IS CONCERT                *"365? "*               EXAMEN  IS EXAM                   *"370? "*               PELO    IS HAIR                   *"375? "*               CASA    IS HOUSE                  *"380? "*                                                 *"385? "*                                                 *"390? "***************10REM  --JAMES D. KONKEL--15REM   use all upper case20REM  --ASSIGNMENT 2B IN BASIC--30? "*************************************************"40? "*            SPANISH VOCABULARY QUIZ            *"50? "*            SPANISH VOCABULARY QUIZ            *"60? "*************************************************"70? "THIS A VOCABULARY QUIZ OF SPANISH WORDS.  YOU WILL"80? "BE ASKED TO SUPPLY THE ENGLISH EQUIVILANT.  PLEASE"90? "USE THE MOST POPULAR EQUIVILANT OR YOU WILL GET IT"100? "WRONG."110? "EACH QUES                *"350? "*               VENTANA IS WINDOW                 *"355? "*               FIESTA  IS PARTY                  *"360? "*             CONCIERTO IS CONCERT                *"365? "*               EXAMEN  IS EXAM                   *"370? "*               PELO    IS HAIR                   *"375? "*               CASA    IS HOUSE                  *"380? "*                                                 *"385? "*                                                 *"390? "*************** <Y OR N>"; p$302IF p$="Y" THEN GOTO 310303GOTO 395305?310? "***************************************************"315? "*                                                 *"320? "*            THE CORRECT ANSWERS ARE:             *"325? "*                                                 *"330? "*               BUFANDA IS SCARF                  *"335? "*               BANDERA IS FLAG                   *"340? "*               VESTIDO IS DRESS                  *"345? "*               PUERTA  IS DOOR   BS(y(n)-160)1560NEXT n1570DATA      100,40,0,180,40,0,180,40,100,100,40,100,100,110,0,100,110,100,140,140,100,180,110,100,180,110,0,140,140,0,180,40,201571DATA      180,80,20,180,80,40,180,40,40,120,60,0,160,60,0,160,80,0,120,80,01580FOR n=1 TO linecount*21590READ pc(n)1600NEXT n1610DATA         1,2,2,3,3,4,4,1,1,5,5,6,6,7,7,8,8,9,9,10,10,5,10,7,3,8,4,6,2,9,11,12,12,13,13,14,15,16,16,17,17,18,18,151620RESTORE1630RETURN1640REM         fsdfs1650REM       fsfsd2000REM         sdfsfs2010TEXT:HOME2************************************"395?399REM  --DATA STATEMENTS--500DATA   "BUFANDA","SCARF","BANDERA","FLAG"510DATA   "VESTIDO","DRESS","PUERTA","DOOR","VENTANA"520DATA   "WINDOW","FIESTA","PARTY","CONCIERTO","CONCERT"530DATA   "EXAMEN","EXAM","PELO","HAIR","CASA","HOUSE"540DATA   "XXX","LLL"999END     BUFANDA IS SCARF                  *"335? "*               BANDERA IS FLAG                   *"340? "*               VESTIDO IS DRESS                  *"345? "*               PUERTA  IS DOOR   TION IS WORTH 10 POINTS.  A SCORE OF:"120? "               90-100  =A"130? "               80-90   =B"140? "               70-80   =C"150? "               60-70   =D"160? "               LESS THAN 60= SEE YOUR TEACHER!!!"170?180LET count=0200READ q$, a$205IF q$="XXX" THEN 299230? "WHAT IS A "; q$; "?"240INPUT ya$242IF ya$<>a$ THEN GOTO 250245? "CORRECT"248 count=count+10249GOTO 200250? "WRONG"255GOTO 200299? "YOUR SCORE IS: "; count; "    "301INPUT "DO YOU WANT TO SEE THE CORRECT ANSWERS?1HOME2? TAB(13); "ELIZA"4?:?:?80DIM z$(80)100DIM s(36), r(36), n(36)110 n1=36: n2=14: n3=112120FOR x=1 TO (n1+n2+n3)121READ z$122NEXT x130FOR x=1 TO n1140READ s(x), l: r(x)=s(x): n(x)=s(x)+l-1150NEXT x160? "Hi, I'm Eliza.  What's ":? "  your problem? "200INPUT i$201 i$=" "+i$+" "210?220FOR l=1 TO LEN(i$)230IF MID$(i$, l, 1)="'" THEN LET i$=LEFT$(i$, l-1)+RIGHT$(i$, LEN(i$)-l):GOTO 230240IF l+4<=LEN(i$) THEN IF MID$(i$, l, 4)="shut" THEN ? "Shut up...":END250NEXT l255IF i$=p$ THEN ? "Plea1380DATA      "Does it please you to believe I am*"1390DATA      "Perhaps you would like to be*"1400DATA      "Do you sometimes wish you were*"1410DATA   "Don't you really*"1420DATA      "Why don't you*"1430DATA      "Do you wish to be able to*"1440DATA      "Does that trouble you?"1450DATA      "tell me more about such feelingT."1460DATA      "Do you often feel*"1470DATA     "Do you enjoy feeling*"1480DATA      "Do you really believe I don't*"1490DATA      "Perhaps in good time I will*"1500DATAF MID$(c$, l, LEN(s$))<>s$ THEN 510490 c$=LEFT$(c$, l-1)+r$+RIGHT$(c$, LEN(c$)-l-LEN(s$)+1)495 l=l+LEN(r$)500GOTO 540510IF l+LEN(r$)>LEN(c$) THEN 540520IF MID$(c$, l, LEN(r$))<>r$ THEN 540530 c$=LEFT$(c$, l-1)+s$+RIGHT$(c$, LEN(c$)-l-LEN(r$)+1)535 l=LEN(s$)540NEXT l550NEXT x555IF MID$(c$, 2, 1)+" " THEN  c$=RIGHT$(c$, LEN(c$)-1)556FOR l=1 TO LEN(c$)557IF MID$(c$, l, 1)="!" THEN  c$=LEFT$(c$, l-1)+RIGHT$(c$, LEN(c$)-l):GOTO 557558NEXT l590RESTORE:FOR x=1 TO n1+n2:READ z$:NEXT x600FOR x=1 TO r( to be*"1620DATA      "Do you enjoy being*"1630DATA      "We were discussing you-- not me."1640DATA       "Oh, I *"1650DATA      "You're not really talking about me, are you?"1660DATA      "What would it mean to you if you got*"1670DATA      "Why do you want*"1680DATA      "Suppose you soon got*"1690DATA      "What if you never got*"1700DATA      "I sometimes also want*"1710DATA      "Why do you ask?"1720DATA      "Does that question interest you?"1730DATA      "What answer would please you the no","your","always","think","alike","yes","friend"1100DATA      "computer","nokeyfound"1230DATA      " are "," am ","were ","was "," you "," I ","your ","my "1235DATA      " Ive "," youve "," Im "," youre "1240DATA      " me "," !you "1330DATA      "Don't you believe that I can*"1340DATA      "Perhaps you would like to be able to*"1350DATA      "You want me to be able to*"1360DATA      "Perhaps you don't want to*"1365DATA      "Do you want to be able to*"1370DATA      "What makes you think I am*"se don't repeat yourself!":GOTO 200290RESTORE295 s=0300FOR k=1 TO n1310READ k$315IF s>0 THEN 360320FOR l=1 TO LEN(i$)-LEN(k$)+1340IF MID$(i$, l, LEN(k$))=k$ THEN LET s=k: t=l: f$=k$350NEXT l360NEXT k365IF s>0 THEN LET k=s: l=t:GOTO 420370 k=36:GOTO 590380REM          420's next...420RESTORE:FOR x=1 TO n1:READ z$:NEXT x425IF LEN(i$)-LEN(f$)-l+1<1 THEN 1000430 c$=" "+RIGHT$(i$, LEN(i$)-LEN(f$)-l+1)+" "440FOR x=1 TO n2/2450READ s$, r$460FOR l=1 TO LEN(c$)470IF l+LEN(s$)>LEN(c$) THEN 510480I      "Do you want me to*"1510DATA      "Do you think you should be able to*"1520DATA      "Why can't you*"1530DATA      "Why are you interested in whether or not I am*"1540DATA      "Would you prefer if I were not*"1550DATA      "Perhaps in your fantasies I am*"1560DATA      "How do you know I can't*"1570DATA      "Have you tried?"1580DATA      "Perhaps you can now*"1590DATA      "Did you come here because you are*"1600DATA      "How long have you been*"1610DATA      "Do you believe it is normalk):READ f$:NEXT x610 r(k)=r(k)+1:IF r(k)>n(k) THEN  r(k)=s(k)620IF RIGHT$(f$, 1)<>"*" THEN ? f$: p$=i$:GOTO 200630? LEFT$(f$, LEN(f$)-1); c$640 p$=i$:GOTO 2001000? "It's alright-- I'm here to help you"1005GOTO 2001050DATA      "can you","can I","you are","youre","i dont","I feel"1060DATA    "why dont you","why cant I","are you","I cant","I am","Im"1070DATA      "you ","I want","what","how","who","where","when","why"1080DATA      "name","cause","sorry","dream","hello","hi ","maybe"1090DATA      " most?"1740DATA      "What do you think?"1750DATA      "Are such questions on your mind often?"1760DATA     "What is it that you really want to know?"1770DATA      "Have you asked anyone else?"1780DATA      "Have you asked such questions before?"1790DATA      "What else comes to mind when you ask that?"1800DATA      "Names don't interest me."1810DATA      "I don't care about names-- Please go on."1820DATA      "Is that the real reason?"1830DATA      "Don't any other reasons come to mind?"1840DATA 0DATA     "Why do you mention computers?"2340DATA     "What do you think machines have to do with your problem?"2350DATA     "Don't you think computers can help people?"2360DATA     "What is it about machines that worries you?"2370DATA     "Say, do you have any psychological problems?"2380DATA     "What does that suggest to you?"2390DATA     "I see."2400DATA     "I'm not sure i understand you fully."2410DATA     "Come come elucidate your thoughts."2420DATA     "Can you elaborate on that?"2430DATA  your problem."1950DATA     "You don't seem quite certain."1960DATA     "Why the uncertain tone?"1970DATA     "Can't you be more positive?"1980DATA     "You aren't sure?"1990DATA     "Don't you know?"2000DATA     "Are you saying no just to be negative?"2010DATA     "You are being a bit negative."2020DATA      "Why not?"2030DATA     "Are you sure?"2040DATA     "Why no?"2050DATA     "Why are you concerned about my*"2060DATA     "What about your own*"2070DATA     "Can you think of a specific examp0DATA     "Why do you mention computers?"2340DATA     "What do you think machines have to do with your problem?"2350DATA     "Don't you think computers can help people?"2360DATA     "What is it about machines that worries you?"2370DATA     "Say, do you have any psychological problems?"2380DATA     "What does that suggest to you?"2390DATA     "I see."2400DATA     "I'm not sure i understand you fully."2410DATA     "Come come elucidate your thoughts."2420DATA     "Can you elaborate on that?"2430DATA    "Are you sure?"2220DATA     "I see."2230DATA     "I understand."2240DATA     "Why do you bring up the topic of friends?"2250DATA     "Do your friends worry you?"2260DATA     "Do your friends pick on you?" 2270DATA     "Are you sure you have any friends?"2280DATA     "Do you impose on your friends?"2290DATA     "Perhaps your love for friends worries you."2300DATA     "Do computers worry you?"2310DATA     "Are you talking about me in particular?"2320DATA     "Are you frightened by machines?"233     "Does that reason explain anything else?"1850DATA      "What other reasons might there be?"1860DATA      "Please don't apologize!"1870DATA      "Apologies aren't necessary."1880DATA      "What feelings do you have when you apologize?"1890DATA      "Don't be so defensive!"1900DATA      "What does that dream suggest to you?"1910DATA     "Do you dream often?"1920DATA     "What persons appear in your dreams?"1930DATA     "Are you disturbed by your dreams?"1940DATA     "How do you ... Please state    "That is quite interesting."2530DATA      1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,32540DATA      28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,92550DATA      49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,42560DATA      80,3,83,7,90,3,93,6,99,7,106,680DATA     "Do you impose on your friends?"2290DATA     "Perhaps your love for friends worries you."2300DATA     "Do computers worry you?"2310DATA     "Are you talking about me in particular?"2320DATA     "Are you frightened by machines?"233le?"2080DATA     "When?"2090DATA   "What are you thinking of?"2100DATA     "Really, always?"2110DATA     "Do you really think so?"2120DATA     "But you are not sure you*"2130DATA     "Do you doubt you*"2140DATA     "In what way?"2150DATA     "What resemblance do you see?"2160DATA     "What does the similarity suggest to you?" 2170DATA     "What other connections do you see?"2180DATA     "Could there really be some connection?"2190DATA     "How?"2200DATA     "You seem quite positive."2210DATA  20HOME30? "please plug controller into"40? "port #1. use keypad for input."50? TAB(36); "press any key to begin."60GET r$70HOME80HGR90FOR i=1 TO 8100READ j(i), xt(i), yt(i)110NEXT i120READ x, y, nc, s130VTAB 22140? "use stick to draw <fire>=erase"; 150? "1=change color 3=draw face"160? "7=quit"; SPC(9); "9=clear screen"170IF s=1 THEN HCOLOR =0:HPLOT hc, hr180HCOLOR =nc190HPLOT x, y200 hc=x210 hr=y219REM  220 k=PDL(13)230IF k=15 THEN 300240IF k=1 THEN  nc=nc+1250IF nc=3 THEN  nc=5260500TEXT:HOME:SPEED =90505VTAB 8508SPEED =210510? "      ____________________"512? "      B                  B           B                  B           B                  B "513? "      B  THE COMBINATION B           B                  B           B   <NUMBER GAME>  B "514? "      B                  B           B                  B           --------------------"550IF r$="turquoise" THEN VTAB 22:HTAB 12:? "TURQUOISE":? "  good for you,<correct>"555IF r$="turquoise" THEN 707700SPEED =255701FOR t=1 8,-1,0,9,-1,-1,12,-1,11020DATA     128,80,2,2ort #1. use keypad for input."50? TAB(36); "press any key to begin."60GET r$70HOME80HGR90FOR i=1 TO 8100READ j(i), xt(i), yt(i)110NEXT i120READ x, y, nc, s130VTAB 22140? "use stick to draw <fire>=erase"; 150? "1=change color 3=draw face"160? "7=quit"; SPC(9); "9=clear screen"170IF s=1 THEN HCOLOR =0:HPLOT hc, hr180HCOLOR =nc190HPLOT x, y200 hc=x210 hr=y219REM  220 k=PDL(13)230IF k=15 THEN 300240IF k=1 THEN  nc=nc+1250IF nc=3 THEN  nc=5260B 16:HTAB 11:? "you"728VTAB 15:HTAB 14:FLASH:? " "; b$; " "730VTAB 20:? "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"731NORMAL732SPEED =255735FOR t=500 TO 1 STEP -1740VTAB 23:HTAB 14:? t745NEXT746SPEED =95747HOME748VTAB 5:HTAB 7:? "-RULES OF THE GAME-"749VTAB 8:? CHR$(7)750? " 1) : guess the 3 numbers of         the combination lock"751? CHR$(7)752VTAB 12:? " 2) : the numbers are all            between <.0.&.25.>"753? CHR$(7)754VTAB 16:? " 3) : all 3 numbers must be          found within a total...     480HOME:SPEED =200490? " before we start the game I     need to know one thing!"492VTAB 5:? "what                               is                               your"493? "          favorite                               color?"494?:?:?495INPUT "? "; r$496IF r$="turquoise" OR r$="violet" THEN GOSUB 2000497VTAB 23:HTAB 14:FOR i=100 TO 0 STEP -1:VTAB 23:HTAB 14:? i:NEXT:VTAB 23:HTAB 14:? r$498?:?:SPEED =90:? "thank you":?:?:? "  sorry, that`s not the correct color ! nice try ."499FOR t=1 TO 2500:NEXTIF nc>15 THEN  nc=1270IF k=3 THEN 420280IF k=7 THEN TEXT:HOME:END290IF k=9 THEN RESTORE:GOTO 80300 s=2310IF PDL(7)=1 OR PDL(9)=1 THEN  s=1320 jv=PDL(5)330IF jv=0 THEN 170340FOR i=1 TO 8350IF jv=j(i) THEN  x=x+xt(i): y=y+yt(i): i=8360NEXT i370IF x>254 THEN  x=0380IF x<0 THEN  x=254390IF y>159 THEN  y=0400IF y<0 THEN  y=159410GOTO 170419REM  420FOR i=1/40 TO 8*ATN(1) STEP 1/40430HPLOT SIN(i)*48+127, COS(i)*64+79440NEXT i450GOTO 2001000DATA     1,0,-1,2,1,0,3,1,-1,4,0,11010DATA     6,1,1,TO 6000:NEXT702VTAB 22:HTAB 14:? r$703VTAB 23:HTAB 10:? "YOU'RE KIDDING"705FOR t=200 TO 0 STEP -1706VTAB 20:HTAB 16:INVERSE:? t:NEXT707NORMAL708FOR d=1 TO 4000:NEXT710SPEED =90:HOME715VTAB 5:? "enter your"716FLASH717VTAB 5:HTAB 12718? "first name"719NORMAL720VTAB 5:HTAB 23:INPUT ""; b$721IF b$="bev" OR b$="BEV" THEN  b$=" BUGGS "722IF b$="brent" OR b$="BRENT" THEN  b$=" COOKIE MONSTER "723IF b$="DAVE" OR b$="DAVID" OR b$="DOC" OR b$="dave" THEN  b$="ANIMAL"725VTAB 18:HTAB 5:? "thank"726VTAIF nc>15 THEN  nc=1270IF k=3 THEN 420280IF k=7 THEN TEXT:HOME:END290IF k=9 THEN RESTORE:GOTO 80300 s=2310IF PDL(7)=1 OR PDL(9)=1 THEN  s=1320 jv=PDL(5)330IF jv=0 THEN 170340FOR i=1 TO 8350IF jv=j(i) THEN  x=x+xt(i): y=y+yt(i): i=8360NEXT i370IF x>254 THEN  x=0380IF x<0 THEN  x=254390IF y>159 THEN  y=0400IF y<0 THEN  y=159410GOTO 170419REM  420FOR i=1/40 TO 8*ATN(1) STEP 1/40430HPLOT SIN(i)*48+127, COS(i)*64+79440NEXT i450GOTO 2001000DATA     1,0,-1,2,1,0,3,1,-1,4,0,11010DATA     6,1,1,   of 10 guesses !"755IF b$=" COOKIE MONSTER " THEN VTAB 8:? " 4) : stop eating so much ....     candy or you may lose your     title !"756SPEED =200757FOR u=50 TO 1 STEP -1760VTAB 22:HTAB 13:? u761NEXT u762FOR t=50 TO 0 STEP -1763VTAB 21:HTAB 5:? t764NEXT t767FOR v=50 TO 2 STEP -1768VTAB 21:HTAB 23:? v769NEXT v770SPEED =80771VTAB 23:HTAB 15773FOR t=1 TO 2000:NEXT774SPEED =90775GR777FOR i=0 TO 39:COLOR =RND(1)*15+1:HLIN 0, 39 AT i:NEXT795 h=0796 p=0797 r=LEN(r$)798 n=LEN(b$)799 n=n+r8OR i=19 TO 0 STEP -1:COLOR =7:VLIN 0, 39 AT i:NEXT1549 o=01550GR:COLOR =11552SPEED =2551555 tl=13001560LET c=PDL(13)1565 tl=tl-11570IF c=15 THEN GOTO 15901580COLOR =c1590LET x=39*PDL(3)/255: y=39*PDL(1)/2551600PLOT x, y1610IF PDL(7)=1 THEN END1620VTAB 23:? tl; " "1650IF tl=1 THEN ? "time is expired "; b$:GOTO 17501700GOTO 15601750FOR t=1 TO 25:? CHR$(7):NEXT1755FOR t=1 TO 300:NEXT1760TEXT:HOME1770SPEED =851775 t=01776IF o>0 THEN 18001778?1780? "that brings us to the end of   the game"."931? "the total guesses now = "; h933IF h>11 THEN 1001935NEXT t1000IF p>=3 AND h<11 THEN 10201001IF h>=11 THEN ? "                               it took you too many guesses...sorry..but the games over !"1002SPEED =255:TEXT:END1003FOR t=1 TO 2000:NEXT:SPEED =255:TEXT:HOME1016IF t=3 AND h<11 THEN ? "you did it "; b$:FOR o=1 TO 5000:NEXT:TEXT:HOME1020? "very good"1023? "I'M glad to see you made it    this far "; b$1024FOR i=39 TO 0 STEP -1:COLOR =0:HLIN 0, 39 AT i:FOR t=1 TO 400:NEXT t:NEXT i103RMAL2030FOR d=1 TO 3500:NEXT2040HOME2100GOTO 5002200HOME2201IF b$="BRONCOBUSTER" THEN  b$="CANDY-MAN"2202IF b$="PANTHER BREATH" OR b$="PANTHER-BREATH" THEN  b$="BEVERLY ANN FIKE"2205SPEED =2002210? " Well now "; b$; " what can I do  for you now ?"2220?:?:?:? "enter the number of your sel-  ection.":?2230? " 1) list catalog for you"2240? " 2) replay this game from start "2250? " 3) replay this game -after     the 3 number combination point"2260INPUT q2270IF q=1 THEN  d$=CHR$(4):? d$; "catalog"1533FOR i=0 TO 39:COLOR =12:HLIN 0, 39 AT i:NEXT1534FOR i=39 TO 0 STEP -1:COLOR =8:HLIN 0, 39 AT i:NEXT:SPEED =190:FOR i=0 TO 39:COLOR =12:HLIN 0, 39 AT i:NEXT1535FOR i=0 TO 39 STEP -1:COLOR =14:HLIN 0, 39 AT i:NEXT i:SPEED =2551536FOR i=0 TO 39:COLOR =4:HLIN 0, 39 AT i:NEXT i1537FOR i=0 TO 39:COLOR =2:VLIN 0, 39 AT i:NEXT i1538FOR i=39 TO 0 STEP -1:COLOR =0:HLIN 0, 39 AT i:? CHR$(4):NEXT1539DIM a(2)1540FOR i=19 TO 0 STEP -1:COLOR =7:VLIN 0, 39 AT i:FOR i=20 TO 39:COLOR =7:VLIN 0, 39 AT i:NEXT1541F01FOR t=1 TO 3: p=p+1: n=n-1860 n=RND(-n)865DEF FN d(n)=INT(1+n*RND(1))872? "you need to give me a number   between <.0.&.25.>"875IF b$=" BUGGS " THEN  b$="GIANT"876IF b$=" COOKIE MONSTER " THEN  b$="JEFFREY"880 c=FN d(25)885FOR i=1 TO 50890INPUT " WHAT DO YOU THINK MY NUMBER    IS ? "; g: h=h+1900IF g<c THEN ? "  YOUR GUESS IS TOO LOW."905IF g>c THEN ? "  YOUR GUESS IS TOO HIGH."915IF g=c THEN ? "  GOOD FOR YOU "; b$; " YOU FOUND MY NUMBER.":GOTO 930918NEXT i930? "  IT TOOK YOU "; i; " GUESSES1781IF t>0 THEN END1782?1783 t=o1784IF t=0 THEN ? "but first,would you like to    try the last one once more?"1786IF t=0 THEN INPUT "                               enter...Y....or....N "; q$1787IF q$="y" OR q$="Y" THEN  o=o+11788IF q$="Y" OR q$="y" THEN 15501800? "                                the.......end"1801SPEED =255:IF r$="turquoise" THEN 22001802END2000HOME2010IF r$="violet" THEN ? "violet ? Nice try but not quite correct !":FOR d=1 TO 4000:NEXT d:RETURN2020VTAB 14:HTAB 10:FLASH:? r$:NO0SPEED =1601040TEXT:HOME1507?:?1508?:? "       INSTRUCTIONS: "1510?:? CHR$(7); "1)  use the joystick to move"1512?:? CHR$(7); "2)time remaining is shown at   lower left of screen"1514?:? CHR$(7); "3)press numbers on keypad of   controler for color change,0=  black"1516?:? CHR$(7); "4)if you press left fire       button it will end the game    early"1518VTAB 23:HTAB 10:? "<space-bar>":GET t$:HOME1520?:?:?:? "and away we go"1522SPEED =255:FOR t=1 TO 25:? CHR$(7):NEXT t1530FOR t=1 TO 500:NEXT1532GR2280IF q=2 THEN 4802290IF q=3 THEN 10202299GOTO 2220ut first,would you like to    try the last one once more?"1786IF t=0 THEN INPUT "                               enter...Y....or....N "; q$1787IF q$="y" OR q$="Y" THEN  o=o+11788IF q$="Y" OR q$="y" THEN 15501800? "                                the.......end"1801SPEED =255:IF r$="turquoise" THEN 22001802END2000HOME2010IF r$="violet" THEN ? "violet ? Nice try but not quite correct !":FOR d=1 TO 4000:NEXT d:RETURN2020VTAB 14:HTAB 10:FLASH:? r$:NO your      first name. "; n2$530?:?:? " GIVE NAME OF PLAYER WHO WILL":? " GO FIRST. "535?:INPUT " "; p$540IF p$=n1$ THEN  pn=1550IF p$=n2$ THEN  pn=2560IF p$<>n1$ AND p$<>n2$ THEN 535600HOME:VTAB 8610IF pn=1 THEN  n$=n1$620IF pn=2 THEN  n$=n2$630IF pn<>1 AND pn<>2 THEN  n$=""640IF n$=n1$ THEN  nn$=n2$650IF n$=n2$ THEN  nn$=n1$680? " What is your word "; n$; "?"690?:INPUT " "; wd$1000HOME1010 l=LEN(wd$)1013IF l>24 THEN ? " NO WORDS OVER 24 LETTERS       ALLOWED"1014IF l>24 THEN CALL 27407100LOMEM :2900010TEXT20DIM wd$(50), a$(50), bt(50), nw(50), wr$(50)30 bt(nt)=0: sc=0: s1=0: s2=0: np=040FOR tc=27407 TO 2742650READ td:POKE tc, td60DATA         245,229,213,197,253,197,14,13,6,770DATA         205,32,253,253,225,193,209,225,241,20180NEXT tc90CALL 27407100VTAB 10:? SPC(6); "WORD SCRAMBLE GAME"110?:? SPC(6); "by Bob Eberly 1985"120? CHR$(4); "bload mm,A27407"121CALL 27407122CALL 27407125GOTO 2000130HOME:VTAB 3:? SPC(9); "INSTRUCTIONS"140?:? SPC(1); "Use only capital letters."151)4080IF nt=bt(nt) GOTO 40704090 bt(nt)=nt4100RETURN5000REM            :CHECK ANSWER ROUTINE5010FOR nt=1 TO l5020GET chr$:IF chr$<>a$(nt) THEN  sc=sc-55030IF chr$<>a$(nt) GOTO 50205040IF chr$=a$(nt) THEN ? a$(nt); 5050 sc=sc+105060NEXT nt5070 sc=sc+505080?:VTAB 16:? SPC(8); "YOUR SCORES ARE:"5090IF pn=1 THEN  s1=sc+s15100IF pn=2 THEN  s2=sc+s25120?:? " "; n1$; "  "; s25130VTAB 18:HTAB 16:? n2$; "  "; s15140IF np=1 GOTO 51905150IF np=1 GOTO 51905160IF pn=1 THEN 51805170 pn=1:GOTO 5190518ative score will be"310? " calculated for each player."320?:? " A one player option is also"330? " available with 50 different"340? " words."350?:? " In one player games WORD"360? " SCORE indicates the perfect"365? " score, with no misses."370?:?:? " Press any key to continue"380? "and start the game."390GET chr$400HOME:VTAB 3:INPUT " One or Two player game (1/2)"; np500HOME510VTAB 3:INPUT " Player number 1 give your      first name. "; n1$515IF np=1 GOTO 8000520?:INPUT " Player number 2 giveRMAL2030FOR d=1 TO 3500:NEXT2040HOME2100GOTO 5002200HOME2201IF b$="BRONCOBUSTER" THEN  b$="CANDY-MAN"2202IF b$="PANTHER BREATH" OR b$="PANTHER-BREATH" THEN  b$="BEVERLY ANN FIKE"2205SPEED =2002210? " Well now "; b$; " what can I do  for you now ?"2220?:?:?:? "enter the number of your sel-  ection.":?2230? " 1) list catalog for you"2240? " 2) replay this game from start "2250? " 3) replay this game -after     the 3 number combination point"2260INPUT q2270IF q=1 THEN  d$=CHR$(4):? d$; "catalog"15IF l>24 THEN 6001020FOR nt=1 TO l1030 a$(nt)=MID$(wd$, nt, 1)1040IF nt=1 THEN GOSUB 30001045NEXT nt1050FOR i=1 TO l1055GOSUB 40001060? a$(nt); 1070NEXT i1999VTAB 10:GOSUB 3020:GOTO 50002000VTAB 20:INPUT " Do you need instructions (y/n) "; i$2010IF i$="y" GOTO 1302020IF i$="n" GOTO 4002030IF i$="Y" GOTO 1302040IF i$="N" GOTO 4002050GOTO 20003000? " Guess the letters now"; SPC(10); nn$3010VTAB 53020 sx=(31-l)/2:HTAB sx3030RETURN4000REM               SCRAMBLE ROUTINE4070 nt=INT(RND(1)*l+0?:? SPC(1); "Only when you guess the right"160? " Letters will your letter"170? " appear on the screen."180?:? " Every incorrect guess will"190? " reduce your score."200?:? " You score 10 points for a "210? " correct letter and -5 points"220? " for an incorrect guess, and"230? " score 50 points for solving"240? " the Scrambled Word."250?:?:? " Press any key to continue."260GET chr$270HOME:VTAB 3:? " First player enters word"280? " than second player tries to"290? " guess it."300?:? " A cumul0 pn=25190 bt(nt)=0: sc=05200?:? " DO YOU WANT TO CONTINUE (Y/N)"5210FOR nt=1 TO 505230 bt(nt)=05240NEXT nt5260?:INPUT " "; c$5270IF c$="y" OR c$="Y" THEN 70005280IF c$="n" OR c$="N" THEN 60005290GOTO 52606000REM           END GAME6010IF s1>s2 THEN 60506020IF s1<s2 THEN 60606030IF s1=s2 THEN 60706050VTAB 5:FLASH:? " YOU ARE THE WINNER "; n2$; "  ":NORMAL:GOTO 61006060VTAB 5:FLASH:? " YOU ARE THE WINNER "; n1$; "  ":NORMAL:GOTO 61006070VTAB 5:FLASH:? " YOU BOTH ARE WINNERS  ":NORMAL:GOTO 6100åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååAHÿq8WelizaAHHÿt
WfaceAHHÿ|/WlockoutAHÿ~7WScrambleAÿ…WmmHmbleHÿŠíWlabelsAHÿ‹NWBLOCKS LEFTXT bb9100GOTO 905010000DATA     ANGELS,RACING,LOVELY,SMART,ADAM10010DATA    BASIC,COMPUTER,SOFTWARE,MEMORY,MONITOR10020DATA    BICYCLE,AUTOMOBILE,HOUSE,BYTE,MODEM10030DATA    LOGO,VECTOR,MODULE,DISKETTES,KEYBOARD10040DATA    WINDOW,STREET,OPERATOR,DELIVERY,POSTAL10050DATA    PRINTER,SNOW,BEDROOM,SCHOOL,WIZARD10060DATA    LANTERN,RIFLE,BOOK,BRAIN,WINTER10070DATA    ENVIORNMENT,CLASSIC,RIVER,STREET,FARM10080DATA    CASSETTE,ASSEMBLER,RIBBON,MAGIC,TRAIN10090DATA    MANAGER,AFRAID,LITTLE,AVERAGE,CRAZer is ready,"270? "please press any key."280GET r$283?:?300HOME309REM     >>open printer for output<<310PR #1330FOR k=1 TO (INT(c/2))339REM     >>? top border<<<340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"350? "*"; SPC(33); "*"; SPC(3); "*"; SPC(33); "*"359REM      >>>center and print text<<<<<360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"; SPC(3); "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"370? "*"; SPC(33); "*"; SPC(3); "*"; SPC(33); "*"k!-k~#Æ(= >ÿ ý= øë<ÓÿæÉŸŸŸŸŸ†Ÿ†ŸŸŸŽŸŸ…ŸŽŸŸŸŸŸŸŸŸ†Ÿ†ŸŸŸŽŸ…ŸŸttÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåååååååååå6100REM       MUSIC6110FOR mm=1 TO 36120CALL 274076130NEXT mm6140?:? " END"6150LOMEM :274076160END7000IF np=1 GOTO 80407010IF np<>1 GOTO 6008000FOR nw=1 TO 508010READ wr$(nw)8020NEXT nw8030IF np=1 THEN  pn=28040GOSUB 90008050 wd$=wr$(nw)8060 nn$=n1$8070 n2$="WORD SCORE"8080 z=LEN(wd$)8090 s1=((z*10)+50)+s18100GOTO 10009000REM   :REAL RANDOM #9030?:? " OPERATE ANY KEY TO PICK NEW"9040? " SCRAMBLED WORD."9050FOR bb=1 TO 509060 nw=bb9070 k1=PEEK(64885)9080IF k1<>13 THEN RETURN9090NE50HOME60 i$=""80? TAB(7); "Disk Label Maker"90?100? "Please press <return>"110? "after each reply."120?130? "Do you want something"140? "printed on the label?"150INPUT r$170IF LEFT$(r$, 1)="n" OR LEFT$(r$, 1)="N" THEN 250180?189REM        >>input disk label text<<<190? "What will the label say?"210?220? "(23 letters or less)"230INPUT i$232?:? "How many copies would you like?"233INPUT c239REM     >>chop off extra characters<<240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When printY10100END    MUSIC6110FOR mm=1 TO 36120CALL 274076130NEXT mm6140?:? " END"6150LOMEM :274076160END7000IF np=1 GOTO 80407010IF np<>1 GOTO 6008000FOR nw=1 TO 508010READ wr$(nw)8020NEXT nw8030IF np=1 THEN  pn=28040GOSUB 90008050 wd$=wr$(nw)8060 nn$=n1$8070 n2$="WORD SCORE"8080 z=LEN(wd$)8090 s1=((z*10)+50)+s18100GOTO 10009000REM   :REAL RANDOM #9030?:? " OPERATE ANY KEY TO PICK NEW"9040? " SCRAMBLED WORD."9050FOR bb=1 TO 509060 nw=bb9070 k1=PEEK(64885)9080IF k1<>13 THEN RETURN9090NE379REM     >>? bottom border<<<380? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"383?:?:?385NEXT k399REM     >>>>F>>close printer output<<<<400PR #0409REM      >>>>repeat or stop?<<<f410? "Do you want to"420? "make another?"430INPUT r$450IF LEFT$(r$, 1)="y" OR LEFT$(r$, 1)="Y" THEN 50460ENDr less)"230INPUT i$232?:? "How many copies would you like?"233INPUT c239REM     >>chop off extra characters<<240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When printE" OR b$="done" OR b$="Done" THEN 7050 a$(k)=b$: k=k+1:GOTO 4070?:? "DONE:   are you sure? "; 71GET c$:IF c$="n" OR c$="N" THEN ?:GOTO 4072IF c$<>"y" AND c$<>"Y" THEN 7080HOME90? "Alphabetizing Process":? "`````````````````````"100FOR i=1 TO k-1:? i; :IF a$(i+1)>=a$(i) THEN 150102 b$=a$(i+1)104 a$(i+1)=a$(i)106 a$(i)=b$108GOTO 100150NEXT i160HOME165FOR a=2 TO k: a$(a-1)=a$(a):NEXT a: k=k-1170? "Do you want a printout?"171GET c$:IF c$<>"y" AND c$<>"Y" AND c$<>"n" AND c$<>"N" THEN 170172IF c$10REM   ********11REM        File shrinker and eraser. G.R.Meyer 12/8412REM   ******** 15HOME:? "Erase Utility":?17 d$=CHR$(4):? "Enter file to be erased"20INPUT n$25IF n$="" THEN END30INVERSE:?:? n$:NORMAL:? "Are you sure?  <y/n>":GET z$:IF z$="n" OR z$="N" THEN END40? d$; "open "+n$+""50? d$; "write "+n$+""60?70? d$; "close "+n$+""80SPEED =100:?:? "DELETING "; n$:SPEED =25590? d$; "delete "+n$+""100? d$; "catalog"110?:? "File Deleted "; n$:ENDWgameA LEFT]šCommittedAÿÐ^
c$="n" OR c$="N" THEN ?:GOTO 210238GOTO 300240HOME:FOR a=1 TO k:? "no. "; a; ". "; a$(a):NEXT a: k=k+1:GOTO 40300END65535REM    GOTO 4072IF c$<>"y" AND c$<>"Y" THEN 7080HOME90? "Alphabetizing Process":? "`````````````````````"100FOR i=1 TO k-1:? i; :IF a$(i+1)>=a$(i) THEN 150102 b$=a$(i+1)104 a$(i+1)=a$(i)106 a$(i)=b$108GOTO 100150NEXT i160HOME165FOR a=2 TO k: a$(a-1)=a$(a):NEXT a: k=k-1170? "Do you want a printout?"171GET c$:IF c$<>"y" AND c$<>"Y" AND c$<>"n" AND c$<>"N" THEN 170172IF c$1REM     alpha-filer by Mike Elsila5DIM a$(300)10HOME20? TAB(5); "A L P H A - F I L E R":?:?:? "A Computerized alphabetizing":? TAB(8); "file program"21?:?:?:?:FOR a=1 TO 31:? "-"; :NEXT a22?:? TAB(3); "B Y  M I K E E L S I L A":?23FOR a=1 TO 31:? "-"; :NEXT a24?:?:?:?:?:?:?:?:?30? TAB(4.5); "Press a key to start"; :GET a$:HOME: k=140? "No. "; k; ". "; :INPUT b$45IF LEN(b$)>76 THEN ?:? "Name too long! Please Redo.":?:GOTO 4046IF b$="REDO" OR b$="redo" OR b$="Redo" THEN  k=k-1:GOTO 4047IF b$="DONer is ready,"270? "please press any key."280GET r$283?:?300HOME309REM     >>open printer for output<<310PR #1330FOR k=1 TO (INT(c/2))339REM     >>? top border<<<340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"350? "*"; SPC(33); "*"; SPC(3); "*"; SPC(33); "*"359REM      >>>center and print text<<<<<360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"; SPC(3); "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"370? "*"; SPC(33); "*"; SPC(3); "*"; SPC(33); "*"="y" OR c$="Y" THEN 180174?:? "ARE YOU SURE?"; 175GET c$:IF c$<>"y" AND c$<>"Y" AND c$<>"n" AND c$<>"N" THEN 175176IF c$="n" OR c$="N" THEN ?:GOTO 170177GOTO 200180HOME181? "Want hard copy?":GET c$:IF c$="y" OR c$="Y" THEN PR #1184FOR a=1 TO k:? a; ". "; a$(a):?:NEXT a186PR #0200HOME210? "Want to continue?"220GET c$:IF c$<>"Y" AND c$<>"y" AND c$<>"N" AND c$<>"n" THEN 220230IF c$="Y" OR c$="y" THEN 240232?:? "ARE YOU SURE?"234GET c$:IF c$<>"n" AND c$<>"N" AND c$<>"y" AND c$<>"Y" THEN 234236IF 
ûWcommitestAÿh

WCommittedArWerewolvesAÐ|ÐWn$AKS LEFTŠn$AKS LEFT‹+n$+A LEFTŒWBLOCKS LEFT x	'ness Program                Portfolio for your Apple IIe                An Intergrated Office System                Copyright 1984 Hyden Book CO.                Hasbro                PASSWORD 2     INSTRUCTIONS                           From Business  Program                Portfolio for  your Apple IIe                An Intergrated Office System                Copyright 1984 Hyden Book CO.             0HOME1170FOR n1=1 TO 51180READ p2$(n1)1190IF p2$(n1)="999" THEN 12101200NEXT n11210REM     1220REM      ***** PASSWORD ENTERED *****1230REM     1240FOR c1=1 TO 3:REM      THREE CHANCES1250LET p1$=""1255?:?:?1260? "ENTER PASSWORD":?:?1265FOR c2=1 TO 31270GET e1$:REM      NON-VISIBLE KEYBORD ENTRY1275IF ASC(e1$)=3 THEN 14001280IF e1$="" THEN 12701290IF ASC(e1$)=13 THEN 13101300LET p1$=p1$+e1$1310NEXT c21320FOR c3=1 TO n1-11330IF p1$=p2$(c3) THEN 14301340NEXT c31350?1360? "   ILLEGAL PASed flashes at which time the SmartBasic Tape will  have to be rebooted.      The code numbers are      stored in data statements in   line #1440 these can be        changed to what ever you like. You can change the length of   th code by changing line line  1190.                               INSTRUCTIONS                           From Business  Program                Portfolio for  your Apple IIe                An Intergrated Office System                Copyright 1984 Hyden Book CO.             0HOME1170FOR n1=1 TO 51180READ p2$(n1)1190IF p2$(n1)="999" THEN 12101200NEXT n11210REM     1220REM      ***** PASSWORD ENTERED *****1230REM     1240FOR c1=1 TO 3:REM      THREE CHANCES1250LET p1$=""1255?:?:?1260? "ENTER PASSWORD":?:?1265FOR c2=1 TO 31270GET e1$:REM      NON-VISIBLE KEYBORD ENTRY1275IF ASC(e1$)=3 THEN 14001280IF e1$="" THEN 12701290IF ASC(e1$)=13 THEN 13101300LET p1$=p1$+e1$1310NEXT c21320FOR c3=1 TO n1-11330IF p1$=p2$(c3) THEN 14301340NEXT c31350?1360? "   ILLEGAL PAS1000REM     ********** PASSWORD **********1001ONERR  GOTO 14551010REM     1020REM     1030REM     ********** DATA DICTIONARY ***********1040REM     1050REM     1070REM           CHANCE       : C11080REM           CHARACTERS   : C21090REM           COMPARE      : C31100REM           ENTRY        : E1$1110REM           NUMBER       : N11120REM           PASS$        : P1$1130REM           PASSWORD$    : P2$1135REM      1140REM     **** READ AUTHORIZED PASSWORDS INTO SYSTEM ****1150REM     116   Hasbrouck      Hights, New Jersey                By George      Hilderbrand                Edited by      Keith Bowman       This program, (Edited    for Adam) creates a turnkey    system when saved with HELLO,  on your SmartBasic tape or     disk.The program asks for a    three digit password,(number)  at which time you have three   tries to enter SmartBasic. If  the right number is not        entered, (Three tries) or      anytime during the run the     program is tampered with,      Access DeniSWORD"1370? "   ACCESS DENIED, REENTER"1380?1390NEXT c11399GET e1$1400IF ASC(e1$)>=0 THEN HOME:FLASH:? "       ACCESS DENIED         ":? CHR$(7):GOTO 13991405NORMAL1410? CHR$(7):REM      BELL1420END1430? "     PASSWORD OK":REM      COULD ALSO BRANCH TO  OTHER    PROGRAMS  1440DATA   275,9991450END1455RESUME         NUMBER       : N11120REM           PASS$        : P1$1130REM           PASSWORD$    : P2$1135REM      1140REM     **** READ AUTHORIZED PASSWORDS INTO SYSTEM ****1150REM     116   Hasbrouck      Hights, New Jersey                By George      Hilderbrand                Edited by      Keith Bowman       This program, (Edited    for Adam) creates a turnkey    system when saved with HELLO,  on your SmartBasic tape or     disk.The program asks for a    three digit password,(number)  at which time you have three   tries to enter SmartBasic. If  the right number is not        entered, (Three tries) or      anytime during the run the     program is tampered with,      Access Deniåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå