projects
/
ohcount
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial Revision
[ohcount]
/
test
/
expected_dir
/
classic_basic1.classic_basic
/
basic
/
code
1
10 INPUT "What is your name: "; U$
2
20 PRINT "Hello "; U$
3
40 INPUT "How many stars do you want: "; N
4
50 S$ = ""
5
60 FOR I = 1 TO N
6
70 S$ = S$ + "*"
7
80 NEXT I
8
90 PRINT S$
9
110 INPUT "Do you want more stars? "; A$
10
120 IF LEN(A$) = 0 THEN GOTO 110
11
130 A$ = LEFT$(A$, 1)
12
140 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
13
150 PRINT "Goodbye ";
14
160 FOR I = 1 TO 200
15
170 PRINT U$; " ";
16
180 NEXT I
17
190 PRINT