home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 June / PCO_06_97.ISO / filesbbs / DOS / CPCEMU14.ARJ / CPCPD1.DSK / potest.bas (.txt) < prev   
Encoding:
Locomotive BASIC  |  1994-09-04  |  5.8 KB  |  141 lines
  1. POTEST  BAS
  2. hing is done
  3.  "(if showflg=0) or a normal window is"
  4.  Potest (v1.2) - Pointer-Test v1.2
  5.  Marco Vieth, 31.8.1992 (28.6.1992)
  6. unknow command abfangen
  7. keine Error-Routine mehr
  8.  "|WINIT [,art,p1,p2]"
  9.  ohne Parameter = alles Init (moeglichst nach Mode-Befehl)
  10.  art=0 - p1=Bufferanfang , p2=Bufferende
  11.  art=1 - p1=WindowRahmenbyte, p2=WindowInnenbyte
  12.  "|PMOVE,@x,@y"
  13.  bewegt Pointer und selektiert evtl. Menuepunkt
  14.  dann : x,y=absolute Position des Menuepunkts (0,0=ESC)
  15.  "|WIN,art,links,rechts,oben,unten"
  16.  art=0 - normales Window oeffnen
  17.  art=1 - PD-Window oeffnen
  18.  art=2 - Menuewindow definieren
  19.  art=3 - Pointerwindow definieren
  20.  Koordinaten sind normale Koordinten wie bei WINDOW.
  21.  Sie geben die Windowausdehnung OHNE Rahmen an !
  22.  Somit sind zulaessig (je nach Mode) :
  23.  Mode 0 :   2 <= x <= 19  ;  2 <= y <= 24
  24.  Mode 1 :   2 <= x <= 39  ;  2 <= y <= 24
  25.  Mode 2 :   3 <= x <= 78  ;  2 <= y <= 24
  26.  (Kordinaten ausserhalb werden aber automatisch angepasst !)
  27.  "|WRES,art"
  28.  art=0 - Balkaus
  29.  art=1 - PDRes
  30.  art=2 - PDFlush
  31. set menuewindow
  32. " Pointy - The Windowpack"
  33. ,"-")
  34. "General information"
  35. "RSX-Commands"
  36. "Memory-usage"
  37. "toggle mode 1,2"
  38. "Bye"
  39. "Have Fun ..."
  40. "Welcome to POINTY !"
  41. "Use Joystick or Cursor"
  42. "Keys. TAB toogles between"
  43. "Joystick & Mouse control";
  44. "This is a PD-Window";
  45. "SELECT THIS LINE !"
  46. "another PD-Window"
  47. "The memory is limited"
  48.  create & fill window :
  49. botto
  50. botto
  51. "continue...";
  52.  Select
  53. "ESC"
  54.  Error-Einsprung
  55. "Error ";
  56. A;" Line ";
  57. sonst RSX nachladen...
  58. "!POPACK2.BIN",
  59. jetzt aber
  60.  Popack2.bin benutzt &9e00-&A46D
  61.  Procedures (if you don't want to use RSX) :
  62. winit=adr+5:pmove=winit+3:win=pmove+3:wres=win+3
  63.  Constants:
  64. zmini
  65. zmrel
  66. zmini
  67.  0, 2,39,3,23
  68.  "- Command description :"
  69.  "You can use the following commands:"
  70.  "|WINIT"
  71.  "inits internal variables, saves actual"
  72.  "mode for pointer, sets PD-buffer to"
  73.  "standard-values(&9000-&9e00) and also"
  74.  "the window-frame and background-byte."
  75.  "|WINIT,0,start,end"
  76.  "inits only the PD-buffer to start-end."
  77.  "|WINIT,1,windowframe,windowbackground"
  78.  "sets pen-bytes (depending on mode!)"
  79.  0, 5,35,5,20
  80.  "|PMOVE,@%x,@%y"
  81.  "shows Pointer and you can move"
  82.  "around and select in menu."
  83.  "The coordinates of the select"
  84.  "are returned, if ESC: both 0."
  85.  0, 2,39,3,23
  86.  "|WIN,0,left,right,bottom,top"
  87.  "creates a normal window"
  88.  "(with frame)"
  89.  "|WIN,1,left,right,bottom,top"
  90.  "creates a PD - window (with frame)"
  91.  "that means, the background is saved"
  92.  "before in a buffer."
  93.  0, 2,39,3,23
  94.  "|WIN,2,left,right,bottom,top"
  95.  "defines the menu-window (where you"
  96.  "select something. Used to override"
  97.  "the actual window which defined its"
  98.  "menu-window."
  99.  "|WIN,3,left,right,bottom,top"
  100.  "defines the pointer-window (that is"
  101.  "where you can move around). By"
  102.  "default it's the whole screen."
  103.  0, 2,39,3,23
  104.  "|WRES,0"
  105.  "clears the inverted select-line"
  106.  "(makes it non-inverted as before)."
  107.  "|WRES,1"
  108.  "closes the last PD-window and writes"
  109.  "background back to screen."
  110.  "|WRES,2"
  111.  "flushes all PD-windows (closes them"
  112.  "and restores background) ."
  113.  0, 2,39,3,23
  114.  "- install-variables :"
  115.  "o = &9e1c"
  116.  "o+0  MOUSE (Mouse-flag: 0=Joystick,"
  117.  "     &FF=Mouse, default=0. Can be"
  118.  "     changed by TAB during PMOVE )."
  119.  "o+1  MMOVE (Move-values for Mouse,"
  120.  "     def. y=5, x=2)."
  121.  "o+3  ZMINIT (y,x-Move-init 25,25)"
  122.  "o+5  ZMRELO (y,x-reload-values for"
  123.  "     joy-move, def. y=7, x=12 )."
  124.  "o+7  SHOWFLG (flag, if normal window"
  125.  "     is created instead of PD-win,"
  126.  "     if not enough memory (0=not) )."
  127.  0, 2,39,3,23
  128.  "- Memory usage :"
  129.  "POINTY v1.2 goes from &9E00 to &A4ca."
  130.  "It uses internal variables &a487...", ""
  131.  "For every PD-window memory is needed"
  132.  "to save the background. You can change"
  133.  "the buffer by |WINIT,0,start,end."
  134.  "Default values are &9000-&9e00."
  135.  "If you open a PD-window without having"
  136.  "enough free memory, nothing is done
  137.  "(if showflg=0) or a normal window is"
  138.  "created (if showflg=&FF)."
  139. 2.BIN"
  140. org &9E00;bis 
  141.