home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 March
/
64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64
/
superquality
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
78 lines
100 :
110 poke53280,2:poke53281,2:poke646,7
120 print"[147]***************************"
130 print"* *"
140 print"* printfox-superquality *"
150 print"* *"
160 print"* (w) kai ploog *"
170 print"* (c) 64'er *"
180 print"* *"
190 print"***************************"
200 :
210 ifl<>0then240
220 l=1:printchr$(8);chr$(14)
230 goto 300
240 gosub 520
250 gosub 650
260 gosub 350
270 gosub 410
280 end
290 :
300 rem *** printer-file laden ***
310 print"[194]itte [208]rogrammdiskette einlegen..."
320 poke198,0:wait198,1
330 load"printer",8,1
340 :
350 rem *** altes file umbenennen ***
360 print"[194]itte [218]ieldiskette":print"oder [208]rogrammdisk einlegen..."
370 poke198,0:wait198,1
380 open1,8,15,"r:printer.old=printer":close1
390 return
400 :
410 rem *** neues file speichern ***
420 poke781,219
430 poke782,99
440 poke167,0
450 poke168,96
460 poke780,167
470 open1,8,3,"printer"
480 sys65496
490 close1
500 return
510 :
520 rem *** modifizieren ***
530 poke24948,128 :rem hi-quality
540 poke24949,99
550 poke24965,128
560 poke24966,99
570 poke24813,212
580 poke24814,99
590 poke24819,36 :rem lo-quality
600 poke24843,36
610 poke24971,81
620 ifpeek(25442)=23thenpoke25442,24
630 return
640 :
650 rem *** datas einlesen ***
660 fori=25472to25563
670 reada:poke i,a
680 next
690 fori=25426to25429
700 reada:poke i,a
710 next
720 return
730 :
740 data 36, 98, 16, 4, 36, 25, 16, 6
750 data 76, 136, 97, 234, 234, 234, 72, 165
760 data 29, 201, 1, 240, 34, 197, 14, 208
770 data 7, 192, 8, 240, 16, 234, 234, 234
780 data 104, 72, 37, 15, 32, 179, 98, 32
790 data 179, 98, 234, 234, 234, 104, 133, 15
800 data 32, 179, 98, 96, 234, 234, 234, 192
810 data 1, 208, 229, 104, 72, 37, 15, 32
820 data 179, 98, 32, 179, 98, 104, 133, 15
830 data 32, 179, 98, 169, 0, 32, 179, 98
840 data 32, 179, 98, 96, 165, 29, 133, 14
850 data 76, 65, 98, 234
860 data 13,0,51,27