POTEST  BAS
hing is done
 "(if showflg=0) or a normal window is"
 Potest (v1.2) - Pointer-Test v1.2
 Marco Vieth, 31.8.1992 (28.6.1992)
unknow command abfangen
keine Error-Routine mehr
 "|WINIT [,art,p1,p2]"
 ohne Parameter = alles Init (moeglichst nach Mode-Befehl)
 art=0 - p1=Bufferanfang , p2=Bufferende
 art=1 - p1=WindowRahmenbyte, p2=WindowInnenbyte
 "|PMOVE,@x,@y"
 bewegt Pointer und selektiert evtl. Menuepunkt
 dann : x,y=absolute Position des Menuepunkts (0,0=ESC)
 "|WIN,art,links,rechts,oben,unten"
 art=0 - normales Window oeffnen
 art=1 - PD-Window oeffnen
 art=2 - Menuewindow definieren
 art=3 - Pointerwindow definieren
 Koordinaten sind normale Koordinten wie bei WINDOW.
 Sie geben die Windowausdehnung OHNE Rahmen an !
 Somit sind zulaessig (je nach Mode) :
 Mode 0 :   2 <= x <= 19  ;  2 <= y <= 24
 Mode 1 :   2 <= x <= 39  ;  2 <= y <= 24
 Mode 2 :   3 <= x <= 78  ;  2 <= y <= 24
 (Kordinaten ausserhalb werden aber automatisch angepasst !)
 "|WRES,art"
 art=0 - Balkaus
 art=1 - PDRes
 art=2 - PDFlush
set menuewindow
" Pointy - The Windowpack"
,"-")
"General information"
"RSX-Commands"
"Memory-usage"
"toggle mode 1,2"
"Bye"
"Have Fun ..."
"Welcome to POINTY !"
"Use Joystick or Cursor"
"Keys. TAB toogles between"
"Joystick & Mouse control";
"This is a PD-Window";
"SELECT THIS LINE !"
"another PD-Window"
"The memory is limited"
 create & fill window :
botto
botto
"continue...";
 Select
"ESC"
 Error-Einsprung
"Error ";
A;" Line ";
sonst RSX nachladen...
"!POPACK2.BIN",
jetzt aber
 Popack2.bin benutzt &9e00-&A46D
 Procedures (if you don't want to use RSX) :
winit=adr+5:pmove=winit+3:win=pmove+3:wres=win+3
 Constants:
zmini
zmrel
zmini
 0, 2,39,3,23
 "- Command description :"
 "You can use the following commands:"
 "|WINIT"
 "inits internal variables, saves actual"
 "mode for pointer, sets PD-buffer to"
 "standard-values(&9000-&9e00) and also"
 "the window-frame and background-byte."
 "|WINIT,0,start,end"
 "inits only the PD-buffer to start-end."
 "|WINIT,1,windowframe,windowbackground"
 "sets pen-bytes (depending on mode!)"
 0, 5,35,5,20
 "|PMOVE,@%x,@%y"
 "shows Pointer and you can move"
 "around and select in menu."
 "The coordinates of the select"
 "are returned, if ESC: both 0."
 0, 2,39,3,23
 "|WIN,0,left,right,bottom,top"
 "creates a normal window"
 "(with frame)"
 "|WIN,1,left,right,bottom,top"
 "creates a PD - window (with frame)"
 "that means, the background is saved"
 "before in a buffer."
 0, 2,39,3,23
 "|WIN,2,left,right,bottom,top"
 "defines the menu-window (where you"
 "select something. Used to override"
 "the actual window which defined its"
 "menu-window."
 "|WIN,3,left,right,bottom,top"
 "defines the pointer-window (that is"
 "where you can move around). By"
 "default it's the whole screen."
 0, 2,39,3,23
 "|WRES,0"
 "clears the inverted select-line"
 "(makes it non-inverted as before)."
 "|WRES,1"
 "closes the last PD-window and writes"
 "background back to screen."
 "|WRES,2"
 "flushes all PD-windows (closes them"
 "and restores background) ."
 0, 2,39,3,23
 "- install-variables :"
 "o = &9e1c"
 "o+0  MOUSE (Mouse-flag: 0=Joystick,"
 "     &FF=Mouse, default=0. Can be"
 "     changed by TAB during PMOVE )."
 "o+1  MMOVE (Move-values for Mouse,"
 "     def. y=5, x=2)."
 "o+3  ZMINIT (y,x-Move-init 25,25)"
 "o+5  ZMRELO (y,x-reload-values for"
 "     joy-move, def. y=7, x=12 )."
 "o+7  SHOWFLG (flag, if normal window"
 "     is created instead of PD-win,"
 "     if not enough memory (0=not) )."
 0, 2,39,3,23
 "- Memory usage :"
 "POINTY v1.2 goes from &9E00 to &A4ca."
 "It uses internal variables &a487...", ""
 "For every PD-window memory is needed"
 "to save the background. You can change"
 "the buffer by |WINIT,0,start,end."
 "Default values are &9000-&9e00."
 "If you open a PD-window without having"
 "enough free memory, nothing is done
 "(if showflg=0) or a normal window is"
 "created (if showflg=&FF)."
2.BIN"
org &9E00;bis