DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦62adbbf21⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »SIERP21.MYR«

Derivation

└─⟦0d02879d3⟧ Bits:30004605 COMPAS Pascal version 3.03
    └─ ⟦this⟧ »SIERP21.MYR«

TextFile

husk c(i,h) 
hvis i>0 så                                                           
  c i-1,h; setv 135; frem h;  
  d i-1,h; setv 180; frem 2*h;  
  b i-1,h; setv 225; frem h;  
  c i-1,h;  
hertil slut 
 
husk d(i,h) 
hvis i>0 så                                                           
  d i-1,h; setv 45;  frem h;  
  a i-1,h; setv 90;  frem 2*h;  
  c i-1,h; setv 135; frem h;  
  d i-1,h;   
hertil slut 
 
 
 
 
 
 
 
«eof»