= VERSION 1.2, MASTER AND 2MEG128 COMPATIBLE (C) STL 1987 7:=P+&4200  SORT=1 (-dirbuf=P:osw=&70:romtab=&2A1:ramsw=&FE32 < *DIR R F 1,10) P5I%=12:132,157,130,141: 10)"PLEASE WAIT...": Z: d init n xcase=0:P%=0:Q%=0 drive(0):drive(2):IR%=R%  SORT sort display case k case=1:0,23)"To WRITE PROTECT: close WR/P switch then press when ready "A$:?&FE4E=127:!-4  : init GRom$(15),Fn$(62),K%(16),S%(62),D%(62),U%(62),block% &20,data% &200 Fn$(0)="Ram-disk" ass: RAM 4I%=015:K%(I%)=romtab?I%:: ** ROM/RAM type ** st%=0:P%=0:Q%=0:S%=0 title  : : " drive(DR) #*block%!9=0:block%!1=data%:block%!5=100 $oscli("DIR :"+DR+".R") %(A%=8:X%=block% 256:Y%=block% 256 &&FFD1:Q%=100-block%!5 ' Q%=0 ( B%=data% ) A%=1 Q% *Fn$(A%+P%)=":"+DR+".R." + C%=1 ?B% ,"Fn$(A%+P%)=Fn$(A%+P%)+(B%?C%) - C% . B%=B%+C% / A%:P%=P%+Q%:Q%=0 0 1 2 title 3 *DR.0 4 ?block%=0 5block%!1=data% 6(A%=5:X%=block% 256:Y%=block% 256 7 &FFD1 8 Title$="" 9/ ((data%?11) &F0)=&C0 lim%=7 lim%=11 : A%=1 lim% ;Title$=Title$+(data%?A%) < = :  ݤrom * romtab?I%>1:?&81=I%: Rtitle:=$Title & K%(I%):="+ " 0=" " :: D sort N K%=0 X bs%=0:K%=K%+1 lI%=1P%+Q%-K% v Fn$(I%),6)>Fn$(I%+1),6) TEMP$=Fn$(I%):Fn$(I%)=Fn$(I%+1):Fn$(I%+1)=TEMP$:TS%=S%(I%+1):S%(I%+1)=S%(I%):S%(I%)=TS%:TS%=D%(I%+1):D%(I%+1)=D%(I%):D%(I%)=TS%:TS%=U%(I%+1):U%(I%+1)=U%(I%):U%(I%)=TS%:s%=1  :s%=0  :  print 1": T(ype) D(ump) C(ancel) "+Fn$(G)+"?";:A$=  A$="T":T$="TYPE ":dFB  A$="D":T$="DUMP ": : K:131:"Press ";:136:"Shift ";:137:"key to continue":14: tV@ oscli(T$+Fn$(G)) "Press any key";:*FX15,1  X=:15: :  display  bf=::*FX200 :  132,157,130, *& 3)"SIDEWAYS FIRMWARE INSTALLED" 4: >I%=015:Rom$(I%)=rom H K%=I%:I%>9K%=K%+7 R 130(K%+48)131Rom$(I%);: \: f bf:tDC p8R%=0:Box=0: I=15 0 -1: romtab?I=1:R%=R%+1:Box=I z .132,157,130: R%;" Rambank";: R%:"s"; " available, marked '+'" :  T$=Title$  I%=12 132,157,130,141  16-(((T$)/2)))T$:  132,157,130: 5I%=1 P%+Q%: 130;(I%+64);131;Fn$(I%),6);: 731,0,+1,132,157,130:"Enter letter ";:CX%=:CY%=  *FX15,1 B=Box+48: B>9+48:B=B+7 A3,9)"Bank ";B;" is being selected, <= => ? * ":31,CX%,CY% G=-63:G>=-21G-1 J<16: romtab?J: romtab?J<3:Box=J:J=16 J<0 J>15 =Box  ass PASS=033  *FX3,6 (P%=P+&4000 2 [OPT PASS <.stldisc BRK F .writeram PLDA #P 256 Z STA&86 dLDA#P 256 n STA&85 x LDA#&80  STA&84  LDA#&00  STA&83 JMP readwrite  .MMOVE  LDA#&80  STA&86 LDA #0:STA &85 LDA #P 256  STA&84 LDA#P 256  STA&83 .readwrite  LDY#0  LDA&F4  STA&82 " LDA&81 , STA&FE30 1 STA ramsw 6 STA &F4 @ LDX#&40 J.MLP TLDA(&85),Y ^STA(&83),Y hINY r BNE MLP | INC&84  INC&86 DEX  BNE MLP  STX&80  LDA&82  STA&FE30  STA &F4 RTS .RAM LDA&F4:PHA  LDX #15  .ramlp JSR testram BNE nxtRAM  LDA #1 STA romtab,X & .nxtRAM 0DEX : BPL ramlp DPLA N STA &F4 X STA &FE30 bRTS l .testram mLDA &2A1,X n #2:BEQ P%+3 oRTS vSEI STX &F4:STX &FE30  LDA &BFFF  STX ramsw  #&FF  STA &BFFF  STX &FE30  CMP &BFFF BNE test_ex  #&FF  STX ramsw  STA &BFFF  STX &FE30  CMP &BFFF  .test_ex  CLI RTS  .Rtitle * LDA &F4 4 STA &82 > LDA&81 H STA &FE30 R LDX#0 \.HLP fLDA &8009,X p BEQ HLP1 zSTA Title,X INX  CPX#7  BNE HLP .HLP1 LDA#&20 STA Title,X INX  CPX#8  BNE HLP1 DEX  LDA#13 STA Title,X  LDA &82  STA &FE30 RTS  .Title #BRK:BRK:BRK:BRK:BRK:BRK:BRK:BRK $] . 8*FX3 B L ݤmove VW" From SWR box number?(0 to F):";::I%=-48: I%>=0 I%<23:I%+48: I%>9 I%=I%-7 `/:129:"SAVING ";Rom$(I%):?&81=I%: MMOVE j:L=0:T$=""::L=L+1:L$=Rom$(I%),L,1): L$<>" " T$=T$+L$ tc L>Rom$(I%):L$=~P:?(P+9)=?(P+&2009) L$=L$+" +2000 D9CD 8000": L$=L$+" +4000 D9CD 8000" ~A$="*SAVE "+T$+" "+L$ oscli(A$) =?&80 oscli(z$) $&700=z$:X%=0:Y%=7: &FFF7: