„…Ý!/!ANS¤CL¤CL1¤SB¤SB1¤CR¤ØÁÂËÈÙEÔÔCÌT²CL±ÒÉÖLÇDÌÌÓADDREÓÐÄSCRÎÚMODÅIÏJNËÕWEAV¤AÄMOÖFROÍTÕÎADØADHÉADLÏLOÄ(+(STU@@ @I @ A AT @@@@@@@AA@A6@AB1AdB@ !V"#$%&'B‘(@t)Ai* COLOR INKLE LOOM›GERALD M. HAGOPIAN› (c) 1985, ANTIC PUBLISHING›(RR€;@,;@@,‚;@@,ƒ;@,„;@,…;@,¡;Av„,2;6¡7@,.#6¡7Av„,.¡26¡7@,.¡;6§-C:¡,<6ª-F A  A €P A 0Z%%6›-F:@ˆ,%F:@‰,$AVd'6†-6‡-@'6ˆ-@nNªN6Ÿ-?:C:.hh…ñh…ðh…Õh…Ôh…ïh…î ±ð‘ÔæÔÐæÕæðÐæñÆîÐêÆïæ`,<§<›<Av€,x'ª'A@:¡7Av<Av,,‚Gª‹-AA9‹@:¡7‹%Ait<‹%Ait,,= ‹G APŒ'A@'A@4–‰-@@y#‰'@Q2AU&+‰$@,@@],‰APi/‰A`m ‰2  A€AY@4ª A´F-"(>:A%,4AR@FA@4¾0-(%A B C D E F G H I J K L M N O0$ÈLOOM SET UP›Ò.@.@@K:ܪ6ª- Aæ A€ A0ën-@8(Number of threads per harness?I( (LIMIT 39) MŠP(nŠ @)Š!@9A0ð B A€úK-@*(SURE? (Y/N) 7)@‰K‰@‰A0O6†-@6‹-%@+,†‹1/Š‹7,Š‹A@O/Š$@‹HARNESS SET UP›@@.@@K:@AR@"'6†-@6‹-'6Œ-@,-@Š6| A€-@;(Harness #1: Thread # Q( Color Selection?^)@‰|‰ @d)‰!@yA@ A€J6Ž-‰&@dT67<,.>:‰,^'†-††%@Ž,†‹#/†Œ' †he-@*(Color OK (Y/N) ?7)@‰C‰@‰Q6†-†&@e‰@‰Ar |)6†-@6‹-@)6Œ-‹%@†-@Š| A€-@;(Harness #2: Thread # Q( Color Selection?^)@‰|‰ @d)‰!@yAš A€¤6-‰&@d®6‚7<,.>:‰,¸'†-††%@,†‹#/†Œ' †Âe-@*(Color OK (Y/N) ?7)@‰C‰@‰Q6†-†&@e‰@‰AÌ ÖC-1(} Press START to weave.CB2y@à F:B2y,@A€êB2y@ôWEAVING ROUTINE›þ/-/(} WEAVING‰-@@y!O2AU&+‰$@,@@[,‰APg/‰A`k ‰2'6†-@6‹-'6Œ-@#‘-@@#6†-@&’-@Š06ƒ.7’<’,:6Ž-@:ƒ,&@dDT†-††%@@2H:@,$AU@@DŽJ,†‹P/†ŒT †N)%2) ’X+6†-@6‹-Œ%@+6Œ-‹%@b’-@Šl6ƒ.‚7’<’,v6-@:ƒ,&@d€T†-††%@@2@H:@,$AU@@DJ,†‹P/†ŒT †ŠE%2@) ’76‹-Œ%@E6Œ-‹%@” ‘žJJ6Ÿ-?:C:.hh…ñh…ðh…Õh…Ôh…ïh…î ±ð‘ÔæÔÐæÕæðÐæñÆîÐêÆïæ`,<›<§<Av€,¨&&6¡7Av<Av,.>:F:A,,²4†-Av‚Av„06¡7†<†,.>:F:†&Ait,,4 †¼VALUE CHANGE OF WEAVING›ÆQ0((}Do you wish to change the value? (Y/N) =)@‰Q‰@‰A€Ð A0Úf;(3}Type a letter between A (darkest) and O (lightest)H)@‰f‰ @e)‰!@yA0ä6“-‰&@dîY6‡-F:A,A“4(}Value OK? (Y/N)A)@‰M‰@‰YA‡ø‰@‰A0 B R(}Weave again? (Y/N)()@‰4‰"@‰> A0R‰"@‰AD(}Return to menu? (Y/N)+)@‰7‰"@‰:'D A ?(} Leave program? (Y/N)+)@‰?‰@‰A€*C(} Sure? (Y/N)*)@‰6‰"@‰@+C4TITLE ROUTINE›>1+@%@@1-H}”-@8(@ª*ª*ª*ª*ª*ª*ª*ª*ª*ªL•-@@0y2H:@,$A@@} •Rm$(@*ª*ª*ª*ª*ª*ª*ª*ª*ª*8•-@@0e2@H:@,$A@@i •m ”\´•-@A •=2_2@2@@–@@“-@´(@ THE fr•-@A •=2A!@@O-@r(@ COLOR LOOM p-zp•-@A •=2@@@@O-@p(@ BY GMH „–-@A –Ž7—-@32—7 —˜$¢SET UP TEXT WINDOW›¬vBB†+@1@‡@CA#A’sF:A`,%AV$F:Aa,%AfACv#¶b6˜-A6!BB†@d5‰-@9"™A˜%‰™E ‰V6™-P:˜'AV,bA™ÀnA˜&AV$™+BB†A’n72,173,111,2,41,63,141,10,212,141,27,208,169,0,141,26,208,104,64›Ê$Ô MENU›ÞE+@%@'-@@E(@ *ª*ª MENU ª*ª*èš-@A šò1 +AR@1AAü.-@+( MENU.($$( 1 CREATE NEW WEAVING( 2 SAVE WEAVING""( 3 LOAD OLD WEAVING$( 4 LEAVE PROGRAM.(( Selection ?8.@.@@K:B.)@‰.‰ @I)‰!@RAL6‡-‰&@HV''‡@€A0A€A` AjSAVE PATTERN›tI( (I(; Save to: 1..CASSETTE 2..DISKETTE~.)@‰.‰ @I)‰!@PA@ˆ‰&@HApA’R(!(Place tape in recorder;(Press RECORD and PLAYR(Then type  ÒÅÔÕÒΠœAdAUž F:Ad,@A‚ AdAU¦-#@@A(C:- A°d( (0("Insert diskette and press  ÒÅÔÕÒΠ=)@‰d@@ D:WEAVINGº$( ( ($(  ÓÁÖÉÎÇ ÐÁÔÔÅÒΠÄ$6¨-P:§'AV,$6©-§&¨$AVÎ6-F:@‡,Ø?6ž-Ad#ž%@@1ž%@©?ž%@¨â+ž%@@+ž%@ @0ì*6Ÿ-?:C:hhhªLVä,<@2,*@ö$LOAD OLD PATTERN› K( (K(=Load from: 1..CASSETTE 2..DISKETTE.)@‰.‰ @I)‰!@PAAR@(‰&@HA0Ap2#( (#(Insert and queue tape<##(press  ÐÌÁÙ , type  ÒÅÔÕÒΠFAdAUH F:Ad,@ARJAdAUP-#@@A(C:- A Z0( (0("Insert diskette and press  ÒÅÔÕÒΠdAdAUn F:Ad,@AxAdAU‚**@@ D:WEAVINGŒ%( ( (%(  ÌÏÁÄÉÎÇ ÐÁÔÔÅÒΠ– A 0 $6¨-P:§'AV,$6©-§&¨$AVª?6ž-Ad#ž%@@1ž%@©?ž%@¨´+ž%@@+ž%@ @0¾*6Ÿ-?:C:hhhªLVä,<@2,*@È##A@:¡7Av<Av,,ÒK†-AA5†@:¡7†%Ait<†%Ait,,9 †KAYÜ6ª-@' @æERASE WEAVING AND RESET›ð!!(} ERASING OLD PATTERNú5 -@@@$67 < ,.@16‚7 < ,.@5   6ƒ. 6„. 6…. '6†-@6‹-'6Œ-@#‘-@@#6†-@"’-@Š,6ƒ.7’<’,66Ž-@:ƒ,&@d@T†-††%@@2H:@,$AU@@DŽJ,†‹P/†ŒT †J)%2) ’T+6†-@6‹-Œ%@+6Œ-‹%@^’-@Šh6ƒ.‚7’<’,r6-@:ƒ,&@d|T†-††%@@2@H:@,$AU@@DJ,†‹P/†ŒT ††E%2@) ’76‹-Œ%@E6Œ-‹%@ ‘š$€D2:INKLLOOM.BAS€ABCDEFGHIJKLMNOABCDEFGHIJKLNO