DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

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

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦4a22968c0⟧ TextFile

    Length: 502 (0x1f6)
    Types: TextFile
    Names: »bdata.cmd«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─⟦this⟧ »EUUGD11/euug-87hel/sec1/uEmacs/bdata.cmd«

TextFile

;Create a block of DATA statements for a BASIC program
; within MicroEMACS 3.8

	insert-string "1000 DATA "
	set %linenum 1000

*nxtin
	update-screen		;make sure we see the changes
	set %data @"Next number[0 to end]: "
	!if &equal %data 0
		!goto finish
	!endif

	!if &greater $curcol 60
		2 delete-previous-character
		newline
		set %linenum &add %linenum 10
		insert-string &cat %linenum " DATA "
	!endif

	insert-string &cat %data ", "
	!goto nxtin

*finish

	2 delete-previous-character
	newline