#spectrumnext #nextbasic

A few more Next Basic commands. % sprite at (id,flag) Sprite pause id

10 SAVE "scontinue2.bas" 20 RUN AT 3 25 LAYER 2,1: PAPER 0: INK 7: CLS 30 LOAD "demo.spr" BANK 13 40 SPRITE BANK 13: SPRITE PRINT 1 50 SPRITE 1,50,50,1,1 60 REM SPRITE 2,150,50,0,1 70 SPRITE CONTINUE 1,50 TO 150 STEP 1 RUN ,50 STOP ,0 TO 2, BIN 1000,5 80 REM SPRITE CONTINUE 2,150 STOP ,50 TO 150 STEP 1 RUN ,1 TO 3, BIN 0100,0 90 SPRITE MOVE INT 100 PRINT AT 5,1;"0 X cord ";% SPRITE AT (1,0);" " 110 PRINT AT 6,1;"1 Y cord ";% SPRITE AT (1,1);" " 120 PRINT AT 7,1;"2 animation ";% SPRITE AT (1,2);" " 130 PRINT AT 8,1;"3 X steps ";% SPRITE AT (1,3);" " 140 PRINT AT 9,1;"4 y steps ";% SPRITE AT (1,4);" " 150 PRINT AT 10,1;"5 delay ";% SPRITE AT (1,5);" " 160 if % sprite at (1,0)=75 then sprite pause 1:pause 10:sprite continue 1 200 GO TO 90

and relatives sprites 10 SAVE "relative.bas" 20 RUN AT 3 30 LAYER 2,1: CLS 40 LOAD "demo.spr" BANK 13 50 SPRITE BANK 13: SPRITE PRINT 1 60 LET x=100: LET y=100 70 SPRITE 1,x,y,4,1, BIN 001 80 SPRITE -2,16,0,1,1, BIN 110 90 SPRITE -3,0,16,2,1, BIN 110 100 SPRITE -4,16,16,3,1, BIN 110 110 SPRITE CONTINUE 1,50 TO 200 STEP 1 RUN ,100 STOP ,4, BIN 1000,0 120 SPRITE MOVE INT 130 GO TO 120