home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 81
/
64er_Magazin_Sonderheft_81_19xx_Markt__Technik_de_Side_A.d64
/
zollrhc
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
42 lines
1 rem zollrasterhardcopy
2 rem
3 rem von norbert ramek
4 rem ignaz riederkai 17
5 rem a-5020 salzburg
6 rem
10 if a<>1 then a=1:load"obj loadgr",8,1
20 if b<>1 then b=1:load"obj zollrhc",8,1
40 print"[147]"
50 print," zollrasterhardcopy "
60 print" fuer zwei nebeneinanderliegende"
70 print," einzelgrafiken"
80 sys 26400,0,15: rem grafik loeschen,punktfarbe,hintergr.farbe
90 fi$="":input"filename fuer linke grafik";fi$
100 if fi$="" then 140
110 gosub 500
120 if a<>0 then print a;b$:goto 90
130 sys 26403,fi$,8: rem linke grafik nach $4000 laden und zeigen
140 input"o.k. (j/n)";c$
150 if c$="j" then 180
160 if c$="n" then 90
170 goto 140
180 print
190 sys 26406: rem grafik von $4000 nach $2000 verschieben
200 sys 26400,0,15: rem grafik loeschen,punktfarbe,hintergr.farbe
210 fi$="":input"filename fuer rechte grafik";fi$
220 if fi$="" then 260
230 gosub 500
240 if a<>0 then print a;b$:goto 210
250 sys 26403,fi$,8: rem rechte grafik laden und zeigen
260 input"o.k. (j/n)";c$
270 if c$="j" then 300
280 if c$="n" then 210
290 goto 260
300 open 1,4,1: rem linearkanal drucker
310 sys 25600: rem hardcopy
320 end
500 rem filename testen
510 open 1,8,2,fi$:close 1
520 open 1,8,15:input#1,a,b$:close 1
530 return