home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / format.stringkur (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  737 b   |  31 lines
  1. 10 rem    *** format-routine ***
  2. 20 rem bringt strings auf definierte
  3. 30 rem laengen, fuellt ggf. auf.
  4. 40 rem
  5. 50 rem
  6. 60 rem syntax:
  7. 70 rem sys adresse(startstr,n,endstr)
  8. 80 :
  9. 90 :
  10. 100 rem diese routine ist frei im
  11. 110 rem speicher verschieblich !!!
  12. 120 :
  13. 130 data032,250,174,032,158,173,032,163
  14. 140 data182,134,251,132,252,133,253,032
  15. 150 data253,174,032,158,183,138,032,125
  16. 160 data180,160,000,196,097,240,022,196
  17. 170 data253,240,007,177,251,145,098,200
  18. 180 data208,241,169,032,145,098,196,097
  19. 190 data240,003,200,208,247,032,253,174
  20. 200 data032,139,176,166,013,240,019,133
  21. 210 data251,132,252,162,002,160,002,181
  22. 220 data097,145,251,202,136,016,248,076
  23. 230 data247,174,076,153,173,000,000,000
  24. 240 :
  25. 250 :
  26. 260 input "startadresse";sa
  27. 270 fori=sa to sa+85
  28. 280 read a:pokei,a
  29. 290 nexti
  30. 300 end
  31.