„…uåKøKÉS¨ËE×ÊÌÍÎØRT²ÔÂG¨SP¨CU¨AÎFÎCOPÙA×A¨F¨ÈGØÖGÙGH¨GÃGV¨ÆSÔBLNËBÎCÃM2¨FH¨FÃFV¨AV¨AH¨AÃD¤F¤IÏCHÅSAÖLOÄCHÂCH×AÌSÁC¨CR¨CÕCÂP°P²P³RAÍDÌA¤ÁP±@ @ @ @@@@@ @!@"#@$@%@&'€(€)*+,-./01@2@3456789:€;<=&&** ANTIC ** OCT 84 ** PAGE 42 **›ANTIC 4/5 EDITOR›BY PAUL CHABOT›ANTIC MAGAZINE› A! A) **** MAIN LOOP ****› A-@A(&     ¼ïôèåò¾ ­ ôïççìå ãïìïòó          . A6€-F:Ad,.AdAU 8€, A! @*******************›!!**** FILL GRID FROM EW ****›A 6‚-ƒ%€-@@A„-@@+ 6…-F:‚,6†-F:‚%@,+6‚-‚%@( ‡-@6@(6ˆ-€%‡76…-?:‰<…,6Š-F:A,(6†-?:‰<†,76‹-F:A,56Œ8ˆ<„,-Š!6Œ8ˆ<„%@,-‹18ˆ<„,Ž8Š<‹,5 ‡  „ €"$(##**** FILL EW FROM G(*,*) ****›*9 6‚-ƒ%€-@@9„-@,SS‚@d$Œ8€<„,%@$Œ8€%@<„,%@$Œ8€%@<„,%Œ8€%@<„,.6‚-‚%@ „ €0 @$P**** UPDATE AN,FN ****›R-@4@(T--@7@(& @-( V$Z&&**** FILL AW,A(AN),F(FN) FROM EW›\6€-?:‘<@H<ƒ<’,^6€-?:‘<@H<ƒ<“8,,`6€-?:‘<@H<ƒ<”8,,b$d**** GRID CURSOR ****›e'A@‚'AAl 6•-–6—-˜n$B2V$B2H™8•,p!B2y6–-•!6˜-—r6€-?:‘<@<š<›8—,,t F:Ad, @dAu$T:,"@$6œ-@v"T:,"" APx&6-R:,&"@Az!!"@)"@A0|!!"@)"@A@~ A‚6€-?:‘<@<ž<›8—,,„9!6—-—%+"@,&+"@,-— 96—-@†—!@6—-ˆ AŒ9!6•-•%+"@,&+"@,-• 96•-@Ž•!@6•-B2H™8•, A–**** TRIGGER PRESSED›˜/6Ÿ-+–!@,%+–!@,/6Ÿ-@$Ÿ%˜š%6†- $+Œ8–<˜,",%6€-8–<˜,›œ"6†- œ¡8˜,Abž6„-Ž8†<Œ8–<˜%@,,  Ad¢6„-Ž8Œ8–<˜&@,<†,¤ €„6Œ8–<˜,-†¦C6„-–!@)6„-„%@5–!@C6„-„%@¨SS6€-@d$Œ8„<˜,%@$Œ8„%@<˜,%@$Œ8„%@<˜,%Œ8„%@<˜,ª ƒ%Ÿ€”8,%Ÿ€¬“8,%Ÿ€¶6œ-$¾**** KEY PRESSED›À6€-?:‘<@<ž<›8—,,Â$È**** FN CURSOR ****›É'A@4'AA–ÊB2V@Ì3 6•-6—-+•!@ ,%•!@ 36•-•&@ÎB2H¢8•,Ð6€-?:‘<@ <£<¤8—,,Ò/B2y/6„-•%@$+—"@,Ô6€-?:‘<@H<”8„,<’,Ö7F:Ad, @d*AdAU-'7 APØ(T:,"6-„( APÚ&6-R:,&"@AÜ!!"@)"@A0Þ!!"@)"@A@à Aæ)6€-?:‘<@ <ž<¤8—,,)6—-@&—è%6€-?:‘<@ <£<¤8—,,% Að9!6•-•%+"@,&+"@,-• 96•-@ ò•!@ 6•-ôB2H¢8•, Aú6€-?:‘<@ <ž<¤8—,,þ$,**** AN CURSOR ****›-'AA'A@6.)6-%@!@ )6-0%B2V@%6—-+!@,2 T:,"A66€-?:‘<@<ž<¥8—,,8"B2H¦8,"6—-+!@,:6€-?:‘<@<§<¥8—,,< T:,"A0>06-R:,0@*@A@9!6-%+"@,&+"@,- 96-@ B!@ 6-DB2yF AJ6€-?:‘<@<ž<¥8—,,N$è **** UP ........<->..S(14)›éAA–ê3€-@3„-@@ì[6Š-Œ8€<„%@,)6‹-Œ8€<„%@,46Œ8€<„,-ŠG6Œ8€<„%@,-‹W8€<„,Ž8Š<‹,[ „î\6Š-Œ8€<@, 6‹-16Œ8€<@,-ŠB6Œ8€<@,-‹X8€<@,Ž8Š<‹,\ €ð @@$ü **** DOWN ......<=>..S(15)›ýAA–þ4€-@4„-@@6@[6‹-Œ8€<„&@,)6Š-Œ8€<„&@,46Œ8€<„,-‹G6Œ8€<„&@,-ŠW8€<„,Ž8Š<‹,[ „\6Š- 6‹-Œ8€<,16Œ8€<,-ŠB6Œ8€<@,-‹X8€<,Ž8Š<‹,\ € @@$**** LEFT ......<+>..S(6)›AA–3„-@@3€-@c6Š-Œ8€%@<„,16‹-Œ8€%@<„%@,<6Œ8€<„,-ŠO6Œ8€<„%@,-‹_8€<„,Ž8Š<‹,c €T6Œ8@<„,-96Œ8@<„%@,-P8@<„,@dT „ @@$$**** RIGHT .....<*>..S(7)›%AA–&<„-@@<€-@@6@(c6Š-Œ8€&@<„,16‹-Œ8€&@<„%@,<6Œ8€<„,-ŠO6Œ8€<„%@,-‹_8€<„,Ž8Š<‹,c €*T6Œ8<„,-96Œ8<„%@,-P8<„,@dT „, @@$8 **** EDIT ........S(63)›9<-@@<(! -select FN -ABORT : A @€<6€-?:‘<@H<”8,<ƒ,=<-@@<(! - select AN position   >! A @€! @@ @ $B **** NEXT ........S(21)›D)6-%@!@)6-F)6-%@!@ )6-H @ @€J$L **** SAVE ........S(18)›M'A@'A@‚N. A€-@$@.(   Ó Á Ö Å P:-@@:( INPUT filename Q@ƒ@(R-@@¨S@ƒ@9T4 6©.D:6©7@,.¨46©7B:©,%@,..2X3V--@@-(  ¼Ó¾ ­ ôï ÓÁÖÅ ©X F:Ad,!@cAZ F:Ad,@bA"\2 @@©2A@€^ 6€-?:ª<@<A$<«<¬,` @ A@‡b'BB†A’'AdAUd A7P A7f @€h AA$j **** LOAD ........S(58)›k'AA'A@‚l A€6„-A$n!-@$@!( ÌÏÁÄ p:-@@:( INPUT filename r=@ƒ@('-@@+¨=@ƒ@9t4 6©.D:6©7@,.¨46©7B:©,%@,..2X3v--@@-(  ¼Ì¾ ­ ôï ÌÏÁÄ ©x F:Ad,!@cADz F:Ad,A`|B @@©76€-?:ª<@<„<«<­,B@~B @@©76€-?:ª<@<„<®<­,B@€„"AA`‚H @@©=6€-?:ª<@<A<¯<­,H@„7BB†A’!6--6-7 @€†/6€-?:‘<@H<”8,<ƒ,% @/ @ ˆ'B2…A’'AdAUŠ! A7P A7! @€Œ AA$’ **** TOPLOAD .....S(42)›“'AA'A@‚” A€6„-A–"-@$@"(ÔÏÐÌÏÁĘ A6œ**** I/O DIRECTORY ****› ABžR@‚@'-@@R(&   É¯Ï ÄÉÒÅÃÔÏÒÙ                       F€-@B(& F €¡-@@¢3@3@@D:*.2X3¤8‚-@@+…-@@8@¨¦B:¨,"@A”¨(( ¨7@<@,! …$(( ‚ª @ BB†A’¬@‚$° **** ANIMATE .....S(56)›±'A@P'A@²?-@@?($ -Next -cont. -QUIT ´6„-¶-6€-?:‘<@H<“8„,<’,-B2y·-@4@(„¸#6„-„%@„!°#6„-º:6‚-F:Ad,‚ @d0AdAU: A¼ T:,"A¾ AÀ‚"@5A @ @€$Ä **** INC AL ......S(61)›Æ6‚-±%@%@$°È1°!@16‚-±%Ac%@$+°&@,Ê‚@dÌ)6°-°%@°!@ )6°-ÎI6‚-±%@%@$°'°!@I6‚-±%Ac%@$+°&@,Ђ@iÒ$Ø **** CLEAR .......S(57)›Ú3€-@3„-@@ÜF6Œ8€<„,--6Œ8€<„%@,->8€<„,@dB „F €Þ @@$ì **** CLEAR SECT ..S(13)›îE6‚-+–!@,%+–!@,-6‚-@$‚E6…-@$+˜!@,ð+€-‚‚%@+„-……%@@òF6Œ8€<„,--6Œ8€<„%@,->8€<„,@dB „F €ô @@$**** RESTORE .....S(1)›**6€-?:‘<@H<®%@2%@H$<ƒ, @ @ $**** COPY TO .....S(5)›5-@@5( Copy FN to what figure ? # 6Š- A @#6-Š$(**** EXCHANGE ....S(0)›*<-@@<(! Exchange FN with what figure ? , 6Š- A.6€-?:‘<@H<”8,<”8Š,,0 @ @€4$< **** SWAP ........S(37)›>+6-%@!@+6-&@ @€-@ B6„-?:‘<@H<”8€,<’,D&&6„-?:‘<@H<”8€%@,<”8€,,F'#6„-?:‘<@H<’<”8€%@,,' €H @€ @$P **** AN TO F .....S(35)›R7-@@7( AN to F choose which AN T 6Š- A6‚-6-ŠV4-@@4( Put AN=‚ where ?   X 6Š- A6…-6-ŠZ6€-?:‘<@H<“8‚,<”8…,,\ @$b$x**** COLOR .......S(8)›y'AA”'A@ z A`€6•-6—-‚B2y„(!-@%@$•@%—((*† F:Ad, @dA0‡ T:,"A@ˆ&6-R:,&"@AŠ(!-@%@$•@%—(( Œ1"@)"@'6•-@&•1 AŽ9!6—-—%+"@,&+"@,-—!@96—-— 6—-@’ A–$6‚-F:Ad,$AdAU˜‚"@@APœ A7$ 06…-²8—<•,%@%•$…!@06…-¢ (… 6²8—<•,-…¤,,³8—,@$²8—<,%²8—<@,¦ Aª(!-@%@$•@%—(( ¬! A4@ A€! A´*** COLOR MENU ****›¶'@‚@'-@@¸(((           Èõå Ìõí               º(((   Color 0   - ¼(((   Color 1   Inc ¾(((   Color 2   - Reset À(((   Color 3   - Â(((   Menu   Return Ä))(   Border    Ã Ï Ì Ï Ò  Æ A€$È **** PUT COLOR VALUES ****›Ê'@‚@'-@@Ì+€-@+„-@Î7!-@%@$„@%€/(²8€<„, 3 „7 €Ð@‚$Ð**** UNUSED KEYS GO HERE›Ò)6 - %@ !@)6 -@Ô""6€-?:‘<@<´%@@$ <µ,Ö €-A6@ Ø#2€@@# €Ú(%2($Û$4**** DISABLE BREAK ****›6)6€-F:@,&A(&€ )$8@€B7t€$ð **** OPENING SCENARIO ****›ú 6 AB6@@ D:HYPNO.2X3ü 5 6€-?:ª<@<A$<«<­,+@5 ABþ BB†A’ 5-@@5( - to BEGIN  +„-@@+€-@ ##6‚-?:‘<@H<”8@%€,<’, ##6‚-?:‘<@H<”8@&€,<ƒ, F:Ad, @dA(P  € „ +„-@@+€-@ 6‚-?:‘<@H<”8€,<’, 6‚-?:‘<@H<’<ƒ, F:Ad, @dA(P  € „ A( " #AdAU#6‚-®%@2$ €-@& 6„-?:‘<@H<‚<”8€,,( 6‚-‚%@H €* $T **** INITIALIZE CONTROL›V +X 5-@@5(  É Î É Ô É Á Ì É Ú É Î Ç Z  A! A@^ A2` A1b A3d A4f A0h A5j A6l 6 -@ A r A(š AA¤ '6-6-'6°-@ ¦ 6€-?:‘<@H<”8,<ƒ,¨ ! @€ @! @ ® $¸ **** PMG SETUP›º 6€-?:‘<AV<±<¶,¼ 6€-?:‘<AV<±<·,¾ 6€-?:‘<AV<±<¸, BBy¹&@Ä 9B2w@'AY@X9A#@4Æ 'B2V'B2WÈ 'B2X@'B2Y@Ì 'B2PA6'B2QARÖ 6‚-·%@&6†-ApØ 3€-@%6‚-‚%@36…-‚%AVÚ  ‚†…†Ü 6†-AU&† €Þ +‚&@(AU+…&@(AUà +‚&@aAU+…&@aAUâ +‚%@AU+…%@AU $ **** DLIST FIX›&  #A1PAY* )A`)Aa¹&@0 €-ºº%@62 "„ €„ €4 1º%@F:@ˆ,1º%@F:@‰,6 º%@6¹&@: 'A'A@< 'AY@4'BB†A’N 112,112,176,16,68,64,156›P 4,4,4,4,4,4,4,16,5,5,144›R 2,16,2,2,2,2,2,16,130,16›T 4,4,16,4,4,144,65,0,156›X **** TURN ON VBI›Z »;@,\ €-@@"„^ 6»7€<€,.>:„, €` 6¼-?:C:»,,b $d **162,6,160,107,169,6,32,92,228,104,96›€ !!**** DIMS + FIXED VARIABLES›„ ##²9@<@,³9@,ˆ 66Ž9@<@,9@<@,¡9@,Š ©;@,¨;@,Œ &&9@c,”9@,“9@ ,Ž 11™9@,›9@,¢9@ ,¤9@, ..Œ9@<@,¦9@ ,¥9@,” 46¹-F:A,46±-F:@ˆ,%AV$F:@‰,˜ 36®-+¹&@,$AV36«-+¹&@ ,$AVš @6„-«%@2%€-@.6”8€,-„<6„-„%@H@ €œ 6¯-+¹&@,$AVž @6„-¯%@2%€-@ .6“8€,-„<6„-„%@H@ €  6´-¯%A¢ -6’-¯%A 6ƒ-’%@H-6µ-ƒ%@H¤ -6š-ƒ%A6£-š%@-6ž-£%@ ¦ 6§-š&@¨ 6¶-+¹&@,$AVª -6½-¶%AV6·-½%AV-6¸-·%AV¬ @6„-¶%@)%€-@.6›8€,-„<6„-„%@@ €® >6„-A5#€-@,6™8€,-„:6„-„%@> €° :6¤8,-¶%A:6¤8@,-¤8,%@² >6„-@H#€-@ ,6¢8€,-„:6„-„%@> €´ :6¥8,-¶%@&:6¥8@,-¥8,%@2¶ O6„-@Q#€-@,6¦8€,-„=6¦8€%@,-„K6„-„%@O €¸ >6„-#€-@,6¡8€,-„:6„-@&„> €º 76†-@d#„-@7€-@¼ $6Ž8„<€,-†6†-†%@ €$ „¾ -6‚-±%@"-„-@@À =€-@$68€<„,-‚%€968€<„%@,-‚%€= € 6‚-‚%@@ „Ä 6³8,-A‘-6³8@,-AB6³8@,-A W6³8@,-Al6³8@,-A6³8@,-AÆ / 6ª-½6­-@!6¬-@/6‘-½%@GÈ 6‰-½%@rÐ 6º-+¹&@,$AVÚ $ä **** LOAD CHARSETS›î 6©. D:ANTED.SET @ð @@©ò 6¼-?:ª<@<A$<¯<­,ô @6©. D:ROM.SETö @@©ø 6¼-?:ª<@<A$<®<­,ú +@+@@©ü 6¼-?:ª<@<A$<«<­,þ +@+@@© 6¼-?:ª<@<A<¯<­, @ BB†A’ $H **** FIX COLORS›R A‰F:A ,T AF:A,V A‘F:A,X A@HZ A@0\ AA^ AA d A4@f $p **** RESET COLORS ****›r #A4Ft B€-@+„-@/"‚:6²8€<„,-‚> „B €v 0,0,4,8,8,4,1,10,12,2,1,4›z €-@| 0,³8€,@$²8€<,%²8€<@,0 €~ $¬ **** LINKAGE›¶ *€-@c&68€,-A * €¸ B68@,-A-68@,-A B68@,-A@º B68@,-A`-68@c,-A€B68@!,-A¼ B68@,-A-68@X,-A0B68@B,-Ap¾ B68@V,-A-68@a,-A B68@W,-A@À B68@,-A`-68@,-A€B68@,-A B68,-A -68@7,-A@B68@5,-A`Ä 68@,-AÞ $**** FILL SCREEN›'AR@'@‚%%6±-F:@ˆ,%AV$F:@‰,6‚-±%@A6„-'€-@@2@'6…-‚%„  …€…%@@€%@"/…%A`€%@0/…%A€%@1$6„-„%@ €&6‚-±%A6„-('€-@@b@'6…-‚%„* …€…%@@€%@,/…%@€€%@`/…%A €%@a.76„-„%@„"@+6‚-‚%@76„-0 €26‚-±%@6…-‚%A`43€-@%‚@€%€3…@…%€6#6‚-‚%@6…-…%@# €8+6‚-±%A!6…-‚%@@+6„-@:-€-@)‚%€„-6„-„%@< …%€„6„-„%@ €>+6‚-±%@6…-‚%@@+6„-@@/€-@‚%€„/‚%@€%€„B1‚%A%€„#‚%A5%€„16„-„%@D+ …%€„…%@€%€„+…%A%€„F%…%A5%€„!6„-„%@% €H+6‚-±%@66…-‚%@@+6„-@–J/€-@‚%€„/‚%@€%€„L1‚%A%€„#‚%A %€„16„-„%@N+ …%€„…%@€%€„+…%A%€„P%…%A %€„!6„-„%@% €R6‚-±%@!6…-‚%@T/€-@#‚A/…AV#6‚-‚%@@6…-…%@@# €X-6‚-±%A6…-‚%@-6†-…%@Z%€-@%‚%€@e\#…%€@f†%€@g# €^±%Au@ib A7P A7d$t**** MAIN MENU ****›v-@~))(!  °  ±  ²  ³  ´  µ  ¶  ·  ¸  ¹   €))(!  Á Edit  Æ Animate  Ë Copy to ‚))(!  Â Next  Ç Inc AL  Ì Exchange „))(!  Ã Save  È Clear  Í Swap †))(!  Ä Load  É Clear S  Î AN to Fig ˆ))(!  Å TopL  Ê Restore  Ï Colors Š))(!                                 ¤$¦**** RIGHT EDGE MENU ****›¨'@‚@3'-@3@°( ÁΠÆβ(     ´(      ¶"(      "±%AVA ¸6(      "±%A•A"6±%A—A#º"(      "±%A6A!¼(      Æ@‚È6‚-±%A9Ê5€-@#‚A(16‚-‚%@@5 €Ì$ **** START-UP TRAP ****›¢AdAUª1 +AA”1AR@¬!(!(  ÓÔÁÒÔ­ÕР  ÅÒÒÏÒ ®*(*( ANIMATE.BAS must be RUN first°(( -to try AGAIN´ F:Ad,"AUA@ ¶AdAU¸%**** MISC TRAP ****›AdAU1BB†A’'A@1 AA4-@@4(   ÕÎËÎÏ×Π  ÅÒÒÏÒ   7-@@7(¼áîù¾ ­ ôï áôôåíðô ÒÅÃÏÖÅÒÙ  ABPh**** I/O TRAP ****›jAdAUl'A@P'A@r*@ A@‡* AAtBB†A’v+-@@+(  É¯Ï  ÅÒÒÏÒ  x.-@@.( ¼áîù¾ ­ ôï ÒÅÃÏÖÅÒš26€-F:A,%@&€!@26€-@œ,A€,F:Ad,"AUABPžAdAU ! A7 A7P! @€¢$€ D:ANTED.BAS