|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 960 (0x3c0)
Types: TextFile
Notes: Mikados_K
Names: »FORMULA.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »FORMULA.K«
PROGRAM FORMULAR;
PROCEDURE FL(FLE:INTEGER);
BEGIN
OUT80(84,24);
OUT80(85,FLE+64);
WHILE IN80(86,64)<>0 DO WRITE('Q');
OUT80(86,1);
OUT80(86,0)
END;
PROCEDURE FF;
BEGIN
WHILE IN80(86,64)<>0 DO;
OUT80(85,192);
OUT80(85,64)
END;
BEGIN
FL(9);
WRITE(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');
WRITELN(LIST);
WRITE(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');
WRITELN(LIST);
WRITE(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');
WRITELN(LIST);
WRITE('FORMULAR-INITIERING AFSLUTTET');WRITELN
END.