home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / EDITFUN (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  939 b   |  32 lines
  1. editfun
  2. prg FORMATTED geos FILE v1.0
  3. cope sOURCE v1.1
  4. disk a
  5. cope eDITOR v1.1
  6. uNTITLED
  7. editfun
  8. a$apaWa
  9. /; tHE NAME OF THIS FILE IS editfunction
  10. cut copy clear paste
  11.  jsr $c1bd
  12. cut1x copy1x paste1x
  13.  LOADW r0:vndb8
  14.  jsr $c256
  15. ;-  dialog box for prompt
  16. vndb8
  17. .byte 128+2
  18. .bYTE 2,17,77-8
  19. .byte 11,8,24
  20. .word xD11
  21. .byte 11,8,36
  22. .word xD2
  23. .byte 11,8,48
  24. .word xD3
  25. .bYTE 14
  26. .bYTE 0
  27. xD11 .byte 'yOU HAVE SELECTED A RESIDENT',0
  28. xD2 .byte 'ROUTINE.  nO DISK ACCESS',0
  29. xD3 .byte 'IS NECESSARY TO RUN.',0
  30. ;=======
  31. ;=========
  32.