The Sinclair QL Forum

Code: Select all

          ...
          MOVE.W 6912,d1     ; Number of words to copied
          SUBQ    #1,d1          ; adjust for DBRA
          ...

Code: Select all

10 REMark This method only works with rectangular sprites: No transparency
11 REMark Cursor up => faster, cursor down => slower, ESC to quit
12 :
13 spr$ = "":                      REMark If no sprite => draw something
14 REMark spr$ = "win3_spr_lp_king_spr"
15 :
16 REMark     Init window
17 ch = FOPEN(#0; "con_")
18 wsx% = SCR_XLIM(#ch): wsy% = SCR_YLIM(#ch)
19 :
20 RANDOMISE
21 :
22 REMark     Load some sprite or draw something
23 IF LEN(spr$)THEN
24  spr = SprLoad(spr$): ERT spr
25  sx% = PEEK_W(spr + 4):         REMark Get size
26  sy% = PEEK_W(spr + 6)
27 ELSE
28  sx% = 50:                      REMark Set some size
29  sy% = 50
30 END IF
31 :
32 xmx% = wsx% - sx%:              REMark Work out limits
33 ymx% = wsy% - sy%
34 cx% = RND(sx% TO xmx% - sx%):   REMark Start somewhere
35 cy% = RND(sy% TO ymx% - sy%)
36 dx% = -1: dy% = 1: s% = 2:      REMark Initial direction and speed
37 :
38 OUTL#ch; sx%, sy%, cx%, cy%
39 :
40 REMark     Draw sprite/something
41 IF LEN(spr$)THEN
42  SPRW#ch; 0, 0, spr
43 ELSE
44  REMark NOTE! If scr_x/y_lim > approx 1280x800 then FILL crashes system!
45  PAPER#ch; 1: CLS#ch
46  FILL#ch; 1: INK#ch; 7: CIRCLE#ch; 50, 50, 48: FILL#ch; 0
47  FILL#ch; 1: INK#ch; 2: LINE 10,30 TO 50,96 TO 92,30 TO 10,30: FILL#ch; 0
48 END IF
49 :
50 REMark     Lets roll!
51 REPeat bounce
52  REMark    Move
53  IF dx% > 0 THEN
54   cx% = cx% + s%
55   IF cx% > xmx%: dx% = -1: NEXT bounce
56  ELSE
57   cx% = cx% - s%
58   IF cx% < 0: dx% = 1: NEXT bounce
59  END IF
60  :
61  IF dy% > 0 THEN
62   cy% = cy% + s%
63   IF cy% > ymx%: dy% = -1: NEXT bounce
64  ELSE
65   cy% = cy% - s%
66   IF cy% < 0: dy% = 1: NEXT bounce
67  END IF
68  :
69  OUTL#ch; sx%, sy%, cx%, cy%:        REMark Thats it! Move
70  :
71  REMark    User interaction
72  k% = CODE(INKEY$(#ch; 1))
73  SELect ON k%
74   = 27: EXIT bounce
75   = 32: BGET#ch; k%: IF k% = 27: EXIT bounce
76   = 208: REMark Cursor up  => faster
77          s% = s% + 1: IF s% > 9: s% = 9: BEEP 1000, 2
78   = 216: REMark Curso down => slower
79          s% = s% - 1: IF s% = 0: s% = 1: BEEP 1000, 2
80  END SELect
81 END REPeat bounce
82 QUIT
83 :
84 :
85 DEFine FuNction SprLoad(fnm$)
86 LOCal ch, fl, ad
87 ch = FOP_IN(fnm$): IF ch < 0: RETurn ch
88 fl = FLEN(#ch): CLOSE#ch
89 ad = ALCHP(fl)
90 LBYTES fnm$, ad
91 RETurn ad
92 END DEFine SprLoad
93 :
94 :

Code: Select all

100 ptr = 1:		rem I want PE loaded if not SMSQ/E
110 :
120 IF VER$ <> 'HBA' THEN 
130  PRINT "SMSQ/E? ";
140  k$ = INKEY$(150): PRINT k$
150  smsq = (k$ = '' OR NOT k$ INSTR 'n ' & CHR$(27))
160 ELSE 
170  smsq = 1
180 END IF 
190 :
200 IF smsq THEN 
210  IF VER$ <> 'HBA' THEN 
220   LRESPR 'win2_SMSQ_GOLD'
240  END IF 
250 END IF 
260 :
270 LRESPR 'win2_qmon'
...
300 IF ptr AND NOT smsq THEN 
310  LRESPR 'win2_rxt_ptr_gen'
320  LRESPR 'win2_MacMouse11'
330  LRESPR 'win2_rxt_wman'
340  LRESPR 'win2_rxt_hot_rext'
350 END IF 
...