Sitenotice:
2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
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)

Difference between revisions of "CAMP"

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
(Created page with " 100 DATA 176,4,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4 110 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4 120 DATA 159,8,147,8,1...")
 
(Category)
 
Line 19: Line 19:
 
  280 IF A=-3 THEN CLS: GOTO 220
 
  280 IF A=-3 THEN CLS: GOTO 220
 
  290 RESTORE: GOTO 200
 
  290 RESTORE: GOTO 200
 +
 +
[[Category:BASIC]]

Latest revision as of 15:49, 10 September 2015

100 DATA 176,4,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4
110 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4
120 DATA 159,8,147,8,159,4,147,4,133,8,133,4
130 DATA 176,8,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4
140 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4
150 DATA 159,8,147,8,159,4,147,4,133,8,133,4
160 DATA 133,6,133,2,159,4,176,4,197,12,185,8,185,2,197,4
170 DATA 185,4,176,8,176,4,176,4,159,4,176,4,185,4
180 DATA 176,4,159,8,147,8,159,4,147,4,133,8,133,4,-4,-4
190 P=0
200 CLS
210 P=P+1
220 READ A,B: IF A=<0 THEN 260
230 IF P/2=INT(P/2) THEN B=B/2
240 SOUND A,B
250 GOTO 220
260 IF A=-1 THEN PRINT@266,"DOO-DAHH":GOTO 220
270 IF A=-2 THEN PRINT@301,"DOO-DAHH":GOTO 220
280 IF A=-3 THEN CLS: GOTO 220
290 RESTORE: GOTO 200