0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
1 ONERRORGOTO200:GOTO1000
6 GOTO24
7 GOTO27
11 QW=0:CLOSE:INPUT"NAME";N$:IFN$=""THEN27ELSEOPENN$FORINPUTAS2:CLS
12 IFEOF(2)THEN7
13 INPUT#2,X1
14 IFEOF(2)THEN7
15 INPUT#2,Y1
16 IFEOF(2)THEN7
17 INPUT#2,X2
18 IFEOF(2)THEN7
19 INPUT#2,Y2
20 IFEOF(2)THEN7
21 INPUT#2,P
22 LINE(X1,Y1)-(X2,Y2),P
23 GOTO12
24 Y1=31:X1=120:Y2=31:X2=120
25 P=1
27 IFX2>239THENBEEP:X2=X2-1:GOTO38
28 IFY2<0THENBEEP:Y2=Y2+1:GOTO38
29 IFX2<0THENBEEP:X2=X2+1:GOTO38
30 IFY2>63THENBEEP:Y2=Y2-1:GOTO38
31 IFQW<>1THEN38ELSEPRINT#1,X1;Y1;X2;Y2;P;
38 LINE(X1,Y1)-(X2,Y2),P:X1=X2:Y1=Y2
39 D$=INKEY$
40 IFD$="W"THENY2=Y2-1:GOTO100
42 IFD$="A"THENX2=X2-1:GOTO100
44 IFD$="Z"THENY2=Y2+1:GOTO100
46 IFD$="S"THENX2=X2+1:GOTO100
50 IFD$="O"THENP=0
52 IFD$="P"THENP=1
54 IFD$="G"THENINPUT"(Y/N)";G$:IFG$="Y"THENCLOSE:MENU
56 IFD$="V"THENCLOSE:INPUT"NAME";N$:IFN$=""THEN27ELSEOPENN$FORAPPENDAS1:QW=1:GOTO100
58 IFD$="L"THEN11
60 IFD$="K"THENCLOSE:INPUT"NAME";NA$:IFNA$=""THENGOTO100
61 IFD$="K"THENNA$=NA$+".DO":KILLNA$
62 IFD$="N"THENQW=0:CLOSE:GOTO100
64 IFD$="F"THENFILES
66 IFD$="C"THENCLS:GOTO24
68 IFD$="H"THEN6000
70 IFD$="R"THEN1000
100 GOTO27
200 IFERR=7THENBEEP:BEEP:BEEP:PRINT"OUT OF MEMORY!"ELSE220
205 QW=0
210 RESUME
220 IFERR<>7THENPRINTERR,ERL:STOP
230 RESUME
1000 CLS
1010 CLOSE
1020 PRINT"DRAW.BA by Marvin Cook.":PRINT:PRINT"IF AT ANY TIME YOU WISH TO SEE THE      COMMANDS, JUST PRESS 'H'. PRESS":PRINT"'H' AGAIN TO EXIT."
1030 IFINKEY$=""THEN1030ELSECLS:GOTO6
6000 CLS:PRINT"W = up     õ Z = down    õ A = left":PRINT"S = right  õ O = pen up  õ P = pen down":PRINT"V = save   õ L = load    õ N = no save":PRINT"K = kill   õ G = bye     õ F = files":PRINT"C = clear";
6010 PRINT"  õ H = help    õ R = restart":PRINTSPACE$(11)"õ";SPACE$(13);"õ":PRINTSPACE$(11);"õ";SPACE$(13);"õ"
6020 S$=INKEY$
6030 IFS$<>"H"THEN6020ELSECLS:GOTO100