0 'ANAGRM.BA v1.0 by D.BLANCHAR 12/90 1 'CLUB 100 BETA TEST-415/939-1246 BBS,932-8856 VOICE 3 CLS:RESTORE:CLEAR:DEFSTRA-I:DIMB(7):D=" ":H=CHR$(27)+"p":I=CHR$(27)+"q" 5 DEFINTP-Z:CALL16959:'NO-SCROLL 7 FORX=1TO13:FORZ=97TO122:PRINTCHR$(Z);:NEXTZ:NEXTX:CLS 11 LINE(0,0)-(238,8),1,B:PRINT@6,H;" ANAGRAM & ENCRYPTED WORDS " 13 PRINT:PRINTI;"*1 or 2 players can compete":PRINT"*6-letter words will be presented":PRINT"*either scrambled (letters out of order)";:PRINT" or encrypted (simple replacement code)"; 15 PRINT"*you have 99 seconds to type the":PRINT" correct word " 17 LINE(0,7)-(238,63),1,B 19 E=INKEY$:IFE=""GOTO19 21 CLS:PRINTD;H;" select number of players" 23 PRINTD;D;D;D;" [1 2]";:V=0:W=0 25 E=INKEY$:IFE=""GOTO25 27 IFE="1"ORE="2"THENU=VAL(E)ELSEGOTO25 29 PRINT:PRINTU;"player(s)";D;D;D;D 31 PRINTD;"select challenge style";D 33 PRINTD;"anagram or encryption";D;"[a e]":PRINT:PRINT" keep CAPS LOCK off ";I 35 E=INKEY$:IFE=""GOTO35 37 IFE="e"GOTO101ELSEIFE="a"GOTO201ELSEGOTO35 101 CLS:PRINTH;D;" ENCRYPTION CHALLENGE ";I 103 GOSUB401:GOSUB403:FORX=1TOT+1:READA:NEXTX 105 FORQ=1TO5:Z=1 107 GOSUB451 119 GOSUB411:GOSUB405:GOSUB403:R=R+23 121 FORX=0TOR:READA:NEXTX 123 IFA="9"THENR=R-23:RESTORE:GOTO121 125 PRINT@241,"player";1;":";V:IFU=1THENNEXTQ 127 IFU=1THEN301 131 Z=2:GOSUB451:GOSUB411:GOSUB407:GOSUB403:R=R+23 147 FORX=0TOR:READA:NEXTX 149 IFA="9"THENR=R-23:RESTORE:GOTO147 151 PRINT@263,"player";2;":";W:NEXTQ 153 GOTO301 201 CLS:PRINTH;D;" ANAGRAM CHALLENGE ";I 203 GOSUB401:GOSUB403:FORX=1TOT+1:READA:NEXTX 205 FORQ=1TO5:Z=1 207 GOSUB471 219 GOSUB411:GOSUB405:GOSUB403:R=R+23 221 FORX=0TOR:READA:NEXTX 223 IFA="9"THENR=R-23:RESTORE:GOTO221 225 PRINT@241,"player";1;":";V:IFU=1THENNEXTQ 227 IFU=1THEN301 231 Z=2:GOSUB471:GOSUB411:GOSUB407:GOSUB403:R=R+23 247 FORX=0TOR+23:READA:NEXTX 249 IFA="9"THENR=R-23:RESTORE:GOTO247 251 PRINT@263,"player";2;":";W:NEXTQ 253 GOTO301 301 PRINT@280,"< quit or play again [q p] >";I 303 E=INKEY$:IFE=""GOTO303 337 IFE="p"GOTO21 399 CALL16964:MENU 400 GOTO0 401 T=VAL(RIGHT$(TIME$,2)):RETURN 403 FORX=1TOT+1:N=RND(1):NEXTX:R=FIX(6*N+1):RETURN 405 V=V+P:RETURN 407 W=W+P:RETURN 411 PRINT@122,P;:PRINT@152,D;:PRINT@152,C; 413 S=T:T=VAL(RIGHT$(TIME$,2)):IFS<>TTHENP=P-1:IFP<1THEN431 415 E=INKEY$:IFE=""GOTO411 417 IFASC(E)=8THENC=LEFT$(C,(LEN(C)-1)):E="":GOTO411 419 C=C+E:IFC<>AGOTO411 421 PRINT@152,C;:PRINT@190,H;" CORRECT ";:PRINT@280,"";I 423 E=INKEY$:IFE=""GOTO423 425 PRINT@185,D;D;:PRINT@280,D;D;D;D;D:RETURN 431 PRINT@187,H;" TIME LIMIT ";:PRINT@231,H;" ";A;" ";I;:PRINT@280,"";I 433 E=INKEY$:IFE=""GOTO433 435 PRINT@152,D;:PRINT@185,D;D;:PRINT@225,D;D;:PRINT@280,D;D;D;D;D:RETURN 451 PRINT@41,"player";Z;D:B="":GOSUB401:T=T+1 453 IFT>25THENT=T-19:GOTO453 455 FORX=1TO6 457 Y=ASC(MID$(A,X,1))+T:IFY>122THENY=Y-26 459 E=CHR$(Y):B=B+E:NEXTX 461 PRINT" seconds left to decode word";Q;H;" ";B;" ";I:P=100 463 C=LEFT$(A,1):RETURN 471 PRINT@41,"player";Z;D:GOSUB401:T=T+1:B="":PRINTH;"scrambling word";Q;D;D;D;I 473 IFT>11THENT=T-5:GOTO473 475 FORX=1TO6:B(X)="*":NEXTX 477 FORT=1TO6 479 GOSUB403:IFR=XGOTO479 481 IFB(R)<>"*"GOTO479 483 B(R)=MID$(A,T,1):NEXTT 485 B="":FORX=1TO6:B=B+B(X):NEXTX 487 FORS=1TO4:IFLEFT$(A,3)=MID$(B,S,3)THENGOTO475ELSENEXTS 489 FORX=6TO1STEP-1:C=C+B(X):NEXTX 491 IFC=ATHEN475 495 BEEP 497 PRINT@80," seconds left to decode word";Q;H;" ";B;" ";I:P=100 499 C="":RETURN 501 DATA absurd,access,action,accord,adverb,affair,akimbo,anchor,animal,assist,astral 502 DATA backup,basket,banana,banker,batter,beaver,benign,bikini,binary,bitten,bloody,bomber,boxboy,branch,breast,bridge,brunch,bummer 503 DATA cabana,camera,carbon,center,cereal,change,classy,closed,closet,common,condom,corner,creepy,crutch,crunch,cursor 504 DATA dabble,decode,defuse,dinner,divide,doctor,double 505 DATA eighty,eleven,endure,ethnic,exotic 506 DATA factor,family,fellow,fender,fiddle,figure,finger,fiscal,flavor,flight,floppy,flower,format,freeze,friend,funnel,future 507 DATA gargle,gasket,glider,glitch,global,golden,gospel,groove,ground,growth,gutter 508 DATA hacker,happen,harden,hassle,helium,hidden,homage,hunger 509 DATA immune,impact,induce,inform,inside,invert 510 DATA jockey 511 DATA kernel,keypad,killer,kludge,kvetch 512 DATA ladder,latter,launch,legion,letter,linear,liquid,locate,lumber 513 DATA magnet,mammal,marker,market,master,medium,mellow,memory,method,metric,mobile,module,muscle 514 DATA native,negate,nickel,normal,number 515 DATA object,orient,oyster 516 DATA packet,parent,parson,pastel,people,person,photon,pillow,plaque,police,preach,primal,public 517 DATA quaint,quartz,quasar,quiche 518 DATA rabbit,random,raster,ration,reduce,region,refine,remote,reward,ripple,rotate,rubber 519 DATA sacred,safari,safety,scroll,second,serene,sequel,severe,sexual,shield,shrink,simple,single,skinny,sleaze,smooth,spider,spouse,spring,sprint,static,stitch,stream,street,strewn,string,strong,sunset,supply,switch,syntax 520 DATA tackle,tablet,thatch,thrift,thrust,tissue,torque,travel,tunnel,turkey 521 DATA undock,update 522 DATA vector 523 DATA waffle,weirdo,window,wooden,writer 524 DATA yellow 526 DATA zinger 527 DATA 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9