home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_A.d64 / list 64 - gen. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.2 KB  |  26 lines
  1. 5 rem ** list 64 - generator **
  2. 10 input"startadresse:  (820) ";sa  :rem startadresse
  3. 12 input"farbe woerter:   (7) ";fw
  4. 14 input"farbe strings:   (5) ";fs
  5. 20 for x=0 to 184:read q:poke sa+x,q:next
  6. 22 poke sa+102,fw:poke sa+170,fs
  7. 25 if sa<>820 then hb=int((sa+15)/256):lb=(sa+15)-hb*256:pokesa+1,lb:pokesa+3,hb
  8. 30 print"abspeichern (j) ?"
  9. 40 get ta$:if ta$="" then 40
  10. 50 if ta$<>"j" then 95
  11. 60 open 1,8,2,"list 64"+str$(sa)+",p,w"
  12. 70 sh=int(sa/256):sl=sa-sh*256
  13. 80 print#1,chr$(sl);:print#1,chr$(sh);
  14. 90 for x=0 to 184:print#1,chr$(peek(sa+x));:next:close1
  15. 95 print"startadresse: "sa:sys sa:end
  16. 100 data169,67,160,3,141,6,3,140,7,3,169,0,133,247,96,72,165,203,201,60,240
  17. 110 data250,201,57,208,14,230,247,169,1,37,247,133,247,165,203,201,57,240
  18. 120 data250,165,247,208,4,104,76,26,167,173,134,2,133,2,192,4,208,14,169
  19. 130 data32,166,211,224,6,240,6,232,32,71,171,208,246,104,16,60,201,255,240
  20. 140 data56,36,15,48,52,56,233,127,170,132,73,160,255,202,240,8,200,185,158
  21. 150 data160,16,250,48,245,169,7,141,134,2,200,185,158,160,48,5,32,71,171
  22. 160 data208,245,164,73,41,127,32,71,171,72,169,32,32,71,171,104,24,144,43
  23. 170 data201,34,240,6,166,15,224,1,208,25,201,58,208,15,72,32,215,170,169
  24. 180 data32,162,6,32,71,171,202,208,250,104,32,71,171,24,144,13,162,5,142
  25. 190 data134,2,32,71,171,166,2,142,134,2,76,246,166
  26.