Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / SPE.ZIP / PRINT.PRT < prev next >

Wrap

Text File | 1987-06-14 | 18.7 KB | 107 lines

______________________________________________________________________________________________________________________ ! REM Basic Program : print ! ! REM created : 9.3.86 ! ! REM from : Volker Sasse ! ! REM Structogram saved on disk : Basic-Sicher ! ! REM filename : print.spe ! ! REM Basic text saved on disk : Basic-Sicher ! ! REM filename : print.bas ! ! REM ! ! REM This program prints structograms in the way you see them on the screen. ! ! REM This program needs the font <<print.fon>> as datafile. ! ! REM In order to print a structogram make a printfile on a disk with the command print. ! ! REM ! ! REM You can print a few structograms in one session while you make a walk. ! ! REM ! ! REM You need a dot matrix printer which is compatible to the Epson MX80. ! ! REM The program uses the dual-density bit image mode 960 dots per line. ! ! REM If the program does not work reference your printer manual and change the controlcodes. ! ! REM ! ______________________________________________________________________________________________________________________ ! REM ! ! REM Vereinbarungen ! ! REM ! ! REM Druckmatrix : Höhe = 10 Punkte, Breite = 8 Punkte ! ! Hoehe = 10 ! ! Breite = 8 ! ! DIM High$(255), Low$(255) ! ! Verschiebung1 = 5 ! ! Verschiebung2 = 5 ! ! Zeichensatz$ = "" ! ! Punktbreite = 4 ! ! Punkthoehe = 2 ! ______________________________________________________________________________________________________________________ ! COLOR 7,0 ! ! CLS ! ! PRINT "Program for printing SPE structograms" ! ! Zeichensatz$="print.fon" ! ! PRINT "How many times shall I go over a line (number)"; ! ! INPUT Doppel ! ! Struktogramm$="" ! ! DIM Strukto$(50) ! ! Stzaehler=0 ! ! PRINT "Press RETURN if list is complete!" ! ______________________________________________________________________________________________________________________ ! ! ___________________________________________________________________________________________________________________ ! ! INPUT "Which structogram shall be printed "; Struktogramm$ ! ! ! IF Struktogramm$="" ! ___________________________________________________________________________________________________________________ ! ! EXIT ! Strukto$(Stzaehler)=Struktogramm$ ! ! ! ! Stzaehler=Stzaehler + 1 ! ______________________________________________________________________________________________________________________ ! PRINT "Filenames correct, continue program (y) "; ! ! INPUT Entscheidung$ ! ! IF Entscheidung$<>"y" ! ______________________________________________________________________________________________________________________ ! EXIT ! GOSUB Satzladen ! _______________________________________________________________________________________________________________ ! ! FOR St=0 to Stzaehler-1 ! ____________________________________________________________________________________________________________ ! ! ! Struktogramm$=Strukto$(St) ! ! ! ! PRINT "Printing : "; Struktogramm$ ! ! ! ! GOSUB Struktogramm ! ______________________________________________________________________________________________________________________ ! END ! ______________________________________________________________________________________________________________________ ! Satzladen ! ___________________________________________________________________________________________________________________ ! ! PRINT "Loading : "; Zeichensatz$ ! ! ! OPEN Zeichensatz$ FOR INPUT AS #2 ! ___________________________________________________________________________________________________________________ ! ! FOR T=0 TO 255 ! ________________________________________________________________________________________________________________ ! ! ! High$(T)="" : Low$(T)="" ! ________________________________________________________________________________________________________________ ! ! ! FOR Q=1 TO Breite ! _____________________________________________________________________________________________________________ ! ! ! ! INPUT #2, High% : High$(T)=High$(T) + CHR$(High%) ! ! ! ! ! INPUT #2, Low% : Low$(T) =Low$(T) + CHR$(Low%) ! ___________________________________________________________________________________________________________________ ! ! CLOSE #2 ! ___________________________________________________________________________________________________________________ ! ! ______________________________________________________________________________________________________________________ ! PrLine ! ___________________________________________________________________________________________________________________ ! ! Anzahl=LEN(B$) * Breite ! ! ! High=INT(Anzahl / 256) : Low=Anzahl - High * 256 ! ! ! PRINT #1, CHR$(27);"A";CHR$(Verschiebung1);CHR$(27);CHR$(2); ! ___________________________________________________________________________________________________________________ ! ! FOR F=1 TO Doppel ! ________________________________________________________________________________________________________________ ! ! ! PRINT #1, CHR$(13);CHR$(27);"L";CHR$(Low);CHR$(High); ! ________________________________________________________________________________________________________________ ! ! ! FOR T=1 TO LEN(B$) ! _____________________________________________________________________________________________________________ ! ! ! ! PRINT #1, High$(ASC(MID$(B$, T, 1))); ! ___________________________________________________________________________________________________________________ ! ! PRINT #1, CHR$(10); ! ___________________________________________________________________________________________________________________ ! ! FOR F=1 TO Doppel ! ________________________________________________________________________________________________________________ ! ! ! PRINT #1, CHR$(13);CHR$(27);"L";CHR$(Low);CHR$(High); ! ________________________________________________________________________________________________________________ ! ! ! FOR T=1 TO LEN(B$) ! _____________________________________________________________________________________________________________ ! ! ! ! PRINT #1, Low$(ASC(MID$(B$, T, 1))); ! ___________________________________________________________________________________________________________________ ! ! ______________________________________________________________________________________________________________________ ! SuLine ! ___________________________________________________________________________________________________________________ ! ! Anzahl=LEN(B$) * Breite ! ! ! High=INT(Anzahl / 256) : Low=Anzahl - High * 256 ! ___________________________________________________________________________________________________________________ ! ! FOR F=1 TO Doppel ! ________________________________________________________________________________________________________________ ! ! ! PRINT #1, CHR$(13);CHR$(27);"L";CHR$(Low);CHR$(High); ! ________________________________________________________________________________________________________________ ! ! ! FOR T=1 TO LEN(B$) ! _____________________________________________________________________________________________________________ ! ! ! ! PRINT #1, Low$(ASC(MID$(B$, T, 1))); ! ___________________________________________________________________________________________________________________ ! ! ______________________________________________________________________________________________________________________ ! Struktogramm ! ___________________________________________________________________________________________________________________ ! ! OPEN "LPT1" FOR OUTPUT AS #1 ! ! ! OPEN Struktogramm$ FOR INPUT AS #2 ! ! ! B$="" : ZH=0 : ME=0 ! ___________________________________________________________________________________________________________________ ! ! FOR T=1 TO 2 ! ________________________________________________________________________________________________________________ ! ! ! ! _____________________________________________________________________________________________________________ ! ! ! ! A$=INPUT$(1, #2) ! _____________________________________________________________________________________________________________ ! ! ! ! IF A$=CHR$(13) ! _____________________________________________________________________________________________________________ ! ! ! ! EXIT ! ! ___________________________________________________________________________________________________________________ ! ! ! ________________________________________________________________________________________________________________ ! ! ! IF EOF(2) ! ________________________________________________________________________________________________________________ ! ! ! PRINT #1,CHR$(27);"A";CHR$(12);! A$=INPUT$(1, #2) ! _______________________________________________________________________________ ! ! ! PRINT #1,CHR$(27);CHR$(2); ! IF A$= ! _______________________________________________________________________________ ! ! ! PRINT #1,CHR$(13) ! CHR$(13) ! CHR$(10) ! CHR$(12) !B$=B$+A$! ______________________________________________________________________ ! ! ! PRINT #1,CHR$(27);CHR$(64); ! IF B$="" ! IF ME=1 ! PRINT #1,CHR$(12);! ! __________________________________________________ ! ! ! CLOSE #2 ! ME=0! GOSUB PrLine! GOSUB SuLine ! GOSUB PrLine! ! ! ____________________________________________ ! ! ! CLOSE #1 ! ! B$="" ! PRINT #1,CHR$(13);CHR$(10);! ! ! ! ! ! EXIT ! ! ME=1 ! B$="" ! ! ! ___________________________________________________________________________________________________________________ ! ! ______________________________________________________________________________________________________________________ 15.06.1987 13.06.1987 0001000F