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
