0 'DOODLE.BA Steve Smythe
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT:PRINT"Draw with the J K L I keys":PRINT"Exit with the ESC key":PRINT:PRINT"Hit any key to continue...
3 A$=INKEY$:IFA$=""THEN3
4 X=INT(239/2):Y=INT(63/2):P=1:R=10:XO=X:YO=Y:CLS
5 A$=INKEY$:PSET(X,Y):PSET(X,Y):PRESET(X,Y):PSET(X,Y):PSET(X,Y):PRESET(X,Y):IF A$="i" THEN Y=Y-R:IFY<0 THEN Y=0
6 IF A$="k" THEN Y=Y+R:IFY>63 THEN Y=63
7 IF A$="j" THEN X=X-R:IFX<0 THEN X=0
8 IF A$="l" THEN X=X+R:IFX>239 THEN X=239
9 IF A$=CHR$(27) THEN MENU
10 IF A$=" " THEN P=1-P
11 IF VAL(A$)>0 THEN R=VAL(A$)
12 IF A$="0" THEN R=10
13 LINE(XO,YO)-(X,Y),P:XO=X:YO=Y:GOTO 5