PrintPagesZ HSEQ formatted GEOS file V1.0!!!!!9Q))~ILinker .obj V1.04m  /Student Forth program that prints all PAINT PAGES generated files on a disk.  @/, 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!!!!KLL^JI@~I~I"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 KDEFINITION  $f) QUI>\   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$tp+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|   PAGECOUNT8tPI8%ALLOT RDB!91RDND/9tRDMINRE:9tRDCURREF9tRDMAXREU9tRDREd9tRDCURLINs9tRDCARRIAGERETURN9tRDDRIVŏ9tRDNAMŧ9%ALLOT RDBUƵ9%ALLOT RDHDҫ9%ALLOT RDHD9%ALLOT RDTRSCTA·:%ALLOT RDTRSCTA:%ALLOT GETREADNAM; M%type SEQ (read) filGETREADNAM; M%type SEQ (read) file name and return 9*}9* ZBU<%ALLOT ZSAVI=*Q 4n s P=n s  ZFETCt=*Q P=n s 4n s  CURDRIVŤ=VSETREADDRIV== 9 JO9 "%!MFailed setting read deviceRB% MFailed opening read driveR R=V(FOLLOWCHAINV>V‹FOLLOWCHAI_>[> &4 &4 o>-#&4 &4 (CALCBLKSFREEs>VCALCBLKSFREš>3K4 >-#B4 R>VR>VR1>VR1>V(PUTBLOCK>V(BLKALLOC>V(SETNEXTFREE?VŒ(PUTDIRHEAD?VJŠINTERLEAV3?V(DELETEFILEF?V8Š(SAVEFILEW?V(GETFHDRINFOj?V)Ž(APPENDRECORD{?V‰PRIMEREAď?=9W$6 Mcouldn't find:9**,f Mon drive9 ~K4 *s @ Mfile:9**,f Mon drive9 ~Misn't sequentialK4 *s *~: Mfile:9**,f Mon drive9 ~M is too big:*}K4  9 9 +9 ;*}Q9 `9 9 9 ;>  o9 *Q ;PICPT9tPICADDRES@ 9@ s PIC@@ NEXTPICPTA@T ROA%ALLOT >"3`9T ;`9 s ;`9 s 3%$  3B9 -BLOC;A`9 c3J"3*`9T ;`9 s ;`9 s 3%$  3*B9 *K4 +GET˜A3 9 B9 3 33B9 *DA333B9 s B9T -GETA*B9T B9 cA B9 333B9 s COUNTCARRIAGERETURNYB9 ; ; 3%$MCould count lines K4 #$ 9 $ n3J9T 9 RDERROR ROWPT*AtROWADDRES AVF A A]EFT TYPEF A A*?N Q @VF* *EFT *@T TYPEF A A@VF# # @T  EFT UNCOMPACF A2* F32*? F3 F EXPANDPI G@ EF GEF * GETPIDG4Q5MCouldn't open 4* 5!MCouldn't point to record{5& 9* 6M Couldn't read{5 0A*}3{5 SENDPBPpG(4 \+&4 94 ?"|  SENDROG0A(* H0A*s (* H SENDPAG&H#""M Problem!! *-Q n yGPG0HY" PAGERHMPAGE INITIALIZENAMŒH4*}*Hs 4 SETNAMŧH9 $C  **4s  DOPAGEH}(H9 9 *>cH9T 4W$9 ]H COPYRIGHTNOTIC I MCopyright Hank Wilkinson