home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 8
/
Publication_08_1996_High-Tech_de_Side_B.d64
/
wallbreaker
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
169 lines
10 print"[147][158]":poke53280,0:poke53281,0: printchr$(142) chr$(8)
11 print" public domain software 1985"
12 print"[145][145][145][145]"
13 a$=a$+" ":x=x+1
14 printa$"[207][208]
15 [153]a$" waitand(NULL)wait
16 printa$"[209][209][209][209] [223]
17 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
18 ifx=1thenfort=0to4000:next
19 print"[145][145][145][145][145][145]"
20 ifa$=>" "then23
21 fort=0to18:next
22 goto13
23 print""
30 print"[213][201] [213][201][213][192][192][192][201][213][201] [213][201]
35 [153]"(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)tanright$(NULL)(NULL)(NULL) (NULL)(NULL)
40 print"[221][221] [221][221][221][221][213][203][221][221][221] [221][221] [213][192][192][201]
45 [153]"(NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)mid$right$(NULL)(NULL)(NULL) (NULL)(NULL) mid$tantan(NULL)
50 print"[221][202][203][202][203][221][221][221] [221][221][221][202][192][201][221][202][192][201]
55 [153]"mid$tantantantan(NULL)mid$(NULL) mid$(NULL)mid$tantan(NULL)mid$tantan(NULL)
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]
65 [153]"(NULL)ortanright$ (NULL)(NULL)ortanright$(NULL)(NULL)ortan(NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)ortanexp(NULL)ortanright$(NULL)
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]
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)
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]
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)
90 print"written by i.gaffling
95 [161]ks$:[139]ks$[178]""[167]95
100 [153]"load":[151]51,255:[151]52,79:[156]:[151]53280,0:[151]53281,0:[153][199](14) [199](8)
110 [140]:[141]730:ta[178]5:[134]hd(24),hd$(24)
120 si[178]54272:[151]54295,0:[151]54296,15:[151]si[170]2,0:[151]si[170]3,8
130 [151]si[170]5,0:[151]si[170]6,240:[151]si[170]4,17:si[178]54273
140 [134]j(255):j(120)[178]1:j(247)[178]2:j(208)[178]3:j(160)[178]4:j(234)[178]5
150 [153]"load"[199](142)"gosubhighscore to date:cont"hd
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
170 [129]i[178]1[164]ta:[151]2023[171]i,81:[151]56295[171]i,7:[130]
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)"
190 [153]"on + + + + + + + + + + + + + + + + + + + +"
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)"
210 [153]"on + + + + + + + + + + + + + + + + + + + +"
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)"
230 [153]"on + + + + + + + + + + + + + + + + + + + +"
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)"
250 [153]"on + + + + + + + + + + + + + + + + + + + +pokewaitusrusrusrusr"
260 [153]"foryour score:verify"pu"on":[129]i[178]0[164]400:[130]
270 [151]si[170]3,17
280 [158]20481:[151]si,0:sw[178]sw[170]1:[139]sw[178]4[167]sw[178]0:[158]20481
290 [161]br$:[139]br$[179][177]" "[167]310
300 [161]br$:[139]br$[179][177]" "[167]300
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
320 y[178]y[170]y1
330 [139]y[179]1[167]y[178]y[171]y1:y1[178][171]y1:[151]si,15
340 [139]zx%[178]0[167][139][194](p1)[179][177]120[167][151]p1,32
350 zx%[178]0:p1[178]a[170]40[172]y[170]x:[139]y[177]23[167]540
360 [139][194](p1)[179][177]32[167]380
370 [151]p1,81:[151]p1[170]54272,7:[137]280
380 dd[178][194](p1)
390 [145]j(dd)[137]410,420,440,460,480
400 [137]520
410 y1[178][171]y1:[151]p1,120:[151]p1[170]54272,11:[151]si,20:[151]si,15:zx%[178]1:[137]280
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
430 [137]490
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
450 [137]490
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
470 [137]490
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
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
500 pn[178]pn[170](12[171]y)[172]5
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
520 [153]"foryour score:verify"pu"on"
530 y1[178][171]y1:[151]p1,81:[151]p1[170]54272,7:[137]280
540 x[178]0:x1[178][181](2[172][187](1)[170]1):y[178]21:y1[178][171]1
550 [151]2023[171]ta,32
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
570 [153]"load ortantantantantantantantantantantantantantantantantantantantantantan^"[199](14)
580 [153]" (NULL) (NULL)"
590 [153]" (NULL) poke chr$ a m e o v e r ! wait (NULL)"
600 [153]" (NULL) (NULL)"
610 [153]" /tantantantantantantantantantantantantantantantantantantantantantanexp"
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
630 [151]si,20[171]i[172]2:[153]""[163]8)"poke chr$ a m e o v e r ! wait":[141]1000:[130]
640 [153]"clr (NULL)our score:"pu
650 [129]i[178]0[164]800:[130]:[151]198,0
660 ta[178]0:[139]pu[177]hd[167]hd[178]pu:[153]"for (NULL)eel done, new left$ighscore !!"
670 [141]1010
680 [153]" (NULL)ill you play again, press any key ! "
690 an[178]0:pu[178]0:pn[178]0:ta[178]2
700 [139][194](203)[178]64[175][194](653)[178]0[167]700
719 [153]"load":[151]20480,1:[137]150
720 [151]si,i[173]4:[151]si,i[173]3:[151]si,i[173]6:[142]
730 [153]"load (NULL)he (NULL)eys "
740 [153]"for ortantantan=tantantan^ "
750 [153]" print#(NULL)eftwaitprint# <-- for(NULL)poke (NULL) waitfor(NULL)poke (NULL) waitfor(NULL) --> print#wait(NULL)ightwait"
760 [153]"for /tantantan>tantantanexp"
770 [153]"verify (NULL)ou must hit with your racket and a"
780 [153]" ball the bricks out of the wall !right$f"
790 [153]" the ball drops down the floor you get"
800 [153]" a new one. atnt beginning you have three"
810 [153]" balls, but every 5000 points you get"
820 [153]" one more. (NULL)hen no balls are left, you"
830 [153]" lose and the game breaks."
840 [153]" atnll right ? (NULL)hen press any key ! "
850 y[178]700:[129]i[178]20480[164]20549:[135]a:[151]i,a:[130]
860 y[178]y[171]1:[139]y[177]0[175][194](203)[178]64[175][194](653)[178]0[167]860
870 [142]
880 [153]"foryour score:verify"pu"on":[151]si[170]3,65
890 [151]p1,81:[151]p1[170]54272,7:[129]i[178]0[164]100
900 [153]"for"[163]8)"***** new ball ! *****"
910 [151]si,i:[151]si,i[173]2:[151]si,100[171]i
920 [153]"poke"[163]8)"***** new ball ! *****wait"
930 [130]:[153]""[163]8)" "
940 [151]si[170]3,17:[142]
950 [153]"foryour score:verify"pu"on":[151]si[170]3,65
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
970 [151]p1,81:[151]p1[170]54272,7
980 [151]si[170]3,65:[151]si,90[171]i[173]2:[130]
990 [151]si[170]3,17:[142]
1000 [129]j[178]0[164]100:[130]:[142]
1010 [153]"poke (NULL)lease give your initials :"
1020 [153]"for (NULL) wait verify--> (NULL)p
1030 print"[129] [206] [146] [149]--> [196]own
1040 [153]"for (NULL)pace wait verify--> ascix
1050 print"[154]"tab(18)"---"
1060 print"":poke650,128:le=64:le$="":pokesi+3,65
1070 fori=0to2
1080 geta$:ifa$<>"m"anda$<>"n"anda$<>" "then1080
1090 pokesi,le:pokesi,le/3
1100 ifa$="m"thenle=le+1:ifle>90thenifle<95thenle=95
1110 ifa$="m"thenifle>95thenle=45
1120 ifa$="m"thenifle>45thenifle<65thenle=65
1130 ifa$="n"thenle=le-1:ifle<45thenle=95
1140 ifa$="n"thenifle<95thenifle>90thenle=90
1150 ifa$="n"thenifle<65thenifle>45thenle=45
1160 ifa$<>" "then1220
1170 ifle=95thenle$="":i=0:print""tab(18)"---":le=65:goto1220
1180 ifle=45thenle=32:goto1200
1190 le=le+128
1200 le$=le$+chr$(le):forj=0to100:next:pokesi,0:le=45
1210 print""tab(18)le$:goto1250
1220 ifle<>45andle<>95thenze=le+128:goto1240
1230 ze=le
1240 pokesi,0:print""tab(18+i)chr$(ze):goto1080
1250 nexti
1260 print" "
1270 print" "
1280 print" "
1290 print" "
1300 print""tab(18)" "
1310 fori=1to24
1320 ifpu>hd(i)thengosub1420:i=24
1330 next
1340 ifle<>45thenze=le+32
1350 print" [200]all of [198]ame: [146]"
1360 fori=1to12:print"[129]";
1370 printtab(3)right$(" "+str$(i),2)" [149]"right$(" "+str$(hd(i)),6);
1380 print" [151]"hd$(i)"[129]";
1390 printtab(22)right$(" "+str$(i+12),2)" [149]"right$(" "+str$(hd(i+12)),6);
1400 print" [151]"hd$(i+12)
1410 next:return
1420 forj=24toistep-1
1430 hd(j)=hd(j-1):hd$(j)=hd$(j-1)
1440 next
1450 hd(i)=pu:hd$(i)=le$:return
1460 data1,164,203,174,,80,192,36,240,29,192,39,240,1,96,202,208,1,96,142,,80
1470 data169,120,157,151,7,169,11,157,151,219,232,169,32,157,155,7,96,232,224,37
1480 data208,1,96,142,,80,169,120,157,155,7,169,11,157,155,219,202,169,32,157
1490 data151,7,96,,,,,