5 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL 6 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 10 REM *** CREATED BY MICHAEL KASS HERRICKS HS, NY 20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:" 30 PRINT 40 PRINT "X X X X X X X X X X" 50 PRINT 60 PRINT "TO THIS:" 70 PRINT 80 PRINT "O O O O O O O O O O" 90 PRINT 100PRINT"BY TYPING IN THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER" 120PRINT"ON SOME NUMBERS, 1 POSITION WILL CHANGE; ON OTHERS, 2 WILL CHANGE." 140PRINT"TO RESET A LINE TO ALL X'S, TYPE 0 (ZERO) AND TO START A NEW PUZZLE" 160PRINT"IN THE MIDDLE OF A GAME, TYPE 11 (ELEVEN)." 165PRINT\PRINT"UNFORTUNATELY, SOME OF THESE PUZZLES DO NOT HAVE A SOLUTION!" 170PRINT\PRINT\DIM A$(20) 180 RANDOMIZE 190 Q=RND(0) 200 PRINT "HERE IS THE STARTING LINE OF X'S:" 210 PRINT 220 LET C=0 230 PRINT "1 2 3 4 5 6 7 8 9 10" 240 PRINT "X X X X X X X X X X" 250 PRINT 260 M=0 270 FOR X=1 TO 10 280 LET A$(X)="X" 290 NEXT X 300 GO TO 320 310 PRINT "ILLEGAL ENTRY--TRY AGAIN" 320 PRINT "INPUT THE NUMBER"; 330 INPUT N 340 IF N<>INT (N) THEN 310 350 IF N=11 THEN 190 360 IF N>11 THEN 310 370 IF N=0 THEN 230 380 IF M=N THEN 510 390 LET M=N 400 IF A$(N)="O" THEN 480 410 LET A$(N)="O" 420 R=(SIN(Q+N/Q-N)/COS(Q+N/Q-N))-SIN(Q/N)+336*SIN(0.8*N) 430 LET N=R-INT(R) 440 LET N=INT(10*N) 450 IF A$(N)="O" THEN 480 460 LET A$(N)="O" 470 GO TO 610 480 LET A$(N)="X" 490 IF M=N THEN 420 500 GO TO 610 510 IF A$(N)="O" THEN 590 520 LET A$(N)="O" 530 R=0.592/(SIN(Q/N+Q)/COS(Q/N+Q))/SIN(N*2+Q)-COS(N) 540 LET N=R-INT(R) 550 LET N=INT(10*N) 560 IF A$(N)="O" THEN 590 570 LET A$(N)="O" 580 GO TO 610 590 LET A$(N)="X" 600 IF M=N THEN 530 610 PRINT"1 2 3 4 5 6 7 8 9 10" 620 FOR Z=1 TO 10 625 PRINT A$(Z);" "; 626 NEXT Z 630 LET C=C+1 640 PRINT\PRINT 650 FOR Z=1 TO 10 660 IF A$(Z)<>"O" THEN 320 670 NEXT Z 680 IF C>12 THEN 710 690 PRINT"VERY GOOD. YOU GUESSES IT IN ONLY";C;"GUESSES!!!!" 700 GO TO 720 710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU";C;"GUESSES" 720 PRINT "DO YOU WANT TO DO ANOTHER PUZZLE"; 730 INPUT X$ 740 IF X$="NO" THEN 780 760 PRINT 770 GOTO 190 780 PRINT\PRINT"OKAY. SO LONG FOR NOW."\PRINT 790 END