home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / saver / saver.lst < prev   
File List  |  1997-10-06  |  2KB  |  83 lines
  1. RESERVE 100000
  2. ON BREAK CONT
  3. DIM puffer%(3)
  4. maske%=2^16
  5. eintrag$="   Block Saver"
  6. DPOKE GINTIN,DPEEK(LPEEK(GB+4)+4)
  7. LPOKE ADDRIN,VARPTR(eintrag$)
  8. GEMSYS 35
  9. DO
  10.   LPOKE ADDRIN,VARPTR(puffer%(0))
  11.   GEMSYS 23
  12.   IF (puffer%(FALSE) DIV maske%)=40 THEN
  13.     @alt_help
  14.   ENDIF
  15. LOOP
  16. PROCEDURE alt_help
  17.   SGET screen$
  18.   REPEAT
  19.     ALERT FALSE,"----------- Block Saver ----- |(c) 1989 by Siegried Hübner|            Obere Vorstadt 21|            8812 Windsbach",1,"Saven|Zurück|Saven",alti%
  20.     IF alti%=2
  21.       GOTO hildegard
  22.     ENDIF
  23.     IF alti%=1 OR alti%=3
  24.       ' **** Block speichern ****
  25.       ALERT FALSE,"Bitte markieren Sie mit|der Maus den Bereich den|Sie speichern möchten.",1,"  OK  ",fjfj
  26.       PUT FALSE,FALSE,boxbild$
  27.       SHOWM
  28.       REPEAT
  29.       UNTIL MOUSEK
  30.       GRAPHMODE 3
  31.       x%=MOUSEX
  32.       y%=MOUSEY
  33.       a%=x%
  34.       b%=y%
  35.       REPEAT
  36.       UNTIL MOUSEK<>1
  37.       HIDEM
  38.       WHILE MOUSEK=FALSE
  39.         x%=MOUSEX
  40.         y%=MOUSEY
  41.         BOX a%,b%,x%,y%
  42.         VSYNC
  43.         PAUSE 3
  44.         BOX a%,b%,x%,y%
  45.       WEND
  46.       WHILE MOUSEK=1
  47.         GRAPHMODE graf%
  48.         GET a%,b%,x%,y%,box$
  49.         BOX 157,15,482,52
  50.         BOX 159,17,480,50
  51.         DEFFILL 1,2,2
  52.         PBOX 160,18,479,49
  53.         DEFTEXT 1,FALSE,3,32
  54.         GRAPHMODE 2
  55.         TEXT 180,45,">>> Save Block <<<"
  56.         PRINT AT(21,24);CHR$(27)+"p";"  Zu speichernden Block hier eingeben.  ";CHR$(27)+"q"
  57.         DEFFILL 1,2,FALSE
  58.         PBOX 150,360,489,390
  59.         d%=FALSE
  60.         FILESELECT "\*.BLO","",f$
  61.         IF f$="\"
  62.           ALERT 3,"Einen Namen müssen|Sie schon vergeben",1," Okay ",ansbach%
  63.           GOTO hildegard
  64.         ENDIF
  65.         IF EXIST(f$)=TRUE
  66.           ALERT 3,"Bild mit diesem Namen|schon vorhanden.|Soll altes Bild|übrschrieben werden.",2,"Ja|Nein",d%
  67.         ENDIF
  68.         IF d%=2
  69.           GOTO hildegard
  70.         ENDIF
  71.         IF d%=1 OR f$<>""
  72.           OPEN "O",#1,f$
  73.           PRINT #1,MKI$(LEN(box$));box$
  74.           CLOSE #1
  75.         ENDIF
  76.       WEND
  77.     ENDIF
  78.   UNTIL MOUSEK=2 OR alti%>FALSE
  79.   hildegard:
  80.   SHOWM
  81.   SPUT screen$
  82. RETURN
  83.