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 (26 lines) | stat: -rw-r--r-- 518 bytes parent folder | download | duplicates (2) 
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
 
20 ' SOUND, PLAY and SOUND ON (PCjr)
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 SOUND 110,1,1,1
55 SOUND 110,1,1
57 SOUND 110,1,,1
60 SOUND 110,1
70 PLAY "c", "e", "g"
80 PLAY "c"
100 SOUND ON
150 SOUND 110,1,1,1
155 SOUND 110,1,1
157 SOUND 110,1,,1
160 SOUND 110,1
170 PLAY "c", "e", "g"
180 PLAY "c"
200 SOUND OFF
250 SOUND 110,1,1,1
255 SOUND 110,1,1
257 SOUND 110,1,,1
260 SOUND 110,1
270 PLAY "c", "e", "g"
280 PLAY "c"
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT