BCG101/port/FIPFOP.BAS

   5 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
  10 REM *** CREATED BY MICHAEL CASS   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
 100 PRINT"BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER"
 120 PRINT"ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON OTHERS, TWO WILL CHANGE"
 140 PRINT"TO RESET THE LINE TO ALL X'S, TYPE 0 (ZERO) AND TO START A NEW"
 160 PRINT"IN THE MIDDLE OF A GAME, TYPE 11 (ELEVEN)"
 170 PRINT
 180 RANDOMIZE
 190 LET Q=RND(Y)
 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 DIM A$(20)
 270 FOR X=1 TO 10
 280 LET A$(X)="X"
 290 NEXT X
 300 GOTO 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 180
 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 LET R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(.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 GOTO 610
 480 LET A$(N)="X"
 490 IF M=N THEN 420
 500 GOTO 610
 510 IF A$(N)="O" THEN 590
 520 LET A$(N)="O"
 530 LET R=.592*(1/TAN(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 GOTO 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\PRINT A$(Z)" ";\NEXT Z
 630 LET C=C+1
 640 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 GUESSED IT IN ONLY "C"GUESSES!!!!"
 700 GOTO 720
 710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU "C"GUESSES"
 720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE";
 730 INPUT X$
 740 IF X$="NO" THEN 780
 760 PRINT
 770 GOTO 180
 780 END