PROC dli1()››  [PHA]›  chbase=$E0     ;go back to ROM set›  [PLA RTI]›RETURN›››PROC DliSetup()›           ›BYTE ARRAY temp››  nmien=192      ;enable interrupts›  temp=sdlstl    ;switch sets at›  temp(14)==+128 ;text window›  sdmctl=0›  vdslst=dli1    ;call interrupt›  sdmctl=34   ›RETURN›                                ››PROC TitleScreen()›                                 ›  Graphics(2)   ;all this work to get›  DliSetup()    ;upper and lower case›  color2=0      ;in Graphics 2!!›  crsinh=1›  lmargn=0›  RamSet=(memtop-$400)&$FC00›  chbas=RamSet RSH 8›  memtop=RamSet›  MoveBlock(RamSet,$E200,512)›  MoveBlock(RamSet,$E000,8)›  MoveBlock(RamSet+8,$E100+24,8)›  MoveBlock(RamSet+40,$E100+32,8)›  MoveBlock(RamSet+24,$E100+152,8)›  MoveBlock(RamSet+32,$E100+168,8)›  rowcrs=3 ›  colcrs=5›  PrintDE(6,"!HARACTER")›  PrintDE(6,"      #ET")›  PrintDE(6,"       %ISPLAY")›  PrintDE(6,"        $TILITY")›  txtrow=0›  txtcol=0›  PrintE("           by Dave Arlington")›  PrintE("     (c) 1989 for ANALOG Computing")›  PrintE("")›  Print("  Insert Disk with Fonts, Press ÓÔÁÒÔ")›  DO ›  UNTIL consol=START OR strig0=0  ›  OD›RETURN›››PROC StashFile(BYTE filenum, col, row)››  BYTE index,cnt,temp›            ›  index=(filenum-1)*8›  FOR cnt=index TO index+7›  DO›    temp=Locate(col,row)&$7F›    IF temp#32 THEN›      fnames(cnt)=temp›    FI›    col==+1›  OD›RETURN›››PROC MarkFile(BYTE col, row)››  BYTE mark,letter››  mark=Locate(col,row)›  IF mark=32 THEN›    letter=Locate(col+1,row)›    IF letter#160 THEN›      selfiles==+1›      IF selfiles<=7 THEN ›        color=20›        Plot(col,row)›      ELSE›        selfiles=7›      FI›    FI›  ELSEIF mark=20 THEN›    selfiles==-1›    color=32›    Plot(col,row)›  FI›RETURN›››PROC ClearScreen()››  BYTE crow, ccol, cnt›          ›  color=32›  FOR crow=1 TO 20›  DO             ›    FOR cnt=0 TO 3 ›    DO›      FOR ccol=cnt*10 TO 8+cnt*10›      DO›        Plot(ccol,crow)›      OD›    OD›  OD›RETURN›››PROC pauz(CARD tim)›                  ›  CARD cnt››  FOR cnt=1 TO tim DO OD›RETURN›› ›PROC FlipFont(BYTE col,row)››  BYTE cnt, letter, let›                       ›  let=Locate(col,row)›  FOR cnt=0 TO 7›  DO›    IF let#32 THEN›      letter=Locate(col+cnt,row)›      IF letter#32 THEN›        colcrs=col+cnt›        Put(letter!$80)›        colcrs=col+cnt+1›      FI›    ELSE›      colcrs=col+cnt›      Put(let!$80)  ›      colcrs=col+cnt+1›    FI›  OD›RETURN›››PROC SelectFiles()››  BYTE oldrow, oldcol, mark          ›  INT  row, col, delay››  ch=255                 ›  selfiles=0›  rowcrs=22›  colcrs=1›  SetBlock(fnames,56,32)›  Print("ÓÐÁÃÅ to view fonts ")›  Print("/ ÒÅÔÕÒÎ New Disk")›  row=1›  col=1›  FlipFont(row,col)›  DO     ›    IF consol=SELECT OR (stick0&2)=0 THEN›      pauz(2500)›      oldrow=row›      oldcol=col›      row==+1›      IF row>20 THEN›        row=1›        col==+10›        IF col>31 THEN›          col=1›        FI›      FI›      FlipFont(oldcol,oldrow)›      FlipFont(col,row)›    FI›    IF consol=OPTION OR (stick0&1)=0 THEN›      pauz(2500)›      oldrow=row›      oldcol=col›      row==-1›      IF row<1 THEN›        row=20›        col==-10›        IF col<1 THEN›          col=31›        FI›    FI›      FlipFont(oldcol,oldrow)›      FlipFont(col,row)›    FI›    IF (stick0&4)=0 THEN›      pauz(2500)›      oldrow=row›      oldcol=col›      col==-10›      IF col<1 THEN›        col=31›      FI›      FlipFont(oldcol,oldrow)›      FlipFont(col,row)›    FI›    IF (stick0&8)=0 THEN›      pauz(2500)›      oldrow=row›      oldcol=col›      col==+10›      IF col>31 THEN›        col=1›      FI›      FlipFont(oldcol,oldrow)›      FlipFont(col,row)›    FI›    IF consol=START OR strig0=0 THEN›      pauz(10000)›      MarkFile(col-1,row)›    FI›  UNTIL ch=12 OR ch=33 ›  OD›  IF ch=12 OR selfiles=0 THEN›    ClearScreen()›    rowcrs=22›    colcrs=1›    Print(" Insert Disk with Fonts,")›    Print(" Press ÓÔÁÒÔ ")›    DO ›    UNTIL consol=START›    OD›    ch=255            ›  ELSE›    selfiles=0›    FOR row=1 TO 20›    DO        ›      FOR col=0 TO 30 STEP 10›      DO›        mark=Locate(col,row)›        IF mark=20 THEN›          selfiles==+1›          StashFile(selfiles,col+1,row)›        FI›      OD›    OD        ›  FI                   ›RETURN›››PROC FileScreen()››  BYTE ARRAY name(20)›  BYTE cnt, row, col, numfiles››  Graphics(0)›  crsinh=1›  color2=$52›  color1=12›  PrintE("")›  FOR rowcrs=1 TO 20›  DO›    FOR colcrs=9 TO 29 STEP 9›    DO›      Put(124)›    OD›  OD›  rowcrs=21 ›  colcrs=0›  PrintE("
")›  PrintE("|                                     |")›  Print("")›  DO›    numfiles=0›    Close(1)›    Open(1,"D:*.FNT",6,0)›    row=1 col=1›    rowcrs=row colcrs=col›    DO›      InputMD(1,name,20)›      IF name(3)>64 THEN›        numfiles==+1›        FOR cnt=3 TO 10›        DO›          Put(name(cnt))›        OD›        row==+1›        IF row>20 THEN›          row=1›          col==+10›          IF col>31 THEN›            col=0›          FI›        FI›        rowcrs=row›        colcrs=col›      FI›    UNTIL icsta>$7F OR numfiles=80›    OD›    Close(1)›    SelectFiles()›  UNTIL ch=33›  OD         ›  ch=255›RETURN›      ›››