REM >yscrtest
REM tests Yogi's multiple VDUs
REM
REM 21/22 August 99
REM
REM Uses coordinate conversion system (to get touchscreen display/touch sensitivity to line up).
REM Odd colours come out on the LCD; like black is visible. Anyway.

debug%=0

PROCinit              :REM Arachnid init
PROCkill_all          :REM Arachnid init

LIBRARY "<RudolfDir>.CenesLib.ScreenLib" :REM Cenes' library for multiple screens
LIBRARY "<RudolfDir>.ProgLibs.UI"
PROCdefine_colours
LIBRARY "<RudolfDir>.ProgLibs.Arachnid"
LIBRARY "<RudolfDir>.ProgLibs.JP"
LIBRARY "<RudolfDir>.ProgLibs.YogiLib"
PROCyogi_touchscreen_boxes

MODE 12
PROCyogi_multiscreen_init

ON ERROR PROCfuckup

FOR s%=0 TO nscreens%-1
  PROCswitch_vdu(vdu_bank%(s%))
    PRINT "Hello, you are screen bank #";s%
    GCOL yellow%
    CIRCLE FILL FNx_coord(500,lcd_system%),FNy_coord(500,lcd_system%),FNx_coord(200,lcd_system%)
  PROCcopy_vdu_bank_to_screen(vdu_bank%(s%), s%)
  PROCswitch_vdu_to_screen
NEXT

PROCswitch_vdu(-1)
GCOL yellow%
CIRCLE FILL FNx_coord(500,screen_system%),FNy_coord(500,screen_system%),FNx_coord(200,screen_system%)
PRINT "Done. There should be a circle on every screen."
PRINT "Press F1 to see text on LCD number zero."
*KEY 1 PROClcd(0):OSCLI("HELP"):PROCupdate_lcd(0):PROCscreen|M
END

DEF PROCfuckup
  ON ERROR OFF
  PROCswitch_vdu(-1)
  PRINT "* Program aborted - error ";ERR;" at line ";ERL;
  REPORT
  PRINT
  END
ENDPROC