home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / d_hardco.py / d_hardco.bas next >
BASIC Source File  |  1997-10-09  |  2KB  |  70 lines
  1. DO
  2.   PRINT AT(8,1);"        D_Hardcopy Version 1.0 Public Domain (frei kopierbar)"
  3.   PRINT " ";
  4.   PRINT CHR$(27)+"p";
  5.   PRINT " ------ (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  6.   PRINT CHR$(27)+"q";
  7.   PRINT
  8.   PRINT "                Dieses Programm ist frei kopierbar (Public Domain)"
  9.   PRINT "     Jeder der dieses Programm öfters benützt, der kann mir ja mal schreiben."
  10.   PRINT "  Bitte Beachten Sie, das durch diesen Programm der Druckkopf die Druckernadeln"
  11.   PRINT "                    und das Farbband stark abgenutzt werden."
  12.   PRINT "        Ich kann keinen Schadenersatz für defekte Drucker übernehmen."
  13.   PRINT "          Die Benutzung dieses Programmes erfolgt auf eigene Gefahr."
  14.   PRINT "   Ich übernehme keine Garantie für die Fehlerfreiheit meiner Programme."
  15.   PRINT "          Die zu druckenden Bilder sollten als DOO Bilder vorliegen."
  16.   PRINT STRING$(80,45)
  17.   PRINT "            Bitte wählen Sie  1 = Hardcopy 1"
  18.   PRINT "                              2 = Hardcopy 2"
  19.   PRINT "                              3 = Programmende"
  20.   PRINT STRING$(80,45)
  21.   a$=INKEY$
  22.   IF a$="1"
  23.     GOSUB hardcopy1
  24.   ENDIF
  25.   IF a$="2"
  26.     GOSUB hardcopy2
  27.   ENDIF
  28.   IF a$="3"
  29.     END
  30.   ENDIF
  31. LOOP
  32. PROCEDURE hardcopy_1
  33.   LPRINT CHR$(27);"A";CHR$(8)   !zeilenabstand verringern
  34.   FILESELECT "\*.DOO",a$,a$
  35.   BLOAD a$,XBIOS(3)
  36.   DATA 128,64,32,16,8,4,2,1
  37.   DIM z(7)
  38.   FOR v=0 TO 7
  39.     READ z(v)
  40.   NEXT v
  41.   FOR y=0 TO 399 STEP 8
  42.     LPRINT CHR$(27);"Z";CHR$(128);CHR$(2);
  43.     FOR x=0 TO 639
  44.       z=0
  45.       FOR u=0 TO 7
  46.         IF POINT(x,y+u)=1
  47.           z=z+z(u)
  48.         ENDIF
  49.       NEXT u
  50.       LPRINT CHR$(z);
  51.     NEXT x
  52.     LPRINT
  53.   NEXT y
  54. RETURN
  55. PROCEDURE hardcopy_2
  56.   FILESELECT "\*.DOO",a$,a$
  57.   BLOAD a$,XBIOS(2)
  58.   FOR y=0 TO 399
  59.     LPRINT CHR$(27);"3";CHR$(1);CHR$(27);"Z";CHR$(128);CHR$(2);
  60.     FOR x=0 TO 639
  61.       IF POINT(x,y)
  62.         LPRINT CHR$(1);
  63.       ELSE
  64.         LPRINT CHR$(0);
  65.       ENDIF
  66.     NEXT x
  67.     LPRINT
  68.   NEXT y
  69. RETURN
  70.