ASCIIDIRZ NPRG formatted GEOS file V1.0!!!!!9Q))]PStudentForthV1.0Hank WilkinsonASCII directory lister made with Student Forth, (C) 1990 by Hank Wilkinson/, 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 `  &&q t­ ©~} ŽP" Ž~} x w`SCREENFILE0rh!!!!LL^Ox]P]P"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@FIRSVldLIMIVxB/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 RDEFINITION  $f) QUI>\   9 MOK ABORK R MStudent Forth 1.02OCOLy   !rs rqpةlL S->ĦC ^ +^  D+^  ABC  DABC  MI%   MA4 c  ML     Md ,#   #      /MOĨ     MO */MO i  *  M/MO #    USttlPRE$ttl+BU.*s C J C 5 > UPDAT95 *g 5 FLUS`>fs Q *  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 > BEGIx ENDIƉ > THEΛ DϷQ  LOO +LOO  UNTI EN AGAI REPEA" *  > I8 ELSU  WHILjZ SPACEӋR Q  < #    > SIG^ f-  f cfs f0s  # g 9  D.!  ,& > D8> .\  > ka |  LISԈRC v MSCR # fQ n pn v  INDEؔ  Q n pn |  f f TRIA s  Q n  f f f VLIS fm  m  m C f?  C 9 | g  SETPATTER>  9Le PIXĖ  J8 3Lc ?PIXE̥  ?*L LIN !   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$ BY%%L,‚S% S!% SCHA8%C * c  * C *~ * f DUMS% = Q C =%C *Q C &% *Q C [% |  *   DEPTȉ% * > .% %& >*Q *n s *  MEmpty SHOW_NAM&C  *s *  SHOW_NAMEF&*Q n *  s R& GETDIRHEAt&*G-# SHOW_ENTRIEӡ&&* * * * *%$ *&* 9  SHOW_OFF_PAGŸ&&* * *%$ *& DI' '& FRE1' => GETPDRIVEA'*e*  "C 9  Mdisk error message  SCREENBAS^'VPBP'%ALLOT 71PBP'%ALLOT P/C*V@SENDSCREENBIT,J** ',,s ]*Q ' 'n *@s ', ?" LLIS,*f , LTRIA'-k'#""Y"C /-C /-/-Y" POSITIO=-! *s ! CARDROh-,'s MOVEROׇ-- - , SLINŝ- p DO-*Q -     4LINE-*f *Ps- -  - MOVE-* -*-* -*-* *-**-* *-**-**-** - SEND.J** ' ?"',,s s  ?"',*s  ?"',*s  ?"',*s  ?" 2ACROSӂ.*Q n n  -"..*   SCRNHD.*f J** ' ?"*Ps- MSCR # p*`s-MSCR # p* -* -* -* -J** ' ?"',,s s  ?" 6LIS/C  $/ . s C  $/ . s C  $/. CUR_DIR_HEAĦ/VYEA/VMONT/VDA0VHOU0VMINUTE0VOFF_DISK_NAM)0VPGHD70*f *Ps-M#Student Forth SCREENFILE from disk /G0s *Q C n s C *J  f  M, on 0 p*/f 0 p*/f 0 pM @ %0 p*:f 30 p CRTOGGLK0tPRT1k'#""Y"* 1 *8* S0J** *- ?"* - ?"* - ?"/1 * Y" ASCI1 % WITHI{1 > > W BETWEEΓ11 =OҬ1  Jg CASž1C O1Z EXI1  FALS1VTRU1VINV_RECOR 2VTA2V BFR_OVERFLO%2V CAR_RE/2V NEWCARDSEB2VESC_RULEP2VESC_GRAPHICa2VPAGE_BREAq2V EOƄ2VDISKBLKBUƕ2VFILEHEADEҟ2VCURDIRHEAİ2VFILETRSCTA2VDIRENTRYBU2VR2VR2VR12VR3VR3V R3V R$3VBYTECOUNTE-3tCHARCOUNTE63tPAGECOUNTEH3tVERSIONHEADEZ3tMAXPAGEl3tSTARTPAGŀ3tENDPAGŏ3tPAGş3tTEXTBUƭ3ttlFN3%SAVEFORTHGETNAM3 Mtype file name and return 3*]3* OPENVLI32 *tK#    CLOSEVLI$4*w-# PREVIOUSRECORM4*}K#   NEXTRECORc4*zK#   POINTRECORĎ4*K#   READRECORĵ43 23 *K#   GETPAG4>3/4C Y4M open error #  4C 'Y4Mrecord pointing error #  3 *4 9  3 Y4 STRI 5 d s ]dT FILTERTEXԑ5 d s 1*  dT 11+2JL21  511]2J  *511m2J  *5112J  *5112J 2 d s 1 FILTERPAGű55 d 3  d 5 d s 9  d s   d   TESTFILTET6 d  d 5 d   6 d s dT C 9  *{Jg  PAGECOMPIL6 d 3  = d 6 d   PAGECOMPIL7"7 TEXTLOAV73**>Q n *=s J9 *=@ >3 n a6d7|   SETDEVICl7*K#    OPENDIS7*K#    NUMDRIVE7V?DISKERRO819  1MDisk Error Number M Encoutered M)Check Drive, Door, Disk etc., and restart*YQ % DR*8&8 J *778878 DR§8&8 J * 778878 PRNTFILENAM8VeCURDRIV8VR9VCURRENTDRIV9tTOGGLEDRIV9&8 9 *J888 LOADDRIVERMESSAG19 MInsert disk with printer drive 9**,f M+ close door and hit any key but period (.) M(Period will return to deskTop) LOADPDRIVEk99 -9 9W$ ?99W$?99n *.J%99 2 "8MGetFile error #  MHit any key to abort| %9 -9 >?9 #FILE:t#BLOCKө:tCURPAGE:t#OFPAGE:tBUFPOINTE:tTITLENAME:M%Student Forth ASCII Directory Listing NAMEHEADE:MODisk Name ID Date Time Format #Files K Used K Free Page Of FILESHEADE,;MHFile Name K Date Time GEOS Type Struct Owner/Author BUFADDRESӏ;: 's NEXTPLAC;:T MOVETEX<; :T  ^BASCIF<& .BUƋ<<; :T  .RBUƢ< < >:T ; :T  TWODIGITӽ<& YEAR=M M1541 M1571 M1581 MRAM 1541MRAM 1571 DRIVETYPW=VDETERMINETYPŭ=9 *>=s C N  *N s * *i=s &< KMAؽ=9 *>=s N 1J  *11J *11J  *1 PUT>*OQ *-; <L2; < FIRSTHEADERLIN^>'*]: *P*; >:T *;&*;;&2*s ;*Q<<<2*s ; <2*s ; <<= E=*/; <= E=*/; <= E=<+= E=*:; <:= E=<=<: <*:T : *<:T >: *><*:T : <:T : *;&< PRINTPAGEHEADIN?>>?@2; '2 J*3 t" SH@'*,% TESN@:#""MProblem.@ BLOCKS->`@* PUTSIZŃ@<< TIME&DATř@* s E=*/; <* s E=*/; <* s E=<* s E=*:; <* s E=< GEOSTYPEӭ@M NOT_GEOSM BASICM ASSEMBLYM DATAM SYSTEMM DESK_ACCM APPLICATIONM APPL_DATAM FONTM PRINTERM INPUT_DEVICEM DISK_DEVICEM SYSTEM_BOOTM TEMPORARYM AUTO_EXECM INPUT_128 MOVEGEOSTYPA**)As &< DOGEOSTYP+B* s :B GEOSSTRUCTURELBM SEQMVLIR MOVEGEOSSTRUCiB**|Bs &< DOGEOSSTRUCԌB* s B GETFHDRINFϯBV)‚RBVMOVEOWNER/AUTHOB B B-#C *J *Jg  *a*u2s *Q n s  ; <  DOOWNER/AUTHOB* s C *J  :T B FILESPRINTEXCtPRINTENTRٗCC *! 9  Y":T .@ CT '*P]: L2'*Ps C s ;*Q<?9%11*J F11*J G11* J  FpH11* J  GH1% RUAO9 =O :*f J Mcopyright 1990 Hank Wilkinson Mfor GEOS users K L eL L MFG