File: TEST.BAS

package info (click to toggle)
pcbasic 2.0.5-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 33,352 kB
  • sloc: python: 27,753; sh: 64; makefile: 13
file content (7 lines) | stat: -rw-r--r-- 155 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
10 OPEN "NUMBERS.TXT" FOR INPUT AS 1
15 OPEN "INPUTNR.DAT" FOR OUTPUT AS 2
20 WHILE NOT EOF(1)
30 INPUT#1, A
40 PRINT#2, "[";A;"]"
50 WEND
60 CLOSE