| 1 |
MODE 15 |
| 2 |
MODE 13 |
| 3 |
OFF |
| 4 |
ON ERROR MODE 12: REPORT: PRINT ERL: END |
| 5 |
|
| 6 |
PRINT''" Red Blue" |
| 7 |
PRINT'"Move left Z 2" |
| 8 |
PRINT'"Move right X 3" |
| 9 |
PRINT'"Fire bullet <space> Enter" |
| 10 |
PRINT''"Press any key to start..." |
| 11 |
IF GET |
| 12 |
|
| 13 |
MODE 15 |
| 14 |
MODE 13: REM 1280 * 1024 os units; 320 * 256 pixels (4 os units = 1 pixel) |
| 15 |
OFF |
| 16 |
|
| 17 |
PROCs |
| 18 |
|
| 19 |
Bank% = 1 |
| 20 |
REPEAT |
| 21 |
WAIT |
| 22 |
SYS"OS_Byte", 113, Bank% |
| 23 |
SYS"OS_Byte", 112, 3 - Bank% |
| 24 |
Bank% = 3 - Bank% |
| 25 |
PROCf |
| 26 |
PROCm |
| 27 |
n% += 1 |
| 28 |
IF TIME - 100 > m% THEN m% += 100: o% = n%: n% = 0 |
| 29 |
UNTIL 0 |
| 30 |
END |
| 31 |
|
| 32 |
|
| 33 |
DEF PROCs |
| 34 |
x1% = 400 |
| 35 |
x2% = 800 |
| 36 |
b1y% = -100 |
| 37 |
b2y% = -100 |
| 38 |
z1% = 0 |
| 39 |
z2% = 0 |
| 40 |
zh% = 0 |
| 41 |
zp% = 0 |
| 42 |
s% = 0 |
| 43 |
e% = 0 |
| 44 |
f% = 1 |
| 45 |
m% = TIME |
| 46 |
n% = 0 |
| 47 |
o% = 0 |
| 48 |
DIM sx%(10) |
| 49 |
DIM sy%(10) |
| 50 |
DIM sd%(10) |
| 51 |
DIM se%(10) |
| 52 |
se%() = FALSE |
| 53 |
ENDPROC |
| 54 |
|
| 55 |
|
| 56 |
DEF PROCf |
| 57 |
COLOUR 128 + %010000 |
| 58 |
CLS |
| 59 |
GCOL %000011 |
| 60 |
PLOT 4, x1%, 140 |
| 61 |
PLOT 0, -40, -40 |
| 62 |
PLOT 81, 80, 0 |
| 63 |
GCOL %110000 |
| 64 |
PLOT 4, x2%, 140 |
| 65 |
PLOT 0, -40, -40 |
| 66 |
PLOT 81, 80, 0 |
| 67 |
GCOL %001100 |
| 68 |
RECTANGLE FILL 0, 0, 1280, 100 |
| 69 |
IF b1y% > 0 THEN |
| 70 |
GCOL %010011 |
| 71 |
CIRCLE FILL b1x%, b1y%, 4 |
| 72 |
ENDIF |
| 73 |
IF b2y% > 0 THEN |
| 74 |
GCOL %110001 |
| 75 |
CIRCLE FILL b2x%, b2y%, 4 |
| 76 |
ENDIF |
| 77 |
IF s% > 0 THEN |
| 78 |
FOR t% = 1 TO 10 |
| 79 |
IF se%(t%) THEN |
| 80 |
GCOL RND(%111111) |
| 81 |
RECTANGLE FILL sx%(t%) - 20, sy%(t%) - 20, 40 |
| 82 |
ENDIF |
| 83 |
NEXT |
| 84 |
ENDIF |
| 85 |
COLOUR %111111 |
| 86 |
PRINT "Red: "+STR$z1% TAB(10)" "; |
| 87 |
IF zp% = 1 THEN PRINT "<-"; ELSE PRINT " "; |
| 88 |
PRINT" High: "+STR$zh%; |
| 89 |
IF zp% = 2 THEN PRINT " ->"; |
| 90 |
PRINTTAB(30) "Blue: "+STR$z2% |
| 91 |
COLOUR 0 |
| 92 |
COLOUR 128 + %001100 TINT 196 |
| 93 |
PRINTTAB(1, 30) "Level: "+STR$f% TAB(20) "Frames/sec: "+STR$o% |
| 94 |
ENDPROC |
| 95 |
|
| 96 |
|
| 97 |
DEF PROCm |
| 98 |
IF INKEY -98 THEN x1% -= 16: IF x1% < 0 THEN x1% = 0 |
| 99 |
IF INKEY -67 THEN x1% += 16: IF x1% > 1280 THEN x1% = 1280 |
| 100 |
IF INKEY -125 THEN x2% -= 16: IF x2% < 0 THEN x2% = 0 |
| 101 |
IF INKEY -109 THEN x2% += 16: IF x2% > 1280 THEN x2% = 1280 |
| 102 |
IF (INKEY -99) AND b1y% < 0 THEN b1y% = 130: b1x% = x1% |
| 103 |
IF (INKEY -61) AND b2y% < 0 THEN b2y% = 130: b2x% = x2% |
| 104 |
IF b1y% > 0 THEN b1y% += 40: IF b1y% > 1000 THEN b1y% = -100 |
| 105 |
IF b2y% > 0 THEN b2y% += 40: IF b2y% > 1000 THEN b2y% = -100 |
| 106 |
IF RND(50) = 1 AND s% < 10 THEN |
| 107 |
s% += 1 |
| 108 |
t% = 1 |
| 109 |
WHILE se%(t%) = TRUE |
| 110 |
t% += 1 |
| 111 |
ENDWHILE |
| 112 |
sx%(t%) = RND(1200) |
| 113 |
sy%(t%) = 1000 |
| 114 |
sd%(t%) = f% |
| 115 |
se%(t%) = TRUE |
| 116 |
e% += 1 |
| 117 |
IF e% = 20 THEN f% += 1: e% = 0 |
| 118 |
ENDIF |
| 119 |
IF s% > 0 THEN |
| 120 |
FOR t% = 1 TO 10 |
| 121 |
IF se%(t%) THEN |
| 122 |
sy%(t%) -= sd%(t%) |
| 123 |
IF sy%(t%) < 120 THEN |
| 124 |
s% = 0 |
| 125 |
FOR u% = 1 TO 10 |
| 126 |
se%(u%) = FALSE |
| 127 |
NEXT |
| 128 |
IF z1% > zh% THEN zh% = z1%: zp% = 1 |
| 129 |
IF z2% > zh% THEN zh% = z2%: zp% = 2 |
| 130 |
z1% = 0 |
| 131 |
z2% = 0 |
| 132 |
e% = 0 |
| 133 |
f% = 1 |
| 134 |
ELSE |
| 135 |
IF b1y% > 0 THEN |
| 136 |
IF (sx%(t%) - 20 < b1x%) AND (sx%(t%) + 20 > b1x%) AND (b1y% > sy%(t%) - 20) THEN s% -= 1: se%(t%) = FALSE: z1% += sy%(t%) / 10: b1y% = -100 |
| 137 |
ENDIF |
| 138 |
IF b2y% > 0 THEN |
| 139 |
IF (sx%(t%) - 20 < b2x%) AND (sx%(t%) + 20 > b2x%) AND (b2y% > sy%(t%) - 20) THEN s% -= 1: se%(t%) = FALSE: z2% += sy%(t%) / 10: b2y% = -100 |
| 140 |
ENDIF |
| 141 |
ENDIF |
| 142 |
ENDIF |
| 143 |
NEXT |
| 144 |
ENDIF |
| 145 |
ENDPROC |
Parent Directory
| 
Revision Log