…†VdxBEEÐPROMPÔCÒBELÌK±K²K³K´K2·K4°K6µPROG¤LINE¤DAT¤NO¤A¨B¨C¨A¤C¤D¤ÔK°EXÅÁTÒTROÎSÁØÙÃANGLÅÐÉÅÂPRÏÒLONÇY±X±ÌLINÅL±ÓT±ÖACÃÚÎT²NEÇN²T³V±ËÄSTÁ € € € €@@@€€€ !"#$%&'()*+,-./0123456789 TURTLE 1020 By Jason Leigh››A"€‚ƒ„…†‡ˆ‰ŠA1080,90,155,253,1,2,3,4,27,40,65›(1‹;A€,6‹.>:‚,(6‹7A€,.‹16‹7…,.‹2\\Œ;AU,;AU,Ž;‡,9@&,9@&,‘9@&,’;‡,“;@9,”;A(,<$ 6“.>:‚,6“7@9,.“$6“7…,.“F0•-–@&68•,-–#68•,-–,6‘8•,-–0 •P!(>:A%, TURTLE 1020!(ZV 6—-– A@‚„=(>:@0,>:ˆ,>:@1,I@‚…V@Œd (B:Œ, n3 B:Œ,"„6˜-@:Œ,3˜!@G*˜ @XA@x2 A@B:Œ,"„$6˜-8@:Œ,&Š,.(Œ=˜2 ‚Œ4DELAŒŒ4CAT)Œ4DIRA–# Œ4TON6™-„6š-@4# €  Œ4TOF6™-–6š-– €ª Œ4NEW%´Œ4MEMAP¾Œ4LOADA@ÈŒ4SAVE6›-„ A@Ò* 6˜-@:Œ,*˜!@G*˜ @XA0ÜŒ4RUNAPæ&Œ7„<†,4LIS6˜-–" A`& €ðIŒ7„<†,4LIP A !†5†@–P:;6˜-†E A`I €ú@ Œ4SEE<(X=P:œ, Y=P:, COLOR=ž ANGLE=Ÿ@ € 6.Œ6Ž.7„<†, A  Ž4REM €I Ž4TXT…&…@–P:0(…7‡,E(…>:ˆ,>:@,I €" Ž4PFN(…7‡, €,& Ž4GRH"(…>:ˆ,>:@,& €6Ž7…<…,4=A @< A @Ž4COL#6ž-A:7‡,,- A 8(…Cž< €J Ž4PND6 -„ €T Ž4PNU6 -– €^D A Ž4HME#6œ-A@)6-–/6Ÿ-–@(…Mœ,D €hŽ4SETA r) A PŽ4TRN%6Ÿ-Ÿ%A:7‡,,) €|' A `Ž4TTO#6Ÿ-A:7‡,,' €† A pŽ4BACA0 A €Ž4FORA€š= A Ž4GTO6—-„' A96¡-+A:7‡,,&„,$‰= €¤H Ž4REP6¢-+@:7‡,,&Š,26‘8¢,-A:7@,,;68¢,-¡D68¢,-–H €®D Ž4ELP6¢-+@:7‡,,&Š,+68¢,-8¢,%„78¢, ‘8¢,@6¡-8¢,D €¸ Ž4ELP €Â0 A Ž4ORG6œ-–#6-–,(…H0 €Ì> Ž4CLR•-–@&$68•,-–-68•,-–66‘8•,-–: •> €ÖŽ4TSTApàŽ4IFFAPêŽ4IFTA€ô Ž4END6—-– €þ^ APŽ4ACC)AY@476˜-@:7‡,,&Š;£E A@N68˜,-£ZAYš^ €$(>:ƒ, Command error$ A * (>:ƒ,Illegal line number* A '(>:ƒ,Illegal variable' A &9F:A•,"@/(>:ƒ, Illegal input9 A 0- € (˜6•-–B:Œ,!†-6•-+A:Œ7‡,,&„,$‰: 6•-•%‰@:‹7•,,‚AD A•!Ay`)•!¤ $N ApXO(˜•'‰ !¥-••%@9-@:‹7¥,,‚1 ¥E(˜‹7•<•%@9,O A€b(˜‹7•<¥&„, A€l(>:ƒ, Printer error v6¦-A:7‡,,€& A 6§-E:Ÿ,$¦&6¨-G:Ÿ,$¦Š (…Dœ&¨,&§”( (…Mœ&¨,&§ž 6œ-œ&¨6-&§ €¨6¦-A:7‡,,²& A 6§-E:Ÿ,$¦&6¨-G:Ÿ,$¦¼ (…Dœ%¨,%§Æ( (…Mœ%¨,%§Ð 6œ-œ%¨6-%§ €ÚB:Œ, †APä-B:Œ,!@9)(>:ƒ, Line too long- î 6©-B:Œ,6Œ7©%„,.>:‚,ø1 •-„©6˜-@:Œ7•,,-˜!@G*˜ @X1 •6ª-A:Œ7„<•,,6«-• 4ª!A™)ª „0(>:ƒ,Illegal line number4 6‹7ª$‰<ª$‰%@9,.“  © « *'@:Œ7«,,"@26«-«%„' A4B:Œ,&« †A >+6‹7ª$‰<ª$‰%©&«%„,.Œ7«,#ª$‰!¤+6¤-ª$‰H R2 A …&…@–P:2AYš\Z 6¡-–6—-„6Ÿ-–6œ-–!6-–/•-–@&868•,-–A68•,-–J6‘8•,-–N •T6ž-–Z6 -–f6 A06Œ.6¢-–"6¡-¡%‰6@:‹7¡,,‚A p¡!Ay`)¡!¤6—-– z Ap„I¥-¡¡%@9@:‹7¥,,‚'6¢-¢%„56Œ7¢<¢,.‹7¥,;6¬-„? ¥I A Ž¬ 6¬-– A ˜ A™(¡'‰ Œ¢ A`¬- A 6ž-8@:7‡,,&Š,)(…Cž- €¶$ A  6Ÿ-Ÿ%8@:7‡,,&Š,$ €À" A 6Ÿ-8@:7‡,,&Š," €Ê( A 6¦-8@:7‡,,&Š,( A@Ô( A 6¦-8@:7‡,,&Š,( AÞ) 6­-„6˜-@:7‡,,&Š)˜–*˜ ˆA@è•-‡B:,7•<•,0, •ò 6­-•%„6œ-A:7‡<•&„,,ü#6˜-@:7­,,&Š#˜–*˜ ˆAP6-A:7­,, A`" 6œ-8˜,6­-@" A  6-8˜,$" A  "(…Dœ,.( (…Mœ,8;Ÿ!A`)Ÿ 6A`+6˜-P:Ÿ'A`,;6Ÿ-Ÿ&˜$A`B—A€L((OkayAR– VC•-@–6„*2„A@@•. •@AY@4C$`* A0*7†<@,4RNDAPj6®-@:Ž,&Š6¯-–t® –A@~% 6°-† A6¯-±6²-­%6³-–ˆ' 6°-­%„ A6´-±!6µ-­'6³-–’6’.7²<²,œ AP¦ ’4+6¯-¯%´ A`° ’4-6¯-¯&´ A`º ’4/6¯-¯'´ A`Ä ’4*6¯-¯$´ A`Î ’4^6¯-¯#´ A`Ø!(>:ƒ,Illegal function! â(>:ƒ,Overflow ì 6²-µ6­-µö¬68®,-¯ € A` - A6˜-@:7°,,&Š-˜–*˜ ˆA`P 6³-–6’.7°<°,"’4-)’4+*6°-°%„06³-„>6˜-@:7°,,&ŠP˜–*˜ ˆA`D 6¬-–•-°B:, 6˜-@:7•,,@˜"@F)˜!@G*˜ @YD •(³6°-°&„6³-–26±-A:7°<•&„,,6­-•< •B:,6¬-„F$P' 6¶-˜³*’4-6±-68¶,' A€Z 6±-8¶,d 6­-°%„6•-­&„ A@n 6¬-„ Apx>F:Ad,AU*AdAU4(Break> A ‚AdAU$Œ—( at line #¡'‰6—-––  &(Enter Filename->&@ª& AP†›6›-–& Ap´†‡–6˜-–¾ )†¡)†·È4 ¡„)·„(0(>:ƒ,Not a TURTLE 1020 file4 €Ò )†¤6¤-¤$‰Ü )†ªæ )†¸¸"AUA@ð!6‹7ª$‰%˜<ª$‰%˜,.>:¸,!6˜-˜%„ú A 6˜-– A<F:A•,A6(<(>:ƒ, I/O error # F:A•, €" †@–6˜-– 6•-–, *†„*†„6 *†¤'‰@ 6•-•%‰@:‹7•,,‚A0J"•!Ay`)•!¤@" €T A^I *†•'‰¥-••%@9(@:‹7¥,,‚5*†@:‹7¥,,;6¬-„? ¥I Ah$¬ 6¬-–*†AU$ Ar- 6¥-–•-‰A€‰%@:‹7•,,"‚-6¥-¥%„| •(¥ LINES FREE €†$ A 6˜-@:7‡,,&Š$6˜-8˜,;6£-@:7@,,&Š(£!6„*£ @&16£-8£,; Aš6£-A:7@,,¤6ž-@:7@,,6¹-–®ž"@`6¹-˜ £ €¸ž"@b6¹-˜!£ €Âž"@a*˜"£6¹-„ €Ì €Ö A 6•-‡¹ €à"7•<•,4 6•-•%„" A`ê 6Œ.6Œ.7•, A`ô A 6•-‡(¹ €þ"7•<•,4 6•-•%„" A 6Œ.6Œ.7•, A`(( DISK CATALOG(3 AP†)†@–D:*.*3 A@& †”(” A00 ( €: A D46®-@:7@,,&Š!®–*® ˆ*6˜-8®,4 A€N6˜-A:7@,,X%6®-@:Ž,&Š!68®,-P:H:–,$˜,%„% €b$6®-@:7‡,,&Š 6¡-+8®,&„,$‰$ €l6(DELETE FROM LINE #->!©2( TO LINE #->6«v% ©«!(>:ƒ,Illegal values% €)«!A™)© „6©-„6«-–) AŠ-)( DELETE LINE © TO « (Y/N)-Œ”'Œ7„<„,4Y(DELETING' A`ž ¨'•-©$‰«$‰‰6‹7•<•,.>:‚,# •' €€ D:TURTLE.BAS