ICONDIR2Z SPRG formatted GEOS file V1.0!!!!!9Q))TStudentForthV1.0Hank WilkinsonHank Wilkinson. Compiles forth programs from geowrite files./, 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!!!!! WLL^RxTT"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 VDEFINITION  $f) QUI>\  R 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#    DRIVESTOR7tSETDIS87 8 GOBY+8'8 58% WAIA8*aQ  DOERROU81*!J M Close DOOR!\8\821 MDisk Error Number M Encoutered MWrite it down, we're aborting\8\8I8 ?DISKERROl8C  v88 9  CURDRIVETYPE8VCURDRIVETYPE9VCURDRIVETYPE)9VDR=9%9  *7 88 DRQ999  * 7 88 DRo9M9  * 7 88 PRNTFILENAMō9VeCURDRIVū9VR9VCURRENTDRIV9tLOADDRIVERMESSAG9 MInsert disk with printer drive 9**,f M+ close door and hit any key but period (.) M(Period will return to deskTop) FINDPDRIVE99W$8W99W$(u99W$99W$22222 LOADPDRIVE҉::89n *.JI8:9n *.JI8:I899 2 "8MGetFile error #  MHit any key to abort| I8 DSKIMAG:%ٜ DRVIMAGw;%ͳ8ٳlٳ|ٞ`< OPNIMAG;%`ommm   CNCLIMAG?<%xmmml ʉLOADIMAGť<3/4M Open errorR4M Point errorR9 M empty errorR4M Read errorR9 M empty recordY4 CURDIRBLKBUFADDRES =tCURDIRBLKBUƗ== HEADERARRAYADDRESӱ=tHEADERARRA== R=VGETFHDRINF=V)ŽREADENTRYBLOC>=**}= = =%$ *Q =* n s C "= >-#2=*n s *   (BITMAPUP>VBDRAWICOΉ>C *=s *s 2 C ** 3  *X3 3 *3 >-# CBMICOΚ>%Ⴣ/TITLEICO>%!!!!!9Q))DRAWTITLEICOK?W?2 3 3 3 *3 >-# DRAWCB͛??2 C ** 3  *X3 3 *3 >-# RO?* *s YRO)@ *s /@! COLUM?@C C *>C 19  11J  *P11J  *1 * XCOLUM`@i@! #EMIԽ@& 2#EMI@& PUT@*/f PUTA*kf PUTA*:f PUT"A*,f PUTSIZ3Ai@*s ! F@* =s *s C @As *@A PUTTIME&DATDAi@*s ! F@C * =s *s @AC * =s *s @A* =s *s @ SHOWNAMŊA*Q n s C >f   ^BAVPUTFILENAM4B@F@* =s s *Q n s C :BJ  f  PUTPERMNAM>B@F@*=s *Ms B PUTPAR/AUTHOҐBC * =s *s *J @*F@*=s *as B PUTPARAPкBC * =s *s *J @*F@*=s *us B PUTTRACK/SECTORC@*F@C * =s C @:A @f * =s *s C @:A @ PUTSTRUCTUR^C@*F@* =s *s 9  MSEQ  MVLIR PUTTYPſC@*!T *F@* =s *s 19  MNot_GEOS11J MBASIC11J MASSEM11J  MDATA11*J MSYSTEM11*J MDESK_ACC11*J M APPLICATION11*J MAPP_DATA11*J  MFONT11* J MPRINTER11* J M INPUT_DEV11* J MDISK_DEV11* J MSYS_BOOT11* J  MTEMP11*J M AUTO_EXEC1 ENTRYD* =s  GEOSE* =s *s DRAWICONE*Q n En E n >n ? PUTSIZEE*Q n En NA PUTTIME&DATE)F*Q n En En A PUTFILENAMEPF*Q n En LB PUTPERMNAMEӄF*Q n En En B PUTPAR/AUTHORӯF*Q n En En B PUTPARAPPF*Q n En En C PUTTRACK/SECTORSG*Q n En qC PUTSTRUCTUREHG*Q n En C PUTTYPExG*Q n En D #OFBLOCKӤGt#OFDISKBLOCKGt#OFFILEGt#OFPAGEGtROWSPRINTEGtOFFPAG HtPAGEHtCOUNTBLOC-H*Q * n =s  "GT * n =s *s GT  NAMEBUFFE9H%ALLOT DRIVEBUFFEҊH%ALLOPENTEXTBUFFEҷH%ALLOT CANCELTEXTBUFFEH%ALLOT #OFDRIVEHtDISKNAMIVDRIVETYPIVCOUNTDRIVE-II *Q 9In s IT  NEXTDRIV=II 1J 11J 9 *Ju9W91 9 1*J u911* J 911* J W91 (PRINTsIM(Print) SETOPENTEXIH*}*JH (TODESKTOPJM (to deskTop) SETCANCELTEX7JH* }*GJH SETNAMEBUFFEXJ*:H )IH* H*s 9 1*J *AH 11* J *BH 11* J *CH 1 SET3DRIVEBUFFE҂J*(H *)H H 9 1*J *BH 11* J *CH 11* J *AH 1 SET2DRIVEBUFFEK*(H *)H H 9 1*J *BH 11* J *AH 1 SETDRIVEBUFFEҐKI 1J K11J K1 COUNTENTRIELG G G  H H 5H &2*s = 2*s = #>FHG G )H G )H 2 = 2 = #>FHGT = 9 G *c  H :G *c  H "G *c  H  * H JL BOL;L*@*. PLAI6M*. YKMVI_MVDRAWTITLhM?@ F@ =MMICONDIR SM@ F@ M On disk: =M)IBSM@ F@ G @M files using G s *@M k@ F@ dM @AdM @AdM @f dMs @)AdM*s @)AdM*s @f f MPage 5H @5HT M of H @ POFFSEqMV SENDROvN, 's N ', s ',s , ' J** * ?"| Y"I8 SENDBLANKROׄN'*}' J** * ?" PRINTTITLNHT *Q n N| Y"I8 SHOWDIRECTORYBLOCOE4FN`FNFNFNF*N$G*N\G*NG*NG*N* N* NNNHT DOAL8OJhJ*f NJL}MO*f &2*s = 2*s = )H  #>MO*f 2 = 2 = *f H *9 Y"}MO*f N#>MO= 9 Y" DBTXTSTҩOV DBVARSTKPV DBGETSTRINZPV DBSYSOPiPVDBGETFILE{PVDBGRPHSTҊPVDBOPVEÛPVDBUSRICOΫPVDB_USR_OUԹPVSYS_DB_ICON_WIDTPVSYS_DB_ICON_HEIGHPVDEF_DB_POPVSYSDBDAT QVRSTRFRMDIALOQVŠ(DODLGBOX,QOQ V¦Le DSKICONSERVIC@Q%LŽDRVICONSERVICcQ%LŽOPNICONSERVICŀQ% LCNCLICONSERVICŝQ% L‡DSKICOκQ%;xQDRVICOQ%;QOPNICOQ%N<QCNCLICOR%<QDIRDLGBOR%Q  Q 0R HH0)R HIDOACTIO1R1*J 8 JL11*J  IJL11* J O11* J I81I8 RUjR*s = =*s = JhJJL9 '8 KI:#""I8JL*f ! *! =MMStudent Forth SMMIcon Directory Lister M for GEOS users *! *! =MMICONDIR*P! *! Mcopyright 1990 Hank Wilkinson SM M*For Info About Student Forth Send SASE to: MAnticipatory Design Science MFreeman Building, Suite 303 M612 Pasteur Drive M Greensboro, North Carolina 27403H* H= =RMQ(Q uR