**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

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