http://upload.wikimedia.org/wikipedi..._on_Sunday.jpg
Printable View
http://www.fluffypotato.com/transfor.../confucius.gif Confucius say: Passionate kiss like spider web, soon lead to undoing of fly.
http://www.fluffypotato.com/transformers/misc/Katz.gif Cats say: You have no spiderweb. Make your passionate kiss. Fly is on the way to undoing.
http://www.fluffypotato.com/transformers/misc/Yoda.gif Say Yoda: Kiss like spiderweb is, hmmm? Undo the fly you must, for unbalance in the passion there is.
http://www.fluffypotato.com/transfor.../confucius.gifConfucius says: Man go to bed with itchy butt, wake up with stinky finger.
http://www.fluffypotato.com/transformers/misc/Katz.gifCats says: Your butt is itchy! The finger will tap its power and I will break its code, ha.
http://www.fluffypotato.com/transformers/misc/Yoda.gifYoda says: Hmm, clouded tomorrow morning is. Wake up with stinky finger you will. Beware the darker side of finger. Dangerous it is.
10 BORDER 1: PAPER 6: CLS : PA
PER 6
15 PRINT AT 3,13;"NIM"
20 PRINT AT 5,5;"This is a gam
e for two"
22 PRINT "players,or one playe
r and the"
24 PRINT "computer"
30 PRINT AT 8,5;"The players t
aketurns to"
32 PRINT "subtract any number
<=a"
34 PRINT "predetermined value
from 100.The"
36 PRINT "winner is the one to
reach 0."
40 PRINT AT 14,0;"What is your
name?"
50 INPUT a$
60 CLS
65 PRINT "Who are you going to
play?"
67 PRINT "(computer=c)"
70 INPUT b$
72 INPUT "Who is going to play
first?";c$
75 CLS
90 LET g=0
95 IF c$=b$ THEN LET g=g+1
100 LET j=100
140 INPUT "Max.no.to be subtrac
ted?";b
145 PRINT AT 3,3;"Max.=";b
150 PRINT AT 11,14;j
170 IF g=0 THEN PRINT AT 19,2;a
$;"s turn": LET g=g+1: GO TO 200
172 IF g=1 AND b$<>"c" THEN PRI
NT AT 19,2;b$;"s turn": LET g=g-
1: GO TO 200
175 IF g=1 AND b$="c" THEN LET
c=j-INT (j/(b+1))*(b+1)
180 IF c=0 THEN LET c=INT (RND*
b+1)
190 LET a=c: LET g=g-1: PRINT A
T 19,2:"Computers turn=";c: PAUS
E 150: GO TO 210
200 INPUT a
210 PRINT AT 19,2;"(30 spaces)"
240 LET a=INT (a)
250 IF a=0 OR a>j OR a>b THEN P
RINT AT 19,2;"Try again(20 space
s)" : GO TO 200
300 LET j=j-a
390 PRINT AT 11,14;"(3 spaces)"
400 PRINT AT 11,15;j
450 IF j=0 THEN GO TO 1000
500 GO TO 170
1000 CLS
1010 IF g=1 THEN PRINT AT 11,3;a
$;"is the winner"
1020 IF g=0 AND b$="c" THEN PRIN
T AT 11,3;"The computer is the w
inner"
1030 IF g=0 AND b$<>"c" THEN PRI
NT AT 11,3;b$;"is the winner"
What?
WTF.
Basic FTL.
aw, sorry, forgot the game name was:
15 PRINT AT 3,13;"CATS"