home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33b.d64 / beispiel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  944b  |  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.