Here you go, as I promised, teh 1337 game ever
How to run it?
Hop on over to
http://www.vavasour.ca/jeff/level1/simulator.html
Click on the "Open Program Window" button. Copy and paste the program in the window. Hit "apply"
The prompt will say "Ready >" Type Run and hit enter. Have fun
[edit] ahh found a bug... do not copy/paste from the source window. Or if your really set on it.. to patch the program, after hitting "apply", at the ready prompt, type
515 PAUSE 5000
then type "Run"
[/edit]
1 REM RESET STARTING VARIABLES
2 A$ = ""
3 D = 1000
4 B = 0
9 REM INTRO SCREEN
10 CLS
13 PRINT "-----------------------------"
14 PRINT " "
15 PRINT " H O R S E R A C I N G "
16 PRINT " "
17 PRINT "-----------------------------"
20 PRINT "COPYRIGHT (C) 2004 J2DSTUDIOS"
30 PRINT " ALL RIGHTS RESERVED "
40 PRINT "-----------------------------"
50 INPUT "ENTER YOUR NAME"; A$
54 REM START GAME
55 PRINT "WELCOME "; A$; "!"
60 REM RESET HORSES
61 FOR H = 0 TO 4
62 A(H) = 0
63 NEXT H
69 J = 0
70 PRINT "YOU HAVE "; D; " DOLLARS."
80 INPUT "HOW MUCH WOULD YOU LIKE TO WAGER"; B
81 IF B > D THEN J = 1
82 IF B <= 0 THEN J = 1
83 IF J = 1 THEN GOTO 600
86 J = 0
87 INPUT "WHICH HORSE WOULD YOU LIKE TO BET ON (1-5)"; C
88 IF C < 1 THEN J = 1
89 IF C > 5 THEN J = 1
90 IF J = 1 THEN GOTO 700
99 F = 0
100 CLS
105 CURSOR 0
109 PRINT AT 217;"HORSE RACING"
110 PRINT AT 465;"J2D Studios"
111 FOR X = 0 TO 63
112 PRINT AT 256+X;"-"
113 PRINT AT 640+X;"-"
114 NEXT X
120 REM CLS
130 FOR H = 1 TO 5
140 PRINT AT 64*(H+4) + A(H-1);H
150 NEXT H
151 FOR H = 0 TO 4
152 IF A(H) = 62 THEN GOTO 190
155 NEXT H
160 T=RND(5)-1
170 A(T) = A(T) + 1
180 GOTO 120
190 PRINT "THE RACE IS OVER!"
200 PRINT "THE WINNER IS HORSE NUMBER "; H+1; "!"
205 W = 0
210 IF C = H+1 THEN GOTO 400
230 PRINT "YOU LOSE."
250 D = D - B
255 PRINT "YOU WAGERED "; B; " DOLLARS!"
260 IF D <= 0 GOTO 500
270 PRINT "YOU NOW HAVE "; D; " DOLLARS!"
310 GOTO 60
400 PRINT "YOU WIN!"
410 D = D + B
420 GOTO 255
500 PRINT "YOU LOST ALL OF YOUR MONEY!"
510 PRINT " GAME OVER"
515 PAUSE 5000
520 CLS
530 GOTO 1
600 PRINT "THAT NUMBER IS INVALID!"
610 PRINT "-----------------------"
620 GOTO 69
700 PRINT "THAT'S NOT A VALID HORSE!"
710 PRINT "-------------------------"
720 GOTO 86
