1 GOTO5 2 P=P+1:T=MID$(S,P,1):IFT=""THENREADS:P=0:GOTO2ELSERETURN 3 IFT<"A"THENQ=VAL(T):RETURNELSEQ=ASC(T)-55:RETURN 4 GOSUB2:GOSUB3:R=Q:GOSUB2:GOSUB3:H=R*16+Q:RETURN 5 CLS:CLEAR256,HIMEM-318:DEFSTRA,S,T:DEFINTL,H,P-R:X=HIMEM:PRINT@45,"Loading....":PRINT@85,"Press CTRL A to exit":FORI=XTOX+318:GOSUB2:IFT<>"?"THENP=P-1:GOSUB4:POKEI,H:GOTO8 6 GOSUB4:L=H:GOSUB4:Y=L+256*H+X:IFY>=65536THENY=Y-65536 7 H=INT(Y/256):L=Y-256*H:POKEI,L:I=I+1:POKEI,H 8 NEXT:CALLX:CLEAR256,X+318:MENU:DATACD48453E0032?5F00CD?3E003E2832?5F00CD?3E003E5032?5F00CD?3E003E7832?5F00CD?3E003EA032?5F00CD?3E003EC832?5F00CD?3E00CD427 9 DATA2FE01C90000C3?000021?600056235E7E23FEFFC83A?5F008257E5CD4C74E111FF021B7AB3C2?5600C3?410000002B002C002D011C011D011E011F:DATA0120012101220123012401250126012701280129012A020F0210021102120213021402150216021702180219021A021B0319031A031B031C031D031E 10 DATA031F0320032103220323032403250326042704280429042A042B052C052D062C072C072D072E0829082A082B0926092709280A240A250B260B270B28:DATA0C290C2A0C2B0D2C0D2D0E2B0F2C0F2D102C112D112E122B122C132C142D152C162D162E172C182D192C1A2D1B2C1C2D1C2E1D2E1D2F1E2C1E2D1F2B 11 DATA1F2C202D202E212D222D222E232C242B252C252D262D262E272CFFFF000000