SIDEDIR
PRG formatted GEOS file V1.0
Epson FX-80
BLASTER'S CONVERTER V2.5
StudentForthV1.0
Hank Wilkinson
Sideways directory printer made with Student Forth
(c) 1990 Hank Wilkinson
`SCREENFILE0
EXECUT
BRANC
0BRANC
(LOOP
hhhhL
(+LOOP
j	z	8
(FIND
vQx)?
ENCLOS
?TERMINA
DMINU
TOGGL
CONSTAN
VARIABL
+ORIGI
WARNIN
VOC-LIN
OFFSE
CONTEX
CURREN
TRAVERS
LATES
?ERRO
?PAIR
?LOADIN
COMPIL
SMUDG
DECIMA
(;CODE
<BUILD
-TRAILIN
EXPEC
BLANK
(NUMBER
NUMBE
(ABORT
CREAT
[COMPILE
LITERA
DLITERA
?STAC
INTERPRE
IMMEDIAT
VOCABULAR
DEFINITION
Student Forth  1.0
UPDAT
EMPTY-BUFFER
BUFFE
(LINE
MESSAG
MSG # 
FORGE
REPEA
SPACE
SCR # 
SETPATTER
	J8 3
?PIXE
CHARWIDT
STRING
STRING
GETFIL
INITFORPRIN
PRINTBUFFE
STOPPRIN
PRINTASCI
SETNL
STARTPRIN
STARTASCI
GETDIMENSION
DONEWITHI
INITFORI
READBYT
NEXTRECOR
TRACKSECTO
DISKBLOC
POINTERINDE
DISKBYT
DISKERRO
GETBLOC
FINDFIL
SAVEPTR
RESTOREPTR
CREAT
Empty 
SHOW_NAM
SHOW_NAME
Q	n	*
GETDIRHEA
SHOW_ENTRIE
SHOW_OFF_PAG
GETPDRIVE
disk error message 
SCREENBAS
ALLOT                            
ALLOT                            
SENDSCREENBIT
LTRIA
POSITIO
CARDRO
MOVERO
4LINE
2ACROS
SCRNHD
SCR # 
SCR # 
CUR_DIR_HEA
MINUTE
OFF_DISK_NAM
#Student Forth SCREENFILE from disk 
, on 
 @ %0
CRTOGGL
S0J**
WITHI
BETWEE
INV_RECOR
BFR_OVERFLO
CAR_RE
NEWCARDSE
ESC_RULE
ESC_GRAPHIC
PAGE_BREA
DISKBLKBU
FILEHEADE
CURDIRHEA
FILETRSCTA
DIRENTRYBU
BYTECOUNTE
CHARCOUNTE
PAGECOUNTE
VERSIONHEADE
MAXPAGE
STARTPAG
ENDPAG
TEXTBU
%SAVEFORTH
GETNAM
type file name and return
OPENVLI
CLOSEVLI
PREVIOUSRECOR
NEXTRECOR
POINTRECOR
READRECOR
GETPAG
open error # 
record pointing error # 
FILTERTEX
FILTERPAG
TESTFILTE
PAGECOMPIL
PAGECOMPIL
TEXTLOA
n	a6d7|
SETDEVIC
OPENDIS
DRIVESTOR
SETDIS
DOERRO
Close DOOR!\8\8
Disk Error Number 
Encoutered
Write it down, we're aborting\8\8I8
?DISKERRO
CURDRIVETYPE
CURDRIVETYPE
CURDRIVETYPE
PRNTFILENAM
CURDRIV
CURRENTDRIV
LOADDRIVERMESSAG
Insert disk with printer drive 
+  close door and hit any key but period (.)
(Period will return to deskTop)
FINDPDRIVE
LOADPDRIVE
GetFile error # 
Hit any key to abort|
DSKIMAG
DRVIMAG
OPNIMAG
CNCLIMAG
LOADIMAG
Open errorR
Point errorR
empty errorR
Read errorR
empty recordY4
ROTCAR
PUTIT+
ROTCO
CURDIRBLKBUFADDRES
CURDIRBLKBU
HEADERARRAYADDRES
HEADERARRA
GETFHDRINF
READENTRYBLOC
n	#>s
>n	#>
(BITMAPUP
DRAWICO
CBMICO
TITLEICO
DRAWTITLEICO
DRAWCB
COLUM
XCOLUM
2#EMI
PUTSIZ
PUTTIME&DAT
SHOWNAM
PUTFILENAM
PUTPERMNAM
PUTPAR/AUTHO
#>o>s
PUTPARAP
#>o>s
PUTTRACK/SECTOR
#>o>s
#>o>s
PUTSTRUCTUR
@#>o>s
VLIR 
PUTTYP
@#>o>s
Not_GEOS
BASIC
ASSEM
SYSTEM
DESK_ACC
APPLICATION
APP_DATA
PRINTER
	INPUT_DEV
DISK_DEV
SYS_BOOT
	AUTO_EXEC
ENTRY
#>o>s
#>o>s
DRAWICON
Q	n	0F
PUTSIZE
Q	n	0F
PUTTIME&DATE
Q	n	0F
PUTFILENAME
Q	n	0F
PUTPERMNAME
Q	n	0F
PUTPAR/AUTHOR
Q	n	0F
PUTPARAPP
Q	n	0F
PUTTRACK/SECTORS
Q	n	0F
PUTSTRUCTURE
Q	n	0F
PUTTYPE
Q	n	0F
#OFBLOCK
#OFDISKBLOCK
#OFFILE
#OFPAGE
ROWSPRINTE
OFFPAG
COUNTBLOC
Q	n	#>o>s
n	#>o>s
NAMEBUFFE
ALLOT                      
DRIVEBUFFE
OPENTEXTBUFFE
ALLOT  
CANCELTEXTBUFFE
ALLOT       
#OFDRIVE
DISKNAM
DRIVETYP
COUNTDRIVE
NEXTDRIV
(PRINT
(Print)
SETOPENTEX
(TODESKTOP
(to deskTop)
SETCANCELTEX
SETNAMEBUFFE
SET3DRIVEBUFFE
SET2DRIVEBUFFE
SETDRIVEBUFFE
COUNTENTRIE
DRAWTITL
SIDEDIR 
	On disk: lM
 files using TH
Page 
 of rH
CALCBLKSFRE
CALCFRE
N-# 3
->DISK
INITRAM/DIS
Need RAM Disk!!!\8I8
      Need 32k free on RAM Disk!!
SAVEFIL
APPENDRECOR
DELETEFIL
CREATETEM
DELETETEM
PRINTBU
Y4Y"I8
PUTBU
PRTTEM
Q	n	QQ
(WRITERECORD
WRITERECOR
ROTTITLECO
ROTTITL
ROTTOPSCREE
ROTMIDSCREE
ROTBOTSCREE
SENDBLANKRO
SHOWDIRECTORYBLOC
F'G\G
MOVEINF
FINISHHAL
R/SsQY"
/SsQY"
DBTXTST
DBVARST
DBGETSTRIN
DBSYSOP
DBGETFILE
DBGRPHST
DBOPVE
DBUSRICO
DB_USR_OU
SYS_DB_ICON_WIDT
SYS_DB_ICON_HEIGH
DEF_DB_PO
SYSDBDAT
RSTRFRMDIALO
(DODLGBOX
DSKICONSERVIC
DRVICONSERVIC
OPNICONSERVIC
CNCLICONSERVIC
DSKICO
DRVICO
OPNICO
CNCLICO
DIRDLGBO
DOACTIO
Student Forth 
Sideways Directory Lister
 for GEOS users
SIDEDIR*
copyright 1990 Hank Wilkinson
*For Info About Student Forth Send SASE to:
Anticipatory Design Science
Freeman Building, Suite 303
612 Pasteur Drive
 Greensboro, North Carolina 27403