ROTPAGESZ EPRG formatted GEOS file V1.0!!!!!9Q))FLinker .obj V1.04m  /Rotates, clips and prints two "PAGE xy" files per page in batch mode.9  @/, N `O < P L`P``.  w m  i8& 75 6  m 4 <    ¥   8 ` 4 m 4L<5 6  8   `L<` `` 9Dž  ? $      `~ʽ. 8       H HHH    © hhh h `   s t­ © ŽP" Ž x w`SCREENFILE0h!!!!!!UILL^_F@FF"LI,pHpqppqʝhpppipqLCLI$hpH uvu`EXECUT_LBRANCȀpepHȱpeqqhpLH0BRANCț(pipqLF(LOOP hhhhL(+LOOP HH}h}hL (DO S HHHHLFJ % DIGIj z 800 08 0 HL?HL?(FINDp  nvQx)?2ȱvQx (ievewvHL=ȱvȱvȱvwvvаHL=ENCLOSţ   n8ȱxvxLFxvߘLFEMI YKE_ u?TERMINAh Cp CMOV~  nvwLFzx{yL U vw>>>v}w}}LFU Hh Hh*v>>8>>vLe AN P =H=L?OH i HL?XOb ]H]L?SP{ HL=SP rLFRP rLF;Ӵ hphqLFLEAV LF> HHLFR  hhLF % HL=0 ;  LFLF04 ` *LFY u }}LFDo }}}}Lc MINUӍ 8LFDMINUӼ 8L OVE HL=DRO e SWA  vwvwLFDU E HL=+= V vwqvvqvvLc TOGGLO  vwv]vLc t vwvHȱvL?C vwvLF vwvȑvLc C vwvLc S  gqHpHipeqLF ,  CONSTAN/,gHȱL=VARIABLALgiHeL=USEcLgerHesL=VVVVB̵V C/̽V@FIRSVdLIMIVyB/BUVB/SCV+ORIGI*s TI WIDT WARNINFENC(D5VOC-LIN@BLHIVOU_SCgOFFSEpCONTEXy CURRENԅ"STATŒ$BASş&DP̪(FLĴ*CSн,R.HL01s 2s HERE ALLOET   C  ) s :>9 UF>^ Re8HhPILe Le _ c ROԍ    SPACřf -DUЫC C TRAVERSŻ s f c  LATES LFf> CF> NFf>* PF$fs !CS9  ?ERROL 1 ?COM] 9 ff ?EXEx ff ?PAIRӏ>ff ?CSФ  >ff ?LOADINǸ\ 9 ff COMPIL C    f SMUDGf } HE#f DECIMA7f  (;CODEH ? ;COD]g ,  > > (."# C  s  .Ff" M   EXPECa s Q n C f  J f n JC  >s >'C f J  C n n  f  QUERُ fPd \ *\T d \   9     FIL C  > ERASV] BLANKu] HOLą*T  PAĖfDs WORį\  \ = d s   f"dT > #  s  UPPE s  Q n f`n f{c n f }  (NUMBER C  x ,     T   NUMBEEC  f-JC s * PC >C f.>f   -FINĒ C 9    (ABORT ERRO2 ^ #M ?    d \ R ID)f_f ]C ?  > fN  CREAT`fs Wf *ffC % :E fJC f} >f}   [COMPILEݑ9 f  LITERA * DLITERA  %% ?STAC7 fWf fWff INTERPRET c ] B %]IMMEDIATxf@} VOCABULAR* S S  FORT IDEFINITION  $f) QUI>\  iF 9 MOK ABORK R MStudent Forth 1.02RCOLy   !rs rqpةlL S->ĦC ^ +^  D+^  ABC  DABC  MI%   MA4 c  ML     Md ,#   #      /MOĨ     MO */MO i  *  M/MO #    UStlPRE$td+BU.*s C J C 5 > UPDAT95 *g 5 FLUS`>fs Q * k EMPTY-BUFFER >} DR DR* BUFFE* C @* # ^ # # *N # # 5   BLOC s 5 C # >C s 4@9  # C # >C # >C s 9 C 5    (LINE5  s =s  .LINŕ MESSAGŸ2 f > MMSG # ~ LOA\ d d \  d  \ --d \ >\T 8qrrȩqrr aLe `L ¦L aLF-DIS7 LF-BCĨf fg R/׼* * *  9 f % FORGE*C = Wff S # W2 C S C f>?  C # W > 9  E BAC > BEGIv ENDIƇ > THEΙ DϵQ  LOO} +LOO } UNTI} EN AGAI} REPEA  (  > I6 ELSS  WHILhX SPACEӉR Q  < #    > SIG^ f-  f cfs f0s  # g 9  D.  ,$ > D6< .Z  < i_ z ~ LISԆRC v MSCR # ~fQ n nn v  INDEؒ  Q n nn |  f f TRIA s  Q n  f f f VLIS fm  m  m C f?  C 9 | g  SETPATTER<  9Le PIXE̅  J8 3Lc ?PIXẸ  ?*L DRLIN !   iJ8 0LFREC ;!   i $LFFREC2!s!   Hi h 'LFCHARWIDTi!!. LFSTRINGئ!VSTRING!VXPO!V YPO!V GETFIL!" ŠL INITFORPRIN!%" yLFPRINTBUFFE"A" yLFSTOPPRIN1"[" yLFPRINTASCIM"v" yLFSETNLg"" yLFSTARTPRINԂ"" yL STARTASCIə"" yL GETDIMENSIONӵ"" yHL=DONEWITHI"# _®LFINITFORI"# \®LFJS #/#Hh Le CAL'#M#q#r#HHh( HhhLFREADBYTD## LFNEXTRECORċ## zŠL TRACKSECTOҪ#VDISKBLOC#VPOINTERINDE#VDISKBYT#VDISKERRO#VGETBLOC $'$  i L FINDFIL$Y$ ŠLFSAVEPTRL$$    LFRESTOREPTRw$$    LFTHRե$ Q  Rn ~ n |   CREAT$ SETDEVIC%$% ŠLFOPENDIS%D% ŠL FILTERPAG7%`% ! < 0 (   !бLe GETQ%% L  GET%% ? L  Ņ   нйBY%M&L,‚SE& SP& SCHAg&C * c  * C *~ * f DUMЂ& = Q C l&C *Q C U& *Q C & |  *   DEPTȸ& * > .' %'& >*Q *n s ~*  MEmpty SHOW_NAM7'C  *s *  SHOW_NAMEu'*Q n *  s ' GETDIRHEAģ'*G-# SHOW_ENTRIE''* * * * *%$ *'* 9  SHOW_OFF_PAG''* * *%$ *' DI0( @(' GETPDRIVE`(*e*  "C 9  Mdisk error message ~ SCREENBASp(VPBP(%ALLOT 71PBP(%ALLOT P/U+V@SENDSCREENBIT-\+* (--s ]*Q ( (n *@s (- ?" LLIS-*f - LTRIA9.}(#""Y"C A.C A.A.Y" POSITIOO.! *s ! CARDROz.-(s MOVEROי.. . - SLINů. n DO.*Q .     4LINE.*f *P. .  . MOVE/* .*.* .*.* *.**.* *.**.**.** . SEND,/\+* ( ?"(--s s  ?"(-*s  ?"(-*s  ?"(-*s  ?" 2ACROSӔ/*Q n n  /4//*   SCRNHD/*f \+* ( ?"*P. MSCR # n*`.MSCR # n* .* .* .* .\+* ( ?"(--s s  ?" 6LIS,0C  60 0 s C  60 0 s C  600 CUR_DIR_HEAĸ0VYEA0VMONT1VDA1VHOU&1VMINUTE01VOFF_DISK_NAM;1VPGHDI1*f *P.M#Student Forth SCREENFILE from disk 1Y1s *Q C n s C *J  f  M, on 1 n*/f "1 n*/f ,1 nM @ 71 n*:f E1 n CRTOGGL]1tPRT2}(#""Y"* 2 *8* e1\+* *. ?"* . ?"* . ?"0 2 * Y" ASCI$2 % WITHI΍2 > > W BETWEEΥ22 =OҾ2  Jg CAS2C O2X EXI2  FALS3VTRU3VINV_RECOR3VINV_TRAC&3VTA73V BFR_OVERFLOG3V CAR_REQ3V NEWCARDSEd3VESC_RULEr3VESC_GRAPHICӃ3VPAGE_BREA˓3V EOƦ3VDISKBLKBUƷ3VFILEHEADE3VCURDIRHEA3VFILETRSCTA3VDIRENTRYBU3VR4VR4VR1!4VR*4VR44V R=4V RF4VBYTECOUNTEO4tCHARCOUNTEX4tPAGECOUNTEj4tVERSIONHEADE|4tMAXPAGEӎ4tSTARTPAGŢ4tENDPAGű4tPAG4tTEXTBU4tlFN4%SAVEFORTHGETNAM4 Mtype file name and return 4*]4* OPENVLI54 *tK#    CLOSEVLIF5*w-# PREVIOUSRECORo5*}K#   NEXTRECORą5*zK#   POINTRECORİ5*K#   READRECOR594 T4 *K#   GETPAG5>4Q5C {5M open error # ~ 5C '{5Mrecord pointing error # ~ 4 * 6 9  4 {5 STRI,6 d s ]dT FILTERTEXԳ6 d s 2*  dT 32M3Jn32  6323J  *6323J  *6323J  *6323J 3 d s 3 FILTERPAG666 d 4  d 6 d s 9  d s   d   TESTFILTEv7 d  d 6 d   7 d s dT C 9  *{Jg  PAGECOMPIL 8 d 4  = d 8 d   PAGECOMPIL68D8 TEXTLOAx84**>Q n ~*=s J9 *=@ >4 n 78|   ROTCARĎ88xj>8XLFPUTIT+8V 9ROTCO9"9 * *Q 8*@*T *"9T  COPYRIGHT&9MHank Wilkinson 1990 ENTRY/EXITDIS]9tRÄ́9tDIS˙9tGOBYţ9*'Q 9 "% B% K& #PRINTEĮ9tPAGECOUN9tPI9VUPICPT9tPICADDRES99: s PIC :: NEXTPICPT#::T RO2:Vh]ROWPTI:tROWADDRESS:O:\: s ROW`:m: NEXTROWPTy:\:T TYPE:*:*>m: ?:*:?:]\:T TYPE:*:?:*?N Q :m:* *\:T *:T TYPE:*: ?::m:# # :T  \:T UNCOMPAC:*:2* :32*? :3 ; EXPANDPI!;: \: -;\: * GETPI[;4Q5MCouldn't open 4* 95!MCouldn't point to record{59&9* 6M Couldn't read{59 O:*}3{5 PREPAREPIXELӇ;;g;| 9 PAGE<MPAGE INITIALIZENAM6<4*}*@<s 4 SETNAMK<9 $C  **4s  TOSCREEx<*@(s *@ 1STHALư<O: < 2NDHAL<O:*s  < 1STSCREE<* Q n "s < 3RDSCREE;=*%*Q n "<*%"<*< 4THSCREE΃=<*(*&Q n "s < ROTPARTCO=* (* s "9 *Q 8*@*T *"9T  SETDRIV>"%MSetDevice Error # ~9B%MOpenDisk Error # ~9 ->RAZ>9 e> ->DIS˪>9 e> CURDRIVż>VCALCBLKSFRE>VCALCFRE>3K4 >-#B4 DRIVETYP>VDRIVETYPE?? DRIVETYPE?? DRIVETYPE3??s INITRAM/DISJ?+?*N *9 U@?*N * 9 =W?*N * 9 %* Q MNeed RAM Disk!!! 9>>*|c;*f * Q M Need 32k free on RAM Disk!! 9 TEMPc?%ALLOT TMP(@MTEMP PUTE@*s SAVEFILW@VAPPENDRECORj@VŠCREATETEMy@0@*}*N@s 0@ 0@^@ ^@s *^@s **?s ^@*s ^@*Ds * ^@*Es ^@*Fs ^@*Gs *^@*Is ^@*Ks ^@* * u@-#0@Q5 *xQ @-#{5 DELETEFILŌ@V8ŠDELETETEM]A0@4 jA-# PRINTBUnA(4 \+&4 94 ?"| {59 SENDBLANKRO׉A(*}A AIMRECORĶA5$Merror # ~Mwhile pointing{59 GETSLICA* 6#Merror # ~M while reading{59 PUTBUBC *(s $>*P s A(*(s B*( s A(*s BA(*s BA PRTTEMMB0@Q5 *(Q n VB{5 (WRITERECORDBV‹WRITERECORB94 T4 BK#    ROT1STSCREEB =0@Q5 *(Q n A(n *s (*s /9(*B {5| 9 ROT2NDSCREECG=0@Q5 *P*(Q n 5  (n *(>*s (*s /9(*B {5| 9 ROT3RDSCREE[C=0@Q5 *x*PQ n 5  (n *P>*s (*s /9(*B {5| 9 ROTPAGżC@CjCC=B{A PRNTFILENAMDVeWRONGPRELUD9DV?PAINTDRIVELD*Q HDn s s [DJ9*f * Q MYou have wrong printer driver! 9 ?PDRIVE_DHDW$9 SEARCHDRIVD"%33B%33D LOOD+?*D3@?* D3W? * D3 FINDDRIVEE> D}(3 E9 *f *Q M Insert disk with printer driver HD* M THEN PRESS any key but a period! M(A period will quit to deskTop) n MThanks*.J9U}("*N *O6*f *Q MNeed 80 cards wide printer! 9 DOPAGEGE> 9 r?9 "%nDTE#">\<9 9 9 *>cF<9T 4W$9 09 N " 'D*Q A'DY"9T 9