git.oblomov.eu Git - ohcount/blob - test/detect_files/structured_basic.b

   1 INPUT "What is your name: "; U$
   2 PRINT "Hello "; U$
   3 REM Test
   4 INPUT "How many stars do you want: "; N
   5 S$ = ""
   6 FOR I = 1 TO N
   7 S$ = S$ + "*"
   8 NEXT I
   9 PRINT S$
  10
  11 REM
  12 INPUT "Do you want more stars? "; A$
  13 IF LEN(A$) = 0 THEN GOTO 110
  14 A$ = LEFT$(A$, 1)
  15 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
  16 PRINT "Goodbye ";
  17 FOR I = 1 TO 200
  18 PRINT U$; " ";
  19 NEXT I
  20 PRINT