Mystery

Gallery

Source Code

   5 LET F=0
  10 DIM B(6)
  20 LET Y=1
  30 LET N=0
  35 PRINT "     ?????????????????????     "
  37 PRINT "     ?                   ?     "
  40 PRINT "     ? MYSTERY ? MYSTERY ?     "
  42 PRINT "     ?                   ?     "
  45 PRINT "     ?????????????????????     "
  60 PRINT AT 8,0;"  YOU CHOOSE A NUMBER BETWEEN     1 AND 63.",,"  THEN A SERIES OF 6 CARDS WILL   BE SHOWN IN TURN,YOU ARE THEN   REQUIRED TO TYPE EITHER YES OR  NO (Y OR N) DEPENDING ON        WHETHER YOUR NUMBER APPEARS OR  NOT."
  70 PRINT ,,,,"I WILL THEN TELL YOU YOUR NUMBER"
  80 PRINT AT 21,0;"  %P%R%E%S%S% %A%N%Y% %K%E%Y% %F%O%R% %F%I%R%S%T% %C%A%R%D  "
  90 IF INKEY$="" THEN GOTO 90
 100 CLS 
 110 PRINT AT 0,0;"CARD ";1
 111 PRINT AT 6,3;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 14,3;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
 120 PRINT AT 7,0;"     1  3  5  7  9 11 13 15     ",,"    17 19 21 23 25 27 29 31     ",,"    33 35 37 39 41 43 45 47     ",,"    49 51 53 55 57 59 61 63     "
 130 GOSUB 500
 140 PRINT AT 0,5;2;AT 7,0;"     2  3  6  7 10 11 14 15     ",,"    18 19 22 23 26 27 30 31     ",,"    34 35 38 39 42 43 46 47      ",,"    50 51 54 55 58 59 62 63     "
 150 GOSUB 550
 160 PRINT AT 0,5;3;AT 7,0;"     4  5  6  7 12 13 14 15     ",,"    20 21 22 23 28 29 30 31     ",,"    36 37 38 39 44 45 46 47     ",,"    52 53 54 55 60 61 62 63     "
 170 GOSUB 550
 180 PRINT AT 0,5;4;AT 7,0;"     8  9 10 11 12 13 14 15     ",,"    24 25 26 27 28 29 30 31     ",,"    40 41 42 43 44 45 46 47     ",,"    56 57 58 59 60 61 62 63     "
 190 GOSUB 550
 200 PRINT AT 0,5;5;AT 7,0;"    16 17 18 19 20 21 22 23     ",,"    24 25 26 27 28 29 30 31     ",,"    48 49 50 51 52 53 54 55     ",,"    56 57 58 59 60 61 62 63     "
 210 GOSUB 550
 220 PRINT AT 0,5;6;AT 7,0;"    32 33 34 35 36 37 38 39     ",,"    40 41 42 43 44 45 46 47     ",,"    48 49 50 51 52 53 54 55     ",,"    56 57 58 59 60 61 62 63     "
 230 GOSUB 550
 240 CLS 
 250 FOR X=1 TO 6
 260 LET F=F+B(X)*2**(X)
 265 PRINT AT 12,0;"     NOW,LET ME THINK....."
 267 IF X=4 THEN PRINT AT 16,0;"     AH,I KNOW NOW."
 270 NEXT X
 280 CLS 
 290 PRINT AT 10,0;"    YOUR NUMBER WAS ";F/2
 300 FOR C=1 TO 20
 310 NEXT C
 320 PRINT AT 21,0;" %P%R%E%S%S% %A%N%Y% %K%E%Y% %F%O%R% %A%N%O%T%H%E%R% %G%O "
 330 IF INKEY$="" THEN GOTO 330
 340 CLS 
 350 RUN 
 500 FOR E=1 TO 6
 510 LET A$=INKEY$
 520 IF A$<>"N" AND A$<>"Y" THEN GOTO 510
 530 LET B(E)=VAL A$
 535 IF INKEY$<>"" THEN GOTO 535
 540 RETURN 
 550 NEXT E
 560 STOP 
 570 CLEAR 
 580 SAVE "1028%2"
 590 RUN