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

   1 classic_basic   code    10 INPUT "What is your name: "; U$
   2 classic_basic   code    20 PRINT "Hello "; U$
   3 classic_basic   comment 30 REM Test
   4 classic_basic   code    40 INPUT "How many stars do you want: "; N
   5 classic_basic   code    50 S$ = ""
   6 classic_basic   code    60 FOR I = 1 TO N
   7 classic_basic   code    70 S$ = S$ + "*"
   8 classic_basic   code    80 NEXT I
   9 classic_basic   code    90 PRINT S$
  10 classic_basic   comment 100 REM
  11 classic_basic   code    110 INPUT "Do you want more stars? "; A$
  12 classic_basic   code    120 IF LEN(A$) = 0 THEN GOTO 110
  13 classic_basic   code    130 A$ = LEFT$(A$, 1)
  14 classic_basic   code    140 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
  15 classic_basic   code    150 PRINT "Goodbye ";
  16 classic_basic   code    160 FOR I = 1 TO 200
  17 classic_basic   code    170 PRINT U$; " ";
  18 classic_basic   code    180 NEXT I
  19 classic_basic   code    190 PRINT