REM Dosver
REM Blackmedia 51

 DEFINT A-Z
 REDIM dosver(1 TO 13)
 DEF SEG = VARSEG(dosver(1))
 address = VARPTR(dosver(1))

 FOR i = 0 TO 24
    READ a
    POKE address + i, a
 NEXT: CLS
 
 CALL absolute(version, address)
 PRINT USING "Dos Version = #.## "; version / 100
 END

 DATA 139,220
 DATA 139, 119, 4
 DATA 180,48
 DATA 205,33
 DATA 50,255
 DATA 138,220
 DATA 152
 DATA 177,100
 DATA 246,225
 DATA 3,195
 DATA 137,4
 DATA 202,2,0