Scrambled Words

Gallery

Source Code

  10 PRINT AT 8,8;"%S%C%R%A%M%B%L%E%D %W%O%R%D%S";AT 10,3;"DO YOU NEED INSTRUCTIONS?"
  20 IF INKEY$="" THEN GOTO 20
  30 IF INKEY$="N" THEN GOTO 100
  40 CLS 
  50 PRINT "   THE OBJECT OF THIS GAME IS   TO UNSCRAMBLE A 5 LETTER WORD   AS SOON AS YOU CAN. THE QUICKER YOU CAN DO THIS, THE MORE POINTSWILL BE ADDED TO YOUR SCORE. YOUARE GIVEN 60 SECONDS FOR EACH   WORD."
  60 PRINT " A SAMPLE WOULD BE:::",,,"%C%R%A%H%M  COULD BE  %M%A%R%C%H OR %C%H%A%R%M",,,
  70 PRINT "   JUST TYPE IN THE LETTERS ONE AT A TIME. THE COMPUTER WILL BE ABLE TO TELL IF YOUR WORD IS    CORRECT AFTER YOU PRESSED THE   LAST LETTER.",,"   IF YOU MAKE A MISTAKE, FINISHTHE WORD - YOU CANNOT BACKSPACE."     
  80 PRINT "   SOME WORDS MAY APPEAR MORE   THAN ONCE AND CAN EVEN BE IN    ORDER. TWO PLAYERS WILL HAVE 10 WORDS EACH. PRESS ANY KEY."
  90 IF INKEY$="" THEN GOTO 90
 100 CLS 
 102 LET S=0
 104 LET P1=0
 106 LET P2=0
 110 PRINT "WHAT IS THE FIRST PLAYER,S NAME?"
 120 INPUT F$
 130 PRINT "WHAT IS THE 2ND PLAYER,S NAME?"
 140 INPUT S$
 160 CLS 
 170 PRINT F$;",S TURN"
 180 GOTO 202
 190 CLS 
 200 PRINT S$;",S TURN"
 202 GOSUB 900
 203 RAND 
 205 FOR I=1 TO INT (5*RND+6*RND)
 210 FOR Q=1 TO INT (5*RND+6*RND+7*RND+8*RND)
 215 NEXT Q
 217 NEXT I
 220 LET Q=INT (200*RND)+1
 230 GOSUB 780
 240 LET B$=A$(5*Q-4 TO 5*Q)
 250 LET C$=""
 260 LET D$=B$
 320 FOR I=1 TO 5
 330 LET R=INT (5*RND)+1
 340 IF B$(R)="0" THEN GOTO 330
 350 LET C$=C$+B$(R)+" "
 360 LET B$(R)="0"
 370 NEXT I
 375 LET G=61
 376 PRINT AT 2,0;"";
 380 PRINT C$
 390 LET V$=INKEY$
 400 IF V$="" THEN GOSUB 750
 410 IF V$="" THEN GOTO 390
 430 PRINT AT 10,10;V$;" "
 435 FOR X=1 TO 5
 436 NEXT X
 440 LET W$=INKEY$
 450 IF W$="" THEN GOSUB 750
 455 IF W$="" THEN GOTO 440
 460 PRINT AT 10,12;W$;" "
 465 FOR X=1 TO 5
 466 NEXT X
 470 LET X$=INKEY$
 480 IF X$="" THEN GOSUB 750
 485 IF X$="" THEN GOTO 470
 490 PRINT AT 10,14;X$;" "
 495 FOR X=1 TO 5
 496 NEXT X
 500 LET Y$=INKEY$
 510 IF Y$="" THEN GOSUB 750
 515 IF Y$="" THEN GOTO 500
 520 PRINT AT 10,16;Y$;" "
 525 FOR X=1 TO 10
 526 NEXT X
 530 LET Z$=INKEY$
 540 IF Z$="" THEN GOSUB 750
 545 IF Z$="" THEN GOTO 530
 550 PRINT AT 10,18;Z$
 560 IF D$=V$+W$+X$+Y$+Z$ THEN GOTO 580
 570 CLS 
 572 GOSUB 900
 573 PRINT AT 2,0;"";
 575 GOTO 380
 580 LET S=S+1
 582 IF S/2=INT (S/2) THEN GOTO 650
 590 LET P1=P1+G
 600 PRINT AT 19,10;"CORRECT"
 610 PRINT ,,"YOU SCORE ";G;" POINTS"
 620 PRINT AT 3,12;"ROUND ";INT (S/2)+1
 630 PRINT ,,F$;" ";P1,,S$;" ";P2
 635 FOR Q=1 TO 100
 640 NEXT Q
 645 GOTO 190
 650 LET P2=P2+G
 660 PRINT AT 19,10;"CORRECT"
 670 PRINT ,,"YOU SCORE ";G;" POINTS"
 673 IF S=20 THEN PRINT AT 3,0;,,
 675 IF S=20 THEN GOTO 690
 680 PRINT AT 3,12;"ROUND ";INT (S/2)
 690 PRINT ,,F$;" ";P1,,S$;" ";P2
 700 FOR Q=1 TO 100
 705 NEXT Q
 710 IF S=20 THEN GOTO 720
 713 CLS 
 715 GOTO 170
 720 PRINT "GAME OVER"
 725 STOP 
 730 PRINT AT 15,0;"OUT OF TIME - THE WORD WAS ";D$
 740 LET S=S+1
 742 IF S/2=INT (S/2) THEN GOTO 680
 744 GOTO 620
 750 LET G=G-1
 754 PRINT AT 2,27;G;"  "
 760 IF G<=0 THEN GOTO 730
 770 RETURN 
 780 LET A$="LEASEFIRSTMONTHMONEYTOUCHBRANDTRULYVALUERANGEMUSICLEVELMETERPOINTTOTALPANELAMPLESOUNDTHERETHREEENJOYBUILTSHORTCOULDCLEANPROOFFLOORINDEXPRICEBOARDCABLECLOCKTABLESMOKENOISELOWERBASICAUDIOFRONTWHILERATIOIMAGE"
 790 LET A$=A$+"FRONTOTHERIDEALSTOREPOWERWOMENMAGICGLOBEMODELPRINTTOWERCOVEREIGHTGLIDEWATERTODAYPIZZAMETALSHELFDRIVECLASSGREATLIGHTSCALESTYLEBREADDRINKPHONESHAPEGREENGLASSSAUCEHEARTSLICEONIONSTEAMLARGESTACK"
 800 LET A$=A$+"CREAMCRUSTSALADEXTRAORDERBACONBLACKOLIVESMALLSPEARSCREWSEVENDOUGHFLOATHEARDSOLIDHEAVYCRISPPUNCHSENSEPINCHSTANDEVERYSHOCKVINYLMAPLEWOVENGRAINSKATEFORCECOLORPIECEANGLEPITCHWORTHABOUTWEIGHCANDYCHECKHANDY"
 810 LET A$=A$+"SWEEPPATCHWAGONTRUCKPOUNDTOWELPAPERQUIETSPACERADIOTHESECARRYALONGREADYWHEREALARMPAUSETIMERCLOTHSHACKSTICKERASEALBUMSTARTLAPELWHITEDELAYEJECTSLIDEIDEALMINUSGRAPHFLOATQUICKBLANKSWEETNYLON"
 820 LET A$=A$+"COCAOCARGOSWEETRELAYPROBESLOPESLEEPCOUNTLOGICMOUNTDECALORDERTORCHSPADELABELROUNDWAFERCARRYLOWERTEACHAGAINMOTORMAJORLEARNORGANGRIPEEAGLEGAUGEMATCHAWARETRUNKCLAMPOTHERWOULDLIMITSWINGWRIST"
 830 LET A$=A$+"LEASHPAYEERAVENFORTECREPEMANIATAWNY"
 850 RETURN 
 900 PRINT AT 9,9;"%*%*%*%*%*%*%*%*%*%*%*";AT 10,9;"%*% % % % % % % % % %*";AT 11,9;"%*%*%*%*%*%*%*%*%*%*%*"
 910 RETURN 
 920 CLEAR 
 930 SAVE "1031%1"
 940 RUN