home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1989 May / Antic_Magazine_1989_05_Antic_Side_A.atr / dec < prev    next >
Text File  |  2023-02-26  |  896b  |  1 lines

  1. CLOSE #1:CLR :DN=PEEK(769)¢DIM DN$(6),ZZ$(16),Z$(5),Z(4):OPEN #1,4,0,"K:":? "}Enter Decimal Number up to 65535"¢? "£":DN$="D1:DEC":DN$(2,2)=STR$(DN)¢? "£":FOR I=1 TO 4:Z(I)=0:NEXT I:ZZ$="0123456789ABCDEF"¢? "£":FOR I=1 TO 5:GET #1,Z:IF Z>47 AND Z<59 THEN ? CHR$(Z);:Z$(I,I)=CHR$(Z):NEXT I:CLOSE #1¢? "}":Z=VAL(Z$):FOR I=1 TO 4:Z(I)=0:NEXT I¢? "}":ZZ=INT(Z/4096):IF ZZ>0 THEN Z(1)=ZZ:Z=Z-4096*ZZ¢? "}":ZZ=INT(Z/256):IF ZZ>0 THEN Z(2)=ZZ:Z=Z-256*ZZ¢? "}":ZZ=INT(Z/16):IF ZZ>0 THEN Z(3)=ZZ:Z=Z-16*ZZ¢? "}":Z(4)=Z¢? "£DECIMAL ";Z$;" = ";:FOR I=1 TO 4:? ZZ$(Z(I)+1,Z(I)+1);:NEXT I:? " HEX"¢? "£Press SPACE BAR to Continue,":? "H to Convert HEX Numbers,":? "Any other Key to Quit.":CLOSE #1¢? "£":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=72 THEN DN$(4)="HEX":ENTER DN$¢IF Z=32 THEN ENTER DN$¢əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə