home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / SAVE (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  879 b   |  27 lines
  1. prg FORMATTED geos FILE v1.0
  2. cope sOURCE v1.1
  3. disk a
  4. cope eDITOR v1.1
  5. uNTITLED
  6. ajaHaQaQaQaQaQaQaQa
  7. /;  this is the upper level of the
  8. ;  save routines.
  9. save3
  10.  LOADW r0:vndb
  11.  jsr $c256
  12. ;-  dialog box for prompt
  13. .byte 128+2
  14. .bYTE 2,17,77-8
  15. .byte 11,8,24
  16. .word xF1
  17. .byte 11,8,36
  18. .word xF2
  19. .byte 11,8,48
  20. .word xF3
  21. .bYTE 14
  22. .bYTE 0
  23. xF1 .byte 'yOU HAVE LOADED rECORD #1',0
  24. xF2 .byte 'tHIS IS WHERE THE SAVE ROUTINES',0
  25. xF3 .byte 'aRE LOCATED AT.',0
  26. ;=======
  27.