sdb:numguess
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| sdb:numguess [2026/02/19 16:55] – appledog | sdb:numguess [Unknown date] (current) – removed - external edit (Unknown date) 127.0.0.1 | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | = NUMGUESS | ||
| - | * Also listed on: [[:SD-8516 Stellar Basic V1.0]] | ||
| - | == About | ||
| - | This is NUMGUESS, the first program written for Stellar BASIC. It demonstrates TinyBASIC as a MVP; consisting of PRINT, LET, GOTO, INPUT, RAND and IF-THEN. | ||
| - | |||
| - | == Program Listing | ||
| - | <codify BASIC> | ||
| - | 10 PRINT "" | ||
| - | 20 PRINT " | ||
| - | 30 PRINT "BY APPLEDOG (C) 2026" | ||
| - | 40 PRINT " | ||
| - | 50 PRINT " | ||
| - | 60 PRINT " | ||
| - | 70 PRINT " | ||
| - | 100 LET A = 1 | ||
| - | 110 LET B = 100 | ||
| - | 120 LET C = B - A | ||
| - | 130 LET D = RAND(C) | ||
| - | 140 LET F = 0 | ||
| - | 200 LET F = F + 1 | ||
| - | 300 PRINT "" | ||
| - | 310 PRINT "ROUND "F | ||
| - | 320 PRINT "LOW: "A | ||
| - | 330 PRINT "HIGH: "B | ||
| - | 340 INPUT "ENTER A NUMBER: ", E | ||
| - | 350 IF E > B THEN GOTO 1000 | ||
| - | 360 IF E < A THEN GOTO 2000 | ||
| - | 370 IF E < D THEN GOTO 3000 | ||
| - | 380 IF E > D THEN GOTO 4000 | ||
| - | 400 GOTO 5000 | ||
| - | 1000 PRINT "THAT NUMBER IS TOO LARGE." | ||
| - | 1010 PRINT "" | ||
| - | 1020 GOTO 300 | ||
| - | 2000 PRINT "THAT NUMBER IS TOO SMALL." | ||
| - | 2010 PRINT "" | ||
| - | 2020 GOTO 300 | ||
| - | 3000 PRINT "YOUR GUESS IS TOO SMALL!" | ||
| - | 3010 LET A = E | ||
| - | 3020 PRINT "" | ||
| - | 3030 GOTO 200 | ||
| - | 4000 PRINT "YOUR GUESS IS TOO LARGE!" | ||
| - | 4010 LET B = E | ||
| - | 4020 PRINT "" | ||
| - | 4030 GOTO 200 | ||
| - | 5000 PRINT "YOU WIN!" | ||
| - | 5010 LET F = 101 - F | ||
| - | 5020 PRINT " | ||
| - | </ | ||
sdb/numguess.1771520115.txt.gz · Last modified: by appledog