uvþq66X¹N1°ÙN°ÖÍXµÓN±N1µN¹ÚH¨ÕN10°X±N1²N²×N´N¶N50°N52°N¸N·N25°N³NµN1±N3µN4³N25µN76´N200°DELAÙA¨C¨D¨E¨Y¨A¤ØPICËX´X²X¶X³X¸KEÙ @  !"@#@$@%@&@'€()*+,-./0@@VERSION 1.1 REV.022483 1983 By Bruce Ramsey, Seattle›KKA(X,Y)52 cards;X,Ycount computer 's playable suits(X),numbers(Y),etc›qqC(V)computer's cards;D(V) C's cards suit-playable;E(V) & number- playableH(V):humans cards;X1=discrd›ppX2suit of card you last drew to; X3=#of cards dealt;X4=flags which 2s to draw to;X5=#of human's cards›ppX6=#of C's cards;X8=#of C's 8s; X9,Y PL.&DR.U,M,Z printer;Z discard var.Y(V)=C's suit-counter;SstoresV› A  $ 6€-66‚-ƒ6„-ƒ$… †@0'‡"†%ˆ*‡„-‡&ˆ†ˆ' @2 „-‡†ˆ  „ 6€-‰$„&"# „!Š6€-‰$+„&Š,&#6‚-@2(4 6‹-Œ8„,"Ž6€-A*6‚-@E06‹-4ˆ-Ž*„"*Œ8„,"ƒA2=2ƒA‘!’-ƒ@)),€‚%’9/€%@$‚%’= ’3) ’-ƒ“2ƒA ” ’)2ƒƒƒƒAY“ ,€‚/€&ˆ‚%ˆ'/€&ˆ‚%@(5/€‚%@)C,€%@$‚Y,€%@$‚%@)F ‹!•6‹-+‹&–,$Ž%—dxx‹&Ž$P:‹'Ž,AA A0A@APA`ApA€AAAA A0n5 ,€%‘‚%˜/€%‘‚%“!/€%“‚%‘+/€%”‚%“5/€%”‚%˜p ,€%‘‚%”/€%”‚%” ™xC ,€%‘‚%š/€%š‚%‘!/€%›‚%‘+/€%”‚%š5/€%‘‚%˜?/€%”‚%˜C ™‚5 ,€%‘‚%š/€%š‚%‘!/€%›‚%‘+/€%”‚%š5/€%›‚%“„9 ,€%“‚%“/€%”‚%”!/€%›‚%˜+/€%š‚%˜5/€%‘‚%”9 ™Œ9 ,€%”‚%”/€%‘‚%”!/€%‘‚%›+/€%›‚%‘5/€%›‚%˜9 ™–? ,€%”‚%‘/€%‘‚%‘!/€%‘‚%“+/€%›‚%“5/€%”‚%›?/€%”‚%”˜% ,€%›‚%˜/€%š‚%˜!/€%‘‚%”% ™ ? ,€%›‚%‘/€%š‚%‘!/€%‘‚%š+/€%‘‚%”5/€%š‚%˜?/€%›‚%˜¢/ ,€%”‚%”/€%”‚%›!/€%›‚%“+/€%‘‚%“/ ™ª/ ,€%‘‚%‘/€%”‚%‘!/€%”‚%š+/€%‘‚%˜/ ™´? ,€%”‚%š/€%›‚%‘!/€%š‚%‘+/€%‘‚%š5/€%š‚%“?/€%›‚%“¶C ,€%”‚%›/€%”‚%”!/€%›‚%˜+/€%š‚%˜5/€%‘‚%”?/€%‘‚%›C ™¾? ,€%›‚%›/€%š‚%›!/€%‘‚%“+/€%‘‚%š5/€%š‚%‘?/€%›‚%‘À% ,€%”‚%š/€%”‚%”!/€%“‚%—% ™È ,€%‘‚%‘/€%‘‚%@Ê? ,€%”‚%‘/€%›‚%‘!/€%“‚%š+/€%“‚%”5/€%›‚%˜?/€%”‚%˜Ì ,€%˜‚%”/€%˜‚%š ™Ò ,€%š‚%‘/€%”‚%‘Ô9 ,€%›‚%š/€%›‚%”!/€%“‚%˜+/€%š‚%˜5,€%‘‚%”9 ™Ü? ,€%›‚%‘/€%š‚%‘!/€%‘‚%š+/€%‘‚%”5/€%š‚%˜?/€%›‚%˜Þ ,€%”‚%š/€%”‚%”à ,€%“‚%”/€%”‚%— ™æ5 ,€%‘‚%‘/€%‘‚%˜!,€%›‚%‘+/€%š‚%“5/€%”‚%˜ú,,P:‹'Ž,APAAAP,5“’-ƒ‘,€&’%‚%˜%’1/€%’%@‚%˜%’5 ’0 ,€%—‚%/€%‰‚%2+ ’-ƒ‘,€%’%—‚%’%œ'/€&’%‰‚%’%œ+ ’4+ ’-ƒ‘,€&’%”‚%’%‰'/€%’%—‚%’%‰+ ’67 ’-ƒ‘,€%’%“‚%’%@3/€&’%‚%’%@7 ’81 ’-ƒ‘,€&’%‰‚%’%‰-/€%’%@‚%’%‰1 ’:C ’-ƒ‘%,€%’%@‚%’%@?/€&’%@‚%’%@C ’<3 ’-ƒˆ,€%’%œ‚%@//€%’%œ‚%@%3 ’>K ’-ƒˆ,€&’%‚%’%@$9/€%’%@‚%’%@$= ’K"ŽAJ  „ •^/š’-ƒ—,€&’%œ‚%’%—+/€%’%‚%’%Š/ ’bK ’-ƒ—,€%’%š‚%’%@9/€&’%@ ‚%’%@= ’K"ŽAr  „ •5š,€%”‚%/€%—‚%%,€%‰‚%5/€%@‚%–7 ,€%›‚%œ/€%Š‚%œ',€%@‚%œ7/€%@‚%œš7 ,€%“‚%/€%‚%',€%@‚%7/€%@‚%ž9 ’-ƒš,€%“‚%’%@5/€%@‚%’%@9 ’ K ’-ˆ˜,€%’%“‚%’%@9/€&’%@‚%’%@= ’K"ŽA©  „ •Â/“’-ƒ˜,€&’%œ‚%’%Š+/€%’%‚%’%Š/ ’ÆY ’-ƒ“,€%“‚%’%@5/€%@‚%’%@9 ’I,€%›‚%@!Y/€%Š‚%@!ÊO,€%@‚%@!//€%@‚%@!?,€%”‚%@"O/€%—‚%@"ÎI,€%‰‚%@")/€%@‚%@"9,€%œ‚%@!I/€%œ‚%@%ÒW,€%‚%@!#/€%‚%@%3,€%‚%@%I/€%@‚%@%W"ŽAà „ô“†"‰AöM †"Š’-ƒ@0+,’%@2?/@)’%@2C ’M A÷? † ’-ƒ@)!,‰$†%‰’1/‰$†%@)’5 ’? AøG’-ƒ@)',‰$+†&Š,%‰’%@2C/‰$+†&Š,%@)’%@2G ’þ 6…-† $X 6-ƒ $„33"ˆ‘š“›”˜—Šœ‰žŽ™Ÿ•– ¡¢…KK1,2,3,4,5,6,7,8,9,10,11,12,15,35,43,100,250,255,500,520,764,2000,3590›‡00£9@<“,¤9‰,¥9‰,¦9š,Œ9‰,§9“,¨;ˆ,‹++˜0ƒ‘‰0ˆƒ‰0‘š‘+ARˆŒJ,($CRAZY EIGHTS 1982 BY BRUCE RAMSEYJ(Atari BASIC, requires 32K;(1(%trigger=Y=YES stick=N=NO S=SORT HAND; A p“2 „-ˆ— A P"6¤8„,-Ž$‚%©& „26ª-A5•”@ „-ˆ— A P"6Œ8„,-Ž$‚%©& „,6†-—6 A0<6‡-ˆ@ •) A P©—6-Ž$‚%©#©"‘)6«-‘– ©"—6-–%‚—d 6-ƒ6¬-ƒ6­-—>($} DISCARD PILED ¢&J6‹-P6-ŽZ @@d A €¶Z6©-P:@$H:ˆ,,%ˆ)6‚-P:“$H:ˆ,,%ˆ;6£8©<‚,-£8©<‚,%ˆN£8©<‚,!ˆA PZpick card›¾ 6®-®%ˆ®"@RA(À$Ê?’-ˆ@„-ˆ“*6£8’<„,-. „2 ’5$?shuffle›ÔQ 6©-ƒ6‚-ƒ6’-ƒ6‹-ƒ!6¯-ƒ'6€-ƒ/„-ˆ‰86¥8„,-ƒ< „D„-ˆšM6¦8„,-ƒQ „×: „-ˆ“6§8„,-ƒ „ „-ˆ­/¤8„,"A:6¤8„,-–%ˆß¤8„,"A6¤8„,-–%‘à¤8„,"A6¤8„,-–%šá¤8„,"A6¤8„,-–%“â „è sort›ê= „-ˆ­’-ˆ­¤8„,!¤8’,(6©-¤8„,46¤8„,-¤8’,=6¤8’,-©ð ’ „ A’ ‹"–%ˆ(8`$“ ‹"–%‘(8>:@, $• ‹"–%š(8>:ƒ,$– ‹"–%“(8{$—#‹&Ž$P:‹'Ž,"ˆ(A# A€˜ ‹&Ž$P:‹'Ž, œ (‹&Ž$P:‹'Ž,™‹&Ž$P:‹'Ž,"œ(Jš‹&Ž$P:‹'Ž,"(Q›‹&Ž$P:‹'Ž,"@(Kœ,,P:‹'Ž,AA‚AƒA„ (` $ž(>:@,$Ÿ (>:ƒ,$  ({ $°& „-ˆ­¤8„,!•6¯-¯%ˆ& A·*¤8„,!A 6§8“,-§8“,%ˆ* A¸*¤8„,!A 6§8š,-§8š,%ˆ* A¹ ¤8„,!A 6§8‘,-§8‘,%ˆº ¤8„, A 6§8ˆ,-§8ˆ,%ˆ¼ „¿ !•6‹- AÀ&Ž$P:'Ž,"‘A"Ä­¯A0Æ" 6‹-¤8ˆ,¬“6’-A" ¡È 6’-Ž%— ¡Î 6‚-ƒÐ= „-ˆ­)¤8„,&Ž$P:¤8„,'Ž,"&Ž$P:'Ž,16‚-‚%ˆ=6¦8‚,-¤8„,Õ „ì 6©-ƒð „-ˆ­¤8„,!•Apô*P:¤8„,'Ž,"P:'Ž,6©-©%ˆ*6¥8©,-¤8„,ö „¥8ˆ,%¦8ˆ,%¯"ƒA!¦8ˆ,%¥8ˆ,"ƒA¦8ˆ,%¯"ƒA¯%¥8ˆ,"ƒA ¦8ˆ,"ƒAP ¥8ˆ,"ƒA Axpick suitmatch›z ©"ˆ6‹-¥8ˆ, ¡‚ „-ˆ©6‹-ƒŒ ’-ˆ­‘!¥8„,"¤8’,6‹-‹%ˆ! A@–77¥8„,&+Ž$+P:¥8„,'Ž,,,"¤8’,&+Ž$+P:¤8’,'Ž,,,AP› 6‹-‹%ˆ  ’6‹-¥8„, ¡ª „6‹-¥8©, ¡Ü8 only playable›æ0„-@­&¤8„,&Ž$P:¤8„,'Ž,"‘0 A0ð „ A@úH †!›-6§8P:¤8„,'Ž,,-§8P:¤8„,'A,,%‘0$Hextra 'points' for 2s›ÿ(6‹-P:¤8„,'Ž,$Ž6’-‹%—$6‹-¤8ˆ,( ¡§8ˆ,!§8‘,AP§8š,!§8‘,A`§8“,!§8‘,Ap  6‹-–%‘6’-A ¡§8š,!§8ˆ,A`§8“,!§8ˆ,Ap 6‹-–%ˆ6’-A ¡§8“,!§8š,Ap 6‹-–%š6’-A ¡" 6‹-–%“6’-A ¡@ †!›A #-match only›B9 „-ˆ‚’-ˆ¯,¤8’,"+Ž$+P:¦8„,'Ž,,,%‘56‹-¦8„,9 ¡H  ’ „J3 „-ˆ‚’-ˆ¯&P:¦8„,'Ž,"P:¬'Ž,/6‹-¦8„,3 ¡P ’ „6©-V( „-ˆ‚6‹-§8P:¦8„,'Ž,,"© ‹(6©-‹\- „„-ˆ‚ §8P:¦8„,'Ž,,"©)6‹-¦8„,- ¡f „r!¯"ƒ)†!›A!suits & 8›x( „-ˆ­(¤8„,&Ž$P:¤8„,'Ž,"‘Ap| „ Av†#P:¤8„,'Ž,"P:'Ž,6‹-¤8„,# ¡ˆ A`ŒE „-ˆ­ ¤8„,&Ž$P:¤8„,'Ž,"‘06‹-Ž$P:¤8„,'Ž,86’-‹%—A6‹-¤8ˆ,E ¡ „ A¤¯"ƒ)†!›A#'s&8›¨8 6‹-ƒ„-ˆ­&¤8„,&Ž$P:¤8„,'Ž,"‘.6‹-‹%ˆ8 A ¬ „‹"ƒA°E „-ˆ­ ¤8„,&Ž$P:¤8„,'Ž,"‘06‹-Ž$P:¤8„,'Ž,86’-‹%—A6‹-¤8ˆ,E ¡³ „¸. ’-ˆ‚!P:¦8’,'Ž,"P:¤8„,'Ž,*6‹-¦8’,. ¡¼ ’ A 6€-ƒsuits & #s.› „-ˆ­*¤8„,&Ž$P:¤8„,'Ž,"‘ 6€-€%ˆ* AP „†!”)€"ƒA`( „-ˆ­(¤8„,&Ž$P:¤8„,'Ž,‘A(! ’-ˆ‚",P:¤8„,'Ž,"P:¦8’,'Ž,6„-ƒ(6‹-¦8’,, ¡# ’$ „¯"ƒA`&6‹-@ „-ˆ­* ¤8„,&Ž$P:¤8„,'Ž,‘A8,%§8P:¤8„,'Ž,, ‹%6‹-§8P:¤8„,'Ž,,.& „„-ˆ@&§8„,‹AH4U ’-ˆ­¤8’,"„$Ž%‘.(Play the 8 as a 66‹-„$Ž@ A€H6’-‹%—Q6‹-¤8ˆ,U ¡6 ’8 „:#P:¤8„,'Ž,"P:'Ž,6‹-¤8„,# ¡;$DP:'Ž,¬A€F©!ˆ)­ “APL'„-@©'P:¥8„,'Ž,¬AvP< ’-ˆ­/¥8„,&Ž$P:¥8„,'Ž,"¤8’,&Ž$P:¥8’,'Ž,86‹-¥8„,< ¡S ’T „XK6€-§8P:'Ž,,„-ˆ‚*§8P:¦8„,'Ž,,!€;6€-§8P:¦8„,'Ž,,Kswitch suits?›f „€"§8P:'Ž,,APj Al8 6‚-ƒ„-ˆ“§8„,!‚#6‚-§8„,8game starts w/an 8›t, „„-ˆ“§8„,"‚"6-„$Ž%—, A`| „Ð% ‹ •6-‹%discard,adjust hand›Ù" ‹!•6-’6¤8ˆ,-ƒ" A Ú&Ž$P:'Ž,"‘6«-‘Ü „-ˆ­¤8„,"‹6¤8„,-ƒâ „ä$ „-ˆ­&ˆ¤8„,"ƒ$6¤8„,-¤8„%ˆ,ç#„!ˆ*¤8„,"¤8„&ˆ,#6¤8„,-¤8„%ˆ,è „6­-­&ˆ­"ƒ A)PîI(}Computer discards "6‹-, Ap2­!ˆI(, has ­ cards.ò ­"ˆ(. one card left!ø1 A5€6‹-6-Ž# @@' ¢1 A24­"‰A#c draws 1›H" 6­-­%ˆ A P"6¤8­,-‚$Ž%©TZ-(}Computer draws, and has ­ cards.>„-@ ƒ6‘L2ƒ„$›„'‘P „Z A €˜«‘A c draws 2›¬ 6«-ƒ6­-­%‘­!‰A#¶3 A P6¤8­&ˆ,-‚$Ž%©& A P36¤8­,-‚$Ž%©À+„-ˆAP‘2ƒ„! „+2ƒƒƒƒÅ>,(}}Computer draws 2 cards, has ­.0 ¢4 ¢> A2üK+ƒ0‘‘ˆARˆ'-Š@A( COMPUTER GOES BUST! K A5… 8-‘@8($The machine violated its own maximum >-“@ 4( capacity by drawing a 16th card.> A)ƒð J!(} SHUFFLING DECK /„-ˆ@7’-ˆ“B6£8„<’,-ƒF ’J „ 6 „-ˆ­¤8„, •66£8¤8„,&Ž$P:¤8„,'Ž,:AS,}š * -›Š*(*******COMPUTER WINS!*******¤ U-@@ (HUMAN!,-ˆ@!U($ You have been humbled by a machine.§ @-Š@#)(Will you play again?- ª3°"=+@ª °"žA)”¬ A (}-˜@!3(Y or N, trigger or stick!7 ¢A A)ƒ² @„-ˆ@’-ˆ“$6£8„<’,-ƒ( ’, „/%@full reshuffle›¸ N 6€-ƒ„-ˆ†&Œ8„,&Ž$P:Œ8„,'Ž,"—96Œ8„,-P:Œ8„,'Ž,%–Nsort human's cards›Î A „„-ˆ†’-ˆ†#Œ8„,!Œ8’,,6©-Œ8„,86Œ8„,-Œ8’,A6Œ8’,-©Õ ! ’ „‡"AP6‡-ˆ! Ö $€ $ 6‡-ƒ6©-ƒ$ID H's suitmatches›‚ &Ž$P:'Ž,"‘A3`Š  „-ˆ†Œ8„,!•A2Ž (P:Œ8„,'Ž,"P:'Ž,6©-©%ˆ( A3  „” ID #-matches›– A„-@†/Œ8„,&Ž$P:Œ8„,'Ž,"&Ž$P:'Ž,76©-©%ˆA A30™ * „„-ˆ†Œ8„,!• 6©-©%ˆ* A4£  „¨ ©!ƒA2`H draws›­ ' „-ˆ2ƒ@B—#’-ˆš' ’® - ’-ˆš2ƒ@P— ’# „-2ƒƒƒƒ¯ †"‰A5P² A P©"— 6Œ8†%ˆ,-–%‚´  ©—6Œ8†%ˆ,-Ž$‚%©¸ *6¬-P:'Ž,6†-†%ˆ6‡-† * A2¼ 2 (}Would you rather draw?$ ª2°"žA2EÀ °"A2Á -°"@b A06‡-ˆ# - A2  A6 A2`ä X 6‹-Œ8„,6‡-„-(}Want to discard the 7 Ap>(?B ªH°"N6„-‡X A2ó  °"ž6„-ƒ A5ô -°"@b A06‡-ˆ# - A2ø  A6 A3 X 6‹-Œ8„,6‡-„-(}Want to discard the 7 Ap>(?B ªH°"N6„-‡X A2%  °"ž6„-ƒ A5 -°"@b A06‡-ˆ# - A2  A6 A30 C discards a 2›! «‘A2" †!@A5P$ M„-ˆ@P#2ƒ„%@P' „12ƒƒƒƒM(}DRAW TWO CARDS, HUMAN!& A P©"— 6Œ8†%ˆ,-–%‚'  ©—6Œ8†%ˆ,-Ž$‚%©(  6†-†%ˆ6‡-† ) A P©"— 6Œ8†%ˆ,-–%‚*  ©—6Œ8†%ˆ,-Ž$‚%©,  6†-†%ˆ6‡-† -  6«-ƒ A €H H discards 8›J 4"(}Do you want to use an 8?& ª4°"žA4 M °"A2`N -°"@b A06‡-ˆ# - A2O  A6 A4Q †"ˆA4PR e(} >:ƒ,=(As what suit? {+>:@,S( `eAdAUS ''F:Ad,"AU*R:ƒ,"‰A4T Q6‹-F:Ad,6-R:ƒ,% A5u;‹"@X)"@G6-AQ A4(W )‹"@)"˜6-A) A4(Z /‹"@W)"@%6-A/ A4(] )‹"@b)"œ6-A) A4(` J#(}What sort of suit is that?8(Use C,D,H, or S.< ¢@ ¢J A4d  6‹-6-Ž @@f  „-ˆ†Œ8„,!•A42g  „h 3 6Œ8„,-ƒ6‡-„„-ˆ†&ˆ%Œ8„,"ƒ36Œ8„,-Œ8„%ˆ,j Œ8„,"Œ8„&ˆ,6Œ8„,-Œ8„%ˆ,l  „6†-†&ˆ  A €z <+ƒ0‘‘ˆARˆ!-—Š<( YOU BEAT THE MACHINE! ? #A4€€-ˆ”"„’#‹-ˆ’-2ƒ„1 ‹5 €?2ƒƒƒƒ„ ?-@@"-(Want to play again?1 ª?°"žA4pŠ  °(} A4`‹ +ƒ Ž A)”˜ &&121,2,96,2,81,2,60,10,81,2,60,30›¬ $†"ˆA4P$H discards non-8›· ! 6-Œ8‡,&Ž$P:'Ž,"‘!6«-‘¹ - 6Œ8‡,-ƒ„-ˆ†&ˆŒ8„,"ƒ-6Œ8„,-Œ8„%ˆ,À Œ8„,"Œ8„&ˆ,6Œ8„,-Œ8„%ˆ, G „6†-†&ˆ&(}You discard the ,6‹-6 ApG( , & have †È  †"ˆ( card! A50É ( cards.Ê ' 6‹-6-Ž @@ ' A €Þ =+ƒ0‘‘ˆARˆ!-3( YOU GO BUST!= A5…÷ 2 ’-ˆ—2ƒ@) ’)2ƒƒƒƒ/6’-ƒ2$ü 2 ’-ˆ›2ƒA!— ’)2ƒƒƒƒ/6’-ƒ2$J„-ˆAš2ƒ„! „)„-ˆ”92ƒAC= „G2ƒƒƒƒJ$’-ˆ@P ’$   Ÿ ""F: ,"Ÿ*R:ƒ,"‰*T:ƒ,"ˆA5–  T:ƒ,"ƒ6°-ž A5u$ R:ƒ,‰6°- A5u$ 6°-F: , A5u Ÿ$E"(}Y or N, trigger or stick,:(or S to sort cards.> ¢B ¢E$€D:CRAZY8