home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 69
/
64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64
/
box.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
114 lines
4 rem ----------------------------
5 rem originalwerte fuer textmodus
6 rem in adressen 251/252 retten
7 rem ----------------------------
10 poke251,peek(53272)
20 poke252,peek(53265)
30 ba=8192:sys58692
40 gosub 1000
119 rem -------------------------
120 rem hires-bildschirm loeschen
121 rem -------------------------
130 for i=ba to ba+7999
140 poke i,0
150 next
160 sys58692
165 gosub 2000: rem textmodus ein
190 gosub 1000: rem hires-grafik ein
200 gosub 3000: rem farbram cyan
201 read x1,y1,x2,y2
202 ifx1=999then280
205 gosub355
210 goto201
280 poke198,0:wait198,1
281 gosub2000:sys58692:poke198,0:end
355 dx=x2-x1:dy=y2-y1
357 ifabs(dy)<abs(dx)then364
358 foryl=y1 to y2 step sgn(dy)
359 x=dx/dy*yl+x1
360 y=yl
361 gosub400
362 next yl
363 return
364 forxl=x1tox2stepsgn(dx)
365 x=xl
366 y=dy/dx*xl+y1
367 gosub 400
368 next xl
369 return
400 yp=int(y/8)
410 xp=int(x/8)
420 a1=(yp*40+xp)*8
430 ay=y-8*yp+a1
450 r=x-8*xp
460 m=2^(7-r)
470 i=peek(ay+ba)
480 poke ay+ba,i or m
490 return
994 rem ------------------------
995 rem unterprogramm
996 rem hires-grafik einschalten
997 rem ------------------------
1000 poke53272,peek(53272)or8
1010 poke53265,peek(53265)or32
1020 return
1994 rem ------------------------
1995 rem unterprogramm
1996 rem hires-grafik abschalten
1997 rem textmodus wieder aktivieren
1998 rem ------------------------
2000 poke53272,peek(251)
2010 poke53265,peek(252)
2020 return
2995 rem ------------------------
2996 rem unterprogramm
2997 rem hintergrund cyan und
2998 rem pixelfarbe schwarz
2999 rem ------------------------
3000 for i=1024 to 2023
3010 poke i,3: rem 16*code zeichenfarbe + code hintergrundfarbe = 0*16+1
3020 next: return
5000 data000,000,319,000
5010 data319,000,319,199
5020 data319,199,000,199
5030 data000,199,000,000
5040 data004,004,315,004
5041 data315,004,315,195
5042 data315,195,004,195
5043 data004,195,004,004
5050 data 006,006,313,006
5051 data 313,006,313,193
5052 data 313,193,006,193
5053 data 006,193,006,006
5054 data 007,007,312,007
5055 data 312,007,312,192
5056 data 312,192,007,192
5057 data 007,192,007,007
5060 data 160,100,260,100
5061 data 260,100,260,175
5062 data 260,175,160,175
5063 data 160,175,160,100
5064 data 162,102,258,102
5065 data 258,102,258,173
5066 data 258,173,162,173
5067 data 162,173,162,102
5070 data 030,030,100,030
5071 data 100,030,100,048
5072 data 100,048,030,048
5073 data 030,048,030,030
5080 data 032,030,032,048
5081 data 034,030,034,048
5082 data 036,030,036,048
5083 data 038,030,038,048
5084 data 040,030,040,048
5085 data 045,030,045,048
5086 data 056,030,056,048
5087 data 068,030,068,048
5088 data 081,030,081,048
5089 data 095,030,095,048
5090 data 096,030,096,048
5091 data 097,030,097,048
5092 data 098,030,098,048
5093 data 099,030,099,048
9999 data999,000,000,000