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