Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (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