z*‘*PM¤TOPÌC´YÌC¸XÌC°SIZÌRP¤C±C²YÒXÒSIZÒTOPÒTOPÃSIZÃFRËLDEÄAREÁDIÒRÔØOSEÔBOSEÔC¶ROSEÔWOSEÔCKFLÇFRKC¤FRKL¤BODYC¤BODYL¤RACKC¤RACKL¤STËUÐDÎLÔÁAADÒBADÒC·ÙCADÒLPADÒRPADÒTEMP¤LP¤C¤ÐB¤PITCÈÊC³BLNK¤CµFRKR¤RACKR¤BODYR¤DADÒPICËC¹MTCH¤CNÔLINÅËÌWD¤ÑW¤F¤TADÒFADÒPÍVVTÐSTARÐOFFÓHÉLÏDOCK¤A¤€€ €€€€ €!€"#$%&'()*+,-.€/€0€12€3456€78€9€:€;<=>€?@ABC€DE€F€GHIJKLMNO€P€Q 0€;@,0*** ENTER THIS LINE FIRST ***›*************************›* FORKLIFT *›(* S. OCKERS *›2* 10/84 *›<*************************›F))ACE Newsletter, 3662 Vine Maple Dr.›P&&Eugene, OR 97405 Nov 84 $12 year›d +@-@@5(@FoòËLiÆôG-@@d(@ÁÔÔÁÃÈ ÊÏÙÓÔÉÃËv-@@(@ INITIALIZINGnY-@@3(@takes 23 seconds= A@OAYY A0Æ›Ç *** STARTING POSITIONS ***›È7 A 6-‚6ƒ-$„!6…-†-6‡-@7 A Òx6ˆ7‰,. 6ˆ7@˜,. (6ˆ7Š,.ˆ46‹-@@6Œ-@3F6-„P A 0\6‹-@€f A 0xA@fÜu6Ž-@6-@!6-†'6-†36‘-@–96’-†?6“-ŠE6”-•K6–-†W6—-@X]6˜-™i6š-@tu6›-@‰æ% 6œ-†6.ž6Ÿ. 6¡.¢% A *›+*** MAIN LOOP ***›, 6£-R:†,. 2‰†††6??“AAPAA A0APA† AŽ›!!*** AREA #1 - LEFT EDGE ***› £"¤ APš +£"¥, A¤1 £"•6“-Š+2Š@`@@16”-•®$À›Á*** AREA #2 LEFT PILE ***›Â ”"¦ AÌ ”"• APÖ$ò›ó*** AREA #3 CENTER ***›ô £"¤ Aö £"¥ APø £"¦6“-Š6”-¦ú £"•6“-‚6”-•ü$›*** AREA #4 CENTER ***› ”"¦ A  ”"• AP $""*** AREA #5 RIGHT CENTER ***› £"¤ A £"¥ AP £"¦6“-‚6”-¦ £"•6“-™6”-•$$›% *** AREA #6 RIGHT PILE ***›& "™*œ"† A5+ ”"¦ AP0 ”"• A:$V›W""*** AREA #7 - RIGHT EDGE ***›X £"¤ APb £"¥ Al £"¦6“-™6”-¦v$‚›ƒ *** MOVE FORKS & WORDS ***›„$6€7‘%A#,.$B2P–$‚%—†26€7A,.¡"B2Q–$‚%š2B2I–$‚%›‰$$6§-?:¨<–%˜<A <©<@5<ª,Ž ’"† $“6§-?:¨<–<«<¬<$ª<ª,$–›—*** REPLACE LEFT PILE ***›˜ ‡"† $6§-?:¨<…<ƒ<­<‡$ª<ª,$ ›¡ *** REPLACE RIGHT PILE ***›¢ "† $¬6§-?:¨<Œ<‹<®<$ª<ª,$æ›ç!!*** LOAD FORK LEFT PILE ***›è 6¯.°+‘'„ %Š,$í ‡"† $ò6 6’-‰6±7„,.°6-‘'„&%Š.6‡-@&‘'„66-&‰ü/ 6²-$ª&ª6±7²,.³‡!†/6°.¯7+‘'„&,$ª%‰,> 6-‘'„6ƒ-$„%A@p16´-@P; A>$›*** MOVE UP LEFT SIDE ***›)2‰A @„’"†) A$+‘'„&,†$.S 6«-$„µ-‰@!6«-«&‰)6‘-‘&‰3 A = A I‘!A(S A8 µ6-&ŠB$J›K!!*** MOVE DOWN LEFT SIDE ***›L"2‰A0@„’"†"$V +‘'„", AP$`S 6«-$„µ-‰@!6«-«%‰)6‘-‘%‰3 A = A I‘!A(S Aj µ6-%Š$|›}*** UNLOAD LEFT SIDE ***›~ ’"† $ˆ- 6¯.±7„,‘'„ @-6¯7$ª&@,.°’T 6°.¯6‡-‡%&Š6-%‰#6ƒ-$„)6’-†;A@fG6´-APQ AT$®›¯*** MOVE LEFT AREA #2 ***›°82Š@@™%‘'„!*’"‰+6”-•5 AP8$µ"‘!AD6”-• AP"$º –"†6“-‰2Š†††$Ä+ 6–-–&‰ A !‘"AD+ AÎ ’"‰ A Ø$à›á *** MOVE RIGHT AREA #2 ***›â22Š@@™–"ª%6“-¶/2Š†††2$ì 6–-–%‰ A ö) ’"‰ A ‘"AD) A$›*** GO UP CENTER ***›,2‰A @„)+‘'„&,†*’"‰,$‘@2$:µ-‰@6«-«&‰!6‘-‘&‰+ A / µ76-&Š:$D*** GO DOWN CENTER ***›F*2‰A0@„'+‘"A`,*$P:µ-‰@6«-«%‰!6‘-‘%‰+ A / µ76-%Š:$v›w*** GO LEFT CENTER ***›x22Š@@™–"™%6“-¶/2Š†††2${–"@#6Ÿ.· A |–"@!6›-6@@}9–"@6—-@X!6˜-™'6.ž-6¡.¢96š-@f~–"@6š-@t!–"@6Ÿ. !6›-@‰‚ 6–-–&‰ A $¨›©*** GO RIGHT CENTER ***›ª82Š@@™%–!@%+6“-¸52Š†††8$­–"@6Ÿ.· A ®(–"@6›-6@D(6š-@d¯4–"@6—-@I(6˜-6@.6.¹46¡.º°–"@6š-@B±!–"@ 6Ÿ.»!6›-@&´ 6–-–%‰ A $Ú›Û *** MOVE RIGHT AREA #6 ***›Ü82Š@@™%‘'„!Ž*’"‰+6”-¦5 AP8$á‘!AD6”-¦$æ"–"@36“-ª2Š†††"$ð+ 6–-–%‰ A !‘"AD+ Aú ’"‰ A 0$ › *** MOVE LEFT AREA #6 ***›>2Š@@™%– @&+6“-¸16œ-†;2Š†††>$+ 6–-–&‰ A !‘"AD+ A" ’"‰ A 0,$?##*** LOAD WORDS RIGHT PILE ***›@ 6¯.ˆ+‘'„ Ž%Š,$E "† $J6 6’-‰6±7„,.ˆ6-‘'„&Ž%Š.6-@&‘'„66-Ž&‰T/ 6²-$ª&ª6±7²,.³!†/6ˆ.¯7+‘'„&Ž,$ª%‰,^> 6Ž-‘'„6‹-Ž$„%A@p16´-@P; A>$p›q *** MOVE UP RIGHT SIDE ***›r)2‰A @„’"†) A|+‘'„&,†$†S 6«-$„µ-‰@!6«-«&‰)6‘-‘&‰3 A = A 0I‘!A(S A µ6-&Šš$¢›£""*** MOVE DOWN RIGHT SIDE ***›¤"2‰A0@„’"†"$® +‘'„"Ž, AP$¸S 6«-$„µ-‰@!6«-«%‰)6‘-‘%‰3 A = A 0I‘!A(S A µ6-%Š$Ô›Õ*** UNLOAD RIGHT SIDE ***›Ö ’"† $à- 6¯.±7„,‘'„ @-6¯7$ª&@,.ˆêT 6ˆ.¯6-%&Š6Ž-%‰#6‹-Ž$„)6’-†;A@fG6´-APQ AT$›*** DING ***›5µ-@‰6‰$2†´@µ( µ22††††5$8›9*** CRASH ***›:5µ-@‰6‰$2‰A„µ( µ22‰†††5$j›k*** PRINT THE DOCKS ***›lJ"6§-?:¨<†<AE<¼<@<™,G6§-?:¨<@4<AE<¼<@<™,J$ΛÏ*** SET UP WORDS ***›ÐR6°. _____       )6°7@˜,. 86°7@,.°B#A!R6½-P:H:†,$¾,%‰Ú/ µ-‰½"¿ µ6À-†/µ-¶@‡@ä6Á-P:H:†,$¾,%‰åH:†, ?36Á-½æ7#A!%@$Á'6Â-P:H:†,$¸,%‰/Ã-‰Â3"Ä7 Ãè(Å-¶µ@(Ä4°7Å<Å%Š,A ê Åî Á"½6À-À%‰À!¶A øµ"@1*À"†A úµ"@Y*À"‰A üµ"@‡*À"ŠA  6°7µ<µ%Š,.Ä µW(>:A%,AV†.AW@"E(get 3 _¿ wordsWAY@b*$4 AN,ED,AT,OT,UN,AD,AG,ID,AP›>CAN,PAN,RAN,FAN,MAN›HBED,FED,LED,RED,WED›RBAT,CAT,SAT,FAT,RAT›\HOT,POT,NOT,LOT,ROT›fBUN,GUN,FUN,RUN,SUN›pMAD,SAD,LAD,BAD,HAD›zBAG,SAG,TAG,RAG,NAG›„BID,LID,HID,DID,RID›ŽCAP,LAP,SAP,NAP,ZAP›¶ ›· *** INITIALIZE ***›¸ {6†-6‰-@'6Š-@36¶-@?6‚-@K6¸-@W6™-@c6ª-@o6„-@{6¾-@  @@°;@˜,ˆ;@˜,±;A,¯;@˜,Æ;ª,³;ª,Ç;¾,Ì g 6­-C:°,6®-C:ˆ,6¬-C:±,'6È-C:¯,06É-C:Ç,A6±7@,. R6±7A,. a6±7@,.±g6³.±Ö -6¤-@6¥-@'6¦-@-6•-ªê `+„AY†*6Ê-F:A,&@@6BByÊBB2X‰TAAf`B2w¶ô g%6Ë-F:A4,%F:A5,$AV.6Ì-C:€,F6Í-Ê$AV%A$&ÌW6Î-P:Í'AV,g6Ï-Í&Î$AVþ + Ë%ŠÏË%¶ÎË%¸‚#Ë%™†+Ë%ª‚ *6€7‰,.>:†,!6€7A$,.>:†,*6€7Š,.€ V&ž;@ ,¹;@ ,;@ ,4µ-Š@@6ž7µ,.>:‰,R6¹7µ,.>:A(,V µ cµ-@@)6ž7µ,.>:AU,;6¹7µ,.>:AU,? µQ6ž7@ ,.>:†,c6¹7@ ,.>:†, -A@2!A#‰-¿;Š,Ä;¶,& E ;@5,·;@5,E6 .# ™   ™          Š ˆ 0 N»;@5,Ÿ;@5,E6».#              Š ˆ N6©-C:Ÿ,: T6·7‰,. 6·7@5,. (6·7Š,.·<µ-@4A”P6€7µ<µ,.>:AU,T µD 5+A,@B)B2HA5B2V¶N [&¢;A`,º;A`,¡;A`,86¢7‰,.>:A’,J6¢7Š,.>:@d,[6¢7AP,. X > 6¢7¶,.¢6º7‰,.>:¶,$6º7Š,.>:Š,56º7AP,. >6º7¶,.ºb 7 #A1€!µ-APA`%"§36¢7µ<µ,.>:§,7 µd 7 #A1‚!µ-APA`%"§36º7µ<µ,.>:§,7 µl $$8,28,62,54,99,99,99,54,62,28,8›n --16,56,124,108,198,198,198,108,124,56,16›v A‚€ C #A2!µ-ADAP%"§36€7µ<µ,.>:§,7 µCA‚Š 8,28,62,62,62,28,8›” 6Ð;@,#6Ð.       ||||||,6¼-C:Ð,6 Až %%6§-F:A`,%AV$F:Aa,¨ $F:§,@f6§-§%‰$ A2@² '§@p§%¶™§%‚™'§%¸™ä $ª ›« *** CHECK FOR DONE ***›¬  6À-†6œ-‰6´-@@¶ @@ˆ7‚<¸,4¿*ˆ7@<@,4¿*ˆ7@2<@3,4¿A5PÀ $Þ Z Â-†¾AV†)AW@"@( great job!!! P6´-A&¸$ÂZ Aè NAV†!AW@"8( FÃ-†@J ÃN Âü fAY†6Ÿ.·66§-?:¨<–%˜<A <©<@5<ª,f6€7‘%A#<‘%AB,.€7‘%AC<‘%Ab,' Až›Ÿ*** GR. 8 ROUTINE ***› PÑ;AW,#A@.µ-@AW2"§@6Ñ7µ<µ,.>:§,D µM6¨-C:Ñ,P$ª^^216,104,104,104,133,203,104,104,133,204,169,0,133,205,6,204,38,205,6,204,38,205,6,204,38›´__205,165,204,24,101,88,133,206,165,205,101,89,133,207,6,204,38,205,6,204,38,205,165,204,24›¾dd101,206,133,206,165,205,101,207,133,207,165,206,24,101,203,133,206,141,133,6,165,207,105,0,133›ÈYY207,141,134,6,104,133,213,104,133,212,104,104,141,129,6,206,129,6,104,104,141,131,6›Ò^^169,0,141,132,6,141,130,6,169,0,141,128,6,172,130,6,177,212,16,5,206,128,6,41,127,201,32›ÜXX176,5,24,105,64,16,7,201,96,176,3,56,233,32,133,204,169,0,133,205,133,208,6,204,38›æ]]205,6,204,38,205,6,204,38,205,165,205,24,109,244,2,133,205,164,208,177,204,77,128,6,172›ë132,6,145,206›ðTT230,208,165,208,201,8,240,15,165,206,24,105,40,133,206,144,227,230,207,208,223›úii144,160,238,132,6,238,130,6,206,129,6,48,43,173,132,6,205,131,6,208,22,169,0,141,132,6,24,173,133,6›bb105,64,141,133,6,173,134,6,105,1,141,134,6,173,133,6,133,206,173,134,6,133,207,24,144,200,96›€D2:FORKLIFT.BAS