home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / fussballplatz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  130 lines

  1. 4 REM ----------------------------
  2. 5 REM ORIGINALWERTE FUER TEXTMODUS
  3. 6 REM IN ADRESSEN 251/252 RETTEN
  4. 7 REM ----------------------------
  5. 10 POKE251,PEEK(53272)
  6. 20 POKE252,PEEK(53265)
  7. 25 POKE53280,2
  8. 30 BA=8192:SYS58692
  9. 40 GOSUB 1000
  10. 119 REM -------------------------
  11. 120 REM HIRES-BILDSCHIRM LOESCHEN
  12. 121 REM -------------------------
  13. 130 FOR I=BA TO BA+7999
  14. 140 POKE I,0
  15. 150 NEXT
  16. 160 SYS58692
  17. 165 GOSUB 2000: REM TEXTMODUS EIN
  18. 190 GOSUB 1000: REM HIRES-GRAFIK EIN
  19. 200 GOSUB 3000: REM FARBRAM GRUEN
  20. 201 READ X1,Y1,X2,Y2
  21. 202 IFX1=999THEN220
  22. 205 GOSUB355
  23. 210 GOTO201
  24. 220 AT=0:TA=36:AB=144:GOSUB500
  25. 230 AT=18:TA=36:AB=32:GOSUB500
  26. 240 AT=0:TA=18:AB=248:GOSUB500
  27. 280 POKE198,0:WAIT198,1
  28. 281 GOSUB2000:SYS58692:POKE198,0:END
  29. 355 DX=X2-X1:DY=Y2-Y1
  30. 357 IFABS(DY)<ABS(DX)THEN364
  31. 358 FORYL=Y1 TO Y2 STEP SGN(DY)
  32. 359 X=DX/DY*YL+X1
  33. 360 Y=YL
  34. 361 GOSUB400
  35. 362 NEXT YL
  36. 363 RETURN
  37. 364 FORXL=X1TOX2STEPSGN(DX)
  38. 365 X=XL
  39. 366 Y=DY/DX*XL+Y1
  40. 367 GOSUB 400
  41. 368 NEXT XL
  42. 369 RETURN
  43. 400 YP=INT(Y/8)
  44. 410 XP=INT(X/8)
  45. 420 A1=(YP*40+XP)*8
  46. 430 AY=Y-8*YP+A1
  47. 450 R=X-8*XP
  48. 460 M=2^(7-R)
  49. 470 I=PEEK(AY+BA)
  50. 480 POKE AY+BA,I OR M
  51. 490 RETURN
  52. 500 FORX=ATTOTA
  53. 510 Y1=100+SQR(36*X-X*X)
  54. 520 Y2=100-SQR(36*X-X*X)
  55. 530 FORY=Y1TOY2STEPY1-Y2
  56. 540 GOSUB610:NEXTY,X
  57. 550 FORX=ATTOTA
  58. 560 Y1=100-SQR(36*X-X*X)
  59. 570 Y2=100+SQR(36*X-X*X)
  60. 580 FORY=Y1TOY2STEPY1-Y2
  61. 590 GOSUB610:NEXTY,X
  62. 600 RETURN
  63. 610 RO=INT(Y/8)
  64. 620 CH=INT(X/8)
  65. 630 LI=YAND7
  66. 640 BI=7-(XAND7)
  67. 650 BY=BA+RO*320+CH*8+LI+AB
  68. 660 POKE BY,PEEK(BY)OR2^BI
  69. 670 RETURN
  70. 994 REM ------------------------
  71. 995 REM UNTERPROGRAMM
  72. 996 REM HIRES-GRAFIK EINSCHALTEN
  73. 997 REM ------------------------
  74. 1000 POKE53272,PEEK(53272)OR8
  75. 1010 POKE53265,PEEK(53265)OR32
  76. 1020 RETURN
  77. 1994 REM ------------------------
  78. 1995 REM UNTERPROGRAMM
  79. 1996 REM HIRES-GRAFIK ABSCHALTEN
  80. 1997 REM TEXTMODUS WIEDER AKTIVIEREN
  81. 1998 REM ------------------------
  82. 2000 POKE53272,PEEK(251)
  83. 2010 POKE53265,PEEK(252)
  84. 2020 RETURN
  85. 2995 REM ------------------------
  86. 2996 REM UNTERPROGRAMM
  87. 2997 REM HINTERGRUND GRUEN UND
  88. 2998 REM PIXELFARBE WEISS
  89. 2999 REM ------------------------
  90. 3000 FOR I=1024 TO 2023
  91. 3010 POKEI,16*1+5:REM 16*CODE ZEICHENFARBE + CODE HINTERGRUNDFARBE
  92. 3020 NEXT: RETURN
  93. 5000 DATA000,000,319,000
  94. 5010 DATA319,000,319,199
  95. 5020 DATA319,199,000,199
  96. 5030 DATA000,199,000,000
  97. 5031 DATA001,001,318,001
  98. 5032 DATA318,001,318,198
  99. 5033 DATA318,198,001,198
  100. 5034 DATA001,198,001,001
  101. 5035 DATA160,000,160,199
  102. 5037 DATA161,000,161,199
  103. 5040 DATA000,076,016,076
  104. 5041 DATA016,076,016,123
  105. 5042 DATA016,123,000,123
  106. 5050 DATA303,076,319,076
  107. 5051 DATA303,076,303,123
  108. 5052 DATA303,123,319,123
  109. 5060 DATA000,044,051,044
  110. 5061 DATA051,044,051,156
  111. 5062 DATA051,156,000,156
  112. 5070 DATA268,044,319,044
  113. 5071 DATA268,044,268,156
  114. 5072 DATA268,156,319,156
  115. 5075 DATA035,100,037,100
  116. 5078 DATA035,101,037,101
  117. 5079 DATA035,102,037,102
  118. 5080 DATA035,099,037,099
  119. 5081 DATA281,099,284,099
  120. 5082 DATA281,100,284,100
  121. 5083 DATA281,101,284,101
  122. 5084 DATA281,102,284,102
  123. 5090 DATA160,097,162,097
  124. 5091 DATA159,098,163,098
  125. 5092 DATA158,099,164,099
  126. 5093 DATA158,100,164,100
  127. 5094 DATA159,101,163,101
  128. 5095 DATA160,102,162,102
  129. 9999 DATA999,000,000,000
  130.