L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`VIH RM UILN ZYLEV.",-2,-2,40,-2,5,-2,"BLF'EV NZWV RG! MRXV QLY!",-2,-2,-2,-2,-2,-2,"BLF ZIV ZG GSV SVZW LU Z HGZRIDZB.",-2,-2,24,-2,-2,23&~"BLF'IV ZG GSV GLK LU GSV HGZRIH.",-2,-2,26,-2,-2,27,"BLF'IV ZG GSV VMGIZMXV.",4,-2,-3,-2,-2,-2'"GSRH I,28,-2,-2,-2,"BLF'IV RM (SRGSVIGL-HVXIVG) KZHHZTVDZB.",33,-2,-2,-2,11,-2,"BLF URMW BLFIHVOU RM Z WZIP ILLN.",-2,39,-2,33,-2,-2%j"BLF URMW BLFIHVOU RM Z WZIP ILLN.",-2,32,31,-2,-2,-2&t"GSRH OLLPH ORPV GSV VMW LU GSV KZHHZIV- DZB. Z UZRMG ORTSG UROG GSRMTH, GSRH ILLN XLMGZRMH Z 48P ZKKOV RR KOFH, DRGS 2 WRHP WIREVH,QLBHGRXPH, TIZKSRXH GZYOVG, ORTSG KVM ZMW Z NLWVN. L.P., JFRG WILLORMT ZMW NLEV ZOLMT."~%`30,-2,44,-2,-2,-2,"BLF ZIV RM Z YVWILLN.",-2,30,27,52,-2,-2,"BLF'IV RM Z HFM ILLN.",-2,22ZIW LM GSV MLIGS DZOO KILXOZRNH GSRH GL YV 'GSV YZG ILLN'.",41,24,-2,26,-2,-2,"NLLM ILLN. Z HRTM IVZWH: ",-2,25,-2,61,-2,-2#L"BLF URMW BLFIHVOU ZG GSV ULLG LU Z HGZRIXZHV.",29,-2,-2,49,37,-2$V"BLF URMW BLFIHVOU RM GSV XLNKFGVI ILLN. ZNLMT LGSVILU Z OLMT HGZRIXZHV. Z YILMAV IRMT RH VNYVWWVW RM GSV UOLLI MVCG GL BLFI UVVG.",-2,-2,23,30,-2,10"8"BLF'IV ZG GSV ULLG LU Z HGZRIDZB.",22,-2,-2,-2,36,-2,"GSRH RH GSV YVOUIB. Z XZIKVG LU YZGH XORMTH GL GSV XVRORMT."~#B36,-2,21,25,-2,-2,"Z KOZXIV RM Z OLMT, WZIP SZOODZB.",15,42,-2,-2,-2,-2!$"BLF'EV TLMV WLDM Z WZIP SZOO.",-2,-2,-2,43,-2,-2,"BLF'IV LM Z XIVZPRMT YZOXLMB LEVIOLLPRMTGSV TIZEVBZIW. WZMP TSLHG-ORPV NRHGH HDRIO ZILFMW GSV TIZEVHGLMVH.",24,-2,-2,64,-2,-2c"."BLF'IV ZG GSV GLK -2,-2,-2,-2 "GSV UOLLI RH XLEVIVW DRGS HORKKVIB TLL! RG NZB YV SZIW GL TVG LFG LU SVIV.",13,-2,-2,16,-2,-2,"GSVIV'H Z OZITV KZRMGRMT LM GSV HLFGS DZOO. MVCG GL GSV KZRMGRMT RH Z HDRGXS DRGS ZM O.V.W. IVZWLFG ZYLEV RG.",-2,-2,-2,-2,-2,-2.!"BLF'SVIV! (HVIEVH BLF IRTSG ULI HMLLKRMT ZILFMW SRH OZYLIZGLIB). SV AZKH BLF ZMW XZIIRVH BLF LUU.",-2,-2,-2,13,-2,-2 "GSVIV'H Z YLLPXZHV ZG GSV HLFGS VMW LU GSV ILLN.",11,-2,-2,-2,50,-2,"ZSZ! GSVIV'H Z NZK RM GSV NRWWOV LU GSVILLN.",-2,17,1,-2,-2"BLF ZIV RM GSV NRWWOV LU Z OZYLIZGLIB. Z SFTV XLMGIZKGRLM DRGS YORMPRMT ORTSGH ZMW DSRIORMT GZKV IVVOH GZPVH FK ZM VM- GRIV DZOO. R GSRMP RGH HLNV PRMW LU HLKSRHGRXZGVW SR-UR HBHGVN.",-2,14,17,12,-2,-2~"LS LS! GSV NZW HXRVMGRHG RH |"GSVIV'H Z YVZFGRUFO KVIHRZM XZIKVG XLEVIRMT GSV UOLLI ZMW Z OZITV GZKVHGIB RH LM GSV DVHG DZOO.",6,12,15,-2,-2,-2"BLF ZIV RM GSV DVHG VMW LU ZM VMLINLFH OZYLIZGLIB. YVZPVIH LU YFYYOB, YFYYORMTORJFRWH ZMW IVGLIGH HFIILFMW BLF.",-2,13,-2,1UUVW XSZRIH ZIV HXZGGVIVW ZILFMW GSV ILLN. GSRH NFHG YV GSV KZIOLI.",-2,8,-2,6,-2,-2"BLF'IV QFHG RMHRWV GSV WLLIDZB.",-4,9,-2,7,-2,-2,"BLF'IV ZG GSV YLGGLN LU Z OLMT HGZRIDZB.",-2,-2,-2,8,10,-2,"BLF'IV LM Z OZMWRMT YVGDVVM UOLLIH.",-2,-2,-2,-2,22,9GLNY- HGLMVH OBRMT ZYLFG, ZMW RM GSV NRWWOV LUGSV KOLG GSVIV RH Z NZFHLOVFN.",-1,-1,-2,4,-2,-2"GSRH RH GSV ORERMT ILLN. Z SFNZM HPFOO SZMTH LEVI GSV URIVKOZXV, DSRXS RH GSV LMOB HLFIXV LU ROOFNRMZGRLM RM GSV ILLN.",-2,7,11,-2,-2,-2U"LEVIHGFMW YVOOZWLMMZ. GSRH NFHG YV ZM SVIY TZIWVM.",-1,3,-2,-1,-2,-2"GSRH RH GSV UILMG OZDM. GSV DRMWLDH LU GSV SLFHV ZKKVZI GL YV DZGXSRMT BLF.",-1,4,-2,2,-2,-2,"BLF'IV LM Z OLMT, XLYYOVW WIREVDZB.",-1,5,38,3,-2,-2a"GSRH RH Z TIZEVBZIW. GSVIV ZIV T RING?":1240\(WH$,3)"TVG"ĺ"YOU CAN'T GET THE";:P$(WH$,(WH$)3):1530:"!":1240{"I DON'T KNOW HOW!":1240@"BLF'IV OBRMT LM Z GZYOV. XLOW TIVVM UOZNVH WZMXV ZILFMW BLF.",-2,-2,-2,-2,-2,-2,"BLF'IV HFIILFMWVW YB SVMYZMV, ZXLMRGV Z15RM18)P$M$(29):1530:1240tf(WH$,3)"TVG"(RM1RM15RM11RM18)P$M$(29):1530::P$M$(30):1530:1240pWH$"KFOO IRMT"WH$"TIZY IRMT"RM22P$TD$:1530:NR18:1240zWH$"UORK HDRGXS"ĺ"WHAT SWITCH?":1240WH$"KFOO IRMT"ĺ"WHA"GO BACK!":1240K>RM38WH$OD$A(38,3)8:FLAG1:"DOOR OPENED.":1240HRM8(WH$OD$WH$"FMOLXP WLLI")ĺ"THE DOOR WON'T OPEN.":1240RRM38WH$"FMOLXP WLLI"ĺ"IT ISN'T LOCKED.":1240\((WH$,7)"VCZNRMV"(WH$,4)"OLLP")(RM1RM11RM AS 'GET DOG' OR 'MOVE ROCK' GENERALY ARE RECOGNIZED."F6J1500::66T" THE TOP CORNERS OF THE SCREEN GIVE":"YOU THE OBVIOUS DIRECTIONS YOU CAN MOVE.";:"(USE 'GO SOUTH' OR JUST 'S'.) HIDDEN":"PASSAGEWAYS ARE NOT SHOWN, BUT YOUR"7^"INGENUITYT IS YOUR MISSION TO RESCUE THE MAD":"SCIENTIST'S BEAUTIFUL DAUGHTER FROM HIS":"HAUNTED MANSION. THERE ARE MANY HIDDEN"5""PASSAGEWAYS (OF COURSE!) WHICH MAY BE":"FOUND ALL OVER THE HOUSE. ALSO HIDDEN, OTHER WAYS."76@:" TWO WORD COMMANDS SUCH:::43501424:13::" HIT ANY KEY ";:I4(16384)1281510Y416368,0:4P1(P$):I1((P$,P,1)):(((155(I164))I1));::4(P$)0ī3504P1$"":J1(P$):I1((P$,J,1)):P1$P1$(((155(I164))I1))::z5:5:" IG HPFOO RH MZROVW LEVI GSV MLIGS WLLI.",61,63,-2,-2,-2,-2,"GSV UOLLI RH XLEVIVW DRGS Z KVLKOV-SZRI IFT.",-2,64,-2,62,-2,-2,"Z HKRIZO HGZRIXZHV DRMWH WLDM RMGL GSV SLFHV.",-2,21,-2,63,-2,583:14::BU0ĺ" FENCE ON ";3BU0ĺ" FENCE OFF ";42"LWW, NFWWB GIZXPH OVZW MLIGS.",55,-2,-2,58,-2,-2,"GSV BZIW RH ERHRYOV UZI YVOLD GSILFTS GSV MLIGS DRMWLD.",-2,-2,61,-2,-2,-22"Z TRTTORMT SVZW ZKKVZIH RM GSV XVMGVI LUGSV ILLN ZMW HOLDOB UZWVH LFG ZH BLF DZGXS.",60,26,62,-2,-2,-23"Z TLZ-2,59,45,-2,-21"GSV UOLLI, DZOOH, ZMW XVRORMT LU GSRH ILLN ZIV XLEVIVW DRGS NRIILIH.",47,57,-2,-2,-2,-2,"HVEVIZO YLZIWH ORV ZILFMW Z OZITV SLOV RM GSV UOLLI.",-2,58,-2,56,-2,421"HGZRIH XLRO FK UILN GSV XLIMVI LU GSV ILLN.",-2,59,-2,57,64,-2NVMGH UILN GSFNY- HXIVDH GL ZM 'RILM NZRWVM'.",-2,-2,-2,48,-2,-21x"Z KLLO (!) LU YIZXPRHS DZGVI XLEVIH NLHGLU GSV ILLN. Z KZRI LU YVZWB VBVH ZMW ZYOFMG HMLFG ZIV ERHRYOV QFHG ZYLEV GSV DZGVI.",-6,-2,55,-2,-2,-6,"GSV ILLN HNVOOH HGIZMTVOB HDZNKB.",54,RMS/ZRM(64(1)1):RMOL(RM1RM6)RM35RM29RM38RM12RM18RM511370c/dNRRM:1240@0n"BLF'EV VMGVIVW Z YZGSILLN. Z OLMV YZG SZMTH UIL N GSV XFIGZRM ILW.",-2,29,-2,-3,-2,-2,"DSZG Z NZXZYIV TZNV ILLN. RG RH ORGVI- ZOOB HGIVDM DRGS RNKOV38):1530::P$M$(39):1530::P$M$(40):1530::GS0:1360.<((WH$"HSLLG TSLHG"GS1)(WH$"HSLLG HPVOVGLM"GS0))LF0SHSH1:P$SG$(GS):1530:" YOU HAVE ";SH;:P$M$(23):1530:GS0:1240.FP$GH$(GS):1530:X4142:P$M$(X):1530::X:23:/POL33):1530:GS0e-P$M$(34):1530::P$M$(35):1530::"WHAT WILL YOU DO";:WH$:P$WH$:1540:WH$P1$-(((WH$"HSLLG TSLHG"GS1)(WH$"HSLLG HPVOVGLM"GS0))LF0SHOTS1P$M$(36):1530:1240:.2(WH$,3)"IFM"P$M$(37):1530:P$GH$(GS):1530:P$M$(-5,-2,-2,1500:NR0RMNR3,RM1A(26,1)37<,140,:8:" YOU'VE WON THE GAME!"::::" C O N G R A T U L A T I O N S!";22:" IT TOOK YOU "MV" MOVES.":,P$M$(31):1530, GS1:(1).5P$M$(32):1530:1310-P$M$(SVIV'H Z SLOV RM GSV HLFGSDVHG XLIMVI LU GSV UOLLI!",49,53,47,-2,-2,50,"NFUUOVW HMLIRMT MLRHVH ZIV XLNRMT UILN GSV VZHG.",-2,-2,48,-2,-2,-2,"BLF'IF KIVXZIRLFHOB KVIXSVW ZGLK Z YLLP-XZHV.",-2,-2,-2,-2,48,15,"BLF'IV ZG GSV TZGV LU GSV SLFHV.",-5,-5,4,DZOOH. KRXPOVW KVLKOV KRVXVH ZIV RM QZIH YB GSV XLIMVI.",44,55,-2,46,-2,-2*"GSRH ILLNH RH UFOO LU XOLXPH ZMW DZGXSVHLU ZOO PRMWH - ZOO IFMMRMT YZXPDZIWH.",-2,45,-2,47,-2,-2,"HGIZMTV GRXPRMT MLRHVH XZM YV SVZIW GL GSV VZHG.",48,46,56,-2,-2,-2+"GKKOB ILLN. QZIH LU XSVNR- XZOH, TOZHH, ZMW IFYYVI GFYRMT, YLCVH LUIVHRHGLIH, XZMH LU GLZWHGLLO HLFK ZMW YZOVH LU YZG UFI ORMV GSV DZOOH.",28,-2,45,-2,-2,-2K*"GSRH RH ZMLGSVI HFKKOB ILLN. YOZMP WRHPVGGVH, EZIRLFH GLLOH ZMW Z DLOU SRWVZWLIM GSV ZMW DVRIW URTFIVH ZIV KZRMGVW LM GSV DZOOH.",-2,-2,25,-2,-2,-2("GSV YOLLWHSLG VBVH LU Z KZRMGRMT ZYLEV GSV URIVKOZXV HVVN GL YV ULOOLDRMT BLF.",-2,43,-2,19,57,-2,"Z YOZXP XZG DZOPH HVWZGVOB ZXILHH BLFI KZGS.")-2,20,-2,42,-2,-2,"GSRH RH Z HFLLN RH WZIP. BLF HGFNYOV LEVI ZM LYQVXG RM GSV NRWWOV LU GSV ILLN.",-2,40,-2,32,-2,-2,"BLF'IV RM Z WZIP ILLN. RG ZKKVZIH HORTSGOB ORTSGVW GL GSV MLIGS.",34,-2,-2,39,-2,-2B("GSV ILLN IVVPH LU RMXVMHV. GSVIV'H Z KVMGZTIZN VMTIZEVW LM GSV UOLLI,  A1:100^ :21:"HIT TO CONFIRM DELETION":"ESC TO GO TO NEXT SHAPE";u A$:A$(27)3040 A$(68)3060 C1Q(A1):A1SHAPEC2I1:3100 C2Q(A11) C3C2C1:J1SHAPE:JA13130 & DQ(J)2:LT2J:JA1L(A1)Y(A1)1:Y(A1)0Y(A1)O:80+ 2980V Y(A1)Y(A1)1:Y(A1)191Y(A1)191:80d 70:2900{ 1:1:SS1:KSHAPE A11K:::50:70:21:16::"SHAPE ";A1:::"DELETE THIS SHAPE FROM TABLE? (Y/N) "; A$:A$"Y"3050 A$"N"3020; K=RIGHT; M=DOWN ESC ANYTHING ELSE";F^ A$:A$(27)2600eh A$"I"A$"M"A$"L"2910r 73:A(A$)72:A2960,2940,2950,2910,2970| X(A1)X(A1)1:X(A1)0X(A1)0:80 2980 X(A1)X(A1)1:X(A1)279X(A1)279:80 2980! Y LEFT ARROW TO ROTATE LEFT ESC FOR ANYTHING ELSE";Y A$:A$(27)2600{ A$(21)R(A1)R(A1)L:2870 A$(8)R(A1)R(A1)L:2860" 2820, R(A1)0R(A1)64L6 R(A1)64R(A1)0@ 73:70:2800/T :60:"I=UP; J=LEFT:A$(27)2600! A$(8)27504 A$(21)2770> 2710i SC(A1)SC(A1)1:SC(A1)255SC(A1)255s 2780 SC(A1)SC(A1)1:SC(A1)1SC(A1)1 73:70:2700 :60:L(16SC(A1)):SC(A1)16L1B "RIGHT ARROW TO ROTATE RIGHT A$:A$"#"100 < A$"C"25001F A$"D"2510GP A$"E"İ73:2600XZ A$"S"2700id A$"R"2800zn A$"M"2900x 2610 :60:"RIGHT ARROW TO DECREASE SCALE LEFT ARROW TO INCREASE SCALE ESC FOR ANYTHING ELSE"; A$TURN TO MENU)"+ "WHICH? ";A$:A$""100L A1(A$):A11A1SHAPE2510T 70( ::"SHAPE ";A1;:18::"#=RETURN TO MENU":"R=ROTATE SHAPE D=DRAW ANOTHER SHAPE":"E=ERASE SHAPE S=CHANGE SCALE":"M=MOVE SHAPE C=CLEAR SCREEN";:402 IP THIS SHAPE"?A11SHAPE:50:70:21:16::"SHAPE ";A1:kJ0500:(16384)127J500:16368,0xJ:73:100 A11SHAPE:50:::34,20 :"THERE ARE ";SHAPE;" SHAPES IN THE TABLE.":"MANIPULATE WHICH ONE? ":"(HIT RETURN TO REAA$'D$;"BSAVE";AA$;",A";T;",L";I15SS0:100q:10:::"NAME OF SHAPE TABLE? ";AA$:AA$"SHAPE:"AA$z20D$;"BLOAD";AA$216,0SS0:SHAPE(T):LODED1I(43616)256(43617)1:I1I:100::23:4:"HIT ANY KEY TO SK LU ZNNL","TLLW DLIP. BLF LFGIZM ",". (FM-","ULIGFMZGVOB, BLF TLG OLHG RM GSV KIL-","XVHH!)"="TLG BLF! GLL YZW. YFG YVGGVI","OFXP MVCG GRNV!" YVGGVI","OFXP MVCG GRNV!" MBGSRMT GL HSLLG DRGS.","DSZG RH GSVIV GL IFM UILN?","GSVIV'H HLNVGSRMT RMGVIVHGRMT GSVIV.","BLF XZM'G TVG RG YFG GSV IV HVVNH GL YV"<"HLNVGSRMT RMGVIVHGRMT SVIV."^="FS LS! Z"," TSLHG "," HPVOVGLM ","QFHG KLKKVW LFG RM","UILMG LU BLF!","BLF'IV LFGXRVMGRHG","YOLDH FK GSV SLFHV.","L.P., BLF'EV TLG GSV WZFTSGVI. OVG'H TL.";"BLF'EV ZOIVZWB TLG SVI, HGFKRW.","RG XLEVIVW Z HVXIVG KZHHZTVDZB!","BLF'EV TLG GSV OZHVI.","AAAAAZGG!!"," HSLGH OVUG","HSLLG DSZG?","BLF'IV LFG LU ZNNL"<"BLF WLM'G SZEV ZGSV UVMXV RH ML OLMTVI VOVXGIRURVW.":"BLF HSLFOW SZEV NLEVW UZHGVI!","GSV NZW HXRVMGRHG HORKKVW DRGS LMV LU","SRH KLGRLMH ZMW YOVD GSV DSLOV SLFHV","RMXOFWRMT BLF, LUU GSV NZK!"J;"L.P., BLF ZMW GSV YVZFGRUFO WZFTSGVI","YLGS KVIRHS ZH GSV NZW LOW HUFO WZFTSGVI MVZIYB!","GSVIV'H Z OZHVI TFM LM GSV GZYOU RM","UILMG LU BLF","GSV WZFTSGVI RH SVIV!","GSV UVMXV RH HGROO LM.","GSV WLLI HOZNH HSFG YVSRMW BLF."$:"GSV TZGV XORXPH HSFG YVSRMW BLF, ZMW","BLF SVZI Z HLUG SFN ZH GSV UVMXV RH","VOVXGIRURVW.","REACHED"F8"UNTIL A CERTAIN ROOM IN THE HOUSE HAS":"BEEN VISITED."8:" BEWARE OF GHOSTS AND GOBLINS, AND":"THE MAD SCIENTIST, BUT MOST OF ALL YOU":"MUST RESCUE THE DAUGHTER."88:" G O O D L U C K !!"81500:9"YUZFGR SHOULD HELP YOU."w7h:" 'LOOK' WILL RESTORE THE DIRECTION":"COMPASSES FOR YOU IF THEY ARE NOT ON":"THE SCREEN."7r1500::78|:" 'SCORE' TELLS YOU THE NUMBER OF":"MOVES YOU HAVE USED (YOU HAVE ABOUT 225":"TURNS.) THE DAUGHTER CANNOT BE 1001090%4330.%C$"*** TOUCHDOWN ***"A%(C13:D8:4160Y%2S%(P%,0)S%(P%,0)6j%<X1%50:4930z%F4390:5040%PI12000:I%Z(1).173980%dC$"EXTRA POINT IS GOOD"%nC15:D7:4160%xS%(P%,0)S%(P%,0)1%4390:4000&C$"CNO GAIN":3720'$~C$"LOSS OF "(Y%)?$C16.5:D14(C$)2I$4160Y$I1750:Ij$X1%03840t$4330$C$"*** SAFETY ***"$C14:D9:4160$S%(1P%,0)S%(1P%,0)2$X1%50:4930$4390:5040$I12000:I$740 %X1%870# (1).153510 # 4330<# C$"*** FIELD GOAL ***"O# C14:D7:4160g#S%(P%,0)S%(P%,0)3r#X1%50#4930:4360#$4390:5040#.I12000:I#8740#B4960#LY%03690#VC$"GAIN OF "(Y%)#`3720#jY%03710$tC$"4160"\ Y%5:4960:1090$"f 49606"p X1%1003500O"z C$"PLACEKICK SHORT"b" C14:D8:4160r" I1200:I" S%(P%,10)S%(P%,10)1" 4360:910" X1%1053550" C$"PLACEKICK MISSED"" C14:D8:4160" S%(P%,10)S%(P%,10)1# 4360:%(P%,10)1"! S%(P%,8)S%(P%,8)1;! S%(P%,7)S%(P%,7)Y%Q! 4960:4360:4930r! C$"GOOD FOR "(Y%)" YDS."! C13:D3:4160! X1%0910! 850!* A20:B35:Y%A(X)!4 I1500:I!> R.153430!H C$"PLACEKICK BLOCKED!""R C14:D8:MPLETE" X C14:D8:4160) b Y%0:3650A l S%(P%,6)S%(P%,6)1Q v R.153110` R.53150w A20:B30:Y%A(X) R.63020 S%(P%,5)S%(P%,5)1 S%(P%,2)S%(P%,2)Y% 3650 A15:B40:3280 A20:B30 Y%A(X) ! S%(P%,10)SS%(P%,10)S%(P%,10)1+ C$"INTERCEPTED!"@ C13:D7.5:4160R X1%1003100j C$"IN THE ENDZONE" C15.5:D6.5:4160 4360:850 4360:4930:1010& C$"BLITZ! PASSER TACKLED!"0 C14:D4:4160: Y%15(1)D 3650 N C$"INCO C15:D10:4160*T S%(P%,10)S%(P%,10)1:^ 4360:4960Jh 4930:3660]r C$"RECOVERED"p| C15:D9:4160 S%(P%,1)S%(P%,1)Y% 3650 S%(P%,6)S%(P%,6)1 R.13110 R.43150 A7.6:B8:Y%A(X) R.453230 4960 O RETURN "; A$:I(49232)3 I(49237):1280J A4.1:B3:Y%A(X)Z R.052830d 2950z A15:B6:Y%A(X) R.152950 C$"*** FUMBLE ***" C13.5:D8:4160" Y%10(1), I1600:I6 (1).42930@ C$"BALL LOST"J%22650 P S%(P%,4)S%(P%,4)17Z X1%Y%0Y%X1%2Sd X1%Y%100Y%50X1%2cn 4960:4390ux DOWN%DOWN%1 I11000:I 4330:1090 R(1) I1250:I Z2780,2810,2970,3180,3260,3270,3370 4540:24:9  "HIT ANY KEY TC$" R1D$"ILLEGAL PROC, "C$> R2D$"CLIPPING, "C$Y R3D$"HOLDING, "C$r C$"*** PENALTY ***" C13.5:D9.5:4160 I11000:I C$D$:C15 D17(C$)2( 41602 S%(P1%,9)S%(P1%,9)1< S%(P%,3)S%(P%,3)1F DOWN1L 67J,160:K,J,I'V 4330:42605` C$CH$(Z)Kj C11.5:D16:4160[t R.062710k~ I1400:I| C$"OFFENSE" Y%5(13(1)) P1%P% (1).452500 C$"DEFENSE" Y%Y%:P1%1P1% R(4(1)) R0D$"OFFSIDES, ",4)S%(P%,4)1R(1)4(1)0.04DOG%12420PDOG%1:C$"TIME OUT..."cC14:D3:4160sI1500:IC$"DOG ON THE FIELD"C15.5:D3:4160 4230 I01 J402402$ K01. 66J,160:K,J8 J240402B K04(49152)1282030*>A$:Z(A$)48<HZ0Z72020RRZ5DOWN%42040h\Z6DOWN%42040tfC$(Z)pC11.5:D12:4160zC$CH$(Z)C11.5:D16:4160I1250:IZ02710S%(P%,3)S%(P%,3)1DOWN%22240S%(P%X3%217501790(X1%4019906Z5:2170DZ7:2170YC$"NEXT PLAY? "nC11.5:D1:4160}COUNTER%0COUNTER%COUNTER%1180,88I150:I COUNTER%1502100Y%5:R5 D$"DELAY OF GAME, OFFENSE"*2550L@MGDGNPCDCECEKMAGAABMBM"5T"LEDGDGENCBDMAFCACEAEAAAJDJBODPAHCACEGECNBFDGAAGFOEDPDHDGLNDGAGAAGKCEOEDPHHDGDGAOGNBMAHAAGFOEDPDHDJHFAOAONPCDCEAAOHGECNBFJOBFPGDPBMAEAACECMPNDLIOIKDGAGAAAJDGBODPBMCECEGMAJ"z6^"DGAGAAAJPGBOBMBMCECEENDBDGAAHGAOCECECENPDDDGDGLNANPGDPCHCEDNCACMCNBFDGAAIJPCDPAHCACEGECNBFAGAAAJDGBODPCHCECECMCNBFDGAADPCECMCNLFBDIODKDPCHCEAADPCECM"5J"CNLFBDNODDDGAACKDFDODPAHCACEGECNCNAACNCEPMBLDGCOBHDGENCBCEAACECMBPJGJCCNAHCAAEAAJLHCCNAFCACECEAEAAGDAMAMNPDDDGDGGOAJBMBMAEAAIKBBDPDPCECECEAEAAGEAMDGD36"DGBODPAHCAAAKNPGDPAHCACMAHGAAMCNAFAAAMAMDMDPLHFCDBDGAACNCABMDPBHHGBOHGCNAFCAAEAAOHGECNBFDGKPBOBODPAHAALAAGAALAPGAEAAFCOCBMBMAMAMAMAEAACILFDPDPAECIAFAANCGCAMAMBMBMBMAEAAAM"d4@"AMBMDPBHFGAKBGAGAADACOCMCEBMDPBHDGDGAOCNCNAACKDFPOBLCEDNCAAMAMAOAODGAAKGGNBMAMBPAHAACADEAAJCBMBMCEAMAMAEAAJCAMAMCEBMBMAEAACEPMHCANAMJGOCDHPOGAAEAACE"3,"JPCKANPFDDAGAADCBOAEAADPENDNAAJCAEAAJKGDAMAMAMAEAAAMCFBMDPBHDGCOBHAOCNAFCACEAACELMJGDBDOANAEAAGFOEDPBHFGLKCOCNCFAACFAMDMDPLHJCAOCNAFCAAEAACBCEBHBHBHCOCNPFDGAADICHCMCNLFKL"MACEFACFBACFOACGKACHDACHPACILACJGACJPACKLACLGACMCACMOACNHACOCACOPACPGACADADAJADCCADDKADFCADCNCECMDGCHCMDHDFDHDFDHCOCMCMDFDOLMAEAAAIBIAACELEBCBGAGAAADCAGMDG"N2""AGAAIDDMAMGMDGGPBOCOBOPOCEPNAFAACEHEDJBPBHAOANBFBOCHBGAHDIAHAAAMAMNPDMLGBBBHENCOCEAAGDOEBHLGHIJ,16((A$,2J1,1))((A$,2J2,1))110580J,I:0"EDAAIKAAJNAAKAAAKGAAKMAALKAAMJAANEAANPAAOCAAOKAAPCAAPOAAAGABAKABAOABBBABBIABCGABCOABDIABEEABEOABFKABGGABGPABHMABIHABIKABIOABJHABJPABKIABLCABLPABMMABNIABODABOPABPLABAFACBA"1"ACBMACCGACCPACD/n4330:740"/xC$"GAME OVER"5/C13:D8:4160G/I110000:IX/4540:23:5|/"DO YOU WANT TO PLAY AGAIN? ";/A$:A$"Y"30/A$" "5110/A$"N"5290/5::/:I017/A$:I/I09:A$/J084-02457685I(49232)(49237)0.S%(0,0)S%(1,0)5240P. C$"SUDDEN DEATH OVERTIME!"c.C14:D4:4160t.I12500:I.(P%(2(1)).2C$N$(P%)" WILL".<C16:D14(C$)2.F4160:OT$1.PC$"RECEIVE KICKOFF".ZC16:D6.5:4160/dI12000:I-LX2%100X2%100!-VSET%1:0-`X1%X1%Y%:-j4230Q-tX0%X0%(X1%X0%)[-~4260l-X0%05030-X0%1005030-X0%X1%4970--I021-K(49236)-J15:J-K(49237)-J110-J,I:-4930:4230:4390.2:(100S%(1,5)S6%(1).5)9,5:(S%(0,7)S8%(0).5);R,14:"AVE.YDS.PUNT";p,32:(S%(1,7)S8%(1).5),5:S%(0,9);,16:"PENALTIES";,32:S%(1,9),5:S%(0,10);,$16:"TURNOVERS";,.32:S%(1,10),8,BDOWN%1:X2%X1%105:S%(0,1)S%(0,2);.+p14:"TOTAL OFFENSE";G+z32:S%(1,1)S%(1,2)X+5:S%(0,3);r+14:"TOTAL # PLAYS";+32:S%(1,3)+5:S%(0,4);+15:"FIRST DOWNS";+32:S%(1,4)+5:(100S%(0,5)S6%(0).5);+14:"% PASS COMPL.";,3S8%(I)S%(I,8)&*S8%(I)0S8%(I)1A*4:12(N$(I))216IQ*N$(I):I:b* 5:S%(0,0);t*17:"SCORE";* 32:S%(1,0)**5:S%(0,1);*414:"YDS. RUSHING";*>32:S%(1,1)*H5:S%(0,2);*R14:"YDS. PASSING";*\32:S%(1,2)+f))XC7:D4.5:4160+)bC$(X2%X1%)" ">)lC7:D13:4160L)vC$(QU%)_)C7:D19:4160{)T(10(15TIME).5)10)T100T0.01)C$(T))C$(C$,2,4))C7:D35:4160)::8)I01)S6%(I)S%(I,6))S6%(I)0S6%(I)1*65X%,160:X3%X0%"(X3%5143102(X3%100X3%I(C$(" "(X3%),2)\(C7:D21:4160m(0:J70150(0,J188,J:J((X0%100X0%(X1%100X1%(P%1P%:(&J01(0C$(S%(J,0))(:C4.5:D1217J(D4160:J)NC$(DOWN%RS"',"RAMS","ELEPHANTS"3'6"DOLPHINS","COLTS"?'@C8C4K'JD7D4Z'TK1(C$)h'h0:1D,C'r3:((C$,K,1))30D,C'|DD7:K:'X%X0%:0'X%402X%P%(2004X%)'65X%,160:'X%X0%:3'X%402X%P%(2004X%)(ONVERSION FAILS!"$&C15:D8:41605&I11500:ID&4360:740S&P%0:4040\&P%1i&:I07t&Z$:I&Z(10(1))&I0Z&N$(P%):I&N$(0)N$(1)4040&&"PATRIOTS","STEELERS"&"VIKINGS","GIANTS"'""JETS","TIGE6 CHARC1:SLOCS1($@ L$(LN)""LNLN16$J NLLNTLNE$T NL12950T$^ NL02940s$h JELTLN:L$(J)L$(J1):J$r L$(LN)"":3020$| JLNEL11:L$(JNL1)L$(J):J$ J0NL1:L$(ELJ)L$(LNJ):L$(LNJ)"":J$ CX$(L$(ELNL1),1)% CX$CEL8:L2LNL2LN+# :JL1EL:L$(J):J7# :::P# JEL1L2:L$(J):J# 24:868::" TYPE NEW LINE ABOVE (^F TO FINISH) ";:# ELL11:1# TLNLN:LNLN1# J15:L$(TLNJ)"":J#" C1CHAR:S1SLOC:CHAR1:SLOC0#, ED1:440$" X$"X"2750m" 24:"DELETE FROM HERE TO END OF TEXT? (Y/N) ";:V1:1:X$:X$(U((X$))):X$"Y"2470" JELLN:L$(J)"":J:LNEL:CHAR1:SLOC0" V1:1:958" 24::Q$;:" V1:1:2520" X$(RTN)2490" L1EL8:L11L11# L2LNEL1NNLNEL1B!2 ELELNN:22:1:IELNNEL:L$(I):I:2490T!< X$ESC$3030k!F X$"D"V112690!P JELLN1:L$(J)L$(J1)::L$(LN)""!Z X21V1:XLNELXLNEL!d JELELX:868:L$(J):!n ELLN1V1V11:ELEL1!x LNLN1:2490X$:X$(U((X$)))+ X$"C"X$"F"3040= X$"I"2560] V11V1V11:ELEL1:2490l EL12490 ELEL5:EL1EL1 IELEL20:868:L$(I)::2490 X$"M"2620 ELLN12490  ELEL1  V121V1V11:2490!( NN4:NNL1)::LNLN1:8` ITI:34,0:35,22:I20V121:2440Hj VV:1:V1I`t X21:XLN1XLN1x~ IIT1X:L$(I):I ELV1(IT21)(IT21) F2760 Q$"I,M:MOVE RTN:EDT D,X:DEL F:FIND ESC:EXT" 24:1::Q$;: 34,0:35,22 V1:1:(L$(LIN),1)CR$2340A (L$(LIN),1)" "L$(LIN)L$(LIN)" "k L$(LIN)L$(LIN)L$(LIN1):2390:2350y$ LINLIN1. 21008 MVLN:LN999MV999B LNLN1:LN1000LN1000L LLMVLIN11:L$(LL1)L$(LL)::V LLLIN1LN1:L$(LL)L$(L1:21002(L$(LIN),1)" "L$(LIN)L$(LIN)" "L$(LIN1)(L$(LIN),Z01)L$(LIN1):L$(LIN)(L$(LIN),Z0):LINLIN1:2100(L$(LIN),1)" "L$(LIN)L$(LIN)" "L$(LIN1)(L$(LIN),LWID)L$(LIN):L$(LIN)(L$(LIN),LWID1):LINLIN1:2100 $(LN))1):2160@LE(L$(LIN)):LELWIDLINLIN1:2100RLELWID2310lC7LWID111:Z0C7(L$(LIN),C7,1)" "C71C7Z0122602290(L$(LIN),1)CR$İ2360:L$(LIN1)(L$(LIN),Z01):L$(LIN)(L$(LIN),Z0):LINLINCR$LNLN1:CHAR1:L$(LN)"":SLOC0:P\L$(LN)" "L$(LN)"":CHAR1:SLOC0:fCHAR(L$(LN))1:CHARLWIDCHARLWID:LNLN1:L$(LN)"":CHAR1:SLOC0:p(L$(LN))āSL(L$(LN))11:(L$(LN),SL,1)" "ĂzSLSL1:SLLWIDL$(LN)(L$(LN),(L..."K R$(L$(LN),1):R$" "L$(LN)(L$(LN),(L$(LN))1):R$(L$(LN),1)*CF0:LINEL:R$CR$L$(LN)L$(LN)CR$:LNLN1:CF14LIN,:LINLN2190>CF(L$(LN))L$(LN)(L$(LN),(L$(LN))1)HCF(L$(LN))L$(LN)"":LNLN1&R(L$(LN),1)C$" "1990 LL1:L01960)LLLJPP$(P$,L):P$(P$,(P$)L)eLM);:UCĺPP$;:2020n220J1LS:LINLIN1:" ":JLIN59āJ166LIN::J:LIN0(P$)LLLLL:1960CR(P$)01940 :5:"REJUSTIFYING TEXT800&1910:CR0.0X(16384):X2091880=:ILN1800WDLM);:UCĺP$;:1880gNPP$P$:220pX:0yb950lvLLL(P$)LL1960CR2060LP(P$):LP2PP$"":P$"":2000PP$(P$,LP1):P$"":2000 C$(P$,L,1): BY @? (DEFAULT = NO) ";:X$:X$(U((X$))):UC1:X$"Y"UC0:"HIT TO START, TO QUIT: ";:X$:X$(U((X$))):X$"S"178018801::P$"":CR0:I0II1:P$P$L$(I)(P$,1)CR$CR1:1830(P$)255LWIDILN1BPJBDCNGNEJBBNPNLDPGPBBCNCNDFDPDPDHENAJNMAA" BLEMAABLMAMBPJBDCNGNEJBBNPNLDBGPBCNCNDFDPDPDHENAJNMAA" FFAAAMAMPMBLHGBGBOGOAJOEAEAAAMAMPMBLHGIODGAGAAAMAMDMDPLHFCBOCOCNCNAACDCECNLFJCDKDPCHCFCHCECEAABMBMIOFBBFAEAACBCEDPLHJCCKCN",7h"CFCHCFCECEAAJKJDCNCNAFAANLADEAAJCNENBKDPDPOPBHCNCNCNCNPODPDPDPFHAJCNENACAAAJEAEDGLBBDPPPNLBDENEJCNPNBDDPDPDHCNCNDFNPBLEMAABLMAMwD 169,32,133,1,169,64,133,3,169,0,133,0,133,2,168,177,0,73,255,145,2,200,208,247,230,1,230,3,165,1,201,64,208,237,96HN 32,190,222,32,217,247,24,160,2,165,155,113,155,133,62,165,156,200,113,155,133,63,200,177,155,10,105,5,101,155,133,60,169,0,101,156,82,101,36,108,105,55,54,23,45,77,45,12,280 231,12,45,77,73,73,54,54,77,28,60,4,40,21,77,54,14,101,36,220,109,9,182,98,44,12,52,0: 165,1,133,3,166,0,160,1,132,2,173,48,192,136,208,4,198,1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,96,36,28,191,54,77,73,36,12,45,222,146,45,77,36,36,77,30,23,21 21,77,36,36,45,53,254,173,110,33,36,44,245,146,101,36,76,41,45,22,63,39,22,46,45,4,0,54,54,45,12,28,39,40,21,76)& 49,150,12,44,12,108,73,73,49,54,46,45,77,41,12,36,28,191,54,77,73,36,180,5,13,13,76,36,4,0,18,54,118,105,13,76,228,251,31,4,96,105,13,4,0,13,13,13,13,254 250,250,50,38,0,50,22,118,105,13,76,36,32,220,31,31,150,13,13,5,0,18,100,105,13,141,54,254,186,251,31,12,64,13,13,5< 0,54,54,45,12,28,39,40,21,76,49,54,46,45,77,41,12I 340: "LEVER GIRAFFE7 WHO AT RACING GAVE OTHERS THE LAUGHT AT THE WIRE IT IS SAIDu HE JUST STUCK OUT HIS HEAD AND WON BY THREE FEET AND ONE---.,INCH, HALF, HEAD,2"SORRY, THE CORRECT ANSWER IS ---"ARRAY$(R)I14000TUMMY, INSIDE, GLASS,2@ THERE WAS AN OLD FELLOW NAMED GREENb WHO GREW SO ABNORMALLY LEAN AND FLAT AND COMPRESSED THAT HIS BACK SQUEEZED HIS CHEST AND SIDEWAYS HE COULDN'T BE ---., BLESSED, HELD, SEEN , 3  THERE ONCE WAS A C EVER USE ANYS THUS AVOIDING THE CARE AND THE ---., TROUBLE, STRAIN, STRESS, 2z THERE WAS A YOUNG LADY WHO TRIED A DIET OF APPLES - THEN CRIED THE UNFORTUNATE MISS REALLY SUFFERED FROM THIS: TOO MUCH CIDER INSIDE HER ---.,REAMED HE WAS EATING HIS SHOE9 HE AWOKE IN THE NIGHTT IN A TERRIBLE FRIGHT AND FOUND IT WAS PERFECTLY ---!, TRUE, TASTY, AWFUL, 1 TO MANAGE TO KEEP UP A BRAIN IS NO EASY JOB - IT'S PLAIN THAT'S WHY A GREAT MANY  DON'T200,1652+ 158,145,131,200,165,159,145,131,96,-1 1"; PRES A KEY";:X$0*z 34,0:35,22:3288:420+ 166,118,224,255,208,3,76,11,227,169,132,32,192,222,32,227,223,32,108,221,169,128,133,51,32,111,253,142,255,2,173,255,2,32,213,227,172,255,2,240,11,136,185,0,2,41,127,145,158,152,208,245,165,157,145,131,(7)A) E0E15ĉ:"ERROR #";E;" IN LINE ";(218)(219)256:Q)* D$;"CLOSE"d)4 "DISK ERR: ";)> E4ĺ"WRITE-PROTECTED";)H E5ĺ:D$;"DELETE ";F$:"END OF DATA";)R E9ĺ"DISK FULL";)\ E10ĺ"FILE LOCKED";)f E6ĺ"FILE NOT FOUND";*p WIDS$(S$,LWID),( S$""ĭS1$""S$S1$7( S1$S$M( LINELLN:Z0LINd( (L$(LIN))03320|( SE(L$(LIN))(S$)( CS1(L$(LIN))(S$)( (L$(LIN),CS,(S$))S$CSSE:LINLN( CS( LIN( Z0LNIZ0:2400( F0:) E(222):LN1(CHAR1):T$"":C7N1(L$(CL))>'X CC((L$(CL),C7,1))Y'b CC64CC91T$T$"@"m'l T$T$(U(CC))'v :CL,:L$(CL)T$::EL1::2070' X$"F"2490' F1' 24:1:39):1( 34,23:35,24:"SEARCH STRING: ";:S$:34,0:35,22:(S$)L90@& CLN1LN1(CHAR1):LOCKN0:LCN1:T$"":C7N1(L$(CL))i& CC((L$(CL),C7,1)):CCN32LOCKN0{& CCN643130&& LCLOCKN1&0 LCN0:3140&: T$T$(CCN32(LCCCN64CCN91)(LOCK)):LCN1&D :CL,:L$(CL)T$::EL1::2070%'N CLN1R$30201% CX$" "L$(ELNL1)L$(ELNL1)" "P% SS1:L$L$(ELNL):LL(L$)z% (L$,SS,1)" "SSLLSSSS1:3000% (L$(ELNL1))SSLWIDİ2070:3030% LNTLNNL1% % X$"C"3200% :7:"CONVERTING..."% AE3150& LN224"J((1).2)100115:TJ,9:SH(NU)570,580,590,600,610,620,630,640,650,660,670,680,690,700,710,720,730,740,750,760,770,780,790,800,810,820,830,840,850,860,870,880,890,900,910,9203:JY11Y118:X11,JX118,J::JY21Y218:X21,JX21TG930290%A$:A$(6)1050<A$"1"A$"6"420EA$;[B$:B$(6)1050}B$(8)ĺ(8);" ";(8);:420B$"A"B$H$450B$:A$"1"NU(B$)64:500NU(((A$)1)LM)((B$)64)X((B$)64)20:Y(A$)20:5502)3809h:23:12)"SORRY, NO MATCH.":J12000::540MrMVMV1:Q:280|:23:K255103:TK,5:::2:"FANTASTIC, "N$(Q)"! YOU MATCHED THEM!":J12000:SC(Q)SC(Q)1:ST(N1)1:ST(N2)1:MVMV1:YY1:XX1:550:YY2:XX2:550NN1:N ";SC(2)u,:23:1:868:23:1:N$(Q)", ENTER GUESS #1: ";:420:N1NU:X1X:Y1Y:ST(NU)1İ560:23:1:868:300~6510@23:868:23:N$(Q)", ENTER GUESS #2: ";:420:N1NU320JN2NU:X2X:Y2Y:ST(NU)1İ560:320T510^SH(N1)SH(N54205,151 LV3Ē3:224,144224,154228,149229,148230,147231,146232,145233,144:228,149229,150230,151231,151232,152233,153233,154:245,144245,154254,15434,21Q1PP"22::N$(1)"'S SCORE: ";SC(1);:PP2Ė21:N$(2)"'S SCORE:174,154:184,144192,144188,144188,154184,154192,154:205,144213,144209,144209,154205,154205,151 LV3Ē3:165,144165,154165,148174,148174,144174,154:184,144192,144188,144188,154184,154192,154:205,144213,144209,144209,154205,14695,15294,15393,15486,15486,144 104,148108,148:113,144104,144104,154113,154:125,144134,144125,144125,154125,148129,148 153,144144,144144,154153,154153,150:151,150155,150jLV2Ē3:165,144165,154165,148174,148174,144259,J:19,J1259,J1:. LV1LV2LV3Ē3d 34,15434,14425,14425,14425,15425,14934,149 45,15445,14452,14453,14554,14654,14853,14945,14945,15452,15453,15354,15254,150% 74,14465,14465,15474,154:86,14493,14494,14595,1,4515,4515,499,499,5315,53e 9,6515,6515,759,75:15,7012,70:9,859,9015,90:12,8712,95 15,1059,1059,11015,11015,1159,115:15,1259,1259,13515,13515,1309,130:0 J1925920:J,19J,139:J1,19J1,139:J:J1913920:19,J :10:9:"GENERATING BOARD PIECES"E 12:15::"PLEASE WAIT":\ LV1060,1070,1080 :3:0,0279,0279,1590,1590,0:J19139:19,J259,J: LV1Ē0:J19150:161,J260,J::3 LV2Ē0:J19150:221,J260,J::3 12,2412,34:9S PLAYER #"J;:"'S NAME ? ";N$(J):(N$(J))170G P(N$(J))8Ă:100 Z16::"ONLY ENTER A MAXIMUM OF 7 LETTERS PLEASE"::K12000::16:868:10(2J):868:70 d::"LEVEL OF DIFFICULTY (1-3) ? "; nA$:A$"1"A$"3"110 xA$:LV(A$)&, 16384:::255::SH(72),ST(72):1130l:13:"CONCENTRATION!":::19)"BY"::14)"GLENN ARCHER"9:"HOW MANY PLAYERS(";::"1";::" OR ";::"2";::")?";(PP$:PP$"1"PP$"2"402PP$:PP(PP$)<J1PP0 F10(2J):"WHAT I            12121232323231323131311313132313231313222" )0" "33333232323121111213232323332333231312121131313232323232132333323121113332322123233332312121233333312121233333323131213233231312323232313122"* "232323232323231312212121212121312131323232332313131232332323233331213113233332312111333231232333323133,61,160,0,152,145,60,230,60,208,2,230,61,165,60,197,62,208,241,165,61pX 197,63,208,235,32,183,0,208,190,96 "33162432121242334012121512121511131212121210331512121524421212301212151212151113121212121033432432121212123340" "1010341110121410332,118,105,13,76,36,36,220,31,31,150,98,97,49,0,137,76,54,54,246,107,13,5,0,98,105,13,141,246,251,159 159,110,13,13,13,4,0,13,13,13,13,254,250,106,141,246,255,31,220,4,0,73,73,54,118,177,27,36,31,31,31,100,97,49,0,13P 13,13,13,214,251,31,31,180,18,8"N"2200M$:- I76807995:A:I,A:F I768803:A:I,A:_ I804838:A:I,A:x I839905:A:I,A:~  13,0,28,0,40,0,56,0,65,0,79,0,93,0,107,0,124,0,139,0,149,0,165,0,181,0,243,0,13,13,254,31,110,9,254,31c 110,13,7,0,50,54POINTS WINS!!!"\:" YOU CAN PLAY WITH OR WITHOUT A BORDER AROUND THE SCREEN. IF THERE IS NO BORDER, A PLAYER WHO EXITS THE PLAYFIELDOFF ONE SIDE WILL REAPPEAR ON THE OTHER SIDE."23:1:"DO YOU WANT A BORDER (Y/N)? ";:M$:M$"Y"M$O TURN RIGHT USE EITHER S OR L KEY."T :" TO TURN LEFT USE EITHER A OR K KEY."*24:8::"(PRESS A KEY TO CONTINUE)";::A$434,2::34,0H:" YOU SCORE A POINT WHEN YOUR OPPONENT RUNS INTO A WALL."R:" THE FIRST PLAYER TO GET 9 FOR 2 PLAYERS."[:" EACH PLAYER MOVES ON THE SCREEN, LEAVING A WALL BEHIND HIM.":" THE OBJECT OF THE GAME IS TO FORCE YOUR OPPONENT INTO A WALL, EITHER YOURS OR HIS." :" YOU CAN ONLY TURN 90 DEGREES AT A TIME."$:" TI1,1))7X,Y:XX(A2):YY(B2):0,3:1,3:768::22:1:"DO YOU WANT INSTRUCTIONS (Y/N)?";:A$:A$"Y"A$"N"2000A$:A$"N"2200:::12:"<<< BLOCKADE >>>"::15:"BY LOUIS ROY":" THIS IS THE FAMOUS 'BLOCKADE' GAME 1(A$)2:A((A$,U,1)):B((A$,U1,1))ktI1A:X,YX2,YX2,Y3X,Y3X,Y:XX4:0,X25:1,3:768:~B0YY5:XK:1170XX4B:X110:Y140:3:1250:128,141:X147:Y140:1250A$:I1(A$)2:A((A$,I,1)):B((A$,;(7);(7)::X0,08b0,(0)1:(0)180610>lVXY(34,29):A$(100)16301,0:16300,0:16297,0:16304,0232,0:233,30:0:1C(0)1:C(1)5:S(0)0:S(1)0LK47:Y35:5:1130:K119:Y90:1:1130`1200)jXK:A$:U1:C(0):S(0)271,184.JS(0)9S(1)9500CT0,30:1,80:768K^30VI03}0,60:1,90:768:0,130:1,90:768:16368,0:80416300,0:600:16299,0:600&0,(16384):(0)128540 016368,0:(0)155ĉ:::"BYE!!"4: A(1)1ĒXC(1):1X(1)81,Y(1)61:S(1)2199,184w X0āA010:B(16336)(16336)(16336)(16336): A025:  ,839,XY 6A(0)1Ē0:S(1)2199,184:S(1)S(1)1:C(1):S(1)2199,184@A(1)1Ē0:S(0)271,184:S(0)S(0)D(1)D(1)1:16368,0:D(1)5D(1)1\ (16384)203D(1)D(1)1:16368,0:D(1)0D(1)4 :A(0)0A(1)0Ĺ0,200:1,4:768:100 X(0)X(1)Y(0)Y(1)A(0)1:A(1)1 I013:X(1(1)I)2 A(0)1ĒXC(0):1X(0)81,Y(0)61:S(0)271,18:Y(I)30Y(I)0 t120: uX(I)X(I)1:X(I)1X(I)34| xC(I):1X(I)81,Y(I)61:A(I)XY(X(I),Y(I)):XY(X(I),Y(I))1 }(16384)211D(0)D(0)1:16368,0:D(0)5D(0)1 (16384)193D(0)D(0)1:16368,0:D(0)0D(0)4$ (16384)2041000:a PI521:6:I134,82:A4022:0,A:1,3:768::A0290::0:I134,82:A090::x U0,255:1,110:768 dI01 nD(I)111,113,115,117 oY(I)Y(I)1:Y(I)1Y(I)29 p120 qX(I)X(I)1:X(I)35X(I)0 r120 sY(I)Y(I)1)15:D(0)1:D(1)1:A(0)0:A(1)0h 7C(0):1X(0)81,(Y(0)1)61:C(1):1X(1)81,(Y(1)1)61:C(1)w <M$"N"75 A2:X034:XY(X,0)1:XY(X,29)1:1X8,1:1272X8,2961: FY128:XY(0,Y)1:XY(34,Y)1:12,Y61:1348,175Y6: KI0,16384:24575* ::230,32:6245043000>1000H2000q16368,0:16302,0:16304,0:62450#2:0,0278,0:0,180278,180(C(0):S(0)271,184:C(1):S(1)2199,184-3:12116,181:13104,187 2X(0)10:X(1)24:Y(0)15:Y(1               610:720:oX2,Y2X13,Y2X13,Y13X2,Y13X2,Y2:X17,Y17X6,Y17X6,Y6X17,Y6X17,Y17:J1Y4Y7:X4,J1X7,J1::J1Y12Y15:X12,J1X15,J1:: 570:770:680:570: 690:570:*620:630:4610:602,Y9X7,Y15:FX2,Y9X17,Y9:X11,Y4X17,Y9X11,Y15:{X9,Y2X9,Y17:X4,Y11X9,Y17X15,Y11:X2,Y2X17,Y17:X17,Y2X2,Y17:570:630:620:610:650:660:690:620:680:620: X17,Y17:X17,Y2X2,Y17:IbX9,Y2X9,Y17:X2,Y9X17,Y9:zlX9,Y2X17,Y9X9,Y17X2,Y9X9,Y2:vX6,Y6X13,Y6X13,Y13X6,Y13X6,Y6:X9,Y2X9,Y17:X4,Y7X9,Y2X14,Y7:X2,Y9X17,Y9:X7,Y4X8,J::+&0:JYY19:X,JX19,J::3:m0:23:" THAT SQUARE HAS ALREADY BEEN MATCHED.":J12000:::X2,Y2X17,Y2X17,Y17X2,Y17X2,Y2:DX9,Y2X17,Y17X2,Y17X9,Y2:NX2,Y2X17,Y2X9,Y17X2,Y2:XX2,Y2 3431"LESSON #";L$;" WAS NOT FOUND":2010M"THAT'S ALL THE WORDS"d:"BYE FOR NOW":2000 D$""3 "WHICH WORD FILE DO YOU WANT";; Z0C L$h D$;"OPEN WORD FILE #";L$;",L40"r ZZ1 D$;"READ WORD FILE #";L$;",R";Z W$(Z) W$(Z)"STOP"3200 C(Z)0 3050 NZ D$;"CLOSE WORD FILE #";L$ KTZBLACK,WHITE4 APPLE,BANANA,CATALOG,DORMANT,EAGLE> "0"j"DO YOU WANT THE WORDS FROM A CERTAIN""LESSON, OR RANDOM WORDS?""TYPE 'LESSON' OR 'RANDOM'";R$R$"RANDOM"310R$"LESSON"3000"PLEASE ANSWER AGAIN" USER DONELD12780':DD1>LD;" MORE TRIES"G560Q DD1n:"ONE LAST TRY !":560 "ORIGINAL WORD "W$(M)"G14000:%TT1*342" R I G H T !"G1500:C2C21342  FILLER,CHARGE,(G$)L700Ov"OOPS, THERE SHOULD BE "(W$(M));" LETTERS IN YOUR":"GUESS."YDD1b560jC0uK1LX$(K)(G$,K,1)X$(K)Y$(K)730C1720"ERROR(S) AT ";C1(K);",";DL1800K  HOW WELL HAS R(R)1430 Z$(K)Y$(R)+ R(R)12 KS "THE SCRAMBLED WORD IS :":[ 10f K1Lr Z$(K);y K &:D0 0:"WHAT IS YOUR GUESS "; :G$ DG$W$(M)900 NG$"DONE"5000 XG$"TOO HARD"342 bG$"ANSWER"800 l310 TKTN:T1" VTN15000( W8 ^M(N(1))E _M0350W `KCKT15000g aC(M)1350r bC(M)1~ cKCKC1 dKCKT5000 hL(W$(M)) rK1L |Y$(K)(W$(M),K,1) K A1L R(A)0 A K1L R(L(1)1) THE ANSWER."; :"IF YOU TYPE 'TOO HARD', THE COMPUTER"^ "WILL GIVE YOU ANOTHER WORD." :"TYPE 'DONE' WHEN YOU WANT TO QUIT." ::: "PRESS RETURN TO CONTINUE"; J$ ,2000 6W$(N) @W$(N)"0"340 BC(N)0 JNN1 LION PRINTED."9 "YOU TRY TO GUESS THE ORIGINAL WORD.."h :"THIS APPLE WILL GIVE CLUES AFTER YOUR" "ANSWER BY TELLING YOU AT WHAT POSITION" "YOU HAVE MADE AN ERROR." :"IF YOU TYPE 'ANSWER', AS YOUR GUESS," "THE COMPUTER WILL TELLORD SCRAMBLE" nI12500:I* x936:3 C20^ "WOULD YOU LIKE THE RULES (YES OR NO)f A$| (A$,1)"Y"300 936: "A WORD WILL BE PICKED BY THE COMPUTER" "ITS LETTERS WILL BE SCRAMBLED,AND" "THE ORIGINAL SCRAMBLED VERSe :936:) TITLE-WORD SCRAMBLEG WRITTEN BY SUSAN MANUEL` ESU#3 OMAHA, NEBR.y( AREA-LANGUAGE ARTS2 TEACHER MAY ADD DATA IN LINES 1000 TO 2000PW$(300),R(15),G$(15),X$(15),Y$(15),Z$(15),S(15),C(300)ZKT0:KT0 d13)"W      T, TOES, CARPET, 1@ THERE WERE ONCE THREE FELLOWS FROM GARYf NAMED LARRY - HARRY - AND BARRY NOW HARRY WAS BARE AS AN EGG OR A PEAR BUT LARRY AND BARRY WERE ---!,FAIR, HAIRY, BALD,2 THERE WAS AN OLD MAN OF PERU WHO DHT@ THEY FOUND IT NEXT DAY IN THE ---., SKY, SPIRE, LIGHT,2O ARRAY$(R)t ABOUT THAT YOUNG LADY OF CRETE WHO WAS SO EXCEEDINGLY NEAT WHEN SHE GOT OUT OF BED SHE STOOD ON HER HEAD TO MAKE SURE OF NOT SOILING HER ---., FEEE WAS COVERED WITH GRASSa AND HE COULDN'T SIT DOWN FOR THE ---!, SQUIRRELS, FLOWERS, WEEDS,3j (8) THERE WAS A YOUNG GIRL IN THE CHOIR WHOSE VOICE ROSE HIGHER AND HIGHER TILL IT REACHED SUCH A HEIGHT IT WENT CLEAR OUT OF SIGIFULLY SKINNY AND BONY8 "'IT'S APPARENT,' HE SAID"R 'I'M IMPROPERLY FED ON A DIET OF RAW ---.,FISH, MACARONI, CARROTS,2  THERE WAS A YOUNG FARMER OF LEEDS WHO SWALLOWED SIX PACKETS OF SEEDS IT SOON CAME TO PASS H5:"3) END"913:5:"PLEASE ENTER 1, 2, OR 3";:868JZ$:Z(Z$)[Z0Z4665d645xZ265,670,5000600,7:D$(4):10:5:"GETTING THE MENU PROGRAM. . .":D$;"RUN HELLO" A SMALL MOUSE IN MIDDLETON STONEY GREW PITOF ABUSED":$^"AREN'T YOU SMART"._:::g:::]k"DON'T YOU JUST............."klX16000rmXxno50pq:4:5:"WOULD YOU LIKE TO:"v6:5:"1) RUN THIS PROGRAM AGAIN"{8:5:"2) RUN A DIFFERENT PROGRAM" 10:) +BEEP010$5"INCORRECT"*:2?10HD"TRY AGAIN! ";N$PI:YN460bS(8)X"YOU HAVE ";M;" CORRECT OUT OF 10."Y:Z"AREN'T YOU SMART":["YOU'VE CAPTURED MY HEART":\"YOUR BRAIN HAS BEEN USED": ]"INSTEAD :WR485C24000&545.:B"CORRECT! ";N$J:S(8)r"***** SUPER JOB *****"~I125""SOUND(16336)J1150JI I12000IMM1340!BEEP1100&SOUND(16336mC$rD$wE$#|I132ARRAY$(I)9I@RHC0PA$Z:B$d:C$n:D$x:E$::I13I;" ";ARRAY$(I)I:"WHICH WORD WILL FINISH THE LIMERICK CORRECTLY?":WCC1:"I WILL SHOW YOU A LIMERICK."$ <2 =I130009 >Ia @"THE LAST WORD WILL BE MISSING.":o BI13000v CI E"PLEASE TYPE THE NUMBER OF THE CORRECT ANSWER." HI16000 II JMK OK0 T YKK1 ^K11595 cA$hB$12000 "I #:::j $"LINES 1,2 AND 5 END IN: NORWAY, DOORWAY AND NORWAY; ALL OF WHICH RHYME.": %"LINES 3 AND 4 END IN FLAT AND THAT, WHICH RHYME." 'I110000 )I + ,::: 1"NOW,"N$",LET'S PLAY A GAME!" 6:: ; I # :"FOR EXAMPLE:"P :"THERE WAS A YOUNG LADY OF NORWAY;":x "WHO CASUALLY SAT IN A DOORWAY;": "WHEN THE DOOR SQUEEZED HER FLAT,": "SHE EXCLAIMED, 'WHAT OF THAT?'": "THIS COURAGEOUS YOUNG LADY OF NORWAY." !I1  (14) "HI, ";N$' :[ "LET'S BEGIN BY LEARNING WHAT LIMERICKS ARE."i I13000p Ix : "A LIMERICK IS A NONSENSE POEM OF FIVE LINES.": :"LINES 1,2,AND 5 RHYME AND LINES 3 AND 4 RHYME." :: I16000"*" nI x(11)0 "LOVE THOSE LIMERICKS"; I16L "*";39)"*"S I_ I139i "*";p I~ I12000 I (8) "HI! WE WILL BE PLAYING A LIMERICK GAME." :: "WHAT IS YOUR NAME?" :: N$" COMPUTER COURSE ASSIGNMENT THIS PROGRAM WILL GIVE A CHILD EXPERIENCE IN LEARNING ABOUT LIMERICKS AND IN FOLLOWING THE CORRECT RHYMING PATTERN FOR LIMERICKS.(-50.2202(8)<I137F"*";PIZI16 d"*";39)              0:>570:600:#H570:820:3R590:580:C\850:570:Sf830:910:cp600:620:sz880:570:830:760:570:710:640:670:::11:"*** FINAL SCORE ***"::5PP1ĺN$(1)", YOU SCORED "SC(1)" POINTS.":1000"':"THE END"' RGAIN"-#8:5:"2) RUN A DIFFERENT PROGRAM"B#10:5:"3) END"o#13:5:"PLEASE ENTER 1, 2, OR 3";:868#Z$:Z(Z$)#Z0Z49180#9140#Z10,9190,9999#600,7:D$(4)#:10:5:"GETTING THE MENU PROGRAM. . .":D$;"RUN HELLOCHARGERS,BUCKANEERS,BILLS,VIKINGS,BUCKANEERSjJ OCEAN-GOING BIRDS,JETS,FALCONS,EAGLES,SEAHAWKS,SEAHAWKS(#:12:"TOUCHDOWN !!!!!!!!!!!!!!!!":X13000:X2#:12:"YOUR SCORE IS "Q#:4:5:"WOULD YOU LIKE TO:"#6:5:"1) RUN THIS PROGRAM ARS; INDIAN RULERS,REDSKINS,CHIEFS,RAIDERS,LIONS,CHIEFSt" LOADERS, PACKERS,STEELERS,RAIDERS,SEAHAWKS,PACKERS, KING OF BEASTS,RAMS,DOLPHINS,EAGLES,LIONS,LIONS6 USED TO BE A GIRL, GIANTS,BENGALS,BROWNS,SAINTS,BENGALS,@ DOLLAR FOR CORN, OF BOYSCOUTS, COWBOYS,BROWNS,EAGLES,BILLS,EAGLESo AMERICAN GOUCHOS,COWBOYS,RAIDERS,CHIEFS,VIKINGS,COWBOYS FUNDAMENTAL CHURCH RULERS, SAINTS, BEARS, CHIEFS,CARDINALS, CARDINALS CREDIT CARD USERS,CHARGERS ,FORTY-NINERS,STEELERS,BILLS,CHARGES,CARDINALS ,OILERSM RODEO HORSES,CHARGERS,COLTS,BRONCOS,RAIDERS,BRONCOS SIX-SHOOTERS,PACKERS,COLTS,BENGALS,COWBOYS,COLTS SIX RULERS,CARDINALS,SAINTS,CHIEFS,VIKINGS,VIKINGS OPPOSITE OF EWES,LIONS,RAMS,EAGLES,DOLPHINS,RAMS1 CLASSRGERS,BILLSM LOYAL AMERICANS, PATRIOTS,COWBOYS,SAINTS,CARDINALS,PATRIOTS TOY BABY WITH FISH ARMS,SEAHAWKS,DOLPHINS,COWBOYS, RAMS,DOLPHINS TRAINED TO HUNT AND KILL, COWBOYS,LIONS,EAGLES,FALCONS,FALCONS LUBRICATORS,OILERS,PACKERS,SAINTVIKINGS,STEELERSN SUNTANNED BODIES, BROWNS, REDSKINS,SAINTS,GIANTS,BROWNS INDIAN BRIGADE, RAIDERS,CHIEFS,BUCKANEERS,REDSKINS,REDSKINS LOUIS ARMSTRONG'S BEST SONG, DOLPHINS ,EAGLES,SAINTS,BEARS,SAINTS  IOU'S ,BILLS ,RAIDERS,VIKINGS,CHA-NINERSJ STREAKERS ARE THESE, BEARS, CHIEFS, STEELERS, SEAHAWKS,BEARS SEVEN-FORTY-SEVENS ARE, OILERS,PACKERS,JETS,BILL,JETS HOSTILE ATTACKERS ARE, COLTS,PATRIOTS,RAIDERS,BUCKANEERS, RAIDERS  VARIATION OF IRON, OILERS,STEELERS,BILLS,(I,Z)A$(I)300 CC1) C1090002 "5009 ,IC 9999]  GRAPHICS SUBROUTINEw :"GRAPHICS TO COME"}  SOLDIER INSECTS ARE,RAMS,LIONS,GIANTS,BEARS,GIANTS SEVEN TIMES SEVEN IS, SEAHAWKS,FORTY-NINERS, RAIDERS,CHARGERS,FORTY000:X xI128 Q$(I)( J145 M$(I,J)< JG A$(I)M [ 8:Q$(I)f J14l 10)J")";13)M$(I,J) J "PRESS THE NUMBER OF THE CORRECT ANSWER." Z$ Z(Z$) QQ1 Z1Z4240 M$DED FOR YOU TO MAKE A TOUCHDOWN IS RECORDED."^ _"THIS SCORE WILL BE GIVEN AT THE END.":: `"PRESS TO CONTINUE.";W$ a:12 d"REMEMBER ";N$;" A 10 IS PERFECT!":X13000:X e:12 n"NOW GO OUT THERE AND GET 'EM ";N$ pX13RECT ANSWER."U <:"IF YOU ARE CORRECT YOU WILL SEE YOUR PLAYER GAIN TEN YARDS." F:"IF YOU ARE INCORRECT YOU WILL BE ASKED ANOTHER QUESTION." P:"AFTER YOU GAIN 100 YARDS ";N$ U"YOU SCORE A TOUCHDOWN!". Z:"THE NUMBER OF QUESTIONS NEE  Q$(28),M$(28,4),A$(28)& Q0/ C05=:S"HI SPORTS FANS"q"PLEASE TYPE YOUR NAME."y(N$-.:2N$;" YOU WILL BE ASKED A QUESTION,"3"THEN GIVEN FOUR POSSIBLE ANSWERS."6 7"TYPE THE LETTER OF THE COR     D" Z Z2900)600,7:D$(4)g :10:5:"GETTING THE MENU PROGRAM. . .":D$;"RUN HELLO":"PLEASE TURN ME AND THE MONITOR OFF." AND B",D> "WHOOPS!","OH NO!","SHUCKS!","SORRY!","UH OH!" "HOT DOG ","DYN-O-MITE ","FAN-TAS-TIC","ZIPPITY DO DA ","WELL I'LL BE HANGED "H14000:H:4:5:"WOULD YOU LIKE TO:"6:5:"1) RUN A DIFFERENT PROGRAM"8:5:"2) ENTHE SAME ELEVATION","C DIFFERENT ELEVATIONS","D DIFFERENT SIZES",B "IF Y EQUALS 100,000 THEN YYYY EQUALS ","A 375,000","B 425,000","C 300,000","D 400,000",D  "THE EARTH ROTATES","A TO THE EAST","B COUNTER CLOCKWISE","C CLOCKWISE","D A USUALLY BE","A NORTH","B WEST","C EAST","D SOUTH",D "IF ONE INCH EQUALS 100 MILES, THEN ONE FOURTH INCH EQUALS","A 75 MILES","B 60 MILES","C 50 MILES","D 25 MILES",DD "A LINE ON A CONTOUR MAP CONNECTS POINTS OF ","A EQUAL SIZE","B BLUE",Dq "A LEGEND CONTAINS THE FOLLOWING","A SCALE","B SYMBOLS USED ","C A AND B","D CONTOUR LINES",C "IF YOU'RE AT THE NORTH POLE AND YOU GO RIGHT YOU'LL GO ","A EAST","B WEST","C SOUTH","D NORTH",C8 "THE BOTTOM OF A MAP WILLEQUATOR IS A LINE OF ","A ELEVATION","B CONTOUR","C LONGITUDE","D LATITUDE",Dl "IF YOU MOVE TO THE LEFT ON A MAP YOU'RE GOING ","A NORTH","B EAST","C SOUTH","D WEST",D v "WATER ON A MAP IS --- IN COLOR.","A GREEN","B TAN","C BROWN","DANOTHER BODY OF WATER","D CROSSES A DESERT",CN "TO GO UPSTREAM ON A RIVER YOU GO TOWARD","A THE SOURCE","B THE OTHER SIDE","C THE HILLS","D THE SEA",AX "A PENINSULA HAS WATER ON --- SIDES","A ONE","B FOUR","C THREE","D TWO",CQb "THE SCALE","B LATITUDE","C CONTOUR","D LONGITUDE",C: "ANOTHER NAME FOR A LINE OF LONGITUDE IS ","A A DIRECTION","B A MERIDIAN","C A SYMBOL","D CONTOUR",B.D "THE MOUTH OF A RIVER IS WHERE IT","A STARTS","B DIGESTS ITS FOOD","C FLOWS INTO "SCALE ON A MAP IS USED FOR","A DIRECTION","B ELEVATION","C CONTOUR","D MEASUREMENT ",D& "LINES OF LATITUDE RUN" ,"A NORTH TO SOUTH","B EAST TO WEST","C RIGHT TO LEFT","D B AND C",D40 "LINES USED TO SHOW ELEVATION ARE --- LINES","A TOP.","A BOTTOM","B RIGHT","C LEFT","D NORTH",D  "A COMPASS ROSE IS USED TO EXPLAIN","A SYMBOLS","B SCALE","C DIRECTIONS","D LATITUDE",C  "LINES OF LONGITUDE ARE USED TO FIND","A PLACEMENT","B CONTOUR","C SCALE","D DIRECTIONS",A].":# "PLEASE TYPE IN Y OR N ."+ A$; A$"Y"508i "I HOPE YOU HAVE ENJOYED YOURSELF. SEE" " YOU AGAIN SOON!!" 730  (4);"RUN MENUE" "WOULD YOU LIKE TO TRY ANOTHER CATAGORY?"4  "ON A MAP, --- IS ALWAYS TOWARD THE T1 205F " THE CORRECT RESPONSE SHOULD HAVE BEEN ";G$(R)O 460a J(5(3))1u S$(J);" ";N$: "YOUR ANSWER IS CORRECT." T1460 CC1 N  10 "YOU HAD ";C;" CORRECT RESPONSES ON YOUR" "FIRST TRY$(R): 5)C$(R):& 5)D$(R):6 5)E$(R):D 5)F$(R)J V U(R)1^ A$d "v ,A$G$(R)430 6T1410 @ J TJ(5(3))1 hR$(J);" ";N$;" ";A$;" IS NOT THE CORRECT" r"RESPONSE. TRY AGAIN!" |P14000:PS":1 }"JUST FOR MY RECORDS, WOULD YOU PLEASE"S "TYPE IN YOUR NAME AGAIN.":] N$:t "THANK YOU ";N$: "ENTER THE LETTER OF THE CORRECT RESPONSE" N120 J14000:J R(20(3))1 U(R)1180 T0  :5:B MAP SKILLSSB$(20),C$(20),D$(20),E$(20),F$(20),G$(20),U(20),R$(5),S$(5)_N120(B$(N),C$(N),D$(N),E$(N),F$(N),G$(N)2U(R)0<NAN15FR$(N)KNPN15US$(N)ZNdC0in10 x13)"MAP SKILL     FOR NOW!"NNSA$""%NAB$""-NC07N2280d1R TEST? 1-YES 0-NO" YJ( ^J1ī55. c9 hCC3F jC2C2O mW0Z rDD1c w275n |CC3w U0 ZZ1 275 P150 P   COMPLETED": ":> 'A$;", YOU ANSWERED ";Q;" QUESTIONS"Z ,"CORRECTLY, OUT OF 20"` / 1"YOUR PERCENT SCORE IS ";5Q;" %" 4 6 ; @"DIFFICULTY CHANGES" B E"INCREASES = ";Z H J"DECREASES = ";D O: T"ANOTHE133,1,198,2,208,241,961166:J1:J767,J1::1013,76:1014,0:1015,3:t201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230,104,134,3,134,1,133,0~170,160,1,132,2,173,48,192,136,208,4,198,1,240,7,202,208,246,166,0,208,239,165,3,.6)):S1$S1$(J):JuLJ1TG2:J1((1)(TGTGJ1)1):K((S1$,J1,1)):J11S1$(S1$,J11)(S1$,J11):1110QS1$(S1$,2)VJ1((1)(TGTGJ1)1):L((S$,J1,1)):J11S$(S$,J11)(S$,J11):1120[S$(S$,2)`SH(K)L:J:0jJS."*J125113:KJJ71:TK,3::R22:"DO YOU WANT TO PLAY AGAIN ?";dA$:A$"Y"ĬvA$"N"1030::$TG21:LM7:H$"G":1090.TG30:LM10:H$"J":10908TG36:LM12:H$"L":1090BS$"":S1$"":J1TG2:S$S$((J2"SC(1)SC(2)A$"IT'S A TIE!"DSC(1)SC(2)A$N$(2)" WON!"fSC(1)SC(2)A$N$(1)" WON!"~:(20(A$)2):A$:::N$(1)"'S SCORE WAS "SC(1)"."::N$(2)"'S SCORE WAS "SC(2)".":"IT TOOK "MV" TURNS TO MATCH ALL"::"OF THE SHAPEL ` `      L 9jjj  L~ `mi%mif`DL1@t XSL@L L ``  :"FR256:) "USED SECTORS :"TTFRO "USED CHARACTERS :"(TTFR)256:p :"% FREE:"(FRTT100)::v H1 D L1@ XSL@DRTTIFR&1( (726)0ĺ"I/O ERROR:"(726):270D "SLOT:"SL" DRIVE:"DR:` "DOS VERSION:3."(724)} "DISK VOLUME #"(725): TTV(722):"TOTAL SECTORS :"TT "TOTAL CHARACTERS:"TT256: FRV(720):"FREE SECTORS :"FR "FREE CHARACTERS! COUNT FREE SECTORS ON DISK;CRAIG COPLEY 6/21/79A]dD$(4):D$"NOMONICO":inL13072xV(X)(X)(X1)256"SLOT #,DRIVE #:";SL,DR::SL1SL7DR1DR2ĺ"INPUT MUST BE SLOT (1-7), DRIVE(1-2)":130720,SL:721,DR L     z"#??Xò "ɠŠ ȠΠԠǠ̠٠ԭӠ  Šڠ ĠŠ ĠŠ!ՠ Š Πˠ  Ҡ  ȠΠԠ ȠΠԠ !ŠҠ "ǠΠŠŠРӠΠ ŠŠӠ ĠŠ  Ԡ Ԡ%ííŠ ǠŠӠȠР ĠҠ!ϠĠԠ7̠ŠŠ̠1˭ΠˠҠԠȠҠ "DRINK ME","SORRY"A "THE GOSTAK AND THE DOSHES","SORRY"e "MINGLED INTRICACIES","SORRY" "TURBOENCABULATOR MAINTENANCE","SORRY"  "THERE AND BACK AGAIN","SORRY" "WHAT TO DO NEXT","SORRY"  "THE ANSWER","SORRY" N" "" ": 21 SPACES + 11 SPACESGBZ$(7)(7)SD$(4)_TIME60e~ PROGRAMS INCLUDED: ----------------------- --- FORMAT --- "USER NAME","DISK FILE NAME" "SYSTEM INSTRUCTIONS","SORRY"YCLES 1040: 8 CYCLES/ 1050: 4 CYCLESE 1060: 2 CYCLESS $T1TIMEZ .T` 8t L BEEP-BEEP~ `BZ$; j1050: PAUSE tBZ$; ~  ADJUST SPACING NC9ĺ NC7ĺ NC5ĺ  l INITIALIZE5vB$EGAL INPUT *998:B$I 4"PLEASE TYPE A NUMBER BETWEEN 1 AND "NC".";d  ERROR BEEP & WAITu 1100: BEEP 1020: LONG.. 1040: ..WAIT 998 1:958 400: PROMPT  DELAY TIMER 1020: 32 CYCLES 1030: 16 CTING "N$(Q,0); 0998' :N$N$(Q,1)- DE X RUN BASIC PGMO b650_ lD$"RUN "N$v  BRUN M L PGM 700 D$"BRUN "N$  FILE NOT FOUND 1:868:216,0 "-->SORRY, NOT HERE.<--"; 900: BEEP WAIT  ILL - "; TN$(X,0) ^, |1200: SPACING8  PRINTc "WHICH ONE WOULD YOU LIKE (1-"NC")?";k Q$~ (Q$)32ĺQ$;   TEST & EDIT INPUT Q$" "Ĺ216,0: OPTIONAL EXIT Q(Q$) Q0800: ERR QNC800: ERR &"GET PRINT HEADER n:+ x"DISK#"NUMBER"";1 < NAME$B O ""DAET$W :k READ CHOICESx N$(9,1) 270 I19 J01 N$(I,J) J,I NCI1:216,0 , LIST CHOICES 61200: SPACING @X1NC J5:X"> ------------------------------------------------------T DISK MENU ------------------------------------------------------  DISK DATANUMBER254(NAME$">>DISK NAME<<"2DAET$"2/22/83"F1900: INITIALIZE d       W$@ W$(X)ĪMM1::7:"MISTAKE NUMBER ";M;" WAS ";W$N M10190 M10(M10)ĺ::"FOR A ";SP;" WPM TYPIST, YOU SURE MAKE A LOT OF MISTAKES." 110 SED? ";SP/ Z:" IF YOU WANT NUMBERS, LETTERS"t _" AND PUNCTUATION, TYPE 33":::" FOR LETTERS ONLY TYPE 65 ";Bz d i:: l"TYPE WHAT YOU SEE APPEAR ON THE SCREEN" m: nX(1):XX100:X(X) xXB110 X90110 (X);" "; 7 *****************************************a * TYPEWRITER WILL HELP YOU IN YOUR( * EFFORTS TO BECOME A TOUCH TYPIST2 *****************************************<FK::M6:"HI":: P"WHAT IS YOUR TYPING SPED  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    0(WH$,5)"HSLLG"LF0P$M$(26):1530:1240\ (WH$,5)"HSLLG"P$M$(26):1530:1240WH$GM$RM16P$NM$:1530:1240 RM29DA1140*(WH$,3)"IFM"P$M$(27):1530:12404OE1DA0RM4ĺ"HEY! YOU CAN'T LEAVE WITHOUT THE GIRL.":0:P$M$(21):1530:SHOTS5:1240`WH$"TVG OZHVI"LF0ĺ"YOU'VE ALREADY GOT IT, SILLY!":1240SH0(WH$)5(WH$,5)"HSLLG"LF0P$M$(22):1530:SHSH1:"YOU HAVE ";SH;:P$M$(23):610:610(WH$,5)"HSLLG"LF0SHOTS0P$M$(24):1530:1240"I CAN'T MOVE THE ";:P$M0$:1530:".";:1240RM1A$(1)"BLF'IV RM Z ILLN DRGS XLOW TIVVM UOZNVH WZMXRMT ZILFMW BLF.":12401240(WH$,5)"HXLIV"ĺ"YOU'VE GONE ";MV;" MOVES SO FAR.":1240(WH$"TVG OZHVI"WH$"TVG TFM")RM12LF1LFW NZK"WH$"VCZNRMV NZK"WH$"OLLP NZK"P$NM$:1530:1240n(WH$,4)"NLEV"(WH$)6ĺ"MOVE WHAT? ";:1240(WH$,4)"NLEV"720MO$(WH$,(WH$)5):MO$MO$(RM)A(RM,M(RM))MO(RM)::"THE ";:P$MO$:1530:" IS MOVED.":P$M$(20):1530:700.RM29640HbRM29DA0WH$"TVG WZFTSGVI"P$M$(18):1530:DA1:1240vlRM29WH$"TVG WZFTSGVI"P$M$(19):1530v1240(WH$,5)"NLEV "ĭMO$(RM)""ĺ"THERE'S NOTHING HERE YOU CAN MOVE. TRY SOMETHING ELSE.":1240:WH$"TVG NZK"WH$"IVZ(1))301280(RM1710(1)7ė:1402RMNRV&RM4DA1BU1A(4,1)35:F91_0140:RM18(WH$"UORK HDRGXS"WH$"KFHS DRGXS"WH$"GFIM HDRGXS")BUBU:1460DWH$"OLLP"140NWH$"JFRG"ė:10:X1517:P$M$(X):1530:::23: X30:12403NR2ĺ"YOU CAN'T GO THAT WAY.":1240YNR3ĺ"THE DOOR IS SHUT.":1240NR4ĺ"THE DOOR IS LOCKED.":1240NR5ĺ"DON'T BE A CHICKEN! THE GATE IS TO THE":"SOUTH.":1240NR6ĺ"YOU'RE OUT OF YOUR MIND.":1240 (31A$(WH$,4,1):380$h(WH$)15700rWA$WH$`|DD0:X16:WA$(DD$,X,1)NRA(RM,X):DD1qX:DD1420"SAY WHAT ? ! ? !"1240MVMV1:MVRN450:10:X1114:P$M$(X):1530:::23NR1520NR1P$EF$:151:12403,RM8FLAG1P$M$(6):1530:FLAG0:OE1b6RM4F20āX79:P$M$(X):1530::F21:X@RM35āX11200:X:1270JRM181460TRM4F91P$M$(10):1530^:"WHAT WILL YOU DO ? ";WH$:P$WH$:1540:WH$P1$:(WH$,3)"TL "(WH$)3WDIRECTIONS POSSIBLE-->":4:1:"---------------------------------------" 5:1:P$A$(RM):1530::RM26ĺ:5::P$M$(1):1530:: RM12LF1āX23:P$M$(X):1530:: DA0RM29P$M$(4):1530 RM4DA1BU1P$M$(5):1530"RM14NR"-+-":3:3:"-":1:38:"-":2:38:"+":3:38:"-"e X16:A(RM,X)0ĴX170,180,190,200,210,220n 230 1:3:"N";:230 2:5:"E";:230 3:3:"S";:230 2:1:"W";:230 1:38:"U";:230 3:38:"D"; H 2:10:"<--29)1:AR(35)1:AR(4)1, nX142:M$(X):Xc x22:12:"INSTRUCTIONS ? ";WH$:(WH$,1)"Y"İ1560 SG$(1)"AAAAZK! GSV TSLHG WRHZKKVZIH RM Z XOLFWLU HGVZN.":SG$(0)"AAALIXS! GSV HPVGOVGLM GFIMH RMGL Z KROV LU ZHSVH.":BU14 :1:3:"-":2:1:)6:M(11)6:M(15)3:MO$(15)"YLLPXZHV":NM$"MVEVI NRMW; RGH Z ILZW NZK LU GIZMHBO- EZMRZ.":LF1:MO$(1)"GZYOV":MO(1)24 ZM(18)3:MO(15)19 dX164:A$(X):Y16:A(X,Y):Y,X:RM51:MO$(18)"KZRMGRMT":MO(18)20:MO$(11)"XZIKVG":MO(11)31:AR(18)1:AR( D S C I E N T I S T"::" BY THOMAS HANLIN III"::::: 2" (APPLESOFT TRANSLATION:":" ANN-CAROL AND FRED PENCE)" <EF$"BLF WLM'G DZMG GL TL GSZG DZB - GSVIV'H Z VOVXGIRURVW UVMXV!" FDD$"MVHDFW"x PRN150150(1):M(158 MO$(64),MO(64),A$(64),A(64,6),AR(64),M(20),M$(42)TD$"Z GIZK WLLI LKVMH FK YVMVZGS BLFI UVVG! BLF'IV UZOORMT WLDM Z XSFGV.":FLAG2:OD$"LKVM WLLI":AR(4)1:AR(8)1:AR(12)1:AR(14)1GH$(1)"GSV TSLHG":GH$(0)"LOW YLMB"D (:10:" M A                    2J1,(X1256):T2J,X1256P(2J1).eX1I12:X1256ĹT2SHAPE,X1:T2SHAPE1,0:1270T2SHAPE1,(X1256):T2SHAPE,X1256(T2SHAPE1)II1:TI,0I1I1:SS1:LODED1:100:"NAME OF SHAPE TABLE? ";AA$:AA$"SHAPE:"Y OTHER KEY TO RETURN TO MENU.";=8A$:A$(27)100CB]L34,20:16304,0:500oSHAPESHAPE1B2SHAPE:JIB1:TJ2,P(J)::II2:T,SHAPE:T1,0:SHAPE11250J1SHAPE1:X1Q(J)2:X1256ĹT2J,X1:T2J1,0:1240(T1040A$"P"1010&:D$"PR#1""SHAPE TABLE IS ";I1;"BYTES LONG.":"SHAPE TABLE DATA (DECIMAL) :"::"10 DATA ";:J0I:P(J);",";(37)21A$"S"ĺ:"HIT ANY KEY TO CONTINUE";:A1$:$:A$"P"ĺD$"PR#0"&.:"HIT TO END; ANINCR:870$\D2D6YYINCR:8706aXXINCR:870MfD3Ē0:X,YX1,Y1Wk(7)]pSSĺ:"SAVE CURRENT SHAPE TABLE? ";:A$:A$"Y"1500::"PRINT OUT SHAPE TABLE TO:":"(S) SCREEN":"(P) PRINTER"::"WHICH?";A$:A$"S"ė:II1:C2:P(I)6484544P(I)128XXINCR:835T9P(I)12864YYINCR:835a>XXINCRCTI,P(I)64(P(I)64):875HDP(I):850:TI,0:C0:880MD(P(I)8):850:TI,P(I)8D:C1:880RD0D4YYINCR:870 WD1D5XXYINCR030&YYINCR:B0:350:5007XINCR030RXXINCR:B3:360:500eXINCR27930XXINCR:B1:360:500YINCR15930YYINCR:B2:360:500 II1C0ė::"NOTHING TO ERASE!":40:880%X1X:Y1Y*C840,845/20,510,740XYINCR030EbY1Y:YYINCR:X,Y1X,Y:B4:355:500VlXINCR030vX1X:XXINCR:X1,YX,Y:B7:355:500XINCR27930X1X:XXINCR:X1,YX,Y:B5:355:500YINCR15930Y1Y:YYINCR:X,Y1X,Y:B6:355:500  @=ERASE";16368,0F3L:X,Y:A(16384):A128LL:510y16368,0:0:X,Y:3:A136A142AA136:590A200A206AA200:580A155100&A192İ800:5000A1471200:510DA600,620,640,510,660 NA680,700,78A$:INCR(A$):INCR1INCR2INCR4INCR8410e:34,20:X140:Y80:LODED0:II1:C0:L0 ::12:"X=";X;:(25):"Y=";Y::"I=UP J=LEFT K=RIGHT M=DOWN":"ALSO PRESS CTRL TO MOVE WITHOUT DRAWING":"ESC=MENU CTRL S=SAVE SHAPE A$"M"LODED1:2500 ,200? ^C1C2:B3:360:B1:365:R cC2C0:II1z hC2ĹTI,P(I)64B:II1:C0:375 mC0ĹTI,B:C1:375 rTI,P(I)8B:C2 w21:1:"DRAW 1, 2, 4, OR 8 POINTS PER KEYSTROKE?":"CHOOSE 1,2,4, OR 8: ";ABLE":"(S) SAVE SHAPE TABLE"- "(Q) QUIT"? :"WHICH? ";[ A$:A$"R"LODED1100s A$"B"SHAPEN400 A$"L"1700 A$"Q"900 SHAPE0200 A$"P"1000 A$"S"1500 A$"V"LODED1:2000 A$"D"LODED1:3000 "E MAGICAL SHAPE MACHINE!":::LODEDĺ"(R) RETURN TO LAST SHAPE"i nSHAPENĺ"(B) BEGIN NEW SHAPE":90 x"(L) LOAD OLD SHAPE TABLE":90:SHAPE0140 "(M) MANIPULATE SHAPES ":90"(V) VIEW SHAPES":90:"(D) DELETE A SHAPE":90:"(P) PRINT SHAPE T:L <"SCALE =";SC(A1);5);"ROT =";R(A1);5);"X=";X(A1);34);"Y =";Y(A1):i FR(A1):SC(A1):D(A1)76 ID(A1)D(A1):3D(A1):A1X(A1),Y(A1) L P:13::"EDGE OF SCREEN"::40: ZLODEDĖ4:"(ERASES SHAPE ON SCREEN)" _A d::7:"THN)(T2N)256(T2N1)> N20:D(N),SC(N),R(N),X(N),Y(N)l T16384:233,(T256):232,T256(233): :"FILE NOT FOUND":216,0:40:100 :13::"EDGE OF SCREEN"::40:500 (J02000:J: 2X(A1)140:Y(A1)80:D(A1)0:SC(A1)1:R(A1)024576:I12:10:100 500::12:"X=";X;:(25):"Y=";Y::"I=UP J=LEFT K=RIGHT M=DOWN":"ALSO PRESS CTRL TO MOVE WITHOUT DRAWING":"ESC=MENU CTRL S=SAVE SHAPE  SHAPE0:D$(13)(4):LODED1:P(N)(TN):Q(     Z3:2170R.91750(Z2:21708X3%21750I&X3%151880Z0X1%951750i:R.41750xDR.91810N1790XX3%221770bR.41810lR.81790v1770TIME101970QU%41970S%(P%,0)S%(1P%,0)31970 G%1P%02000hG%22000.rI1500:I9|R(1)IX3%X2%X1%[TIME141720qQU%1QU%31720X1%5517701990DOWN%41920DOWN%31820X1%901760Z1:2170R.21780Z4:2170R.651800 1500:I740 QU%55100@QU%4TIME13FLAG%11610LFLAG%1hC$"TWO MINUTE WARNING"{"C11:D5:4160,TIME13:43906I12000:I@4330JC$N$(P%)"'S BALL"O(N$(P%),1)"S"C$N$(P%)"' BALL"TC10:D1:4160^4930n4390 xI12000:I*4540<I110000:ITI(49232)(49237)gP%1H%:DOG%0C$N$(P%)" WILL RECEIVE "(C$)28C$(C$,28)C14:D14(C$)24160C$"TO OPEN THE SECOND HALF"C15:D2.5:4160I1P%,10)S%(P%,10)1"4360:49302I1500:I<1090F4390VI1500:I`4330p OT%11610TIMETIME(1)4390(TIME1515402TIME0:QU%QU%1<4390FQU%31530PC$"HALFTIME"ZC11:D10:4160d4230:I1500:I L111,F1%:112,F2%*V4330;`SET%01140NjDOWN%0:SET%0`tDOWN%DOWN%1r~X1%X2%1190DOWN%5X1%1001180X1%10011904930:1130DOWN%51300C$"FOURTH DOWN ATTEMPT NO GOOD"C10:D1:4160S%((X3%)!X3%0D$"GOAL LINE"3C$C$D$:C12JD12(X1%):4160ZI1500:IeR(1)Z8Y%(3R)325R2Z8Y%(3R)32R4960C$"RUNBACK OF "(Y%)" YARDS"$C14:D3:4160.I11000:I84330:4930 B)44260:I1400!>I:49601HX1%1910DRC$"TOUCHBACK"X\C15:D11:4160ifX1%20:4230{pX0%X1%:4260z4930:I1400I:1090I1500:I4330:X3%X1%C$"BALL TAKEN ON THE "X3%51960X3%100X3%D$0:I"STATS","SIMPLE RUN"="TRICKY RUN","SHORT PASS"U"LONG PASS","PUNT"t"QUICK KICK","PLACE KICK"4330:4230OT%15100X1%504930:4390 C$"KICKOFF..."C10:D3:4160 Z8:X0%60:X1%0*A20:B0:Y%A(X(10I):C176 :I0C$"G"2 DD3620I:4180C NI0C$" G"X XD23620I:4180q bI:C$"CHOICES":C10 lD31.5:4160 v3:212,81262,81 :I07 CH$(I):C11.5I C$(I)"." D28.5:4160 C$CH$(I):C11.5ID31:4165(C$)2I17 4160:II C$"DOWN YDS.TO GO YDLN QUARTER TIME"[ C6:D3:4160h 4390:3| 40,170240,170 2:40,168240,168 40,169240,169:3 I4024010 I,167:I I4024020 I,165I,166:I &I05 0C$KE IN SHAPE TABLE)"$ @5330:TIME0; JQUARTER%1:DOWN%1T TX0%60:X1%60:X2%70m ^FLAG%0:SET%0:OT%0 hCOUNTER%0:DOG%0 r:3 |0,0279,0279,640,640,0 C$"APPLE SCOREBOARD" C2:D13:4160 I01 C$N$(I):C3.5 D12.020 N$(0)(N$(0),17)! :G "ENTER SECOND TEAM NAME? ";N$(1)] (N$(1))0İ4030s N$(1)(N$(1),17) F1%(111):F2%(112) :12 H%(2(1)) "P%H%:N$(P%); ," WON THE TOSS AND WILL RECEIVE." 615:" (30 SECONDS TO PO:" d+ n:" 1. COMPUTER VS. PLAYER"L x:" 2. PLAYER VS. PLAYER"q :" 3. COMPUTER VS. COMPUTER"y : "HOW DO YOU WISH TO PLAY? "; A$:G%(A$) G%1G%3160 :8 "ENTER FIRST TEAM NAME? ";N$(0) (N$(0))0İ4./ 232,0:233,96 0:1:6:(21):::255Q(S%(1,10),N$(1),CH$(7)n2A(X)8A((1).5)3B{<:2:13F"APPLE FOOTBALL"K(1101)6Ğ:" BE SURE CAPS LOCK IS DOWN ":P34,3:7 Z"THERE ARE THREE WAYS TO PLAY               ,45,62,23,45,101,245,30,63,55,45,21,23,7,0ij21,173,63,46,21,63,46,21,63,231,119,14,45,53,21,63,56,7,0t21,173,63,46,21,63,46,21,63,231,119,14,45,53,63,23,21,5,0~44,46,62,62,60,36,021,173,63,46,62,46,45,0 0:16368,0!P11000:PI23:"HOW ABOUT ANOTHER GAME?(Y/N)"Q$A$a.A$"Y"Ĭ80{8A$"N"ĉ::"BYE!":B1060L6,0,14,0,33,0,52,0,71,0,90,0,97,0V23,191,45,62,23,45,62,23,45,101,245,30,63,55,23,45,40,5,0*`23,191,45,62,230:1000:321:21:"?"(1020SI3801:61,I:P130:P:61,I:IdP11200:P{19,Y:0:1020:3:1706,3310,2910,289,278,276,29:6,332,292,283,274,276,296,287,278,279,289,298,308,31:8,33:P:ITX12,LA:0650( 5M,L6>MMSP:M275M5K 5M,L6Q*f4ITX,Y:5M,L6|>:21:18:"MOM!"HIX101R1I,Y\P130:Pf1I,Y:Ip1I,Yz1000SPSP1:SP7ī1030P11000:P61,39 T1X,I bP125:P$ lIT1X,I+ vI4 FL0^ UU1:U3Ğ:21:17:"THE END":1030e 0y 122010U,140 240 I15:Z(S)(S):I ITX,Y 5M,L6  IT1:A6:D(T)2IT3:A9 45 ITX12,LAP1750: 5M,L6:LLE:5M,L6:1 T(16384)202B T0T2T1H \ T((0)127): (16384)160L50G6:E30:470:FL1:16368,0  (16287)127L50G6:E30:470:FL1 & 0690 :15 DIT4Ę45 NIY2L40 XI0)1)SP560 hITX,Y:260- rQ(L30)1@ |L50X40820M T1T0x OXD(T)1:Q3T2ĭH(X5,Q)SPOX5 Q3T2ĭH(X3,Q)SPOX3 Q3ĭH(O,Q)SPFL0G1.5:E30:470:460 FL0Z(S)(S) FL0 MO520,540 330,L6 MO480,510. GG.5:XXD(T):YYG; ITSH(T)S "(G)GITSH(T)1_ ,ITX,Y 6X272X12ĕITX,Y:XXD(T):ITX,Y @YLG3:370 J780 TL5Y9ĭL5YĭM(D(IT3)2)6XM(D(IT3)2)3Xİ690:730 ^(Y)L11ĭH(X,(L3SH(0)1:SH(1)1:SH(2)3% :3::0C I23024010:1I,140:I_ I4513530:O,I279,In I135210 H((1)200)40:0 JHH15:J,I:H(J,I301)SP:J 3:I 61,39 5SP55,145 X260:Y120:L125:IT1:G0 M10:5M  24576(7676)680/I76767780;(W:I,WB2IW<233,29:232,252^F1P::"(K)EYBOARD":"(P)ADDLE"::"ENTER MODE:";ZM$dM$"K"MO1nM$"P"MO2xMO090H(279,2):SP1:S16336 D(0)2:D(1)0:D(2)2:  12,14,24,26,11,15,23,27,10,16,22,28,9,17,21,29[ T 18,20,17,21,16,22,15,2 3 ^10,12,11,13,12,15,13,26,14,25,15,24,16,23,17,22 :04 18,20Z* "::I12500:I:10v ,22,27,9,29,8,31,7,32,6,33,5,34,4,34,4,35,3,36,2,37,2,37,1,38,1,38,0,39 60,39,0,39,0,39,0,39,0,39,0,39,0,39,1,38,1,38,2,37,2,37,2,37,3,36,3,36 @4,35,5,35,6,34,7,34,8,33,9,32,11,31,12,29,14,27,15,240 J  :911,162#Z239-(X:Y82X,YZ?<ZGF13WP13,9:25,9dZZ1013ndX:YynX,YZxX:YX,YZZ19,18Z1922X:YX,YZZZ2532X:YX,YZZ8 Z   YJ ^J1ī55 c% hCC32 jC2C2; mW0F rDD1O w275Z |CC3c U0n ZZ1w 275 P150 P   PED"  ":: 'A$;", YOU ANSWERED ";Q;" QUESTIONS"V ,"CORRECTLY, OUT OF 20"y 1:"YOUR SCORE IS ";5Q;" %": 6 ; @"DIFFICULTY CHANGES" B E"INCREASES = ";Z H J"DECREASES = ";D O: T"ANOTHER TEST? 1-YES 0-NO"IN?" 1658 "INCORRECT - THE CORRET ANSWER IS ";GI I11000:IR 400] WW1f U0t W2ī360} 275 "CORRECT" I1500:I 400 W0 QQ1 UU1 U4ī380  E 12)::"TEST COMPLETST" iP n sW0% xE120+ }> "QUESTION ";EX X((1)C1)(C2)r Y((1)C1)(C2){ T1 GXY X;" * ";Y;" = ?" "TRIAL ";T N NGī240 TT1 T3ī210 "INCORRECT - TRY AGA  P0D0E0%U0.Z04#>&::b(10)"MATH MULTIPLICATION TEST"h7<"ENTER YOUR NAME ";AA$DFA$;",ENTER YOUR AGE(5-99)"KANPA5A99ī70UZCA_Q0 d"ENTER 1 TO BEGIN TE X175 X T * Y1500:Y5 6:15H "GOODBYE ---"N Z 19:11t "SEE YOU NEXT YEAR!" X1500:X 1000 20 D11750 D  T$;",";" WHAT A PAIR!" @1000% JA T"TYPE THE SECRET WORD"X ^"TO GET A TREAT."^ cq h"(HINT: OOB)"y m: rW$ |W$"BOO"420  10 "THAT'S NOT IT, ";N$;"." 330  T160 " HAPPY HALLOWEEN"; 10 "I'VE ALWAYS WANTED"9 "TO BE ";C$;", TOO!"T "BUT I'M STILL HAPPY"m "BEING A COMPUTER."w 1000} "WHAT IS YOUR FRIEND" "DRESSED UP AS? " "MY FRIEND IS "; F$  10:5 "F$;" AND" ' ,C10."HI! WHAT IS YOUR NAME? "4#T("(PLEASE PRESS THE RETURN"r2"KEY AFTER EACH REPLY.)"xFP"MY NAME IS ";ZN$di10:5n"TELL ME, ";N$;","x"WHAT IS YOUR COSTUME? ""I AM ";C$    YES 0-NO" YJ ^J1ī55$ c/ hCC3< jC2C2E mW0P rDD1Y w275d |CC3m U0x ZZ1 275 P150 P   P  ":4 'A$;", YOU ANSWERED ";Q;" QUESTIONS"P ,"CORRECTLY, OUT OF 20"V /} 1"YOUR PERCENT SCORE IS ";5Q;" %" 4 6 ; @"DIFFICULTY CHANGES" B E"INCREASES = ";Z H J"DECREASES = ";D O: T"ANOTHER TEST? 1- 1652 "INCORRECT - THE CORRET ANSWER IS ";GC I11000:IL 400W WW1` U0n W2ī360w 275} "CORRECT" I1500:I 400 W0 QQ1 UU1 U4ī380  E 12)::"TEST COMPLETED" iP n sW0 xE120% }8 "QUESTION ";ER X((1)C1)(C2)l Y((1)C1)(C2)u T1 GXY X;" + ";Y;" = ?" "TRIAL ";T N NGī240 TT1 T3ī210 "INCORRECT - TRY AGAIN?"  P0D0E0%U0.Z04#>&::\(10)"MATH ADDITION TEST"b7{<"ENTER YOUR NAME ";AA$DFA$;",ENTER YOUR AGE(5-99)"KANPA5A99ī70UZCA_Q0d"ENTER 1 TO BEGIN TEST"  ED YOURSELF.":6002 "SONAR REPORTS SHOT WAS ";E YBĺ"NORTH";X YBĺ"SOUTH";l X(A)ĺ"EAST"; X(A)ĺ"WEST"; &XBX(A)ĺ" AND"; 0ZCĺ" TOO LOW." :ZCĺ" TOO HIGH." DZCĺ"DEPTH OK." N X ()(ZC)0300 500::DM :"YOU HAVE BEEN TORPEDOED! ABANDON SHIP!"} "THE SUBMARINE WAS AT ";A;",";B;",";C:400 ,:"B O O M ! ! YOU FOUND IT IN";D;"TRIES!" : "ANOTHER GAME (Y OR N) ";A$ A$"Y"100 "OK. HOPE YOU ENJOYY DEPTH CHARGE EXPLOSION POINT WITH A"Y P"TRIO OF NUMBERS -- THE FIRST TWO ARE THE" Z"SURFACE COORDINATES; THE THIRD IS THE DEPTH." d:"GOOD LUCK !": nA(G(1)):B(G(1)):C(G(1)) xD1N::"TRIAL #";D;:X,Y,Z (XA)(YB :!9);"DEPTH CHARGE"+::F "DEPTH CHARGE GAME":k"DIMENSION OF SEARCH AREA ";G:N((G)(2))1("YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER."2"AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE.") F"SPECIF   - TRY AGAIN?" 165B "INCORRECT - THE CORRET ANSWER IS ";GS I11000:I\ 400g WW1p U0~ W2ī360 275 "CORRECT" I1500:I 400 W0 QQ1 UU1 U4ī380  E 12::"TEST iP n sW0" xE120( }; "QUESTION ";EU X((1)C1)(C2)o Y((1)C1)(C2)x T1 GXY G0135 X;" - ";Y;" = ?" "TRIAL ";T N NGī240 TT1 T3ī210 "INCORRECT  P0D0E0%U0.Z04#>&::_(10)"MATH SUBTRACTION TEST"e7~<"ENTER YOUR NAME ";AA$DFA$;",ENTER YOUR AGE(5-99)"KANPA5A99ī70UZCA_Q0 d"ENTER 1 TO BEGIN TEST"*****GRAPHICS POSITION DATA*****V2,2,10,2,18,2,26,2,34,2,2,13,10,13,18,13,26,13 3:920:8$"* PRESS SPACE BAR TO TRY AGAIN.... *";_.920:920:910:16384,0:63968,0y8ST$:(ST$)321080BRI0:WR0:220L***MACHINE LANGUAGE SOUND DATA**V173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0""38)"*";:.*******SCORING DISPLAY*******HT196:T296:710:710}::910:D13:920::"*"15)"SCORE :"16)"*";D13:920::SP(RI10):"*"16SP)RI" RIGHT"15)"*";D13:920::SP(WR10):"*"16SP)WR" WRONG"15)"*";D14fY1,Y10X4:X,X3Y:xpY1,Y4X:Y6,Y9X:Y1,Y4X4:Y6,Y9X4:X1,X3Y:X1,X3Y5:X1,X3Y10:zY1,Y4X:Y1,Y4X4:Y6,Y9X4:X1,X3Y:X1,X3Y5:****TEXT SCREEN SUBROUTINE*******N140:"*";:: "*1,Y4X4:Y6,Y9X4:X1,X3Y:X1,X3Y5:X1,X3Y10:rHY,Y4X:Y,Y4X4:Y6,Y9X4:X1,X3Y5:RX,Y9:Y1,Y4X:Y6,Y9X4:X1,X4Y:X1,X3Y5:X1,X3Y10:\Y,Y4X:Y6,Y9X:Y6,Y9X4:X1,X3Y5:X1,X3Y10:Y5X3:/ *******SOUND SUBROUTINE*********f TT1T2T3:TTT4T5T6:768,T:769,TT:770::: ********NUMBER SUBROUTINE******** *Y,Y10X2: 4X,Y1:Y6,Y9X:Y1,Y4X4:X1,X3Y:X1,X3Y5:X1,X4Y10:>>X,Y1:X,Y9:YȠ12:D120:0,39D:0,3940D:710:T1T12:T2T22:\ 0:D120:0,3921D:0,3919D:e 220 *******COLOR SUBROUTINE********* 1: 2: 6: 12: X********SQUARE SHAPE SUBROUTINE****** bX,X3Y:X,X3Y5:Y,Y5X:Y,60,870,880,890 JD11000:/ T:ANQN400; ^WRWR1_ h1:D120:0,39D:0,3940D: rD18:S(16336)::D125::D18:S(16336): |0:D120:0,3921D:0,3919D: 240 RIRI1 T1100:T2100:T31:T410:T510:T615 :CL((1)4)1:CL510,520,530,540O XH(N):YV(N):D11000::610:710:: "16384,0:16368,0::23:15:"HOW MANY ?";:AN$ ,(AN$)49290 6(AN$)57290 @AN(AN$):X18:Y25:CL((1)4)1:CL510,520,530,540:AN810,820,830,840,850,810& xT190:T290:T31:T44:T56:T61W D12000::D124:710:T1T13:T2T23::| *****MAIN BODY OF PROGRAM ***** RIWR91010 QN((1)9)1 D11000: : RIWR91010 T1150:T2150:T31:T430:T530:T61:# N1QNX % ********INITIALIZATION********>:::255:RI0:WR0ZN123:SN:769N,SN:s(N19::H(N),V(N):d **** TITLE DISPLAY **** n910:N17:920::"*"15)"COUNTING"15)"*";:920:"*"10)"BY GARY E. LEONARD"10)"*";:N18:920::9     :6:LIN0H"LEFT MARGIN? (DEFAULT = 10) ";X$:LM(X$):LM1LM10:"RIGHT MARGIN? (DEFAULT = 70) ";X$:RM(X$):RM1RM70:"LINE SPACING? (DEFAULT = 2) ";X$:LS(X$):LS1LS2LLRMLM@:"CONVERT TO LOWERCASE UNLESS PRECEDED D$;"READ ";F$L$(0)(16504I1LN@"L$(I)G,I]6:D$;"CLOSE ";F$m@Z1500:ZsJT34,0:35,22^950hrL$L$(0):L(L$)|CHAR((L$,2)):L$(L$,L2)SLOC((L$,2)):L$(L$,L4)LN(L$) X$ESC$1610 X$"L"1410+F1$F$A"FILE NAME: ";F$F2$"":F$""āF21(F$):F2$F2$(U(((F$,F2,1))))::F$F2$F$""F1$""1460F$""F$F1$"INSERT DISK AND PRESS RETURN ";X$D$;"VERIFY ";F$D$;"OPEN ";F$$ D$;"OPEN ";F$)D$;"DELETE ";F$<D$;"OPEN ";F$P(D$;"WRITE ";F$\2I0LNg<L$(I)nFIPD$;"CLOSE ";F$Zd34,0:35,22nx24:1:35,24:34,23:24:1:"LOAD OR ESCAPE? (L/ESC) ";X$:X$(U((X$)))::X$ESC$1370&X$"S"1180JL$(0)(LN10000SLOC100CHAR)UF1$F$k"FILE NAME: ";F$F2$"":F$""āF21(F$):F2$F2$(U(((F$,F2,1))))::F$F2$F$""F1$""1240F$""F$F1$"INSERT DISK AND PRESS RETURN ";X.X$:XU((X$))'8X69İ2400:9506BX131120GLXN321060QVSTP1n`240:34,0:35,22:VV:1ujItL$(LN);~V(37)1:H(36)1255:24:1:35,24:34,23:24:1:"SAVE OR ESCAPE? (S/ESC) ";X$:X$(U((X$)))39)+24:1:"PRESS SPACE BAR TO PAUSE";6:240FZ1500:ZULN11140cI1LN1nL$(I)(16384)127STP1130STP0:255:16368,0VV(37)124:1:35,24:34,23:$:" RETURN:CONT SPACEBAR:STEP E:EDIT "; 4L$(LN);!>CHAR(L$(LN))2,HSLOC02RJ\V(37)1:H(36)1]fEDC6ED0:ppC18EDİ950zC19EDİ1170C12EDİ1400C17ĉ:C16EDİ1700C5LN1EDILN1:VVV:VV1:2400:95042024:1::SLOC0CHAR1440$C$;fCN32SLOCCHAR:CHARLWIDLNLN1:L$(LN)"":CHAR1:SLOC0:o440SLOC0ĺ:810SLOCLWIDSLOC): SLOCLWID1810L$(LN1)(L$(LN),LWID1SLOC) L$(LN)(L$(LN),SLOC1)*LNLN1440 DB$;" ";B$;$ NCHARCHAR1? XCHAR2L$(LN)"":440` bL$(LN)(L$(LN),(L$(LN))1)i l440 vCESCCRTN860 CHARCHAR(C$):CHARLWIDCN32CRTN660 750 L$(LN)L$(LN)C$ CRTN720 868:C$LNLN1:L$(LN)""109 UPĭ((C$"!"C$",")(C$"="C$"@"))C$"@"C$H C21530~ CHAR(L$(EL))C$(L$(EL),CHAR,1):C(C$):640 CESCC$"@":C64 C9ĭL$(LN)""L$(LN)" ":CHAR4:L$(LN);:440 &CRTNC$CR$ 0CBKSPCDL630 :CHAR21 U(C)CN32(C96C123): 23:I139:"-";::u 24:1::" ^SAVE ^LOAD ^REVW ^EDIT ^PRINT";: V:H C$:UP((PB)128):C(C$) AE510 SH510 C$"^"C$"@N":510 C$"]"C$"@M":510 C$"@"C$"@P":5N91)(LOCK));:LCN1 ! ". ,:33509 635,22G @L$(1000) JED0:QUOT34:ESC27:ESC$(ESC):BKSP8:RTN13:B$(BKSP):CR$(93):DL127 TCHAR1:N00:N11:N3232:N6464:N9191 ^LN1 hD$(4) rD$;"MON C,I,O": |LWID38 V1:HUBLICATIONS, INC" Z7688 A:A0ĹZ,A:ZZ1:200Z 1013,76:1014,0:1015,3:300p X$"":PP$""290 LOCKN0:LCN1:KN1(PP$):CC((PP$,K,N1)):CCN32LOCKN0 CCN64270 LCN0LOCKN1 LCN0:280 (CCN32(LCCCN64CC4# dSH1'nAE((64435)6):AESH04xPB49251C:(21):h8:8);"M I C R O T E X T 2.0"12:12);"BY JON R. VOSKUIL":4);"MODIFICATIONS AND ENHANCEMENTS BY"16);"FRED CONDO" 21:14);"COPYRIGHT 1983":8);"SOFTSIDE P             124,138,132,140,140,141d  148,140,155,138,162,135,169,131,174,125,179,119,182,112,184,104,185,96 DOTS? (L)";YY$ lYY$"S"FL12 vYY$"L"FL0; 500A   184,88,182,81,179,74,175,67,169,62,163,57,156,54,148,52,140,51  132,52,125,54,118,57,111,61,106,67,101,73,98,80,96,88,95,96  96,104,98,111,101,118,105,125,111,130,117,135,1 YY$"L"FL0 100" . J110= T3611K FL0530Y 0:OX,OYa HCv BW(T,1),BW(T,2) &OXBW(T,1):OYBW(T,2) 0 5J ::1:21 D"AGAIN? (Y/N)";YN$:YN$"N"ı N"COLOR? (0-7)";HC X"SINGLE DOT (S) OR 36 1 zJ110 |FL01301 }0:140,96OX,OY9 HCU 140,96BW(T,1),BW(T,2)o OXBW(T,1):OYBW(T,2)u | J :1:21 "AGAIN? (Y/N)";YN$:YN$"N"ı "COLOR? (0-7)";HC "SINGLE LINE(S) OR 36 LINES? (L) ";YY$ YY$"S"FLf BW(36,2):FL0:HC7@I136:J12:BW(I,J):J,Ib211:8:"1. DOTS IN A CIRCLE"711:10:"2. LINES IN A CIRCLE"<11:12:"3. EXIT"A6:16:"TYPE 1-3; THEN PRESS 'RETURN.'";DUFDU500,100,999Z::50d xT36121,2433:30,3321:30,3324:78,1129:29,3511:o19,2229:19,2232:19,2235:29,3519:29,3522:30,3329:30,3332:29,3533:29,3230: 700:N::G2:%***DRAW NUMBERS***47,1310:j19,227:7,1022:19,2210:10,1319:19,2213:30,337:7,1333:30,3313:31,3310:18,218:18,2411:8,1121:19,2218:19,2221:19,2224:18,2119:21,2422:18,2430:EMATE***I V6,6)017,6)028,6)06,17)017,17)028,17)01150O jv ~6,28)017,28)028,28)01170|  :15::"**STALEMATE**":N1200:SOUND(16336):N:N11000:N::G3: :14::"** YOU WIN! **":N13:198:N:N115R6:C6:J13:R,C)0R,C)R11,C)R,C)R22,C)1180 CC11:J:R6:C6:I13:R,C)0R,C)R,C11)R,C)R,C22)1180 RR11:I:28,6)028,6)17,17)28,6)6,28)1180 $6,6)06,6)17,17)6,6)28,28)1180 L***CHECK STAL:N:AA8:BB1:N18:A,B:AA1:BB1:N:> ***DRAW Y***p 13:A,A7B:A,A7B7:B,B7A:B,B7A7: ***SQUARE OCCUPIED*** ::3:"THAT SQUARE IS OCCUPIED.PLEASE PICK ":15:"A NEW SQUARE.":N12500:N:: ***CHECK FOR WIN***< : A17:B6: A28:B6:/ A6:B17:? A17:B17:O A28:B17:^ A6:B28:n A17:B28:~ A28:B28: ****ERASE NUMBER*** ,0:S1200,1210,1220,1230,1240,1250,1260,1270,1280: ***DRAW X***, 9:N18:A,B:AA1:BB1:150$ *** RESPOND TO CHOICE ***9 S$:(S$)1310[ (S$)49(S$)57ĴP100,130 S(S$):S200,205,210,215,220,225,230,235,240:A,B)0İ800:P100,130 300:P500,700:1000:G1ĴP130,100 10 ***GET COORDINATES*** A6:B6*** DRAW GRID *** :2:G1:5,3515:5,3526:5,3715:5,3726:8:1200:1210:1220:1230:1240:1250:1260:1270:1280b*** PLAYER MOVES ***dP1::6)"PLAYER 'X': WHICH SQUARE (1-9)?":150 P2::6)"PLAYER '0':WHICH SQUARE (1-9)?"     CLOSING*N"YOUR ANSWER WAS;"(4NSA$.>NMHN"THE CORRECT NUMBER WAS;"VRNAB$\\NbfNpN"YOU REMEMBERED A NUMBER"zNC;" DIGITS LONG!"N"DO YOU WANT TO TRY AGAIN?"N"(YES OR NO)";NSA$N:10NSA$"YES"20160 N"BYE  * JUDGE ANSWER% +SA$AB$11040. +HT04 += +HT1C *+Q . REWARDSZ .HT0h ."GREAT!"v .I11000} /I / 6 WRONG 6I112 6 6I 6"SORRY!" 6I110 6 6I 7 : SCORE KEEPING :CC1 : N :10 AB$ I1DE" I. I1254 ; IW "WHAT WAS THE NUMBER?"` SA$k "11000z ,HT04180 612000 @15000 J4010 T14000 ^20000 ' RANDOMIZATION- CHANGE 'RND(1)' 'A$(((1)10)) $'AB$AB$A$ .'YOU CAN USE A DECIMAL (LIKE.5)"F V "OR A LARGER NUMBER IF YOU WANT."N ` DE\ j DEDE500h t I112n ~ u I "OK! HERE WE GO!" AB$"" I112 I I12000 I  MAIN PROGRAM 10000 I125  I Y TO REMEMBER IT LONG ENOUGH"; "TO TYPE IT BACK TO ME."A G m "I CAN SHOW YOU THE NUMBER FOR:"s   " 1. A SHORT TIME"  " 2. A MEDIUM TIME" $ " 3. A LONG TIME" . 8 B "WHICH DO YOU WANT (1, 2, OR 3)" L "I AM A FRIENDLY COMPUTER!"4 f"WHAT IS YOUR NAME";= pNA$C zI p "IT'S NICE TO MEET YOU, ";NA$;","v |  "THIS IS A GAME DESIGNED TO TEST" "YOUR MEMORY FOR NUMBERS."  "I WILL SHOW YOU A NUMBER, AND YOU WILL" "TR9+d MEMORY TEST - NUMBERS BY GARY ORWIG> INTRODUCTIONDPI140[10000dAB$kIyI12000 II112 *I/410:" MEMORY TEST-NUMBERS"9I11000:I>I112HRIW:10 \"HI! LANCE,SYMMETRICAL,TEDIUM,TRANSITIONPc TRAVERSE,TWIT,ULTIMATUM,UMBER,VEGETATEh VALEDICTORIAN,VERBATIM,VIRTUOSO,WHIMSICAL,KNIFE,ROUGH,EXPLOIT,UNTENABLE,EFFERVESCENT ".001"(4)"RUN MENU"2TATEg J PARTIALITY,PASTEURIZE,PEDAGOGUE,PERPETRATE,PLATEAU,PROCRASTINATE,PRODIGIOUS,PROWESS,PUNITIVE T QUANDARY,RECAPITULATE,RECLUSE,RELEGATE,RETROSPECTIVE,SANCTION Y SCENARIO,SINUOUS,SOJOURN,SPECULATE#^ STERILIZE,STRATEGIC,SUPPLIANT,SURVEILUE,HERESY,INOPPORTUNE,IRRATIONAL,PROFESSORn 6 GAMUT,GENERIC,GHOUL,GRAPHIC,GUILLOTINE,HIERARCHY,HOMAGE,IDIOM ; IMPROVIDENT,INADVERTENT,INHERENT @ INTRINSIC,LITERATE,LUMINOUS,MARAUDER,MEDIATE,MILITANT,MINIMUM E,NOMINAL,OBLIVION,OBNOXIOUS,PALPIELLED THEM ALL CORRECTLY"E "IF YOU WANT TO TRY AGAIN TYPE IN RUN"K  " AFFLUENT,AMBIVALENCE,AMNESTY,ANARCHY,ARBITRATE,BIGOT,BLATANT,CHASTE ' COMPLACENT,CONGENITAL* , DEFICIT,DEPRECIATE,DISSERTATION,DOGMATIC,FACET,ENUMERATE,EXPLOIT,GROTESQ:PP1:J11000:J:1201 "RIGHT":J1500:JA A$(R)A$(I)H IN ] :P0270 "SORRY YOU MISSED";P;"WORDS AND GOT";(NP)100N;"% RIGHT" "NEXT TIME YOU MIGHT GET THEM ALL RIGHT.":275 "CONGRATULATIONS !! PERFECT SCORE, YOU SPNLY";C;"WORDS AVAILABLE":60. nICCN119 xR(1)E zR100RK }Q ] J150j K1150 15:(12):A$(R) J :K1180 KK1:130 K0:"HOW DO YOU SPELL THAT WORD ";T$ T$A$(R)210 "NO, IT'S SPELLED ";A$(R)'"HELLO, WHAT'S YOUR NAME";/A$< A$(100)\: ENTER DATA INTO ARRAY AdN$vN$".001"60(CC1:A$(C)N$220<"HOW MANY WORDS DO YOU WANT TO BE DRILLED OVER";NF(N(N))(N1)60PNC110 Z"THERE ARE O     CK ANOTHER DAY"=:"WHEN YOUR BRAINS ARE WORKING BETTER."RI12000:I::\:105:"YOU ARE A WORTHY OPPONENT" :"IT HAS BEEN A PLEASURE FOOLIN' YOU."A"BEAR HAVE IN COMMON."$F$,:OF$"THE SAME MIDDLE NAME"700r"YOU ARE NOT VERY OBSERVANT!":"THEY HAVE THE SAME MIDDLE NAME.":I12000:I::10:730"YOU ARE VERY OBSERVANT!"I12000:I760:10:"COME BANEGLECTED."7 "SITTING BULL'S DAUGHTER IS MISCHIEF!"H &I12000:IQ 0730| :"YOU ARE ALMOST AS SMART AS OLD AP!" DI12500:I N:10 X::"SOMEONE WITH YOUR BRAINS SHOULD KNOW" b l"WHAT DENNIS THE MENACE AND SMOKEY THE"vY!":: I12500 I& :10/ 5007 :d "YOU ARE SMARTER THAN EINSTEIN!!":: PAUSE12000:PAUSE: 14 "WHAT DO YOU CALL SITTING BULLS DAUGHTER?";D$: 14 D$"MISCHIEF"570 "YOUR EDUCATION HAS BEEN SADLY AUSE12500:PAUSE: J:10' T380U ^"NO, DUMMY - THE ANSWER IS QUADRUPLETS."n hPAUSE12500:PAUSEx r:10 |::"GUESS WHO ARE ****** INFANT REPLAY *****";C$ : C$"TWINS"470 "EVERYBODY KNOWS THAT TWINS ARE AN INFANT REPLA:5:"----------------------"@ 9::"THE CATEGORY IS PEOPLE"F g 9:"----------------------" 12:"GUESS WHO ARE **** FOUR CRYING OUT LOUD ****";B$ : "B$"QUADRUPLETS"310 ,350 6"WE HAVE A GENIUS IN OUR MIDST !!!" @P " HOW OLD ARE YOU?";A! 5+ :10f 5::"YOU WILL BE "20001982A;" IN THE YEAR 2000!!!"n : :A$" YOU LOOK LIKE A SMART KID."::"DO YOU LIKE RIDDLES?" "I KNOW SOME GOOD RIDDLES." PAUSE12500:PAUSE: : 9 6"HI THERE!"'(:G2"I'M YOUR APPLE COMPUTER."n<:"YOU CAN CALL ME AP FOR SHORT."vF:P"NICE TO MEET YOU. WHAT IS YOUR NAME? ";A$Z:10dA$" IS A NAME THAT SUITS YOU."n:"LET US BE FRIENDS.";x:  N;" QUARTS=";O;" LITERS" 604 (4)"RUN MENU"( ZU$"P"190 dU$"Q"2205 n"ILLEGAL UNITS"= x60Q ON122.54100m N;" FEET=";O;" METERS"u 60 ON2.54 N;" INCHES=";O;" CENTIMETERS" 60 ON.45359237 N;" POUNDS=";O;" KILOGRAMS" 60 ON.94635295 6N "ENTER A NUMBER,A COMMA, THEN THE UNITS OF THE NUMBER TO BE CONVERTED:"`" F=FEET"t" I=INCHES"(" P=POUNDS"2" Q=QUARTS"7"ENTER A ZERO,ZERO IF YOU WANT TO STOP"<N,U$@N0250FU$"F"130 PU$"I"160  "DIGITS."O$"/"!3050K DIVISION PROBLEM GENERATION ROUTINE\A((1)10)nY((1)M)QtY04520XAY190(4)"RUN MENUC N23050 M90:Q10& 120V MULTIPLICATION PROBLEM GENERATION ROUTINEh X((1)M)Qy Y((1)10)  AXY 190 DIVISION SETUP ROUTINE"YOU WILL DIVIDING A NUMBER BY ""ANOTHER NUMBER WHICH WILL 1 OR 2" OUTINE- "DO YOU WANT TO SUBTRACT 1,2, OR"7 1011Z MULTIPLICATION SETUP ROUTINEe O$"*" "YOU WILL BE MULTIPLYING A 1-DIGIT" "NUMBER BY A 1-DIGIT OR A 2-DIGIT" "NUMBER." "WHICH DO YOU WANT (1 0R 2)";N N1M10:Q0:120 B1110 LM900:Q100$ VO$"+"7 `S$"S"O$"-"@ j120z  ADDITION AND SUBTRACTION PROBLEM GENERATION ROUTINE X((1)M)Q Y((1)M)Q  AXY S$"A"190 XYHX:XY:YH AXY "190  SUBTRACTION SETUP RTHINK YOU NEED MORE WORK ON THIS SKILL, OR EASIER PROBLEMS."D JG0J TR ^50o  ADDITION SETUP ROUTINE "DO YOU WANT TO ADD 1,2,OR" "3 DIGIT NUMBERS"; N N31100 N21080 N11010 $M10:Q0 .1110 8M90:Q10Z Z(A)270 TT1> T3ĺ"NO,";X;O$;Y;"=";A:280S "NO, TRY AGAIN"\ 200k T1GG1r I ""YOU GOT ";G;" OUT OF ";P;" CORRECT." ,GP.9ĺ"THAT'S GOOD.":330 6GP.74ĺ"NOT BAD, BUT YOU NEED MORE PRACTICE":330< @"I @" 0=STOP" FS$' PS$"A"10008 US$"S"2000I ZS$"M"3000Z _S$"D"4000k dS$"0"5000s n50 x"HOW MANY PROBLEMS";P P1120 I1P S$"A"1500 S$"S"1500 S$"M"3500 4500 T1 X;O$;Y;"="; Ҫ' "HELLO, WHAT'S YOUR NAME";/A$T"WELL "A$", I AM HERE TO DRILL"y("YOU ON YOUR ARITHMETIC FACTS."2"WHICH SKILL DO YOU WISH TO PRACTICE?"<" A=ADDITION"=" S=SUBTRACTION">" M=MULTIPLIC