home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / utils / prntpage.prg (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  18KB  |  254 lines
  1. PrintPages
  2. PRG formatted GEOS file V1.0
  3. Epson FX-80
  4. SIGIRL.MAC+
  5. BLASTER'S CONVERTER V2.5
  6. pEACHES
  7. 07-26-90GEOS
  8. Linker .obj V1.0
  9. Student Forth program that prints all PAINT PAGES generated files on a disk.
  10. `SCREENFILE0
  11. ~I~I"
  12. EXECUT
  13. BRANC
  14. 0BRANC
  15. (LOOP
  16. hhhhL
  17. (+LOOP
  18. j    z    8
  19. (FIND
  20. vQx)?
  21. ENCLOS
  22. ?TERMINA
  23. DMINU
  24. TOGGL
  25. CONSTAN
  26. VARIABL
  27. +ORIGI
  28. WARNIN
  29. VOC-LIN
  30. OFFSE
  31. CONTEX
  32. CURREN
  33. TRAVERS
  34. LATES
  35. ?ERRO
  36. ?PAIR
  37. ?LOADIN
  38. COMPIL
  39. SMUDG
  40. DECIMA
  41. (;CODE
  42. <BUILD
  43. -TRAILIN
  44. EXPEC
  45. BLANK
  46. (NUMBER
  47. NUMBE
  48. (ABORT
  49. CREAT
  50. [COMPILE
  51. LITERA
  52. DLITERA
  53. ?STAC
  54. INTERPRE
  55. IMMEDIAT
  56. VOCABULAR
  57. DEFINITION
  58. Student Forth  1.0
  59. UPDAT
  60. EMPTY-BUFFER
  61. BUFFE
  62. (LINE
  63. MESSAG
  64. MSG # ~
  65. FORGE
  66. REPEA
  67. SPACE
  68. SCR # ~
  69. SETPATTER
  70.     J8 3
  71. ?PIXE
  72. DRLIN
  73. CHARWIDT
  74. STRING
  75. STRING
  76. GETFIL
  77. INITFORPRIN
  78. PRINTBUFFE
  79. STOPPRIN
  80. PRINTASCI
  81. SETNL
  82. STARTPRIN
  83. STARTASCI
  84. GETDIMENSION
  85. DONEWITHI
  86. INITFORI
  87. READBYT
  88. NEXTRECOR
  89. TRACKSECTO
  90. DISKBLOC
  91. POINTERINDE
  92. DISKBYT
  93. DISKERRO
  94. GETBLOC
  95. FINDFIL
  96. SAVEPTR
  97. RESTOREPTR
  98. CREAT
  99. SETDEVIC
  100. OPENDIS
  101. FILTERPAG
  102. %M&L,
  103. Empty 
  104. SHOW_NAM
  105. SHOW_NAME
  106. Q    n    *
  107. GETDIRHEA
  108. SHOW_ENTRIE
  109. SHOW_OFF_PAG
  110. GETPDRIVE
  111. disk error message ~
  112. SCREENBAS
  113. ALLOT                            
  114. ALLOT                            
  115. SENDSCREENBIT
  116. LTRIA
  117. POSITIO
  118. CARDRO
  119. MOVERO
  120. 4LINE
  121. 2ACROS
  122. SCRNHD
  123. SCR # 
  124. SCR # 
  125. CUR_DIR_HEA
  126. MINUTE
  127. OFF_DISK_NAM
  128. #Student Forth SCREENFILE from disk 
  129. , on 
  130.  @ 71
  131. CRTOGGL
  132. e1\+*
  133. WITHI
  134. BETWEE
  135. INV_RECOR
  136. INV_TRAC
  137. BFR_OVERFLO
  138. CAR_RE
  139. NEWCARDSE
  140. ESC_RULE
  141. ESC_GRAPHIC
  142. PAGE_BREA
  143. DISKBLKBU
  144. FILEHEADE
  145. CURDIRHEA
  146. FILETRSCTA
  147. DIRENTRYBU
  148. BYTECOUNTE
  149. CHARCOUNTE
  150. PAGECOUNTE
  151. VERSIONHEADE
  152. MAXPAGE
  153. STARTPAG
  154. ENDPAG
  155. TEXTBU
  156. %SAVEFORTH
  157. GETNAM
  158. type file name and return
  159. OPENVLI
  160. CLOSEVLI
  161. PREVIOUSRECOR
  162. NEXTRECOR
  163. POINTRECOR
  164. READRECOR
  165. GETPAG
  166. open error # ~
  167. record pointing error # ~
  168. FILTERTEX
  169. FILTERPAG
  170. TESTFILTE
  171. PAGECOMPIL
  172. PAGECOMPIL
  173. TEXTLOA
  174. PAGECOUNT
  175. ALLOT                            RDB
  176. RDMINRE
  177. RDCURRE
  178. RDMAXRE
  179. RDCURLIN
  180. RDCARRIAGERETURN
  181. RDDRIV
  182. RDNAM
  183. ALLOT           
  184. ALLOT                            
  185. ALLOT                      
  186. ALLOT                            
  187. RDTRSCTA
  188. ALLOT                  
  189. RDTRSCTA
  190. ALLOT                            
  191. GETREADNAM
  192. %type SEQ (read) fil
  193. GETREADNAM
  194. %type SEQ (read) file name and return 
  195. ALLOT                          
  196. ZFETC
  197. Q    P=n    
  198. CURDRIV
  199. SETREADDRIV
  200. Failed setting read deviceR
  201. Failed opening read driveR
  202. (FOLLOWCHAIN
  203. FOLLOWCHAI
  204. o>-#&4
  205. (CALCBLKSFREE
  206. CALCBLKSFRE
  207. >-#B4
  208. (PUTBLOCK
  209. (BLKALLOC
  210. (SETNEXTFREE
  211. (PUTDIRHEAD
  212. INTERLEAV
  213. (DELETEFILE
  214. (SAVEFILE
  215. (GETFHDRINFO
  216. (APPENDRECORD
  217. PRIMEREA
  218. couldn't find:
  219. on drive
  220. file:
  221. on drive
  222. isn't sequential
  223. file:
  224. on drive
  225. is too big
  226. PICPT
  227. PICADDRES
  228. NEXTPICPT
  229. ALLOT                            
  230. -BLOC
  231. COUNTCARRIAGERETURN
  232. Could count lines 
  233. RDERROR                          
  234. ROWPT
  235. ROWADDRES
  236. NEXTROWPT
  237. UNCOMPAC
  238. EXPANDPI
  239. GETPI
  240. Couldn't open 
  241. Couldn't point to record{5
  242. Couldn't read{5
  243. SENDPBP
  244. SENDRO
  245. SENDPAG
  246. Problem!! 
  247. Q    n    yG
  248. PAGE  
  249. INITIALIZENAM
  250. SETNAM
  251. DOPAGE
  252. COPYRIGHTNOTIC
  253. Copyright Hank Wilkinson 
  254.