home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / reset / rese.lst < prev   
File List  |  1987-04-21  |  2KB  |  67 lines
  1. ' ***********************************************************
  2. ' * Reset                                                   *
  3. ' ***********************************************************
  4. RESERVE 40000
  5. ON BREAK CONT
  6. DIM puffer%(3)
  7. maske%=2^16
  8. eintrag$=" Reset "
  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.     @reset
  17.   ENDIF
  18. LOOP
  19. PROCEDURE reset
  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 1990 von Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach -- "
  32.   PRINT CHR$(27)+"q";
  33.   PRINT AT(19,6);" ---------> Warm und Kaltstart <-------- "
  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);" Mit diesem Programm lä₧t sich bei einen sw/Monitor  "
  42.   PRINT AT(15,17);" ein Warm oder Kaltstart des Rechners durchführen.   "
  43.   PRINT AT(16,18);" Warmstart =  entspricht Druck auf Reset Knopf"
  44.   PRINT AT(16,19);" Kaltstart =  Ein und Abschalten des Computers"
  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 Tastatur oder Maustaste drücken "
  48.   PRINT CHR$(27)+"q";
  49.   REPEAT
  50.   UNTIL INKEY$=>CHR$(0) OR MOUSEK
  51.   ALERT 3,"Kalt Warmstart des Computers|Kaltstart = Computer ein/aus |Warmstart = Druck auf Reset ",3,"Kalt|Warm|Zurück",d%
  52.   IF d%=1
  53.     memvalid%=&H420
  54.     a%=LPEEK(4)
  55.     SLPOKE memvalid%,0
  56.     VOID GEMDOS(32,0)
  57.     CALL a%
  58.   ENDIF
  59.   IF d%=2
  60.     a%=LPEEK(4)
  61.     VOID GEMDOS(32,0)
  62.     CALL a%
  63.   ENDIF
  64.   emil:
  65.   SPUT screen$
  66. RETURN
  67.