home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / LOAD (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  893 b   |  30 lines
  1. prg FORMATTED geos FILE v1.0
  2. cope sOURCE v1.1
  3. disk a
  4. cope eDITOR v1.1
  5. uNTITLED
  6. @&amaPaYa
  7. /; load routine
  8.  jsr $c1bd ; goto first menu
  9. load2
  10. load3
  11.  LOADW r0:vndb11
  12.  jsr $c256
  13. ;-  dialog box for prompt
  14. vndb11
  15. .byte 128+2
  16. .bYTE 2,17,77-8
  17. .byte 11,8,24
  18. .word xJ1
  19. .byte 11,8,36
  20. .word xJ2
  21. .byte 11,8,48
  22. .word xJ3
  23. .bYTE 14
  24. .bYTE 0
  25. xJ1 .byte 'yOU HAVE SELECTED A RESIDENT',0
  26. xJ2 .byte 'ROUTINE.  nO DISK ACCESS',0
  27. xJ3 .byte 'IS NECESSARY TO RUN.',0
  28. ;=======
  29. ;-----
  30.