Hardcopy Epson FX-80

Ich bin ein Freund der guten Hires-Darstellungen. Mein Basic-Programm ermöglicht es, den Epson voll in seiner Fähigkeit des Plottens auszunutzen und das Bild zu verändern, das heißt:

Veränderung der Punktdichte
Veränderung der Darstellung

Für jede Veränderung müssen nur eine beziehungsweise mehrere Variablen geändert werden. Das Programm eignet sich natürlich auch für mathematische Funktionen oder ähnliches. Das Programm arbeitet problemlos mit dem Centronics-Interface von Data Becker.

(Mark Zimmermann/rg)

0 open1,4,1:print#1,chr$(27);"l";chr$(64);chr$(1);
2 dim s(7,7):l=0:q=8192
3 a=128:b=64:c=32:d=16:e=8:f=4:g=2:h=1
4 forl=1to25
6 forr=qtoq+320step8
8 forn=0to7
10 m=r+n
11 printm:print"{up}{up}"
12 x=peek(m)
28 if x>=a then x=x-a:gosub 1000:s(n,0)=1:goto 30
29 gosub 2000:s(n,0)=0
30 if x>=b then x=x-b:gosub 1000:s(n,1)=1:goto 50
40 gosub 2000:s(n,1)=0
50 if x>=c then x=x-c:gosub 1000:s(n,2)=1:goto 70
60 gosub 2000:s(n,2)=0
70 if x>=d then x=x-d:gosub 1000:s(n,3)=1:goto 90
80 gosub 2000:s(n,3)=0
90 if x>=e then x=x-e:gosub 1000:s(n,4)=1:goto110
100 gosub 2000:s(n,4)=0
110 if x>=f then x=x-f:gosub 1000:s(n,5)=1:goto130
120 gosub 2000:s(n,5)=0
130 if x>=g then x=x-g:gosub 1000:s(n,6)=1:goto150
140 gosub 2000:s(n,6)=0
150 if x=hthen gosub 1000:s(n,7)=1:goto3000
160 gosub 2000:s(n,7)=0
180 nextn:goto3000:rem*** wenn mehr datas dann goto4! ***
1000 rem print"*";
1010 return
2000 remprint".";
2010 return
3000 a=0 :rem *** umwandlung der wertikalen datas in horizontaldatas ***
4001 rem *** umwandlung der horizonalen datas in epson datas ***
4010 forn=oto7
4011 j=s(0,n)*128+(s(1,n)*64)+(s(2,n)*32)+(s(3,n)*16+s(4,n)*8)
4015 k(n)=j+(s(5,n)*4)+(s(6,n)*2)+s(7,n)
4020 print#1,chr$(k(n));
4030 nextn:nextr:
4040 q=q+320:print#1,chr$(13);chr$(27);"l";chr$(64);chr$(1);:nextl
4050 rem *** basic hardcopy    ***
4060 rem *** by mark zimmermann ***
4070 rem *** postfach 22 00 44 ***
4080 rem *** stadtwaldwende 20 ***
4090 rem *** d - 4300 essen 01 ***
5000 rem *** for  c=64 & epson ***

Listing »Hardcopy Epson FX-80«