8bitfiles.net/archives/archives.tar/archives/canada-remote-systems/geos/utils/asciidir.seq

GEOS ConVerT | 2019-04-13 | 20KB | 342 lines

ASCIIDIR
SEQ formatted GEOS file V1.0
Epson FX-80
`.bac
CONVERT
BLASTER'S CONVERTER V2.5
StudentForthV1.0
Hank Wilkinson
ASCII directory lister made with Student Forth,      (C) 1990 by Hank Wilkinson
`SCREENFILE0
]P]P"
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
NUMDRIVE
?DISKERRO
Disk Error Number
Encoutered
)Check Drive, Door, Disk etc., and restart*
PRNTFILENAM
CURDRIV
CURRENTDRIV
TOGGLEDRIV
LOADDRIVERMESSAG
Insert disk with printer drive
+  close door and hit any key but period (.)
(Period will return to deskTop)
LOADPDRIVE
GetFile error #
Hit any key to abort|
#FILE
#BLOCK
CURPAGE
#OFPAGE
BUFPOINTE
TITLENAME
%Student Forth ASCII Directory Listing
NAMEHEADE
ODisk Name            ID Date     Time  Format   #Files  K Used K Free  Page  Of
FILESHEADE
HFile Name           K  Date     Time    GEOS Type   Struct  Owner/Author
BUFADDRES
NEXTPLAC
MOVETEX
MOVENAM
#->ASCI
TWODIGIT
MONTH
MINUTES
GEOSDRIVETYP
        M
1541    M
1571    M
1581    M
RAM 1541M
RAM 1571
DRIVETYP
DETERMINETYP
FIRSTHEADERLIN
;&<L2
SECONDHEADERLIN
;;&<L2
THIRDHEADERLIN
FOURTHHEADERLIN
PRINTPAGEHEADIN
Problem
BLOCKS->
PUTSIZ
TIME&DAT
GEOSTYPE
     NOT_GEOSM
        BASICM
     ASSEMBLYM
         DATAM
       SYSTEMM
     DESK_ACCM
  APPLICATIONM
    APPL_DATAM
         FONTM
      PRINTERM
 INPUT_DEVICEM
  DISK_DEVICEM
  SYSTEM_BOOTM
    TEMPORARYM
    AUTO_EXECM
    INPUT_128
MOVEGEOSTYP
DOGEOSTYP
GEOSSTRUCTURE
 SEQM
MOVEGEOSSTRUC
DOGEOSSTRUC
GETFHDRINF
MOVEOWNER/AUTHO
DOOWNER/AUTHO
FILESPRINTE
PRINTENTR
PRINTDIRECTORYBLOC
Q    n    *
OFFTRAC
OFFSECTO
GETOFFPAGEBLOC
PRINTOFFPAG
NEXTDIRECTORYBLOC
PRINTENTRIE
PRINTDIRECTOR
COUNTFIL
COUNTDIRBLOC
Q    n    *
COUNTDISKFILES
DRANAM
ALLOT
DRA#FILE
DIGIT
 files,
FINDZER
COUNT
DRBNAM
ALLOT
DRB#FILE
COUNT
PRINT
PRINT
BOLDO
PLAINTEX
CANCE
DBTXTST
DBVARSTR
DBGETSTRIN
DBSYSOP
DBGETFILE
DBGRPHST
DBOPVE
DBUSRICO
DB_USR_OU
SYS_DB_ICON_WIDT
SYS_DB_ICON_HEIGH
DEF_DB_PO
SYSDBDAT
RSTRFRMDIALO
(DODLGBOX
AICONSERVIC
BICONSERVIC
PRINTAICONSERVIC
PRINTBICONSERVIC
TITLE
Student Forth ASCII Directory Lister
TITLE1TEX
$Student Forth ASCII Directory Lister
TITLE
%To change disk, insert and click A or B
TITLE2TEX
'To change disk, insert and click A or B
TITLE
%For more info about Student Forth send SASE to:
TITLE3TEX
/For more info about Student Forth send SASE to:
TITLE
%Anticipatory Design Science
TITLE4TEX
Anticipatory Design Science
TITLE
%Freeman Building, Suite 303
TITLE5TEX
Freeman Building, Suite 303
TITLE
%612 Pasteur Drive
TITLE6TEX
612 Pasteur Drive
TITLE
%Greensboro, NC 27403
TITLE7TEX
Greensboro, NC 27403
8HALFROW
AICON.PI
BICON.PI
PAICON.PI
PBICON.PI
PAICO
PBICO
DIRDLGBOX
DRIVESTOR
DOACTIO
copyright 1990 Hank Wilkinson
for GEOS users