Codebase list ohcount / 85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main test / src_dir / structured_basic.bas
85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main

Tree @85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main (Download .tar.gz)

structured_basic.bas @85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/mainraw · history · blame

INPUT "What is your name: "; U$
PRINT "Hello "; U$
REM Test
INPUT "How many stars do you want: "; N
S$ = ""
FOR I = 1 TO N
S$ = S$ + "*"
NEXT I
PRINT S$

REM
INPUT "Do you want more stars? "; A$
IF LEN(A$) = 0 THEN GOTO 110
A$ = LEFT$(A$, 1)
IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
PRINT "Goodbye ";
FOR I = 1 TO 200
PRINT U$; " ";
NEXT I
PRINT