home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 August / 64er_Magazin_91-08_1991_Markt__Technik_de_Side_A.d64 / using.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  65 lines
  1. 10 sys36864
  2. 20 .opt oo
  3. 30 *= 51200
  4. 35 ; print using konverter
  5. 40 ; sys 51200,x,l,vz,ts,nk,fz,ca,x$
  6. 41 ; x zahl  x$ ziel   l laenge
  7. 42 ; vz vorzeichen keines/vorn/hinten
  8. 43 ; ts flag tausenderpunkte
  9. 44 ; nk anz nachkommastellen
  10. 45 ; fz fuellzeichen
  11. 46 ; ca nachkommatrenner punkt/komma/leer/abgeschnitten
  12. 47 ; (c) nh 16.04.91
  13. 100 jsr $aefd:jsr $ad8a:ldx #0:bit $66:bpl pos:dex
  14. 102 pos stx pm:lsr $66:ldx #<pl:ldy #>pl:jsr $bbd4
  15. 110 jsr $b7f1:stx maxlen:jsr $b7f1:stx sign:jsr $b7f1:stx taus
  16. 112 jsr $aefd:jsr $ad8a:ldx #<p2:ldy #>p2:jsr $bbd4
  17. 114 jsr $b7a1:stx after
  18. 116 jsr $b7f1:stx fill:jsr $b7f1:stx fish
  19. 130 lda #$f9:ldy #$ba:jsr $ba8c:lda #<p2:ldy #>p2:jsr $bf78
  20. 132 ldx #<p2:ldy #>p2:jsr $bbd4:lda #<pl:ldy #>pl:jsr $ba28:jsr $b849
  21. 134 jsr $bccc:jsr $bc0c:lda #<p2:ldy #>p2:jsr $bba2:jsr $bb12
  22. 136 ldy #0:jsr $bdec
  23. 140 ldx #-1
  24. 142 po2 inx:lda $100,x:beq po1:cmp #".":bne po2:beq po3
  25. 144 po1 lda #0:sta $101,x
  26. 148 po3 stx p2:ldy fish:lda fische,y:sta $100,x:ldy #-1
  27. 150 po4 inx:iny:lda $100,x:bne po4
  28. 152 po5 cpy after:beq po6:bcs po7:lda #"0":sta $100,x:iny:inx:bne po5
  29. 154 po7 jmp $b4d0
  30. 156 po6 lda #0:sta $100,x:ldx #-1
  31. 158 su inx:lda $100,x:bne su
  32. 160 ldy p2:stx pl:bne nu1
  33. 162 nu9 lda $100,x:sta $101,x:dex:bpl nu9:lda #"0":sta $100:inc pl
  34. 164 nu1 lda taus:beq nu3:lda #3:sta pl+1
  35. 166 nu2 dey:bmi nu3:dec pl+1:bpl nu2:lda #3:sta pl+1:iny:sty pl+2:ldy pl
  36. 168 nu4 lda $100,y:sta $101,y:dey:cpy pl+2:bcs nu4:inc pl
  37. 170 iny:lda #".":sta $100,y:bne nu2
  38. 172 nu3 =*
  39. 180 lda #32:ldx pm:bpl pl1:lda #"-
  40. 182 pl1 ldx sign:beq pl2:bpl pl3
  41. 184 ldx pl:sta $100,x:lda #0:sta $101,x:inc pl:bne pl2
  42. 186 pl3 ldx pl:tay
  43. 188 pl5 lda $100,x:sta $101,x:dex:bpl pl5:inc pl:sty $100
  44. 190 pl2 ldx pl:cpx max[195]:beq le1:bcc le2:jmp 42353
  45. 192 le2 ldy max[195]
  46. 194 le3 lda $100,x:sta $100,y:dey:dex:bpl le3:lda fill
  47. 196 le4 sta $100,y:dey:bpl le4
  48. 198 le1 ldx #[171]1
  49. 199 co2 inx:lda $100,x:bne co2:stx pl
  50. 200 jsr $aefd:jsr $b08b:sta $49:sty $4a:jsr $b6a3
  51. 202 lda pl:jsr $b475:ldy #2
  52. 204 sp lda $61,y:sta ($49),y:dey:bpl sp:iny
  53. 206 st cpy pl:beq ca:lda $100,y:sta ($62),y:iny:bne st
  54. 208 ca rts
  55. 900 max[195] brk
  56. 902 sign brk
  57. 904 pm brk
  58. 906 taus brk
  59. 910 fill brk
  60. 912 after brk
  61. 914 fish brk
  62. 916 pl .[198] ".....
  63. 918 p2 .asc ".....
  64. 920 fische brk:.[198] "., "
  65.