home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 7 / Commodore_Disc_07_19xx_-_de.d64 / 64.merge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  610b  |  22 lines
  1. 1 rem == 1.programm laden ==========
  2. 2 rem == aufruf: sys 49152 =========
  3. 3 rem == 2.programm laden ==========
  4. 4 rem == verbinden mit sys 49182 ===
  5. 5 rem == 12.04.87 h.b ==============
  6. 10 dimhx(75)
  7. 11 fori=0to9:hx(48+i)=i:hx(65+i)=i+10
  8. 12 next
  9. 13 fori=49152to49226:readmc$
  10. 14 hi=asc(left$(mc$,1)):lo=asc(right$(mc$,1))
  11. 15 dz=hx(hi)*16+hx(lo):pokei,dz:next:new
  12. 1000 dataa5,2b,85,fb,a5,2c,85,fc
  13. 1001 dataa5,2d,e9,01,29,ff,85,2b
  14. 1002 dataa5,2e,29,ff,85,2c,a9,27
  15. 1003 dataa0,c0,20,1e,ab,60,a5,fb
  16. 1004 data85,2b,a5,fc,85,2c,60,20
  17. 1005 data20,32,2e,50,52,4f,47,52
  18. 1006 data41,4d,4d,20,4c,41,44,45
  19. 1007 data4e,2c,44,41,4e,4e,2c,27
  20. 1008 data53,59,53,20,34,39,31,38
  21. 1009 data32,27,00
  22.