Recent Posts

How to drop over 50% of lines in 4 minutes 
http://www.basicprogramming.org/ekv/codes/vintage-basic/ACEYDUCEY_ME.BAS

Oh crab  There are links to text-files too...darn me 

Code:

10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
21 PRINT "VINTAGE-BASIC PORT BY E.K.VIRTANEN http://www.basicprogramming.org/ekv/"
22 PRINT "2010, PUBLIC DOMAIN"
23 PRINT
30 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER "
40 PRINT "THE DEALER (CPU) DEALS TWO CARDS FACE UP"
50 PRINT "YOU HAVE AN OPTION TO BET OR NOT TO BET DEPENDING"
60 PRINT "ON WHETHER OR NOR YOU FEEL THE CARD WILL HAVE"
70 PRINT "A VALUE BETWEEN THE FIRST TWO."
80 PRINT "IF YOU DO NOT WANT TO BET, INPUT A '0'"
100 N = 100
110 Q = 100
120 PRINT "YOU NOW HAVE ";Q;" DOLLARS"
130 PRINT
140 GOTO 260
210 Q = Q + M
220 GOTO 120
240 Q = Q - M
250 GOTO 120
260 PRINT "HERE ARE YOUR NEXT TWO CARDS "
270 A = INT(14*RND(1))+2
280 IF A < 2 THEN 270
290 IF A > 14 THEN 270
300 B = INT(14*RND(1)) + 2
310 IF B < 2 THEN 300
320 IF B > 14 THEN 300
330 IF A >= B THEN 270
350 IF A < 11 THEN 400
360 IF A = 11 THEN 420
370 IF A = 12 THEN 440
380 IF A = 13 THEN 460
390 IF A = 14 THEN 480
400 PRINT A
410 GOTO 500
420 PRINT "JACK"
430 GOTO 500
440 PRINT "QUEEN"
450 GOTO 500
460 PRINT "KING"
470 GOTO 500
480 PRINT "ACE"
500 IF B < 11 THEN 550
510 IF B = 11 THEN 570
520 IF B = 12 THEN 590
530 IF B = 13 THEN 610
540 IF B = 14 THEN 630
550 PRINT B
560 GOTO 650
570 PRINT "JACK"
580 GOTO 650
590 PRINT "QUEEN"
600 GOTO 650
610 PRINT "KING"
620 GOTO 650
630 PRINT "ACE"
640 PRINT
650 PRINT
660 INPUT "WHAT IS YOUR BET";M
670 IF M<>0 THEN 680
675 PRINT "CHICKEN!!"
676 PRINT
677 GOTO 260
680 IF M <=Q THEN 730
690 PRINT "SORRY, MY FRIEND BUT YOU BET TOO MUCH"
700 PRINT "YOU HAVE ONLY ";Q;" DOLLARS TO BET"
710 GOTO 650
730 C = INT(14*RND(1)) + 2
740 IF C < 2 THEN 740
750 IF C > 14 THEN 730
760 IF C < 11 THEN 810
770 IF C = 11 THEN 830
780 IF C = 12 THEN 850
790 IF C = 13 THEN 870
800 IF C = 14 THEN 890
810 PRINT C
820 GOTO 910
830 PRINT "JACK"
840 GOTO 910
850 PRINT "QUEEN"
860 GOTO 910
870 PRINT "KING"
880 GOTO 910
890 PRINT "ACE"
900 PRINT
910 IF C > A THEN 930
920 GOTO 970
930 IF C >= B THEN 970
950 PRINT "YOU WIN!!!"
960 GOTO 210
970 PRINT "SORRY, YOU LOSE"
980 IF M < Q THEN 240
990 PRINT
1000 PRINT
1010 PRINT "SORRY, FRIEND BUT YOU BLEW YOUR WAD"
1020 INPUT "TRY AGAIN (YES OR NO)";A$
1030 IF A$ = "YES" THEN 110
1040 PRINT "OK, HOPE YOU HAD FUN"
1050 END

Thanks. It is just about finished. I am working on the search and replace, a keyword upcase function and the help.

Looks neat! Let me know if you complete it and I will put it up on the site.

Here is a little update screen:

It is pretty much dead. I'll see if I can find it. Not sure I still have it after my computer crash.

Yeah, im easy one 

To off-topic, you had some text-ide in plans sometimes ago. Have you abandoned it, or is it in the "later" folder? If you have abandoned it, can i have the source due i have need to create simple console-ide for my own project?

Heh. It is always something that will get you...

The plan is to make a nice little IDE for Vintage. You'll be able to code a program and then run it in the interpreter. It will have syntax highlighting that you can set up, maybe those pop-up code hints (if I can figure out how to do it) and some little utilities like a snippets repository. I am also going to create a help file for the editor and Vintage that will have context help so you can pop-up help on a keyword as you work on a program.

This is just one of those programs I have wanted to do. There are a ton of good editors out there so this is probably a rather useless program, but it is good experience for my own little VM Atom that I want to rewrite and make into an integrated package; i.e., editor and run-time all in a single package. I am doing this in Lazarus and was inspired by Cyb's little editor that I thought was quite cool and looked fun to do.

Uberneat 

Now, share some more predict details or else...err...something...