ICONDIRZ ZSEQ formatted GEOS file V1.0 Epson FX-80ևևȘe`[R7 CONVERT7YBLASTER'S CONVERTER V2.5Z Z!!!!!9Q))[StudentForthV1.0Hank WilkinsonMakes hard copy of icon, blocks/k, date, names, data, header & type./, 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^"Zx[["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 ^DEFINITION  $f) QUI>\  (Z 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 #    USttlPRE$txp+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#    ?DISKERRO719  1MDisk Error Number M Encoutered M)Check Drive, Door, Disk etc., and restart*YQ % CURDRIVETYPE8VCURDRIVETYPE—8VCURDRIVETYPEë8VDR88  *7'88'8 DR88  * 7'88'8 DR88  * 7'88'8 SETDIS97 8 PRNTFILENAM-9VeCURDRIVC9VRV9VCURRENTDRIVe9tLOADDRIVERMESSAGn9 MInsert disk with printer drive R9**,f M+ close door and hit any key but period (.) M(Period will return to deskTop) FINDPDRIVEҁ98R9W$(8R9W$9R9W$2222 LOADPDRIVE!:/:89n *.J%/:9n *.J%/:%R9j9 2 "8MGetFile error #  MHit any key to abort| % CURDIRBLKBUe:%ALLOT 2HEADERARRA;%ALLOT <L=8BYH<<<< xh<`=i i Y  $ Y O8  h ȱ  %L4PuL<u $ = Պϭ % Y Y k% <=H+HLRC 19  11J  *P11J  *1 * XCOLUMΏFF! #EMIF& 2#EMIG& PUTG*/f PUT/G*kf PUT@G*:f PUTQG*,f PUTSIZbGF*s ! uF* ;s *s C G6Gs *GGG PUTTIME&DATsGF*s ! uFC * ;s *s G6GC * ;s *s G6G* ;s *s G SHOWNAMŹG*Q n s C >f   ^B&HVPUTFILENAMcHFuF* ;s s *Q n s C iHJ  f  PUTPERMNAMmHFuF*"PM (to deskTop) SETCANCELTEXfP,O* }*vP,O SETNAMEBUFFE҇P*:N XON* N*s a9 1*J *AN 11* J *BN 11* J *CN 1 SET3DRIVEBUFFEұP*(N *)N N a9 1*J *BN 11* J *CN 11* J *AN 1 SET2DRIVEBUFFE5Q*(N *)N N a9 1*J *BN 11* J *AN 1 SETDRIVEBUFFEҿQIO 1J GQ11J Q1 COUNTENTRIE/RN N )N 8N dN &2*s ; 2*s ; RDuN)N N XN N XN 2 ; 2 ; RDuNNT ; 9 N *c 8N :N *c 8N "N *c 8N  *8N P@R BOLjR*@*. PLAI_S*. YtSVIĈSVDRAWTITLőSEF uF fSMICONDIR |SF uF M On disk: fSXO1H|SF uF )N GM files using N s *GM kF uF S G6GS G6GS Gf Ss GXGS*s GXGS*s Gf f MPage dN GdNT M of 8N G SHOWDIRECTORYBLOC˚S,LcLLLL"MSMMMM POFFSEԟTV SENDROT, 's T ', s ',s , ' J** * ?" PRINTINFTJNT * Q n T| Y" DOAL ULPP*f TyRS,U*f &2*s ; 2*s ; XN RDT,U*f 2 ; 2 ; *f JN *9 Y"S,U*f TRDT,U; 9 Y" DSKIMAGPU%ٜ DRCIMAGU%ͳ8ٳlٳ|ٞ`< OPNIMAGZV%`ommm   CNCLIMAGžV%xmmml DBTXTST$WV DBVARST҉WV DBGETSTRINǘWV DBSYSOP֧WVDBGETFILEӹWVDBGRPHSTWVDBOPVEWVDBUSRICOWVDB_USR_OUWVSYS_DB_ICON_WIDTXVSYS_DB_ICON_HEIGHXVDEF_DB_PO0XVSYSDBDATIXVRSTRFRMDIALOZXVŠ(DODLGBOXjXX V¦Le DSKICONSERVIC~X%LŽDRVICONSERVICšX%LŽOPNICONSERVICžX% LCNCLICONSERVICX% L‡DSKICOX%VXDRVICOY%iVXOPNICO,Y%VXCNCLICOBY%4WYDIRDLGBOXY%$Y  :Y 0PY HO0gY H0ODRIVESTORoYtDOACTIOΨY1*J 8 P@R11*J  OP@R11* J XU11* J Y 79%1% RUιYLPPP@Ra9 Y zOs:#""%yR*f ! *! fSMStudent Forth |SMIcon Directory Lister M for GEOS users *! *! fSMICONDIR*P! *! Mcopyright 1990 Hank Wilkinson |S M*For Info About Student Forth Send SASE to: MAnticipatory Design Science MFreeman Building, Suite 303 M612 Pasteur Drive M Greensboro, North Carolina 27403N* N+D {YXfX Y