(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 5-Dec-2020 16:36:52" ("compiled on " {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>SCREENPAPER.;3) " 9-Apr-2000 18:01:32" bcompl'd in "Medley 3.5 Full Sysout 13-Aug-2020 ..." dated "13-Aug-2020 12:39:12") (FILECREATED " 5-Dec-2020 16:36:45" {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>SCREENPAPER.;3 12813 previous date%: "17-Aug-90 14:46:25" {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>SCREENPAPER.;1) SCREENPAPERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `ljh(4 GETMOUSESTATE) (10 LASTMOUSEBUTTONS) () SCREENPAPERA0002 :D8 (I 1 Y I 0 X F 2 SIZE F 3 WINDOW F 4 BUF1 F 5 CNT F 6 SCREENREPEAT F 7 STREAM F 8 SCREENPERIOD) S @ATjdRd RkjdRk jRk kgW TSRhg Umc jWc VkYHhSjdT TSR Ik԰(119 KALSHOW 110 BKBITBLT 77 KALSHOW 64 VIDEOCOLOR 56 DRAWLINE 42 RAND 33 RAND 20 BKBITBLT 5 \INSUREWINDOW) (72 INVERT 48 INVERT) () SCREENPAPER :D8 (P 15 SI::*RESETFORMS* P 14 POS P 13 CY P 12 CX P 11 BUF4 P 10 BUF3 P 9 BUF2 P 8 BUF1A P 7 PBT P 6 BIGBUF P 5 2SIZE P 4 BUF1 P 3 STREAM P 2 TRIANGLE P 1 CNT P 0 SIZE I 2 OPTION I 1 REGION.OR.SIZE I 0 WINDOW F 16 SCREENPAPERSIZE F 17 SCREENPERIOD) M@bABgldhg W b AAW" Hd ZHd \J [oHdmHhnK Hd _Hd _Hd]dd ^`_LK Bgg` hhhg $`dlkNllhA AA_hbHd _OOLjdHd L@Hg g g@g (330 MAPN 315 KALSHOW 303 SHIFTDOWNP 289 BKBITBLT 272 SCREENBITMAP 264 GETBOXPOSITION 242 REGIONP 208 SI::RESETUNWIND 203 \MVLIST 198 SCREENPAPERA0001 178 CURSOR 149 DSPDESTINATION 133 BITMAPCREATE 120 BITMAPCREATE 111 BITMAPCREATE 104 FILLPOLYGON 78 DSPCREATE 71 BITMAPCREATE 63 BITMAPCREATE 44 REGIONP 34 GETREGION 6 CREATEW) (325 SCREENPAPERA0002 310 INVERT 298 SHIFT 218 LASTMOUSEBUTTONS 193 SI::RESETUNWIND 173 CROSSHAIRS 168 CURSOR 155 PICK 139 |PILOTBBTTYPE#| 29 SCREENPAPERNEWREGIONFN 18 PICK) ( 84 (-1 . -1)) SCREENPAPERNEWREGIONFN :D8 (P 1 DY P 0 DX I 1 MP I 0 FP) MA@@A@jHHjHjIIjIA@HjHImkA@IjHImkANIL NIL () KALSHOWA0001 :D8 (I 1 Y I 0 X F 0 2SIZE F 1 BIGBUF F 2 WINDOW F 3 CX F 4 MODE F 5 CY) QhdRS@PUAPhdTg (27 BKBITBLT) (21 REPLACE) () KALSHOW :D8 (P 3 J P 2 I P 1 CY P 0 CX I 3 MODE I 2 SIZE I 1 WINDOW I 0 BUF1 F 4 BUF2 F 5 PBT F 6 BUF3 F 7 BIGBUF F 8 2SIZE F 9 TRIANGLE) Whd@hddddg @TU TVU Vhd@hddddg  @hdWjB @TU ThdWBd @VU VhdWjd VTU ThdWBj Ag lXAg lYjJWHIHIW%jKJgKJ Kk[JkZ(228 BLOCK 208 DOPOINT 161 GETWINDOWPROP 146 GETWINDOWPROP 135 BKBITBLT 122 INVERT.BITMAP.HORIZONTALLY 114 BKBITBLT 101 INVERT.BITMAP.VERTICALLY 93 BKBITBLT 80 INVERT.BITMAP.HORIZONTALLY 72 BKBITBLT 56 BKBITBLT 36 INVERT.BITMAP.VERTICALLY 28 ROTATE.BITMAP 20 BKBITBLT) (201 KALSHOWA0001 156 HEIGHT 141 WIDTH 50 PAINT 14 ERASE) () DOPOINT :D8 (I 2 Y I 1 X I 0 FN) ;BA@BA ABkl@mABkl@AmBkl@mAmBkl@(11 DOPOINT) NIL () MAPN :D8 (P 8 I P 6 STEPS P 5 NY P 4 NX P 3 Y P 2 X P 1 MAXY P 0 MAXX I 1 FN I 0 WINDOW F 9 SIZE) @g W@g WRjH ZjI [jH jI LJ MK l^jNkOO$JLJONKMKONlAOk_LM(78 ABS 70 ABS 61 RAND 53 RAND 45 RAND 37 RAND 24 GETWINDOWPROP 10 GETWINDOWPROP) (19 HEIGHT 5 WIDTH) () INVERT.BITMAP.HORIZONTALLY :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@ bB `bABAB@B@BlAnBl@nBn@ B@ BkjH@&BHB@kHBjvHkXA(7 BITMAPCOPY) (168 PILOTBBT 158 PILOTBBT 136 PILOTBBT 124 PILOTBBT 112 PILOTBBT 93 PILOTBBT 74 PILOTBBT 62 PILOTBBT 50 PILOTBBT 38 PILOTBBT 26 PILOTBBT 18 |PILOTBBTTYPE#|) () INVERT.BITMAP.VERTICALLY :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@ bB `bABA@kAB@B@BlAnBl@nBjBjBn@ Bk B@jH@8BjvBB@BBjAHkXA(7 BITMAPCOPY) (219 PILOTBBT 213 PILOTBBT 198 PILOTBBT 192 PILOTBBT 164 PILOTBBT 154 PILOTBBT 142 PILOTBBT 132 PILOTBBT 122 PILOTBBT 103 PILOTBBT 84 PILOTBBT 72 PILOTBBT 60 PILOTBBT 38 PILOTBBT 26 PILOTBBT 18 |PILOTBBTTYPE#|) () ROTATE.BITMAP :D8 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) A@@ bB `bABAB@B@BlAnBkBjBABj BA BkjH@5BBmBjvBB@HkXA(12 BITMAPCREATE) (204 PILOTBBT 198 PILOTBBT 180 PILOTBBT 174 PILOTBBT 152 PILOTBBT 140 PILOTBBT 130 PILOTBBT 118 PILOTBBT 108 PILOTBBT 98 PILOTBBT 79 PILOTBBT 67 PILOTBBT 55 PILOTBBT 43 PILOTBBT 31 PILOTBBT 23 |PILOTBBTTYPE#|) () (PRETTYCOMPRINT SCREENPAPERCOMS) (RPAQQ SCREENPAPERCOMS ((FNS SCREENPAPER SCREENPAPERNEWREGIONFN KALSHOW DOPOINT MAPN) (ADDVARS ( IDLE.FUNCTIONS ("Screen wallpaper" (QUOTE SCREENPAPER)))) (* ;;; "faster versions of editbitmap functions") (FNS INVERT.BITMAP.HORIZONTALLY INVERT.BITMAP.VERTICALLY ROTATE.BITMAP) (VARS SCREENPAPERSIZE SCREENPERIOD SCREENREPEAT))) (ADDTOVAR IDLE.FUNCTIONS ("Screen wallpaper" (QUOTE SCREENPAPER))) (RPAQQ SCREENPAPERSIZE 64) (RPAQQ SCREENPERIOD 100) (RPAQQ SCREENREPEAT 0) (PUTPROPS SCREENPAPER COPYRIGHT ("Venue & Xerox Corporation" 1901 1986 1988 1990 2020)) NIL