home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / boot_tex.ter / boot__13.lst < prev    next >
File List  |  1997-10-06  |  4KB  |  106 lines
  1. ' ***********************************************************
  2. ' * Boot - Texter                                           *
  3. ' ***********************************************************
  4. RESERVE 40000
  5. ON BREAK CONT
  6. DIM puffer%(3)
  7. maske%=2^16
  8. eintrag$="   BOOT - Texter"
  9. DPOKE GINTIN,DPEEK(LPEEK(GB+4)+4)
  10. LPOKE ADDRIN,VARPTR(eintrag$)
  11. GEMSYS 35
  12. DO
  13.   LPOKE ADDRIN,VARPTR(puffer%(0))
  14.   GEMSYS 23
  15.   IF (puffer%(FALSE) DIV maske%)=40 THEN
  16.     @alt_help
  17.   ENDIF
  18. LOOP
  19. PROCEDURE alt_help
  20.   SGET screen$
  21.   IF XBIOS(4)<>2
  22.     ALERT 0,"Dieses ACC läuft zur Zeit nur| auf einen sw Monitor. Farb-| version auf Anfrage bei mir|         erhältlich.",1,"Gelesen",d%
  23.     GOTO emil
  24.   ENDIF
  25.   HIDEM
  26.   CLS
  27.   BOX 100,70,540,330
  28.   BOX 102,72,538,328
  29.   BOX 103,73,537,327
  30.   PRINT CHR$(27)+"p";
  31.   PRINT AT(1,1);" -- geschrieben 1989 von Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach -- "
  32.   PRINT CHR$(27)+"q";
  33.   PRINT AT(23,6);" ---------> Boot - Texter <-------- "
  34.   PRINT AT(16,8);"Dieses Programm ist frei kopierbar (Public Domain)"
  35.   PRINT AT(16,9);"Jeder der dieses Programm benützt, sollte mir aber"
  36.   PRINT AT(15,10);"fairerweise ein kleines Anerkennungshonorar zukommen"
  37.   PRINT AT(16,11);"lassen. Sonst werden keine neuen PD Programme mehr"
  38.   PRINT AT(20,12);"für den Atari ST mehr von mir erscheinen."
  39.   PRINT AT(14,13);"------------------------------------------------------"
  40.   PRINT AT(24,14);"-----------> Anleitung <---------- "
  41.   PRINT AT(15,16);"Dieses Programm kann Bootsektor Vieren aufspüren und"
  42.   PRINT AT(14,17);"vernichten. Auserdem ist es möglich, einen Text in den"
  43.   PRINT AT(14,18);"Bootsektor zu schreiben. zb. Kennzeichnung der eigenen"
  44.   PRINT AT(14,19);"Disketten . usw. Eingabe von max. 255 Zeichen möglich."
  45.   PRINT AT(14,20);" Dieses Programm wurde in GFA Basic V2.0 geschrieben. "
  46.   PRINT CHR$(27)+"p";
  47.   PRINT AT(14,22);" -----------> Bitte eine Taste drücken oder Mausklick "
  48.   PRINT CHR$(27)+"q";
  49.   REPEAT
  50.   UNTIL MOUSEK OR INKEY$=>CHR$(0)
  51.   start:
  52.   CLS
  53.   CLR b$
  54.   CLR a$
  55.   a$=SPACE$(512)
  56.   VOID XBIOS(8,L:VARPTR(a$),L:0,0,1,0,0,1)
  57.   PRINT CHR$(27)+"p";
  58.   PRINT AT(1,3);" ------------------------------ Lese  Bootsektor ------------------------------ ";
  59.   PRINT CHR$(27)+"q";
  60.   PRINT AT(1,4);a$
  61.   IF ASC(a$)=&H60
  62.     ALERT 3,"----------- Alarm -----------|Diskette infiziert Virus oder |     Bootsektor Programm| Soll ich Bootsektor löschen",1,"Löchen|Zurück",lo%
  63.     IF lo%=1
  64.       MID$(a$,1)=STRING$(6,0)
  65.       MID$(a$,59)=STRING$(512,&HE5)
  66.       VOID XBIOS(18,L:VARPTR(a$),L:-1,-1,0)
  67.       e%=XBIOS(9,L:VARPTR(a$),L:0,0,1,0,0,1)
  68.       GOTO licht
  69.     ENDIF
  70.     IF lo%=2
  71.       GOTO licht
  72.     ENDIF
  73.   ELSE
  74.     ALERT 0,"Wollen Sie den |  Bootsektor| Text  ändern",2,"Ja|Nein",eee%
  75.     IF eee%=1
  76.       PRINT CHR$(27)+"p";
  77.       PRINT AT(1,10);" ---------------------------- Gebe Neuen Text ein ----------------------------- "
  78.       PRINT CHR$(27)+"q";
  79.       PRINT AT(1,13);
  80.       VOID XBIOS(8,L:VARPTR(a$),L:0,0,1,0,0,1)
  81.       PRINT AT(1,11);a$
  82.       PRINT AT(1,13);
  83.       FORM INPUT 255,b$
  84.       MID$(a$,202)=b$
  85.       VOID XBIOS(18,L:VARPTR(a$),L:-1,-1,0)
  86.       PRINT AT(1,11);a$
  87.       e%=XBIOS(9,L:VARPTR(a$),L:0,0,1,0,0,1)
  88.       VOID XBIOS(8,L:VARPTR(a$),L:0,0,1,0,0,1)
  89.       PRINT AT(1,4);a$
  90.     ENDIF
  91.     IF eee%=2
  92.       GOTO licht
  93.     ENDIF
  94.   ENDIF
  95.   licht:
  96.   SHOWM
  97.   ALERT 0,"Noch eine Disk",1,"Ja|Nein",d%
  98.   IF d%=1
  99.     CLR a$
  100.     CLR b$
  101.     GOTO start
  102.   ENDIF
  103.   emil:
  104.   SPUT screen$
  105. RETURN
  106.