| 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)) |
SKETCH
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump to search
100 C=1: I=2: P=3: X=32: Y=16 110 CLS(P) 120 A$=INKEY$ 130 IF AS<>"" THEN 160 140 IF C=1 THEN RESET(X,Y): SET(X,Y,I) 150 GOTO120 160 IF A$<>"Y" THEN 190 170 IF Y>1 THEN Y=Y-2: GOTOS60 180 Y=31: GOTOS60 190 IF A$<>"B" THEN 220 200 IF Y<30 THEN Y=Y+2: GOTO560 210 Y=0: GOTO560 220 IF A$<>"H" THEN 250 230 IF X<62 THEN X=X+2: GOTO560 240 X=0: GOTO560 250 IF A$<>"G" THEN 280 260 IF X>1 THEN X=X-2: GOTO560 270 X=63: GOTO560 280 IF A$<>"U" THEN 330 290 IF X<62 THEN X=X+2: GOTO310 300 X=0 310 IF Y>1 THEN Y=Y-2: GOTO560 320 Y=31: GOTO560 330 IF A$<>"N" THEN 380 340 IF X<62 THEN X=X+2: GOTO360 350 X=0 360 IF Y<30 THEN Y=Y+2: GOTO560 370 Y=0: GOTO560 380 IF A$<>"V" THEN 430 390 IF X>1 THEN X=X-2: GOTO410 400 X=63 410 IF Y<30 THEN 11+2: GOTO560 420 Y=0: GOTO560 430 IF A$<>"T" THEN 480 440 IF X>1 THEN X=X-2: GOTO460 450 X=63 460 IF Y>1 THEN Y=Y-2: GOTO560 470 Y=31: GOTO560 480 IF A$="E" THEN SET(X,Y,P): C=0: GOTO120 490 IF A$="S" THEN SET(X,Y,I): C=1: GOTO120 500 IF A$<>"I" THEN 530 510 IF I<8 THEN I=I+1: GOTO120 520 I=1: GOTO 120 530 IF A$<>"P" THEN 120 540 IF P<8 THEN P=P+1: GOTO110 550 P=0: GOTO110 560 IF C=1 THEN SET(X,Y,I) 570 GOTO120
