home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / xdosextra.txt < prev   
Text File  |  2022-10-26  |  30KB  |  14 lines
  1. v~vwUR
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. xdosextra.txt{$60}  {$60}
  10.  b
  11.  
  12.  
  13.  
  14.  
  15.   {$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}
  16. {$fc}                                                                                                                     
  17. {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}
  18.  {$f1}{$e6}  {SHIFT-+}                                                                      {CBM--}e  p
  19.  
  20.   xdos -  i
  21. {CBM--}{CBM--}i
  22.    
  23.  s  s , s   
  24.  
  25.    s (
  26.  1, X a  rts)  r.{CBM--}{CBM--}$8011-$804       s
  27.   b                s
  28. {CBM--}{CBM--}$8011         length           lE  e   input{CBM--}$8012         pos             a p{CBM--}$8013         txtadr          a  t{CBM--}$8014         prslngth        l  s            prntstr{CBM--}$8015         prspos          a. p{CBM--}$8016         lastsc          l s/t         clclstsc{CBM--}$8017         chsm-trk        z . t    chsm-sr{CBM--}$8018         chsm-sctr                      s{CBM--}$8019          {CBM--}$801        *errflg          > 127: d f           dskerr{CBM--}{CBM--}b   X v   
  29.  {CBM--}E w %00001000   mX {CBM--}
  30.  s-f-w  ;  {CBM--} w ( 
  31.  %-z)   X {CBM--}  z.{CBM--}$801        *s-fw-seq        %00000001:  s              srchfw{CBM--}$801        *s-fw-prg        %00000010:  p{CBM--}$801        *s-fw-usr        %00000011:  u{CBM--}$801        *s-fw-rel        %00000100:  r{CBM--}$801        *s-fw-del        %00000111:  d{CBM--}{CBM--}fX    v  {CBM--}  w 0 
  32.  
  33.    
  34.  {CBM--}  z.{CBM--}$8020        *s-fw-pr         %01000000: p {CBM--}$8021        *s-fw-rw         %01000000: r/w  .{CBM--}$8022        *s-fw-op         %10000000: wfo  .{CBM--}$8023        *s-fw-cl         %10000000: c {CBM--}$8024         sfw-chflg       e (a ):{CBM--}                              $00: s p{CBM--}                              $7: ($01-$7) xd{CBM--}                              $: ($80-$) r{CBM--}                              d f    {CBM--}                              p
  35.  
  36.  E ; {CBM--}                               srchfw, srchfw-i2, {CBM--}                              srchfw-i4.{CBM--}$8025        *sfw-ftno         r: . f{CBM--}$8026        *dblockno         d-b    srchfile{CBM--}$8027        *dentryno         d-e{CBM--}$8028        *dfilnaml        l  d
  37. {CBM--}                              (*-j   
  38. E){CBM--}$8029        *dentrypos       p 
  39.  d-b  prdbuf{CBM--}$802        *track            t              -{CBM--}$802        *sector           s                   {CBM--}{CBM--}d  10 v    {CBM--}d xd p/d. . e  {CBM--} 
  40.  
  41.  w   b {CBM--}.{CBM--}$802        *drvno           l
  42.  
  43. : 0  1{CBM--}$802        *diskno          f-gE: 8  12{CBM--}$802        *printer         d: 1 = mps 801{CBM--}                                          2 = e{CBM--}                                          3 = u{CBM--}$802        *intrface        i: 1 = n{CBM--}                                            2 = c{CBM--}                                            3 = u{CBM--}$8030        *quality         dE: 0 = m{CBM--}                                           110 = nlq{CBM--}$8031        *pitch           d: 15 = c
  44. {CBM--}                                           77 = e{CBM--}                                           80 = p{CBM--}$8032        *chsm-flag       d : <> 0{CBM--}$8033        *prdevno         d gE: 4  5{CBM--}$8034        *sec-addr        d sE: 0  255{CBM--}$8035        *autolf          a l f: 10 = {CBM--}                                              0 = {CBM--}$8036        *frstlin          w-z (0-24)*** window{CBM--}$8037        *frstcol          w-s (0-39)***{CBM--}$8038         lastlin          w-z (0-24)***{CBM--}$8039         lastcol          w-s (0-39)***{CBM--}$803         charl            z               subwndw{CBM--}                               w-z{CBM--}$803         charm           
  45.  z{CBM--}$803         charr            z{CBM--}$803         xlin             w-z{CBM--}$803         xfcol            w-s{CBM--}$803         xlcol            w-s{CBM--}$8040         line             b
  46.      askmouse{CBM--}                               m{CBM--}$8041         col              s{CBM--}$8042         fncno            m.{CBM--}$8043         ofncno                {CBM--}$8044         mousepos        z X j{CBM--}$8045-$804    , X 
  47.  $ (nop){CBM--}$8050-$80    s X xdos-u{CBM--}$817-$820    s X  xdos-r{CBM--}               extdir      ex d{CBM--}               bam         b a m{CBM--}               hiddenfls   h f{CBM--}               chckdsk     c d{CBM--}               prfrm-t     p
  48.  t{CBM--}               rescratch   r{CBM--}               scrprtct    s p{CBM--}               dwrprtct    d w p{CBM--}               dadrchng    d a c{CBM--}               diskmenu    disk menu{CBM--}               prntmenu    p m{CBM--}               sys-set     s
  49.  s{CBM--}               goreset     q{CBM--}               gobasic     r  b{CBM--}               newdks      n.{CBM--}               dskname     d
  50.  c{CBM--}               chcksmdsk   <-  (p ){CBM--}               fileinf1{CBM--}               fileinf2    d
  51. {CBM--}                 ...{CBM--}               fileinf8{CBM--}               next        n{CBM--}               fileld1{CBM--}                 ...       p
  52.  
  53.  {CBM--}               fileld8{CBM--}               previous    p{CBM--}               chngclose   wfo/c-s E{CBM--}               chngprtct   r/w / p      {CBM--}               chng-dskn   d d       {CBM--}               dhng-drv    d d        {CBM--}               chng-pr     p d    {CBM--}               chng-lf     a l f      {CBM--}               gobreak     b{CBM--}{CBM--}$478-$    d{CBM--}$478         am-cnt{CBM--}$479         am-cnt-bu{CBM--}$47-$49   am-tbl1     64 b{CBM--}$4-$49   am-tbl2     64 b{CBM--}$4-$539   am-tbl3     64 b{CBM--}$53-$579   am-tbl4     64 b   , X E {CBM--}                                    v{CBM--}$57-$911   scrbuf      920 b{CBM--}$b912-$94   scrbuf2     195 b{CBM--}$95-$4   dirbuf      256 b{CBM--}$5-$4   blkbuf      256 b{CBM--}$5-$4   headbuf     256 b{CBM--}$5-$24   printbuf    80 b{CBM--}$25-$74   inpttext    80 b{CBM--}$75-$   hdnfls-ts   650 b{CBM--}$75-$   printbuf2   121 b{CBM--}$-$4   printbuf3   80 b{CBM--}$000-$    8 b-rom{CBM--}$000-$    4  s (ram){CBM--}$000-$    4 v-r
  54. {CBM--}$000-$    8 b
  55. -rom (k){CBM--}{CBM--}{CBM--}n  xdos-b
  56.  X  p
  57.  
  58. {CBM--}{CBM--}f m
  59.  
  60.      ,  xdos- b
  61. ,  f  d  d E, X  p
  62.  
  63.  . e  
  64.     r,   p
  65.    X w E . d a  (  v  p
  66. )  jsr $ . jmp (),  
  67.  a  k
  68.  
  69.   a .{CBM--}{CBM--}a  l      p
  70.                 w        {CBM--}($8000){CBM--}         (xdos ){CBM--}         d jmp ($8000)   xdos  ( {CBM--}          
  71.  r).{CBM--}{CBM--}($8002){CBM--}         (xdos 
  72. ){CBM--}         m jmp ($8002)  
  73.  (  
  74.  
  75.  {CBM--}         nmi)  xdos 
  76. .{CBM--}{CBM--}$8050    mmenu3{CBM--}         (rX 
  77.  h
  78. X  vE  {CBM--}         b
  79. ){CBM--}         e p
  80.  
  81. ,   f {CBM--}         (.b. n)   e (.. 
  82.  {CBM--}         m   E).{CBM--}{CBM--}$8053    gobasic{CBM--}         (rX  cbm-b){CBM--}         d v-c  X,  
  83.  r
  84. -{CBM--}         k    
  85.  b-w
  86.  {CBM--}         .{CBM--}{CBM--}$8056    goreset{CBM--}         (a   r ){CBM--}         i  s $8008   ascii-z <<7>> {CBM--}         , 
  87.    
  88.  r .{CBM--}{CBM--}$8059    rom-ram{CBM--}         (b-r
  89.  ){CBM--}         d Y  b 1-3  p ($01) {CBM--}          110    8k r
  90.   
  91.  b-r
  92.  {CBM--}         
  93. .{CBM--}{CBM--}$805    ram-rom{CBM--}         (
  94.  r
  95. -k ){CBM--}         d b 1-3  a 1   1 , 
  96.  {CBM--}          b $000-$  $000-$  r
  97.    {CBM--}         b $000-$  i/o  .{CBM--}{CBM--}$805    setcnsts{CBM--}         (n
  98.   d ){CBM--}          f s {CBM--}{CBM--}$8062    setmsvic{CBM--}         (p-k ){CBM--}         d z   
  99.  
  100.  h {CBM--}          
  101.  gV{$7c} .{CBM--}{CBM--}$8065    clcblkfre                           a,x{CBM--}         (a  b   d ){CBM--}         a  d 
  102.  headbuf   a   {CBM--}         b 
  103.   bam    a ()  x {CBM--}         () ;  z    a {CBM--}          d-bV!{CBM--}{CBM--}$8068    clcbusd                             a,x{CBM--}         (a  bV   d ){CBM--}          clcblkfre,     bV {CBM--}         .{CBM--}{CBM--}$806    prnt16bit  a,x{CBM--}         (p 16-b z ){CBM--}         e z  a ()  x () 
  104.  b 0-65535 {CBM--}           a , 
  105.   
  106.  b  {CBM--}         $0100 (256)  ascii-d  vX   {CBM--}         
  107.  0  .{CBM--}{CBM--}$806    trns16bit  a,x{CBM--}         (p 16-b z   fac){CBM--}         e z (
  108.   k  prnt16bit)  {CBM--}          f
  109.  
  110.  
  111.  
  112.     fac {CBM--}         X.{CBM--}{CBM--}$8071    wrsr-ntry{CBM--}         ( b    srchnext){CBM--}         d  b    d , {CBM--}          {$7c}  chsmsr  . d  {CBM--}          r  srchnext.{CBM--}{CBM--}$8074    res-excmd{CBM--}         (f
  113.  X xopen (k
  114.  
  115. )  s){CBM--}         d z   b   V  {CBM--}         k
  116.  
  117.   f   xopen-r   {CBM--}          a  i-k
  118.  
  119.  .{CBM--}{CBM--}$8077    res-ecmd2  a,x,y{CBM--}         (f
  120.   xopen (k
  121.  
  122. ) ){CBM--}         w , 
  123.    z   {CBM--}         a :{CBM--}         a = l  b{CBM--}         x,y = l, h-b  a{CBM--}{CBM--}$807    set-mspos  a,x,y{CBM--}         (p ){CBM--}         x = x-p (){CBM--}         y = y-p (){CBM--}         a = {$7b}  x-p (9. b){CBM--}{CBM--}$807    set-amt-1  a,x,y{CBM--}         (i-d X  m ){CBM--}         a = b
  124. {CBM--}         x =  b
  125. {CBM--}         y =  b
  126. {CBM--}{CBM--}$8041    set-amt-2  a,x,y{CBM--}         (i-d   mX ){CBM--}         p
  127.   , 
  128.  X  e.{CBM--}{CBM--}$8044    set-dp-bb{CBM--}         (dskpnt  blkbuf ){CBM--}         d dskpnt-z    a  blkbuf {CBM--}         .{CBM--}{CBM--}$8047    set-dp-db{CBM--}         (dskpnt  dirbuf ){CBM--}         w , 
  129.  . dirbuf{CBM--}{CBM--}$804    set-dp-b2  x,y{CBM--}         (dskpnt  a  x,y ){CBM--}          x,y = l, h-b  a{CBM--}{CBM--}$804    validate{CBM--}         (d ){CBM--}         d >>v<<-b    d    {CBM--}         f .{CBM--}{CBM--}$8050    stndrdw    x,y{CBM--}         (s ){CBM--}         x,y = l, h-b  , 
  130.  
  131.  20 {CBM--}         z  t 
  132.   {CBM--}         s,   t, ok  c-f {CBM--}         . b a  ok  
  133.  rts {CBM--}         X,  c  rX {CBM--}         V (2 pla)  
  134.  rts 
  135.   {CBM--}         p
  136.  
  137.  .{CBM--}{CBM--}$8053    srchfw     a,x,y                   x{CBM--}         (d ){CBM--}         d   d,   
  138.  mX {CBM--}         xd v  (b  ).{CBM--}         x,y = l, h-b  a  {$7b}{CBM--}         a = a   mX:{CBM--}         1. ok       6. r/w{CBM--}         2. s      7. p{CBM--}         3. p      8. d{CBM--}         4. u      9. wfo{CBM--}         5. r     10. c{CBM--}         e    r srchfile . nE {CBM--}         X  rX 
  139.  x-r  s .{CBM--}{CBM--}$8056    srchfw-i2  a,x,y                   x{CBM--}         (E d , r){CBM--}         w , 
  140.  
  141.   e  {CBM--}         r-w.{CBM--}{CBM--}$8059    srchfw-i4  a,x,y                   x{CBM--}         (E d , s {CBM--}         p){CBM--}         d., 
  142.   eE  s p-{CBM--}         w.{CBM--}{CBM--}$805    strout     a,y{CBM--}         (z ){CBM--}         e   z 
  143.   lE  {CBM--}          b
  144.  .{CBM--}         a,y = l, h-b  a  s{CBM--}{CBM--}$805    chsm-sr{CBM--}         (d ){CBM--}         d d  d h  d  {CBM--}         
  145.   
  146.  s ,  {CBM--}         nX
  147.  
  148.      .{CBM--}         a:{CBM--}         d r  ,   f {CBM--}         d   ,  {$7c} chsmflag {CBM--}         
  149. {$7c}  0 .{CBM--}{CBM--}$8062    readdsk    x,y{CBM--}         (l  b  d 
  150.  f {CBM--}         d){CBM--}         d  t x  s y    256 {CBM--}         b  s  (dskpnt),  a {CBM--}          r chsmsr, .{CBM--}{CBM--}$8065    readdsk2   x,y{CBM--}         (l  b  d){CBM--}         d., 
  151.   {$7b}  d.{CBM--}         h:{CBM--}         d l  d 
  152.   r   {CBM--}         ,  
  153.  bV  u  {CBM--}         ,    d  a  {CBM--}         f
  154.  
  155. V ; 
  156.    z {CBM--}          X. d v 
  157.   . .  {CBM--}         mX c d .{CBM--}{CBM--}$8068    writedsk   x,y{CBM--}         (s  b  d 
  158.  f {CBM--}         d){CBM--}         d  (dskpnt) 256 b  s  {CBM--}          t x, s y,  a  chsmsr, {CBM--}         .{CBM--}{CBM--}$806    writedsk2  x,y{CBM--}         (s  b  d){CBM--}         d., 
  159.   {$7b}  d.{CBM--}{CBM--}$806    ckout2{CBM--}         (a  f-d ){CBM--}         d d  jsr basout ($2)    {CBM--}         d 
  160.   d
  161.  
  162.  2,   xopen  {CBM--}         , 
  163. .{CBM--}         h:{CBM--}         d rX  aE  s {CBM--}         (e: t; a: b
  164. )   {CBM--}         jsr clrch ($).{CBM--}{CBM--}$8071    ckout15{CBM--}         (a  f-k
  165.  
  166.  ){CBM--}         w , 
  167.  n. 15{CBM--}{CBM--}$8074    chkin2{CBM--}         (e  f-d ){CBM--}         d d 
  168.  jsr basin ($)   {CBM--}          d .{CBM--}{CBM--}$8077    chkin15{CBM--}         (e  f-f ){CBM--}         d.,  n. 15{CBM--}         a:{CBM--}         b    r 
  169. {$7c} X  {CBM--}         ,   
  170.  a  
  171.  d  {CBM--}           
  172. A.{CBM--}{CBM--}$807    xopen{CBM--}         (f-d-  k
  173.  
  174.  ){CBM--}         e   open 15,8,15,i : open 2,8,2,#  {CBM--}         d- ( b-b)  k
  175.  
  176.  (
  177.  {CBM--}          i)  f  ( {CBM--}         
  178.  s{$7c}   d 
  179.  {CBM--}          n
  180.  
  181. ).{CBM--}{CBM--}$807    dskerr{CBM--}         (d ){CBM--}         d f     s
  182.  {CBM--}            b
  183.  . b {CBM--}         a  f   d {CBM--}         (..)  errflg   w  127.{CBM--}         a: d  f
  184.    (   {CBM--}          d-/ readdsk . writedsk {CBM--}         ), 
  185. X s  ,    i {CBM--}         p
  186.  
  187.   b
  188.   V .{CBM--}{CBM--}$8080    srchfile   x,y                     x{CBM--}         ( d 
  189.  d ){CBM--}         d a  
  190.  
  191.   z  {CBM--}         d
  192.    x ()  y () X,  {CBM--}         p
  193.  X    d 
  194.   {CBM--}         v sfwseq  sfwcl (b  , {CBM--}          eE  xd) .{CBM--}         f  rX  x n ,   d {CBM--}         
  195.   k ;   x  {CBM--}          s 
  196.  dirbuf ,     32 b {CBM--}         e  d .{CBM--}{CBM--}$8083    srchnext   x,y                     x{CBM--}         (E d   d ){CBM--}         e   srchfile  p
  197.  {CBM--}           , 
  198.   m
  199.  X
  200.  
  201.  {CBM--}         d .{CBM--}         b  rX x  .{CBM--}{CBM--}$8086    prerdwr    a,x,y{CBM--}         (t, s  z ,   {CBM--}         systems){CBM--}         n
  202.   s
  203.  t (x)  s (y) {CBM--}          ,   z
  204.  (>>1<<, l  {CBM--}         >>2<<, s)  rdwrcom1+1 ;  {CBM--}         {$7c}   systems-r.{CBM--}{CBM--}$8089    systems{CBM--}         (b
  205.   rdwrcom1-b  . {CBM--}         ){CBM--}         a  s
  206.     {CBM--}          a   b
  207.   . {CBM--}           rdwrcom1-b  ( d {CBM--}         ).{CBM--}{CBM--}$808    clrprbuf{CBM--}         (printbuf V){CBM--}         d 80 b  s  printbuf  {CBM--}         
  208.  l X (s, ascii 32).{CBM--}{CBM--}$808    ascii      a                       x,a{CBM--}         ( d
  209.   ascii-z 
  210. ){CBM--}         e 
  211.  a  d
  212.  
  213.  b 0-99 {CBM--}           ascii-z 
  214.   :{CBM--}         x = z{CBM--}         a = e{CBM--}{CBM--}$8092    rdprev                             c-f{CBM--}         ( d-b ){CBM--}         d (
  215.   dblockno ) d-b {CBM--}         ,   (c=0),   dirbuf  {CBM--}         ( c=1).{CBM--}{CBM--}$80      rdnext                             c{CBM--}         ( d-b ){CBM--}         w rdprev,  X   d-{CBM--}         b.{CBM--}{CBM--}$8099    rdhead{CBM--}         (d-h ){CBM--}         d  t 18, s 0  d-h {CBM--}            s headbuf 
  216.  readdsk2 {CBM--}         .{CBM--}{CBM--}$809    rwhead                             x,y{CBM--}         (l  d-h ){CBM--}         d dskpnt    a  headbuf , {CBM--}           x-r 
  217.  18 (t), y 
  218.  0 (s) {CBM--}         .{CBM--}{CBM--}$809    wrhead{CBM--}         (d-h ){CBM--}         w rdhead, 
  219.   z 
  220.  {CBM--}         writedsk2.{CBM--}{CBM--}$809    clr-dcb    a{CBM--}         (dskcmdbuf V  ){CBM--}         a  a dskcmdbuf    a X {CBM--}         b ,  dskcmdbuf+1   driveno {CBM--}         {CBM--}         l
  221.  
  222.  , dskcmdbuf+2 E  {CBM--}         d,   37 s {CBM--}          
  223.  >>shift space<< (cbm-ascii 160) X.{CBM--}{CBM--}$809    snd-dcb{CBM--}         (dsmcmdbuf  d ){CBM--}         d 
  224.  b dskcmdbuf  b    {CBM--}         b   f X.{CBM--}         a: v 
  225.  a  r 
  226. {$7c}  k
  227.  
  228.  {CBM--}         (. b. 
  229.  xopen) V .{CBM--}{CBM--}$800    prdbuf{CBM--}         (headbuf  dirbuf   f
  230.  ){CBM--}         e  d 
  231.  headbuf   {CBM--}         {$7b}   id, .  d   {CBM--}         dirbuf,    s    f
  232.   {CBM--}         
  233.  
  234.  p
  235.  
  236.    b
  237.  {CBM--}         .{CBM--}{CBM--}$803    prntinit{CBM--}         (d ){CBM--}         d d , E   w   {CBM--}          s
  238. ,    {CBM--}         a . d r  
  239.  a  {CBM--}         p
  240.  
  241.  
  242.  d .{CBM--}         z   dX :{CBM--}         -  gE 
  243.   a{$7c}   d {CBM--}           b open 4,4,sec-addr .{CBM--}         - X d 
  244.  c-s   {CBM--}         u .{CBM--}         a   d :{CBM--}         -  E  mps 801.{CBM--}         - e-d  
  245.    ( esc {CBM--}         
  246. ) X;   s  {CBM--}         d .{CBM--}         w s   r 
  247.  
  248. , 
  249. X {CBM--}            f X;  {CBM--}         >>u-r X d<<.{CBM--}{CBM--}$806    pi-sndesc  a{CBM--}         (esc  z 
  250.  a  d ){CBM--}         e   esc-c (ascii 27)    z {CBM--}         
  251.  a   d ; 
  252.    {CBM--}         {$7b}  s .{CBM--}{CBM--}$809    prntstr    a,x,y{CBM--}         (s  d ){CBM--}         e s 
  253.   lE a (=E a  {CBM--}         z),   x (), y () 
  254.  s , {CBM--}          
  255.  prntout  
  256.  d ;  {CBM--}         a  >> << (ascii 13)  {CBM--}         newline .{CBM--}{CBM--}$80    prntout    a{CBM--}         (z  d 
  257.  f ){CBM--}         d z  a  
  258.   gE-  i {CBM--}           d ,   a  r {CBM--}          
  259.  e  z 
  260.  b 32  {CBM--}         127   160   . z z  {CBM--}         32   128  159 ( a  cbm-ascii)  {CBM--}          w 64 .{CBM--}         h , 
  261.   a   {CBM--}         d,   X z :{CBM--}         -  mps 801   z   X.{CBM--}         - X e-  
  262.  d   {CBM--}         c cbm  ascii 
  263.  
  264. .{CBM--}         d         {CBM--}         s   d .{CBM--}         a    m,  c {CBM--}          d  r  ;  {CBM--}         >>u-r...<<.{CBM--}{CBM--}$80    prnto-wf   a{CBM--}         (z  d  f ){CBM--}         w ,   f  z.{CBM--}{CBM--}$802    prnthd{CBM--}         (d-  d ){CBM--}         d      {CBM--}          d   
  265.  d .{CBM--}{CBM--}$805    newline{CBM--}         (  z  
  266.  d ){CBM--}         e   >> << ,  autolf  {CBM--}         w 10 ,  z   d {CBM--}         .{CBM--}{CBM--}$808    pr39min{CBM--}         (39 
  267.  >>-<<   d ){CBM--}         e   39 m-z .{CBM--}$80    clclstsc   x                       y{CBM--}         ( s  t ){CBM--}         d  s  t x   y  {CBM--}         (x  ).{CBM--}{CBM--}$80    texton{CBM--}         (b
  268.  ){CBM--}         n a  b
  269. -r $5   {CBM--}         b
  270.   ,  c  {CBM--}            z  g-/k {CBM--}         .{CBM--}{CBM--}$801    window     x,y{CBM--}         (w  
  271.  b
  272.  ){CBM--}         e   f  
  273.  b
  274.  , {CBM--}           x ( z), y ( s)   {CBM--}          lastlin ( z), lastcol ( s) {CBM--}         .{CBM--}         a:{CBM--}         d   p
  275.  
  276.   
  277.  a {CBM--}          .{CBM--}         a
  278.   s ,   , {CBM--}          b
  279. ,     {CBM--}         s ( w  . )  {CBM--}           ,   p   {CBM--}         u
  280.   .{CBM--}{CBM--}$804    scrtobuf{CBM--}         (  b
  281.  
  282.  z){CBM--}         d i     {CBM--}         b
  283.     z{CBM--}         h:{CBM--}         d r    w  {CBM--}         b
  284.  (  b  w).{CBM--}{CBM--}$807    buftoscr{CBM--}         (  z   b
  285. ){CBM--}         d   u
  286.    {CBM--}         r;     z    {CBM--}         b
  287.  .{CBM--}{CBM--}$80    input      a,x,y                   a{CBM--}         (e  z/a  m){CBM--}           t     80 z  {CBM--}         s   ( l  a; a {CBM--}          t  x ()  y ()). a
  288.    {CBM--}         a  m 
  289. ,  n
  290.  
  291.   a {CBM--}           (0 :  m). d {CBM--}         w  pos    l  e.{CBM--}{CBM--}$80    input-s{CBM--}         (z  l  am-cnt){CBM--}         d  am-cnt  a  m  {CBM--}          am-cnt-bu , am-cnt   
  292.  {CBM--}         
  293.  w 0  (=>  m 
  294. ). {CBM--}{CBM--}$800    input-r{CBM--}         (am-cnt ){CBM--}         d    r  w  {CBM--}         am-cnt-bu    amcnt .{CBM--}{CBM--}$803    askmouse                           a{CBM--}         (j   , m ){CBM--}         h
  295.    j  p 2 , {CBM--}         
  296.   m  
  297.  b
  298.   {CBM--}          m . f  r 
  299.  {CBM--}         a V{$7c} 127 ,   m  , {CBM--}           ;     w  {CBM--}         128 ,   X p  (a  {CBM--}          n
  300.  
  301. ). b 0   .{CBM--}{CBM--}$806    stndrd-am                          x{CBM--}         (
  302.  m X){CBM--}         askmouse  ,    m {CBM--}             ,   r  {CBM--}          w  n
  303.  
  304.   x ;    {CBM--}         v  .{CBM--}{CBM--}$809    mouseoff{CBM--}         (m-s ){CBM--}         d  s   m  {CBM--}         . d   s  {CBM--}          f  f-c
  305.  {CBM--}         d.{CBM--}{CBM--}v 
  306.  a   r  z   s  $000  $ 
  307.  s 
  308.  romram  r
  309.   
  310.  b 
  311. .  w s  s blkbuf  d , {CBM--}
  312.  
  313.   ,  
  314.  
  315.  
  316.  readdsk2 . writedsk2  ,   r chsm-sr  b     d .  v s  
  317.  
  318. ,   dskpnt   X s ,   z  r  rdprev {CBM--} !  b  s,   
  319.  r,    f
  320.   d , 
  321.  
  322.  s  r dskerr  .  v 
  323.  a  p
  324.  
  325. ,  g  d-a 
  326. ,  prntinit  , 
  327.    d .  m v  b-v ($0316-$0317, 790-791)  
  328.  xdos     n    p
  329.  
  330.  , 
  331.  d
  332.  , s  d , ,  
  333.   p
  334.  
  335.     
  336. . d r  i p
  337.  
  338.     a  b,   (a) 
  339.  b  .{CBM--}{$f1} {$f1} {$f1}~