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