home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9001a.d64 / zollrhc (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  1KB  |  42 lines
  1. 1 REM          ZOLLRASTERHARDCOPY
  2. 2 REM
  3. 3 REM          VON NORBERT RAMEK
  4. 4 REM          IGNAZ RIEDERKAI 17
  5. 5 REM          A-5020 SALZBURG
  6. 6 REM
  7. 10 IF A<>1 THEN A=1:LOAD"OBJ LOADGR",8,1
  8. 20 IF B<>1 THEN B=1:LOAD"OBJ ZOLLRHC",8,1
  9. 40 PRINT"[147]"
  10. 50 PRINT," ZOLLRASTERHARDCOPY "
  11. 60 PRINT"    FUER ZWEI NEBENEINANDERLIEGENDE"
  12. 70 PRINT,"   EINZELGRAFIKEN"
  13. 80 SYS 26400,0,15:      REM GRAFIK LOESCHEN,PUNKTFARBE,HINTERGR.FARBE
  14. 90 FI$="":INPUT"FILENAME FUER LINKE GRAFIK";FI$
  15. 100 IF FI$="" THEN 140
  16. 110 GOSUB 500
  17. 120 IF A<>0 THEN PRINT A;B$:GOTO 90
  18. 130 SYS 26403,FI$,8:     REM LINKE GRAFIK NACH $4000 LADEN UND ZEIGEN
  19. 140 INPUT"O.K. (J/N)";C$
  20. 150 IF C$="J" THEN 180
  21. 160 IF C$="N" THEN 90
  22. 170 GOTO 140
  23. 180 PRINT
  24. 190 SYS 26406:           REM GRAFIK VON $4000 NACH $2000 VERSCHIEBEN
  25. 200 SYS 26400,0,15:      REM GRAFIK LOESCHEN,PUNKTFARBE,HINTERGR.FARBE
  26. 210 FI$="":INPUT"FILENAME FUER RECHTE GRAFIK";FI$
  27. 220 IF FI$="" THEN 260
  28. 230 GOSUB 500
  29. 240 IF A<>0 THEN PRINT A;B$:GOTO 210
  30. 250 SYS 26403,FI$,8:     REM RECHTE GRAFIK LADEN UND ZEIGEN
  31. 260 INPUT"O.K. (J/N)";C$
  32. 270 IF C$="J" THEN 300
  33. 280 IF C$="N" THEN 210
  34. 290 GOTO 260
  35. 300 OPEN 1,4,1:          REM LINEARKANAL DRUCKER
  36. 310 SYS 25600:           REM HARDCOPY
  37. 320 END
  38. 500 REM FILENAME TESTEN
  39. 510 OPEN 1,8,2,FI$:CLOSE 1
  40. 520 OPEN 1,8,15:INPUT#1,A,B$:CLOSE 1
  41. 530 RETURN
  42.