00000000  53 75 6e 2c 30 37 20 4d  61 72 20 31 39 39 33 2e  |Sun,07 Mar 1993.|
00000010  31 34 3a 34 32 3a 35 39  00 7c 20 44 65 66 61 75  |14:42:59.| Defau|
00000020  6c 74 20 21 42 6f 6f 74  20 66 69 6c 65 0a 0a 49  |lt !Boot file..I|
00000030  63 6f 6e 53 70 72 69 74  65 73 20 3c 4f 62 65 79  |conSprites <Obey|
00000040  24 44 69 72 3e 2e 21 73  70 72 69 74 65 73 0a 0a  |$Dir>.!sprites..|
00000050  00 7c 20 44 65 66 61 75  6c 74 20 21 52 75 6e 20  |.| Default !Run |
00000060  66 69 6c 65 0a 0a 49 66  20 22 3c 53 79 73 74 65  |file..If "<Syste|
00000070  6d 24 50 61 74 68 3e 22  3d 22 22 20 54 68 65 6e  |m$Path>"="" Then|
00000080  20 45 72 72 6f 72 20 30  20 53 79 73 74 65 6d 20  | Error 0 System |
00000090  72 65 73 6f 75 72 63 65  73 20 63 61 6e 6e 6f 74  |resources cannot|
000000a0  20 62 65 20 66 6f 75 6e  64 2e 0a 0a 52 4d 45 6e  | be found...RMEn|
000000b0  73 75 72 65 20 46 50 45  6d 75 6c 61 74 6f 72 20  |sure FPEmulator |
000000c0  32 2e 37 30 20 52 4d 4c  6f 61 64 20 53 79 73 74  |2.70 RMLoad Syst|
000000d0  65 6d 3a 4d 6f 64 75 6c  65 73 2e 46 50 45 6d 75  |em:Modules.FPEmu|
000000e0  6c 61 74 6f 72 0a 52 4d  45 6e 73 75 72 65 20 46  |lator.RMEnsure F|
000000f0  50 45 6d 75 6c 61 74 6f  72 20 32 2e 37 30 20 45  |PEmulator 2.70 E|
00000100  72 72 6f 72 20 59 6f 75  20 6e 65 65 64 20 46 50  |rror You need FP|
00000110  45 6d 75 6c 61 74 6f 72  20 32 2e 37 30 20 6f 72  |Emulator 2.70 or|
00000120  20 6c 61 74 65 72 0a 0a  7c 20 52 4d 45 6e 73 75  | later..| RMEnsu|
00000130  72 65 20 45 75 63 6c 69  64 20 31 2e 30 33 20 52  |re Euclid 1.03 R|
00000140  4d 4c 6f 61 64 20 3c 4f  62 65 79 24 44 69 72 3e  |MLoad <Obey$Dir>|
00000150  2e 45 75 63 6c 69 64 58  0a 0a 7c 20 52 4d 45 6e  |.EuclidX..| RMEn|
00000160  73 75 72 65 20 54 72 61  63 6b 65 72 4d 6f 64 75  |sure TrackerModu|
00000170  6c 65 20 32 2e 30 36 20  52 4d 4c 4f 41 44 20 3c  |le 2.06 RMLOAD <|
00000180  4f 62 65 79 24 44 69 72  3e 2e 50 6c 61 79 65 72  |Obey$Dir>.Player|
00000190  4d 6f 64 0a 0a 52 4d 45  6e 73 75 72 65 20 43 6f  |Mod..RMEnsure Co|
000001a0  6c 6f 75 72 54 72 61 6e  73 20 30 2e 35 31 20 52  |lourTrans 0.51 R|
000001b0  4d 4c 6f 61 64 20 53 79  73 74 65 6d 3a 4d 6f 64  |MLoad System:Mod|
000001c0  75 6c 65 73 2e 43 6f 6c  6f 75 72 73 0a 52 4d 45  |ules.Colours.RME|
000001d0  6e 73 75 72 65 20 43 6f  6c 6f 75 72 54 72 61 6e  |nsure ColourTran|
000001e0  73 20 30 2e 35 31 20 45  72 72 6f 72 20 59 6f 75  |s 0.51 Error You|
000001f0  20 6e 65 65 64 20 43 6f  6c 6f 75 72 54 72 61 6e  | need ColourTran|
00000200  73 20 30 2e 35 31 20 6f  72 20 6c 61 74 65 72 0a  |s 0.51 or later.|
00000210  0a 52 4d 45 6e 73 75 72  65 20 48 65 6c 69 78 44  |.RMEnsure HelixD|
00000220  65 6d 6f 20 31 2e 30 30  20 52 4d 4c 6f 61 64 20  |emo 1.00 RMLoad |
00000230  3c 48 65 6c 69 78 53 79  73 74 65 6d 24 44 69 72  |<HelixSystem$Dir|
00000240  3e 2e 4d 6f 64 75 6c 65  73 2e 48 65 6c 69 78 44  |>.Modules.HelixD|
00000250  65 6d 6f 0a 52 4d 45 6e  73 75 72 65 20 48 65 6c  |emo.RMEnsure Hel|
00000260  69 78 44 65 6d 6f 20 31  2e 30 30 20 45 72 72 6f  |ixDemo 1.00 Erro|
00000270  72 20 59 6f 75 20 6e 65  65 64 20 48 65 6c 69 78  |r You need Helix|
00000280  44 65 6d 6f 20 31 2e 30  30 20 6f 72 20 6c 61 74  |Demo 1.00 or lat|
00000290  65 72 0a 0a 49 63 6f 6e  73 70 72 69 74 65 73 20  |er..Iconsprites |
000002a0  3c 4f 62 65 79 24 44 69  72 3e 2e 21 53 70 72 69  |<Obey$Dir>.!Spri|
000002b0  74 65 73 0a 0a 57 69 6d  70 53 6c 6f 74 20 2d 6d  |tes..WimpSlot -m|
000002c0  69 6e 20 31 36 30 4b 20  2d 6d 61 78 20 31 36 30  |in 160K -max 160|
000002d0  4b 0a 0a 3c 4f 62 65 79  24 44 69 72 3e 2e 21 52  |K..<Obey$Dir>.!R|
000002e0  75 6e 49 6d 61 67 65 0a  00 50 6c 61 63 65 20 69  |unImage..Place i|
000002f0  6e 66 6f 72 6d 61 74 69  6f 6e 20 61 62 6f 75 74  |nformation about|
00000300  20 74 68 65 20 70 72 6f  67 72 61 6d 20 69 6e 20  | the program in |
00000310  74 68 69 73 20 66 69 6c  65 0a 00 52 45 4d 20 2b  |this file..REM +|
00000320  2d 2d 2d 20 54 68 65 20  4d 61 69 6e 20 50 72 6f  |--- The Main Pro|
00000330  63 65 64 75 72 65 20 2d  2d 2d 2b 0a 4f 50 45 4e  |cedure ---+.OPEN|
00000340  57 49 4e 44 4f 57 20 6d  61 69 6e 2c 35 30 30 2c  |WINDOW main,500,|
00000350  35 30 30 0a 63 6f 6c 31  25 3d 26 46 46 46 46 46  |500.col1%=&FFFFF|
00000360  46 0a 63 6f 6c 32 25 3d  26 38 38 38 38 38 38 0a  |F.col2%=&888888.|
00000370  63 6f 6c 33 25 3d 26 44  44 44 44 44 44 0a 63 6f  |col3%=&DDDDDD.co|
00000380  6c 34 25 3d 26 41 41 45  45 45 45 0a 44 49 4d 20  |l4%=&AAEEEE.DIM |
00000390  62 6f 78 25 28 36 29 0a  54 48 52 45 41 44 20 63  |box%(6).THREAD c|
000003a0  61 74 2c 6e 6f 24 2c 64  65 73 24 2c 70 72 69 63  |at,no$,des$,pric|
000003b0  65 24 0a 41 25 3d 41 44  44 54 48 52 45 41 44 20  |e$.A%=ADDTHREAD |
000003c0  43 41 54 28 22 31 30 31  30 31 30 22 2c 22 41 20  |CAT("101010","A |
000003d0  50 4f 53 54 45 52 22 2c  22 31 30 2e 39 39 22 29  |POSTER","10.99")|
000003e0  0a 41 25 3d 41 44 44 54  48 52 45 41 44 20 43 41  |.A%=ADDTHREAD CA|
000003f0  54 28 22 31 30 31 30 32  30 22 2c 22 4d 4f 52 45  |T("101020","MORE|
00000400  20 50 4f 53 54 45 52 53  22 2c 22 31 32 2e 39 39  | POSTERS","12.99|
00000410  22 29 0a 7c 41 25 3d 41  44 44 54 48 52 45 41 44  |").|A%=ADDTHREAD|
00000420  20 43 41 54 28 22 31 30  31 30 33 30 22 2c 22 41  | CAT("101030","A|
00000430  20 42 49 47 20 50 4f 53  54 45 52 22 2c 22 31 35  | BIG POSTER","15|
00000440  2e 39 39 22 29 0a 50 52  4f 43 62 75 69 6c 64 0a  |.99").PROCbuild.|
00000450  7c 4f 50 45 4e 57 49 4e  44 4f 57 20 6d 61 69 6e  ||OPENWINDOW main|
00000460  2c 35 30 30 2c 35 30 30  0a 0a 0a 52 45 50 45 41  |,500,500...REPEA|
00000470  54 0a 55 4e 54 49 4c 20  46 41 4c 53 45 0a 00 21  |T.UNTIL FALSE..!|
00000480  54 45 4d 50 00 74 65 73  74 20 65 64 69 74 6f 72  |TEMP.test editor|
00000490  00 6d 65 00 30 2e 30 30  31 00 00 4f 50 45 4e 57  |.me.0.001..OPENW|
000004a0  49 4e 44 4f 57 20 4d 41  49 4e 2c 35 30 30 2c 35  |INDOW MAIN,500,5|
000004b0  30 30 00 4f 50 45 4e 4d  45 4e 55 20 49 43 4f 4e  |00.OPENMENU ICON|
000004c0  2c 4d 4f 55 53 45 50 4f  53 58 2d 35 30 2c 4d 4f  |,MOUSEPOSX-50,MO|
000004d0  55 53 45 50 4f 53 59 2b  31 33 30 00 45 4e 44 00  |USEPOSY+130.END.|
000004e0  00 00 00 00 04 62 75 69  6c 64 00 00 0a 50 52 4f  |.....build...PRO|
000004f0  43 20 62 6f 72 64 65 72  5f 6d 61 69 6e 20 28 22  |C border_main ("|
00000500  6d 61 69 6e 22 2c 32 30  2c 31 32 30 2c 39 36 30  |main",20,120,960|
00000510  2c 33 35 30 29 0a 50 52  4f 43 20 62 6f 72 64 65  |,350).PROC borde|
00000520  72 5f 75 70 20 28 22 6d  61 69 6e 22 2c 32 35 30  |r_up ("main",250|
00000530  2c 34 35 30 2c 35 30 30  2c 34 30 2c 22 57 65 62  |,450,500,40,"Web|
00000540  62 20 49 76 6f 72 79 20  43 61 74 61 6c 6f 67 75  |b Ivory Catalogu|
00000550  65 22 2c 26 33 33 33 33  33 33 29 0a 54 45 58 54  |e",&333333).TEXT|
00000560  20 6d 61 69 6e 2c 26 33  33 33 33 33 33 2c 35 30  | main,&333333,50|
00000570  2c 34 30 30 2c 22 43 61  74 2e 4e 6f 2e 22 0a 50  |,400,"Cat.No.".P|
00000580  52 4f 43 20 62 6f 72 64  65 72 5f 74 78 74 20 28  |ROC border_txt (|
00000590  22 6d 61 69 6e 22 2c 35  30 2c 33 30 30 2c 36 2c  |"main",50,300,6,|
000005a0  22 22 2c 26 38 38 38 38  38 38 2c 31 29 0a 50 52  |"",&888888,1).PR|
000005b0  4f 43 20 62 6f 72 64 65  72 5f 74 78 74 20 28 22  |OC border_txt ("|
000005c0  6d 61 69 6e 22 2c 35 30  2c 32 32 30 2c 36 2c 22  |main",50,220,6,"|
000005d0  22 2c 30 2c 34 29 0a 50  52 4f 43 20 62 6f 72 64  |",0,4).PROC bord|
000005e0  65 72 5f 74 78 74 20 28  22 6d 61 69 6e 22 2c 35  |er_txt ("main",5|
000005f0  30 2c 31 34 30 2c 36 2c  22 22 2c 30 2c 30 29 0a  |0,140,6,"",0,0).|
00000600  6e 78 25 3d 28 31 36 2a  36 29 2b 31 30 30 0a 54  |nx%=(16*6)+100.T|
00000610  45 58 54 20 6d 61 69 6e  2c 26 33 33 33 33 33 33  |EXT main,&333333|
00000620  2c 6e 78 25 2c 34 30 30  2c 22 44 65 73 63 72 69  |,nx%,400,"Descri|
00000630  70 74 69 6f 6e 22 0a 50  52 4f 43 20 62 6f 72 64  |ption".PROC bord|
00000640  65 72 5f 74 78 74 20 28  22 4d 61 69 6e 22 2c 6e  |er_txt ("Main",n|
00000650  78 25 2c 33 30 30 2c 33  35 2c 22 22 2c 26 38 38  |x%,300,35,"",&88|
00000660  38 38 38 38 2c 32 29 0a  50 52 4f 43 20 62 6f 72  |8888,2).PROC bor|
00000670  64 65 72 5f 74 78 74 20  28 22 6d 61 69 6e 22 2c  |der_txt ("main",|
00000680  6e 78 25 2c 32 32 30 2c  33 35 2c 22 22 2c 30 2c  |nx%,220,35,"",0,|
00000690  35 29 0a 50 52 4f 43 20  62 6f 72 64 65 72 5f 74  |5).PROC border_t|
000006a0  78 74 20 28 22 6d 61 69  6e 22 2c 6e 78 25 2c 31  |xt ("main",nx%,1|
000006b0  34 30 2c 33 35 2c 22 22  2c 30 2c 30 29 0a 6e 78  |40,35,"",0,0).nx|
000006c0  25 2b 3d 28 31 36 2a 33  35 29 2b 35 30 0a 54 45  |%+=(16*35)+50.TE|
000006d0  58 54 20 6d 61 69 6e 2c  26 33 33 33 33 33 33 2c  |XT main,&333333,|
000006e0  6e 78 25 2c 34 30 30 2c  22 50 72 69 63 65 22 0a  |nx%,400,"Price".|
000006f0  50 52 4f 43 20 62 6f 72  64 65 72 5f 74 78 74 20  |PROC border_txt |
00000700  28 22 4d 61 69 6e 22 2c  6e 78 25 2c 33 30 30 2c  |("Main",nx%,300,|
00000710  36 2c 22 22 2c 26 38 38  38 38 38 38 2c 33 29 0a  |6,"",&888888,3).|
00000720  50 52 4f 43 20 62 6f 72  64 65 72 5f 74 78 74 20  |PROC border_txt |
00000730  28 22 6d 61 69 6e 22 2c  6e 78 25 2c 32 32 30 2c  |("main",nx%,220,|
00000740  36 2c 22 22 2c 30 2c 36  29 0a 50 52 4f 43 20 62  |6,"",0,6).PROC b|
00000750  6f 72 64 65 72 5f 74 78  74 20 28 22 6d 61 69 6e  |order_txt ("main|
00000760  22 2c 6e 78 25 2c 31 34  30 2c 36 2c 22 22 2c 30  |",nx%,140,6,"",0|
00000770  2c 30 29 0a 45 44 49 54  46 49 45 4c 44 20 4d 41  |,0).EDITFIELD MA|
00000780  49 4e 2c 43 41 54 2c 35  30 2c 31 34 30 2c 36 2c  |IN,CAT,50,140,6,|
00000790  36 2c 30 2c 63 61 74 24  2c 22 31 32 33 34 35 36  |6,0,cat$,"123456|
000007a0  37 38 39 30 22 0a 45 44  49 54 46 49 45 4c 44 20  |7890".EDITFIELD |
000007b0  4d 41 49 4e 2c 44 45 53  2c 31 39 36 2c 31 34 30  |MAIN,DES,196,140|
000007c0  2c 33 35 2c 33 35 2c 30  2c 64 65 73 24 2c 55 50  |,35,35,0,des$,UP|
000007d0  50 45 52 43 41 53 45 0a  45 44 49 54 46 49 45 4c  |PERCASE.EDITFIEL|
000007e0  44 20 4d 41 49 4e 2c 50  52 49 43 45 2c 6e 78 25  |D MAIN,PRICE,nx%|
000007f0  2c 31 34 30 2c 36 2c 36  2c 32 2c 70 72 69 63 65  |,140,6,6,2,price|
00000800  24 2c 22 31 32 33 34 35  36 37 38 39 30 2e 22 2c  |$,"1234567890.",|
00000810  7b 50 52 4f 43 6f 6b 28  63 61 74 24 2c 64 65 73  |{PROCok(cat$,des|
00000820  24 2c 70 72 69 63 65 24  29 7d 0a 45 44 49 54 4c  |$,price$)}.EDITL|
00000830  49 4e 4b 20 4d 41 49 4e  2c 43 41 54 2c 44 45 53  |INK MAIN,CAT,DES|
00000840  2c 50 52 49 43 45 0a 0a  0a 20 00 04 42 6f 72 64  |,PRICE... ..Bord|
00000850  65 72 5f 75 70 00 77 69  6e 24 2c 78 25 2c 79 25  |er_up.win$,x%,y%|
00000860  2c 77 25 2c 68 25 2c 74  78 74 24 2c 63 6f 6c 25  |,w%,h%,txt$,col%|
00000870  00 52 45 43 54 41 4e 47  4c 45 20 46 49 4c 4c 20  |.RECTANGLE FILL |
00000880  5b 77 69 6e 24 5d 2c 63  6f 6c 31 25 2c 78 25 2d  |[win$],col1%,x%-|
00000890  34 2c 79 25 2d 34 2c 77  25 2b 38 2c 68 25 2b 38  |4,y%-4,w%+8,h%+8|
000008a0  0a 52 45 43 54 41 4e 47  4c 45 20 46 49 4c 4c 20  |.RECTANGLE FILL |
000008b0  5b 77 69 6e 24 5d 2c 63  6f 6c 32 25 2c 78 25 2c  |[win$],col2%,x%,|
000008c0  79 25 2d 34 2c 77 25 2b  34 2c 68 25 2b 34 0a 52  |y%-4,w%+4,h%+4.R|
000008d0  45 43 54 41 4e 47 4c 45  20 46 49 4c 4c 20 5b 77  |ECTANGLE FILL [w|
000008e0  69 6e 24 5d 2c 63 6f 6c  33 25 2c 78 25 2c 79 25  |in$],col3%,x%,y%|
000008f0  2c 77 25 2c 68 25 0a 49  46 20 74 78 74 24 3c 3e  |,w%,h%.IF txt$<>|
00000900  22 22 20 54 48 45 4e 0a  54 45 58 54 20 5b 77 69  |"" THEN.TEXT [wi|
00000910  6e 24 5d 2c 63 6f 6c 25  2c 78 25 2b 32 30 2c 79  |n$],col%,x%+20,y|
00000920  25 2b 33 30 2c 74 78 74  24 20 0a 45 4e 44 49 46  |%+30,txt$ .ENDIF|
00000930  00 04 42 6f 72 64 65 72  5f 6d 61 69 6e 00 77 69  |..Border_main.wi|
00000940  6e 24 2c 78 25 2c 79 25  2c 77 25 2c 68 25 00 52  |n$,x%,y%,w%,h%.R|
00000950  45 43 54 41 4e 47 4c 45  20 46 49 4c 4c 20 5b 77  |ECTANGLE FILL [w|
00000960  69 6e 24 5d 2c 63 6f 6c  31 25 2c 78 25 2d 38 2c  |in$],col1%,x%-8,|
00000970  79 25 2d 38 2c 77 25 2b  31 36 2c 68 25 2b 31 36  |y%-8,w%+16,h%+16|
00000980  0a 52 45 43 54 41 4e 47  4c 45 20 46 49 4c 4c 20  |.RECTANGLE FILL |
00000990  5b 77 69 6e 24 5d 2c 63  6f 6c 32 25 2c 78 25 2d  |[win$],col2%,x%-|
000009a0  34 2c 79 25 2d 38 2c 77  25 2b 31 32 2c 68 25 2b  |4,y%-8,w%+12,h%+|
000009b0  31 32 0a 52 45 43 54 41  4e 47 4c 45 20 46 49 4c  |12.RECTANGLE FIL|
000009c0  4c 20 5b 77 69 6e 24 5d  2c 63 6f 6c 32 25 2c 58  |L [win$],col2%,X|
000009d0  25 2d 34 2c 79 25 2c 77  25 2b 31 32 2c 68 25 2b  |%-4,y%,w%+12,h%+|
000009e0  34 0a 52 45 43 54 41 4e  47 4c 45 20 46 49 4c 4c  |4.RECTANGLE FILL|
000009f0  20 5b 77 69 6e 24 5d 2c  63 6f 6c 31 25 2c 78 25  | [win$],col1%,x%|
00000a00  2c 79 25 2d 34 2c 77 25  2b 34 2c 68 25 2b 34 0a  |,y%-4,w%+4,h%+4.|
00000a10  52 45 43 54 41 4e 47 4c  45 20 46 49 4c 4c 20 5b  |RECTANGLE FILL [|
00000a20  77 69 6e 24 5d 2c 63 6f  6c 33 25 2c 78 25 2c 79  |win$],col3%,x%,y|
00000a30  25 2c 77 25 2c 68 25 0a  0a 00 04 42 6f 72 64 65  |%,w%,h%....Borde|
00000a40  72 5f 4d 6f 61 74 00 77  69 6e 24 2c 78 25 2c 79  |r_Moat.win$,x%,y|
00000a50  25 2c 77 25 2c 68 25 2c  74 78 74 24 2c 63 6f 6c  |%,w%,h%,txt$,col|
00000a60  25 00 52 45 43 54 41 4e  47 4c 45 20 46 49 4c 4c  |%.RECTANGLE FILL|
00000a70  20 5b 77 69 6e 24 5d 2c  63 6f 6c 31 25 2c 78 25  | [win$],col1%,x%|
00000a80  2d 31 32 2c 79 25 2d 31  32 2c 77 25 2b 32 36 2c  |-12,y%-12,w%+26,|
00000a90  68 25 2b 32 34 0a 52 45  43 54 41 4e 47 4c 45 20  |h%+24.RECTANGLE |
00000aa0  46 49 4c 4c 20 5b 77 69  6e 24 5d 2c 63 6f 6c 32  |FILL [win$],col2|
00000ab0  25 2c 78 25 2d 31 32 2c  79 25 2d 38 2c 77 25 2b  |%,x%-12,y%-8,w%+|
00000ac0  32 32 2c 68 25 2b 32 30  0a 52 45 43 54 41 4e 47  |22,h%+20.RECTANG|
00000ad0  4c 45 20 46 49 4c 4c 20  5b 77 69 6e 24 5d 2c 63  |LE FILL [win$],c|
00000ae0  6f 6c 34 25 2c 78 25 2d  38 2c 79 25 2d 38 2c 77  |ol4%,x%-8,y%-8,w|
00000af0  25 2b 31 38 2c 68 25 2b  31 36 0a 52 45 43 54 41  |%+18,h%+16.RECTA|
00000b00  4e 47 4c 45 20 46 49 4c  4c 20 5b 77 69 6e 24 5d  |NGLE FILL [win$]|
00000b10  2c 63 6f 6c 31 25 2c 78  25 2d 34 2c 79 25 2d 34  |,col1%,x%-4,y%-4|
00000b20  2c 77 25 2b 38 2c 68 25  2b 38 0a 52 45 43 54 41  |,w%+8,h%+8.RECTA|
00000b30  4e 47 4c 45 20 46 49 4c  4c 20 5b 77 69 6e 24 5d  |NGLE FILL [win$]|
00000b40  2c 63 6f 6c 32 25 2c 78  25 2c 79 25 2d 34 2c 77  |,col2%,x%,y%-4,w|
00000b50  25 2b 34 2c 68 25 2b 34  0a 52 45 43 54 41 4e 47  |%+4,h%+4.RECTANG|
00000b60  4c 45 20 46 49 4c 4c 20  5b 77 69 6e 24 5d 2c 63  |LE FILL [win$],c|
00000b70  6f 6c 33 25 2c 78 25 2c  79 25 2c 77 25 2c 68 25  |ol3%,x%,y%,w%,h%|
00000b80  0a 49 46 20 74 78 74 24  3c 3e 22 22 20 54 48 45  |.IF txt$<>"" THE|
00000b90  4e 0a 54 45 58 54 20 5b  77 69 6e 24 5d 2c 63 6f  |N.TEXT [win$],co|
00000ba0  6c 25 2c 78 25 2b 32 30  2c 79 25 2b 33 30 2c 74  |l%,x%+20,y%+30,t|
00000bb0  78 74 24 0a 45 4e 44 49  46 0a 20 00 04 42 6f 72  |xt$.ENDIF. ..Bor|
00000bc0  64 65 72 5f 74 78 74 00  77 69 6e 24 2c 78 25 2c  |der_txt.win$,x%,|
00000bd0  79 25 2c 63 68 25 2c 74  78 74 24 2c 63 6f 6c 25  |y%,ch%,txt$,col%|
00000be0  2c 62 6f 78 25 00 52 45  43 54 41 4e 47 4c 45 20  |,box%.RECTANGLE |
00000bf0  46 49 4c 4c 20 5b 77 69  6e 24 5d 2c 63 6f 6c 31  |FILL [win$],col1|
00000c00  25 2c 78 25 2d 38 2c 79  25 2d 38 2c 28 63 68 25  |%,x%-8,y%-8,(ch%|
00000c10  2a 31 36 29 2b 32 30 2c  36 30 0a 52 45 43 54 41  |*16)+20,60.RECTA|
00000c20  4e 47 4c 45 20 46 49 4c  4c 20 5b 77 69 6e 24 5d  |NGLE FILL [win$]|
00000c30  2c 63 6f 6c 32 25 2c 78  25 2d 38 2c 79 25 2d 34  |,col2%,x%-8,y%-4|
00000c40  2c 28 63 68 25 2a 31 36  29 2b 31 36 2c 35 36 0a  |,(ch%*16)+16,56.|
00000c50  52 45 43 54 41 4e 47 4c  45 20 46 49 4c 4c 20 5b  |RECTANGLE FILL [|
00000c60  77 69 6e 24 5d 2c 63 6f  6c 33 25 2c 78 25 2d 34  |win$],col3%,x%-4|
00000c70  2c 79 25 2d 34 2c 28 63  68 25 2a 31 36 29 2b 31  |,y%-4,(ch%*16)+1|
00000c80  32 2c 35 32 0a 49 46 20  74 78 74 24 3c 3e 22 22  |2,52.IF txt$<>""|
00000c90  20 54 48 45 4e 0a 43 4f  44 45 20 62 6f 78 25 28  | THEN.CODE box%(|
00000ca0  62 6f 78 25 29 3d 54 45  58 54 20 5b 77 69 6e 24  |box%)=TEXT [win$|
00000cb0  5d 2c 63 6f 6c 25 2c 78  25 2b 35 2c 79 25 2b 33  |],col%,x%+5,y%+3|
00000cc0  35 2c 74 78 74 24 0a 45  4e 44 49 46 0a 0a 20 00  |5,txt$.ENDIF.. .|
00000cd0  04 42 6f 72 64 65 72 5f  64 6f 77 6e 00 77 69 6e  |.Border_down.win|
00000ce0  24 2c 78 25 2c 79 25 2c  77 25 2c 68 25 2c 74 78  |$,x%,y%,w%,h%,tx|
00000cf0  74 24 2c 63 6f 6c 25 00  52 45 43 54 41 4e 47 4c  |t$,col%.RECTANGL|
00000d00  45 20 46 49 4c 4c 20 5b  77 69 6e 24 5d 2c 63 6f  |E FILL [win$],co|
00000d10  6c 32 25 2c 78 25 2d 34  2c 79 25 2d 34 2c 77 25  |l2%,x%-4,y%-4,w%|
00000d20  2b 38 2c 68 25 2b 38 2c  68 25 2b 38 0a 52 45 43  |+8,h%+8,h%+8.REC|
00000d30  54 41 4e 47 4c 45 20 46  49 4c 4c 20 5b 77 69 6e  |TANGLE FILL [win|
00000d40  24 5d 2c 63 6f 6c 31 25  2c 78 25 2c 79 25 2d 34  |$],col1%,x%,y%-4|
00000d50  2c 77 25 2b 34 2c 68 25  2b 34 0a 52 45 43 54 41  |,w%+4,h%+4.RECTA|
00000d60  4e 47 4c 45 20 46 49 4c  4c 20 5b 77 69 6e 24 5d  |NGLE FILL [win$]|
00000d70  2c 63 6f 6c 33 25 2c 78  25 2c 79 25 2c 77 25 2c  |,col3%,x%,y%,w%,|
00000d80  68 25 0a 49 46 20 74 78  74 24 3c 3e 22 22 20 54  |h%.IF txt$<>"" T|
00000d90  48 45 4e 0a 54 45 58 54  20 5b 77 69 6e 24 5d 2c  |HEN.TEXT [win$],|
00000da0  63 6f 6c 25 2c 78 25 2b  32 30 2c 79 25 2b 33 35  |col%,x%+20,y%+35|
00000db0  2c 74 78 74 24 0a 45 4e  44 49 46 0a 0a 20 00 04  |,txt$.ENDIF.. ..|
00000dc0  54 78 74 00 77 69 6e 24  2c 6e 6f 25 2c 72 6f 77  |Txt.win$,no%,row|
00000dd0  25 2c 63 6f 6c 25 00 4c  4f 43 41 4c 20 79 25 0a  |%,col%.LOCAL y%.|
00000de0  43 41 53 45 20 72 6f 77  25 20 4f 46 0a 57 48 45  |CASE row% OF.WHE|
00000df0  4e 20 31 0a 79 25 3d 33  33 35 0a 62 6f 78 25 3d  |N 1.y%=335.box%=|
00000e00  31 0a 57 48 45 4e 20 32  0a 79 25 3d 32 35 35 0a  |1.WHEN 2.y%=255.|
00000e10  62 6f 78 25 3d 34 0a 57  48 45 4e 20 33 0a 79 25  |box%=4.WHEN 3.y%|
00000e20  3d 31 37 35 0a 62 6f 78  25 3d 30 0a 45 4e 44 43  |=175.box%=0.ENDC|
00000e30  41 53 45 0a 43 4f 44 45  20 62 6f 78 25 28 62 6f  |ASE.CODE box%(bo|
00000e40  78 25 29 3d 54 45 58 54  20 5b 57 49 4e 24 5d 2c  |x%)=TEXT [WIN$],|
00000e50  43 4f 4c 25 2c 35 30 2c  79 25 2c 43 41 54 28 6e  |COL%,50,y%,CAT(n|
00000e60  6f 25 29 2e 6e 6f 24 0a  43 4f 44 45 20 62 6f 78  |o%).no$.CODE box|
00000e70  25 28 62 6f 78 25 2b 31  29 3d 54 45 58 54 20 5b  |%(box%+1)=TEXT [|
00000e80  57 49 4e 24 5d 2c 43 4f  4c 25 2c 31 39 36 2c 79  |WIN$],COL%,196,y|
00000e90  25 2c 43 41 54 28 6e 6f  25 29 2e 64 65 73 24 0a  |%,CAT(no%).des$.|
00000ea0  74 24 3d 43 41 54 28 6e  6f 25 29 2e 70 72 69 63  |t$=CAT(no%).pric|
00000eb0  65 24 0a 52 45 50 45 41  54 0a 49 46 20 4c 45 4e  |e$.REPEAT.IF LEN|
00000ec0  28 74 24 29 3c 36 20 54  48 45 4e 20 74 24 3d 22  |(t$)<6 THEN t$="|
00000ed0  20 22 2b 74 24 0a 55 4e  54 49 4c 20 4c 45 4e 28  | "+t$.UNTIL LEN(|
00000ee0  74 24 29 3d 36 0a 43 4f  44 45 20 62 6f 78 25 28  |t$)=6.CODE box%(|
00000ef0  62 6f 78 25 2b 32 29 3d  54 45 58 54 20 5b 77 69  |box%+2)=TEXT [wi|
00000f00  6e 24 5d 2c 63 6f 6c 25  2c 38 30 36 2c 79 25 2c  |n$],col%,806,y%,|
00000f10  74 24 0a 0a 0a 00 04 65  6e 74 65 72 00 00 6e 6f  |t$.....enter..no|
00000f20  25 3d 41 44 44 54 48 52  45 41 44 20 43 41 54 20  |%=ADDTHREAD CAT |
00000f30  00 04 6f 6b 00 63 24 2c  64 24 2c 70 24 00 43 41  |..ok.c$,d$,p$.CA|
00000f40  53 45 20 4c 45 4e 28 70  24 29 20 4f 46 0a 57 48  |SE LEN(p$) OF.WH|
00000f50  45 4e 20 31 0a 70 24 2b  3d 22 2e 30 30 22 0a 57  |EN 1.p$+=".00".W|
00000f60  48 45 4e 20 32 0a 49 46  20 52 49 47 48 54 24 28  |HEN 2.IF RIGHT$(|
00000f70  50 24 2c 31 29 3d 22 2e  22 20 54 48 45 4e 20 50  |P$,1)="." THEN P|
00000f80  24 2b 3d 22 30 30 22 20  45 4c 53 45 20 50 24 2b  |$+="00" ELSE P$+|
00000f90  3d 22 2e 30 30 22 0a 57  48 45 4e 20 33 0a 49 46  |=".00".WHEN 3.IF|
00000fa0  20 52 49 47 48 54 24 28  50 24 2c 31 29 3d 22 2e  | RIGHT$(P$,1)=".|
00000fb0  22 20 54 48 45 4e 20 0a  50 24 2b 3d 22 30 30 22  |" THEN .P$+="00"|
00000fc0  20 0a 49 46 20 4d 49 44  24 28 50 24 2c 32 2c 31  | .IF MID$(P$,2,1|
00000fd0  29 3d 22 2e 22 20 54 48  45 4e 20 50 24 2b 3d 22  |)="." THEN P$+="|
00000fe0  30 22 0a 45 4c 53 45 20  50 24 2b 3d 22 2e 30 30  |0".ELSE P$+=".00|
00000ff0  22 0a 45 4e 44 43 41 53  45 0a 6e 6f 25 3d 41 44  |".ENDCASE.no%=AD|
00001000  44 54 48 52 45 41 44 20  63 61 74 28 63 24 2c 64  |DTHREAD cat(c$,d|
00001010  24 2c 70 24 29 0a 46 4f  52 20 61 25 3d 31 20 54  |$,p$).FOR a%=1 T|
00001020  4f 20 36 0a 43 4c 45 41  52 20 43 4f 44 45 20 62  |O 6.CLEAR CODE b|
00001030  6f 78 25 28 61 25 29 0a  4e 45 58 54 0a 50 52 4f  |ox%(a%).NEXT.PRO|
00001040  43 74 78 74 28 22 6d 61  69 6e 22 2c 28 6e 6f 25  |Ctxt("main",(no%|
00001050  2d 31 29 2c 31 2c 26 41  41 41 41 41 41 29 0a 50  |-1),1,&AAAAAA).P|
00001060  52 4f 43 74 78 74 28 22  6d 61 69 6e 22 2c 6e 6f  |ROCtxt("main",no|
00001070  25 2c 32 2c 26 41 41 41  41 41 41 29 0a 43 41 54  |%,2,&AAAAAA).CAT|
00001080  24 3d 22 22 0a 44 45 53  24 3d 22 22 0a 50 52 49  |$="".DES$="".PRI|
00001090  43 45 24 3d 22 22 0a 47  49 56 45 43 41 52 45 54  |CE$="".GIVECARET|
000010a0  20 4d 41 49 4e 2c 43 41  54 0a 0a 0a 0a 20 00 02  | MAIN,CAT.... ..|
000010b0  00 88 ff ff ff ff 13 00  00 00 e8 df 03 00 1f 00  |................|
000010c0  00 00 3c 00 00 00 41 00  00 00 43 00 00 00 47 00  |..<...A...C...G.|
000010d0  00 00 4c 00 00 00 50 00  00 00 55 00 00 00 56 00  |..L...P...U...V.|
000010e0  00 00 5e 00 00 00 5f 00  00 00 81 00 00 00 6d 61  |..^..._.......ma|
000010f0  69 6e 00 30 00 31 30 30  00 31 30 30 30 00 35 30  |in.0.100.1000.50|
00001100  30 00 54 45 53 54 00 00  26 44 44 44 44 44 44 00  |0.TEST..&DDDDDD.|
00001110  00 4f 50 45 4e 4d 45 4e  55 20 49 43 4f 4e 2c 4d  |.OPENMENU ICON,M|
00001120  4f 55 53 45 50 4f 53 58  2c 4d 4f 55 53 45 50 4f  |OUSEPOSX,MOUSEPO|
00001130  53 59 00 45 4e 44 00 00  00 00 03 00 38 25 00 00  |SY.END......8%..|
00001140  00 ff ff ff ff 24 00 00  00 32 00 00 00 14 00 00  |.....$...2......|
00001150  00 28 e0 03 00 ff ff ff  ff ff ff ff ff 29 00 00  |.(...........)..|
00001160  00 49 43 4f 4e 00 4e 6f  20 54 69 74 6c 65 00 2d  |.ICON.No Title.-|
00001170  31 00 10 9c e5 03 00 30  25 00 00 00 01 00 00 00  |1......0%.......|
00001180  ff ff ff ff 24 00 00 00  29 00 00 00 2a 00 00 00  |....$...)...*...|
00001190  2b 00 00 00 2c 00 00 00  2d 00 00 00 49 6e 66 6f  |+...,...-...Info|
000011a0  00 00 00 00 00 00 81 e2  03 00 34 25 00 00 00 00  |..........4%....|
000011b0  00 00 00 ff ff ff ff 24  00 00 00 29 00 00 00 2d  |.......$...)...-|
000011c0  00 00 00 2e 00 00 00 2f  00 00 00 30 00 00 00 51  |......./...0...Q|
000011d0  75 69 74 00 45 4e 44 00  00 00 00 00 31 0a 20     |uit.END.....1. |
000011df