1 REM          ZOLLRASTERHARDCOPY
2 REM
3 REM          VON NORBERT RAMEK
4 REM          IGNAZ RIEDERKAI 17
5 REM          A-5020 SALZBURG
6 REM
10 IF A<>1 THEN A=1:LOAD"OBJ LOADGR",8,1
20 IF B<>1 THEN B=1:LOAD"OBJ ZOLLRHC",8,1
40 PRINT"[147]"
50 PRINT," ZOLLRASTERHARDCOPY "
60 PRINT"    FUER ZWEI NEBENEINANDERLIEGENDE"
70 PRINT,"   EINZELGRAFIKEN"
80 SYS 26400,0,15:      REM GRAFIK LOESCHEN,PUNKTFARBE,HINTERGR.FARBE
90 FI$="":INPUT"FILENAME FUER LINKE GRAFIK";FI$
100 IF FI$="" THEN 140
110 GOSUB 500
120 IF A<>0 THEN PRINT A;B$:GOTO 90
130 SYS 26403,FI$,8:     REM LINKE GRAFIK NACH $4000 LADEN UND ZEIGEN
140 INPUT"O.K. (J/N)";C$
150 IF C$="J" THEN 180
160 IF C$="N" THEN 90
170 GOTO 140
180 PRINT
190 SYS 26406:           REM GRAFIK VON $4000 NACH $2000 VERSCHIEBEN
200 SYS 26400,0,15:      REM GRAFIK LOESCHEN,PUNKTFARBE,HINTERGR.FARBE
210 FI$="":INPUT"FILENAME FUER RECHTE GRAFIK";FI$
220 IF FI$="" THEN 260
230 GOSUB 500
240 IF A<>0 THEN PRINT A;B$:GOTO 210
250 SYS 26403,FI$,8:     REM RECHTE GRAFIK LADEN UND ZEIGEN
260 INPUT"O.K. (J/N)";C$
270 IF C$="J" THEN 300
280 IF C$="N" THEN 210
290 GOTO 260
300 OPEN 1,4,1:          REM LINEARKANAL DRUCKER
310 SYS 25600:           REM HARDCOPY
320 END
500 REM FILENAME TESTEN
510 OPEN 1,8,2,FI$:CLOSE 1
520 OPEN 1,8,15:INPUT#1,A,B$:CLOSE 1
530 RETURN