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