home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902c.d64 / break (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.8 KB  |  124 lines
  1. 20 REM@ \WORD #:\FASTFOR:\SHORTIF
  2. 30 REM@ \BYTE X,SO,J,I2,IE,COUNT,LV,SL
  3. 40 POKE650,128
  4. 500 SO=15:BR=10:B2=BR-1
  5. 900 AP=1023:GOSUB5750
  6. 950 GOSUB5700
  7. 1000 JO=56320
  8. 1005 GOSUB12000
  9. 1010 GOSUB10000
  10. 1020 GOSUB5100:REM BERECHNEN
  11. 1030 GOSUB5200:REM TESTEN
  12. 1032 GOSUB8000:REM TASTATUR
  13. 1035 POKEAP,32:
  14. 1040 POKEPO,81:
  15. 1060 GOSUB 5000
  16. 1070 FORI=1TOSP:NEXT
  17. 1080 GOSUB 5000
  18. 1085 FORI=1TOSP:NEXT
  19. 1090 GOTO1020
  20. 5000 RI=0
  21. 5005 IF (PEEK(JO)AND4)=0 THEN 5030:REM JOYSTIC
  22. 5010 IF (PEEK(JO)AND8)=0 THEN 5040
  23. 5020 RETURN
  24. 5030 IFXC>1984THENXC=XC-1:RI=-128
  25. 5032 POKEXC,119:POKEXC+BR,32:RETURN
  26. 5040 IFXC<1984+40-BRTHEN XC=XC+1:RI=128
  27. 5042 POKEXC+B2,119:POKEXC-1,32:RETURN
  28. 5090 :
  29. 5100 REM BERECHNEN
  30. 5110 AX=X:AP=PO:PO=PO+DY
  31. 5120 XX=XX+DX:IFXXAND256THENXX=XXAND255:PO=PO+TX:X=X+TX
  32. 5130 REMPRINT"                              ";PO;X;XX;DX;TX
  33. 5140 RETURN
  34. 5190 :
  35. 5200 PN=PO+DY
  36. 5210 IF PEEK(PO)=204 OR PEEK(PO)=239 THEN GOSUB5600
  37. 5230 IF PO<1104THEN DY=40:GOSUB6000
  38. 5240 IF X=39 THEN IF TX=1 THEN DX=-DX:TX=-TX:GOSUB6000
  39. 5250 IF X=0 THEN IF TX=-1 THEN DX=-DX:TX=-TX:GOSUB6000
  40. 5255 IF PO>=1944THEN GOSUB 5270
  41. 5260 RETURN
  42. 5270 IF PEEK(PN)=119 THENGOTO5500
  43. 5275 IF PO>=1988THEN POKEAP,32:GOSUB5700:DX=0:TX=0:DY=0:IFSL=1THENGOSUB5950
  44. 5280 RETURN
  45. 5399 :
  46. 5500 DY=-40:GOSUB6200
  47. 5505 IF X=0AND TX=0 THEN DX=128:TX=1
  48. 5506 IF X=39AND TX=0 THEN DX=-128:TX=-1
  49. 5510 DX=DX+RI:TX=0
  50. 5515 IF DX+30000>30000THENTX=1
  51. 5520 IF DX+30000<30000THENTX=-1
  52. 5525 IF DX+30256<30000THENTX=-1:DX=-256::RETURN
  53. 5530 IF DX>256THEN IF DX<1000THEN DX=256:TX=1:RETURN
  54. 5590 RETURN
  55. 5600 DY=-DY:IFPO>=1104THENGOSUB6100
  56. 5610 P=(PO-X)+(XAND255-3):POKEP,32:POKEP+1,32:POKEP+2,32:POKEP+3,32
  57. 5630 COUNT=COUNT-1:PU=PU+1:PRINT""TAB(9)PU
  58. 5640 IFCOUNT>0THENRETURN
  59. 5650 SL=SL+1:PRINT"NAECHSTER LEVEL...":GOSUB5800:GOSUB10000:GOSUB5700
  60. 5660 LV=LV+1
  61. 5690 RETURN
  62. 5700 DY=-40:DX=256:TX=1:X=5:PO=1904+X:AP=1023
  63. 5710 XX=X*256:RETURN
  64. 5750 XC=1984+20:IF BR>19 THEN XC=1984
  65. 5760 IE=3:LV=1:SL=3:PU=0
  66. 5790 RETURN
  67. 5800 POKE198,0
  68. 5810 GETA$:IFA$=""THEN5810
  69. 5820 RETURN
  70. 5900 PRINT"[152]  PUNKTE: [157]"PU"[157]    LEVEL:"LV"[157]    LEBEN:"SL"[157]  ":RETURN
  71. 5950 PRINT" ENDE ":GOSUB5800
  72. 5960 GOSUB5700:GOSUB5750:GOSUB10000:RETURN
  73. 6000 :
  74. 6100 :
  75. 6200 :
  76. 6510 POKE54272+24,SO:SO=15-SO
  77. 6530 RETURN
  78. 6999 :
  79. 8000 IF PEEK(198)=0THEN RETURN
  80. 8005 GETA$
  81. 8010 IFA$="+"ANDBR<40THENBR=BR+1:IFXC>1984THENXC=XC-1
  82. 8020 IFA$="-"ANDBR>1THENBR=BR-1
  83. 8100 IF A$>="0" AND A$<="9" THEN GOSUB9000
  84. 8800 B2=BR-1:GOSUB11000
  85. 8850 IFDY<>0THENRETURN
  86. 8860 GOSUB5700:SL=SL-1:GOSUB5900
  87. 8870 AP=1023:LV=LV+1
  88. 8900 RETURN
  89. 9000 A=9-VAL(A$)
  90. 9010 SP=(2^A-1)*7+200*A:RETURN
  91. 10000 POKE53281,12:PRINT"[152][147]";
  92. 10002 GOSUB5900:PRINT""
  93. 10005 A$(1)="":A$(2)="[158]":A$(3)="[129]":A$(4)=""
  94. 10006 IE=IE+2:IFIE>15THENIE=15
  95. 10007 COUNT=IE*7
  96. 10010 FORI2=1TOIE:PRINTA$((I2AND3)+1);
  97. 10020 J=INT(RND(1)*3)*4
  98. 10030 PRINTTAB(J)"[204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][146]"
  99. 10040 IF (I2AND3)=3 THEN PRINT
  100. 10100 NEXTI2:PRINT"[152]";
  101. 10150 POKE53281,0:POKE53280,12
  102. 11000 FORI=1984TO2023:POKEI,32:NEXT
  103. 11010 FORI=0TOB2:POKEXC+I,119:NEXT
  104. 11020 RETURN
  105. 11110 FORI=0TOB2:POKE1984+XC+I,119:NEXT
  106. 12000 PRINT"[147]"CHR$(142)
  107. 12010 PRINT"          SIMPELSTES BREAKOUT
  108. 12020 [153]"   EINE DEMO ZUM BASIC-BOSS-COMPILER
  109. 12022 PRINT"              (THILO HERRMANN, 1988)
  110. 12023 [153]"
  111. 12024 PRINT"
  112. 12025 [153]"    DIESES SPIELCHEN DARF (UND SOLL)
  113. 12026 PRINT"       BELIEBIG KOPIERT WERDEN.
  114. 12029 [153]"    BEDIENUNG WAEHREND DES SPIELS:
  115. 12030 PRINT"  +,- ... BREITE
  116. 12040 [153]"  0-9 ... GESCHWINDIGKEIT
  117. 12042 PRINT"  DIE BEWEGUNGSRICHTUNG DES SCHLAEGERS
  118. 12043 [153]"  BEEINFLUSST DEN ABPRALLENDEN BALL.
  119. 12044 PRINT"  BITTE WAEHLEN SIE DIE
  120. 12045 [153]"  STARTGESCHWINDIGKEIT:(0-9)
  121. 12047 PRINT" (BEI DER BASIC-VERSION BESSER '9')
  122. 12050 [161]A$:[139]A$[178]""[167]12050
  123. 12060 [137]9000
  124.