View whatletteristhateven.bas
0 graphic3,1:m=999:do:c$=chr$(rnd(1)*26+65):char,rnd(1)*40,rnd(1)*25,c$:s=s+t*r | |
1 r=r+1:t=400-r*5:do:geta$:t=t-1:s=s+(a$<>c$)*m-(a$="")*m:loopwhilea$<>c$andt>. | |
2 loopwhilea$=c$:graphic.,1:print"#"r"score:"s"letter:"c$:ifr>49thenprint"wow!" |
View sidtest.comal
auto 100,4 | |
// SID test mini | |
// in COMAL-80 | |
// ---------- | |
// procedures | |
// ---------- | |
proc wait(count) |
View colaconvert.bas
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) |
View lasercannon.bas
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 |
View countrypop.plus4.bas
0 rem _,/'%%&&&&&&&&&&&&&&&&&%%'\__ | |
1 rem ((_country pop plus/4 version_)) | |
2 rem \_\%%%%%%%%%%%%%%%%%%%%%%%/_/ | |
7 : : | |
8 : v$ = "v1.2f, May/June 2020" : | |
9 : : | |
10 rem init ''''''''''''''''''''''; | |
11 vol 5: n=20 | |
12 dim c$(n),c(n),hi$(6),di(6) | |
13 dim ac$(n),ao$(n),ap(n),aa(n) |
View nnjblitz.pas
{ | |
Ninja Blitz | |
A spin on city bomber games | |
for 1980s era 16 bit DOS PCs | |
designed & written by | |
Thomas "tomaes" Gruetzmacher | |
in May 2020 |
View 1bpp_txtrle.pas
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; |
View hz.pas
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; |
View packmann.pas
(************************************************** | |
*** 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 |
View dotvszero.bas
10 rem p=. vs p=0 results: | |
11 rem plus4 : 16% | |
12 rem pet : 19% | |
13 rem c64 : 20% | |
14 rem vc20 : 22% | |
15 : | |
20 t=ti | |
21 for i=0 to 499: p=0: next | |
22 a=ti-t | |
23 print "p=0 :";a |
NewerOlder