@@ -19,13 +19,31 @@ OptionsScreen
1919 dta d " "
2020 dta d " Press "
2121 dta d "Return" *
22- dta d " to proceed "
22+ dta d " to proceed " ; this text has common part with OptionsSubTitle (7bytes) :)
2323.ELIF TARGET = 5200
2424 dta d " Please select option with joystick one "
25- dta d " and press FIRE to proceed "
25+ dta d " and press FIRE to proceed " ; this text has common part with OptionsSubTitle (7bytes) :)
2626.ENDIF
2727 ; 0123456789012345678901234567890123456789
2828;-----------------------------------------------
29+ OptionsSubTitle
30+ dta d " Unknown Father of All Games"
31+ ;-----------------------------------------------
32+ MoreUp
33+ dta d " " ; common part of this text and OptionsSubTitle :)
34+ dta 92 , 92 , 92
35+ dta d " more "
36+ dta 92 , 92 , 92
37+ ; dta d" "
38+ MoreDown
39+ dta d " " ; common part of both texts
40+ dta 93 , 93 , 93
41+ dta d " more "
42+ dta 93 , 93 , 93
43+ ; dta d" " ; common part of text and empty line :)
44+ EmptyLine
45+ dta d " "
46+ ;-----------------------------------------------
2947NameScreen
3048.IF TARGET = 800
3149 dta d " Enter names of players "
@@ -46,7 +64,7 @@ NameScreen5
4664 dta d "INV" *
4765 dta d " - Shape "
4866 dta d "Return" *
49- dta d " - Proceed "
67+ dta d " - Proceed" ; two spaces in nex text
5068.ELIF TARGET = 5200
5169 dta d " "
5270 dta d "(5)" *
@@ -55,58 +73,51 @@ NameScreen5
5573 dta d " - Diffic. "
5674 dta d " "
5775 dta d "FIRE" *
58- dta d " - Proceed "
76+ dta d " - Proceed " ; two spaces in nex text
5977.ENDIF
60- ;-----------------------------------------------
61- MoreUp
62- dta d " "
63- dta 92 , 92 , 92
64- dta d " more "
65- dta 92 , 92 , 92
66- dta d " "
67- MoreDown
68- dta d " "
69- dta 93 , 93 , 93
70- dta d " more "
71- dta 93 , 93 , 93
72- dta d " "
7378WeaponsDescription
7479 ; 0123456789012345678901234567890123456789
7580 .IF TARGET = 800
76- dta d "Tab" *
77- dta d ": Defensive/Offensive weapon "
81+ dta d " " ; common part of this and previous text
82+ dta $ fe ; left arrow symbol
83+ dta d "/"
84+ dta d "Tab" *
85+ dta d ": Defensives/Offensives "
7886.ELIF TARGET = 5200
79- dta d "Left" *
80- dta d ": Defensive/Offensive weapon"
87+ dta d " "
88+ dta d "Left" *
89+ dta d ": Defensives/Offensives "
8190.ENDIF
8291PurchaseDescription
83- ; 0123456789012345678901234567890123456789
92+ ; 0123456789012345678901234567890123456789
8493 .IF TARGET = 800
85- dta d "Space" *
86- dta d ": Purchase "
87- dta d "Return" *
88- dta d ": Finish "
94+ dta $ ff ; right arrow symbol
95+ dta d "/"
96+ dta d "Space" *
97+ dta d ": Purchase "
98+ dta d "Return" *
99+ dta d ": Next"
89100.ELIF TARGET = 5200
90101 dta d "Right" *
91- dta d ": Purchase "
92- dta d "FIRE" *
93- dta d ": Finish "
102+ dta d ": Purchase "
103+ dta d "FIRE" *
104+ dta d ": Next "
94105.ENDIF
95106ActivateDescription
96- ; 0123456789012345678901234567890123456789
107+ ; 0123456789012345678901234567890123456789
97108 .IF TARGET = 800
98- dta d "Space" *
99- dta d ": Activate "
100- dta d "Return" *
101- dta d ": Finish "
109+ dta $ ff ; right arrow symbol
110+ dta d "/"
111+ dta d "Space" *
112+ dta d ": Activate "
113+ dta d "Return" *
114+ dta d ": Exit"
102115.ELIF TARGET = 5200
103116 dta d "Right" *
104- dta d ": Activate "
105- dta d "FIRE" *
106- dta d ": Finish "
117+ dta d ": Activate "
118+ dta d "FIRE" *
119+ dta d ": Exit "
107120.ENDIF
108- EmptyLine
109- dta d " "
110121;---------------------------------------------------
111122OptionsTitle
112123.IF TARGET = 800
@@ -115,13 +126,13 @@ OptionsTitle
115126 dta d " scorch supersystem " *
116127.ENDIF
117128DifficultyTitle
118- dta d " difficulty " *
129+ dta d " difficulty" * ; " " 3 bytes - common part of 2 texts
130+ GameOverTitle
131+ dta d " game over " *
119132PurchaseTitle
120133 dta d "purchase weapons"
121134InventoryTitle
122135 dta d "activate weapons" *
123- GameOverTitle
124- dta d " game over " *
125136GameOverTitle2
126137 dta d " Player Points Hits Earned Money "
127138;-----------------------------------------------------
@@ -169,7 +180,8 @@ dl ; MAIN game display list
169180 .by $ 0f + $ 80 ; DLI
170181 : 2 .by $ 0f ;2
171182 .by $ 0f + $ 80 ; DLI (black to end);1
172- : 38 .byte $ 0f ;35 ..... = 200
183+ : 37 .byte $ 0f ;34 ..... = 199
184+ .by $ 0f + $ 80 ; DLI - Black Hole
173185 .by $ 4f
174186 .wo EmptyLine ; additional line of ground
175187 . byte $ 41
@@ -193,6 +205,9 @@ OptionsDL
193205 . byte $ 4f
194206 . word (display + 140 * 40 )
195207 : 21 .by $ 0f ;76
208+ . byte $ 70 + $ 80
209+ . byte $ 42
210+ . word OptionsSubTitle
196211 . byte $ 41
197212 . word OptionsDL
198213;------------------------
0 commit comments