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$�""