|
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 - download
Length: 1024 (0x400)
Types: TextFile
Names: »TICKLE.NDX«
└─⟦96695c514⟧ Bits:30005859 DBase II og SuperCalc2
└─⟦this⟧ »TICKLE.NDX«
▶01◀▶02◀▶08◀ 2$(TKL:DATE,7,2)+$(TKL:DATE,1,2)+$(TKL:DATE,4,2))M▶1c◀+/2åW2▶16◀X2vW2▶0f◀X2▶1b◀X2xW!:+▶01◀0▶01◀MO Mselect * erase the error message line. just in case one was printed @ 20,0 @ 21,0 DO CASE▶04◀▶04◀111111▶02◀830310▶03◀830315▶01◀830331▶02◀SAMPLES 830225y the keyword then date of entry * RECALL.ndx - $(rcl:date,7,2)+$(rcl:date,1,2)+$(rcl:date,4,2) * places file in chronological order by recall date ** ** ** ** ** ** ** ** Begin command file ** clear set ▶03◀▶02◀830310▶03◀830315▶01◀830331▶01◀830331▶02◀SAMPLES 830225y the keyword then date of entry * RECALL.ndx - $(rcl:date,7,2)+$(rcl:date,1,2)+$(rcl:date,4,2) * places file in chronological order by recall date ** ** ** ** ** ** ** ** Begin command file ** clear set talk off * Load the date test routine into memory and set the call address LOAD datetest SET CALL TO 42240 ERASE * Read the current date, then set the system date STORE ' / / ' TO tmp:date DO WHILE DATE()