=/ΩSHIP€ΙΨBL€Α€€ @ 3@ˆ€!-3(7‚<‚%@,B2Hƒ R:,56€-€%@6ƒ-ƒ%@+6‚-@I5 @A6€-€&@%+€",+6ƒ-ƒ%@76‚-@A @'6ƒ-ƒ%@6‚-@3' @ 56€-€%@6ƒ-ƒ&@+6‚-@5 @ A6€-€&@%+€",+6ƒ-ƒ&@76‚-AA @ '6ƒ-ƒ&@6‚-@—' @ '6€-€%@6‚-@e' @36€-€&@%+€",)6‚-@3 @r @rLine 2 sets screen pointer and prints ship into player 0 data area, line 3 moves ship horizontally›ƒ(>:A%,"AR@4@‚F@ƒ@9L( ƒclear screen, set margins to full screen, cursor off›l„;AU,;A(,,6„7@,. =6„7AU,. L6„7@,.„lfill BL$ with space character›(Q‚-@A("…)67‚<‚,.>:…,- ‚QRead player shape data into ship$›29932,56,56,56,56,56,92,92,92,27,126,27,126,231,131,32›37732,32,33,39,62,27,254,27,126,46,44,44,60,40,40,32›4??32,32,160,128,224,112,124,95,124,112,224,128,160,32,32,32›57732,32,40,40,60,44,44,46,27,127,27,254,62,39,33,32›69932,131,231,27,126,27,126,92,92,92,56,56,56,56,56,32›7;;32,32,48,48,88,80,80,112,27,126,27,127,120,228,160,32›86632,32,33,35,39,46,94,252,94,46,39,35,33,32,32,32›9;;32,32,160,228,120,27,127,27,126,112,80,80,88,48,48,32›<Š6…-F:A,&@&BBy…26ƒ-A)>6€-@–PA@Šset pmgraphics base, x and y position and color of ship›F@ˆ)@‰…%@;-?(„set screen pointer to player 0 data area, print blanks to clear›PbAY@0'B2w@36‚-@= @benable pmgraphics, go to move loop›€ D4:P114L1.BAS