home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh18b.d64
/
g.h.1520
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
42 lines
100 A=A+1
110 IF A=1 THEN LOAD "COPY 1520",8,1
200 IF A=3 THEN 400
250 OPEN3,6,3:PRINT#3,1:CLOSE3
300 PRINT"[147]GIGA-CAD HARDCOPY"
310 PRINT"==================="
320 PRINT"DRUCKERTYP: 1520 PLOTTER"
330 PRINT"HARDCOPY ROUTINE : 'COPY 1520'"
340 PRINT" AUS 64'ER SH. 4/85"
350 INPUT"NAME DER GRAPHIK : ";N$
360 INPUT"FARBE DER GRAPHIK (0-3): ";C
370 PRINT"AUFLOESUNG : 1 = NORMAL"
380 PRINT" 4 = VIERFACH"
390 PRINT" 10 = ZEHNFACH"
391 INPUT"WELCHE AUFLOESUNG : 1[157][157][157]";D: B=-1
392 IFD<>1ANDD<>4ANDD<>10THENGOTO391
393 IFD=4THENN$="HV."+N$
394 IFD=10THENN$="HZ."+N$
395 PRINT"[147]"
400 IF D=4 OR D=10 THEN 500
420 IF A=2 THEN GOSUB 780
430 GOSUB 700
440 GOSUB 750
450 GOTO 800
500 IF A=2 THEN B=B+2 : GOSUB 790
510 GOSUB 700
520 A=2
530 IF B=D OR B=D-1 THEN GOSUB 750
540 IF B=D THEN GOTO 800
550 IF B=D-1 THEN B=0
560 GOTO 500
700 POKE 3399,32: POKE 3392,0: POKE 1000,0:POKE 1001,3ANDC
710 PRINT"PRINTING : ";N$:POKE780,1:SYS 3328
720 OPEN1,6,1:PRINT#1,"M",0,-180:CLOSE1
730 OPEN1,6:PRINT#1,"":CLOSE1:RETURN
750 OPEN1,6:PRINT#1,"":PRINT#1,"":PRINT#1,"":CLOSE1:RETURN
780 PRINT"LOADING : ";N$:LOAD N$,8,1
790 PRINT"LOADING : ";N$+STR$(B):LOAD N$+STR$(B),8,1
800 INPUT"NOCHMAL (J/N)? : N[157][157][157]";EA$
810 IFEA$="J"THENA=1:GOTO100
820 END