10 :
   20 :
   30 REM"�      YOU THINK OF A NUMBER
   40 REM"�AND THE COMPUTER WILL GUESS IT
   50 REM"�         BY RUSHDEN ROY              �   �(A 'L Plate' Programmer)                          �1992
   60 MODE7
   70 *FX11,0
   80 VDU23,1,0;0;0;0;
   90 CLS
  100 PRINT"�7`+47``57k`5 ````` PROGRAM BY ````````"
  110 PRINT"�5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k"
  120 PRINT"�uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5"
  130 PRINT"�ppppppppppp upp5u5upp5uzp5upp5u7t5upp5"
  140 PRINT'
  150 PRINT"�        A MIND READING COMPUTER"
  160 PRINT'"�       THINK OF A NUMBER BETWEEN"
  170 PRINT'"�               1 AND 9O"
  180 PRINT
  190 PRINT'"�(Then after seven screens the...."
  200 PRINT'"�....computer will show that number)"
  210 PRINT''"�ARE YOU READY TO START......"
  220 PRINT'"   �   ......AND THINKING OF A NUMBER ?"
  230 PRINT''"�      IF YES THEN PRESS 'Y' <Yes>"
  240 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THEN250ELSE240
  250 CLS
  260 T=0
  270 S$="�Screen"
  280 A$="�IS THE NUMBER IN THIS LIST?......."
  290 B$="   �....PRESS 'Y'<Yes> OR PRESS 'N'<No>"
  300 PRINT'
  310 PRINT"  1  -  3  -  5  -  7  -  9  -"
  320 PRINTSPC(32)S$
  330 PRINT" 11  - 13  - 15  - 17  - 19  -"
  340 PRINTSPC(32)"�(1of7)"
  350 PRINT " 21  - 23  - 25  - 27  - 29  -"
  360 PRINT'" 31  - 33  - 35  - 37  - 39  -"
  370 PRINT'" 41  - 43  - 45  - 47  - 49  -"
  380 PRINT'" 51  - 53  - 55  - 57  - 59  -"
  390 PRINT'" 61  - 63  - 65  - 67  - 69  -"
  400 PRINT'" 71  - 73  - 75  - 77  - 79  -"
  410 PRINT'" 81  - 83  - 85  - 87  - 89  -"
  420 PRINT'A$
  430 PRINT'B$
  440 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+1ELSET=T
  450 PROCbip
  460 CLS
  470 PRINT'
  480 PRINT"  -  2  3  -  -  6  7  -  - 1O "
  490 PRINTSPC(32)S$
  500 PRINT" 11  -  - 14 15  -  - 18 19  -"
  510 PRINTSPC(32)"�(2of7)"
  520 PRINT "  - 22 23  -  - 26 27  -  - 3O"
  530 PRINT '" 31  -  - 34 35  -  - 38 39  -"
  540 PRINT'"  - 42 43  -  - 46 47  -  - 5O"
  550 PRINT'" 51  -  - 54 55  -  - 58 59  -"
  560 PRINT'"  - 62 63  -  - 66 67  -  - 7O"
  570 PRINT'" 71  -  - 74 75  -  - 78 79  -"
  580 PRINT'"  - 82 83  -  - 86 87  -  - 9O"
  590 PRINT'A$
  600 PRINT'B$
  610 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+2ELSET=T
  620 PROCbip
  630 CLS
  640 PRINT'
  650 PRINT"  -  -  -  4  5  6  7  -  -  -"
  660 PRINTSPC(32)S$
  670 PRINT"  - 12 13 14 15  -  -  -  - 2O"
  680 PRINTSPC(32)"�(3of7)"
  690 PRINT " 21 22 23  -  -  -  - 28 29 3O"
  700 PRINT '" 31  -  -  -  - 36 37 38 39  -"
  710 PRINT'"  -  -  - 44 45 46 47  -  -  -"
  720 PRINT'"  - 52 53 54 55  -  -  -  - 6O"
  730 PRINT'" 61 62 63  -  -  -  - 68 69 7O"
  740 PRINT'" 71  -  -  -  - 76 77 78 79  -"
  750 PRINT'"  -  -  - 84 85 86 87  -  -  -"
  760 PRINT'A$
  770 PRINT'B$
  780 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+4ELSET=T
  790 PROCbip
  800 CLS
  810 PRINT'
  820 PRINT"  -  -  -  -  -  -  -  8  9 1O"
  830 PRINTSPC(32)S$
  840  PRINT" 11 12 13 14 15  -  -  -  -  -"
  850 PRINTSPC(32)"�(4of7)"
  860 PRINT "  -  -  - 24 25 26 27 28 29 3O"
  870 PRINT '" 31  -  -  -  -  -  -  -  - 4O"
  880 PRINT'" 41 42 43 44 45 46 47  -  -  -"
  890 PRINT'"  -  -  -  -  - 56 57 58 59 6O"
  900 PRINT'" 61 62 63  -  -  -  -  -  -  -"
  910 PRINT'"  - 72 73 74 75 76 77 78 79  -"
  920 PRINT'"  -  -  -  -  -  -  - 88 89 9O"
  930 PRINT'A$
  940 PRINT'B$
  950 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+8ELSET=T
  960 CLS
  970 PROCbip
  980 PRINT'
  990 PRINT"  -  -  -  -  -  -  -  -  -  -"
 1000 PRINTSPC(32)S$
 1010  PRINT"  -  -  -  -  - 16 17 18 19 2O"
 1020 PRINTSPC(32)"�(5of7)"
 1030 PRINT " 21 22 23 24 25 26 27 28 29 3O"
 1040 PRINT '" 31  -  -  -  -  -  -  -  -  -"
 1050 PRINT'"  -  -  -  -  -  -  - 48 49 5O"
 1060 PRINT'" 51 52 53 54 55 56 57 58 59 6O"
 1070 PRINT'" 61 62 63  -  -  -  -  -  -  -"
 1080 PRINT'"  -  -  -  -  -  -  -  -  - 8O"
 1090 PRINT'" 81 82 83 84 85 86 87 88 89 90"
 1100 PRINT'A$
 1110 PRINT'B$
 1120 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+16ELSET=T
 1130 CLS
 1140 PROCbip
 1150 PRINT'
 1160 PRINT"  -  -  -  -  -  -  -  -  -  -"
 1170 PRINTSPC(32)S$
 1180 PRINT"  -  -  -  -  -  -  -  -  -  -"
 1190 PRINTSPC(32)"�(6of7)"
 1200 PRINT "  -  -  -  -  -  -  -  -  -  -"
 1210 PRINT '"  - 32 33 34 35 36 37 38 39 4O"
 1220 PRINT'" 41 42 43 44 45 46 47 48 49 5O"
 1230 PRINT'" 51 52 53 54 55 56 57 58 59 6O"
 1240 PRINT'" 61 62 63  -  -  -  -  -  -  -"
 1250 PRINT'"  -  -  -  -  -  -  -  -  -  -"
 1260 PRINT'"  -  -  -  -  -  -  -  -  -  -"
 1270 PRINT'A$
 1280 PRINT'B$
 1290 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+32ELSET=T
 1300 CLS
 1310 PROCbip
 1320 PRINT'
 1330 PRINT"  -  -  -  -  -  -  -  -  -  -"
 1340 PRINTSPC(32)S$
 1350  PRINT"  -  -  -  -  -  -  -  -  -  -"
 1360 PRINTSPC(32)"�(7of7)"
 1370 PRINT"  -  -  -  -  -  -  -  -  -  -"
 1380 PRINT'"  -  -  -  -  -  -  -  -  -  -"
 1390 PRINT'"  -  -  -  -  -  -  -  -  -  -"
 1400 PRINT'"  -  -  -  -  -  -  -  -  -  -"
 1410 PRINT'"  -  -  - 64 65 66 67 68 69 7O"
 1420 PRINT'" 71 72 73 74 75 76 77 78 79 8O"
 1430 PRINT'" 81 82 83 84 85 86 87 88 89 9O"
 1440 PRINT'A$
 1450 PRINT'B$
 1460 REPEATANS$=GET$:UNTILANS$="Y"ORANS$="N":IFANS$="Y"THENT=T+64ELSET=T
 1470 PROCbip
 1480 CLS
 1490 ENVELOPE1,10,-8,8,0,10,0,126,0,0,-126,-126,126,126:SOUND1,1,150,20
 1500 PRINTTAB(9,5)"�YOU WAS THINKING OF"
 1510 IF T<1 OR  T>90 THEN PROCconf ELSE PROCresult
 1520 PRINTTAB(11,17)"�ANOTHER GO? Y/N"
 1530 PRINT'
 1540 IF GET$="Y"THEN RUN ELSE PRINT"           �� BYE FROM ROY"
 1550 FORZ=1TO1700:NEXTZ
 1560 VDU23,1,1;0;0;0;
 1570 *FX12,0
 1580 CLS
 1590 END
 1600 DEF PROCbip
 1610 IF ANS$="Y" SOUND1,-10,175,5
 1620 IF ANS$="N" SOUND1,-10,75,5
 1630 ENDPROC
 1640 DEF PROCconf
 1650 PRINTTAB(5,11);CHR$(141);"I'm confused please try again"
 1660 PRINTTAB(5,12);CHR$(141);"I'm confused please try again"
 1670 ENDPROC
 1680 DEF PROCresult
 1690 PRINTTAB(18,11);CHR$(141);T
 1700 PRINTTAB(18,12);CHR$(141);T
 1710 ENDPROC