home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
GEOSApps
/
ROTPAGES
(
.txt
)
< prev
next >
Wrap
GEOS ConVerT
|
2019-04-13
|
18KB
|
269 lines
ROTPAGES
PRG formatted GEOS file V1.0
Epson FX-80
SIGIRL.MAC+
BLASTER'S CONVERTER V2.5
pEACHES
07-26-90GEOS
Linker .obj V1.0
Rotates, clips and prints two "PAGE xy" files per page in batch mode.
`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
DRLIN
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
SETDEVIC
OPENDIS
FILTERPAG
%M&L,
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
@ 71
CRTOGGL
e1\+*
WITHI
BETWEE
INV_RECOR
INV_TRAC
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
ROTCAR
PUTIT+
ROTCO
COPYRIGHT
Hank Wilkinson 1990
ENTRY/EXITDIS
#PRINTE
PAGECOUN
PICPT
PICADDRES
NEXTPICPT
ROWPT
ROWADDRES
NEXTROWPT
?:*:?:]
*:?:*
UNCOMPAC
EXPANDPI
GETPI
Couldn't open
Couldn't point to record{5
Couldn't read{5
PREPAREPIXEL
PAGE
INITIALIZENAM
SETNAM
TOSCREE
1STHAL
2NDHAL
1STSCREE
Q n "<n
2NDSCREE
Q n "<n *
3RDSCREE
Q n "<n *
4THSCREE
Q n "<n *
ROTPARTCO
SETDRIV
SetDevice Error # ~
OpenDisk Error # ~
->DIS
CURDRIV
CALCBLKSFRE
CALCFRE
>-#B4
DRIVETYP
DRIVETYPE
DRIVETYPE
DRIVETYPE
INITRAM/DIS
Need RAM Disk!!!
Need 32k free on RAM Disk!!
ALLOT
SAVEFIL
APPENDRECOR
CREATETEM
u@-#0@Q5
DELETEFIL
DELETETEM
PRINTBU
SENDBLANKRO
AIMRECOR
error # ~
while pointing{5
GETSLIC
error # ~
while reading{5
PUTBU
PRTTEM
Q n VB
(WRITERECORD
WRITERECOR
ROT1STSCREE
=0@Q5
ROT2NDSCREE
G=0@Q5
ROT3RDSCREE
=0@Q5
ROTPAG
PRNTFILENAM
WRONGPRELUD
?PAINTDRIVE
Q HDn s
You have wrong printer driver!
?PDRIVE
HDW$9
SEARCHDRIV
FINDDRIVE
Insert disk with printer driver
THEN PRESS any key but a period!
(A period will quit to deskTop)
Thanks*
Need 80 cards wide printer!
DOPAGE
"%nDTE#"