Source Code
1 REM QUILTER
2 LET Z=0
3 LET C=0
4 LET D=0
5 FOR B=1 TO 9999
6 IF INKEY$="5" THEN LET D=D-1
7 IF INKEY$="8" THEN LET D=D+1
8 IF INKEY$="6" THEN LET C=C-1
9 IF INKEY$="7" THEN LET C=C+1
15 IF INKEY$="X" THEN LET D=D-1
25 IF INKEY$="X" THEN LET C=C-1
30 IF INKEY$="H" THEN LET D=D-1
35 IF INKEY$="H" THEN LET C=C+1
40 IF INKEY$="N" THEN LET D=D+1
45 IF INKEY$="N" THEN LET C=C-1
50 IF INKEY$="D" THEN LET D=D+1
55 IF INKEY$="D" THEN LET C=C+1
60 PLOT D,C
65 IF INKEY$="W" THEN LET Z=5
70 IF INKEY$="0" THEN GOTO 80
75 GOSUB 90
80 PRINT AT 0,0;D;",";C;" "
82 PAUSE 65000
84 NEXT B
86 PRINT AT 0,0;" "
88 STOP
90 FOR I=D TO 59 STEP 12
92 FOR L=C TO 35 STEP 12
94 PLOT I,L
95 IF Z=5 THEN UNPLOT I,L
96 NEXT L
97 NEXT I
98 LET Z=0
99 RETURN
100 CLEAR
110 SAVE "1030%6"
120 RUN
