all tasks

Task/Video-display-modes/0DESCRIPTION

@@ -0,0 +1 @@
+The task is to demonstrate how to switch video display modes within the language. A brief description of the supported video modes would be useful.

Task/Video-display-modes/1META.yaml

@@ -0,0 +1,3 @@
+---
+category:
+- Initialization

Task/Video-display-modes/BBC-BASIC/video-display-modes.bbc

@@ -0,0 +1 @@
+10 MODE 1: REM 320x256 4 colour graphics

Task/Video-display-modes/GW-BASIC/video-display-modes.gw-basic

@@ -0,0 +1,2 @@
+10 REM GW Basic can switch VGA modes
+20 SCREEN 18: REM Mode 12h 640x480 16 colour graphics

Task/Video-display-modes/Locomotive-Basic/video-display-modes.locomotive

@@ -0,0 +1 @@
+10 MODE 0: REM switch to mode 0

Task/Video-display-modes/REXX/video-display-modes-1.rexx

@@ -0,0 +1,5 @@
+/*REXX program to switch video display modes based on columns and lines.*/
+
+parse arg cols lines .
+'MODE'   "CON:       COLS="cols     'LINES='lines
+                                       /*stick a fork in it, we're done.*/

Task/Video-display-modes/REXX/video-display-modes-2.rexx

@@ -0,0 +1,16 @@
+/*REXX program to switch video display modes based on columns and lines.*/
+parse arg !;  if !all()  then exit     /*exit if documentation specified*/
+if \!dos  &  \!os2       then exit     /*if this isn't DOS,  then exit. */
+
+parse arg cols lines .
+'MODE'   "CON:       COLS="cols     'LINES='lines
+
+exit                                   /*stick a fork in it, we're done.*/
+/*══════════════════════════════════general 1-line subs═════════════════*/
+!all:!!=!;!=space(!);upper !;call !fid;!nt=right(!var('OS'),2)=='NT';!cls=word('CLS VMFCLEAR CLRSCREEN',1+!cms+!tso*2);if arg(1)\==1 then return 0;if wordpos(!,'? ?SAMPLES ?AUTHOR ?FLOW')==0 then return 0;!call=']$H';call '$H' !fn !;!call=;return 1
+!cal:if symbol('!CALL')\=="VAR" then !call=;return !call
+!env:!env='ENVIRONMENT';if !sys=='MSDOS'|!brexx|!r4|!roo then !env='SYSTEM';if !os2 then !env='OS2'!env;!ebcdic=1=='f0'x;return
+!fid:parse upper source !sys !fun !fid . 1 . . !fn !ft !fm .;call !sys;if !dos then do;_=lastpos('\',!fn);!fm=left(!fn,_);!fn=substr(!fn,_+1);parse var !fn !fn '.' !ft;end;return word(0 !fn !ft !fm,1+('0'arg(1)))
+!rex:parse upper version !ver !vernum !verdate .;!brexx='BY'==!vernum;!kexx='KEXX'==!ver;!pcrexx='REXX/PERSONAL'==!ver|'REXX/PC'==!ver;!r4='REXX-R4'==!ver;!regina='REXX-REGINA'==left(!ver,11);!roo='REXX-ROO'==!ver;call !env;return
+!sys:!cms=!sys=='CMS';!os2=!sys=='OS2';!tso=!sys=='TSO'|!sys=='MVS';!vse=!sys=='VSE';!dos=pos('DOS',!sys)\==0|pos('WIN',!sys)\==0|!sys=='CMD';call !rex;return
+!var:call !fid;if !kexx then return space(dosenv(arg(1)));return space(value(arg(1),,!env))

Task/Video-display-modes/UNIX-Shell/video-display-modes-1.sh

@@ -0,0 +1 @@
+$ xrandr -q

Task/Video-display-modes/UNIX-Shell/video-display-modes-2.sh

@@ -0,0 +1 @@
+$ xrandr -s 1024x768

Task/Video-display-modes/XPL0/video-display-modes.xpl0

@@ -0,0 +1,2 @@
+code SetVid=45;
+SetVid(Mode)