home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-10_1988_-_de_Side_B.d64 / uni-transfere (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  669b  |  19 lines
  1. 0 rem ------------------------
  2. 1 rem  supertrans uniserselle
  3. 2 rem  by frank abbing
  4. 3 rem ---------------------------
  5. 4 rem  sys51200,anfadr.,endadr.,
  6. 5 rem           zieladresse
  7. 6 rem
  8. 7 rem  sys51200,a,e,z
  9. 8 rem ---------------------------
  10. 9 :
  11. 10 fort=51200to51296:readq:poket,q:next
  12. 15 data32,253,174,32,138,173,32,247,183,140,46,200,141,47,200,32,253,174,32
  13. 20 data138,173,32,247,183,140,60,3,141,61,3,32,253,174,32,138,173,32,247
  14. 25 data183,140,49,200,141,50,200,173,80,195,141,80,195,173,47,200,205,61,3
  15. 30 data208,9,173,46,200,205,60,3,208,1,96,238,46,200,238,49,200,173,46,200
  16. 35 data201,0,208,3,238,47,200,173,49,200,201,0,208,210,238,50,200,76,45,200
  17. 40 :
  18. 45 rem  - geil ! -
  19.