PMG2.bas

1 REM *****************************
2 REM Player-Missile Graphics.
3 REM 
4 REM Uprava pro BASIC XE
5 REM 
6 REM *****************************
7 REM
8 REM
9 REM
10 PMBASE=54279
20 RAMTOP=106
30 SDMCTL=559
40 GRACTL=53277
50 HPOSP0=53248
55 PCOLR0=704
60 Y=48
70 GOSUB 1200:REM INITIALIZE PMG
80 GOSUB 1000:REM ERASE PLAYER 0
90 GOSUB 1100:REM INITIALIZE PLAYER 0 BITMAP
999 END 
1000 REM 
1001 REM ERASE PLAYER 0
1002 REM 
1003 FOR I=MYPMBASE+512 TO MYPMBASE+640
1004 POKE I,0
1005 NEXT I
1006 RETURN 
1100 REM 
1101 REM INITIALIZE PLAYER 0 BITMAP
1102 REM 
1103 FOR I=MYPMBASE+512+Y TO MYPMBASE+512+Y+7
1104 READ A
1105 POKE I,A
1106 NEXT I
1107 DATA 24,60,126,219,255,36,90,165
1108 RETURN 
1200 REM 
1201 REM INITIALIZE PMG
1202 REM 
1203 POKE PCOLR0,88
1204 A=PEEK(RAMTOP)-8
1205 POKE PMBASE,A
1206 MYPMBASE=256*A
1207 POKE SDMCTL,46
1208 POKE GRACTL,3
1209 POKE HPOSP0,128
1210 RETURN