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)

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