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

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