72 lines
1.8 KiB
Text
72 lines
1.8 KiB
Text
PROC ShowMode(BYTE m,split,gr
|
|
CARD w, BYTE h,
|
|
CARD size,
|
|
CHAR ARRAY descr)
|
|
BYTE CH=$02FC
|
|
CARD i
|
|
BYTE POINTER ptr
|
|
|
|
Graphics(0)
|
|
PrintF("Next video mode: %B%E",m)
|
|
IF split THEN
|
|
PrintF("Split video mode%E%EUpper part:%E")
|
|
FI
|
|
|
|
IF gr THEN
|
|
Print("Graphics")
|
|
ELSE
|
|
Print("Text")
|
|
FI
|
|
PrintF(" mode, %Ux%B, %S%E",w,h,descr)
|
|
|
|
IF split THEN
|
|
PrintF("%ELower part:%EText mode 40x4, 2 luminances%E")
|
|
FI
|
|
PrintF("%EPress any key to change video mode.")
|
|
|
|
DO UNTIL CH#$FF OD
|
|
CH=$FF
|
|
|
|
Graphics(m)
|
|
ptr=PeekC(88)
|
|
|
|
FOR i=1 TO size
|
|
DO
|
|
ptr^=Rand(0)
|
|
ptr==+1
|
|
OD
|
|
|
|
DO UNTIL CH#$FF OD
|
|
CH=$FF
|
|
RETURN
|
|
|
|
PROC Main()
|
|
ShowMode(0,0,0,40,24,960,"2 luminances")
|
|
ShowMode(1,1,0,20,20,640,"5 colors")
|
|
ShowMode(2,1,0,20,10,400,"5 colors")
|
|
ShowMode(3,1,1,40,20,400,"4 colors")
|
|
ShowMode(4,1,1,80,40,640,"2 colors")
|
|
ShowMode(5,1,1,80,40,1120,"4 colors")
|
|
ShowMode(6,1,1,160,80,2080,"2 colors")
|
|
ShowMode(7,1,1,160,80,4000,"4 colors")
|
|
ShowMode(8,1,1,320,160,7856,"2 luminances")
|
|
ShowMode(9,0,1,80,192,7680,"16 luminances")
|
|
ShowMode(10,0,1,80,192,7680,"9 colors")
|
|
ShowMode(11,0,1,80,192,7680,"16 hues")
|
|
ShowMode(12,1,0,40,20,1120,"5 colors")
|
|
ShowMode(13,1,0,40,10,640,"5 colors")
|
|
ShowMode(14,1,1,160,160,4000,"2 colors")
|
|
ShowMode(15,1,1,160,160,7856,"4 colors")
|
|
ShowMode(17,0,0,20,24,480,"5 colors")
|
|
ShowMode(18,0,0,20,12,240,"5 colors")
|
|
ShowMode(19,0,1,40,24,240,"4 colors")
|
|
ShowMode(20,0,1,80,48,480,"2 colors")
|
|
ShowMode(21,0,1,80,48,960,"4 colors")
|
|
ShowMode(22,0,1,160,96,1920,"2 colors")
|
|
ShowMode(23,0,1,160,96,3840,"4 colors")
|
|
ShowMode(24,0,1,320,192,7680,"2 luminances")
|
|
ShowMode(28,0,0,40,24,960,"5 colors")
|
|
ShowMode(29,0,0,40,12,480,"5 colors")
|
|
ShowMode(30,0,1,160,192,3840,"2 colors")
|
|
ShowMode(31,0,1,160,192,7680,"4 colors")
|
|
RETURN
|