home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / sprites / ega.inc < prev    next >
Encoding:
Text File  |  1988-09-14  |  3.0 KB  |  122 lines
  1. REM -------------------------------------------------------
  2. REM                      EGA.INC
  3. REM        EGA-Anpassung fuer den Sprite-Editor
  4. REM -------------------------------------------------------
  5.  
  6. SUB bildschirm
  7.   CLS: SCREEN %schirm
  8.   CALL farben
  9.   FOR i% = 4 TO 364 step 8
  10.     LINE(i%, 4) - (i%, 319), 14
  11.   NEXT i%
  12.   FOR i% = 4 TO 319 step 7
  13.     LINE(4, i%) - (364, i%), 14
  14.   NEXT i%
  15.   FOR i% = 39 TO 289 step 35
  16.     LINE(365, i%) - (369, i%), 14
  17.   NEXT i%
  18.   FOR i% = 44 TO 344 step 40
  19.     LINE(i%, 0) - (i%, 3), 14
  20.   NEXT i%
  21.   LINE (460, 26) - (512, 78), 14, B
  22.   LINE (378, 94) - (636, 142), 14, B
  23.   FOR i% = 0 TO 15
  24.     LINE(382+i%*16,100)-(382+i%*16+9,120), i%, BF
  25.   NEXT i%
  26.   LOCATE 1, 54: PRINT "SPRITE - EDITOR"
  27.   LOCATE 10,49: PRINT "A B C D E F G H I J K L M N O P"
  28.   LOCATE 15,54: PRINT "<F1> LADEN"
  29.   LOCATE 16,54: PRINT "<F2> SPEICHERN"
  30.   LOCATE 17,54: PRINT "<F3> NORMALPALETTE"
  31.   LOCATE 18,54: PRINT "<F4> FARBEN ÄNDERN"
  32.   LOCATE 19,54: PRINT "<F5> TAUSCHEN"
  33.   LOCATE 20,54: PRINT "<F6> VERGRÖSSERN"
  34.   LOCATE 21,54: PRINT "<F8> GROSSBILD"
  35.   LOCATE 22,54: PRINT "<F9> NEU"
  36.   LOCATE 23,54: PRINT "<F0> ENDE"
  37.   CALL feld
  38. END SUB
  39.  
  40. REM -------------------------------------------------------
  41.  
  42. SUB farben
  43.   SHARED pal%()
  44.   PALETTE USING pal%(0)
  45. END SUB
  46.  
  47. REM -------------------------------------------------------
  48.  
  49. SUB pfeilan(ta)
  50.   LOCATE 12, 49 + ta * 2: PRINT chr$(24);
  51. END SUB
  52.  
  53. REM -------------------------------------------------------
  54.  
  55. SUB pfeilaus(ta)
  56.   LOCATE 12, 49 + ta * 2: PRINT" ";
  57. END SUB
  58.  
  59. REM -------------------------------------------------------
  60.  
  61. SUB farbe
  62.   SHARED pal%()
  63.   FOR i% = 0 TO 14
  64.     pal%(i%) = i%
  65.   NEXT i%
  66.   pal%(15) = 35
  67. END SUB
  68.  
  69. REM -------------------------------------------------------
  70.  
  71. SUB palwechsel
  72.   SHARED pal%(), taste
  73.   ta = 0: CALL pfeilan(ta)
  74.   LOCATE 13,49: PRINT "<F9> Abbruch";
  75.   DO
  76.     CALL tastatur
  77.     SELECT CASE taste
  78.     CALL pfeilaus(ta)
  79.     CASE 75
  80.       DECR ta
  81.       IF ta < 0 THEN ta = 15
  82.     CASE 77
  83.       INCR ta
  84.       IF ta > 15 THEN ta = 0
  85.     CASE 72
  86.       INCR pal%(ta)
  87.       IF pal%(ta) > 63 THEN pal%(ta) = 0
  88.       palette ta, pal%(ta)
  89.     CASE 80
  90.       DECR pal%(ta)
  91.       IF pal%(ta) < 0 THEN pal%(ta) = 63
  92.       palette ta, pal%(ta)
  93.     END SELECT
  94.     CALL pfeilan(ta)
  95.   LOOP UNTIL taste = 67
  96.   CALL pfeilaus(ta)
  97.   LOCATE 13,49: PRINT space$(12);
  98. END SUB
  99.  
  100. REM -------------------------------------------------------
  101.  
  102.   %sprgr=9184: %fd=44: %xbr=8: %ybr=7: %schirm=9
  103.   %po1=5: %po2=11: %po3=10: %po4=464: %po5=30
  104.   %tabz=97: %bw=639: %bs=349: %tende=113
  105.   %anf=5: %pix=4
  106.  
  107. DIM spr%(%sprgr), feld(%fd, %fd), cur%(14)
  108. DIM pal%(15), f2(%fd, %fd), dateiname(9)
  109. DIM daten%(9, %fd, %fd), p%(15)
  110. FOR i% = 0 TO 14: READ cur%(i%): NEXT i%
  111. DATA  8,7,-17790,31828,-17790,31828,-17790,_
  112.       31828,-17790,31828,-17790,31828,-17790,_
  113.       31828,0
  114.  
  115.   %true=-1: %false=0
  116.  
  117. SCREEN %schirm: COLOR 15: anfang = %true
  118. CALL farbe
  119.  
  120. REM -------------------------------------------------------
  121.  
  122.