03-08-2004, 01:51 AM
heres mine
andy: with yours you can press etner before the screen changes and win
edit: heres another =P
Code:
' Stop the number with the space bar and try to get within 100 away from 2500!
1 CLS
2 SCREEN 13
3 FOR i = 1 TO 5000
4 LOCATE 1, 1
5 PRINT i
6 IF INKEY$ = CHR$(32) THEN EXIT FOR
7 NEXT
8 IF 2500 - i > -100 AND 2500 - i < 100 THEN PRINT "YAY, you got within 100!" ELSE PRINT "Haha you lose"
andy: with yours you can press etner before the screen changes and win
edit: heres another =P
Code:
'press space when the numbers are next to eachother
1 CLS
2 FOR s = 0 TO 74
3 FOR i = 1 TO 5
4 IF i = 1 THEN LOCATE 10, 1 + s ELSE IF i = 2 THEN PRINT 1 ELSE IF i = 3 THEN LOCATE 11, 75 - s ELSE IF i = 4 THEN PRINT 2 ELSE IF i = 5 THEN t = TIMER
5 NEXT i
6 DO
7 LOOP UNTIL TIMER - t >= .0001
8 IF INKEY$ = CHR$(32) THEN EXIT FOR
9 NEXT s
10 IF 75 - s = 1 + s THEN PRINT "YOU WIN" ELSE PRINT "YOU LOSE"