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

auto 100,4

// SID test mini
// in COMAL-80

// ----------
// procedures
// ----------

proc wait(count)

tomaes

0 rem petscii cola chr$() filter/converter stub code
1 print "wait.": n=999: f=32: dim d(1000), cc(1000)
2 for i=0 to n: read a: d(i)=a: next: i=-1
3 i=i+1: on -(d(i)=f) goto 3: s=i: i=1000
4 i=i-1: on -(d(i)=f) goto 4: e=i
5 print "start:"s;"end:"e: print "ok. converting data": j=0
6 for i=s to e: re=0
7  : if d(i) >= 128 then re=1: d(i)=d(i)-128
8  : if d(i) <  32                 then cc(j) = d(i)+64
9  : if d(i) <= 63  and d(i) >= 32 then cc(j) = d(i)

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;

tomaes

(**************************************************
 ***            P A C K - M A N N               ***
 ***       (W) 1989 by G. Brinkmann             ***
 ***  MS-DOS, Turbo Pascal 4.0/5.0, 06.04.1989  ***
 **************************************************)

{ Revised & extended version 2.0 in April/May 2020 by tomaes
  NEW in this edition:  
        - source & game translation (German->English),
        - code clean-up, structual improvements & fixes

tomaes

program Hz; {sound micro game; 2020-5-4}
uses crt;
var f,q,p,r: integer; s: string;
begin
 clrscr;
 writeln('Guess My Frequency (20-2000Hz)');
 randomize;
 r := 0; s := '';
 repeat
  f := random(1980)+20;

tomaes

program PlayAMDdump;
(* adlib player lib by conqueror in '96            *)
(* song and array player hack by tomaes in '20 :)  *)
uses CRT;

{$F+}
{$L amdobj.obj}
procedure _AdlibPlayer; near; external;
procedure _StopAdlib;   near; external;
procedure _InitAdlib;   near; external;