home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / sprites / cga.inc next >
Encoding:
Text File  |  1988-09-14  |  2.0 KB  |  76 lines
  1. REM -------------------------------------------------------
  2. REM                       CGA.INC
  3. REM           CGA-Anpassung fuer den Sprite-Editor
  4. REM -------------------------------------------------------
  5.  
  6. SUB bildschirm
  7.   SCREEN %schirm
  8.   CLS: CALL farben
  9.   FOR i% = 2 TO 182 step 6
  10.     LINE(2, i%) -(182, i%), 1
  11.     LINE(i%, 2) -(i%, 182), 1
  12.   NEXT i%
  13.   FOR i% = 32 TO 162 step 30
  14.     LINE(i%, 0) - (i%, 1), 1
  15.     LINE(183, i%) - (184, i%), 1
  16.   NEXT i%
  17.   LINE (235, 30) - (270, 65), 1, B
  18.   LINE (220, 80) - (283, 92), 1, B
  19.   FOR i% = 0 TO 3
  20.     LINE(224 + i% * 16, 82) - (224+i%*16+7,90), i%, BF
  21.   NEXT i%
  22.   LOCATE  2, 26: PRINT "SPRITE-EDITOR"
  23.   LOCATE 13, 29: PRINT "0 1 2 3"
  24.   LOCATE 15, 26: PRINT "<F1> LADEN"
  25.   LOCATE 16, 26: PRINT "<F2> SPEICHERN"
  26.   LOCATE 17, 26: PRINT "<F3> HINTERGR"
  27.   LOCATE 18, 26: PRINT "<F4> PALETTE"
  28.   LOCATE 19, 26: PRINT "<F5> TAUSCHEN"
  29.   LOCATE 20, 26: PRINT "<F6> VERGRÖSS"
  30.   LOCATE 21, 26: PRINT "<F8> GROSSBILD"
  31.   LOCATE 22, 26: PRINT "<F9> NEU"
  32.   LOCATE 23, 26: PRINT "<F0> ENDE"
  33.   CALL feld
  34. END SUB
  35.  
  36. REM -------------------------------------------------------
  37.  
  38. SUB farben
  39.   COLOR hi, pa
  40. END SUB
  41.  
  42. REM -------------------------------------------------------
  43.  
  44. SUB farbe
  45.   INCR hi
  46.   IF hi > 15 THEN hi = 0
  47.   COLOR hi
  48. END SUB
  49.  
  50. REM -------------------------------------------------------
  51.  
  52. SUB palwechsel
  53.   IF pa = 0 THEN pa = 1 ELSE pa = 0
  54.   COLOR, pa
  55. END SUB
  56.  
  57. REM -------------------------------------------------------
  58.  
  59.   %sprgr = 4054: %fd = 29: %xbr = 6: %ybr =   6: %schirm=1
  60.   %po1   =    3: %po2=  7: %po3 = 7: %po4 = 238: %po5 = 33
  61.   %bw    =  319: %bs =199: %tabz=48: %tende=52
  62.   %anf   =  -10: %pix=  2
  63.  
  64. DIM spr%(%sprgr), feld(%fd, %fd)
  65. DIM cur%(14), f2(%fd, %fd), dateiname(9)
  66. DIM daten%(9, %fd, %fd)
  67. FOR i% = 0 TO 14: READ cur%(i%): NEXT i%
  68. DATA   5, 5, -16154, -16154, -16154, -16154,_
  69.       -16154, 0, 0, 0, 0, 0, 0, 0, 0
  70.  
  71.   %true = -1: %false = 0
  72.  
  73. SCREEN %schirm: COLOR 3: anfang = %true
  74.  
  75. REM -------------------------------------------------------
  76.