News Games Software Hardware Books Demos Graphics Source code Disks Fonts Ref. cards PC tools Links My projects Atari family Collection Guestbook Contact
Random software
Random game
Random demo
Back button image

Atari 8-bit Source code
Main Event! Main Event! Main Event! Main Event! Main Event!
Listing 1 
10 REM 
100 DIM NAME$(25),​NAME1$(25),​NAME2$(25),​SCORE(2),​NAME(2)
110 LET PLAYER1=0:​F=0:​SCORE(1)=0:​SCORE(2)=0:​NAME(0)=0:​NAME(1)=0:​NAME(2)=0
1000 PICTURE=20000:​SCREEN=1:​GOSUB 19000:​SETCOLOR 4,​0,​2
1010 POKE 752,​1:​? CHR$(125):​? "  ";:​FOR DELAY=1 TO 3000
1015 IF PEEK(53279)=5 THEN S=1
1017 NEXT DELAY
1020 ? CHR$(125):​? " << U.S.A. ALL-STR WRESTLING >>":​? " <<THE GREATEST WRESTLING EVENT>>";:​GOSUB 29000
1030 FOR DELAY=1 TO 3000:​NEXT DELAY
1040 GRAPHICS 0:​SETCOLOR 2,​0,​2:​POKE 752,​1
1050 ? "":​? " ":​?:​? "starring...":​?
1060 ?:​? " HULK":​?:​? " GOLDEN BOY":​?:​? " IRON SHIEK":​?:​? " SUPER FLY":​?:​? " JUNKYARD DOG":​?:​? " SUPER LEGS"
1070 POSITION 2,​22:​? "PLAYER 1:​ ":​? "";:​GOSUB 29000
1080 POKE 764,​255:​FOR D=1 TO 50:​NEXT D:​CHOICE=PEEK(764)
1110 IF CHOICE=31 THEN NAME$="HULK":​GOTO 1210
1120 IF CHOICE=30 THEN NAME$="GOLDEN BOY":​GOTO 1210
1130 IF CHOICE=26 THEN NAME$="IRON SHIEK":​GOTO 1210
1140 IF CHOICE=24 THEN NAME$="SUPER FLY":​GOTO 1210
1150 IF CHOICE=29 THEN NAME$="JUNKYARD DOG":​GOTO 1210
1160 IF CHOICE=27 THEN NAME$="SUPER LEGS":​GOTO 1210
1200 GOTO 1080
1210 IF PLAYER1=0 THEN PLAYER1=CHOICE:​NAME1$=NAME$
1220 IF F=0 THEN POSITION 2,​22:​? "PLAYER 2:​ ":​? "";
1230 IF F=0 THEN F=1:​GOSUB 29000:​FOR D=1 TO 500:​NEXT D:​GOTO 1080
1240 IF CHOICE=PLAYER1 THEN GOTO 1080
1250 LET NAME2$=NAME$:​GOSUB 29000
1260 POSITION 2,​22:​? " ":​? " ";
1270 FOR D=1 TO 500:​NEXT D:​PICTURE=20000:​SCREEN=1:​GOSUB 19105:​SETCOLOR 4,​0,​2
1280 POKE 752,​1:​? "":​? "IN THE MAIN EVENT TONIGHT WE HAVE":​? NAME1$;" AND ";NAME2$;"!";:​GOSUB 27800
1290 ? "BEFORE YOU BEGIN,​ YOU  MAKE A FEW PREPARATIONS TO HAVE A SAFE AND AN "
1300 ? "ENJOYABLE WRESTLING MATCH!":​GOSUB 29000:​GOSUB 27800
1310 GOSUB 28000:​GOSUB 27000:​GOTO 24000
1320 SCREEN=2:​GOSUB 19105
1350 ? "PRESS START WHEN READY TO BEGIN MATCH":​? ""
1355 ? " ";
1360 IF PEEK(53279)<>6 THEN 1360
1380 GOSUB 29000:​GOSUB 25000:​GOSUB 26000
1390 ? "THE WRESTLING MATCH HAS STARTED!"
1400 ? " "
1410 ? "";:​GOSUB 25500:​GOSUB 26500
1420 ? "":​? "":​GOSUB 27800
1500 ? "":​? "":​GOSUB 29000:​GOSUB 27800
1510 ? "[] WIN OR [] PLACE FOR ";NAME1$
1520 ? "[] WIN OR [] PLACE FOR ";NAME2$:​? "[] DRAW ";NAME1$;" & ";NAME2$:​? "";
1550 POKE 764,​255:​FOR D=1 TO 50:​NEXT D:​CHOICE=PEEK(764)
1560 IF CHOICE=31 THEN SCORE(1)=SCORE(1)+20:​GOTO 1700
1570 IF CHOICE=30 THEN SCORE(1)=SCORE(1)+10:​GOTO 1700
1580 IF CHOICE=26 THEN SCORE(2)=SCORE(2)+20:​GOTO 1700
1590 IF CHOICE=24 THEN SCORE(2)=SCORE(2)+10:​GOTO 1700
1600 IF CHOICE=29 THEN 1700
1610 GOTO 1550
1700 SCREEN=2:​PICTURE=21000:​GOSUB 19105
1705 ? "":​? ":​":​? SCORE(1);" POINTS FOR ";NAME1$:​? SCORE(2);" POINTS FOR ";NAME2$;
1710 GOSUB 29000:​GOSUB 27800
1712 IF SCORE(1)>SCORE(2) THEN ? "";NAME1$;" IS BEATING":​? "THE PANTS OFF ";NAME2$;"!"
1713 IF SCORE(2)>SCORE(1) THEN ? "";NAME2$;" IS BEATING":​? "THE PANTS OFF ";NAME1$;"!"
1714 IF SCORE(2)=SCORE(1) THEN ? "";NAME2$;" AND ";NAME1$:​? "HAVE FOUGHT EACH OTHER TO A DRAW!"
1715 IF SCORE(1)<>SCORE(2) THEN GOSUB 23000
1716 IF SCORE(1)=SCORE(2) THEN GOSUB 23500
1717 GOSUB 29000:​GOSUB 27800
1720 ? "":​? "PRESS  TO CONTINUE GAME or":​? "PRESS  TO END GAME"
1730 IF PEEK(53279)=3 THEN GOSUB 22000:​REM END ROUTINE
1740 IF PEEK(53279)=6 THEN GOTO 24000:​REM CONT GAME
1750 GOTO 1730
1800 END
19000 REM DRAWPIC
19100 DIM D$(3150),​C(4)
19105 IF SCREEN=1 THEN GRAPHICS 7:​SCREEN=0:​PX=4:​LC=40:​X=0:​Y=2:​GOTO 19120
19106 IF SCREEN=2 THEN SCREEN=0:​PX=4:​LC=40:​X=51:​Y=13:​GOTO 19120
19110 PX=4:​LC=40:​X=0:​Y=2
19120 GOSUB 19170
19130 GOSUB PICTURE
19140 FOR I=0 TO 4:​POKE 708+I,​C(I):​NEXT I
19150 GOSUB 19200
19160 SETCOLOR 2,​3,​2:​RETURN
19170 DL=PEEK(560)+PEEK(561)*256:​MEM=PEEK(106)*256:​DAT=PEEK(DL+4)+256*PEEK(DL+5)
19180 PICT=ADR("hhhhhhhhhhhee`")
19190 STRT=DAT+Y*LC+INT(X/PX):​RETURN
19200 GOSUB 19190:​A=USR(PICT,​STRT,​ADR(D$),​BYT,​LIN,​LC):​RETURN
20000 D$(1)="UUPUUUUUUUT"
20001 D$(101)="UUUUUUUUUUUU@UUUT"
20002 D$(201)="UUUUUPUUUUU@UUUUUPUUUUUPUUUUUT?"
20003 D$(301)="UUUUUTUUUUZT?UUUUUT?P?UUUUUUU"
20004 D$(401)="UUUU?UUUUUUU5UUUZ?UYUUUUUUUVj?"
20005 D$(501)="jUUUU#UU^?0RUUUUUUZ?jUUUU"
20006 D$(601)=" UUj?@@@@UUUUV?P@*UUTk?DTD@"
20007 D$(701)="00UUT[A@UUPUZ@D@@@UU@"
20008 D$(801)="U:​UUY*0*UT*j"
20009 D$(901)="`UUUUP?T@ET@EU@UU"
20010 D$(1001)="?P@ZT@??@@D@jZU@:​?A"
20011 D$(1101)="@@??T@T@@P???"
20012 D$(1201)="??XUU??T???"
20013 D$(1301)="UU????"
20014 D$(1401)="????"
20015 D$(1501)="U?E`??TV"
20016 D$(1601)="?Ej?U"
20017 D$(1701)="Z**"
20018 D$(1801)="+*"
20019 D$(1901)="***"
20020 D$(2001)="*?*?"
20021 D$(2101)="*?**"
20022 D$(2201)="**"
20023 D$(2301)="****j"
20024 D$(2401)="**"
20025 D$(2501)="*J**Z?**UUUUP"
20026 D$(2601)="*WT.*TQUUUT "
20027 D$(2701)="*>TUT/<*TTUT+/UETUT"
20028 D$(2801)="?:​UUTUT?*UUQUT?"
20029 D$(2901)="UUQUT*UEUT:​UP"
20030 D$(3001)="UUUP*UUUU@?"
20031 D$(3101)="UUUU*UUUT"
20032 D$(2676,​2676)=CHR$(34)
20033 BYT=40:​LIN=79:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM WREST0
20200 D$(1)="UUPUUUUUUUT"
20201 D$(101)="UUUUUUUUUUUU@UUUT"
20202 D$(201)="UUUUUPUUUUU@UUUUUPUUUUUPUUUUUT?"
20203 D$(301)="UUUUUTUUUUZT?UUUUUT?P?UUUUUUU"
20204 D$(401)="UUUU?UUUUUUU5UUUZ?UYUUUUUUUVj?"
20205 D$(501)="jUUUU#UU^?0RUUUUUUZ?jUUUU"
20206 D$(601)=" UUj?@@@@UUUUV?P@*UUTk?DTD@"
20207 D$(701)="00UUT[A@UUPUZ@D@@@UU@"
20208 D$(801)="U:​UUY*0*UT*j"
20209 D$(901)="`UUUUP?T@ET@EU@UU"
20210 D$(1001)="?P@ZT@*?@@D@jZU@?A"
20211 D$(1101)="@j@?T@T@@P*?"
20212 D$(1201)="?X?T*?"
20213 D$(1301)="??"
20214 D$(1401)="???"
20215 D$(1501)="U?:​E`?TV"
20216 D$(1601)="?Ej?U"
20217 D$(1701)="Z**"
20218 D$(1801)="+*"
20219 D$(1901)="*****"
20220 D$(2001)="**"
20221 D$(2101)="****"
20222 D$(2201)="**"
20223 D$(2301)="*?**@*j"
20224 D$(2401)="UUP*UZ*U"
20225 D$(2501)="*V***"
20226 D$(2601)="*.** j"
20227 D$(2701)="*/*|+?"
20228 D$(2801)="+|*"
20229 D$(2901)="*:​"
20230 D$(3001)="*"
20231 D$(3101)="*?"
20232 D$(2676,​2676)=CHR$(34)
20233 BYT=40:​LIN=79:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM WREST2
20300 D$(1)="UPUPZZU"
20301 D$(101)="VUU@*@@*@@"
20302 D$(201)="*****?"
20303 D$(301)="("
20304 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM 1/2 NELSON
20400 D$(1)="U@UPUT"
20401 D$(101)="UUT*ZTT*"
20402 D$(201)="@.P:​TTTTP"
20403 D$(301)="/0"
20404 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM BODY PIN
20500 D$(1)="****?**"
20501 D$(101)="**:​."
20502 D$(201)="UUj8UUUZUUUVUUUWUUUWUUUVUUUVU"
20503 D$(301)="UUVUUUZUUjUU"
20504 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM CONDOR PIN
20600 D$(1)="*U"
20601 D$(101)="UZUjU^*zz"
20602 D$(201)="@.***U*U+>*U*Uj"
20603 D$(301)="UUjUkTP"
20604 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM JACKNIFE
20700 D$(1)="*"
20701 D$(101)="UUkUUZUUUVU"
20702 D$(201)="UUUUUUUUUUUUUUUUUUUUUUVUUUVUU"
20703 D$(301)="[UUjUU"
20704 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM HEAD SCISSORS
20800 D$(1)="***"
20801 D$(101)="**U@?P("
20802 D$(201)="U@"
20803 D$(301)="**"
20804 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM SHOULDERPIN
20900 D$(1)="UTTUTTZUhj"
20901 D$(101)="UjUjj*jJ*"
20902 D$(201)="+((* (("
20903 D$(301)=""
20904 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM BODY SCISSORS
21000 D$(1)="@@@P@DTD@"
21001 D$(101)="A@@D@@`T@ET@EU@"
21002 D$(201)="P@Z@@D@jA@T@T@@PXT"
21003 D$(301)=""
21004 BYT=14:​LIN=27:​GR=7:​C(0)=250:​C(1)=54:​C(2)=242:​C(3)=70:​C(4)=0:​RETURN:​REM TVTITLE
22000 REM 
22005 IF SCORE(1)=SCORE(2) THEN ? "";NAME1$;" AND ";NAME2$:​? "HAVE TIED THE MATCH ";SCORE(1);"-";SCORE(2);"!";
22006 IF SCORE(1)=SCORE(2) THEN FOR X=1 TO 4:​GOSUB 29000:​NEXT X:​GOSUB 27800:​GOTO 22040
22010 IF SCORE(1)>SCORE(2) THEN ? "";NAME1$;" HAS WON BY ";SCORE(1)-SCORE(2);" POINTS!"
22020 IF SCORE(2)>SCORE(1) THEN ? "";NAME2$;" HAS WON BY ";SCORE(2)-SCORE(1);" POINTS!"
22030 ? "CONGRATULATIONS THE BEST MAN HAS WON!";:​FOR X=1 TO 4:​GOSUB 29000:​NEXT X:​GOSUB 27800
22040 ? "":​? " THE GAME HAS ENDED!";
22050 GOTO 22050
23000 REM 
23010 SAYING=INT(RND(0)*5+1):​IF SAYING>5 OR SAYING<0 THEN 23010
23015 ON SAYING GOTO 23020,​23030,​23040,​23050,​23060
23020 ? "CHOOSE THE HEAD SCISSORS TO GET EVEN. ITS  TO BREAK IF YOU KNOW HOW!";:​RETURN
23030 ? "AGAINST A NOVICE LIKE THAT,​ HOW COULD ANYONE LOSE?";:​RETURN
23040 ? "LOOK OUT THOUGH,​ YOU'VE GOT HIM MAD!;":​RETURN
23050 ? "WHY IS IT THAT THE BEST MAN ALWAYS SEEMS TO WIN ??";:​RETURN
23060 ? "ARE YOU SURE IT IS A FAIR FIGHT ??";:​RETURN
23500 REM 2
23510 SAYING=INT(RND(0)*5+1):​IF SAYING>5 OR SAYING<0 THEN 23510
23515 ON SAYING GOTO 23520,​23530,​23540,​23550,​23560
23520 ? "TRY HARDER GUYS! YOU HAVE NOT EVEN WORKED UP A GOOD SWEAT YET!";:​RETURN
23530 ? "YOU TWO SEEM EVENLY MATCHED. ISN'T ONE OF YOU ABLE TO WIN?";:​RETURN
23540 ? "COME ON GUYS. TRY SOME MORE DIFFICULT HOLDS! !";:​RETURN
23550 ? "CHOOSE THE  TO BREAK THE TIE. ITS REAL  TO GET OUT OF!";:​RETURN
23560 ? "GET WITH IT GUYS,​ THE BEAST IS GOING TO RIP THE LOSER APART!";:​RETURN
24000 REM 
24001 IF F=0 THEN F=1:​GOTO 24005
24003 ? "";NAME1$;":​  MUST PICK THE":​? "STARTING HOLD WHICH ";NAME2$:​? "WILL USE TO SECURE ...";
24004 F=0:​GOSUB 29000:​GOSUB 27800:​GOTO 24010
24005 ? "";NAME2$;":​  MUST PICK THE":​? "STARTING HOLD WHICH ";NAME1$:​? "WILL USE TO SECURE ...";
24007 GOSUB 29000:​GOSUB 27800
24010 ? "[] FULL NELSON [] FULL BODY PIN [] CONDOR PIN [] JACKNIFE PIN "
24020 ? "[] HEAD SCISSORS [] SHOULDER PIN [] BODY SCISSORS ";
24040 FOR PIC=1 TO 7
24041 IF PIC=1 THEN PICTURE=20300
24042 IF PIC=2 THEN PICTURE=20400
24043 IF PIC=3 THEN PICTURE=20500
24044 IF PIC=4 THEN PICTURE=20600
24045 IF PIC=5 THEN PICTURE=20700
24046 IF PIC=6 THEN PICTURE=20800
24047 IF PIC=7 THEN PICTURE=20900
24070 SCREEN=2:​GOSUB 19105:​GOSUB 24500
24080 NEXT PIC:​GOTO 24040
24090 GOTO 1320
24500 POKE 764,​255:​FOR D=1 TO 50:​NEXT D:​CHOICE=PEEK(764)
24510 IF CHOICE=31 THEN PICTURE=20300:​GOTO 24610:​REM 1/2 NELSON
24520 IF CHOICE=30 THEN PICTURE=20400:​GOTO 24610:​REM FULL BODY PIN
24530 IF CHOICE=26 THEN PICTURE=20500:​GOTO 24610:​REM CONDOR PIN
24540 IF CHOICE=24 THEN PICTURE=20600:​GOTO 24610:​REM JACKNIFE PIN
24550 IF CHOICE=29 THEN PICTURE=20700:​GOTO 24610:​REM HEAD SCISSORS
24560 IF CHOICE=27 THEN PICTURE=20800:​GOTO 24610:​REM SHOULDER PIN
24570 IF CHOICE=51 THEN PICTURE=20900:​GOTO 24610:​REM BODY SCISSORS
24600 RETURN
24610 POP:​GOTO 24090
25000 REM  30
25010 FOR DELAY=1 TO 2000:​NEXT DELAY:​RETURN
25500 REM  3
25510 FOR DELAY=1 TO 12000:​NEXT DELAY:​RETURN
26000 REM 
26010 SOUND 0,​20,​130,​10:​FOR DELAY=1 TO 130:​NEXT DELAY:​SOUND 0,​0,​0,​0:​RETURN
26500 REM 
26510 SOUND 0,​60,​130,​10:​FOR DELAY=1 TO 140:​NEXT DELAY:​SOUND 0,​0,​0,​0:​RETURN
27000 REM 
27005 ? "":​? " ":​GOSUB 29000:​GOSUB 27800
27010 ? " THE COMPUTER [HULK ATARI] WILL ACT AS THE MATCH REFEREE AND TIMER.":​GOSUB 29000:​GOSUB 27800
27020 ? " AT YOUR TURN,​  WILL CHOOSE THE STARTING HOLD FOR YOUR OPPONENT TO "
27025 ? " PLACE ON  AT THE START OF MATCH.";:​GOSUB 29000:​GOSUB 27800
27030 ? " AFTER PRESSING  YOU WILL HAVE  TO POSITION YOURSELVES"
27035 ? " IN THE CHOSEN STARTING HOLD.":​GOSUB 29000:​GOSUB 27800
27040 ? " THE STARTING BUZZER WILL SOUND...":​GOSUB 26000:​FOR DELAY=1 TO 50:​NEXT DELAY
27045 ? " TO SIGNAL THE START OF THE MATCH.":​GOSUB 29000:​GOSUB 27800
27050 ? " AT THE END OF  MINUTES THE END BUZZER WILL SOUND...";:​GOSUB 26500
27055 ? "TO SIGNAL THE":​? " END OF THE MATCH.";:​GOSUB 29000:​GOSUB 27800
27060 ? " WHOEVER HAS  OF HIS OPPONENT'S SHOULDERS PINNED AT THE END BUZZER"
27065 ? " WILL  THE MATCH,​ GAINING TWENTY [] POINTS.";:​GOSUB 29000:​GOSUB 27800
27070 ? " IF NEITHER OPPONENT'S SHOULDERS ARE PINNED AT THE END BUZZER,​ THE MATCH"
27075 ? " IS DECLARED TO BE A  WITH NO [] POINTS AWARDED.";:​GOSUB 29000:​GOSUB 27800
27077 ? " WHOEVER HAS HIS OPPONENT SECURED IN THE CHOSEN STARTING HOLD AT THE"
27078 ? " END BUZZER,​ WILL EARN A ,​ AND OBTAIN TEN [] POINTS.";:​GOSUB 29000:​GOSUB 27800
27080 ? " FOR SAFETY,​  USE THROWING,​ FLIPPING,​ OR STANDING HOLDS!"
27082 ? "  PINCH,​ SLAP,​ HIT,​ OR BITE!";:​GOSUB 29000:​GOSUB 27800
27085 ? "":​? "YOU ARE NOW READY TO BEGIN THE MATCH. PRESS  TO BEGIN or":​? "PRESS  TO REVIEW RULES";
27088 GOSUB 29000:​GOSUB 29000:​GOSUB 29000
27090 IF PEEK(53279)=6 THEN RETURN
27100 IF PEEK(53279)=5 THEN GOTO 27000
27110 GOTO 27090
27800 POKE 77,​0:​FOR DELAY=1 TO 700:​NEXT DELAY:​RETURN
28000 REM 
28010 ? " MOVE  FURNITURE AWAY FROM THE FIGHT AREA FOR SAFETY REASONS.":​?:​GOSUB 29000:​GOSUB 28800
28020 ? " PLACE A PLASTIC SHEET ON THE FLOOR TO DEFINE THE RING AREA AND ALSO"
28025 ? " TO  YOUR SKIN FROM RUG BURN.":​GOSUB 29000:​GOSUB 28800
28030 ? " DIM OR TURN OFF  ROOM LIGHTS SO THEY WON'T SHINE UNCOMFORTABLY IN"
28035 ? " YOUR EYES AND DISTRACT YOU.":​GOSUB 29000:​FOR X=1 TO 250:​NEXT X:​SETCOLOR 4,​0,​0:​GOSUB 28800
28040 ? " REMOVE  WATCHES,​ RINGS,​ BUCKLES,​ AND SHARP OBJECTS SO THAT YOU WON'T"
28045 ? " INJURE OR SCRATCH THE EYES & SKIN.":​GOSUB 29000:​GOSUB 28800
28046 ? "   WEAR YOUR STREET CLOTHING! NOT ONLY MIGHT IT RIP,​ IT COULD"
28047 ? " SCRAPE THE EYES AND ALSO LIMIT YOUR MOVEMENT DURING THE FIGHT.";:​GOSUB 29000:​FOR X=1 TO 700:​NEXT X
28050 ? " REMOVE STREET CLOTHING AND WEAR TIGHT-FITTING TRUNKS OR SHORTS."
28052 ? " A T-SHIRT IS OPTIONAL.":​GOSUB 29000:​FOR X=1 TO 250:​NEXT X
28055 PICTURE=20200:​GOSUB 19105
28059 GOSUB 28800
28060 IF S=1 THEN REM
28065 IF S=1 THEN REM
28066 ? " BEFORE SUBJECTING YOUR BODY TO THE INTENSE ACTIVITY,​ YOU SHOULD DO A"
28067 ? " WARM-UP TO PREVENT MUSCLE INJURY.":​GOSUB 29000:​GOSUB 28800
28100 ? "":​? "WHEN ALL PREPARATIONS ARE COMPLETE,​ THEN PRESS  FOR MATCH RULES."
28110 FOR X=1 TO 100:​NEXT X:​IF PEEK(53279)<>6 THEN 28110
28120 RETURN
28800 REM 
28810 ? "";
28820 IF PEEK(53279)<>6 THEN 28820
28830 FOR DELAY=1 TO 200:​NEXT DELAY:​RETURN
29000 REM 
29010 POKE 77,​0:​FOR I=20 TO 0 STEP -1:​SOUND 0,​0,​2,​I:​NEXT I:​RETURN
References
https://ftp.pigwa.net/stuff/collections/holmes%20cd/Holmes%203/BELLCOM/index.html
https://forums.atariage.com/topic/125131-bellcom-pd-catalog-disk/
https://archive.org/details/BELLCOMPublicDomainSoftwareAtari8Bit
Listing downloads
Downloads

Copyright holder
This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!