home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 February
/
64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64
/
beispiel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
944b
|
23 lines
5 rem beispiel 2 fuer epson fx-80+/85 & vc1541
10 rem verschiedene varianten den seq-befehl anzuwenden
20 seq#1,(65):rem 'a' auf bildschirm
30 seq#1,(65,66,67,68,69):rem 'abcde' auf bildschirm
40 seq#1,(80:66):rem 80 * 'b' auf bildschirm
50 seq#1,(80:65,80:66):rem 80 * 'a' & 80 * 'b' auf bildschirm
60 seq#1,("abcdef"):rem abcdef auf bildschirm
70 a$="abcdef":a=90:seq#1,(mid$(a$,2,3),sin(a*(NULL)/180)*4:14*4)
80 rem 'bcd888' auf bildschirm
85 rem
90 open1,8,15:open 2,8,2,"#":rem block 35 00 auf diskette mit 00 vollschreiben
100 seq#1,("u1 2 0 35 0");
110 seq#2,(255:0);
120 seq#1,("u2 2 0 35 0");
130 close1:close2
140 rem
150 open 1,4,12:rem sek.adr.12 = linearkanal goerlitzinterface wieseman=1
160 seq#1,("k",255,0,255:255):rem zeichnen eines balkens im epsongrafikmode
170 seq#1,("l",12,0,1,3,7,15,31,63,63,31,15,7,3,1):rem dreieck zeichnen
180 seq#1,("&",0,"aa",139,38,11,64,73,240,137,64,73,38,0,0,0,"%",1,0,"aaaa")
181 rem neues zeichen defienieren & ausdrucken
190 close1