> ZXDisp 1.15 . Display screen from snapshot or raw file : () ctrl% 31,mem0% 2047,mem1% 255:in%=0 2! :Close_All::exit(): <$A$=OS_GetEnv:X%=ctrl%:Y%=X%256 F2A%=A$+" "," "):A%:in$=A$,A%-1):A$=A$,A%+1) P4A%=A$+" "," "):A%:addr$=A$,A%-1):A$=A$,A%+1) Z5in$="-?":"Syntax: ZXDisp ":exit(0): dAin$="":"Snapshot file: "in$:"Source screen address &"addr$ n.addr$="":addr%=&4000 addr%=("&"+addr$) x@in%=f_openin(in$): in%=0:"'"in$"' not found":exit(214): @9:base%=addr%+&100:((#in%)&FF)=&1B:base%=&1B+addr%-&4000  #in%<8192:base%=0 M#in%=base%+6144:attr%=#in%:border%=128+(((attr%8)*4)+((attr%48)2))8 border%: '''  third%=0 2 /f_gbpb(3,in%,mem0%,2048,base%+third%*2048) 2f_gbpb(3,in%,mem1%,256,base%+third%*256+6144)  line%=0 7: 4;  col%=0 31: 23,255  pixel%=0 7 & mem0%?(pixel%*256+col%+line%*32) pixel% attr%=mem1%?(col%+line%*32) Rattr%=((attr%1)*4)+((attr%6)2) + ((attr%8)*4)+((attr%48)2) + (attr%&C0) attr%7:128+(attr%&38)8 " 255: col% ,border%:7: 6 line%: third% @#in%:in%=0:os%>31: Jexit(0): T: ^Close_All:*EXEC h"in%=in%:in%:A%=in%:in%=0:#A% r |: !ݤf_openin(A$)=(f_name(A$)) Vݤf_name(A$):os%>31:A%,B%:B%=A%:A%=A$,"\",A%+1):A%=0:A$,".",B%)=0:A$=A$+"." =A$ : %f_gbpb(A%,chn%,addr%,num%,ptr%) ??X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF: &FFD1: A%=1A%=3:#?X%=X%!9 5:A%=1A%=2:#?X%,?X%!1 A%=3A%=4:?X%!1=#?X% 5X%!1=X%!1+1:X%!5=X%!5-1:(#?X% A%>2) X%!5<1: : BݤOS_GetEnv:A%,X%,Y%,P%,A$:X%=1:os%=((&FFF4)&FF00)256:X% d!=&D7C1C7C5:run$=ARGV$(0):ARGC:A%=1ARGC:A$=A$+ARGV$(A%)+" "::=A$,A$-1)!=&D7C1C7C5:="" _>&FFFFF:X%256:A$=@cmd$:ș"GetModuleFileName",0,X%,255:run$=$$X%:Y%=@lib$,@tmp$)=0:P%= P%=0:>&FFFF:run$=$&8100:ș"OS_GetEnv"A$,,A%:ș"OS_WriteEnv","",A%:A$=A$,1+A$+" "," ",1+A$," "))):P%=:Y%=:A$," ")=0:A$=run$+" " P%=0:P%=X%:[OPT 0:NOP:]:P%=?X%:Y%=:P%=&EAP%=18:A$=$&600 P%=0:A$=$(-&300)P%=&A0:A$=$(^@%-256):Y%=?(-2)64P%=&90:A$=$&100:Y%=!&200 KA$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1A%=A$+" "," ") &(Y%:run$=A$,A%-1):A$=A$,A%+1):Y%=0 0A$<>32:=A$ :: D&os(A$):A$=42:A$ A$<>"":A$ N X: bFexit(A%):"FX1,"+(A%255):quit$=quit$:A$=quit$:quit$="":os(A$) l>&FFFFF:Ș A% v : Win_TextIO 0ș "GetStdHandle",-10 @hfile%(1):*INPUT 13 1ș "GetStdHandle",-11 @hfile%(2):*OUTPUT 14 &ș "SetConsoleMode",@hfile%(1),0: :