MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

BACH: Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
mNo edit summary
(Category)
 
Line 22: Line 22:
  300 GOTO 270
  300 GOTO 270
  310 RESTORE: GOTO 260
  310 RESTORE: GOTO 260
[[Category:BASIC]]

Latest revision as of 20:40, 10 September 2015

100 DATA 89,1,125,1,147,1,176,1,147,1,125,1
110 DATA 89,1,125,1,147,1,89,1,147,1,125,1
120 DATA 89,1,125,1,147,1,176,1,147,1,125,1
130 DATA 89,1,125,1,147,1,89,1,147,1,125,1
140 DATA 89,2,108,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,176,2
150 DATA 147,2,125,2,89,2,108,2,125,2,133,2,147,2,159,2,147,2
160 DATA 133,2,125,2,108,2,125,2,133,2,32,2,78,2,106,2,133,2,125,2
170 DATA 108,2,125,2,69,2
180 DATA 106,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,76,2
190 DATA 147,2,125,2,89,2,106,2,125,2,58,2,133,2,125,2,106,2
200 DATA 89,2,58,2,32,2,69,2,76,2,89,2
210 DATA 89,1,125,1,147,1,176,1,147,1,125,1
220 DATA 89,1,125,1,167,1,69,1,147,1,125,1
230 DATA 89,1,125,1,147,1,176,1,147,1,125,1
240 DATA 69,1,125,1,147,1,89,1,147,1,125,1
250 DATA -1,-1
260 CLS
270 READ A,B
275 PRINT A,B
280 IF A<0 AND B<0 THEN 310
290 SOUND A,B
300 GOTO 270
310 RESTORE: GOTO 260