home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / z_nummer / z_nummer.lst < prev    next >
Encoding:
File List  |  1997-10-06  |  5.4 KB  |  194 lines
  1. If Xbios(4)=0
  2.   Alert 0,"Bitte auf mittlere|Auflösung umschalten. ",1," Danke ",D%
  3.   End
  4. Endif
  5. On Error Gosub Fehler
  6. Titel:
  7. Hidem
  8. Deffill 1,2,1
  9. If Xbios(4)=2
  10.   Pbox -1,-1,640,400
  11.   Deffill 1,2,3
  12.   Prbox 10,10,630,390
  13.   Deftext 32,16,32,32
  14.   Deffill 1,2,6
  15.   Prbox 20,15,620,62
  16.   Text 35,50," Zeilen - N u m m e r i e r e r "
  17.   Print Chr$(27)+"p";
  18.   Print At(4,5);" ----- (c) 1989 by Siegfried Hübner,Ober Vorstadt 21,8812 Windsbach ----- "
  19.   Print Chr$(27)+"q";
  20.   Deffill 1,2,2
  21.   Pbox 30,100,610,140
  22.   Pbox 30,160,610,200
  23.   Pbox 30,220,610,260
  24.   Pbox 30,280,610,375
  25.   Graphmode 2
  26.   Deftext 1,2,3,32
  27.   Text 30,130," 1 =  Schritweite einstellen  "
  28.   Text 30,192," 2 =  Lade / Wandle Text      "
  29.   Text 30,252," 3 =  Programm beenden        "
  30.   Graphmode 1
  31.   Print At(6,19);" Dieses Programm ist frei kopierbar            (Public Domain)        "
  32.   Print At(6,20);" Wem dieses Programm gefällt, der kann mir ja mal schreiben.          "
  33.   Print At(6,21);" In diesem Programm steckt viel Arbeit, alle die es benützen sollten  "
  34.   Print At(6,22);" mir fairerweise ein kleines Anerkennungshonorar zukommen lassen, den "
  35.   Print At(6,23);" sonst werden keine weiteren PD-Programme mehr von mir erscheinen.    "
  36. Endif
  37. If Xbios(4)=1
  38.   Pbox -1,-1,640,200
  39.   Deffill 1,2,3
  40.   Prbox 10,10,630,190
  41.   Deftext 32,16,32,12
  42.   Deffill 1,2,6
  43.   Prbox 20,15,620,42
  44.   Text 35,34," Zeilen - N u m m e r i e r e r "
  45.   Print Chr$(27)+"p";
  46.   Print At(4,6);" ----- (c) 1989 by Siegfried Hübner,Ober Vorstadt 21,8812 Windsbach ----- "
  47.   Print Chr$(27)+"q";
  48.   Deffill 1,2,2
  49.   Pbox 30,55,610,75
  50.   Pbox 30,80,610,100
  51.   Pbox 30,105,610,125
  52.   Pbox 30,132,610,180
  53.   Graphmode 2
  54.   Deftext 1,2,3,12
  55.   Text 30,72," 1 =  Schritweite einstellen  "
  56.   Text 30,96," 2 =  Lade / Wandle Text      "
  57.   Text 30,122," 3 =  Programm beenden        "
  58.   Graphmode 1
  59.   Print At(6,18);" Dieses Programm ist frei kopierbar            (Public Domain)        "
  60.   Print At(6,19);" Wem dieses Programm gefällt, der kann mir ja mal schreiben.          "
  61.   Print At(6,20);" In diesem Programm steckt viel Arbeit, alle die es benützen sollten  "
  62.   Print At(6,21);" mir fairerweise ein kleines Anerkennungshonorar zukommen lassen, den "
  63.   Print At(6,22);" sonst werden keine weiteren PD-Programme mehr von mir erscheinen.    "
  64. Endif
  65. Nochmal:
  66. A$=Inkey$
  67. If A$<Chr$(49) Or A$>Chr$(51)
  68.   Goto Nochmal
  69. Endif
  70. ' ************************* Schrittweite einstellen ***************
  71. If A$=Chr$(49)
  72.   Start:
  73.   Cls
  74.   Deffill 1,2,1
  75.   If Xbios(4)=2
  76.     Pbox -1,-1,640,400
  77.     Deffill 1,2,3
  78.     Prbox 10,10,630,390
  79.     Deftext 32,16,32,32
  80.     Deffill 1,2,6
  81.     Prbox 20,15,620,62
  82.     Text 35,50," Zeilen - N u m m e r i e r e r "
  83.     Print Chr$(27)+"p";
  84.     Print At(4,5);" ----- (c) 1989 by Siegfried Hübner,Ober Vorstadt 21,8812 Windsbach ----- "
  85.     Print Chr$(27)+"q";
  86.   Endif
  87.   If Xbios(4)=1
  88.     Pbox -1,-1,640,200
  89.     Deffill 1,2,3
  90.     Prbox 10,10,630,190
  91.     Deftext 32,16,32,12
  92.     Deffill 1,2,6
  93.     Prbox 20,15,620,42
  94.     Text 35,34," Zeilen - N u m m e r i e r e r "
  95.     Print Chr$(27)+"p";
  96.     Print At(4,6);" ----- (c) 1989 by Siegfried Hübner,Ober Vorstadt 21,8812 Windsbach ----- "
  97.     Print Chr$(27)+"q";
  98.   Endif
  99.   Print At(10,10);" Bitte Anfangszeile angeben   : ";
  100.   Print " ";
  101.   Form Input 5,Znum$
  102.   Znum=Val(Znum$)
  103.   Print At(10,12);" Bitte Schrittweite angeben   : ";
  104.   Print " ";
  105.   Form Input 5,Offset$
  106.   Offset=Val(Offset$)
  107.   S:
  108.   Print At(10,14);"                                  "
  109.   Print At(10,14);" Alle Eingaben richtig  (J/N) : ";
  110.   Print " ";
  111.   Form Input 1,Richtig$
  112.   If Richtig$="J" Or Richtig$="j"
  113.     Goto Titel
  114.   Endif
  115.   If Richtig$="N" Or Richtig$="n"
  116.     Goto Start
  117.   Endif
  118.   Goto S
  119. Endif
  120. ' ******************** Lade Text ******************
  121. If A$=Chr$(50)
  122.   Cls
  123.   Print At(4,1);"------------- Zeilen - Nummerierer   (Public Domain Version) -------------"
  124.   Print Chr$(27)+"p";
  125.   Print At(4,2);" ----- (c) 1989 by Siegfried Hübner,Ober Vorstadt 21,8812 Windsbach ----- "
  126.   Print Chr$(27)+"q";
  127.   Deffill 1,2,3
  128.   If Xbios(4)=2
  129.     Pbox 157,35,482,60
  130.     Deffill 1,2,0
  131.     Pbox 160,38,479,57
  132.     Deftext 1,0,3,10
  133.     Text 160,50,">>>>>> Text Laden <<<<<<"
  134.     Deffill 1,2,2
  135.   Endif
  136.   If Xbios(4)=1
  137.     Deffill 1,2,0
  138.     Pbox 157,18,482,26
  139.     Deftext 1,0,3,5
  140.     Text 170,24,">>>>>>>>> T e x t -  L a d e n <<<<<<<<<"
  141.     Deffill 1,2,2
  142.   Endif
  143.   If Znum=0 Then
  144.     Znum=10
  145.   Endif
  146.   If Offset=0 Then
  147.     Offset=10
  148.   Endif
  149.   Fileselect "*.*",Altnam$,Altnam$
  150.   Open "I",#1,Altnam$
  151.   If Xbios(4)=2
  152.     Text 160,50,">>>> Text Speichern <<<<"
  153.   Endif
  154.   If Xbios(4)=1
  155.     Text 170,24,">>>>>> T e x t - S p e i ch e r n <<<<<<"
  156.   Endif
  157.   Fileselect "*.*",Neunam$,Neunam$
  158.   Open "O",#2,Neunam$
  159.   If Xbios(4)=2
  160.     Text 160,50,">>> Bin am  Arbeiten <<<"
  161.   Endif
  162.   If Xbios(4)=1
  163.     Text 170,24,">>> B i n    a m    A r b e i t e n <<<<"
  164.   Endif
  165.   260:
  166.   Znum$=Str$(Znum)
  167.   If Eof(#1) Then
  168.     Goto 350
  169.   Endif
  170.   Line Input #1,Zeile$
  171.   Znum=Znum+Offset
  172.   Zeile$=Znum$+Chr$(32)+Zeile$
  173.   Druck$=Zeile$
  174.   Print #2,Druck$
  175.   Goto 260
  176.   350:
  177.   Close
  178.   Print
  179.   Goto Titel
  180. Endif
  181. ' *********************** Programm verlassen ****************
  182. If A$=Chr$(51)
  183.   Alert 3,"Wollen Sie dieses Programm  |       verlassen ?",2,"Ja|Nein",D%
  184. Endif
  185. If D%=1
  186.   End
  187. Else
  188.   Run
  189. Endif
  190. Procedure Fehler
  191.   Alert 3,"Fehler ist aufgetreten| ich fange Fehler ab",1," Return ",D%
  192.   Run
  193. Return
  194.