home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 November / 64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64 / stp (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  29 lines
  1. 1 deffnb(x)=x+48-7*(x>9):print"[147][150] star-texter printer tool (rw) poegot":goto10
  2. 2 rem dez --> hex
  3. 3 q$="":q=16:fori=0to1step0
  4. 4 r=d-(int(d/q)*q):t=fnb(r):q$=chr$(t)+q$
  5. 5 d=int(d/q):ifd=0theni=1
  6. 6 next:iflen(q$)<2thenq$="0"+q$
  7. 7 return
  8. 10 print"[152]":fory=0to9:print" e[146]"mid$(str$(y),2);:reada$:print" [158]"a$"[152]
  9. 20 [153]" await"[202]([196](y),2):[130]
  10. 30 a[178]36904:[153]"":[129]y[178]0[164]19:[153]"";
  11. 40 [129]x[178]0[164]7:[153]" ";:d[178][194](a[170]n):[141]3
  12. 50 [153]q$;:n[178]n[170]1:[130]:[153]:[130]
  13. 60 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  14. 70 [153]"(NULL)   tasten : cursor, +/-, return      (NULL)"
  15. 80 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  16. 90 f[178]55296:a[178]36895:y[178]2:x[178]14
  17. 100 c[178]f[170]x[170]40[172](y):b[178]a[170]8[172](y[171]1)[170]((x[171]11)[173]3):[129]k[178]c[164]c[170]1:[151]k,1:[130]:[158]46374:d$[178]""
  18. 110 [151]198,0:[146]198,1:[161]d$:[129]k[178]c[164]c[170]1:[151]k,12:[130]:[139]d$[178][199](13)[167][128]
  19. 120 [139]d$[178]""[167]y[178]y[170]1[170]20[172](y[178]21):[137]100
  20. 130 [139]d$[178]"on"[167]y[178]y[171]1[171]20[172](y[178]2):[137]100
  21. 140 [139]d$[178]""[167]x[178]x[170]3[170]24[172](x[178]35):[137]100
  22. 150 [139]d$[178]"cmd"[167]x[178]x[171]3[171]24[172](x[178]14):[137]100
  23. 160 [139]d$[178]"+"[167][151]b,[194](b)[170]1[170]256[172]([194](b)[178]255)
  24. 170 [139]d$[178]"-"[167][151]b,[194](b)[171]1[171]256[172]([194](b)[178]0)
  25. 180 d[178][194](b):[141]3
  26. 190 [151]781,y:[151]782,x:[158]58636:[153]q$:[137]100
  27. 280 [131]"unterstr","hoch","tief","eng","fett","elite","proport.","kursiv"
  28. 300 [131]"doppelt","nlq"
  29.