home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kompakt / kompakt.lst < prev    next >
File List  |  1987-04-21  |  5KB  |  137 lines
  1. CLS
  2. PRINT AT(17,1);"Bild Kompaktor/Dekompaktor Public Domain Version 3.0"
  3. PRINT CHR$(27)+"p";
  4. PRINT AT(1,2);" -------- (c) 1990 by Siegfried Hübner,Obere Vorstadt 21,8812 Windsbach ------- "
  5. PRINT CHR$(27)+"q"
  6. PRINT AT(24,4);"Dieses Programm ist frei kopierbar"
  7. PRINT AT(10,5);"Jeder der dieses Programm öfters benützt, sollte mir ein kleines "
  8. PRINT AT(15,6);"Anerkennungshonorar von ca 5-10 DM zukommen lassen."
  9. PRINT AT(17,7);"Sollten sich viele an diesem Konzept beteiligen,"
  10. PRINT AT(17,8);"so werden mit zimlicher Sicherheit noch viele"
  11. PRINT AT(18,9);"neue PD Programme von mir als PD freigeben ."
  12. PRINT STRING$(80,45)
  13. PRINT AT(23,11);" Programmautor  Siegfried Hübner"
  14. PRINT AT(23,12);"                Obere Vorstadt 21"
  15. PRINT AT(23,13);"                8812 Windsbach"
  16. PRINT STRING$(80,45)
  17. PRINT AT(10,15);"Allso denkt auch einmal an die Programmierer von PD Programme."
  18. PRINT AT(10,16);"Wenn Ihnen dieses Programm gefällt und Sie mir schreiben,"
  19. PRINT AT(10,17);"dann gebt bitte auch euer Computermodell, sowie Programmname und"
  20. PRINT AT(10,18);"Versionsnummer meines PD Programmes mit an."
  21. PRINT AT(10,19);"Auch von welchen PD Anbieter Ihr dieses Programm herhabt."
  22. PRINT STRING$(80,45)
  23. PRINT AT(10,21);"Viel Spa₧ wünsche ich allen ehrlichen PD Anwendern, und allen"
  24. PRINT AT(10,22);"nichtregistrierten sowie Schwarz Anwendern meiner Programme"
  25. PRINT AT(18,23);"wünsche ich einen 3 fachen Atari Bombenhagel."
  26. PRINT CHR$(27)+"p";
  27. PRINT AT(18,24);" ------ Bitte eine Taste drücken ---------- ";
  28. PRINT CHR$(27)+"q";
  29. REPEAT
  30. UNTIL MOUSEK>0 OR INKEY$=>CHR$(0)
  31. CLEAR
  32. ON ERROR GOSUB fehler
  33. DO
  34.   ALERT 3,"Bild Konpaktor/Dekompaktor|Public Domain Version 3.0|(c) 1990 by Siegfried Hübner|------ frei kopierbar ------",1,"LADEN|SAVEN|END",d%
  35.   IF d%=3
  36.     CLS
  37.     PRINT AT(17,1);"Bild Kompaktor/Dekompaktor Public Domain Version 3.0"
  38.     PRINT CHR$(27)+"p";
  39.     PRINT AT(1,2);" -------- (c) 1990 by Siegfried Hübner,Obere Vorstadt 21,8812 Windsbach ------- "
  40.     PRINT CHR$(27)+"q"
  41.     PRINT AT(24,4);"Dieses Programm ist frei kopierbar"
  42.     PRINT AT(10,5);"Jeder der dieses Programm öfters benützt, sollte mir ein kleines "
  43.     PRINT AT(15,6);"Anerkennungshonorar von ca 5-10 DM zukommen lassen."
  44.     PRINT AT(17,7);"Sollten sich viele an diesem Konzept beteiligen,"
  45.     PRINT AT(17,8);"so werden mit zimlicher Sicherheit noch viele"
  46.     PRINT AT(18,9);"neue PD Programme von mir als PD freigeben ."
  47.     PRINT STRING$(80,45)
  48.     PRINT AT(23,11);" Programmautor  Siegfried Hübner"
  49.     PRINT AT(23,12);"                Obere Vorstadt 21"
  50.     PRINT AT(23,13);"                8812 Windsbach"
  51.     PRINT STRING$(80,45)
  52.     PRINT AT(10,15);"Allso denkt auch einmal an die Programmierer von PD Programme."
  53.     PRINT AT(10,16);"Wenn Ihnen dieses Programm gefällt und Sie mir schreiben,"
  54.     PRINT AT(10,17);"dann gebt bitte auch euer Computermodell, sowie Programmname und"
  55.     PRINT AT(10,18);"Versionsnummer meines PD Programmes mit an."
  56.     PRINT AT(10,19);"Auch von welchen PD Anbieter Ihr dieses Programm herhabt."
  57.     PRINT STRING$(80,45)
  58.     PRINT AT(10,21);"Viel Spa₧ wünsche ich allen ehrlichen PD Anwendern, und allen"
  59.     PRINT AT(10,22);"nichtregistrierten sowie Schwarz Anwendern meiner Programme"
  60.     PRINT AT(18,23);"wünsche ich einen 3 fachen Atari Bombenhagel."
  61.     PRINT CHR$(27)+"p";
  62.     PRINT AT(18,24);" ------ Bitte eine Taste drücken ---------- ";
  63.     PRINT CHR$(27)+"q";
  64.     REPEAT
  65.     UNTIL MOUSEK>0 OR INKEY$=>CHR$(0)
  66.     END
  67.   ENDIF
  68.   IF d%=1
  69.     ' ************* Bild_Lader Version 3.0 *********
  70.     PRINT AT(1,1);"Bild Lader Version 3.0                      by Siegfried Hübner"
  71.     FILESELECT "\*.SHK",a$,a$
  72.     CLS
  73.     OPEN "I",#1,a$
  74.     REPEAT
  75.       INPUT #1,y$
  76.       REPEAT
  77.         INPUT #1,x$
  78.         HIDEM
  79.         EXIT IF x$="*"
  80.         LPOKE VAL("&H"+x$)+XBIOS(2),VAL("&H"+y$)
  81.       UNTIL x$="*"
  82.     UNTIL EOF(#1)
  83.     REPEAT
  84.     UNTIL MOUSEK>0 OR INKEY$=>CHR$(0)
  85.   ENDIF
  86.   IF d%=2
  87.     PRINT AT(1,1);"Bild Saver Version 3.0             by Siegfried Hübner"
  88.     PRINT AT(1,2);"zu Ladenden Bild Namen eingeben"
  89.     FILESELECT "\*.DOO",a$,a$
  90.     CLS
  91.     BLOAD a$,XBIOS(2)
  92.     FILESELECT "\*.SHK",file$,file$
  93.     OPEN "O",#1,file$
  94.     HIDEM
  95.     wert%=XBIOS(2)
  96.     x%=wert%
  97.     flasche%=wert%
  98.     ADD flasche%,32000
  99.     DO
  100.       sd:
  101.       INC y%
  102.       y%=LPEEK(x%)
  103.       IF y%=FALSE
  104.         ADD x%,4
  105.       ENDIF
  106.       IF x%=flasche%
  107.         GOTO was_solls
  108.       ENDIF
  109.       IF y%=FALSE
  110.         GOTO sd
  111.       ENDIF
  112.       d%=FALSE
  113.       REPEAT
  114.         IF LPEEK(x%)=y%
  115.           IF d%=FALSE
  116.             PRINT #1,HEX$(y%);",";
  117.             d%=1
  118.           ENDIF
  119.           PRINT #1,HEX$(x%-XBIOS(2));",";
  120.           LPOKE x%,FALSE
  121.           INC d%
  122.         ENDIF
  123.         ADD x%,4
  124.       UNTIL x%=flasche%
  125.       PRINT #1,"*";",";
  126.       ADD l%,4
  127.       x%=wert%+l%
  128.     LOOP
  129.     was_solls:
  130.     CLOSE #1
  131.     hut1:
  132.   ENDIF
  133. LOOP
  134. PROCEDURE fehler
  135.   RUN
  136. RETURN
  137.