home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / SCRIPT.VLIR (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  1.5 KB  |  66 lines
  1. Script.vlir
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4. UTILITY
  5. LASTER'S 
  6. ONVERTER 
  7. EDITFUN
  8. TABLES
  9. COPE Source V1.1
  10. DISK A
  11. COPE Editor V1.1
  12. Untitled
  13. Script.vlir
  14. D&D-D-D-D-D-D-D-D
  15. /.START $400
  16. .INIT CodeHere
  17. .TYPE 6
  18. .NAME COPE_VLIR
  19. .Dname copeVLIR
  20. .Author BSC TechUnit
  21. ;---------
  22. .Icon 0,$20,$F0
  23. .Byte 0,$F8,$F0,1,$8D,$20,3,7
  24. .Byte $E0,6,$26,$40,$C,$66,$40,$18,$C4,$80,$31,$8C,$E0,$71,$19,$30
  25. .Byte $58,$39,$18,$EC,$12,$0C,$36,$1E,$66,$1B,$1C,$C3,$D,$99,$81,6
  26. .Byte $D3,$31,3,$60,$63,1,$B0,$C6,0,$D8,$8C,0,$6C,$18,0,$37
  27. .Byte $F0,0,$1F,$E0
  28. ;=====
  29. ; equates for pages to be loaded in.
  30. SAPAGENO = 1
  31. FINDPAGE =  2
  32. PRINTPAGE = 3
  33. PageMove = 4
  34. ASAVE =    5
  35. ;----
  36. .Include System; holds equates, constants, routines, and macros.
  37. CodeHere
  38. .Include MC51
  39. .Include UTILITY
  40. .Include LOAD
  41. .Include EDITFUN
  42. .Include TABLES
  43. .Segment; end of the resident section.
  44. ; Address to start paging of programs
  45. PageAddress; location to load in all the remainding pages.
  46. .Newpc PageAddress
  47. .Include SAVE
  48. .Segment SAPAGENO
  49. ;-----
  50. .Newpc PageAddress
  51. .Include FIND
  52. .Segment FINDPAGE
  53. ;----
  54. .Newpc PageAddress
  55. .Include PRINT
  56. .Segment PRINTPAGE
  57. ;------
  58. .Newpc PageAddress
  59. .Include PAGEMOVE
  60. .Segment PageMove
  61. ;-----
  62. .Newpc PageAddress
  63. .Include AUTOSAVE
  64. .Segment ASAVE
  65. ;------
  66.