Игры на Бейсике своими руками - Игры

Игры на Бейсике своими руками Сборник программ с комментариями

1996 г.

Игры - дамп игры "ROCKS".

Игра представляет собой типичную "стрелялку" и требует отмен-
ной реакции и хорошего джойстика. Вашему космическому кораблю надо
пробиться сквозь плотный пояс астероидов, буквально "прогрызая" се-
бе туннель для полета. Ситуация осложняется наличием вражеского ко-
рабля, который тоже не дремлет.

Быстродействие программе обеспечивает машиннокодовый блок.

Вся эта программа, за исключением Бейсик-загрузчика, набирает-
ся в машинных кодах. Для ее набора можно воспользоваться программой
для шестнадцатиричного ввода, приведенной в ПРИЛОЖЕНИИ.

Листинг 1. Файл "rocks".

63е8:	cd	af	od	21	07	06	22	71:	: 95
63f0:	68	3e	ff	32	70	68	c3	82:	: 47
63f8:	66	f3	3e	47	32	8d	5c	cd:	: 21
6400:	af	0d	01	00	00	cd	38	66:	:8c
6408:	cd	ff	60	73	7e	65	74	за:	:9c
6410:	20	30	30	30	30	30	30	ff:	:b3
6418:	01	19	00	cd	38	66	cd	ff:	:cd
6420:	60	76	69	7a	6e	69	за	33:	: 81
6428:	ff	01	00	01	cd	38	66	cd:	:c5
6430:	ff	60	77	72	65	6d	71	за:	:59
6438:	30	30	за	30	30	за	30	30:	: 30
6440:	ff	21	6a	68	11	6b	68	01:	:7b
6448:	05	00	36	00	ED	BO	21	00	:A5
6450	58	36	47	11	01	58	01	3F	33
6458:	00	ED	BO	21	OF	14	22	50	: OF
6460:	68	21	40	5B	36	44	11	41	:B1
6468	58	01	CO	02	ED	BO	21	55	FA
6470 .	68	36	00	11	56	68	01	04	: 46
6478:	00	ED	BO	3E	03	32	5F	68	:B3
6480:	CD	C8	65	AF	D3	FE	32	48	8
6488	5С	CD	67	61	CD	43	62	CD	. 1С
6490	ВО	62	CD	1С	63	CD	09	61	: 89
6498:	CD	DF	65	CD	B6	63	ЗА	5F	: С
64А0:	68	FE	00	28	17	01	FE	7F	:27
64А8:	ED	78	CB	47	28	OE	ЗА	68	:5B
64В0-	68	FE	FF	C4	EC	60	AF	32	:6A
64 В8:	68	68	18	CD	21	00	58	11	: 5B
64С0	01	58	01	00	03	36	38	ED	: DC
64С8-	ВО	3E	38	32	48	5C	3E	07	6D
64D0:	D3	FE	FB	C9	11	02	00	21	: FD
64D8:	DC	05	CD	B5	03	F3	01	20	:B6
64Е0.	03	OB	78	Bl	20	FB	C9	El	40
64Е8	7Е	23	E5	FE	FF	C8	D7	18	.86
64F0:	F6	ЗА	69	68	FE	02	28	05:	: 82
64F8:	ЗС	32	69	6B	C9	AF	32	69 :	:AE
6500-	68	21	6F	68	7E	3C	FE	OA'	■87
6508	38	1A	AF	77	2B	7E	3C	FE;	,C8
6510 :	06	38	11	AF	77	2B	E5	CI:	В
6518:	11	6A	68	A7	ED	52	28	05:	73
6520-	С5	El	18	EO	77	01	06	01	A2
6528	CD	38	66	06	03	21	6A	68	F4
6530:	С5	E5	7E	C6	30	D7	El	23:	:8E
6538:	Е5	7E	C6	30	D7	3E	ЗА	D7 :	1С
6540:	El	CI	23	10	EB	01	OE	01:	75
6548.	CD	38	66	3E	20	D7	C9	AF:	:C5
6550:	32	52	68	32	5B	68	ЗА	70:	40
6558:	68	FE	FF	CA	ОС	62	FE	80.	D8
6560	28	37	FE	40	CA	E4	61	01:	72
6568:	FE	F7	ED	78	CB	67	20	07:	80
6570:	ЗЕ	FF	32	52	68	18	OE	01:	25
6578.	FE	EF	ED	78	CB	57	20	05:	76
6580'	3E	7F	32	52	68	01	FE	EF	' 7C
6588.	ED	78	CB	47	20	06	3E	FF	:C7
6590:	32	5B	68	C9	AF	32	5B	68	: 57
6598'	C9	DB	IF	FE	02	28	21	FE	: 07
65A0-	01	28	17	FE	10	28	IF	FE	.98
65A8-	11	28	05	FE	12	28	06	C9	: 52
65B0 :	CD	D2	61	18	11	CD	D8	61	: 44
65B8:	18	ОС	3E	7F	32	52	68	C9	:B3
65C0-	3E	FF	32	52	68	C9	3E	FF	: 54
65C8'	32	5B	68	C9	01	FE	EF	ED	:C6
65D0:	78	F5	CB	67	28	10	CB	5F	: 36
65 D8	28	13	F1	CB	47	C2	AC	61	:4A
65E0:	3E	FF	32	5B	68	C9	3E	FF:	.7D
65E8:	32	52	68	18	ED	3E	7F	32:	: 2D
65F0:	52	68	18	E6	01	FE	7F	ED	: 78
65F8.	78	CB	67	28	1A	CB	5F	28	■ 9B
6600	1A	AF	32	52	68	01	FE	FE:	.18
6608:	ED	78	CB	47	28	05	AF	32:	:F3
6610:	5B	68	C9	3E	FF	18	F8	3E:	: 8D
6618	FF	IB	E7	3E	7F	18	E3	2A:	:5E
6620	50	68	11	OD	69	OE	44	CD:	E4
6628:	45	66	C9	ЗА	52	68	FE	00:	:F4
6630:	28	08	FE	FF	28	18	FE	7F:	: 80
6638:	28	39	2A	50	68	11	D1	68:	2B
6640	OE	47	CD	45	66	ЗА	5B	68:	: 70
6648:	FE	FF	CC	AF	64	C9	CD	37:	57
6650:	62	2A	50	68	7D	FE	00	28:	9D
6658:	El	2D	22	50	68	2D	2D	CD:	CD
6660 :	03	63	FE	FF	28	06	AF	32:	38
6668:	63	68	18	CE	3E	FF	32	63:	51
6670:	68	18	C7	CD	37	62	2A	50:	FD
6678-	68	7D	FE	IE	28	ВС	2C	22:	11
6680.	50	68	2C	2C	CD	03	63	FE:	27
6688:	FF	28	06	AF	32	62	68	18:	DE
6690:	A9	3E	FF	32	62	68	18	A2:	92
6698.	06	03	C5	CD	F2	62	FE	IE:	09
66A0:	30	F9	26	02	6F	E5	CD	03:	7B
66A8:	63	El	FE	FF	28	28	24	E5:	A8
66B0	CD	03	63	El	FE	FF	28	IE:	6D
66В8:	26	02	Е5	CD	F2	62	CB	4F:	: 66
66С0:	28	ОВ	El	11	73	68	OE	44 :	: 78
66С8:	CD	45	66	18	09	El	11	91 .	; 4A
66D0 :	68	ОЕ	44	CD	45	66	CI	10 :	: 39
66D8.	CI	С9	2А	76	5C	54	5D	29:	:9E
66Е0.	29	19	29	29	29	19	22	76:	:B4
66Е8	5С	7С	С9	CD	68	66	06	08	: 98
66F0:	7Е	FE	00	20	ОС	23	7E	FE:	:9D
66F8:	00	20	06	2B	24	10	F1	AF.	.83
6700:	С9	ЗЕ	FF	C9	01	00	08	ED;	;2C
6708:	43	53	68	AF	32	5E	68	CD:	: El
6710:	52	62	CD	4C	63	ED	4B	53:	:32
6718:	68	78	FE	9F	30	32	04	ED	: 4F
6720:	43	53	68	AF	32	5B	68	ЗА	: 63
6728:	5Е	68	FE	08	28	DD	3C	32:	: CE
6730:	5Е	68	18	DE	ED	4B	53	68:	.46
6738:	CD	АА	22	E5	ED	4B	53	68	: 10
6740:	78	D6	08	47	CD	AA	22	54:	: 31
6748:	5D	Е1	01	20	00	ED	BO	C9:	: 74
6750:	01	00	02	CD	38	66	06	20	:4B
6758:	ЗЕ	20	D7	10	FB	21	40	58:	В
6760:	11	41	58	01	IF	00	36	44 :	: OB
6768:	ED	ВО	AF	32	5B	68	ЗА	64:	;AE
6770:	68	FE	C8	30	03	C3	52	62:	: AF
6778:	2А	66	68	E5	CD	68	66	CD	24
6780:	77	66	3E	44	77	23	77	El:	: 38
6788:	7С	FE	14	28	OA	24	22	66:	:5B
6790:	68	CD	FC	65	C3	52	62	CD.	;D1
6798:	2С	66	CD	C8	65	C9	2A	БО-	: CE
67А0:	68	25	CD	03	63	FE	FF	гв:	: EC
67А8:	11	ЗА	62	68	FE	FF	CA	75:	: 60
67В0:	64	ЗА	63	68	FE	FF	CA	80 :	:C7
67В8:	64	С9	2A	50	68	25	25	22:	:9A
67С0:	60	68	18	17	ЗА	5F	68	FE'	: ID
67С8:	00	28	04	3D	32	5F	68	F5:	: 86
67D0:	01	1F	00	CD	38	66	F1	C6:	79
67D8:	30	D7	C9	CD	DC	63	06	00:	: 21
67Е0:	С5	11	2B	69	2A	50	68	OE:	A1
67Е8:	42	CD	45	66	2A	60	68	11'	ОС
67F0:	4B	69	OE	46	CD	45	66	11:	EB
67F8:	4B	69	2A	50	68	OE	46	CD:	16
6800:	45	66	2A	60	68	11	2B	69:	: AA
6808:	OE	42	CD	45	66	21	32	00:	8B
6810:	11	01	00	CD	B5	03	F3	CI:	:C3
6818.	10	C6	ЗА	64	68	FE	C8	38:	:5A
6820	IE	2A	50	68	ED	5B	66	68:	:9E
6828.	25	25	A7	ED	52	28	OD	2A:	: IF
6830:	50	68	ED	5B	66	68	25	A7:	: 32
6838:	ED	52	20	03	CD	C8	65	2A:	:26
6840 :	50	68	11	OD	69	OE	44	CD:	: 06
6848-	45	66	2A	60	68	11	OD	69:	:D4
6850	OE	44	CD	45	66	AF	32	62:	:C5
6858:	68	32	63	68	C9	2A	50	68:	:D0
6860-	2C	2C	22	60	68	C3	F3	63:	: 23
6868:	2A	50	68	2D	2D	22	60	6B:	:F6
6870:	C3	F3	63	21	59	68	06	05:	:DE
6878:	7E	3C	77	FE	OA	38	05	AF:	: 05
6880:	77	2B	10	F4	01	06	00	CD:	: 62
6888:	38	66	06	06	21	55	68	7E:	:F6
6890	C6	30	D7	23	10	F9	C9	2A:	:E4
6898 *	50	68	25	25	22	5C	6B	21:	: 09
68A0:	OA	00	11	01	00	CD	B5	03:	: A9
68A8	F3	06	08	C5	ЗА	64	68	FE:	:DA
68B0	CB	38	19	2A	5C	68	ED	5B:	: 67
68B8:	66	68	A7	ED	52	28	4A	2A:	: 70
68C0:	5C	68	ED	5B	66	68	25	A7:	: CE
68C8	ED	52	2B	3D	2A	5C	68	E5;	:A7
68D0.	CD	03	63	El	FE	FF	CA	8F:	:A2
68D8-	65	25	CD	03	63	FE	FF	CA:	:C4
68E0:	8F	65	2A	5C	68	11	B1	68:	: 54
68E8:	OE	46	CD	45	66	2A	5C	68:	OA
68F0-	11	OD	69	OE	44	CD	45	66:	:A9
68F8:	2A	5C	68	25	25	22	5C	68:	: 7E
6900:	CI	10	A8	3E	FF	32	68	68:	: 21
6908:	C9	CI	ЗА	65	68	FE	46	2B:	:6E
6910:	20	FE	41	28	ОС	FE	43	28:	: 75
6918:	10	3E	46	32	65	68	C3	FC:	:D3
6920:	65	3E	43	32	65	68	C3	FC:	:2D
6928:	65	3E	42	32	65	68	C3	FC	: 34 "
6930:	65	06	14	C5	2A	66	68	11	:E6
6938:	2В	69	E5	D5	OE	42	CD	45	:51
6940:	66	D1	El	OE	46	CD	45	66	: 8D
6948:	21	64	00	11	01	00	CD	B5	:CA
6950:	03	F3	CI	10	DE	2A	66	68:	: 56
6958:	11	OD	69	OE	44	CD	45	66:	: 12
6960:	06	04	21	58	68	7E	3C	77	:E5
6968:	FE	OA	38	05	AF	77	2B	10:	: 77
6970:	F4	CD	9C	64	C3	AF	63	CI:	: 30
6978:	06	05	C5	2A	5C	68	25	11:	:D5
6980:	2В	69	OE	46	CD	45	66	2A:	:73
6988:	5С	68	25	11	4B	69	OE	42:	:EF
6990:	CD	45	66	21	32	00	11	01:	:D6
6998:	00	CD	B5	03	F3	CI	10	DA:	: 24
69А0:	2А	5C	68	25	11	OD	69	OE:	:B1
69А8:	44	CD	45	66	CD	8B	64	C9:	:52
69В0:	CD	F2	62	FE	IE	30	F9	6F:	: EE
69В8:	26	03	22	66	68	AF	32	64:	:7F
69С0:	68	3E	41	32	65	68	C9	ЗА:	: 12
69С8:	64	68	FE	C8	30	07	CD	F2:	:B9
69DO:	62	32	64	68	C9	2A	66	68:	:5A
69D8:	ED	5B	50	68	7B	BD	28	04 :	:A5
69Е0:	38	10	18	IF	2A	66	68	11:	:D1
69Е8:	F1	68	ЗА	65	68	4F	CD	45:	: 12
69F0:	66	C9	CD	2C	66	2A	66	68:	:DF
69F8:	7D	FE	00	28	E7	2D	22	66:	AO
6А00:	68	18	El	CD	2C	66	2A	66:	:BA
6А08:	68	7D	FE	IE	28	D6	2C	22:	:BF
6А10:	66	68	18	DO	2A	66	68	11:	: 39
6А18:	0D	69	OE	44	CD	45	66	C9:	:8B
6А20:	21	3C	5C	CB	86	3E	1«	D7:	BF
6А28:	78	D7	79	D7	C9	E5	CD	4F:	FB
6А30:	66	El	24	CD	4F	66	C9	CD:	:1D
6А38:	68	66	E5	CD	77	66	71	23:	: 93
6А40:	71	El	06	08	23	1A	77	2B:	:E9
6А48:	13	1A	77	13	24	10	F5	C9:	:5B
6А50:	7C	E6	07	OF	OF	OF	85	6F:	44
6А58:	7C	E6	F8	F6	40	67	C9	CB:	:4D
6A60:	3C	CB	3C	CB	3C	CB	F4	CB	:9E
6A68:	E4	C9	AF	D3	FE	01	ОС	00	:0C
6A70:	CD	38	66	CD	FF	60	52	4F	: 12
6A78:	43	4B	53	21	21	FF	01	06	: OB
6A80:	02	CD	38	66	CD	FF	60	61	:E4
6A88:	77	74	6F	72	20	69	67	72	: 20
6A90:	79	ЗА	43	2E	43	4C	41	52:	:40
6A98:	4B	45	2E	FF	01	09	04	CD:	: 9A
6AA0:	38	66	CD	FF	60	20	75	70:	:D9
6AA8:	72	61	77	6C	65	6E	69	65:	: 69
6AB0:	20	20	FF	01	08	06	CD	38:	:6D
6AB8:	66	CD	FF	60	31	2D	6B	6C:	: E9
6AC0:	61	77	69	61	74	2E	FF	01:	:6E
6AC8:	08	08	CD	38	66	CD	FF	60:	:D9
6AD0:	32	2D	6B	65	6D	70	73	74:	:2D
6AD8:	6F	6E	FF	01	08	OA	CD	38:	: 36
6AE0:	66	CD	FF	60	33	2D	6B	75:	: 1С
6AE8:	72	73	6F	72	FF	01	08	ОС:	:2C
6AF0:	CD	38	66	CD	FF	60	34	2D:	: 52
6AF8:	69	6E	74	65	72	66	65	6A:	:B9
6B00:	73	20	49	49	FF	01	08	OF:	:A7
6B08:	CD	38	66	CD	FF	60	J5	2D:	:6C
6B10:	73	74	61	72	74	20	69	67:	99
6B18:	72	79	FF	ED	4B	71	68	CD:	:4B
6B20:	38	66	3E	3E	D7	21	00	58:	:F5
6B28:	11	01	58	01	00	03	36	47:	7E
6B30:	ED	BO	01	FE	F7	ED	78	CB:	5E
6B38:	47	28	IF	CB	4F	28	32	CB:	: 70
6B40:	57	CA	A1	67	CB	5F	CA	B9:	81
6B48:	67	CB	67	28	6C	18	E3	ED:	:C8
6B50:	4B	71	68	CD	38	66	3E	20:	:A8
6B58:	D7	C9	3E	FF	32	70	68	CD:	: 77
6B60:	67	67	01	07	06	ED	43	71:	48
6B68:	68	CD	38	66	3E	3E	D7	18:	11
6B70:	CI	3E	80	32	70	68	CD	67:	98
6B78:	67	01	07	08	ED	43	71	68:	63
6B80:	CD	38	66	3E	3E	D7	C3	4A:	B6
6B88:	67	3E	20	32	70	68	CD	67:	F6
6B90:	67	01	07	OA	ED	43	71	'68:	7D
6B98.	CD	38	66	3E	ЗЕ	D7	C3	4A	: CE
6BA0:	67	3E	40	32	70	68	CD	67	:2E
6BA8:	67	01	07	ОС	ED	43	71	68	: 97
6BB0 :	CD	38	66	ЗЕ	ЗЕ	D7	C3	4A	:E6
6BB8:	67	CD	11	60	06	14	C5	01	A8
6BC0	07	02	CD	38	66	CD	FF	60	•CB
6BC8	2A	2A	20	6B	6F	6E	65	63	:B7
6BDC:	20	69	67	72	79	20	2A	2A	: 8A
6BD8:	FF	CD	1С	63	21	64	00	11
6BE0:	02	00	CD	B5	03	CD	F2	62	: F3
6BE8.	D3	FE	21	00	58	77	11	01	26
6BF0:	58	01	00	03	ED	BO	CI	10	: 25
6BF8:	C5	01	00	13	CD	38	66	CD	74
6C00 :	FF	60	20	6Е	61	76	6D	69	: 06
6C08:	74	65	20	6С	60	62	75	60	: 70
6C10:	20	6B	6C	61	77	69	7B	75	: A4
6C18:	2E	2E	2E	20	FF	21	00	58:	: A6
6C20-	11	01	58	01	00	03	36	57:	■87
6C28	ED	BO	CD	8Е	02	7B	FE	FF:	06
6C30:	28	F8	CD	AF	OD	C3	82	66:	: FO
6C38:	00	00	00	00	00	00	00	00 :	: A4
6C40:	00	00	00	00	00	00	00	00:	: AC
6C48:	00	00	00	00	00	00	00	00:	:B4
6C50-	00	00	00	00	00	00	00	00:	■ВС
6C58:	00	00	00	00	00	00	00	EO	A4
6C60 :	01	F0	03	98	07	EC	OF	14 :	:6E
6C68:	OA	FC	0B	68	15	E8	15	E8 :	: 47
6C70:	3D	F0	17	F0	09	EO	07	CO:	: CO
6C78:	01	00	00	00	00	00	00	00:	E5
6C80:	03	CO	OF	60	IE	50	19	BO	: 55
6C88:	ID	60	OB	CO	ОС	80	OB	00	:D3
6C90:	07	00	00	00	00	00	00	00	: 03
6C98	00	80	01	BO	01	80	01	80	: 07
6CA0:	01	80	01	80	01	80	01	80	: 10
6CA8:	01	80	01	80	01	80	01	80	: 18
6CB0:	01	80	01	80	01	80	01	80	:20
6CB8:	01	80	01	80	01	CO	03	CO	: AA
6CC0:	03	40	02	40	02	60	06	EO	:F9
6CCB:	07	E2	47	F2	4F	BA	5D	BE	:7A
6CD0:	7D	BE	7D	E2	47	CO	03	00	:E0
6CD8:	00	80	01	CO	03	FC	3F	BB	:7B
6CE0:	ID	BO	OD	AO	05	EO	07	CO;	: 72
6CE8:	02	40	03	CO	02	CO	03	80	:9E
6CF0:	01	80	01	80	01	00	00	00:	:5F
6CF8:	00	00	00	00	00	00	00	00:	64
6D00:	00	00	00	00	00	00	00	00:	:6D
6D08:	00	00	00	00	00	00	00	00:	75
6D10:	00	00	00	00	00	46	4B	CC:	: DA
6D18:	2C	74	17	88	ОС	70	6B	2E:	:D9
6D20 :	15	F3	17	9A	29	AC	55	50:	CO
6D2B:	34	C8	15	24	52	5E	25	48:	E7
6D30:	59	80	60	00	00	ОС	78	12:	:6C
6D38:	47	E4	28	88	17	50	09	48:	38
6D40:	16	64	6A	B2	A9	4C	5A	90:	22
6D48:	27	60	14	20	IB	90	24	48:	87
6D50:	48	30	30	00	00	00	00	00 :	65
6D58:	00	00	00	00	00	00	00	00:	;C5
6D60:	00	00	00	00	00	00	00	00:	: CD

После набора основного кодового блока и его сохранения на лен-
те или диске, наберите Бейсик-загрузчик:

Листинг_2- Программа-загрузчик.

10 BORDER 0: PAPER 0: INK 7: С
LEAR VAL "24575"

15 PRINT AT 9,7;"ROCKS! IS LOA
DING"; AT 13,10; FLASH 1;"PLEASE
, WAIT": INK 0:

20 LOAD "rockS"CODE 24576
30 LOAD "chr"CODE 64600
40 POKE VAL "23606",VAL "BB":
POKE VAL "23607",VAL "251":INK 7
50 RANDOMIZE USR VAL "24576"

Теперь осталось скомпоновать все файлы программы в одни блок в
следующем порядке:

1. Бейсик-загрузчик (Лнстннг_2).

2 Файл "rocke"CODE (Листииг_1).

3. Файл "chr"C0DE - русско-латинский символьный набор для ру-
сификации програмны.

И, в заключение, два полезных POKES. Их можно вводить после
загрузки кодового блока в адрес 24576.

1. Ячейка 24724 - начальное число жизней. Исходное зиаченне -
3. Вы можете задать любое начальное число жизней N прн помощи РОКЕ
24724,N.

2. Ячейка 25571. Здесь находится код команды DEC А, уменьшаю-
щей на еднннцу оставшееся число жизней. Заменнв эту команду коман-
дой NOP (при помощи РОКЕ 25571,0) можно получить бесконечные жизни.

СОДЕРЖАНИЕ:

Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование