home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / startups.sit / Stupcr2.c < prev   
MacBinary  |  1986-05-06  |  3.6 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue May 6 19:53:55 1986, modified Tue May 6 19:53:55 1986, creator Macintosh Edit, type ASCII, 3109 bytes "Stupcr2.c" , at 0xca5 326 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 53 74 75 70 63 72 | 32 2e 63 00 00 00 00 00 |..Stupcr|2.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 0c 25 00 | 00 01 46 9a e4 4a 13 9a |......%.|..F..J..|
|00000060| e4 4a 13 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.J......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7a 29 00 00 |........|....z)..|
|00000080| 2f 2a 20 54 68 69 73 20 | 61 63 74 75 61 6c 6c 79 |/* This |actually|
|00000090| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 20 63 6f | contain|s the co|
|000000a0| 6d 70 69 6c 65 72 20 73 | 74 75 66 66 20 2a 2f 0d |mpiler s|tuff */.|
|000000b0| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|000000c0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 77 69 |.h>.#inc|lude <wi|
|000000d0| 6e 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 22 73 |n.h>.#in|clude "s|
|000000e0| 74 75 70 63 72 2e 68 22 | 0d 0d 77 69 6e 64 6f 77 |tupcr.h"|..window|
|000000f0| 70 74 72 20 77 69 6e 64 | 6f 77 31 3b 0d 65 78 74 |ptr wind|ow1;.ext|
|00000100| 65 72 6e 20 69 6e 74 20 | 67 65 74 66 69 6c 65 28 |ern int |getfile(|
|00000110| 29 3b 0d 65 78 74 65 72 | 6e 20 69 6e 74 20 70 75 |);.exter|n int pu|
|00000120| 74 66 69 6c 65 28 29 3b | 0d 65 78 74 65 72 6e 20 |tfile();|.extern |
|00000130| 63 68 61 72 20 2a 6d 65 | 6d 63 68 3b 0d 65 78 74 |char *me|mch;.ext|
|00000140| 65 72 6e 20 69 6e 74 20 | 65 72 72 6e 6f 3b 0d 0d |ern int |errno;..|
|00000150| 64 6f 63 6f 6d 70 69 6c | 65 28 29 0d 7b 0d 09 69 |docompil|e().{..i|
|00000160| 6e 74 20 66 69 6e 2c 66 | 6f 75 74 3b 0d 09 63 68 |nt fin,f|out;..ch|
|00000170| 61 72 20 2a 69 2c 2a 6a | 2c 62 75 66 66 65 72 5b |ar *i,*j|,buffer[|
|00000180| 32 35 36 5d 2c 62 75 66 | 6f 75 74 5b 31 32 38 5d |256],buf|out[128]|
|00000190| 3b 0d 09 69 6e 74 20 63 | 6f 75 6e 74 2c 68 6c 3b |;..int c|ount,hl;|
|000001a0| 0d 0d 09 69 66 20 28 2d | 31 20 3d 3d 20 28 66 69 |...if (-|1 == (fi|
|000001b0| 6e 20 3d 20 67 65 74 66 | 69 6c 65 28 27 50 4e 54 |n = getf|ile('PNT|
|000001c0| 47 27 29 29 29 20 72 65 | 74 75 72 6e 3b 0d 09 69 |G'))) re|turn;..i|
|000001d0| 66 20 28 2d 32 20 3d 3d | 20 28 66 6f 75 74 20 3d |f (-2 ==| (fout =|
|000001e0| 20 70 75 74 66 69 6c 65 | 28 27 53 43 52 4e 27 2c | putfile|('SCRN',|
|000001f0| 27 4e 4f 4e 45 27 2c 22 | 53 74 61 72 74 55 70 53 |'NONE',"|StartUpS|
|00000200| 63 72 65 65 6e 22 29 29 | 29 20 7b 0d 09 09 63 6c |creen"))|) {...cl|
|00000210| 6f 73 65 28 66 69 6e 29 | 3b 0d 09 09 72 65 74 75 |ose(fin)|;...retu|
|00000220| 72 6e 3b 0d 09 7d 0d 0d | 09 77 69 6e 64 6f 77 31 |rn;..}..|.window1|
|00000230| 20 3d 20 67 65 74 6e 65 | 77 77 69 6e 64 6f 77 28 | = getne|wwindow(|
|00000240| 57 49 4e 44 4f 57 31 52 | 2c 4e 55 4c 4c 2c 4e 55 |WINDOW1R|,NULL,NU|
|00000250| 4c 4c 29 3b 0d 09 69 6e | 69 74 77 69 6e 31 28 29 |LL);..in|itwin1()|
|00000260| 3b 0d 0d 09 69 66 20 28 | 66 6f 75 74 20 3d 3d 20 |;...if (|fout == |
|00000270| 2d 31 29 20 7b 0d 09 09 | 63 6c 6f 73 65 28 66 69 |-1) {...|close(fi|
|00000280| 6e 29 3b 0d 09 09 65 72 | 72 6d 73 67 28 52 45 41 |n);...er|rmsg(REA|
|00000290| 44 45 52 52 4f 52 2c 65 | 72 72 6e 6f 29 3b 0d 09 |DERROR,e|rrno);..|
|000002a0| 09 64 69 73 70 6f 73 65 | 77 69 6e 64 6f 77 28 77 |.dispose|window(w|
|000002b0| 69 6e 64 6f 77 31 29 3b | 0d 09 09 72 65 74 75 72 |indow1);|...retur|
|000002c0| 6e 3b 0d 09 7d 0d 09 69 | 66 20 28 35 31 32 20 3e |n;..}..i|f (512 >|
|000002d0| 20 72 65 61 64 28 66 69 | 6e 2c 6d 65 6d 63 68 2c | read(fi|n,memch,|
|000002e0| 35 31 32 29 29 20 7b 0d | 09 09 65 72 72 6d 73 67 |512)) {.|..errmsg|
|000002f0| 28 52 45 41 44 45 52 52 | 4f 52 2c 65 72 72 6e 6f |(READERR|OR,errno|
|00000300| 29 3b 0d 09 09 63 6c 6f | 73 65 28 66 69 6e 29 3b |);...clo|se(fin);|
|00000310| 0d 09 09 63 6c 6f 73 65 | 28 66 6f 75 74 29 3b 0d |...close|(fout);.|
|00000320| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 6d 6f 76 65 |.} else |{...move|
|00000330| 74 6f 28 31 30 2c 33 30 | 29 3b 0d 09 09 64 72 61 |to(10,30|);...dra|
|00000340| 77 6d 73 67 28 52 45 41 | 44 4d 53 47 29 3b 0d 09 |wmsg(REA|DMSG);..|
|00000350| 09 6d 6f 76 65 74 6f 28 | 31 30 2c 34 35 29 3b 0d |.moveto(|10,45);.|
|00000360| 09 09 66 6f 72 20 28 6a | 20 3d 20 6d 65 6d 63 68 |..for (j| = memch|
|00000370| 3b 20 28 63 6f 75 6e 74 | 20 3d 20 72 65 61 64 28 |; (count| = read(|
|00000380| 66 69 6e 2c 6a 2c 28 75 | 6e 73 69 67 6e 65 64 29 |fin,j,(u|nsigned)|
|00000390| 31 30 32 34 29 29 20 3e | 20 30 3b 20 6a 20 2b 3d |1024)) >| 0; j +=|
|000003a0| 20 63 6f 75 6e 74 29 20 | 0d 09 09 09 64 72 61 77 | count) |....draw|
|000003b0| 63 68 61 72 28 27 2b 27 | 29 3b 0d 09 09 69 66 20 |char('+'|);...if |
|000003c0| 28 63 6f 75 6e 74 20 3d | 3d 20 2d 31 29 20 7b 0d |(count =|= -1) {.|
|000003d0| 09 09 09 65 72 72 6d 73 | 67 28 52 45 41 44 45 52 |...errms|g(READER|
|000003e0| 52 4f 52 2c 65 72 72 6e | 6f 29 3b 0d 09 09 09 64 |ROR,errn|o);....d|
|000003f0| 69 73 70 6f 73 65 77 69 | 6e 64 6f 77 28 77 69 6e |isposewi|ndow(win|
|00000400| 64 6f 77 31 29 3b 0d 09 | 09 09 63 6c 6f 73 65 28 |dow1);..|..close(|
|00000410| 66 69 6e 29 3b 0d 09 09 | 09 63 6c 6f 73 65 28 66 |fin);...|.close(f|
|00000420| 6f 75 74 29 3b 0d 09 09 | 09 72 65 74 75 72 6e 3b |out);...|.return;|
|00000430| 0d 09 09 7d 0d 09 09 63 | 6c 6f 73 65 28 66 69 6e |...}...c|lose(fin|
|00000440| 29 3b 0d 09 09 6d 6f 76 | 65 74 6f 28 31 30 2c 36 |);...mov|eto(10,6|
|00000450| 30 29 3b 0d 09 09 64 72 | 61 77 6d 73 67 28 57 52 |0);...dr|awmsg(WR|
|00000460| 49 54 4d 53 47 29 3b 0d | 09 09 6d 6f 76 65 74 6f |ITMSG);.|..moveto|
|00000470| 28 31 30 2c 37 35 29 3b | 0d 0d 09 09 6a 20 3d 20 |(10,75);|....j = |
|00000480| 6d 65 6d 63 68 3b 0d 09 | 09 68 6c 20 3d 20 30 3b |memch;..|.hl = 0;|
|00000490| 0d 09 09 77 68 69 6c 65 | 20 28 68 6c 20 3c 20 33 |...while| (hl < 3|
|000004a0| 34 32 29 20 7b 0d 09 09 | 09 69 66 20 28 68 6c 20 |42) {...|.if (hl |
|000004b0| 25 20 31 30 20 3d 3d 20 | 30 29 20 64 72 61 77 73 |% 10 == |0) draws|
|000004c0| 74 72 69 6e 67 28 22 2b | 22 29 3b 0d 09 09 09 69 |tring("+|");....i|
|000004d0| 20 3d 20 62 75 66 6f 75 | 74 3b 0d 09 09 09 75 6e | = bufou|t;....un|
|000004e0| 70 61 63 6b 62 69 74 73 | 28 26 6a 2c 26 69 2c 37 |packbits|(&j,&i,7|
|000004f0| 32 29 3b 09 09 09 2f 2a | 20 55 6e 70 61 63 6b 20 |2);.../*| Unpack |
|00000500| 6f 6e 65 20 73 63 61 6e | 20 6c 69 6e 65 20 2a 2f |one scan| line */|
|00000510| 0d 09 09 09 69 66 20 28 | 36 34 20 21 3d 20 77 72 |....if (|64 != wr|
|00000520| 69 74 65 28 66 6f 75 74 | 2c 62 75 66 6f 75 74 2c |ite(fout|,bufout,|
|00000530| 36 34 29 29 20 7b 09 0d | 09 09 09 09 65 72 72 6d |64)) {..|....errm|
|00000540| 73 67 28 57 52 49 54 45 | 52 52 4f 52 2c 65 72 72 |sg(WRITE|RROR,err|
|00000550| 6e 6f 29 3b 0d 09 09 09 | 09 62 72 65 61 6b 3b 09 |no);....|.break;.|
|00000560| 09 09 09 09 09 2f 2a 20 | 45 72 72 6f 72 20 6f 63 |...../* |Error oc|
|00000570| 63 75 72 65 64 20 68 65 | 72 65 21 20 2a 2f 0d 09 |cured he|re! */..|
|00000580| 09 09 7d 0d 09 09 09 68 | 6c 2b 2b 3b 0d 09 09 7d |..}....h|l++;...}|
|00000590| 0d 09 09 63 6c 6f 73 65 | 28 66 6f 75 74 29 3b 09 |...close|(fout);.|
|000005a0| 09 09 09 09 09 2f 2a 20 | 41 6c 6c 20 64 6f 6e 65 |...../* |All done|
|000005b0| 20 2a 2f 0d 0d 09 61 6c | 65 72 74 28 43 4f 4e 56 | */...al|ert(CONV|
|000005c0| 43 4f 4d 50 2c 4e 55 4c | 4c 29 3b 0d 09 7d 0d 09 |COMP,NUL|L);..}..|
|000005d0| 64 69 73 70 6f 73 65 77 | 69 6e 64 6f 77 28 77 69 |disposew|indow(wi|
|000005e0| 6e 64 6f 77 31 29 3b 0d | 7d 0d 0d 69 6e 69 74 77 |ndow1);.|}..initw|
|000005f0| 69 6e 31 28 29 0d 7b 0d | 09 73 65 74 70 6f 72 74 |in1().{.|.setport|
|00000600| 28 77 69 6e 64 6f 77 31 | 29 3b 0d 09 74 65 78 74 |(window1|);..text|
|00000610| 66 6f 6e 74 28 34 29 3b | 0d 09 74 65 78 74 73 69 |font(4);|..textsi|
|00000620| 7a 65 28 39 29 3b 0d 09 | 74 65 78 74 6d 6f 64 65 |ze(9);..|textmode|
|00000630| 28 30 29 3b 0d 09 6d 6f | 76 65 74 6f 28 31 30 2c |(0);..mo|veto(10,|
|00000640| 31 35 29 3b 0d 09 64 72 | 61 77 6d 73 67 28 4f 50 |15);..dr|awmsg(OP|
|00000650| 45 4e 4d 53 47 29 3b 0d | 7d 0d 0d 64 72 61 77 6d |ENMSG);.|}..drawm|
|00000660| 73 67 28 69 29 0d 69 6e | 74 20 69 3b 0d 7b 0d 09 |sg(i).in|t i;.{..|
|00000670| 63 68 61 72 20 62 75 66 | 66 65 72 5b 32 35 36 5d |char buf|fer[256]|
|00000680| 3b 0d 09 67 65 74 69 6e | 64 73 74 72 69 6e 67 28 |;..getin|dstring(|
|00000690| 62 75 66 66 65 72 2c 4d | 53 47 53 54 52 2c 69 29 |buffer,M|SGSTR,i)|
|000006a0| 3b 0d 09 64 72 61 77 73 | 74 72 69 6e 67 28 62 75 |;..draws|tring(bu|
|000006b0| 66 66 65 72 29 3b 0d 7d | 0d 0d 64 6f 64 65 63 6f |ffer);.}|..dodeco|
|000006c0| 6d 70 28 29 0d 7b 0d 09 | 69 6e 74 20 66 69 6e 2c |mp().{..|int fin,|
|000006d0| 66 6f 75 74 3b 0d 09 63 | 68 61 72 20 2a 69 2c 2a |fout;..c|har *i,*|
|000006e0| 6a 2c 62 75 66 66 65 72 | 5b 32 35 36 5d 2c 62 75 |j,buffer|[256],bu|
|000006f0| 66 6f 75 74 5b 31 32 38 | 5d 2c 2a 6b 3b 0d 09 69 |fout[128|],*k;..i|
|00000700| 6e 74 20 63 6f 75 6e 74 | 2c 68 74 2c 63 74 3b 0d |nt count|,ht,ct;.|
|00000710| 0d 09 69 66 20 28 2d 31 | 20 3d 3d 20 28 66 69 6e |..if (-1| == (fin|
|00000720| 20 3d 20 67 65 74 66 69 | 6c 65 28 27 53 43 52 4e | = getfi|le('SCRN|
|00000730| 27 29 29 29 20 72 65 74 | 75 72 6e 3b 0d 09 69 66 |'))) ret|urn;..if|
|00000740| 20 28 2d 32 20 3d 3d 20 | 28 66 6f 75 74 20 3d 20 | (-2 == |(fout = |
|00000750| 70 75 74 66 69 6c 65 28 | 27 50 4e 54 47 27 2c 27 |putfile(|'PNTG','|
|00000760| 4d 50 4e 54 27 2c 22 4d | 61 63 50 61 69 6e 74 69 |MPNT',"M|acPainti|
|00000770| 6e 67 22 29 29 29 20 7b | 0d 09 09 63 6c 6f 73 65 |ng"))) {|...close|
|00000780| 28 66 69 6e 29 3b 0d 09 | 09 72 65 74 75 72 6e 3b |(fin);..|.return;|
|00000790| 0d 09 7d 0d 0d 09 77 69 | 6e 64 6f 77 31 20 3d 20 |..}...wi|ndow1 = |
|000007a0| 67 65 74 6e 65 77 77 69 | 6e 64 6f 77 28 57 49 4e |getnewwi|ndow(WIN|
|000007b0| 44 4f 57 31 52 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 29 |DOW1R,NU|LL,NULL)|
|000007c0| 3b 0d 09 69 6e 69 74 77 | 69 6e 31 28 29 3b 0d 0d |;..initw|in1();..|
|000007d0| 09 69 66 20 28 66 6f 75 | 74 20 3d 3d 20 2d 31 29 |.if (fou|t == -1)|
|000007e0| 20 7b 0d 09 09 63 6c 6f | 73 65 28 66 69 6e 29 3b | {...clo|se(fin);|
|000007f0| 0d 09 09 65 72 72 6d 73 | 67 28 52 45 41 44 45 52 |...errms|g(READER|
|00000800| 52 4f 52 2c 65 72 72 6e | 6f 29 3b 0d 09 09 64 69 |ROR,errn|o);...di|
|00000810| 73 70 6f 73 65 77 69 6e | 64 6f 77 28 77 69 6e 64 |sposewin|dow(wind|
|00000820| 6f 77 31 29 3b 0d 09 09 | 72 65 74 75 72 6e 3b 0d |ow1);...|return;.|
|00000830| 09 7d 0d 09 6d 6f 76 65 | 74 6f 28 31 30 2c 33 30 |.}..move|to(10,30|
|00000840| 29 3b 0d 09 64 72 61 77 | 6d 73 67 28 52 45 41 32 |);..draw|msg(REA2|
|00000850| 4d 53 47 29 3b 0d 09 6d | 6f 76 65 74 6f 28 31 30 |MSG);..m|oveto(10|
|00000860| 2c 34 35 29 3b 0d 0d 09 | 66 6f 72 20 28 6a 20 3d |,45);...|for (j =|
|00000870| 20 6d 65 6d 63 68 2c 20 | 63 6f 75 6e 74 20 3d 20 | memch, |count = |
|00000880| 30 3b 20 63 6f 75 6e 74 | 20 3c 20 35 31 32 3b 20 |0; count| < 512; |
|00000890| 63 6f 75 6e 74 2b 2b 29 | 20 2a 28 6a 2b 2b 29 20 |count++)| *(j++) |
|000008a0| 3d 20 30 3b 0d 0d 09 66 | 6f 72 20 28 68 74 20 3d |= 0;...f|or (ht =|
|000008b0| 20 30 3b 20 28 28 63 6f | 75 6e 74 20 3d 20 72 65 | 0; ((co|unt = re|
|000008c0| 61 64 28 66 69 6e 2c 6b | 20 3d 20 62 75 66 6f 75 |ad(fin,k| = bufou|
|000008d0| 74 2c 28 75 6e 73 69 67 | 6e 65 64 29 36 34 29 29 |t,(unsig|ned)64))|
|000008e0| 20 3e 20 30 29 3b 29 20 | 7b 0d 09 09 69 20 3d 20 | > 0);) |{...i = |
|000008f0| 6b 20 2b 20 36 34 3b 0d | 09 09 2a 28 69 2b 2b 29 |k + 64;.|..*(i++)|
|00000900| 20 3d 20 28 63 68 61 72 | 29 30 78 34 30 3b 0d 09 | = (char|)0x40;..|
|00000910| 09 66 6f 72 20 28 63 74 | 20 3d 20 36 35 3b 20 63 |.for (ct| = 65; c|
|00000920| 74 20 3c 20 37 32 3b 20 | 63 74 2b 2b 29 20 2a 28 |t < 72; |ct++) *(|
|00000930| 69 2b 2b 29 20 3d 20 30 | 3b 0d 09 09 70 61 63 6b |i++) = 0|;...pack|
|00000940| 62 69 74 73 28 26 6b 2c | 26 6a 2c 37 32 29 3b 0d |bits(&k,|&j,72);.|
|00000950| 09 09 68 74 2b 2b 3b 0d | 09 09 69 66 20 28 68 74 |..ht++;.|..if (ht|
|00000960| 20 25 20 31 30 20 3d 3d | 20 30 29 20 64 72 61 77 | % 10 ==| 0) draw|
|00000970| 63 68 61 72 28 27 2b 27 | 29 3b 0d 09 7d 0d 09 69 |char('+'|);..}..i|
|00000980| 66 20 28 63 6f 75 6e 74 | 20 3d 3d 20 2d 31 29 20 |f (count| == -1) |
|00000990| 7b 0d 09 09 65 72 72 6d | 73 67 28 52 45 41 44 45 |{...errm|sg(READE|
|000009a0| 52 52 4f 52 2c 65 72 72 | 6e 6f 29 3b 0d 09 09 64 |RROR,err|no);...d|
|000009b0| 69 73 70 6f 73 65 77 69 | 6e 64 6f 77 28 77 69 6e |isposewi|ndow(win|
|000009c0| 64 6f 77 31 29 3b 0d 09 | 09 63 6c 6f 73 65 28 66 |dow1);..|.close(f|
|000009d0| 69 6e 29 3b 0d 09 09 63 | 6c 6f 73 65 28 66 6f 75 |in);...c|lose(fou|
|000009e0| 74 29 3b 0d 09 09 72 65 | 74 75 72 6e 3b 0d 09 7d |t);...re|turn;..}|
|000009f0| 0d 0d 09 0d 09 69 20 3d | 20 6b 20 3d 20 62 75 66 |.....i =| k = buf|
|00000a00| 6f 75 74 3b 0d 09 66 6f | 72 20 28 63 74 20 3d 20 |out;..fo|r (ct = |
|00000a10| 30 3b 20 63 74 20 3c 20 | 37 32 3b 20 63 74 2b 2b |0; ct < |72; ct++|
|00000a20| 29 20 2a 28 69 2b 2b 29 | 20 3d 20 30 3b 09 09 2f |) *(i++)| = 0;../|
|00000a30| 2a 20 4f 6e 65 20 62 6c | 61 6e 6b 20 6c 69 6e 65 |* One bl|ank line|
|00000a40| 20 2a 2f 0d 09 70 61 63 | 6b 62 69 74 73 28 26 6b | */..pac|kbits(&k|
|00000a50| 2c 26 6a 2c 37 32 29 3b | 0d 09 64 72 61 77 63 68 |,&j,72);|..drawch|
|00000a60| 61 72 28 27 2e 27 29 3b | 0d 09 0d 09 69 20 3d 20 |ar('.');|....i = |
|00000a70| 6b 20 3d 20 62 75 66 6f | 75 74 3b 0d 09 66 6f 72 |k = bufo|ut;..for|
|00000a80| 20 28 63 74 20 3d 20 30 | 3b 20 63 74 20 3c 20 36 | (ct = 0|; ct < 6|
|00000a90| 34 3b 20 63 74 2b 2b 29 | 20 2a 28 69 2b 2b 29 20 |4; ct++)| *(i++) |
|00000aa0| 3d 20 28 63 68 61 72 29 | 30 78 30 46 46 3b 09 2f |= (char)|0x0FF;./|
|00000ab0| 2a 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 62 6c |* follow|ed by bl|
|00000ac0| 61 63 6b 20 2a 2f 0d 09 | 66 6f 72 20 28 3b 63 74 |ack */..|for (;ct|
|00000ad0| 20 3c 20 37 32 3b 20 63 | 74 2b 2b 29 20 2a 28 69 | < 72; c|t++) *(i|
|00000ae0| 2b 2b 29 20 3d 20 30 3b | 0d 09 70 61 63 6b 62 69 |++) = 0;|..packbi|
|00000af0| 74 73 28 26 6b 2c 26 6a | 2c 37 32 29 3b 0d 09 64 |ts(&k,&j|,72);..d|
|00000b00| 72 61 77 63 68 61 72 28 | 27 2e 27 29 3b 0d 09 0d |rawchar(|'.');...|
|00000b10| 09 69 20 3d 20 6b 20 3d | 20 62 75 66 6f 75 74 3b |.i = k =| bufout;|
|00000b20| 0d 09 66 6f 72 20 28 63 | 74 20 3d 20 30 3b 20 63 |..for (c|t = 0; c|
|00000b30| 74 20 3c 20 37 32 3b 20 | 63 74 2b 2b 29 20 2a 28 |t < 72; |ct++) *(|
|00000b40| 69 2b 2b 29 20 3d 20 30 | 3b 09 09 2f 2a 20 61 6e |i++) = 0|;../* an|
|00000b50| 64 20 77 68 69 74 65 20 | 61 67 61 69 6e 20 2a 2f |d white |again */|
|00000b60| 0d 09 66 6f 72 20 28 68 | 74 20 3d 20 33 34 34 3b |..for (h|t = 344;|
|00000b70| 20 68 74 20 3c 20 37 32 | 30 3b 20 68 74 2b 2b 29 | ht < 72|0; ht++)|
|00000b80| 20 7b 0d 09 09 6b 20 3d | 20 62 75 66 6f 75 74 3b | {...k =| bufout;|
|00000b90| 0d 09 09 70 61 63 6b 62 | 69 74 73 28 26 6b 2c 26 |...packb|its(&k,&|
|00000ba0| 6a 2c 37 32 29 3b 0d 09 | 7d 0d 09 64 72 61 77 63 |j,72);..|}..drawc|
|00000bb0| 68 61 72 28 27 2a 27 29 | 3b 0d 0d 09 63 6c 6f 73 |har('*')|;...clos|
|00000bc0| 65 28 66 69 6e 29 3b 0d | 09 6d 6f 76 65 74 6f 28 |e(fin);.|.moveto(|
|00000bd0| 31 30 2c 36 30 29 3b 0d | 09 64 72 61 77 6d 73 67 |10,60);.|.drawmsg|
|00000be0| 28 57 52 49 32 4d 53 47 | 29 3b 0d 09 6d 6f 76 65 |(WRI2MSG|);..move|
|00000bf0| 74 6f 28 31 30 2c 37 35 | 29 3b 0d 0d 09 68 74 20 |to(10,75|);...ht |
|00000c00| 3d 20 28 69 6e 74 29 28 | 6a 20 2d 20 6d 65 6d 63 |= (int)(|j - memc|
|00000c10| 68 29 3b 0d 09 69 66 20 | 28 68 74 20 21 3d 20 77 |h);..if |(ht != w|
|00000c20| 72 69 74 65 28 66 6f 75 | 74 2c 6d 65 6d 63 68 2c |rite(fou|t,memch,|
|00000c30| 68 74 29 29 20 65 72 72 | 6d 73 67 28 57 52 49 54 |ht)) err|msg(WRIT|
|00000c40| 45 52 52 4f 52 2c 65 72 | 72 6e 6f 29 3b 0d 0d 09 |ERROR,er|rno);...|
|00000c50| 63 6c 6f 73 65 28 66 6f | 75 74 29 3b 09 09 09 09 |close(fo|ut);....|
|00000c60| 09 09 2f 2a 20 41 6c 6c | 20 64 6f 6e 65 20 2a 2f |../* All| done */|
|00000c70| 0d 0d 09 61 6c 65 72 74 | 28 43 4f 4e 56 43 4f 4d |...alert|(CONVCOM|
|00000c80| 50 2c 4e 55 4c 4c 29 3b | 0d 09 64 69 73 70 6f 73 |P,NULL);|..dispos|
|00000c90| 65 77 69 6e 64 6f 77 28 | 77 69 6e 64 6f 77 31 29 |ewindow(|window1)|
|00000ca0| 3b 0d 7d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |;.}.....|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 08 | 00 00 00 08 00 00 00 3e |........|.......>|
|00000d10| 01 9c 54 8f 60 00 fe 4c | 4e 5e 4e 75 4e 56 ff ae |..T.`..L|N^NuNV..|
|00000d20| 2f 0b 26 6e 00 0a 2f 0a | 24 4b 3d 6e 00 0e ff ae |/.&n../.|$K=n....|
|00000d30| 09 53 74 75 70 63 72 32 | 2e 63 02 00 00 00 00 00 |.Stupcr2|.c......|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 9f e4 5b 9d 00 00 | 0c 25 00 00 01 46 2d 4b |....[...|.%...F-K|
|00000d80| ff d0 30 2e 00 0e c0 bc | 00 00 ff ff 2d 40 ff d4 |..0.....|....-@..|
|00000d90| 42 6e ff dc 42 67 48 6e | ff b0 4e ba 03 a6 5c 8f |Bn..BgHn|..N...\.|
|00000da0| 39 40 fe f2 0c 40 00 00 | 6c 06 30 3c ff ff 60 3e |9@...@..|l.0<..`>|
|00000db0| 20 2e ff d8 3d 40 ff ae | 3f 2e 00 08 4e ba 02 32 | ...=@..|?...N..2|
|00000dc0| 54 8f 4a 40 66 24 3d 6e | ff ae 00 0e 30 2e 00 0e |T.J@f$=n|....0...|
|00000dd0| 53 6e 00 0e 4a 40 67 12 | 10 13 48 80 b0 7c 00 0d |Sn..J@g.|..H..|..|
|00000de0| 66 04 16 bc 00 0a 52 8b | 60 e2 30 2e ff ae 24 5f |f.....R.|`.0...$_|
|00000df0| 26 5f 4e 5e 4e 75 4e 56 | 00 00 55 4f 3f 2e 00 08 |&_N^NuNV|..UO?...|
|00000e00| 00 00 00 04 02 09 04 01 | 00 00 01 00 00 00 01 08 |........|........|
|00000e10| 00 00 00 08 00 00 00 3e | 00 01 21 b2 00 3e 00 00 |.......>|..!..>..|
|00000e20| 00 1c 00 32 00 00 45 4f | 50 54 00 00 00 0a 03 ee |...2..EO|PT......|
|00000e30| 00 00 00 00 00 00 00 01 | 20 f6 0b 65 64 69 74 6f |........| ..edito|
|00000e40| 72 20 69 6e 66 6f 00 00 | 00 00 00 00 00 00 00 00 |r info..|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+