MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

SKETCH

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 21:29, 10 September 2015 by Polluks (talk | contribs) (Category)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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