Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Sept 11, 2023 13:07:31 GMT
Hi all... I'm new here... hobby programmer... I'm starting to be curious about the basics from the early days - I found PC-BASIC emulator and tested it out and liked it a lot also tested Vintage Basic and installed their interpreter and liked it too... would really love to join a GW Basic / Altair Basic or old basic community if there is such a thing... So if anybody knows of any forum or chats dedicated to real old retro basic, please let me know... thank you in advance... edit: a few interesting links to share: PC-BASIC siteVintage Basic Sitea Site Dedicated to GW BASICEDIT 2: here is a word guessing game in GW-BASIC 10 PRINT "WORD GUESSING GAME" 20 PRINT "-------------------" 30 PRINT 40 DIM WORD$(5) 50 DATA "APPLE", "BANANA", "ORANGE", "STRAWBERRY", "CHERRY" 60 RANDOMIZE TIMER 70 FOR I = 1 TO 5: READ WORD$(I): NEXT I 71 R = INT((RND*5)+1) 80 GUESS$ = "" 90 GUESSES = 10 100 FOR I = 1 TO LEN(WORD$(R)) 110 GUESS$ = GUESS$ + "_" 120 NEXT I 130 PRINT "Guess the word: "; GUESS$ 140 PRINT "You have "; GUESSES; " guesses remaining." 150 INPUT "Enter a letter: ", LETTER$ 160 IF LEN(LETTER$) <> 1 THEN GOTO 150 170 IF INSTR(WORD$(R), LETTER$) = 0 THEN GOSUB 300 180 FOR I = 1 TO LEN(WORD$(R)) 190 IF MID$(WORD$(R), I, 1) = LETTER$ THEN MID$(GUESS$, I, 1) = LETTER$ 200 NEXT I 210 IF GUESS$ = WORD$(R) THEN GOSUB 400 220 GUESSES = GUESSES - 1 230 IF GUESSES = 0 THEN GOSUB 500 240 GOTO 130 300 PRINT "Wrong guess! Try again." 310 RETURN 400 PRINT "Congratulations! You guessed the word: "; WORD$(R) 410 END 500 PRINT "Out of guesses. The word was: "; WORD$(R) 510 END
|
|
dualbrain
Junior Member
The only bug free code is code that is no longer used.
Posts: 51
|
Post by dualbrain on Sept 11, 2023 14:06:15 GMT
Be sure to check out gotbasic.com for a constantly growing list of BASIC's.
|
|
|
Post by bplus on Sept 11, 2023 15:28:03 GMT
Yes Charlie (BAM developer) recently emailed me encouraging gotbasic.com Update: I signed up and will be checking in now once and awhile. BTW I was going to say I have interpreter that does old GW Basic style coding except you don't need line numbers and it works in any old editor BUT the expression syntax is not very Basic-like, this is add A+B: sum = add(A,B)
|
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Sept 26, 2023 18:17:43 GMT
|
|
|
Post by bplus on Sept 26, 2023 23:08:39 GMT
And if it works in GW Basic it is very likely to work in QB64 without needing DOS.
A line number editor is very challenging, even prepping such code in the QB64 IDE takes quite some planning.
|
|