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

⟦6cfa3314f⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »SPIL.SCL«

Derivation

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─ ⟦this⟧ »SPIL.SCL«

TextFile

; Kurt Fleckner 6. juli 1985
;
;  HØJ LAV spil
;  ============
;
høj_lav hvis 
     skriv('Høj-Lav spil. Gæt et tal på færrest forsøg.'),
     nylinie,
     tilf_tal(KODE) og 
     find_een(int(Antal_gæt),skriv('Et tal mellem 0 og 99 (eller stop) ? '),
     læs(Gæt) og test_gæt(KODE,Gæt,Antal_gæt)).
vælg_een test_gæt
  test_gæt(Kode,Gæt,Gange) hvor 
       heltal(Gæt) og 
       Kode = Gæt hvis 
       Z = værdi_af(Gange+1),
       skriv('Du gættede det på',Z,'gæt') og 
       nylinie.
  test_gæt(Kode,Gæt,Gange) hvor 
       heltal(Gæt) og 
       Kode < Gæt hvis 
       skriv('For højt'),
       nylinie og 
       falsk.
  test_gæt(Kode,Gæt,Gange) hvor 
       heltal(Gæt) og 
       Kode > Gæt hvis 
       skriv('For lavt'),
       nylinie og 
       falsk.
  test_gæt(Kode,Gæt,Gange) hvor 
       Gæt = stop hvis 
       skriv('Tallet var ',Kode).
slut.
; Reglen genererer pseudotilfældige tal
; Det forudsættes, at der er en generator regel
tilf_tal(Tilf) hvis 
     glem(generator(X)),
     Tilf = værdi_af(((42*X) mod 101)-1),
     Ny_X = værdi_af((42*X) mod 101) og 
     husk(generator(Ny_X)).
int(0).
int(N) hvis 
     int(M) og 
     N = værdi_af(M+1).
generator(45).
«eof»