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)

CAMP

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
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