#è¤ ****************************#ò¤ * *#ü¤ * PICTURE PEN V 013 *#¤ * *#¤ ****************************¤ By David Wess $¤ PICPEN.¤ Version date 20/6/84*8¤ copyright (c) 1984 Tatung (UK) Ltd.B¤L¤*** MAIN-CONROL ***V¤2`ÿ”:Á 4: K~0 r 15:ÿ• K," ":› K:¤ START LINE 1Gj“ Z s ‚&DFFF:§ 1000:Z~u1: ‚&DFFF:§ 1000: à ‘ 1230:¤ START LINE 2t 3800:¤ SET-UP ~ 1240: ¤ INTRODUCTION-PAGE)ˆ 1530: ¤ MENU-PAGE RETURNS COMMAND-’“ COMND~1 s 1690:¤ DIPLAY-INSTRUCTIONS)œ“ COMND~2 s 2640:¤ PAINT-A-PICTURE,¦“ COMND~3 s 4320:¤ SET-DIRECTION-KEYS0°“ COMND~4 s 4570:¤ SELECT JOYSTICK ON/OFFº“ COMND~5 s 1230 Ä‘ 1160*Γ Z s 320: ÿ”:‚:ÿƒ 4:Ž:¤ FINISH LINEؤ ⤠*** INTRODUCTION PAGE ***ì¤-öÿ 4,0:ÿ‚1,0:ÿƒ14:„ 32:¢@0,0;"":¤ SET UP I~1 r 61 C~Õ(13):“ C~0 s 1290 ÿ C,0:¢"*PICTURE*PEN";:› Iÿ 12,0 :¢Ç(&14);(¢ @12,5;"¡¡¡¡¡¡¡¡"2¢ @12,6;"µ ¥"<¢ @12,7;"î â"F¢ @13,8;"µ µ"P¢ @11,9;"¡Î Â"Z¢ @10,10;"â ±î"d¢ @10,11;"µ ¥"n¢ @10,12;"µ ¥"x¢ @10,13;"µ ¥"‚¢ @10,14;"µ ¥"Œ¢ @10,15;"µ ¥"–¢ @10,16;"µ ¥" ¢ @10,17;"µ ¥"ª¢ @10,18;"±±±±±±±±±±±±"´ÿ‚ 6:ÿ 128, 48 ¾ÿ 15,6È¢@13,12;"PICTURE"Ò¢@15,14;"PEN".Üÿ 15,4:¢@ 8,23;" PRESS SPACE ";Ç(8);æ“ ä } &20 s ‘ 1510ð¨ú¤¤*** MENU-PAGE ***$¤ RETURNS COMND TO MAIN-CONTROL¤$"¢Ç(&14):ÿ 15,0:ÿƒ 12:„ 40:ÿ„ œ,¢@13,0;"PICTURE PEN MENU".6¢@ 4,6;"SELECT AN OPTION BY PRESSING THE" @¢@ 4,8;"CORRESPONDING KEY:"'J¢@9,12;"SEE THE INSTRUCTIONS 1"'T¢@9,14;"DRAW A PICTURE 2"'^¢@9,16;"SELECT PEN CONTROL KEYS 3"'h¢@9,18;"JOYSTICK SELECTION 4"'r¢@9,20;"END DRAWING SESSION 5"|COMND~äu48†“ COMND1 { COMND}5 s 1660¨š¤"¤¤*** DISPLAY-INSTRUCTIONS ***®¤¸ÿ,6:„ 40:ÿƒ 6¢@0,0;"";:¤ CURSOR HOME)Ì¢" PICTURE PEN INSTRUCTIONS"Ö¤à¤** PAGE 1 **ê¤ ô¢:¢:¢.þ¢" Picture pen is a graphics doodling"-¢" tool for aspiring computer artists."/¢" You can draw any shapes that you wish".¢" to, using the keyboard and/or a joy-"+&¢" -stick to guide the pen,in any of"/0¢" the colours provided in the ink wells",:¢" (you'll see the ink wells when you"/D¢" start to draw). Shapes you have drawn",N¢" can be coloured in so that you can"*X¢" create complex coloured pictures".b¢" in minutes. No Sexton Blakes PLEASE!"l¢:¢:¢:¢:¢.v¢" Press SPACE to continue."€“ ä } &20 s 1920Š¤”¤ ** PAGE 2 **ž¤ ¨„ 40:¢@0,0;"";:¤ CURSOR HOM(²¢" PICTURE PEN INSTRUCTIONS"¼¢:¢*Æ¢" You can control Picture Pen by"+Т" pushing the following single keys"/Ú¢" whilst you are producing your master-"ä¢" piece:"î¢ø¢" KEY EFFECT"¢ ¢" C Change ink colour*¢" D Draw a line to the pen nib") ¢" from the last point drawn""*¢" S Start the ink flow"!4¢" O Stop the ink flow",>¢" U Rub out at the pen nib until"!H¢" S or O is pressed"/R¢" F Fill in a shape surrounding the"*\¢" nib in any colour required"*f¢" T Take away the pen (pressed"%p¢" again brings it back)".z¢:¢" Press SPACE to continue"„“ ä } &20 s 2180Ž¤˜¤** PAGE-3 **¢¤!¬„ 40:¢@0,0;"";:¤ CURSOR HOME(¶¢" PICTURE PEN INSTRUCTIONS"À¢:¢Ê¢" More controls:"Ô¢Þ¢" KEY EFFECT":¢'è¢" B Change background colour"ò¢" R Draw a circle"*ü¢" E Clear the screen and return"* ¢" to the menu. Watch this one"+ ¢" it will DESTROY your work of" ¢" art!"$ ¢(. ¢" ";Ç(LT);" Move the pen LEFT")8 ¢" ";Ç(RT);" Move the pen RIGHT"-B ¢" ";Ç(DN);" Move the pen DOWNWARDS"+L ¢" ";Ç(UP);" Move the pen UPWARDS"V ¢-` ¢" 1-4 Controls the speed of the pen."-j ¢" 1 the slowest to 4 the fastest"t ¢-~ ¢" Press SPACE to continue"ˆ “ ä } &20 s 2440’ ¤œ ¤** PAGE-4 **¦ ¤ ° „ 40:¢@0,0;"":¤ CURSOR HOME(º ¢" PICTURE PEN INSTRUCTIONS" Ä ¢:¢:¢(Î ¢" The best way to get to know "#Ø ¢" Picture Pen is to try it."-â ¢" Anytime that you get stuck type H"-ì ¢" for HELP and you'll be reminded of "(ö ¢" the commands at your disposal,"- ¢" without your creation disappearing." ¢ ¢ ¢/( ¢" Press SPACE to return to the menu."2 “ ä } &20 s ‘ 2610< ¨F ¤P ¤*** PAINT-A-PICTURE ***Z ¤ d 3620:DIS~1:¤ SETUP SCREENn “ ç JS s ‘ 2710x XJ~ÿÖ0):YJ~ÿÖ1),‚ “ XJ30 s X~XuDIS: “ XJ} 224 s X~XtDIS+Œ “ YJ30 s Y~YuDIS: “ YJ}224 s Y~YtDIST– “ Ò(&FB3E)128 s   (&FB3E),Ò(&FB3E)t128:Ÿ &22,0:¤ IF LOWER CASE THEN UPPER CASE$  ¸ &E000:CR~Ò(&E010):¤ SCAN KEYSª “ CR~LT s X~XuDIS:‘ 2800´ “ CR~RT s X~XtDIS:‘ 2800¾ “ CR~DN s Y~YuDIS:‘ 2800È “ CR~UP s Y~YtDIS:‘ 2800Ò “ R s ‘ 2800Ü “ Y17 s Y~17#æ “ CR}0 s 4910:¤ KEY CONTOLS'ð “ Y17 s Y~17:¤ NOT BELOW THE POTSú “ ç PEN s ‘ 2830O ÿ„ 8,X,Yt16,INKCOL,144:ÿ„ 9,Xt8,Yt24,INKCOL,148:ÿ„ 10,Xt16,Yt32,INKCOL,152 “ DR~u1 s ÿ€ r X,Y:‘ 2670: “ DR~2 s DIS~2:¦ X,Y:¦ Xu1,Y:¦ Xt1,Y:¦Xu1,Yt1:¦ X,Yt1S" “ DR~2 s ¦ Xt1,Yt1:“ Y18 s 2870: “ DR~2 s ¦ X,Yu1:¦ Xt1,Yu1:¦ Xu1,Yu1:‘ 2870 , “ R s ¨ 6 ‘ 2670@ ¨J ¤T ¤** KEY-SCAN **^ ¤8h ¸ &E000:CR~Ò(&E010):“ CR}&60 z CR&7B s CR~CR z &DFr ¨| ¤† ¤**CHANGE-COLOUR ** ¤š XS~X:YS~Y:PENS~PEN:PEN~u1&¤ Y~16:¤ ALONG THE TOP OF INK WELLS(® MES$~CMESS$: 3550:¤ OUTPUT MESSAGE¸ X~(INKCOLw16)u4! 3460:¤ UPDATE PEN POSITIONÌ “ CR~&20 s W~0 r 50:› WÖ 2890:¤ SCAN KEYBOARD6à “ CR~&0D s ÿ‚ INKCOL,0:PEN~PENS:ÿ„ œ :‘ 3070:EXIT7ê “ CR~&20 s INKCOL~INKCOLt1 :“ INKCOL}15 s INKCOL~1 ô ‘ 3000.þ SPACE~u1: 3550:¤ REMOVE THE INSTRUCTIONS/ X~XS:Y~YS:¨:¤ RETURN WITH X AND Y RESTORED ¤$ ¤** CHANGE-BACKGROUND-COLOUR **& ¤$0 SPACE~u1: 3550:¤ CLEAR MESSAGE': MES$~BMESS$: 3550: W~0 r 400:› WD INKS~INKCOL:¤ SAVE INKCOLN 2940:¤ GET COLOURX ÿƒ INKCOL+b INKCOL~INKS:ÿ‚ INKCOL:¤ RESTORE INKCOLl ¨:¤ WITH NEW BACKGROUNDv ¤€ ¤**FILL-ROUTINE**Š ¤)” SPACE~u1: 3550:¤ CLEAR MESSAGE LINEž à 4690;¨ MES$~FMESS$: 3550: W~0 r 300:› W:DR~0:¤ FILL MESSAGE² INKS~INKCOL¼ 2940:¤ SELECT COLOURÆ ÿ‚ INKCOL,0:¦ X,Y Ð ÿ X,Y Ú INKCOL~INKS:« X,Y:ÿ‚ INKCOL!ä “ Z s à ‘ 320: à ‘ 1230î ¨ø ¤ ¤** HELP-ROUTINE ** ¤% HMESS$(14)~" "tÇ(LT)t" pen left"& HMESS$(15)~" "tÇ(RT)t" pen right"#* HMESS$(16)~" "tÇ(UP)t" pen up"%4 HMESS$(17)~" "tÇ(DN)t" pen down"> HP~1 r 17 H · "V0=C1-C1C1+C1R1","R","R",R MES$~HMESS$(HP): 3550: W~0 r 1200:› W$\ SPACE~u1: 3550:¤ CLEAR MESSAGE f › HP*p SPACE~u1: 3550:¤ FINISH WITH A SPACEz ¨„ ¤Ž ¤**UPDATE-PEN-POSITION **˜ ¤¢ “ ç PEN ‘ 3530¬ ÿ„ 8,X,Yt16,INKCOL,144¶ ÿ„ 9,Xt8,Yt24,INKCOL,148À ÿ„ 10,Xt16,Yt32,INKCOL,152Ê ¨Ô ¤Þ ¤** MESSAGE-ROUTINE ***è ¤ ò ÿ 4,14 ü “ SPACES s MES$ ~æ(" ",31)¢@ 0,23;MES$;:SPACE~0¢@0,23;"";¨$¤.¤** PREPARE-THE-SCREEN **8¤B¢Ç(&14):¤ CURSOR OFF*L„32:ÿƒ0:X~0:Y~17:ÿ… 2:E~0:DR~0:PEN~u16Vÿ 0,14:¢@0,23;" Press H if you need help ";,`ÿ‚14,14:ÿ€ 254,0r 254,15:ÿ‚ 5,0:ÿ 15,0j¢ @ 0,22;"";:¤ CURSOR 0,22 t¤ ** COLOURED PAINT POTS **(~ POTS~1 r 15:¤ EXCLUDE TRANSPARENTˆÿ 14,14:¢" ";&’“ POTS~1 s ÿ 15,POTS: ÿ 1,POTSœ¢ Ç(156); ¦› POTS°ÿ‚ 14,0:ÿ€ 0,16 r 255,165ºÿ 14,14:¢" ";:INKCOL~4:ÿ‚ INKCOL,0 :¢ @0,23;"";'Äÿ€ X,Y r X,Y,1:¤ PEN START CO-ORDSΨؤâ¤*** SET-UP ***ì¤föÿ„ œ:ÿ‡ 0,0:DIS~0:INKCOL~0:X~0:Y~0:XJ~0:YJ~0:CR~0:R~0:DR~0:JS~0:LT~&5A:RT~&58:DN~&2F:UP~&3A:PEN~0( 0,10,15, 00,120,0:¤ TYPE OF SOUND! Á 5:¤ THE SPEED OF THE NOTES(FMESS$~" Fill colour selection"(FMES1$~" Fill only on backgroud"-(RMESS$~"Move pen to a circle edge point",2RMES1$~" Press ENTER when in position"*<RMES2$~" Position your pen higher"Fÿ† 156,"E7E7C381818181FF"-PCMESS$~" SPACE bar to select then ENTER"*ZBMESS$~" Background colour selection"-dUMESS$~" Rubber: S or O stops rubber"5nJMESS$~" Plug a proportional-type joystick into"5xJMES1$~" the socket marked ANALOGUE 1. Then you"4‚JMES2$~" may use the joystick and the keyboard"&ŒJMES3$~" to control Picture Pen."$–Š HMESS$(17):¤ HELP MESSAGE SET1 HMESS$ (1)~"Don't panic here comes the help"/ªHMESS$ (2)~"The following functions exist"-´HMESS$ (3)~" B change background colour"$¾HMESS$ (4)~" D draw to pen nib"&ÈHMESS$ (5)~" S start ink flowing"'ÒHMESS$ (6)~" O turns off ink flow"/ÜHMESS$ (7)~" U rubout until S or O is hit"1æHMESS$ (8)~" F fill a shape surrounding nib"&ðHMESS$ (9)~" C change ink colour"2úHMESS$ (10)~" T turn pen on /off alternately"1HMESS$ (11)~" E clear screen...back to menu"#HMESS$ (12)~" R draw a circle"1HMESS$ (13)~" 1,2,3 and 4 pen speed control"$"  &E000,&CF,&B5,&32,&10,&E0,&C9,¤6¤* DEFINE PEN *@¤Jÿ† 144,"0000000000010307"Tÿ† 145,"0F3F3F1F3E76E0C0"^ÿ† 146,"0F1F3F77EEDCF8B0"hÿ† 147,"E0C0800000000000"rÿ† 148,"0000000000010307"|ÿ† 149,"0000000000000000"†ÿ† 150,"0F173B7DFEFCF8F0"ÿ† 151,"E0C0800000000000"šÿ† 152,"000000000103070F"¤ÿ† 153,"0000000000000000"®ÿ† 154,"003C7EFEFEFEFCF8"¸ÿ† 155,"F0E0C08000000000"¨̤֤** SET-DIRECTION-KEYS **à¤'êÿ 1,0:ÿƒ 11:„ 40:¢Ç(&11):LTRS$~""&ô¢@ 10,0;"DIRECTION KEY SELECTION"/þ¢@ 5,3;"Enter your new direction control:"N¢@ 16, 7;"Left ";Ç(LT);Ç(8);:KY~ä: 4420:“ ç OK s ‘ 4360: LT~KY:¢Ç(KY)N¢@ 16,11;"Right ";Ç(RT);Ç(8);:KY~ä: 4420:“ ç OK s ‘ 4370: RT~KY:¢Ç(RT)N¢@ 16,15;"Up ";Ç(UP);Ç(8);:KY~ä: 4420:“ ç OK s ‘ 4380: UP~KY:¢Ç(KY)N&¢@ 16,19;"Down ";Ç(DN);Ç(8);:KY~ä: 4420:“ ç OK s ‘ 4390: DN~KY:¢Ç(KY)0 W~0 r 500:› W:¨D¤#N¤* CHECK-FOR-OK-CONTROL-CHAR *X¤ b§ 4560 lOK~u1v I~1 r 15#€£ BDLTR:“ KY~BDLTR s OK~0:I~15Š› I ”“ KY } 127 { KY  32 s OK~02ž“ KY&7B z KY}&60 s 4830:KY~KY z &DF:‘ 4450<¨ J~1 r Ï(LTRS$):“ Ç(KY)~Þ(LTRS$,J,1) s OK~0:J~Ï(LTRS$)²› J¼“ OK s LTRS$~LTRS$tÇ(KY)ƨBЇ &42,&43,&4F,&53,&44,&45,&46,&54,&55,&48,&31,&32,&33,&34,&52Ú¤"ä¤** SELECT-JOYSTICK-ON/OFF **î¤ø¢Ç(&11):ÿ 1,0:ÿƒ 7:„ 40 ¢@12,0;"JOYSTICK SELECTION"2 ¢@2,4;"Do you want to use a joystick (Y/N)?";CM$~Ç(ä z &DF)C “ CM$~"Y" s JS~u1:¢@0,10;JMESS$:¢JMES1$:¢JMES2$:¢JMES3$:‘ 4670;*“ CM$~"N" s JS~ 0:¢@12,10;"Joystick not in use":‘ 4670 4‘ 4630M>¢Ç(&14);:¢ @4,22;"Press SPACE to return to the menu.":“ ä$}" " s ‘ 4670H¨R¤\¤** FILL-ERROR-TRAP **f¤p¨z¤„¤** CIRCLE-ROUTINE **Ž¤B˜R~u1:DRS~DR:DR~0:SPACE~u1: 3550:MES$~RMESS$: 3550:¤ MESSAGE@¢XS~X:YS~Y: W~0 r 500:› W:SPACE~u1: 3550:MES$~RMES1$:3550%¬ 2670: 2890:“ CR}&0D s ‘ 4780¶XR~XuXS:YR~(YuYS)x1.333bÀRD~Î(Ù(XRwXRtYRwYR)):“YSu(RDw1.333)16 s X~XS:Y~YS:MES$~RMES2$:3550:ÿ’:W~0r300:3470:‘ 47608Êÿˆ XS,YS,RD,,0,0,0:R~0:SPACE~u1: 3550:DR~DRS:« X,YÔ¨Þ¤è¤** SET-ALPHA-LOCK-ON **ò¤Rü“ Ò(&FB3E)128 s   &FB3E,Ò(&FB3E)t128:Ÿ &22,0:¤ IF LOWER CASE THEN UPPER CASE¨¤¤** KEY-CONTROLS **$¤.“ CR~&31 s ÿ’:DIS~18“ CR~&32 s ÿ’:DIS~2B“ CR~&33 s ÿ’:DIS~4 L“ CR~&34 s ÿ’:DIS~8:¤ SPEED4V“ CR~&42 s ÿ’: 3090:¤ CHANGE BACKGROUND COLOUR)`“ CR~&43 s ÿ’: 2940:¤ CHANGE COLOUR7j“ CR~&4F s ÿ’:DR~0:SPACE~u1: 3550:¤ TURN OFF DRAW"t“ CR~&52 s ÿ’: 4730:¤ CIRCLEI~“ CR~&53 s ÿ’:DR~u1 :ÿ€ X,Y r X,Y:DR~u1:SPACE~u1: 3550:¤ START DRAW9ˆ“ CR~&44 s ÿ’:ÿ€ r X,Y:SPACE~u1: 3550:¤ DRAW TO PEN'’“ CR~&45 s ÿ’:¡:¨:¤ END OF PICTURE œ“ CR~&46 s ÿ’: 3190:¤ FILLC¦“ CR~&54 s ÿ’:ÿ„ œ:PEN~ç PEN:ÿ„ œ: W~0 r 100:› W:¤ TOGGLE PEN:°“ CR~&55 s ÿ’:DR~2:DIS~2:MES$~UMESS$: 3550:¤ RUB OUTº“ CR~&48 s 3320:¤ HELPĨÀ‡ÿPÎ