home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
GEOSApps
/
SIDEDIR.CVT
(
.txt
)
< prev
next >
Wrap
GEOS ConVerT
|
2019-04-13
|
23KB
|
377 lines
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