start tok64 d64-6jqoKt
10 REM breakout
20 REM ********************************
30 REM
40 GOTO1160
50 REM
60 REM
70 GOSUB1050
80 POKE53280,4:POKE53281,0:p=8:ba=5
90 REM
100 REM spelplan
110 REM
115 s$=CHR$(160)
120 PRINT"{clear}{156}{reverse on} {cm @*23}";
121 PRINT"{cm @*15}"s$;
130 FORi=1TO23
140 PRINT"{156}{reverse on} {reverse off}{white}";
141 FORj=1TO37:PRINT" ";:NEXT
149 PRINT"{156}{reverse on}"s$"{reverse off}{white}{left*3}{148} "
150 NEXT
160 PRINT"{156}{reverse on} {reverse on}{reverse off}{white}";
161 FORi=1TO37:PRINTs$;:NEXT
169 PRINT"{156}{reverse on}"s$"{reverse off}{left*3}{148}"s$"{home}"
170 PRINT"{home}{down*3}":a$="{reverse on}OPOPOPOPOPOPOPOPOPOP"
175 a$=a$+"OPOPOPOPOPOPOPOPOP"
180 PRINT"{right}{green}"a$:PRINT"{right}"a$
190 PRINT"{right}{red}"a$:PRINT"{right}"a$
200 PRINT"{right}{yellow}"a$:PRINT"{right}"a$
210 PRINT"{right}{blue}"a$:PRINT"{right}"a$
220 a(1)=126:a(2)=108
230 a(3)=123:a(4)=124:r=0:o=0:v=41:y=1
240 REM
250 REM bollstart och position
260 REM och riktning
270 REM
280 z=1505+INT(RND(1)*38)
290 g=INT(RND(1)*2)
300 IFg=1THENr=1
310 IFg=0THENr=3                        
320 PRINT"{yellow}{home}{down}{right}po[ng"sc
330 PRINT"{yellow}{home}{down}{right*17}boll nr"ba
340 IFba<>0THEN 430
350 PRINT"{white}{clear}en g]ng till ?";
360 GETa$:IFa$=""THEN360
370 IFa$="j"THENRUN
380 IFa$<>"n"THEN360
390 PRINT"{light blue}{clear}":POKE53280,14:POKE53281,6:END
400 REM
410 REM spela och flytta paddel med sys 49152
420 REM
430 SYS49152
440 r=r+1
450 IFo=1THENIFr>4THENr=3:z=z+v:POKEz-v,32:GOTO480
460 IFo=1THEN480
470 IFr>2THENr=1:z=z+v:POKEz-v,32
480 x=PEEK(z)
485 SYS49152
486 IFx=32THEN580
490 IFx=120THENGOTO1300
500 IFx=207THENk= 1:GOTO1310
510 IFx=208THENk=-1:GOTO1310
520 IFx=160THENGOSUB1320:GOTO660
530 IFx=224THENGOSUB1320:GOTO730
540 IFx=228THENGOSUB1320:GOTO590
550 IFx<>96THEN580
560 ba=ba-1:POKEs+18,129:POKEs+18,128
570 GETa$:IFa$<>" "THEN570
575 GOTO220
580 POKEz,a(r):GOTO430
590 y=1
600 IFNOT(r=1ORr=2)THEN630
610 z=z+40:r=3:v=39:o=1
620 a(3)=124:a(4)=123:GOTO430
630 IFNOT(r=3ORr=4)THEN660
640 z=z+40:r=1:v=41:o=0
650 a(1)=126:a(2)=108:GOTO430
660 REM
670 IFNOT(r=1ORr=2)THEN700
680 z=z+1:r=3:v=-39:o=1
690 a(3)=123:a(4)=124:GOTO430
700 IFNOT(r=3ORr=4)THEN730
710 z=z+1:r=1:v=41:o=0
720 a(1)=126:a(2)=108:GOTO430
730 REM
740 IFNOT(r=1ORr=2)THEN770
750 z=z-1:r=3:v=39:o=1
760 a(3)=124:a(4)=123:GOTO430
770 IFNOT(r=3ORr=4)THEN800
780 z=z-1:r=1:v=-41:o=0
790 a(1)=108:a(2)=126:GOTO430
800 y=0
810 IFNOT(r=1ORr=2)THEN840
820 z=z-40:r=3:v=-39:o=1
825 a(3)=123:a(4)=124
830 IFz+40<>PEEK(251)+PEEK(252)*256+1THEN320
840 r=1:v=-41:o=0:a(1)=108:a(2)=126:GOTO320
850 z=z-40:r=1:v=-41:o=0
855 a(1)=108:a(2)=126
860 IFz+40<>PEEK(251)+PEEK(252)*256+3THEN320
865 r=3:v=-39:o=1:a(3)=123:a(4)=124:GOTO320
870 POKEz,32:POKEz+k,32
880 IFz<1264THENsc=sc+7:GOTO920
890 IFz<1344THENsc=sc+5:GOTO920
900 IFz<1424THENsc=sc+3:GOTO920
910 IFz<1504THENsc=sc+1
920 POKE54272+z,1:POKE54272+z+k,1
930 IFsc/608=INT(sc/608)THEN170
940 IFy=1THEN800
950 y=1
960 IFNOT(r=1ORr=2)THEN990
970 z=z+40:r=3:v=39:o=1
980 a(3)=124:a(4)=123:GOTO320
990 IFNOT(r=3ORr=4)THEN1050
1000 z=z+40:r=1:v=41:o=0
1010 a(1)=126:a(2)=108:GOTO320
1020 REM
1030 REM instruktioner
1040 REM
1050 POKE53280,2:POKE53281,2
1055 PRINT"{clear}{yellow}{space*8}***{space*3}64 breakout{space*3}***"
1060 PRINTTAB(12)"{down*2}du flyttar med:"
1070 PRINTTAB(11)"{down*2}^crsr^ = v[nster
1080 PRINTTAB(11)"{down}{arrow left}crsr{arrow left} = h{pound}ger
1090 PRINTTAB(13)"{down*3}tryck n]gon tangent
1100 GETa$:IFa$=""THEN1100
1110 RETURN
1120 REM
1130 REMmaskinkodsrutin f{pound}r f{pound}rflyttning
1140 REM av paddeln
1150 REM
1160 POKE251,208:POKE252,7
1180 FORi=49152TO49206
1190 READa:POKEi,a:NEXT:GOTO1280
1200 DATA165,197,201,2,208,11,164
1210 DATA251,192,227,240,37,230,251
1220 DATA76,29,192,201,7,208,28
1230 DATA164,251,192,192,240,22,198
1240 DATA251,160,4,185,50,192,145
1250 DATA251,136,16,248,169,160,141
1260 DATA192,7,169,224,141,231,7
1270 DATA96,96,120,120,120,96
1280 s=54272:FORi=0TO24:POKEs+i,0:NEXT
1281 POKEs,135:POKEs+1,33
1282 POKEs+7,195:POKEs+8,16
1283 POKEs+14,97:POKEs+15,8
1284 POKEs+5,0:POKEs+6,248
1285 POKEs+12,0:POKEs+13,248
1286 POKEs+19,0:POKEs+20,251
1287 POKEs+4,16:POKEs+11,16:POKEs+18,128
1288 POKEs+24,15
1289 GOTO50
1300 POKEs+4,17:POKEs+4,16:GOTO800
1310 POKEs+11,17:POKEs+11,16:GOTO870
1320 POKEs+4,17:POKEs+4,16:RETURN
stop tok64
(bastext 1.0)