Introduction

Language Structure

IB Statements

File System

Comet 32 Runtime

Index

Sample window program

  Print (0) (Create window=2,3,70,20)
  Input (0) MEMSPACE
  Print (0) (Change colors="@0F@","@A0@","@00@","@C0@","@00@")
  Print (0) (SB);"This is the first window.";(BF);(BF);(BF);(BF)
  Print (0) "Hello",@(2,2)
  Input (0) ""

  Print (0) (Create window=10,5,60,12)
  Input (0) MEMSPACE
  Print (0) (Change colors="@0F@","@CF@","@00@","@90@","@00@")
  Print (0) (SB);"This is the second window.";(BF);(BF);(BF);(BF)
  Print (0) "Hello",@(2,2)
  Input (0) ""

  Print (0) (Create window=8,1,75,15)
  Input (0) MEMSPACE
  Print (0) (Change colors="@0F@","@E0@","@00@","@F0@","@00@")
  Print (0) (SB);"This is the third window.";(BF);(BF);(BF);(BF)
  Print (0) "Hello",@(2,2)
  Input (0) ""

  Print (0) (Create window=0,11,50,21)
  Input (0) MEMSPACE
  Print (0) (Change colors="@0F@","@F0@","@00@","@30@","@00@")
  Print (0) (SB);"This is the fourth window.";(BF);(BF);(BF);(BF)
  Print (0) "Hello",@(2,2)
  Input (0) ""

  Print (0) (Delete window)     ! Close the 4th window
      Print (0) (CH)             ! Position cursor in 3rd window
      Input (0) ""               ! Hold it...

  Print (0) (Delete window)     ! Close the 3rd window
      Print (0) (CH)             ! Position cursor in 2nd window
      Input (0) ""               ! Hold it...

  Print (0) (Delete window)     ! Close the 2nd window
      Print (0) (CH)             ! Position cursor in 1st window
      Input (0) ""               ! Hold it...

  Print (0) (Delete window)     ! Close the 1st window

  Run "QMONITOR"
  End


Comet Windows