PRINT
PRINT "// dECODE cMOD pASSWORD uTILITY r0.9A"
PRINT "// 09/11/1999 by vivi@SCUM studio"
PRINT
PRINT " your cmos password may be: ";
OUT &H70, 28
p = INP(&H71)
OUT &H70, 29
q = INP(&H71)
x = 16 ^ 2 * q + p
i = 0: j = 0: n = 0
130 y = x + i * 65535
140 z = INT(3 * y / (4 ^ (n + 1) - 1))
IF z <= 126 THEN 190
n = n + 1
IF n < 8 THEN 140
180 i = i + 1: j = 0: n = 0: x = 16 ^ 2 * q + p: GOTO 130
190 IF z < 32 THEN 180
a(j) = z: j = j + 1: a = y - z * 4 ^ n
IF a = 0 THEN 230
n = n - 1: y = a: GOTO 140
230 FOR k = 0 TO j
PRINT CHR$(a(k));
NEXT
PRINT "[end]"
PRINT
PRINT "- dONE -"
PRINT
END