0 'INSIDE.BA - Bill Templeton 10-15-86
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@14,R$" INSIDE.100 "N$:PRINT@83,"1 = Convert from Decimal to Hex
3 PRINT@123,"2 = Convert from Hex to Decimal
4 PRINT@201,"Press "R$"<ENTER>"N$" if in 1 or "R$"<ESC>"N$" if in 2  at first prompt to return to this Menu
5 Q$=INPUT$(1):IFINSTR("1",Q$)THENPRINT@116,Q$:GOTO6ELSEIFINSTR("2",Q$)THENPRINT@156,Q$:GOTO17ELSEMENU
6 CLS:X=0:PRINT@41,R$" Decimal # (-65536 to +65535) "N$;:INPUTX:IFX=0THEN2
7 IFX<-65536THENBEEP:PRINT@122,"Input must be greater than -65537!";:Q$=INPUT$(1):GOTO6
8 IFX<0THENX=65536+X
9 IFX>65535THENBEEP:PRINT@122,"Input must be less than 65536!";:Q$=INPUT$(1):GOTO6
10 A=INT(X/4096):A$=CHR$(A+55):AA=X-(A*4096):B=INT(AA/256):B$=CHR$(B+55):BB=AA-(B*256):C=INT(BB/16):C$=CHR$(C+55)
11 D=BB-(C*16):D$=CHR$(D+55):PRINT@85,"Hexidecimal (HHLL) = ";:IFA>9THENPRINTA$;ELSEPRINTUSING"#";A;
12 IFB>9THENPRINTB$;ELSEPRINTUSING"#";B;
13 IFC>9THENPRINTC$;ELSEPRINTUSING"#";C;
14 IFD>9THENPRINTD$ELSEPRINTUSING"#";D
15 L=X-(INT(X/256)*256):PRINT@127,"Low order  (LL)  =";L:H=INT(X/256):PRINT@167,"High order (HH)  =";H
16 PRINT@241,R$L"+ (256 *"H;CHR$(8)") = "N$" "L+256*H;:PRINT@304,"Go again (Y/N?)";:Q$=INPUT$(1):IFINSTR("yY",Q$)THEN6ELSEMENU
17 CLS:PRINT@81,R$" Hexidecimal #:"N$" ";:A$=INPUT$(1):IFA$=CHR$(27)THEN2ELSEPRINTA$;
18 IFASC(A$)>47ANDASC(A$)<58ORASC(A$)>64ANDASC(A$)<71THEN19ELSE32
19 IFASC(A$)>47ANDASC(A$)<58THENA=ASC(A$)-48
20 IFASC(A$)>64ANDASC(A$)<71THENA=ASC(A$)-55
21 B$=INPUT$(1):PRINTB$;:IFASC(B$)>47ANDASC(B$)<58ORASC(B$)>64ANDASC(B$)<71THEN22ELSE32
22 IFASC(B$)>47ANDASC(B$)<58THENB=ASC(B$)-48
23 IFASC(B$)>64ANDASC(B$)<71THENB=ASC(B$)-55
24 C$=INPUT$(1):PRINTC$;:IFASC(C$)>47ANDASC(C$)<58ORASC(C$)>64ANDASC(C$)<71THEN25ELSE32
25 IFASC(C$)>47ANDASC(C$)<58THENC=ASC(C$)-48
26 IFASC(C$)>64ANDASC(C$)<71THENC=ASC(C$)-55
27 D$=INPUT$(1):PRINTD$:IFASC(D$)>47ANDASC(D$)<58ORASC(D$)>64ANDASC(D$)<71THEN28ELSE32
28 IFASC(D$)>47ANDASC(D$)<58THEND=ASC(D$)-48
29 IFASC(D$)>64ANDASC(D$)<71THEND=ASC(D$)-55
30 X=A*4096+B*256+C*16+D:PRINT@165,R$" Decimal #:"N$X"  or   "X-65536
31 PRINT@304,"Go again (Y/N?)";:Q$=INPUT$(1):IFINSTR("yY",Q$)THEN17ELSEMENU
32 BEEP:PRINT@160,"Input must be between 0 and F (CAPS ON!)":Q$=INPUT$(1):GOTO17