.pas...192.76.176.142/pub/fsub/cobukas/quellen/original/SYSMOD/WINDOW.PAS
...Window Management Services Version 1 0 8 06 84 c Copyright 1984 Timothy E Ide All commercial rights reserved constant and variable declarations const wxa 1 min col wya 1 min row wxz 80 max col wyz 23 max row wlz 1840 max length wxv set of byte wxa wxz wyv set of byte wya wyz wzr integer 0 type wbs...
.pashttp://gaby.de/ftp/pub/cpm/znode51/pcwworld/l102/user_0/window.pas
...Window Management Services Demonstration Version 1 0 8 6 84 c Copyright 1984 Timothy E Ide All commercial rights reserved procedure InitBorder begin wi open BorderPrompt MenuX MenuY BorderPromptW BorderPromptH wi putln BorderPrompt wi border wi putln BorderPrompt window number wi put BorderPrompt...
.pashttp://gaby.de/ftp/pub/cpm/znode51/pcwworld/l102/user_0/demo1.pas
...c 2001 Emur http emur org program hadani uses crt var cislo hadane n integer begin textbackground 0 clrscr window 10 2 70 4 textbackground blue clrscr textcolor white gotoXY 12 3 writeln Myslim si cislo od 1 do 100 uhodni ho window 25 6 55 24 clrscr randomize cislo random 100 n 1 write n pokus read...
.pashttp://emur.org/pascal/hadani.pas
...program test shows how var parameters behave using the watch window var one two integer procedure proc var param1 integer param2 integer begin param1 4 writeln param2 param2 param2 5 end begin two 8 proc one two writeln one end...
.pas...p://cs.nyu.edu/cs/dept_info/course_home_pages/fall96/V22.0101/test.pas
... EVENT T ch CHAR i INTEGER timeout TIME CLOCK T disp bm size GPR OFFSET T init bitmap GPR BITMAP DESC T unobscured BOOLEAN fwidth INTEGER fhite INTEGER fname PAD STRING T fnsize INTEGER fnlen INTEGER fid INTEGER start GPR OFFSET T xend INTEGER window PAD WINDOW DESC T stream out STREAM ID T stream...
.pashttp://kermit.columbia.edu/ftp/c/apoterm.pas
...c 2001 Emur http emur org program Asciihelp uses crt var x y x1 y1 integer ch key char procedure vstup nacitani znaku begin window 37 3 50 3 key readkey while key 27 do begin textcolor lightcyan write key ord key key readkey clrscr end window 5 3 80 25 end BEGIN textcolor yellow clrscr window 35 9...
.pashttp://emur.org/pascal/asciihlp.pas
...c 2001 Emur http emur org program hexa soustava uses crt var x zbytek i longint vysl vysl2 hexa deci string y integer BEGIN clrscr window 16 4 75 23 writeln PREVOD CISLA DO HEXADECIMALNI SOUSTAVY writeln write Konec 0 Zadej cislo v desitkove soustave window 27 8 75 19 repeat read x y wherey if x 0...
.pashttp://emur.org/pascal/hexa.pas
...ODULE IOUtils Module for various IO operations Reading cursorpatterns and fontpatterns Clearing blacking inverting windows Author Petter Hesselberg Changelog V2 0 19 Jul 83 P Hesselberg ReadFont PlaseCursor Window routines work perfectly V1 0 19 Jul 83 P Hesselberg ReadCursor on the air V0 0 19 Jul...
.pashttp://kermit.columbia.edu/ftp/c/pq2iou.pas