File: TEST.BAS

package info (click to toggle)
pcbasic 2.0.7-8
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 35,416 kB
  • sloc: python: 28,411; sh: 103; makefile: 10
file content (16 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
30 KEY OFF: CLEAR: CLS
40 X = 17: DIM X$(X)
50 FOR Z = 1 TO X
60 READ X$(Z)
70 PRINT Z, X$(Z)
80 NEXT Z
130 KEY OFF: CLEAR: CLS
140 X = 17: DIM X$(X)
150 FOR Z = 1 TO X
160 READ X$(Z)
170 PRINT Z, X$(Z)
180 NEXT Z
220 OPEN "SUCCESS.DAT" FOR OUTPUT AS 1:  PRINT#1, "SUCCESS": CLOSE: END
1120 ' DATA 
1130 DATA "DOG","CAT","SPIDER","FLY","LION","BIRD","TIGER","BEAR","SNAKE"
1140 DATA "FISH","SHARK","ANT","ROACH","WHALE","CROCODILE","WORM","BUTTERFLY"