|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »BRLIST.MEN«
└─⟦9ce103deb⟧ Bits:30005828 EDB-brugerskema
└─⟦this⟧ »BRLIST.MEN«
▶e1◀▶a0◀▶a0◀▶a0◀ ▶e1◀▶a0◀▶a0◀▶a0◀ ▶ee◀▶a0◀ ▶e1◀▶a0◀▶a0◀▶a0◀ ▶ee◀▶a0◀▶a0◀ ▶ee◀▶a0◀▶a0◀ ▶ee◀▶a0◀▶a0◀ ▶ee◀▶a0◀▶a0◀ ▶ee◀▶a0◀▶a0◀▶7f◀% ▶e1◀▶7f◀%▶a0◀ ▶e1◀▶7f◀%▶a0◀ ▶e1◀▶7f◀%▶a0◀ ▶e1◀▶7f◀%▶a0◀▶7f◀&
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
▶7f◀p
'21's=201, .gem antal forekomster i listen
'9's'B R U G E R E :', .udskriv tekst på printer
'3's'10r1', .linieskift
'9's'-----------------------------',
'3's'10r2', .linieskift
'LOC ANSV AFD INIT ØS PRO S/O RES PLS ANLÆGSNR:'=209,
'9'S209,'3'S'10R1',
'6's .rewind pointer i listen-start=1
'0'=202, .nulstil linie-tæller
!, .start loop
201-'1'=+, .hvis ikke negativt, så
'3,2,1,6,30,31,32,33,34,26,27,28,29'c=1=2=3=4=5=6=7=8=9=10=11=12=13,
'23's, .udskriv skærmbilled på printer
d, .flyt pointer til næste dokument
201-'1'=201, .tæl 1 ned
'1'+202=202, .tæller for printet linie
'60'-202=-, .hvis antal printede linier > 60, så
'3's'12r1', .form feed
'0'=202, .nulstil linie-tæller
'9's'B R U G E R E :', .udskriv tekst på printer
'3's'10r1', .linieskift
'9's'-----------------------------',
'3's'10r2', .linieskift
'9's209,
'3'S'10R1',
;, .endif
<, .gå til start loop
;, .endif
'3's'12r2', .form feed
'-8'=> .hop ud til vista-menu
Ø
«eof»