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