Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » breakin
breakin
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
| Filename: | breakin |
| Read OK: | ✔ |
| File size: | 0D83 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 REM BREAKIN
20 DN$="<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>"
30 SC=3072:NB=9:GOTO330
40 GOTO20
50 VOL8:SOUND2,1,5:RETURN
60 REM MOVE BAT
70 GETA$:IFA$=""THENA=64
80 IFA$="I"THENA=12
90 IFA$="P"THENA=36
100 IFA=64THEN170
110 PRINTLEFT$(DN$,BV)RIGHT$(DN$,BH);:FORI=1TOBS:PRINT" ";:NEXT
120 BH=BH+((A=12)-(A=36))*2
130 IFBH<8THENBH=8
140 IFBH>38-BSTHENBH=38-BS
150 PRINTLEFT$(DN$,BV)RIGHT$(DN$,BH);:FORI=1TOBS:PRINT"<black>🮃";:NEXT:
160 REM CHECK BOUNDARY HIT
170 BX=BX+DX:BY=BY+DY:FF=21
180 IFBX<9THENDX=-DX:GOSUB50:GOTO230
190 IFBX>36THENDX=-DX:GOSUB50:GOTO230
200 IFBY<1THENBY=1:DY=-DY:GOSUB50:GOTO230
210 IFBY>23THENBY=23:DY=-DY:GOSUB50
220 REM CHECK BAT/BRCK HIT & PRINT BALL
230 POKEBA,32:BA=SC+BY*40+BX
240 IFPEEK(BA)=120THENBA=B1:DY=-DY:FF=133:GOSUB50:GOTO60
250 IFPEEK(BA)=207THENDY=-DY:FF=35:GOSUB50:GS=GS+1:PRINT"<home><black><cursor down>"GS
260 POKEBA,81
270 REM CHECK FOR MISSED BALL
280 IFGM=1ANDBY>22ANDDY=-1THENNB=NB-1:PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><black>"NB
290 IFGM<>1ANDBY=12THENNB=NB-1:PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><black>"NB
300 IFNB<1THEN1090
310 IFINT(GS/100)-(GS/100)<>0THEN60
320 ONGMGOSUB830,900,990
330 REM TITLE SCREEN
340 COLOR4,3,6:COLOR0,3,6:PRINT"<clr><cursor down><cursor down><cursor down><cursor down><black> ●"
350 FORT=1TO100:NEXT
360 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><red> ●<black>●<purple>●"
370 FORT=1TO100:NEXT
380 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><red> ● <black>● <purple>●"
390 FORT=1TO100:NEXT
400 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><green> ●<red>● <black>● <purple>●<blue>●"
410 FORT=1TO100:NEXT
420 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><green> ● <red>● <black>● <purple>● <blue>●"
430 FORT=1TO100:NEXT
440 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> ●<green>● <red>● <black>● <purple>● <blue>●<dark gray>●"
450 FORT=1TO100:NEXT
460 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> ● <green>● <red>● <black>● <purple>● <blue>● <dark gray>●"
470 FORT=1TO200:NEXT:FF=35:GOSUB50
480 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>● <red>● <black>● <purple>● <blue>● <dark gray>●"
490 FORT=1TO200:NEXT:FF=21:GOSUB50
500 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>● <black>● <purple>● <blue>● <dark gray>●"
510 FORT=1TO200:NEXT:FF=35:GOSUB50
520 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>E <black>● <purple>● <blue>● <dark gray>●"
530 FORT=1TO200:NEXT:FF=21:GOSUB50
540 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>E <black>A <purple>● <blue>● <dark gray>●"
550 FORT=1TO200:NEXT:FF=35:GOSUB50
560 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>E <black>A <purple>K <blue>● <dark gray>●"
570 FORT=1TO200:NEXT:FF=21:GOSUB50
580 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>E <black>A <purple>K <blue>I <dark gray>●"
590 FORT=1TO200:NEXT:FF=35:GOSUB50
600 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><orange> B <green>R <red>E <black>A <purple>K <black>I <dark gray>N"
610 FORT=1TO200:NEXT:FF=21:PRINT"<cursor down><cursor down>"
620 GOSUB50
630 PRINT"<black> <reverse on>SELECT GAME NUMBER(1-3)":FORT=1TO90:NEXT
640 PRINT"<cursor up><rev off> SELECT GAME NUMBER(1-3)";:FORT=1TO90:NEXT
650 GETGM$:IFGM$<"1"THENPRINT:PRINT"<cursor up>";:GOTO620
660 IFGM$>"3"THENPRINT:PRINT"<cursor up>";:GOTO620
670 GM=VAL(GM$):PRINT" "GM:PRINT:FF=35
680 GOSUB50
690 PRINT"<black> <reverse on>SELECT BAT SIZE(2-3)":FORT=1TO90:NEXT
700 PRINT"<cursor up><rev off> SELECT BAT SIZE(2-3)";:FORT=1TO90:NEXT
710 GETBS$:IFBS$<"2"THENPRINT:PRINT"<cursor up>";:GOTO680
720 IFBS$>"3"THENPRINT:PRINT"<cursor up>";:GOTO680
730 BS=VAL(BS$):PRINT" "BS
740 NB=9:GS=100*(4-BS)
750 FORT=1TO500:NEXT
760 PRINT"<clr><black> <reverse on> BREAKIN "
770 FORI=1TO23:PRINT" <reverse on> <rev off> <reverse on> ":NEXT
780 PRINT"<black> <reverse on> <home>"
790 PRINT"<home>SCORE":PRINTGS:PRINT"<cursor down>HIGH":PRINT"SCORE":PRINTHS:PRINT"<cursor down>BALLS"
800 PRINT"LEFT":PRINTNB:PRINT"<cursor down>GAME":PRINT"NUMBER":PRINTGM
810 PRINT"<cursor down>BAT":PRINT"SIZE":PRINTBS
820 ONGMGOTO830,900,990
830 REM GAME 1
840 PRINT"<home><cursor down><cursor down><green>"
850 FORJ=1TO4:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><reverse on>🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽":NEXT
860 IFGS>0THENGS=GS+1
870 IFSW>0THEN60
880 SW=1:BV=21:BH=17:BY=15:BX=18:BA=SC+BY*40+BX:DX=-1:DY=-1
890 GOTO110
900 REM GAME2
910 PRINT"<home><cursor down><cursor down><red>"
920 FORJ=1TO3:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><reverse on>🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽":NEXT
930 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>"
940 FORJ=1TO3:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><reverse on>🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽🭽":NEXT
950 IFGS>0THENGS=GS+1
960 IFSW>0THEN60
970 SW=1:BV=13:BH=20:BY=10:BX=21:BA=SC+BY*40+BX:DX=1:DY=-1
980 GOTO110
990 REM GAME3
1000 PRINT"<home><cursor down><cursor down>"
1010 FORI=0TO8:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";:FORJ=9-ITO1STEP-1:PRINT"<reverse on><blue>🭽";:NEXT
1020 PRINTSPC(I*2+8);:FORJ=9-ITO1STEP-1:PRINT"🭽";:NEXT:PRINT:NEXT:PRINT
1030 FORI=0TO8:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";:FORJ=1TOI+1:PRINT"<reverse on><blue>🭽";:NEXT
1040 PRINTSPC(((8-I)*2)+8);:FORJ=1TOI+1:PRINT"🭽";:NEXT:PRINT:NEXT:PRINT"<home>"
1050 IFGS>0THENGS=GS+1
1060 IFSW>0THEN60
1070 SW=1:BV=13:BH=16:BY=9:BX=24:BA=SC+BY*40+BX:DX=1:DY=-1
1080 GOTO110
1090 REM END GAME
1100 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right> ANOTHER GAME(Y/N)"
1110 GETA$
1120 IFA$="N"THENPRINT"<clr>":END
1130 IFA$<>"Y"THEN1110
1140 IFGS>HSTHENHS=GS
1150 SW=0:GOTO600
� BREAKIN [ DN$�""