tomaes

        * = $7c   ; zeropage boot-up (for VICE)
        sei       ; no interupts, no flickering 
        sty $d011 ; background frame is now everywhere
        cpy $d012 ; wait for next raster line
        bne *-3   ;
        sty $d020 ; set fullscreen color
        iny       ; wait 2 lines (looks best)
        iny       ;
        bvc *-10  ; loop quickly

tomaes

; glitchshifter by 4mat explained
;
        * = $7c   ; starts in Zeropage. Overwrites some BASIC interpreter parts;
                  ; faux autostart in VICE due to RUN (+return! just that would
                  ; suffice)
        SBC $a1   ; Accu minus (slowly updated) system timer byte ($A1)
        SEI       ; stop interrupts to halt timer temporarily and add some speed-up, 
                  ; inner loop starts
        ORA $a2   ; bitwise OR'ed Accu with fresh timer data from fast sys timer ($A2)
                  ; (but: the Accu rarely changes in this very fast inner loop)

tomaes

AUTO 10, 10
REM MICRO GAME FOR THE BBC MICRO

MODE 7

PRINT CHR$(141); CHR$(134); "MATH HASTE": REM 2X HEIGHT (top), cyan
PRINT CHR$(141); CHR$(130); "METH HESTE": REM 2X HEIGHT (bottom), green

DIM Q(6): DIM Q$(6): D = 2: R = 0

tomaes

10 REM ﾌﾜﾌﾜ GW-BASIC port /w sound
11 CLS: RANDOMIZE TIMER
12 XM=80: YM=24: X=XM/2: Y=1: OC=239: L=30 
14 B=INT(RND*(XM-L*2))+L: SOUND 200,.5
15 UP=0: L=30-S/10: IF L<1 THEN L=1 
16 LOCATE YM,B: PRINT CHR$(OC)
17 A$=INKEY$: X=X+(A$="a")-(A$="s")
18 IF SCREEN(Y+1,X)=OC THEN Y=Y+1: SOUND 800,1
19 IF SCREEN(Y,X)=OC THEN GOSUB 40 ELSE Y=Y+1
20 IF X<1 OR X>XM OR Y<1 OR Y>YM THEN 30

tomaes

0 GO TO INFINITY

tomaes

0 s=53248:x=8:pokes+21,1:pokes,x:pokes+1,120:pokes+39,2
5 printspc(int(rnd(1)*5)*6+4)"{yellow}{110}{green}{109}":r=r+1
8 geta$:x=x+(a$="{left}")*8-(a$="{right}")*8:pokes,x:ifx<248and(peek(s+31)andr>20)=.goto5
9 print"score:"x*8-r*2

tomaes

0  if peek(51300)<>83 then print "hires-master v1.0 required!": stop
1  j=56320
2  s=53280: si=54272
3  jl=123:  jr=119: ju=126: jd=125
5  jx=127:  jf=111: lx=319: ly=199
7  mx=160:  my=100: lv=1:   cn=1
9  r=26  :  q=10  : bx=30
11 dim y(200): n$=chr$(13)
12 :::
14 poke s,0: poke s+1,0

tomaes

{
   Ninja Blitz
   
   A spin on city bomber games
   for 1980s era 16 bit DOS PCs
   
   designed & written by 
   Thomas "tomaes" Gruetzmacher 
   in May 2020

tomaes

; minimal joystick test #3, 21 bytes loop version; @ = not set, A = set

        * = $1000

INIT    LDY #8          ; init loop for checking all joystick port bits
        LDA $DC00       ; load joystick port byte

LOOP    PHA             ; make a copy and put it on the stack
        AND #1          ; least significant bit set?

tomaes

program one_bpp_txt_rle; { 2020-05-05/07 omi edition }

var s,p: string; i,j: word; q: byte;
begin
  s :=     #52#18#21#20#19#22#17#4#2#3#2#3#2#3#2#3#16#3#18#3#16#3#1#3#9#3#2;
  s := s + #3#16#3#1#1#2#1#3#1#4#1#2#1#1#3#16#3#8#1#9#3#16#3#2#1#5#1#5#1#3;
  s := s + #3#16#3#2#1#5#1#5#1#3#3#16#3#8#2#8#3#15#4#18#3#15#4#12#1#5#4#14#3;
  s := s + #5#1#1#6#7#3#16#1#20#1#19#1#7#4#7#1#20#1#18#1#21#1#16#1#23#16#23;
  s := s + #1#2#1#10#1#2#1#20#2#4#1#2#1#2#1#2#1#4#2#17#1#7#2#1#2#1#2#7#1;
  s := s + #15#1#24#1#14#1#24#1#6;