20 REM THE "I" IN THE VARIABLE "POINTER" IN LINES 190,250,320,390 SHOULD BE A "1" AS "POINT" IS A RESERVED WORD›100 REM ** INITIALIZATION **›110 FOR A=1536 TO 1560:READ I:POKE A,I:NEXT A:REM POKE DATA FOR MACHINE LANGUAGE SUBROUTINE INTO MEMORY PAGE 6›120 REM ** MACHINE LANGUAGE DATA **›130 DATA 104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,247,96›140 REM ** ADDRESS OF PLAYER DATA **›150 FOR A=260 TO 323:READ I:POKE A,I:NEXT A:REM POKE DATA INTO PROTECTED RAM›155 REM ** PLAYER SHAPE DATA **›160 DATA 28,62,62,28,73,127,73,65,7,23,39,88,154,36,8,16,240,38,47,127,47,38,240,0,16,8,36,154,88,39,23,7›170 DATA 65,73,127,73,28,62,62,28,8,16,36,89,26,228,232,224,15,100,244,254,244,100,15,0,224,232,228,26,89,36,16,8›180 REM ** POINTERS TO DATA **›190 DIM PO1NTER(8):FOR A=1 TO 8:READ I:PO1NTER(A)=I:NEXT A:DATA 260,268,276,284,292,300,308,316›200 REM ** SET UP PLAYER **›210 GRAPHICS 0:POKE 752,1:POKE 710,0:POKE 559,46›220 A=PEEK(106)-8:POKE 54279,A:POKE 53277,3:PMBASE=256*A:POKE 53256,1:X=124:Y=48›230 FOR A=PMBASE+512 TO PMBASE+640:POKE A,0:NEXT A›240 POKE 53248,124:POKE 704,12:FACING=1›250 C=0:FOR A=PMBASE+512+Y TO PMBASE+519+Y:POKE A,PEEK(PO1NTER(FACING)+C):C=C+1:NEXT A›270 REM ** MACHINE LANGUAGE CHANGE **›275 IF STRIG(0)=1 THEN 340›280 POSITION 5,5:? "MACHINE LANGUAGE";›285 J=STICK(0)›290 IF J=15 THEN 270›300 IF J=11 THEN FACING=FACING-1:IF FACING<1 THEN FACING=8›310 IF J=7 THEN FACING=FACING+1:IF FACING>8 THEN FACING=1›320 D=USR(1536,PMBASE+512+Y,PO1NTER(FACING))›330 GOTO 270›340 REM ** BASIC CHANGE **›345 IF STRIG(0)=0 THEN 270›350 POSITION 5,5:? "BASIC ";›355 J=STICK(0)›360 IF J=15 THEN 270›370 IF J=11 THEN FACING=FACING-1:IF FACING<1 THEN FACING=8›380 IF J=7 THEN FACING=FACING+1:IF FACING>8 THEN FACING=1›390 C=0:FOR A=PMBASE+512+Y TO PMBASE+519+Y:POKE A,PEEK(PO1NTER(FACING)+C):C=C+1:NEXT A›400 GOTO 340›