home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis595.d64 / braek-out (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  6KB  |  169 lines
  1. 10 PRINT"[147][158]":POKE53280,0:POKE53281,0:      PRINTCHR$(142) CHR$(8)
  2. 11 PRINT"          I.GAFFLING   PRESENTS 1985"
  3. 12 PRINT"[145][145][145][145]"
  4. 13 A$=A$+" ":X=X+1
  5. 14 PRINTA$"[207][208]
  6. 15 [153]A$"    WAITAND(null)WAIT
  7. 16 PRINTA$"[209][209][209][209] [223]
  8. 17 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  9. 18 IFX=1THENFORT=0TO4000:NEXT
  10. 19 PRINT"[145][145][145][145][145][145]"
  11. 20 IFA$=>"                                 "THEN23
  12. 21 FORT=0TO18:NEXT
  13. 22 GOTO13
  14. 23 PRINT""
  15. 30 PRINT"[213][201]  [213][201][213][192][192][192][201][213][201]  [213][201]
  16. 35 [153]"(null)(null)  (null)(null)(null)(null)TANRIGHT$(null)(null)(null)  (null)(null)
  17. 40 PRINT"[221][221]  [221][221][221][221][213][203][221][221][221]  [221][221]   [213][192][192][201]
  18. 45 [153]"(null)(null)(null)RIGHT$(null)(null)(null)(null)MID$RIGHT$(null)(null)(null)  (null)(null)   MID$TANTAN(null)
  19. 50 PRINT"[221][202][203][202][203][221][221][221] [221][221][221][202][192][201][221][202][192][201]
  20. 55 [153]"MID$TANTANTANTAN(null)MID$(null) MID$(null)MID$TANTAN(null)MID$TANTAN(null)
  21. 60 PRINT"[213][192][192][192][192][201][213][192][192][192][201][213][192][192][201][213][192][192][201][213][201][176][174] [213][192][192][201][213][192][192][192][201]
  22. 65 [153]"(null)ORTANRIGHT$ (null)(null)ORTANRIGHT$(null)(null)ORTAN(null)(null)(null)RIGHT$(null)(null)(null)(null)(null) (null)ORTANEXP(null)ORTANRIGHT$(null)
  23. 70 PRINT"[221][173][192][203][213][203][221][173][192][203][221][221][202][201] [221][202][203][221][221][173][203][173][201][221][173][174] [221][173][192][203][221]
  24. 75 [153]"(null)ORTANRIGHT$MID$RIGHT$(null)(null)RIGHT$(null)(null)(null)(null)(null) (null)(null)RIGHT$(null)(null)ORTANRIGHT$(null)(null)OREXP (null)(null)RIGHT$(null)(null)
  25. 80 PRINT"[221][173][192][203] [221][221][221][221][221] [221][173][192][201][221][221][221][221][221][221] [221][221][221][173][192][174][221][221][221][221]
  26. 85 [153]"MID$TANTANTANTAN(null)MID$(null)MID$(null) MID$TANTAN(null)MID$(null)MID$(null)MID$(null) MID$(null)MID$TANTAN(null)MID$(null)MID$(null)
  27. 90 PRINT"WRITTEN BY I.GAFFLING
  28. 95 [161]KS$:[139]KS$[178]""[167]95
  29. 100 [153]"LOAD":[151]51,255:[151]52,79:[156]:[151]53280,0:[151]53281,0:[153][199](14) [199](8)
  30. 110 [140]:[141]730:TA[178]5:[134]HD(24),HD$(24)
  31. 120 SI[178]54272:[151]54295,0:[151]54296,15:[151]SI[170]2,0:[151]SI[170]3,8
  32. 130 [151]SI[170]5,0:[151]SI[170]6,240:[151]SI[170]4,17:SI[178]54273
  33. 140 [134]J(255):J(120)[178]1:J(247)[178]2:J(208)[178]3:J(160)[178]4:J(234)[178]5
  34. 150 [153]"LOAD"[199](142)"GOSUBHIGHSCORE TO DATE:CONT"HD
  35. 160 A[178]1024:X[178]0:X1[178]1:Y[178]21:Y1[178][171]1:P1[178]A[170]960:L[178]1884:ZX%[178]1:AN[178]0
  36. 170 [129]I[178]1[164]TA:[151]2023[171]I,81:[151]56295[171]I,7:[130]
  37. 180 [153]"FORUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
  38. 190 [153]"ON + + + + + + + + + + + + + + + + + + + +"
  39. 200 [153]"ONUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
  40. 210 [153]"ON + + + + + + + + + + + + + + + + + + + +"
  41. 220 [153]"ONUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
  42. 230 [153]"ON + + + + + + + + + + + + + + + + + + + +"
  43. 240 [153]"ONPRINT#USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
  44. 250 [153]"ON + + + + + + + + + + + + + + + + + + + +POKEWAITUSRUSRUSRUSR"
  45. 260 [153]"FORYOUR SCORE:VERIFY"PU"ON":[129]I[178]0[164]400:[130]
  46. 270 [151]SI[170]3,17
  47. 280 [158]20481:[151]SI,0:SW[178]SW[170]1:[139]SW[178]4[167]SW[178]0:[158]20481
  48. 290 [161]BR$:[139]BR$[179][177]" "[167]310
  49. 300 [161]BR$:[139]BR$[179][177]" "[167]300
  50. 310 X[178]X[170]X1:[139]X[179]0[176]X[177]39[167]X[178]X[171]X1:X1[178][171][180](X1)[172][181](2[172][187](1)[170]1):[151]SI,10
  51. 320 Y[178]Y[170]Y1
  52. 330 [139]Y[179]1[167]Y[178]Y[171]Y1:Y1[178][171]Y1:[151]SI,15
  53. 340 [139]ZX%[178]0[167][139][194](P1)[179][177]120[167][151]P1,32
  54. 350 ZX%[178]0:P1[178]A[170]40[172]Y[170]X:[139]Y[177]23[167]540
  55. 360 [139][194](P1)[179][177]32[167]380
  56. 370 [151]P1,81:[151]P1[170]54272,7:[137]280
  57. 380 DD[178][194](P1)
  58. 390 [145]J(DD)[137]410,420,440,460,480
  59. 400 [137]520
  60. 410 Y1[178][171]Y1:[151]P1,120:[151]P1[170]54272,11:[151]SI,20:[151]SI,15:ZX%[178]1:[137]280
  61. 420 [151]P1,32:[151]P1[170]1,32:[151]P1[170]40,32:[151]P1[170]41,32:[151]SI,Y[172]8:[151]SI,Y[172]5
  62. 430 [137]490
  63. 440 [151]P1,32:[151]P1[171]1,32:[151]P1[170]39,32:[151]P1[170]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
  64. 450 [137]490
  65. 460 [151]P1,32:[151]P1[170]1,32:[151]P1[171]39,32:[151]P1[171]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
  66. 470 [137]490
  67. 480 [151]P1,32:[151]P1[171]1,32:[151]P1[171]41,32:[151]P1[171]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
  68. 490 PU[178]PU[170](12[171]Y)[172]5:AN[178]AN[170]1:[139]AN[177]79[167]AN[178]0:[141]950:[153]"LOAD":[151]20480,1:[137]150
  69. 500 PN[178]PN[170](12[171]Y)[172]5
  70. 510 [139]PN[177]5000[167]PN[178]0:TA[178]TA[170]1:[151]2023[171]TA,81:[151]56295[171]TA,7:[141]880
  71. 520 [153]"FORYOUR SCORE:VERIFY"PU"ON"
  72. 530 Y1[178][171]Y1:[151]P1,81:[151]P1[170]54272,7:[137]280
  73. 540 X[178]0:X1[178][181](2[172][187](1)[170]1):Y[178]21:Y1[178][171]1
  74. 550 [151]2023[171]TA,32
  75. 560 TA[178]TA[171]1:[139]TA[177][178]0[167][151]SI[170]3,33:[129]I[178]70[164]180:[141]720:[130]:ZX%[178]1:[137]270
  76. 570 [153]"LOAD      ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"[199](14)
  77. 580 [153]"      (null)                      (null)"
  78. 590 [153]"      (null) POKE CHR$ A M E  O V E R ! WAIT (null)"
  79. 600 [153]"      (null)                      (null)"
  80. 610 [153]"      /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  81. 620 [129]I[178]0[164]10:[151]SI,I[172]2:[153]""[163]8)" CHR$ A M E  O V E R ! ":[141]1000
  82. 630 [151]SI,20[171]I[172]2:[153]""[163]8)"POKE CHR$ A M E  O V E R ! WAIT":[141]1000:[130]
  83. 640 [153]"CLR         (null)OUR SCORE:"PU
  84. 650 [129]I[178]0[164]800:[130]:[151]198,0
  85. 660 TA[178]0:[139]PU[177]HD[167]HD[178]PU:[153]"FOR    (null)EEL DONE, NEW LEFT$IGHSCORE !!"
  86. 670 [141]1010
  87. 680 [153]" (null)ILL YOU PLAY AGAIN, PRESS ANY KEY ! "
  88. 690 AN[178]0:PU[178]0:PN[178]0:TA[178]2
  89. 700 [139][194](203)[178]64[175][194](653)[178]0[167]700
  90. 719 [153]"LOAD":[151]20480,1:[137]150
  91. 720 [151]SI,I[173]4:[151]SI,I[173]3:[151]SI,I[173]6:[142]
  92. 730 [153]"LOAD               (null)HE (null)EYS                 "
  93. 740 [153]"FOR               ORTANTANTAN=TANTANTAN^  "
  94. 750 [153]"      PRINT#(null)EFTWAITPRINT# <-- FOR(null)POKE (null) WAITFOR(null)POKE (null) WAITFOR(null) --> PRINT#WAIT(null)IGHTWAIT"
  95. 760 [153]"FOR               /TANTANTAN>TANTANTANEXP"
  96. 770 [153]"VERIFY (null)OU MUST HIT WITH YOUR RACKET AND A"
  97. 780 [153]" BALL  THE BRICKS OUT  OF THE WALL !RIGHT$F"
  98. 790 [153]" THE BALL DROPS  DOWN THE FLOOR YOU GET"
  99. 800 [153]" A NEW ONE. ATNT BEGINNING YOU HAVE THREE"
  100. 810 [153]" BALLS, BUT  EVERY 5000  POINTS YOU GET"
  101. 820 [153]" ONE MORE. (null)HEN  NO BALLS ARE LEFT, YOU"
  102. 830 [153]" LOSE AND THE GAME BREAKS."
  103. 840 [153]"   ATNLL RIGHT ?  (null)HEN PRESS ANY KEY !    "
  104. 850 Y[178]700:[129]I[178]20480[164]20549:[135]A:[151]I,A:[130]
  105. 860 Y[178]Y[171]1:[139]Y[177]0[175][194](203)[178]64[175][194](653)[178]0[167]860
  106. 870 [142]
  107. 880 [153]"FORYOUR SCORE:VERIFY"PU"ON":[151]SI[170]3,65
  108. 890 [151]P1,81:[151]P1[170]54272,7:[129]I[178]0[164]100
  109. 900 [153]"FOR"[163]8)"***** NEW BALL ! *****"
  110. 910 [151]SI,I:[151]SI,I[173]2:[151]SI,100[171]I
  111. 920 [153]"POKE"[163]8)"***** NEW BALL ! *****WAIT"
  112. 930 [130]:[153]""[163]8)"                      "
  113. 940 [151]SI[170]3,17:[142]
  114. 950 [153]"FORYOUR SCORE:VERIFY"PU"ON":[151]SI[170]3,65
  115. 960 [129]I[178]0[164]180:[151]SI[170]3,17:[151]SI,I[173]3:[151]SI[170]3,33:[151]SI,I[173]2.5
  116. 970 [151]P1,81:[151]P1[170]54272,7
  117. 980 [151]SI[170]3,65:[151]SI,90[17