home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 132
/
Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
mehrfarb-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
491b
|
13 lines
5 print"[147]":printchr$(14)
10 poke53281,6:poke53282,0:poke53283,7:poke53284,10: rem laden der farbregister
20 poke53265,peek(53265)or 64: rem anschalten des modus
30 print"der modus ist eingeschaltet aber der"
35 print"zeichencode ist kleiner als 64"
40 print"[202][197][212][218][212][160][215][201][210][196][160][205][201][212][160][199][197][211][200][201][198][212][197][212][197][206][160][218][197][201][195][200][197][206]":print"[199][197][196][210][213][195][203][212]"
50 print"der druck mit reversen zeichen hat die"
60 print"hintergrundfarbe von register 53283"
70 print"[144] [210][197][214][197][210][211][197][160][213][206][196][160][199][197][211][200][201][198][212][197][212][197][160][218][197][201][195][200][197][206] "
80 print"[154]":poke198,0:wait198,1:poke198,0:printchr$(142)
90 poke 53265,peek(53265)and 191
100 end