MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.

SKETCH

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