40 lines
940 B
QBasic
40 lines
940 B
QBasic
1 ' $Source$
|
|
2 ' $State$
|
|
3 ' $Revision$
|
|
|
|
10 print "Hi there! I'm written in Basic. Before we start, what is your name?"
|
|
20 input "> ", PlayerName$
|
|
30 print
|
|
40 print "Hello, "; PlayerName$; "!"
|
|
|
|
100 gosub 1000
|
|
110 print
|
|
120 print "Would you like another go?"
|
|
130 input "> ", s$
|
|
140 s$ = left$(s$, 1)
|
|
150 if s$ = "n" or s$ = "N" then goto 200
|
|
160 print
|
|
170 print "Excellent! ";
|
|
180 goto 100
|
|
200 print
|
|
210 print "Thanks for playing --- goodbye!"
|
|
220 end
|
|
|
|
1000 print "See if you can guess my number."
|
|
1010 Number% = rnd(1) mod 100
|
|
1020 Attempts% = 1
|
|
|
|
1030 print
|
|
1040 input "> ", guess%
|
|
1050 if guess% < Number% then print: print "Try a bit higher."
|
|
1060 if guess% > Number% then print: print "Try a bit lower."
|
|
1070 if guess% = Number% then goto 1100
|
|
1080 Attempts% = Attempts% + 1
|
|
1090 goto 1030
|
|
1100 print
|
|
1110 print "You got it right in only"; Attempts%;
|
|
1120 if Attempts% = 1 then print "go"; else print "goes";
|
|
1130 print "!"
|
|
1140 return
|
|
|