home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / lauftext / lauftext.lst next >
File List  |  1987-04-21  |  7KB  |  236 lines
  1. text$=" Laufschrift Version 1.0 (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach"
  2. GOSUB titel
  3. PROCEDURE titel
  4.   CLS
  5.   HIDEM
  6.   DEFTEXT 1,0,3,14
  7.   TEXT 105,45,400,"Laufschrift Version 1.0"
  8.   RBOX 15,25,626,50
  9.   RBOX 13,23,628,52
  10.   RBOX 12,22,629,53
  11.   BOX 10,10,630,380
  12.   PRINT CHR$(27)+"p";
  13.   PRINT AT(2,25);"  ----- (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----  ";
  14.   PRINT CHR$(27)+"q";
  15.   PRINT AT(30,7);" 1 = Lade      Text"
  16.   PRINT AT(30,9);" 2 = Editiere  Text"
  17.   PRINT AT(30,11);" 3 = Speichere Text"
  18.   PRINT AT(30,13);" 4 = Schrift"
  19.   PRINT AT(30,15);" 5 = Zeige     Text"
  20.   PRINT AT(30,17);" 6 = Programmende"
  21.   PRINT CHR$(27)+"p";
  22.   PRINT AT(28,20);" Bitte Zahl 1-6 eingeben ";
  23.   PRINT CHR$(27)+"q";
  24.   PRINT " ";
  25.   DO
  26.     FORM INPUT 1,a$
  27.     IF a$=CHR$(49)
  28.       GOSUB lade_text
  29.     ENDIF
  30.     IF a$=CHR$(50)
  31.       GOSUB editiere_text
  32.     ENDIF
  33.     IF a$=CHR$(53)
  34.       GOSUB zeige_text
  35.     ENDIF
  36.     IF a$=CHR$(52)
  37.       GOSUB text_einstellung
  38.     ENDIF
  39.     IF a$=CHR$(51)
  40.       GOSUB save_text
  41.     ENDIF
  42.     IF a$=CHR$(54)
  43.       CLS
  44.       PRINT AT(1,1);STRING$(80,45)
  45.       PRINT AT(20,2);"B e n u t z e r i n f o r m a t i o n"
  46.       PRINT AT(1,3);STRING$(80,45)
  47.       PRINT AT(21,4);"Programm Laufschschrift Version 1.0"
  48.       PRINT AT(14,6);"Dieses Programm ist frei kopierbar (Public Domain)"
  49.       PRINT AT(10,7);"Jeder der es benutzt sollte mir fairerweise eine einmalige"
  50.       PRINT AT(22,8);"Benutzergebühr von 5-10 DM senden."
  51.       PRINT AT(12,9);"Gebt bitte auch an welches PD Programm Ihr von mir habt,"
  52.       PRINT AT(11,10);"von welchen PD Anbieter ihr es herhabt, und welche Version."
  53.       PRINT AT(12,11);"Bitte auch Computermodell angeben. (Atari ST oder MS-DOS)."
  54.       PRINT AT(18,12);"Da ich für beide Rechner Programme schreibe."
  55.       PRINT AT(1,14);STRING$(80,45)
  56.       PRINT AT(10,15);"Adresse des Programmierers          Siegfried Hübner"
  57.       PRINT AT(10,16);"                                    Obere Vorstadt 21"
  58.       PRINT AT(10,17);"                                    8812 Windsbach"
  59.       PRINT AT(1,18);STRING$(80,45)
  60.       PRINT AT(11,19);"Also denkt dran, und vergesst Annerkennungshonorar nicht."
  61.       PRINT AT(4,21);"Viel Spa₧ mit diesem Programm wünsche ich allen ehrlichen PD Anwendern."
  62.       PRINT AT(50,23);"gezeichnet S.Hübner"
  63.       PRINT CHR$(27)+"p";
  64.       PRINT AT(40,24);" Bitte eine Taste drücken oder Mausklick ";
  65.       PRINT CHR$(27)+"q";
  66.       REPEAT
  67.       UNTIL MOUSEK>0 OR INKEY$>CHR$(0)
  68.       ALERT 3,"Programm wirklich|verlassen ?",2,"Ja|Nein",d%
  69.       IF d%=1
  70.         END
  71.       ELSE
  72.         GOSUB titel
  73.       ENDIF
  74.     ENDIF
  75.   LOOP
  76. RETURN
  77. PROCEDURE editiere_text
  78.   CLS
  79.   PRINT CHR$(27)+"p";
  80.   PRINT AT(2,25);"  ----- (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----  ";
  81.   PRINT CHR$(27)+"q";
  82.   BOX 10,10,630,380
  83.   PRINT AT(3,2);"Bitte Laufschrift Text eingeben"
  84.   PRINT AT(3,3);
  85.   INPUT "",text_1$
  86.   text$=CHR$(32)+text_1$
  87.   GOSUB titel
  88. RETURN
  89. PROCEDURE zeige_text
  90.   CLS
  91.   PRINT CHR$(27)+"p";
  92.   PRINT AT(2,25);"  ----- (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----  ";
  93.   PRINT CHR$(27)+"q";
  94.   BOX -1,10,640,380
  95.   IF gros=0
  96.     DEFTEXT 1,0,3,32
  97.   ELSE
  98.     DEFTEXT 1,stil,0,gros
  99.   ENDIF
  100.   l=LEN(text$)
  101.   s=1
  102.   REPEAT
  103.     PAUSE verz%
  104.     TEXT 10,100,ziehen,MID$(text$,s)+LEFT$(text$,s-1)
  105.     INC s
  106.     IF s>l THEN
  107.       s=1
  108.     ENDIF
  109.   UNTIL MOUSEK>0 OR INKEY$=>CHR$(0)
  110.   @titel
  111. RETURN
  112. PROCEDURE text_einstellung
  113.   GRAPHMODE 1
  114.   o_marta_hari:
  115.   stil=FALSE
  116.   verz%=FALSE
  117.   gros=10
  118.   ziehen=FALSE
  119.   HIDEM
  120.   DEFFILL 1,2,3
  121.   PBOX 10,10,630,380
  122.   DEFFILL 1,2,4
  123.   DEFTEXT 1,FALSE,3,32
  124.   TEXT 17,45," >>>>>>>> Text Einstellungen <<<<<<<< "
  125.   DEFFILL FALSE,2,5
  126.   GOSUB kirche
  127.   PBOX 358,61,625,375
  128.   PRINT AT(46,5);CHR$(27)+"p";" ------- Lauf Verzögerung ------ ";CHR$(27)+"q"
  129.   PRINT AT(56,6);"Verz "
  130.   PRINT AT(65,6);verz%
  131.   PRINT AT(46,7);CHR$(27)+"p";" ----- Textgrö₧e einstellen ---- ";CHR$(27)+"q"
  132.   PRINT AT(56,8);"Grö₧e "
  133.   PRINT AT(65,8);gros
  134.   PRINT AT(46,9);CHR$(27)+"p";" ----- Textstil einstellen ----- ";CHR$(27)+"q"
  135.   PRINT AT(56,10);"Stil "
  136.   PRINT AT(65,10);stil
  137.   PRINT AT(46,11);CHR$(27)+"p";" ----- Text ziehen/stauchen ---- ";CHR$(27)+"q"
  138.   PRINT AT(56,12);"Ziehen "
  139.   PRINT AT(65,12);ziehen
  140.   PRINT AT(46,13);CHR$(27)+"p";" --- Was wollen Sie ändern ? --- ";CHR$(27)+"q"
  141.   PRINT AT(47,14);"Anfangsbuchstaben bitte eingeben"
  142.   PRINT AT(47,16);"V = Verzögerung"
  143.   PRINT AT(47,17);"S = Stil             (0..32)"
  144.   PRINT AT(47,18);"G = Grö₧e            (0..26)"
  145.   PRINT AT(47,19);"Z = Ziehen/Stauchen (0.....)"
  146.   PRINT AT(47,20);"E = Erneuere diesen Bildschirm"
  147.   PRINT AT(47,21);"N = (Zurück zum Programm)"
  148.   REPEAT
  149.     PRINT AT(47,23);CHR$(27)+"p";" Ihre Eingabe ";CHR$(27)+"q";" ";
  150.     FORM INPUT 1,eingabe$
  151.     eingabe$=UPPER$(eingabe$)
  152.     IF eingabe$="E"
  153.       GOTO o_marta_hari
  154.     ENDIF
  155.     ' ******* Verzögerung *********
  156.     IF eingabe$="V"
  157.       PRINT AT(65,6);SPACE$(7)
  158.       PRINT AT(65,6);
  159.       FORM INPUT 4,winkel$
  160.       verz%=VAL(winkel$)
  161.       GOSUB kirche
  162.     ENDIF
  163.     ' ***** Grö₧e *************
  164.     IF eingabe$="G"
  165.       PRINT AT(65,8);SPACE$(7)
  166.       PRINT AT(65,8);
  167.       FORM INPUT 2,gros$
  168.       gros=VAL(gros$)
  169.       GOSUB kirche
  170.     ENDIF
  171.     ' ***** Stil **************
  172.     IF eingabe$="S"
  173.       PRINT AT(65,10);SPACE$(7)
  174.       PRINT AT(65,10);
  175.       FORM INPUT 3,stil$
  176.       stil=VAL(stil$)
  177.       GOSUB kirche
  178.     ENDIF
  179.     ' ***** Ziehen/Stauchen ******
  180.     IF eingabe$="Z"
  181.       PRINT AT(65,12);SPACE$(7)
  182.       PRINT AT(65,12);
  183.       FORM INPUT 3,ziehen$
  184.       ziehen=VAL(ziehen$)
  185.       GOSUB kirche
  186.     ENDIF
  187.   UNTIL eingabe$="N"
  188.   GOSUB titel
  189. RETURN
  190. PROCEDURE kirche
  191.   PRBOX 20,61,350,375
  192.   DEFTEXT 1,stil,0,gros
  193.   TEXT 100,200,ziehen,"Hallo"
  194. RETURN
  195. PROCEDURE save_text
  196.   FILESELECT "\*.LAU",g$,g$
  197.   OPEN "O",#1,g$
  198.   PRINT #1,ziehen
  199.   PRINT #1,stil
  200.   PRINT #1,verz%
  201.   PRINT #1,gros
  202.   PRINT #1,text$
  203.   CLOSE #1
  204.   OPEN "O",#1,"TEXT.LST"
  205.   IF gros=0
  206.     PRINT #1,"DEFTEXT 1,0,3,32"
  207.   ELSE
  208.     PRINT #1,"DEFTEXT 1,";stil;",0,";gros
  209.   ENDIF
  210.   PRINT #1,"l=LEN(";CHR$(34);text$;CHR$(34);")"
  211.   PRINT #1,"s=1"
  212.   PRINT #1,"REPEAT"
  213.   PRINT #1,"PAUSE ";verz%
  214.   PRINT #1,"TEXT 10,100,";ziehen;",MID$(text$,s)+LEFT$(text$,s-1)"
  215.   PRINT #1,"INC s"
  216.   PRINT #1,"IF s>l THEN"
  217.   PRINT #1,"s=1"
  218.   PRINT #1,"ENDIF"
  219.   PRINT #1,"UNTIL MOUSEK>0 OR INKEY$=>CHR$(0)"
  220.   CLOSE #1
  221.   GOSUB titel
  222. RETURN
  223. PROCEDURE lade_text
  224.   FILESELECT "\*.LAU",".LAU",g$
  225.   IF EXIST(g$)=TRUE
  226.     OPEN "I",#1,g$
  227.     INPUT #1,ziehen
  228.     INPUT #1,stil
  229.     INPUT #1,verz%
  230.     INPUT #1,gros
  231.     INPUT #1,text$
  232.     CLOSE #1
  233.   ENDIF
  234.   GOSUB titel
  235. RETURN
  236.