home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9108a.d64
/
using.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
65 lines
10 SYS36864
20 .OPT OO
30 *= 51200
35 ; PRINT USING KONVERTER
40 ; SYS 51200,X,L,VZ,TS,NK,FZ,CA,X$
41 ; X ZAHL X$ ZIEL L LAENGE
42 ; VZ VORZEICHEN KEINES/VORN/HINTEN
43 ; TS FLAG TAUSENDERPUNKTE
44 ; NK ANZ NACHKOMMASTELLEN
45 ; FZ FUELLZEICHEN
46 ; CA NACHKOMMATRENNER PUNKT/KOMMA/LEER/ABGESCHNITTEN
47 ; (C) NH 16.04.91
100 JSR $AEFD:JSR $AD8A:LDX #0:BIT $66:BPL POS:DEX
102 POS STX PM:LSR $66:LDX #<PL:LDY #>PL:JSR $BBD4
110 JSR $B7F1:STX MAXLEN:JSR $B7F1:STX SIGN:JSR $B7F1:STX TAUS
112 JSR $AEFD:JSR $AD8A:LDX #<P2:LDY #>P2:JSR $BBD4
114 JSR $B7A1:STX AFTER
116 JSR $B7F1:STX FILL:JSR $B7F1:STX FISH
130 LDA #$F9:LDY #$BA:JSR $BA8C:LDA #<P2:LDY #>P2:JSR $BF78
132 LDX #<P2:LDY #>P2:JSR $BBD4:LDA #<PL:LDY #>PL:JSR $BA28:JSR $B849
134 JSR $BCCC:JSR $BC0C:LDA #<P2:LDY #>P2:JSR $BBA2:JSR $BB12
136 LDY #0:JSR $BDEC
140 LDX #-1
142 PO2 INX:LDA $100,X:BEQ PO1:CMP #".":BNE PO2:BEQ PO3
144 PO1 LDA #0:STA $101,X
148 PO3 STX P2:LDY FISH:LDA FISCHE,Y:STA $100,X:LDY #-1
150 PO4 INX:INY:LDA $100,X:BNE PO4
152 PO5 CPY AFTER:BEQ PO6:BCS PO7:LDA #"0":STA $100,X:INY:INX:BNE PO5
154 PO7 JMP $B4D0
156 PO6 LDA #0:STA $100,X:LDX #-1
158 SU INX:LDA $100,X:BNE SU
160 LDY P2:STX PL:BNE NU1
162 NU9 LDA $100,X:STA $101,X:DEX:BPL NU9:LDA #"0":STA $100:INC PL
164 NU1 LDA TAUS:BEQ NU3:LDA #3:STA PL+1
166 NU2 DEY:BMI NU3:DEC PL+1:BPL NU2:LDA #3:STA PL+1:INY:STY PL+2:LDY PL
168 NU4 LDA $100,Y:STA $101,Y:DEY:CPY PL+2:BCS NU4:INC PL
170 INY:LDA #".":STA $100,Y:BNE NU2
172 NU3 =*
180 LDA #32:LDX PM:BPL PL1:LDA #"-
182 PL1 LDX SIGN:BEQ PL2:BPL PL3
184 LDX PL:STA $100,X:LDA #0:STA $101,X:INC PL:BNE PL2
186 PL3 LDX PL:TAY
188 PL5 LDA $100,X:STA $101,X:DEX:BPL PL5:INC PL:STY $100
190 PL2 LDX PL:CPX MAX[195]:BEQ LE1:BCC LE2:JMP 42353
192 LE2 LDY MAX[195]
194 LE3 LDA $100,X:STA $100,Y:DEY:DEX:BPL LE3:LDA FILL
196 LE4 STA $100,Y:DEY:BPL LE4
198 LE1 LDX #[171]1
199 CO2 INX:LDA $100,X:BNE CO2:STX PL
200 JSR $AEFD:JSR $B08B:STA $49:STY $4A:JSR $B6A3
202 LDA PL:JSR $B475:LDY #2
204 SP LDA $61,Y:STA ($49),Y:DEY:BPL SP:INY
206 ST CPY PL:BEQ CA:LDA $100,Y:STA ($62),Y:INY:BNE ST
208 CA RTS
900 MAX[195] BRK
902 SIGN BRK
904 PM BRK
906 TAUS BRK
910 FILL BRK
912 AFTER BRK
914 FISH BRK
916 PL .[198] ".....
918 P2 .ASC ".....
920 FISCHE BRK:.[198] "., "