IMD 1.16: 16/08/2007 17:07:36  MDOS02200220072679GREGORY \lxMDOSOV0 SY\rDIR CMrMDOSOV4 SYrMDOS SYrMDOSOV6 SYrBJ SBLEBASIC CMrSTORY SA0MDOSOV1 SYlrEDITM CMrMDOSOV3 SYrMDOSER SYeLETTER SA,MDOSOV5 SYrCOPY CMrMDOSOV2 SYxr|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@0220 CN0 LP0 DK0MDOSER SY }O'0&'L/&04315X%;$*IZ062Y06336;!~nWnceg !*-9bdkt  _a[]aqwFIik'llll}*26'}O&/7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކOi ON670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~>?*?/% 629~/' '  k "uS~DK8LPECRRCP_CNlHRyr 1 )Qze W T  Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''   9? "! '  9&' ++& +|$~( 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~B~*|_?3?*67)*0l&ll&l&&11~%0 09 |?3?+?$~B?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz (&}* V (H7F $9ц 1 ' G$ 9 9W (}*7 _ 011n~϶?}& W~ J~ d~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ˋHHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ #_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD   } &? ? 9 _  %*_  Yz &VFFFF# "GY9' V$]'~ &Ġ''P& &' '0@& ?$ &~ ? ? &~ & x9?)%  $~ Š& '?(%%' _?]&' 'G &C&7vŀ& ' 7}n7676~m  '2m '%''0n00&_9 90 9    ?z9?$?/$11 ?&?/%9  &ŀ' ?-9Š&   ?.9 90uv9v'# ?u'J$|911~ oc' 9Š' h9& SS90}629ŀ'hvŠ&9S#Mٽnp{' {j?' &&l ) #_HY?)?# *'>&~0Ӧ'_\'0է }&|ަm'С&~  Ӧm''?' |&|  Ն ) $! 9?ۆ.?ۆ:9ַ$|ն&ٽ99צٷGط$| 0 ~f626 29DDDD09#90 &1f38 "#$ % &  ' ( )*+,-.5BbINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYo6 6 6 660_\$ H/,6@?% 20 229V S          ؽؽؽؽؽؽؽؽؽ ~m       | M'  / /| ~?%( ~& ? ? ? |9V S   oo~~ؽؽؽؽؽؽؽ'н$~y ?   '; Z9 ?_$~w?'  ?'~b&.%,M%& %  \ \~M$~%' &~$'M$ &~}?&$ &m &m ' ' '~} &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~ w &  _?&$?,?(~y&^wXXZ?'gʀ? & _9 ۽wXX?'~ 9      &~ut?'~fTTT-#~?XXXX?''~o o m*~;?* ?~;w%SZ& ?0?0*~yw%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9н$11~u?m+ \:/11~u'9  ( ooؽ~~~~~!~~90909X0o]''d*&ց.&PƂ]' *&ʍ:& 0? 0?090 ;' ' 0 l&l9u #'zƀ ?6ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*& ?$?$*1906?290?ƈ~ 6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%'?/' ~~~'DK&~J0 %Z]' ?(Z 'oo' 00  @ ? 09 0  $ ?(z& ~q6 @'' ?2oo?3oo  29'~n '~q&~q|'''~t&'| &&o o  's$~w?@}&~ʶ'~}*~M%xl&l&' &}/%}& |&Ľ[ 0}& }'7[3%!&' &  0$~h~0$6~h&%}'  '!}, & '  $~h%~}}&| &P09 0%}. 0%09E}+ H}'D0$~hO}+ ?.]'~z$L}&| '0%C}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9`~~ _'~ۆ&~߆ &$~}&'''~~)'| - Z.$~%_ 3$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~B3$~}'H' ' E&| D' }&t&i~%&~}'&}'&z' ~% ~%}&̽3% &&'m&jj~ 0] 9  0 &}&   7399@ 9󆀪 3%%"$1111~XXXXi3% %i 90%% *% 9}+39>997 &39 % 9?/9}&M&ZJ97%3g9399   ~~~'~ & o_9''  '~p''&?8'~@' D &'8&]'/?/')!"?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~?XXXX?'? ? ?'?"%~0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~{0' &?$~'M  '~&& ?_9?%~'   ?'?'??@?%!?&~ 9   ??9ÄHHHH?(VVV9"(~%&~φ@ &~? ''~ &.~׽o_9 '?'&~~|?  &~۽  &~I ?'?$' ? ?&~~' '~oo oo# %"?%*~ %:m+Z&~~b}?'~b?6'~m ' ?'#% #?&# ?'%#?~b ?' ' '  @&~۽ & & 62''&  &~ &~> ?'?$&~&~&~ ? ?~' ''~}?'~b;= ?'?$?%?'?$?7;<=>m&~e~ &~׆``& ~0] 9           9 $11~9$X~%~= jS9@1"COPY RLOAD.LO:1,.CM:0;V D MANUALLY FROM 0 TO 1 UP;A END CHAINHHHHC'1~#? $0 K(? ?. ?' (K? %S@'C\&(0$ ']'Z 09)~#*((*9*'..'*J'tC'fL'_, S&~v. T'%2 6*'S? 2.&4:? ? $~U #6+?,-.?/  2~}+* .|+S@L&S.&+ Ҷ,-*+ O 6.?&%2M' *&S? ((,$#_?S9 &4+'3~#+4 //9.?& ?&0? ~%~s?'((((6:2&*9 ? .???oo0+( # + . (7x+y*Z&++3Z&9&~ !q?o_!l?!o!B&%!o !E&!q!!s!q?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9H8JK D0201LIST*tNEW)PAT*GOSUB-GOTO-$ON,THEN,PRINT0LET2INPUT-IF5READ/DATA3RESTORE0,END)POKE(6zRETURN-JDIM3)DEF8 FOR3NEXT4REM3TRACEON2TRACEOFF2LINE=7DIGITS=2STOP-^2RUN*?CONT,hLOAD+RSAVE+APPEND+UOPEN=pCLOSE@TO.STEP.RND6&TAB(13INT(5CHR$(7ABS(6SGN(6SQR(:LOG(9EXP(:SIN(9qCOS(9ATAN(; PEEK(6POS6TAN(94VAL(7ASC(6LEN(7LEFT$(7?RIGHT$(7MID$(7QSTR$(7FN8USER(5 READY DELETEDRE-ENTERERROR# IN LINE Y !½" ?c#w}'|S`M' ''' 'с '0&' &Ѧ* }& &o!~* # o߮&"976ߊތފ239ߊ7ގފ3? $ANANZ/*22~)9 "Y&9"9 8: :689289:|;|;9޽$(5: н$(5 ]2Z&22(9(5 $(4]2Z&2o($9AQB "YZ&AQ" HIH &'" @"~"6 129($s%$s%)1$41111 9 9$$$' 7(&3"*F ' & & c" 9m+6$2&$$  (967%A4cM+c]cd~32$&4 93$$ _7$&׆33 4cM* 3%_3gm' æ$&$$Fc 6A+Z/  60+9/ 29 29]]9] 9ߪ6D% &E%~,c29M& 9"Ʀ/~*O_m+m/!XIRQXI%XI%RQ%%׽&j&۽"9(#% }&$#9.%9(&%̽()&9~* $ ɽ(^'94]$7'9$4(-&& 4]$3]&M'$ "6M*&(p:2M*'Ƚ:g$' $4 (*& (썆(p /& %?' 9(-&ѽ& +&Ž(+&' -&' M9"G}&" -߽"5%~7a(+&"}'"- ]&߈" M9$~*("&!(5ވ2"' M&~*o߈0(9(#$9}'"4$(5ވ2M'Z&o߈(49$9"$ "] "$67 Z&$  Z&"32962967WW$h iJ&Z&32967WSWdfJ&Z&WS329"$V2z$* V&&j ooe-7Z&d$3 с./{}V'&$"9&"$2z$(' l$2z$' l '- #$'2"9]7662Z&]23967]   Z&]329"/{$2z%~*`8' & _\m*Z&&$$&]&J&ڽ$|P Y' Om*&$m*&J (x$@P9"$Y$'/{ Y&]''Z ]$' J&$'ȖP$'2}J*&"92310% .*'01%&]'&*&* ,9 & M9.$~*߬$#.M'' J 01ެ 94M&69߬(! ߬( ߬4( 42 '_/''! '!'& 4(9( 9~.D.*FO23@T5g9↰~*?D:0j?AT'D? ATAS&B|AS!? @"G($%+ M')CnD0j"!Խ" !ܽ"[004&oo">l>j~).<6ueD0_*F?$ ? ?DߔO *&~,x0nANތB'AN4(')(4($4('(O1100($ *,.,'*'AN+zAN& a'6~*[6? $~-^ HC]ޔ߈6*&~)}6'[}' "0j"["Y "Y]"Y" 4IHn4($$I~5Y ~*4%̽$]'ZU)C-$',-' U6)&e& ~*67e U4(zU+ (,& ($~*6~,xeu&~* e 0j ½"#w6)&[*>a~)"CZ"9C߈$(ވ5]2M'0"&}>_'>_ >_}>`'}C& }>_&,' 'Z& o40(>_>`96ވ' ' &2߈90n4&~*4("& &,&40V>h'>>?'~>'o>l߬ !߬42$P4ެ}&%i$,M'>h' >l"4~>0!˽"! ֽ(- "ٽ(,&߬4(,' @M&~3XI& T&D~B~*(J-' JOLMN/{]&^'($$ .&M 9 $%B0&}L& }M'zK L"&]'}N&Z HHHHsN&}M&|K" }M&.&M _E&-' +&6 1PK"]$"}J'& 9"7]oZ&K3"9$$~*0$% XXX0942$h4<.'>}' ('*"'- :<ޔ߈<&N% -| (.$ '~**'M&!& "٦,&<4(,' M&~34(#&3-9. 0~.<4~3"-ߦ'1 "9 #>h4(#&%','~24$$'-ߌ + .0>'>&(22~*>h9BߌߎHH𗑆ސ&&~*90n4(M&X ;'->h'"?2>j ?$>l>j>h~'?3 "@6~,x~* '6r"Ľ$Z@/#wZ&D &}&o 0V(,&@' #w ;&~0M' .   O06}>c&}>h'AO>j>'>jAO "Y27@\ѓ# ђ$ &"_@39"T$OMm& }& "~#wm*-& .>-:M.Mm*)1z'l }M&1&j&}&R$1~2 1&1~#E1Z*-1POL *J 11~1֩$ 1&Z& }T&9"]7m&Z&  "39#% 94%~*(=' }& %M&" @&}&~&IM&޽-| -4%̽$04ז 4%̽$ % T )&~,x"4%,' )&4" 9%&4" 94#)%~*M*4c$$ _$4(,' ~3"&׆}'$$F"FG9M&~*""6Q]'Z'Q$}'$J& 2$}'$J&942%~2}&4]$QRD0QR_'&& 67&'$ ߌD&~*_4(='~2%̽"ٽ):!&4%4_"˽$_4):! & 4%4 :g_"˽$_4(&6_67_~,x42%~2(&6$_D0'f_D0'[$$&&a"a$m*O"'o"˽$a"5$a_~,xo"a"a6  ~*4&IO}'-&}&~&I4- -ߟ(5 2M'& ([ %4J$~34)Cn(=&9<&=&9>&99>'~*=&9<'9'$6OHH5 !! 2 Mn' + + & '+* 9 96l"g"96l ]/' lZ o$'2$9c'J:g$}J*&9Lm* 4((&482z$$ il";"(p$&o$'2i"9$94%&493%~%2$7$RQQ34~3@L9ӽ$RQQ9"]/{ _d\$Zd&_ \$Z &$'2$"9G)'~%24-ߦ69OL]&J69ս.$'~*$9(,'~%7494&}&~&I9%&4$\7I$ ν3G$$H%%~*\7$H$J-J* 2J(5ވM+3J]& o(߈׆$9%&4$H$-7L]&J36*Oވ |>`6r$ވo 4%̽$גWW~33$~&Iތ"@6@8ߌ|>c1>c2@"ߌވ o~7ވ߈94('kF&gN&`$s%X((&Q(*~3#)@$'<RQ4c4()&'(=& 'R&$$ Q&ʀ ~3"~*4((&M".*'C!')( (&(#%"(($"%&"ٽ"$%̽$"49#~*6rZ;"'$5$;"(p'9S;"'$m+ ;"'9;$N$'99 (p"9]$]&~$"˽/{$98ύ<" E8􍿽$:g<. /,/{9A7"(pA"$'3Z&"(p9/{]$ m' P $'$o96r/{]$N/a%oN$;N'* 6"'2L 6"'2J "ˍ3'9S:''9E9d ;ڽ9$(p"'$95~*]/{$9]/{J 6r9S;"'$5$9S]* &$P $7;"(p';"(p"˽:g9d h$oo  ?$>h~1>hCC&~0E4(#&>d3-9/~>>' '>'~ AO ?'>f0SA >d?]&]>d>dU' ZO'ZI&GAO 0 DK ?&?'A1 %&$>d'~=r~3( ) 0 1 _? 2 3~*AOA1 7@{&&??%?(@&39>l  >@{@@>l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..0>h,&&?&?&>h~3~>~>'>&> >&> >&>9C'DKCC o?&?'_? ?~)&C ?.*&9A?2C ?&?3 ?3? 9AQBچ  AQAQ HIH &  AQ AO CAO9&9AO  AO C ?&m?&i'~>.C ?&Co߮+ &DC&:C ?&4?&0DKCC*CBCCB ?CC ?&?&9? ?B? ? N'Y&AUC&C>;C ???SAVE(Y/N)%9B? ~)PRINTER ERROR  7DDDD390:%9C0 SA MDOS BASIC 2.01 COPYRIGHT(C)- 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9K+CN GREGORYENTERPRISES+NL P.O.BOX1315+NL HEMET,CA92343+NL +RJ+SL2 +****INPUTDATETHEN+FR +KY +LJ +LHSL2 +**NAME +KY +NL +****ADDRESS +KY +NL +**CITY,STATE +KY +NL +SL2 70+KY 0180+NL 0190+SL2 L0090PRINT 0100PRINT"WEAREGOINGTOWRITEASTORY.YOUWILLPROVIDEMEWITH" 0110PRINT"THEWORDSTHATIREQUEST,ANDIWILLWRITETHESTORY" 0120PRINT 0130INPUT"PLEASEENTERYOURNAME",A$ 0140PRINT 0150PRINT"ALRIGHT";A$;"LETSSTARTWITHANICEWARMCOLOR"; 0160INPUTB$ 0170INPUT"VERYGOOD;NOWENTERATYPEOFCONTAINER",C$ 0180PRINT"ANDSOMETHINGTOPUTINTHE";C$; 0190INPUTD$ 0200INPUT"NOWPLEASEENTERAPIECEOFFURNITURE",E$ 0205T=70 0210PRINT"HMMMA";E$;".NOWTHATSDIFFERENT!!!" 0215GOSUB6000 0220INPUT"NOWINEEDADARKSINISTERCOLOR",F$ 0230PRINT"NOW";A$;"PLEASEENTERAPIECEOFCLOTHING"; 0240INPUTG$ 0245INPUT"ENTERAPERSONALVERB(CHEW,LOOK).",O$ 0250INPUT"NOWENTERADISCRIPTIVESIZE(HUGE,LITTLE).",H$ 0255INPUT"ENTERANOTHERDISCRIPTIVESIZE",N$ 0260INPUT"NOWINEEDADISCRIPTIVEACTIONWORD(JUMP)",I$ 0270INPUT"NOWENTERPLU  RALBODYPARTS",J$ 0280PRINT"YOUKNOW";A$;".YOUWOULDBESUPPRISEDHOWMANY"; 0290PRINT"PEOPLESAY";J$ 0300PRINT"WELL";A$;"DON'TWORRYABOUTITWEWILLMOVERIGHTON" 0305GOSUB6000 0310INPUT"ENTERYOUROCCUPATIONPLEASE.",K$ 0320PRINT"NOW";A$;"ENTERATYPEOFDWELLING"; 0330INPUTL$ 0340INPUT"SELECTATYPEOFFOOD",P$ 0350INPUT"ANDLASTENTERANOTHERPIECEOFCLOTHING",M$ 0360PRINT"ALRIGHTTHATSHOULDDOITGIVEMEAMINUTETOTHINK" 0370T=400 0380GOSUB6000 0500PRINT#2,CHR$(27);CHR$(69) 0700PRINT#2,TAB(26);H$;"";B$;"RIDING";G$ 0710PRINT#2, 0720PRINT#2, 0750PRINT#2,"ONEDAY";H$;"";B$;"RIDING";G$;"'SMOTHERTOLDHERTO" 0760PRINT#2,"TAKEA";C$;"OF";D$;"TOGRANDMOTHER'S";L$;".";B$ 0770PRINT#2,"TOOKTHE";C$;"ANDSETOFFTHROUGHTHEWOODSWERESHECAME" 0780PRINT#2,"ACROSSA";N$;"";F$;"";A$;"." 0790PRINT#2,"WHATDOYOUHAVEINTHE";C$;"";H$;"";B$;"RIDING";G$;"." 0800PRINT#2,"SAIDTHE";N$;"";F$;"";A$ 0810PRINT#2,"IHAVE";D$;"'STHATIMTAKINGTOMYGRANNIES";L$;"." 0820PRINT#2,"THE";A$;"QUICKLYTOOKTHESHORTCUTTOGRANNIES";L$ 0830PRINT#2,"ATEGRANNIE,ANDPUTONHER";M$;"ANDCLIMBEDINTOHER";E$;"." 0840PRINT#2,"ABOUTTHISTIME";H$;"";B$;"RIDING";G$;"WASKNOCKING" 0850PRINT#2,"ATTHEDOOR." 0860PRINT#2,"COMEIN.SAIDTHE";A$;"." 0870PRINT#2,H$;"";B$;"RIDING";G$;"WENTINTOTHEROOMANDSETTHE" 0880PRINT#2,C$;"OF";D$;"DOWNANDSAID." 0890PRINT#2,"GRANNIEWHATBIG";J$;"'SYOUHAVE!" 0900PRINT#2,"THEBETTERTO";O$;"YOUWITHMYDEAR.SAIDTHE";A$;"." 0910PRINT#2,B$;"RANFROMTHEROOM,OUTOFTHE";L$;"ANDFOUNDTHE" 0920PRINT#2,"LOCAL";K$;"WHOCHOPPEDOFFTHEHEADOFTHE";A$;"." 0930PRINT#2,"";H$;"";B$;"RIDING";G$;"ANDTHE";K$;"WERESOONMARRIED." 0940PRINT 0960T=40 0970GOSUB6000 0980PRINT"DONTYOUJUSTLIKEASTORYWITHAHAPPYENDING"; 0990INPUTQ$ 1000PRINT 1010PRINT 1020IFQ$="Y"THEN5000 1025PRINTTAB(5); 1030PRINT"WELL";A$;".THATSJUSTTOUGHSHIT..." 1040PRINT 5000END 6000FORY=1TOT 6010REMSLEEPFOR"T" 6020NEXTY 6030RETURN 4S60005REMBLACKJACKGAMEWITHCHANCEFORPRIZE 0010DIMC(52),V$(10) 0020PRINTCHR$(26) 0050PRINT"WELCOMETOGREGGREGORY'SHONESTBLACKJACKGAME!!!" 0060PRINT"YOUHAVE$5000ANDMAYPLAY20HANDSTOTRYFORACHANCE" 0070PRINT"INOURDRAWING.THEBETLIMITIS$2500." 0071PRINT"NORMALLASVEGASRULESAPPLY." 0072PRINT"" 0080PRINT"PLEASEENTERYOURNAME.GOODLUCK!" 0090INPUTN$ 0091PRINT"DOYOUWANTINSTRUCTIONS,";N$; 0092INPUTI$ 0093PRINTCHR$(26) 0094I$=MID$(I$,1,1) 0095IFI$="Y"THEN3310 0100C=5000 0101H1=0 0110FORK=0TO3 0120FORJ=1TO10 0130C(J+10*K)=J 0140NEXTJ 0150NEXTK 0160FORJ=41TO5  2 0170C(J)=10 0180NEXTJ 0190V$(1)="A" 0200V$(2)="2" 0210V$(3)="3" 0220V$(4)="4" 0230V$(5)="5" 0240V$(6)="6" 0250V$(7)="7" 0260V$(8)="8" 0270V$(9)="9" 0280V$(10)="10" 0290L=40 0300IFL<40THEN420 0305PRINT"SHUFFLEINPROGRESS." 0310FORJ=1TO52 0320Z=C(J) 0330K=INT(52*RND(0)+1) 0360C(J)=C(K) 0370C(K)=Z 0380NEXTJ 0390L=1 0400PRINT"NEWDECK" 0410PRINT"" 0415PRINT"YOURCARDSDEALERCARDS" 0420T=0 0430T1=0 0440S=0 0450S1=0 0455H1=H1+1 0460IFC<=0THEN3620 0465INPUT"WHATISYOURBET",B 0480IFB>2500THEN500 0485IFB<=0THEN3610 0490IFB>CTHEN530 0495GOTO550 0500PRINT"THEBETLIMITIS$2500DUMMY!" 0510B=2500 0515GOTO550 0530PRINT"SORRY,YOUDON'THAVETHATMUCH." 0540GOTO460 0550B1=B 0552B2=0 0555GOSUB2940 0560GOSUB3090 0570PRINT"";V$(C(L-1)) 0580GOSUB2940 0590GOSUB3090 0600H=C(L-1) 0610IFC(L-3)=1THEN2820 0620IFT=21THEN1880 0630IFT1=21THEN1960 0640INPUTD$ 0645D$=MID$(D$,1,1) 0650IFD$="G"THEN1360 0660IFD$="D"THEN1330 0670IFD$="H"THEN1410 0680IFD$="S"THEN710 0690PRINT"RETYPE" 0700GOTO640 0710IFC(L-2)<>C(L-4)THEN690 0720PRINT"FIRSTHAND" 0730B1=B 0740PRINTV$(C(L-2)); 0750X=C(L-2) 0760T1=X 0770GOSUB2940 0780IFX<>1THEN810 0790T1=T1+10 0800GOTO1020 0810INPUTE$ 0815E$=MID$(E$,1,1) 0820IFE$="G"THEN1020 0830IFE$="D"THEN990 0840IFE$="H"THEN870 0850PRINT"RETYPE" 0860GOTO810 0870GOSUB2940 0880IFT1>0THEN940 0890X1=0 0900C=C-B1 0910B1=0 0920PRINTTAB(30);"BUST" 0930GOTO1050 0940INPUTE$ 0945E$=MID$(E$,1,1) 0950IFE$="G"THEN1020 0960IFE$="H"THEN870 0970PRINT"RETYPE" 0980GOTO940 0990B1=2*B 1000GOSUB2940 1010IFT1=0THEN890 1020PRINT"" 1030PRINT"TOTAL=";T1 1040X1=T1 1050PRINT"SECONDHAND" 1060B2=B 1070PRINTV$(X); 1080T1=X 1090GOSUB2940 1100IFX<>1THEN1130 1110T1=T1+10 1120GOTO1360 1130INPUTE$ 1135E$=MID$(E$,1,1) 1140IFE$="G"THEN1360 1150IFE$="D"THEN1340 1160IFE$="H"THEN1190 1170PRINT"RETYPE" 1180GOTO1130 1190GOSUB2940 1200IFT1>0THEN1280 1210X2=0 1220C=C-B2 1230B2=0 1240PRINTTAB(30);"BUST" 1250IFX1>0THEN1560 1260PRINT"";V$(H) 1270GOTO1660 1280INPUTE$ 1285E$=MID$(E$,1,1) 1290IFE$="G"THEN1360 1300IFE$="H"THEN1190 1310PRINT"RETYPE" 1320GOTO1280 1330B2=B 1340GOSUB2940 1350IFT1=0THEN1210 1360PRINT"" 1370PRINT"TOTAL=";T1 1380B=B1+B2 1390X2=T1 1400GOTO1560 1410GOSUB2940 1420IFT1>0THEN1460 1430PRINTTAB(30);"BUST" 1440PRINT"";V$(H) 1450GOTO1750 1460INPUTD$ 1465D$=MID$(D$,1,1) 1470IFD$="G"THEN1540 1480IFD$="H"THEN1410 1490PRINT"RETYPE" 1500GOTO1460 1510B=2*B 1520GOSUB2940 1530IFT1=0THEN1430 1540PRINT"" 1550PRINT"TOTAL=";T1 1560PRINT"";V$(H) 1570GOTO1600 1580GOSUB3090 1590PRINT"";V$(C(L-1)) 1600IFT<17THEN1580 1610IFT>21THEN1640 1620PRINT"TOTAL=";T 1630GOTO1720 1640PRINTTAB(30);"BUST" 1650C=C+B 1660PRINT"YOUNOWHAVE$";C 1670IFH1>20THEN3600 1680GOTO300 1720IFD$="S"THEN1770 1730IFT1>TTHEN1650 1740IFT1=TTHEN1660 1750B=-B 1760GOTO1650 1770IFT>X1THEN1860 1780IFT=X1THEN1800 1790C=C+B1 1800IFT>X2THEN1840 1810IFT=X2THEN1660 1820C=C+B2 1830GOTO1660 1840C=C-B2 1850GOTO1660 1860C=C-B1 1870GOTO1800 1880IFT1=21THEN193 0 1890C=C-B 1900PRINT"";V$(H) 1910PRINT"BLACKJACK!!!" 1920GOTO1660 1930PRINT"BLACKJACK!!!" 1940PRINT"" 1950GOTO1900 1960PRINT"BLACKJACK!!!" 1970PRINT"";V$(H) 1980PRINT"" 1990C=C+1.5*B 2000GOTO1660 2820PRINT"INSURANCE?" 2830INPUTI$ 2835I$=MID$(I$,1,1) 2840IFI$="Y"THEN2870 2850PRINT 2860GOTO620 2870IFT=21THEN2900 2880C=C-B/2 2890GOTO2850 2900PRINT"10" 2910IFT1<>21THEN1910 2920C=C+B 2930GOTO1910 2940IFT1>10THEN2980 2950IFC(L)<>1THEN2980 2960T1=T1+10 2970S1=1 2980T1=T1+C(L) 2990PRINTV$(C(L)); 3000L=L+1 3010IFT1<=21THEN3080 3020IFS1=0THEN3060 3030T1=T1-10 3040S1=0 3050GOTO3080 3060T1=0 3070PRINT 3080RETURN 3090IFT>10THEN3130 3100IFC(L)<>1THEN3130 3110T=T+10 3120S=1 3130T=T+C(L) 3140L=L+1 3150IFT<=21THEN3190 3160IFS=0THEN3190 3170T=T-10 3180S=0 3190RETURN 3310PRINT"THISBLACKJACKPROGRAMENABLESTHEOPERATORTOPLAYHEAD-" 3320PRINT"TO-HEADWITHTHECOMPUTER,SIMULATINGTHEEXACTRULESAS" 3330PRINT"THOSEONTHELASVEGASSTRIP.THECARDAREDEALTFROMA" 3340PRINT"52-CARDDECKUNTILAHANDSTARTSWITHLESSTHAN12CARDS" 3350PRINT"REMAINING,INWHICHCASEITRESHUFFLES.THEDEALERMUSTHIT" 3360PRINT"THROUGHATOTALOF16ANDSTANDONALL"; 3365PRINT"TOTALSOF17ANDABOVE" 3370PRINT"" 3371PRINT"THEINSURANCEBETISOFFEREDATHALFTHE" 3375PRINT"PLAYERSBETWHEN"; 3380PRINT"THEDEALER'SUP-CARDISANACE." 3390PRINT"YOUMAY,DOUBLE-DOWNONANYTWOCARDS,ANDRECEIVEONEMORE" 3395PRINT"CARDWHILETHEORIGINALBETISDOUBLED." 3400PRINT"YOUMAYSPLITANYHANDBUTRESPLITTINGISNOTALLOWED." 3410PRINT"ALSO,ONLYONECARDISDEALTONEACHPAIROFACES." 3415PRINT"YOURCARDSAPPEARINTHEFARLEFTCOLUMN;THEDEALERON" 3420PRINT"THEFARRIGHT." 3421INPUT"TYPETHECARRIAGERETURNFORTHELISTOFCOMMANDS",Z$ 3422PRINTCHR$(26) 3430PRINT"THECOMMANDSAREASFOLLOWS:" 3440PRINT"HIT(DRAWANOTHERCARD)" 3450PRINT"GOOD(STANDONCURRENTTOTAL)" 3460PRINT"DOUBLE(DOUBLEYOURBETANDDRAWONECARD)" 3470PRINT"SPLIT(FORMTWOHANDSFROMAPAIRWITHTHEORIGINAL" 3480PRINT"BETONEACHHAND." 3490PRINT"" 3491PRINT"COMMANDSMUSTBETYPEDINASTHEFIRSTLETTER!!!" 3495PRINT"GOODLUCK" 3500GOTO100 3600PRINT"YOUAREALLOWEDONLY20HANDS,",N$ 3610IFC>7500THEN3700 3620PRINT"I'MVERYSORRY,",N$ 3625PRINT"BUTYOUDIDNOTWINACHANCEATOURDRAWING." 3630IFC>500THEN3650 3640PRINT"MYADVICEWOULDBETOSTAYCLEAROFLASVEGAS!" 3645PRINT"YOUREALLYSTINK!!!" 3650PRINT"PLEASELETTHENEXTPERSONPLAY." 3655PRINT"IFYOUHAVEANYQUESTIONS,SEEGREG;HEKNOWSALL!!!" 3660INPUT"TYPECARRIAGERETURNTOCONTINUE",Z$ 3680GOTO20 3700PRINT"CONGRATULATIONS!!!YOUHAVEJUSTWONACHANCEINOUR"; 3701PRINT"DRAWING!!!" 3720FORJ=1TO20STEP2 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3732NEXTJ 3740GOTO20 3750END   0b0 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8" *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9#b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7 $~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|5V587b,&#b0#5-& --85V9k\\&~.v&$787%|87&&\787%|87|8\77\& 886b8|7$ 51t.~"v8|7\\~-/.~"v|878798|7879|<./W%b,'.~"^bb|87870#5-&~.-85V8|7|87b,'-~/Tbb0#5-&~.-85V&`\^\X^ZW&~/8|787|87#~/`&& `\^^&.~"|^X'Z&`~/<&^\` +3^`^\&W787<'&^fz^d f+ dz^X'Z&~0eZ[^_X8^77V'(<'87&~/^\886b~/l|E.0#5-& --8|5V587b,&#b0#5-& --85V|8p7~1.s886bp8 7 4  &.~"|4b+M~1#'U~"l#'V~"l 4$~"l &!* ' 9}D'}E&~ ~ 1}D'|TT:-B-T9T:'  B&_ \:&:T9d+'3eDK88448'%! 44*'3J+'3eF'$~"l+8d8Ķ88ċ8Ʒ8dž448'~2*@8ׄ'141~!F'$3J~"l448 &~3JM'~2 F'd8Ħ0% 8Ħ9#~2 887$~2887#~3J|887V'8Ľ1~8846b88Ād8 d388doo8z+388ċ8Ʒ8~288*448'~2 +448'~2 @&951~9A'=8b8`b8'` `b b~3b`8ooooo98Ħ0%9"8Ħ0% 8Ħ9"9@~3^@+'3eDK88448'~2 +8z8Ķ88ċ8Ʒ8dž448'~2 *448'~2 ^\^&C C\88Ʀ&8~4q888Ʀ '8~4448'~2 C&~4~4T~3J?94~4?6E'28 18% 2 8 y490001!88$!0010!!x!!k9m!V327670000000009k!!"!!M!9j888u p d 8 !E!8! ! 8678]*|8S88,@07238Z&*@ ,7p878%|8 68z88"88808827& }8' *-89867068& J6888882JJJ&8329770_F$VFj&11980'070'70'07011n888*0S8 88 88 8'87@S7|S 8 80 880 88 8Z&%8'88*S7*S  8*S8'J :& Z' l 988]*& 888&886h8' 987@7|~688&88888' 8 88 8Z&889z88iZ& l88898888&8Z&988888Z&9CS988Z.9'd & 9Z888$|889                 ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L