home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9108a.d64 / using.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.