home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 March / 64er_Magazin_95-03_1995_Markt__Technik_de_Side_A.d64 / hamanns data-gen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  566 b   |  16 lines
  1. 10 ifa%=.thena%=1:load"hdg.mc",8,1
  2. 11 poke53280,6:poke53281,6:print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  3. 12 print"     hamann's data-zeilen-generator     [146]":dime%,n%,d%,l%
  4. 13 u=65536:h=u/2-1
  5. 14 input"startadresse  (dez.)  :";a:on-(a<.ora>=u)goto11:ifa>hthena%=a-u:goto16
  6. 15 a%=a
  7. 16 input"endadresse    (dez.)  :";e:on-(e<.ore>=u)goto11:ife>hthene%=e-u:goto18
  8. 17 e%=e
  9. 18 ifa>=ethen11
  10. 19 input"1. zeilennummer       :";a:on-(a>=.anda<30000)goto20:print"[145][145]":goto19
  11. 20 n%=a
  12. 21 input"zeilenabstand (1-99)  :";a:on-(a>.anda<100)goto22:print"[145][145]":goto21
  13. 22 d%=a
  14. 23 input"zeilenlaenge (30-80)  :";a:on-(a>29anda<81)goto24:print"[145][145]":goto23
  15. 24 l%=a:sys49152
  16.