@@ 4860:IX1:IY1:1540V@1,0,24," ",0:h@8,00,IY:z@(8,IX,IY:@28,IX,00:@<8,IX,IY:@F8,00,IY:@P8,IX,IY:@Z8,IX,00:@d8,IX,IY:AnJB0:T120:J2(2):(AxA$:J2(2):A$""210:J20120IAJ230,40,50,60,70,80,90,100^A(J2128)JB1:gA120AJB0:T130:J2(2):AA$:J2(2):J20A$""170A(J2128)JB1:AA$""JB1:AAFB0:A$""70:AA$""30: BA$""50:BA$""90:2BA$""J2128:8B`BX(8,0):Y(8,1):XX13:YY40:uB1,1:X(0):DC1B"I18:X:I,(X)::I12:PX(I),PY(I):B,133,137,134,138,135,139,136,140,.79,1.28,1.6,.625B616,3,6,7,8,9,13,4"C@ CIRCLE,COLOR,LINE,ALTERNATE,BOX,PAINT,DRAWQCJANGLE,POLYGON,OVAL,ALTERNATE,ARC,CLR,QUITCT SAVE,LOAD,OFF,ALTERNATE,COPY,PRINT-OUT,LABELSC^Q24:J0ChSN$(22),S$(22),DU(320): SN$ IS THE FUNCTION NAME, S$ IS THE SPRITE STR$DrI07:C(I):: C() ARE THE SPRITE COLORS...+D|I17:SN$(IJ7):4D430SD:Z18:A10(((0)36))lDZ,,,Z1:Z,A#4:ZDI17:T020:S$(0),I:::1430DCC(1):1,((0)):I17:X0:Y2:1,0,1,SN$(IJ7),1D1,0,0,"",0D1,0,2,"",0 EI,0:I,0#0.EA$(I),X,Y,X23,Y20:A$,50,100IEA$(I),I:I,XQ,Y50fEI,1,C(I),0,0,0,0:XXQE530: 250 TO 270 MOVES 'EM SLOWLY INSTEAD....EZ1I25EI,1;150:Z:I:540EI,I5014;122:EI17:(I),S$(IJ7)::1,1F& FORT=1TO2500:NEXT0F0 PRINT"PRESS ANY KEY":F:1,CCWFD 0,0,0," ",0tFN 0,0,1," ",0FX 0,0,2," ",0:J1690Fb GETA$:IFA$=""THEN300Fl PRINT""Fv 1,11,10,11,10,0 G11,08:,11,1211,20-G, 1,1008,10:,14,1020,10MG8,0 :A$(0),0,0,023,020xGA$(0),8:8,24,50:8,1,C(0),0,0,0,0~GG1,26,0,"F1 TO CONTINUE",1:J1J2730G1,0,20,"USE JOYSTICK #2"G1,0,21,"TO SELECT OPTION. PRESS/H1,0,22,"FIREBUTTON TO LEARN ABOUT THE OPTION"IHA$:210:A$""1440_HJ2(2):J20730~H""HA$:A$""1440HIX3:IY3:J2(2):J20760H (J2128):1,26,0,"F1 TO CONTINUE",1:820:880 IJ230,40,50,60,70,80,90,100CI : IFSN=7ANDJ=0THENFORT=1TO500:NEXT:PRINT"":GOTO150LI*760YI4:"=>";xI>CL(1):CL0J2J2128:IHI14:CL(1):T110::IRCLCL128I\I07:CL2ISNI1If:Jp1,0,20,"=>":1,4,20,SN$(SNJ7),0:J0SN960,1130,1000,1080,1040,1060,1020IJzJ1SN1100,980,1160,1080,1180,1260,1280yJJ2SN1220,1240,1300,1080,1330,1390,1360J1,0,21,A$,0:1,0,22,B$:1,0,23,C$JJK0:JKK1:K3K0JK:940JA$" CREATES REGULAR CIRCLES":1420J'KA$" CREATES REGULAR POLYGONS":1420-KnKA$" CONNECT POINTS WITH":B$" STRAIGHT LINES":C$"":D$""tKKA$" ALLOWS FREEHAND DRAWING":1420KKA$" DRAWS SQUARES AND":B$" RECTANGLES WHICH":C$" MAY BEFILLED WITH COLOR":D$""L-L$A$" FILLS SHAPES WITH COLOR":14203L.^L8A$" SELECTS ALTERNATE OPTIONS":1420dLBLLA$" ALLOWS YOU TO DRAW BOXES,":B$" OVALS, AND POLYGONS AT"LVC$" AN ANGLE YOU SPECIFY":D$""L`MjA$"CHANGE DRAWING COLOR OR THE PRESELECTED"XMtB$"COLOR CHOICES. WARNING: CHANGING COLOR 3":C$"CAUSES UNPREDICTABLE RESULTS"^M~MA$" FOR DRAWING OVALS OR ELLIPSES":1420MMA$" CREATES SECTIONS OF":B$" CIRCLES AND ARCS":C$"":D$""MMA$" LEAVE THE PROGRAM":1420N-NA$" SAVES A SCREEN TO DISK":14203N]NA$" LOADS A SCREEN FROM DISK":1420cNNA$" CLEARS THE SCREEN":1420NNA$" LEAVE THE PROGRAM":1420N NA$" TURNS OFF THE OPTIONS FOROB$" A NEATER SCREEN DISPLAY":C$"":D$""O(3O2A$" COPIES A SMALL PORTION OF"iO<B$" THE SCREEN TO ANOTHER LOCATION":C$"":D$""oOFOPA$" ADDS LABELS TO THE SCREEN"OZB$"":C$"":D$""OdOnA$" TRANSFERS THE SCREEN TO"OxB$" YOUR PRINTER":C$"":D$""OPB$"":C$"":D$""::P 1:JJ1:8,0#0:8,24,50:380KPJ0J1400uPMO2"":3,1:I17:I,0::0:J0PMO1"":1,1:I17:I,0::0:J0PI17:S$(I),I::1520:FX173:FY140P8,1P110:1500PJB1:20:2050:1520Q1490=Q1,27,24,"SELECT OPTION",1:IX5:IY0:8,176,223bQI17:I,I44,224:I,1,,0::Q SET MULTI OR HIRES, INSTRUCTIONSRMO=1:COLOR0,2:COLOR1,1:COLOR2,7:COLOR3,3:COLOR4,15:COLOR5,2:GOTO27:REM....THIS IS FOR DEBUGGING, ADD A REM TO THE FRONT WHEN DONE*R2,2:0,2:4,7:""XR""DOODLE PROGRAM BY A. SCOT CULLEN"R,"THIS PROGRAM WILL ENABLE YOU TO CREATE"R6"DRAWINGS AND ART ON YOUR SCREEN."R@"YOU WILL HAVE YOUR CHOICE OF TWO":"OPERATING MODES. THESE ARE:":SJ" 1 HIGH-RESOLUTION (FINER LINES IN ONE"22)"COLOR ONLY)"ST" 2 MULTI-COLOR (THREE COLORS AT ONCE"21)"WITH WIDER LINES)S^"PLEASE ENTER YOUR CHOICE( 1 OR  2 )"ShA$:A$"1"A$"2"1640SrMO(A$):MOS|MO1MO21630TT1500::"":T"1. BLACK 1. BLACK "aT"2. WHITE 2. WHITE "T"3. RED 3. RED "T"4. CYAN 4. CYAN "T"5. PURPLE 5. PURPLE "T"6. GREEN 6. GREEN "$U"7. BLUE 7. BLUE "KU"8. YELLOW 8. YELLOW "rU"9. ORANGE 9. ORANGE "U"10. BROWN 10. BROWN "U"11. LT. RED 11. LT. RED "U"12. DK. GRAY 12. DK. GRAY "V"13. MED. GRAY 13. MED. GRAY "5V"14. LT. GREEN 14. LT. GREEN "\V"15. LT. BLUE 15. LT. BLUE "V&"16. LT. GRAY 16. LT. GRAY "V0"SELECT YOUR OWN COLORS OR USE"V:"PRESET COMBINATION (S,P)?"VDA$:A$"S"1890WNA$"P"0,2:1,1:2,7:3,3:4,15:5,2:280*WXA$"C"1860ZWb" "Wl"ENTER CODE FOR SCREEN COLOR ":2020:0,CCWvCC1CC12"";W"ENTER CODE FOR BORDER COLOR ":2020:4,CCX"ENTER CODE FOR FOREGROUND COLOR ":2020:1,CCKXMO2"ENTER CODE FOR MULTICOLOR ONE ":2020:2,CCXMO2"ENTER CODE FOR MULTICOLOR TWO ":2020:3,CCX"SATISFIED WITH YOUR CHOICES Y/N?"X" ":" "XA$:A$""1980YA$"N"1890YA$"Y"1980Y280TY"AND PRESS RETURN":"YOUR CHOICE ";CCYCC1CC16CC(CC)"TRY AGAIN";CC:2030YY830Y I17:I,0:YJ0SN2110,2380,2710,3390,2950,3150,2810:2100Z J1SN3400,3560,3700,3750,4130,4030,4080:2100BZ*J2SN3760,3890,4340,4390,4400,4670,4820HZ4\Z>CI0: CIRCLESZH1,0,24,"ENTER CENTER",1:IX1:IY1:8,FX,FYZRUD$"UP/DOWN":LR$"LEFT/RIGHT":K1:L0Z\110:JB12150Zf270:DC,XMO,YZpCI22220[z1,0,24,"RADIUS DIRECTION",12[1,22,24,UD$,K:1,30,24,LR$,LF[160:JB12220b[K(K1):L(L1):2180l[2140[CX(0):CY(1)[20[1,0,24,"ENTER RADIUS ",1[K1IY1:IX0:CI2:1,13,24,UD$,1[L1IY0:IX1:CI2:1,13,24,LR$,1 \110:JB12290\2270:\270:FXX13:FYY40:DC,XMO,YR\RX(0):RY(1):20\ CI2K1K0:L1:8,(CXMO)13,CY40:OYRY:2240\ CI1A11CI0:\ K12360\$ CI2\. R(RXCX):DC,CX,CY,R,RPX(MO):2370]8 R(RYCY):DC,CX,CY,RPY(MO),R ]B #]L L1:8,0: COLORe]V 1,0,24,"DRAW COLOR <= COLOR CHOICE?",1:C11:3030:L02430}]` C11:3160:K4K0]j DCK:DC2MO1DC0]t 8,1:]~ CC$"<=COLOR? JOY=N/BUTTON=Y"] MO22520] 1,11,24,CC$,1] BG(0):FG(1)^ 1,0,24," ",1*^ 160:JB12690B^ FGFG1:FG16FG0U^ BGFGFGFG1k^ 0,BG:1,FG:2450s^ 20^ 1,0,24,"CHANGE WHICH=>",1:8,165,230:8,1:IX2:IY0^ K13:K,K3326,192,K3358,199,,1::^ 110:QW((8,0))_ QW1292690_ QW197WQ1:26002_ QW261WQ2:2600;_ WQ3C_( 20W_2 WQ,11,24,CC$,1t_< WQ,0,24," ",1_F 160:JB18,1:2690_P CC(WQ):CCCC1:CC17CC1_Z WQ2660,2670,2680:2610_d 1,CC:_n 2,CC:_x 3,CC:_ 20:8,1` ` LINESC` 1,0,24,"ENTER ONE END",1:IX1:IY1:8,FX,FYL` 110`` 270:DC,XMO,Y` CX(0):CY(1):1,0,24,"ENTER OTHER END",1` 110` 270:FXX13:FYY40:DC,XMO,Y` RX(0):RY(1):20` DC,CX,CYRX,RY` 8a 8,FX,FY:8,1:K2:D$(2)"MOVE ":D$(1)"DRAW ":D$(0)"ERASE": DRAWxa (FX13)MO,FY40:1,0,24,D$(K),1:1,28,24,"F1 TO RETURN",1a IX1:IY1:J0a A$:A$""1,0,24," ",0:1,28,24," ",0:a" A$""210:2880a, J2(2):J202840b6 J230,40,50,60,70,80,90,100Qb@ J2128KK1:2930:1,0,24,D$(K),1:T130:J2(2):_bJ K22840bT 270:KDC,(0),(1)XMO,Yb^ FXX13:FYY40bh 2840br K3K0:((8,0)13)MO,(8,1)40b| FX(8,0):FY(8,1):b BOXES(c 1,0,24,"LOCATE ONE CORNER",1:IX1:IY1:L1:8,FX,FY1c 110Rc 270:DC,XMO,Y:CXXMO:CYYyc 1,0,24,"LOCATE OPPOSITE CORNER",1c T110:J2(2)::110c 270::FXX13:FYY40:DC,XMO,Y:K1c RXXMO:RYY:1,0,24,"FILL? (Y <= N) ",1d I150:J2(2):d J2(2):J2030400d J21283090Ud J27L1:1,11,24,"<= ",1:3030zd J23L0:1,11,24," =>",1:3030d 3030d C11C10:d MO2L13160:3120d& KDCd0 K4K0d: K,CX,CY,RX,RY,AN,LdD 20:dN L0: PAINTeX K1:IX1:IY1:8,FX,FY: PAINTKeb 1,0,24,"SELECT COLOR=JOY--QUIT BUTTON=>",1pel V250:W192:Z319:H199:K5K1eq K3MO1K1ev K4(K2MO1)0,VMO,W,ZMO,H,0,1:1,VMO,W,ZMO,H,0,0:3220e K,250MO ,192,319MO,199,0,1f A$:A$""J2128f A$""J2(2):J2032104f J212820:3260Mf MO1K3K1:3180]f KK1:3180nf C11C10:}f 20:L1f 1,0,24,"SELECT REGION TO PAINT",1f 110f 270:FXX13:FYY40:XXMOf MO1K2:K,X,Y,0:3340g K40,X,Y,0:3340g K,X,Y,1(g RX(0):RY(1):20^g 1,0,24,"AGAIN? (Y <= N) ",1:C11:L1:3030lg L13280g* RX(0):RY(1):20g4 g> J1:I17:S$(IJ7),I::: CHANGE OPTIONSgH ANGLEgR S$(5),1:S$(9),2:S$(10),3h\ 8,0:8,444,223hf 1,344,224$hp 2,444,2245hz 3,544,224Hh T13:T,1:{h 1,0,24,"ANGLE (0 - 360)?",1:B$"":3580:ANSIh 20h 8,1h IY0:IX5:110h 830:SN1SN33500h T13:T,0:h SN2950,3560,3700h AN0:3390h i CI1:2120: POLYGONSIi 1,0,24,"NUMBER OF SIDES?",1:L0:B$"":3580:3640]i A$:A$""3580piA$(13)3630iA$"0"A$"9"3580iLL1:1,17L,24,A$,1:B$B$A$i$3580i.SI(B$):i8SI1iBK13670jLR(RXCX):DC,CX,CY,R,RPX(MO),270,270,180AN,360SI:3680SjVR(RYCY):DC,CX,CY,RPY(MO),R,,,180AN,360SI[j`20ajjmjt OVALS|j~CI2:2120jA11A10:jDC,CX,CY,(CXRX),(OYCY),,,ANjjJ2:I17:S$(IJ7),I::j1,116: SAVEk8,0:L0:CT0:F$""q" ARCtq,A11:S$(10),2:S$(1),1:1,150,224:2,202,224q68,176,223:1,1:2,1:8,1q@IY0:IX5:110qJ830:SN2110,3700rTA10:1,0,24,"JOYBUTTON TO START/STOP LINE",1:SN4190,4280r^K14240ErhR(RXCX):M03802:KDC,CX,CY,R,RPX(MO),M,M2srrX(0):Y(1):8,XMO13,Y40:T1100:r|J2(2):J2128K(K1)r:20:3390:rR(RYCY):M03802:LDC,CX,CY,RPY(MO),R,M,M2sX(0):Y(1):8,XMO13,Y40:T1100:$sJ2(2):J2128L(L1)6s:20:3390:NsK0:A10:M03802ysDCK,CX,CY,(CXRX),(OYCY),M,M2,ANsX(0):Y(1):8,XMO13:Y40:T1100:sJ2(2):J2128K(K1)s:20:3390:ss OFFsI18:I,0:t110tI18:I,1:t SCREEN DUMP TO PRINTER: FROM BRUCE BOWDEN HEURISTICS