mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-11-17 11:05:58 +00:00
10 lines
314 B
QBasic
10 lines
314 B
QBasic
OPTION DIALECT DARTMOUTH
|
|
10 PRINT "HELLO! LET'S PROGRAM IN BASIC."
|
|
20 INPUT "WOULD YOU MIND TYPING IN YOUR NAME";A$
|
|
30 PRINT "THANKS, ";A$;"! THIS WILL BE FUN!"
|
|
40 INPUT "NOW TELL ME YOUR FAVORITE NUMBER";N
|
|
50 LET B=N^2
|
|
60 PRINT "THAT'S A GOOD ONE! I LIKE";B;"MYSELF."
|
|
70 PRINT "NICE MEETING YOU, ";A$;"."
|
|
999 END
|