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

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