Acorn Atom Emulator

100CLEAR 0;DIM Q 200;?#E1=0
 110F.I=0TO24S.4;I!Q=0;N.;F=Q+12;V=F+6;A=#80
 120Q!30=#4F5B063F;Q!34=#77D6D66;Q?38=#7F;Q?39=#6F
 130U=#8000;J=#C0C0C0C0
 140F.I=#80A0TO#813FS.4;!I=J;N.
 150F.I=#8180TO#81BFS.4;!I=J;N.;J=#4C4C4C4C;K=#70707070
 160F.I=0TO31S.4;I!U=J;I!#8060=K;I!#81E0=J;N.
 170H=23;M=59;S=56;D=31;N=12;Y=1999
 180GOS.t;R=A?3;WAIT;GOS.t;R=(R<>A?3);IFR GOS.i
 190X=5;Z=0;O=1;P=-(H>11);GOS.p
 200DOGOS.w;GOS.i
 210B=2;GOS.l;B=S&1;GOS.b
 220P.$30'D" "N" "Y" "W
 230U..
 240END
 250 
 260iIFR G.c
 270S=(S+1)%60;IFS>0R.
 280M=(M+1)%60;IFM>0R.
 290H=(H+1)%24;IFH=12P=1;GOS.p
 300IFH>0R.
 310P=0;GOS.p
 320D=D%31+1;IFD>1R.
 330N=N%12+1;IFN>1R.
 340Y=(Y+1)%9999;R.
 350 
 360cH=?A;M=A?1;S=A?2
 370GOS.d;D=?A;N=A?1;Y=A?2
 380W=C;Y=Y+W/8*100;W=W&7;R.
 390 
 400lE=H%12;IFE=0E=12
 410?F=E/10;F?1=E%10;F?2=M/10;F?3=M%10
 420F?4=S/10;F?5=S%10;F.P=0TO5;GOS.s;N.;R.
 430 
 440sL=V?(F?P+12);IFP=0AND?F=0L=0
 450E=V?P;IFE=L R.
 460E=E:L;V?P=L
 470MOVE(P/B*22+P&1*10-2),32
 480PLOT(E&1*B),X,Z;PLOTZ,O,-O;PLOT(E&B),Z,-X;PLOTZ,Z,-(O+1)
 490PLOT(E/B&B),Z,-X;PLOTZ,-O,-O;PLOT(E/4&B),-X,Z;PLOTZ,-O,O
 500PLOT(E/8&B),Z,X;PLOTZ,Z,(O+1);PLOT(E/16&B),Z,X
 510PLOTZ,O,-(X+1);PLOT(E/32&B),X,Z;R.
 520 
 530bE=#FC-B&1*60;?#80C8=E;?#80D3=E
 540E=#CF-B&1*15;?#8108=E;?#8113=E;R.
 550 
 560p?#813E=P&1*15+1;?#813F=13;R.
 570 
 580wIFR=0F.I=1TO55;WAIT;N.;R.
 590DOGOS.t;U.S<>A?2;R.
 600 
 610dC=#B1;G=3;GOS.g;R.
 620 
 630tC=#B0;G=3
 640 
 650gK=#B400;?K=C;?K=32;F.I=0TOG;C=K?2
 660A?I=C/16*10+C&15;N.;R.
 670 
 999 END
9000 
9010;BANNER DATA
9020 
9030#DFFACA507F7A20DFFACA554B
9040#5F20FFEA457F7020FF20205F
9050#7A4AC5FFF0207F59FCF8E820
9060#7C6820F4ECE0547C5420FCE8
9070#507C4C20FCCC20746C60D0FC
9080#CC207C54
9090 
9100;FONT DATA
9110 
9120#0006646BBB606E66F0E36CF0
9130#E363E07BF330FCE3E07CED60
9140#F36CC06D6D606B73E06DDFD0
9150#EDEDE07CCC70EDDDE0FCECF0
9160#FCECC07CDD70DDFDD0666660
9170#733B60DEDDD0CCCCF09FFDD0
9180#9DFFD06DDD60EDDEC06DDF70
9190#EDDED07C63E0F66660DDDD60
9200#DDD7209DFF50D6DDD0DDF660
9210#F36CF0
9220 
9230"JAN,FEB,MAR,APR,MAY,JUN
9240"JUL,AUG,SEP,OCT,NOV,DEC
9250 
9260"MON,TUE,WED,THU
9270"FRI,SAT,SUN
9280 
9999 END