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 (30 lines) | stat: -rw-r--r-- 513 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
10 REM PC-BASIC test 
20 REM disk operations syntax
25 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
30 ON ERROR GOTO 10000
100 CHDIR
110 MKDIR
120 RMDIR
130 KILL
200 CHDIR 0
210 MKDIR 0
220 RMDIR 0
230 KILL 0
300 CHDIR ""
310 MKDIR ""
320 RMDIR ""
330 KILL ""
400 CHDIR "a"
410 MKDIR "a"
420 RMDIR "a"
425 RMDIR "b"
430 KILL "a"
440 CHDIR MKDIR
450 KILL RMDIR
1300 CHDIR "" LPRINT
1310 MKDIR "" LPRINT
1320 RMDIR "" LPRINT
1330 KILL "" LPRINT
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT