Program list:
Code:
0 REM Mad Balloon
1 REM
2 REM Written by K.Nakajima
3 REM 1982.20.July
10 CLEAR50,&HED20
13 INPUT"Do you have a Joy stick [Yes=1 or No=0]";D
14 IFD>1THEND=0
18 OUT&H93,2:FORA=&HDE20TO&HDFF3:READB:POKEA,B:NEXT:OUT&H93,3
19 POKE&HDE7A,D
20 POKE&HFAEB,&H20:POKE&HFAEC,&HDE
30 SCREEN 3,2,2:CONSOLE0,16,,0:COLOR 2,3,1:CLS:A=2^INT(RND(1)*3)
40 LINE(32,0)-(175,15),A:LINE-(175,0),A:PAINT(160,8),2^INT(RND(1)*3),A
56 A=2^INT(RND(1)*3):LINE(64,8)-(103,47),A:LINE-(127,16),A
80 LINE-(64,8),A:PAINT(95,27),2^INT(RND(1)*3),A:A=2^INT(RND(1)*3)
100 LINE(104,103)-(15,32),A:LINE-(0,32),A:LINE-(104,103),A
130 LINE-(143,64),A:LINE-(135,103)A:LINE-(104,103),A
160 PAINT(16,37),2^INT(RND(1)*3),A:PAINT(128,96),2^INT(RND(1)*3),A
180 LINE(152,48)-(207,55),2^INT(RND(1)*3),BF
190 LINE(216,48)-(223,111),2^INT(RND(1)*3),BF
200 LINE(176,88)-(183,119),2^INT(RND(1)*3),BF
210 LINE(32,104)-(41,111),2^INT(RND(1)*3),BF
220 LINE(32,128)-(95,135),2^INT(RND(1)*3),BF
230 LINE(112,136)-(135,143),2^INT(RND(1)*3),BF:A=2^INT(RND(1)*3)
240 LINE(255,136)-(144,136),A:LINE-(255,159),A
260 PAINT(240,155),2^INT(RND(1)*3),A:A=2^INT(RND(1)*3)
270 LINE(144,191)-(144,176),A:LINE-(223-191),A
290 PRINT(152,184),2^INT(RND(1)*3),A:LOCATE11,0:PAINT "_MAD_"
310 LOCATE0,15:PRINT "_BALLOON_";:SOUND8,16:SOUND11,106:SOUND12,13
316 SOUND13,14:IFUSR(6000)GOTO 339
330 SOUND6,10:SOUND7,&HEF:SOUND9,31:SOUND12,10:SOUND13,0
331 IFPEEK(&HDED9)+PEEK(&HDEDA)*256<>1GOTO 340
333 LINE(80,48)-(184,58),3,BF:LOCATE4,4:PRINT "TIME UP!":GOTO 340
339 PLAY"v15o3cgo4ceo6c"
340 LINE(48,72)-(191,82),3,BF:LINE(64,96)-(218,106),3,BF
360 LINE(128,120)-(255,130),3,BF:LOCATE3,6:PRINT "GAME OVER
380 PRINT:PRINT" TRY AGAIN?
390 PRINT:PRINT " [Y or N]
400 IFINKEY$<>""GOTO 400
410 I$=INKEY$:IFI$="N"THENSCREEN,1,1:CONSOLE,,1,1:PRINTCHR$(7):END
420 IFI$="Y"THENPRINTCHR$(7);CHR$(7):GOTO 30
430 GOTO 410
48672 DATA 205, 65, 7, 237, 83, 207, 222, 33, 0, 2
48682 DATA 34, 217, 222, 33, 191, 223, 78, 44, 94, 44
48692 DATA 86, 229, 235, 17, 39, 223, 205, 249, 222, 225
48702 DATA 13, 32, 240, 33, 29, 247, 34, 72, 222, 33
48712 DATA 0, 0, 17, 1, 226, 231, 200, 151, 92, 203
48722 DATA 35, 203, 35, 203, 35, 205, 197, 27, 229, 17
48732 DATA 175, 223, 213, 205, 244, 222, 45, 209, 213, 205
48742 DATA 244, 222, 209, 62, 0, 245, 254, 3, 32, 2
48752 DATA 62, 1, 133, 214, 2, 111, 205, 244, 222, 62
48762 DATA 0, 205, 57, 34, 205, 65, 7, 225, 227, 123
48772 DATA 254, 1, 32, 1, 37, 254, 3, 32, 1, 44
48782 DATA 254, 5, 32, 1, 36, 254, 7, 32, 1, 45
48792 DATA 241, 8, 34, 72, 222, 253, 33, 0, 0, 17
48802 DATA 47, 223, 205, 244, 222, 253, 33, 0, 0, 17
48812 DATA 106, 222, 254, 3, 32, 2, 62, 1, 79, 135
48822 DATA 135, 135, 135, 245, 131, 95, 45, 205, 244, 222
48832 DATA 17, 111, 223, 241, 131, 95, 45, 205, 244, 222
48842 DATA 111, 205, 244, 222, 33, 0, 0, 17, 0, 0
48852 DATA 43, 231, 32, 249, 33, 0, 0, 43, 231, 40
48862 DATA 9, 34, 217, 222, 27, 253, 25, 210, 71, 222
48872 DATA 33, 0, 0, 205, 155, 57, 42, 72, 222, 17
48882 DATA 159, 223, 205, 249, 222, 44, 37, 62, 119, 50
48892 DATA 28, 223, 124, 254, 226, 56, 9, 254, 250, 48
48902 DATA 5, 125, 230, 224, 40, 6, 151, 50, 28, 223
48912 DATA 253, 35, 6, 8, 126, 254, 170, 40, 2, 253
48922 DATA 35, 26, 119, 213, 17, 32, 0, 25, 209, 28
48932 DATA 16, 238, 201, 174, 190, 183, 223, 247, 222, 190
48942 DATA 186, 170, 165, 149, 85, 85, 85, 149, 165, 170
48952 DATA 106, 90, 86, 86, 86, 90, 106, 169, 169, 165
48962 DATA 166, 150, 154, 90, 106, 170, 170, 170, 170, 170
48972 DATA 170, 170, 170, 169, 169, 169, 169, 169, 169, 169
48982 DATA 169, 170, 170, 170, 170, 170, 170, 170, 170, 169
48992 DATA 169, 170, 170, 170, 170, 170, 170, 170, 106, 90
49002 DATA 154, 150, 166, 165, 169, 169, 169, 165, 166, 0
49012 DATA 0, 0, 0, 106, 170, 170, 170, 42, 42, 42
49022 DATA 42, 169, 169, 169, 169, 128, 128, 128, 128, 170
49032 DATA 170, 170, 170, 10, 10, 10, 10, 169, 170, 170
49042 DATA 170, 168, 168, 168, 168, 106, 106, 90, 154, 0
49052 DATA 0, 0, 0, 170, 105, 153, 175, 87, 175, 153
49062 DATA 105, 170, 166, 154, 234, 86, 234, 154, 166, 170
49072 DATA 170, 170, 170, 170, 170, 170, 170, 170, 170, 170
49082 DATA 170, 170, 170, 170, 170, 26, 24, 228, 30, 228
49092 DATA 1, 229, 20, 231, 27, 231, 13, 232, 25, 233
49102 DATA 8, 234, 31, 234, 8, 236, 18, 236, 22, 236
49112 DATA 17, 238, 28, 238, 3, 239, 14, 239, 23, 239
49122 DATA 19, 242, 24, 242, 30, 242, 8, 243, 22, 244
49132 DATA 27, 245, 0, 246, 4, 247, 11, 247