RIAG Crate 005: Volume 097 IAC Disk #36 NIAUG's Arcade Games
Notes
Disk info for Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk:
File Name: riag_005_Volume_097_-_IAC_Disk_36_-_NIAUGs_Arcade_Games/Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk
Disk Name: DISK VOLUME #69
Physical Size (bytes): 143360
Free Space (bytes): 8192
Used Space (bytes): 135168
Physical Size (KB): 140
Free Space (KB): 8
Used Space (KB): 132
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 32
Used Sectors: 528
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk:
riag_005_Volume_097_-_IAC_Disk_36_-_NIAUGs_Arcade_Games/Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk DISK VOLUME #69
* T 000 ALBERT'S ARCADE GAMES
* T 000 FROM NORTHERN ILLINOIS
* T 000 APPLE USER GROUP
* A 005 HELLO
* A 011 BOOT
* B 002 RUNPACK
* B 002 LOADER
* B 002 PIRATE
* B 003 M.PIRATE
* B 020 PIRATE.PAK
* B 034 LOGO.PIC
* B 004 SPIRAL2
* T 000
* T 000 GAMES :
* B 127 BEACH-HEAD
* B 127 WESTWARD HO!
* B 127 BEE CRUNCH
* T 000
* T 000 FOR INFORMATION ON THIS
* T 000 USER GROUP, CONTACT:
* T 000 NIAUG, 1271 DUNDEE ROAD
* T 000 BUFFALO GROVE, IL 60067
DOS 3.3 format; 8,192 bytes free; 135,168 bytes used.
Text found in Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk/BOOT.bas:
5 LOMEM: 16384
10 D$ = CHR$(4)
20 PRINT D$;"BLOAD RUNPACK"
30 PRINT D$;"BLOAD PIRATE,A768"
31 HGR : PRINT D$;"BLOADPIRATE.PAK": POKE -16302,0: CALL 8048
32 PRINT D$;"BLOAD M.PIRATE,A24576"
34 POKE 30,0: POKE 31,96: CALL 768
40 PRINT D$;"BLOAD SPIRAL2": PRINT D$;"BLOAD LOGO.PIC,A$4000": POKE 27802,30: CALL 27648
45 PRINT D$;"BRUN LOADER"
50 HOME : POKE -16301,0
55 VTAB 23: HTAB 8: FLASH : PRINT "WHICH NUMBER DO YOU WANT?": NORMAL
60 A$ = " 1=BEACH-HEAD 2=WESTWARD HO! 3=BEE CRUNCH"
70 C = 21:D = 70
80 FOR X = 1 TO D
90 VTAB C
100 V$ = MID$ (V$,2) + LEFT$(V$,1):A$ = MID$ (A$,2) + LEFT$(A$,1)
110 A = PEEK( -16336)
120 PRINT MID$ (V$,1)" " LEFT$(A$,38)" " MID$ (V$,1)
130 A = PEEK( -16336)
140 SS = PEEK( -16384): IF SS -128 = 49 THEN 1000
150 IF SS -128 = 50 THEN 2000
160 IF SS -128 = 51 THEN 3000
170 NEXT X: GOTO 70
1000 HOME : TEXT : POKE -16368,0: SPEED= 120
1100 INVERSE : VTAB 1: HTAB 16: PRINT "BEACH-HEAD": NORMAL
1200 PRINT : PRINT "YOU ARE ALL ALONE IN YOUR TANK, TRYING TO PROTECT THE BEACH AGAINST THE LANDINGOF ENEMY TROOPS."
1250 PRINT : PRINT "ALWAYS WATCH OUT FOR THE SNIPERS THAT ARE HIDDEN ON THE BEACH."
1260 PRINT : PRINT "USE PADDLE AND GAME BUTTON (0) FOR YOUR SURVIVAL."
1270 PRINT : PRINT "SEMPER FIDELIS"
1499 GOSUB 3599
1500 PRINT CHR$(4);"BRUN BEACH-HEAD"
2000 HOME : TEXT : POKE -16368,0: SPEED= 120
2100 INVERSE : VTAB 1: HTAB 15: PRINT "WESTWARD HO!": NORMAL
2200 PRINT : PRINT "TRY TO PROTECT YOUR WAGON TRAIN WITH THEHELP OF ONLY A JOYSTICK AND NINE LIVES."
2250 PRINT : PRINT "BAD NEWS: THE INDIANS ARE UP TO THEIR USUAL OLD TRICKS. THEY EVEN TRAINED THEIR HORSES TO FIRE ARROWS AT YOU."
2300 PRINT : PRINT "GOOD NEWS: YOU'RE SUCH A GOOD SHOT THAT YOU CAN SHOOT THE ARROWS OUT OF MIDAIR."
2350 PRINT : PRINT "USE BOTH GAME BUTTONS TO FIRE IN EITHER DIRECTION."
2499 GOSUB 3599
2500 PRINT CHR$(4);"BRUN WESTWARD HO!"
3000 HOME : TEXT : POKE -16368,0: SPEED= 120
3100 INVERSE : VTAB 1: HTAB 16: PRINT "BEE CRUNCH": NORMAL
3200 PRINT : PRINT "A TWO PLAYER GAME WITH EACH PLAYER CONTROLLING ONE OF THE COLORED ARROWS."
3225 PRINT "(EACH PLAYER USES A GAME PADDLE)"
3250 PRINT : PRINT "THE OBJECT IS TO GAIN THE MOST POINTS BY KILLING BEES AND THE OTHER PLAYER."
3270 PRINT : PRINT "YOU WILL LOSE POINTS IF YOU DESTROY:"
3280 PRINT : PRINT "1-THE FRIENDLY SNAKE": PRINT "2-THE LOVABLE LITTLE FROG": PRINT "3-THE ADORABLE BEE HIVES"
3499 GOSUB 3599
3500 PRINT CHR$(4);"BRUN BEE CRUNCH"
3599 VTAB 16: HTAB 11: INVERSE : SPEED= 255
3600 PRINT "GENERAL INSTRUCTIONS": NORMAL : PRINT
3610 PRINT "(ESC) TO PAUSE/THEN ANY KEY TO CONTINUE"
3620 PRINT "(SPACE) TO RESTART AND HOLD HI-SCORE"
3630 PRINT "(RESET) TO RESTART AND ZERO HI-SCORE"
3640 PRINT "(RE-BOOT DISK) TO SELECT ANOTHER GAME"
4000 VTAB 23: HTAB 9: FLASH : PRINT "(PRESS ANY KEY TO START)": NORMAL
4100 IF PEEK( -16384) >127 THEN HOME : VTAB 12: HTAB 15: FLASH : PRINT "GAME LOADING": NORMAL : VTAB 18: HTAB 2: PRINT "(MADE WITH BR0DERBUNDS' ARCADE MACHINE)": RETURN
4200 GOTO 4100
Text found in Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk/HELLO.bas:
10 GOTO 40
20 IF PEEK( -16384) <128 THEN 20
30 RETURN
40 TEXT
50 REM ************************** * HELLO PROGRAM FOR * * LIBRARY DISKS. * * SET THE FOLLOWING *
60 REM * STRINGS FOR * * CORRECT DISK. * **************************
70 PRINT "NOMONI,C,O"
80 TITLE$ = "NORTHERN ILLINOIS APPLE USERS GROUP"
90 LINE2$ = "PROGRAM LIBRARY"
100 VOLUME$ = "DOS 3.3"
110 DAY$ = "ALBERTS' ARCADE - 1983 PROGRAM CONTEST"
120 CALL -936
130 VTAB 3:P$ = TITLE$: GOSUB 230
140 VTAB 5:P$ = LINE2$: GOSUB 230
150 VTAB 7:P$ = DAY$: GOSUB 230
160 VTAB 9:P$ = VOLUME$: GOSUB 230
170 VTAB 13: HTAB 6: PRINT "THIS DISK WAS DONATED TO THE": PRINT : POKE 50,63: HTAB 8: PRINT "INTERNATIONAL APPLE CORE": POKE 50,255
180 PRINT : PRINT " FOR DISTRIBUTION TO ITS MEMBER GROUPS"
190 VTAB 21:P$ = "PRESS ANY KEY": GOSUB 230
200 POKE -16368,0
210 GOSUB 20: POKE -16368,0: PRINT : PRINT
220 GOTO 1000
230 REM ************************ * PRINT P$ CENTERED ON * * LINE * ************************
240 IF LEN(P$) >39 THEN PRINT P$: GOTO 260
250 HTAB (40 - LEN(P$))/2: PRINT P$
260 RETURN
1000 PRINT CHR$(4);"RUN BOOT"
Text found in Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games.dsk/RUNPACK.txt:
![[screenshot]](/serve/riag_005_Volume_097_-_IAC_Disk_36_-_NIAUGs_Arcade_Games/Volume_097_IAC_Disk_36_NIAUGs_Arcade_Games_screenshot.gif)
