File: classic_basic.b

package info (click to toggle)
ohcount 3.0.0-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 4,712 kB
  • ctags: 3,205
  • sloc: ansic: 6,524; ruby: 2,560; perl: 2,041; erlang: 350; lisp: 272; sh: 244; pascal: 196; vhdl: 150; haskell: 149; asm: 128; cs: 124; awk: 98; java: 92; php: 73; tcl: 58; xml: 57; fortran: 54; makefile: 32; python: 31; ada: 30; objc: 30; jsp: 28; sql: 18; cobol: 13; ml: 9; cpp: 3
file content (19 lines) | stat: -rw-r--r-- 779 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
classic_basic	code	10 INPUT "What is your name: "; U$
classic_basic	code	20 PRINT "Hello "; U$
classic_basic	comment	30 REM Test
classic_basic	code	40 INPUT "How many stars do you want: "; N
classic_basic	code	50 S$ = ""
classic_basic	code	60 FOR I = 1 TO N
classic_basic	code	70 S$ = S$ + "*"
classic_basic	code	80 NEXT I
classic_basic	code	90 PRINT S$
classic_basic	comment	100 REM
classic_basic	code	110 INPUT "Do you want more stars? "; A$
classic_basic	code	120 IF LEN(A$) = 0 THEN GOTO 110
classic_basic	code	130 A$ = LEFT$(A$, 1)
classic_basic	code	140 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 40
classic_basic	code	150 PRINT "Goodbye ";
classic_basic	code	160 FOR I = 1 TO 200
classic_basic	code	170 PRINT U$; " ";
classic_basic	code	180 NEXT I
classic_basic	code	190 PRINT