home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / JAILBREAK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.8 KB  |  130 lines
  1. 1 GOTO 1000
  2. 2 BA=5:SC=0:LI=5:CL(1)=5:CL(2)=6:CL(3)=7:CL(4)=2:CL(5)=4:CL(6)=3:CL(7)=8
  3. 3 V=53248:CL(8)=13
  4. 4 PIDDLE=49152
  5. 5 FORT=0TO63:READA:POKEPIDDLE+T,A:NEXT
  6. 6 SYSPIDDLE:PX=PEEK(PIDDLE+257)
  7. 10 DATA162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  8. 11 DATA128,141,0,220,160,128,234,136,16,252,173,25,212,157
  9. 12 DATA1,193,173,26,212,157,3,193,173,0,220,9,128,141,220,141
  10. 13 DATA169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  11. 14 DATA6,193,88,96
  12. 20 FORT=0TO63:READA:POKET+832,A:NEXT
  13. 32 POKE2040,13:POKEV+39,1:POKEV+1,240:POKEV+29,1
  14. 91 REM******************************
  15. 92 REM*                            *
  16. 93 REM*        JAILBREAK!          *
  17. 94 REM*                            *
  18. 95 REM*           BY               *
  19. 96 REM*                            *
  20. 97 REM*        BEN DUPRE           *
  21. 98 REM*                            *
  22. 99 REM******************************
  23. 100 PRINT"[147]"
  24. 101 PRINT"";"SCORE:"SCRE;TAB(31);"BALLS:";BALLS;
  25. 102 WALL=0:POKEV+21,1:WILL=LINES*40
  26. 105 POKE53280,0:POKE53281,0
  27. 110 B=1024+40*3:C=55296+40*3
  28. 120 FORX=0TO(LINES-1)*40STEP40
  29. 125 FORJ=XTOX+39:POKEB+J,160:POKEJ+C,CL((X/40)+1):NEXT:NEXT
  30. 290 DX=1:DY=-1
  31. 295 X=0:Y=24
  32. 297 WALL=0
  33. 300 X=X+DX:IFX=>39ORX=<0THENDX=-DX:IFX=>39THENX=39:GOTO302
  34. 301 IFX=<0THENX=0
  35. 302 Y=Y+DY:IFY=<1THENDY=1:Y=1:GOTO310
  36. 303 IFNOTY=>24THEN310
  37. 304 Y=22:DY=-1:HIT=1:IFPEEK(V+31)AND1=1THENDY=1:GOSUB400:HIT=0:GOTO310
  38. 306 IFHIT=1THENBALLS=BALLS-1:HIT=0:PRINT"";TAB(31);"BALLS:";BA:IFBA<=0THEN700
  39. 307 PRINT"";"":A$="OOPS!":PRINTTAB(20-INT(LEN(A$)/2));A$
  40. 308 FORD=1TO300:NEXT
  41. 309 PRINT"";"":A$="     ":PRINTTAB(20-INT(LEN(A$)/2));A$
  42. 310 IFPEEK(1024+X+40*Y)=160THENGOSUB400
  43. 330 POKE1024+X+40*Y,81:POKE55296+X+40*Y,1
  44. 340 POKE1024+X+40*Y,32
  45. 350 SYSPIDDLE:PADDLE=PEEK(PIDDLE+257)
  46. 355 PADDLE=INT(PADDLE*1.16962745)
  47. 358 IFPADDLE<24THEN300
  48. 359 IFPADDLE>255THENPADDLE=PADDLE-255:POKEV+16,1:GOTO362
  49. 360 POKEV+16,0
  50. 362 POKEV+0,PADDLE
  51. 370 GOTO 300
  52. 400 W=WALL:S=SCRE
  53. 405 DY=-DY:DX=(INT(RND(1)*3)+1)*SGN(DX)
  54. 410 GOSUB500:SCRE=SCRE+(30-((Y-3)*5))
  55. 415 WALL=WALL+1
  56. 417 IFY>20THENWALL=W:SCRE=S:Y=22
  57. 420 IFWALL=>WILLTHEN800
  58. 430 PRINT"";"SCORE:"SCRE;TAB(31);"BALLS:";BALLS;
  59. 440 RETURN
  60. 500 REM******PING********
  61. 505 POKE54296,15
  62. 510 POKE54273,35:POKE54272,135
  63. 515 POKE54277,40:POKE54278,68
  64. 520 POKE54276,17
  65. 530 FORD=1TO30:NEXT
  66. 540 POKE54276,16
  67. 550 RETURN
  68. 700 POKEV+21,0:PRINT"[147]":A$="YOU LOOSE"
  69. 705 BALLS=5:LINES=5:OUTS=0
  70. 710 PRINTTAB(20-INT(LEN(A$)/2));"[156]";A$
  71. 720 PRINT"";"YOUR SCORE:";SCRE
  72. 730 IFSCRE>HISCRETHENHISCRE=SCRE
  73. 740 PRINT"";"HIGH:";HISCRE:SCRE=0
  74. 750 PRINT"ANOTHER GAME (Y/N)"
  75. 755 GETQ$:IFQ$=""THEN755
  76. 760 IFQ$="Y"THENSCRE=0:BALLS=5:GOTO 100
  77. 770 IFQ$<>"N"THEN755
  78. 780 PRINT"[147]":POKEV+21,0:END
  79. 800 POKEV+21,0:PRINT"[147]";:A$="YOU BROKE OUT!":BALLS=BALLS+1
  80. 810 PRINTTAB(20-INT(LEN(A$)/2));"";A$
  81. 820 PRINT"";"YOUR SCORE:";SCRE
  82. 830 IFSCRE>HISCRETHENHISCRE=SCRE
  83. 840 PRINT"";"HIGH:";HISCRE:OUTS=OUTS+1:IFOUTS/2=INT(OUTS/2)THENLINES=LINES+1
  84. 845 IFLINES=>8THENLINES=8
  85. 850 PRINT"PRESS ANY KEY TO CONTINUE"
  86. 855 GETQ$:IFQ$=""THEN855
  87. 860 GOTO 100
  88. 861 DATA255,255,255,024,066,024,008,165
  89. 862 DATA016,008,129,016,000,090,000,002
  90. 863 DATA036,064,000,129,000,000,126,000
  91. 864 DATA000,000,000,000,255,000,000,000
  92. 865 DATA000,000,255,000,000,000,000,000
  93. 866 DATA255,000,000,000,000,001,195,128
  94. 867 DATA000,000,000,001,000,128,000,000
  95. 868 DATA000,007,000,224,000,000,000,000
  96. 1000 REM:::JAILBREAK!
  97. 1010 PRINT"[147][155]":POKE53280,0:POKE53281,0
  98. 1015 A$="PRESS F1"
  99. 1017 PRINTTAB(20-(LEN(A$)/2));"";A$
  100. 1020 PRINT""
  101. 1025 PRINT"                                     [191]"
  102. 1030 PRINT"    [191] [191][191][191] [191] [191]   [191][191][191] [191][191][191] [191][191][191] [191][191][191] [191] [191]  [191]"
  103. 1040 PRINT"    [191] [191] [191] [191] [191]   [191] [191] [191] [191] [191]   [191] [191] [191] [191]  [191]"
  104. 1050 PRINT"    [191] [191][191][191] [191] [191]   [191][191][191] [191][191][191] [191][191]  [191][191][191] [191][191][191]  [191]"
  105. 1060 PRINT" [191]  [191] [191] [191] [191] [191]   [191] [191] [191] [191] [191]   [191] [191] [191] [191]   "
  106. 1070 PRINT"  [191][191][191] [191] [191] [191] [191][191][191] [191][191][191] [191]  [191][191][191][191] [191] [191] [191]  [191] [191]"
  107. 1080 K=55296+(40*11)
  108. 1090 FORT=0TO39
  109. 1095 POKEK+T,5:NEXT
  110. 2000 FORT=40TO79
  111. 2005 POKEK+T,14:NEXT
  112. 2010 FORT=80TO119
  113. 2015 POKEK+T,7:NEXT
  114. 2020 FORT=120TO159
  115. 2025 POKEK+T,2:NEXT
  116. 2030 FORT=160TO199
  117. 2035 POKEK+T,4:NEXT
  118. 2040 FORD=1TO5000:NEXT
  119. 2050 PX=1:PY=-1
  120. 2060 X1=X1+PX:IFX1>=39THENPX=-PX:X1=39
  121. 2070 IFX1<=0THENPX=-PX:X1=0
  122. 2080 Y1=Y1+PY:IFY1>=24THENPY=-PY:Y1=24
  123. 2090 IFY1<=1THENPY=-PY:Y1=1
  124. 2100 IFPEEK(1024+X1+40*Y1)<>32THENGOSUB500:PY=(INT(RND(1)*3)+1)*-SGN(PY)
  125. 2110 POKE1024+X1+40*Y1,81:POKE55296+X1+40*Y1,1
  126. 2120 FORD=1TO10:NEXT
  127. 2130 POKE1024+X1+40*Y1,32
  128. 2135 GETP$:IFP$="[133]"THEN2
  129. 2140 GOTO 2060
  130.