| MediaWiki:Sitenotice |
|---|
| 2026-03-12: Cocopedia.com is now using a new caching system that should make things faster. Please let me know if you encounter any new issues.
2026-03-15: MediaWiki has been reinstalled and the old database and files restored. It was pretty clogged up from being upgraded so many times since 2004. I am also testing out Cloudflare to see if it can prevent the 'bot assaults that took the site down last year. OS-9 Al (talk) 21:20, 15 March 2026 (EDT)) |
CAMP
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump 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
