git.oblomov.eu Git - ohcount/blob - test/src_dir/classic_basic.bas

   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
  11 100 REM
  12 110 INPUT "Do you want more stars? "; A$
  13 120 IF LEN(A$) = 0 THEN GOTO 110
  14 130 A$ = LEFT$(A$, 1)
  15 140 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
  16 150 PRINT "Goodbye ";
  17 160 FOR I = 1 TO 200
  18 170 PRINT U$; " ";
  19 180 NEXT I
  20 190 PRINT