COMPACT'14.PROC
FILE INFORMATION
FILENAME(S): COMPACT'14.PROC
FILE TYPE(S): SEQ
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 4 disk(s)
FILE HASH
6320e721840c1d74b79db0df7a6058e423599ec479544962b0d7f0a25b21e8f3
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | COMPACT'14.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 3 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | COMPACT'14.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 3 | 1 | DOWNLOAD FILE |
| C OMAL | COMPACT'14.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 3 | 1 | DOWNLOAD FILE |
| C OMAL | COMPACT'14.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 3 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 2F 2F 0D 39 30 31 30 20 50 52 4F |9000 //.9010 PRO| 00000010: 43 20 4C 4F 41 44 27 43 4F 4D 50 41 43 54 28 4E |C LOAD'COMPACT(N| 00000020: 41 4D 45 24 29 20 43 4C 4F 53 45 44 0D 39 30 32 |AME$) CLOSED.902| 00000030: 30 20 49 46 20 50 45 45 4B 28 34 39 31 35 32 29 |0 IF PEEK(49152)| 00000040: 3C 3E 37 36 20 54 48 45 4E 0D 39 30 33 30 20 49 |<>76 THEN.9030 I| 00000050: 4E 49 54 27 43 4F 4D 50 41 43 54 0D 39 30 34 30 |NIT'COMPACT.9040| 00000060: 20 45 4E 44 49 46 20 0D 39 30 35 30 20 44 49 4D | ENDIF .9050 DIM| 00000070: 20 44 53 24 20 4F 46 20 32 0D 39 30 36 30 20 4F | DS$ OF 2.9060 O| 00000080: 50 45 4E 20 46 49 4C 45 20 32 34 39 2C 4E 41 4D |PEN FILE 249,NAM| 00000090: 45 24 2B 22 2E 43 52 47 22 2C 52 45 41 44 0D 39 |E$+".CRG",READ.9| 000000A0: 30 37 30 20 44 53 24 3A 3D 53 54 41 54 55 53 24 |070 DS$:=STATUS$| 000000B0: 0D 39 30 38 30 20 43 4C 45 41 52 53 43 52 45 45 |.9080 CLEARSCREE| 000000C0: 4E 0D 39 30 39 30 20 48 49 44 45 54 55 52 54 4C |N.9090 HIDETURTL| 000000D0: 45 20 0D 39 31 30 30 20 49 46 20 44 53 24 3D 22 |E .9100 IF DS$="| 000000E0: 30 30 22 20 54 48 45 4E 0D 39 31 31 30 20 50 4F |00" THEN.9110 PO| 000000F0: 4B 45 20 34 39 31 35 38 2C 32 34 39 0D 39 31 32 |KE 49158,249.912| 00000100: 30 20 53 59 53 20 34 39 31 35 32 0D 39 31 33 30 |0 SYS 49152.9130| 00000110: 20 45 4E 44 49 46 20 0D 39 31 34 30 20 43 4C 4F | ENDIF .9140 CLO| 00000120: 53 45 20 46 49 4C 45 20 32 34 39 0D 39 31 35 30 |SE FILE 249.9150| 00000130: 20 45 4E 44 50 52 4F 43 20 4C 4F 41 44 27 43 4F | ENDPROC LOAD'CO| 00000140: 4D 50 41 43 54 0D 39 31 36 30 20 2F 2F 0D 39 31 |MPACT.9160 //.91| 00000150: 37 30 20 50 52 4F 43 20 53 41 56 45 27 43 4F 4D |70 PROC SAVE'COM| 00000160: 50 41 43 54 28 4E 41 4D 45 24 29 20 43 4C 4F 53 |PACT(NAME$) CLOS| 00000170: 45 44 0D 39 31 38 30 20 49 46 20 50 45 45 4B 28 |ED.9180 IF PEEK(| 00000180: 34 39 31 35 32 29 3C 3E 37 36 20 54 48 45 4E 0D |49152)<>76 THEN.| 00000190: 39 31 39 30 20 49 4E 49 54 27 43 4F 4D 50 41 43 |9190 INIT'COMPAC| 000001A0: 54 0D 39 32 30 30 20 45 4E 44 49 46 20 0D 39 32 |T.9200 ENDIF .92| 000001B0: 31 30 20 44 49 4D 20 44 53 24 20 4F 46 20 32 0D |10 DIM DS$ OF 2.| 000001C0: 39 32 32 30 20 4F 50 45 4E 20 46 49 4C 45 20 32 |9220 OPEN FILE 2| 000001D0: 34 39 2C 4E 41 4D 45 24 2B 22 2E 43 52 47 22 2C |49,NAME$+".CRG",| 000001E0: 57 52 49 54 45 0D 39 32 33 30 20 44 53 24 3A 3D |WRITE.9230 DS$:=| 000001F0: 53 54 41 54 55 53 24 0D 39 32 34 30 20 49 46 20 |STATUS$.9240 IF | 00000200: 44 53 24 3D 22 30 30 22 20 54 48 45 4E 0D 39 32 |DS$="00" THEN.92| 00000210: 35 30 20 50 4F 4B 45 20 34 39 31 35 38 2C 32 34 |50 POKE 49158,24| 00000220: 39 0D 39 32 36 30 20 53 59 53 20 34 39 31 35 35 |9.9260 SYS 49155| 00000230: 0D 39 32 37 30 20 45 4E 44 49 46 20 0D 39 32 38 |.9270 ENDIF .928| 00000240: 30 20 43 4C 4F 53 45 20 46 49 4C 45 20 32 34 39 |0 CLOSE FILE 249| 00000250: 0D 39 32 39 30 20 45 4E 44 50 52 4F 43 20 53 41 |.9290 ENDPROC SA| 00000260: 56 45 27 43 4F 4D 50 41 43 54 0D 39 33 30 30 20 |VE'COMPACT.9300 | 00000270: 2F 2F 0D 39 33 31 30 20 50 52 4F 43 20 43 4C 45 |//.9310 PROC CLE| 00000280: 41 52 53 43 52 45 45 4E 20 43 4C 4F 53 45 44 0D |ARSCREEN CLOSED.| 00000290: 39 33 32 30 20 46 55 4C 4C 53 43 52 45 45 4E 20 |9320 FULLSCREEN | 000002A0: 0D 39 33 33 30 20 44 49 4D 20 53 50 41 43 45 24 |.9330 DIM SPACE$| 000002B0: 20 4F 46 20 34 30 0D 39 33 34 30 20 53 50 41 43 | OF 40.9340 SPAC| 000002C0: 45 24 28 31 3A 34 30 29 3A 3D 22 22 0D 39 33 35 |E$(1:40):="".935| 000002D0: 30 20 46 4F 52 20 52 4F 57 23 3A 3D 30 20 54 4F |0 FOR ROW#:=0 TO| 000002E0: 20 32 34 20 44 4F 0D 39 33 36 30 20 50 4C 4F 54 | 24 DO.9360 PLOT| 000002F0: 54 45 58 54 20 30 2C 52 4F 57 23 2A 38 2C 53 50 |TEXT 0,ROW#*8,SP| 00000300: 41 43 45 24 0D 39 33 37 30 20 45 4E 44 46 4F 52 |ACE$.9370 ENDFOR| 00000310: 20 52 4F 57 23 0D 39 33 38 30 20 45 4E 44 50 52 | ROW#.9380 ENDPR| 00000320: 4F 43 20 43 4C 45 41 52 53 43 52 45 45 4E 0D 39 |OC CLEARSCREEN.9| 00000330: 33 39 30 20 2F 2F 0D 39 34 30 30 20 50 52 4F 43 |390 //.9400 PROC| 00000340: 20 49 4E 49 54 27 43 4F 4D 50 41 43 54 20 43 4C | INIT'COMPACT CL| 00000350: 4F 53 45 44 0D 39 34 31 30 20 54 4F 54 41 4C 3A |OSED.9410 TOTAL:| 00000360: 3D 30 3B 20 4D 45 4D 3A 3D 34 39 31 35 32 0D 39 |=0; MEM:=49152.9| 00000370: 34 32 30 20 57 48 49 4C 45 20 4E 4F 54 20 45 4F |420 WHILE NOT EO| 00000380: 44 20 44 4F 0D 39 34 33 30 20 52 45 41 44 20 4E |D DO.9430 READ N| 00000390: 55 4D 0D 39 34 34 30 20 50 4F 4B 45 20 4D 45 4D |UM.9440 POKE MEM| 000003A0: 2C 4E 55 4D 0D 39 34 35 30 20 4D 45 4D 3A 2B 31 |,NUM.9450 MEM:+1| 000003B0: 3B 20 54 4F 54 41 4C 3A 2B 4E 55 4D 0D 39 34 36 |; TOTAL:+NUM.946| 000003C0: 30 20 45 4E 44 57 48 49 4C 45 20 0D 39 34 37 30 |0 ENDWHILE .9470| 000003D0: 20 49 46 20 54 4F 54 41 4C 3C 3E 33 36 34 30 31 | IF TOTAL<>36401| 000003E0: 20 54 48 45 4E 0D 39 34 38 30 20 50 52 49 4E 54 | THEN.9480 PRINT| 000003F0: 20 22 44 41 54 41 20 45 52 52 4F 52 21 22 0D 39 | "DATA ERROR!".9| 00000400: 34 39 30 20 43 4C 4F 53 45 0D 39 35 30 30 20 53 |490 CLOSE.9500 S| 00000410: 54 4F 50 20 0D 39 35 31 30 20 45 4E 44 49 46 20 |TOP .9510 ENDIF | 00000420: 0D 39 35 32 30 20 2F 2F 0D 39 35 33 30 20 44 41 |.9520 //.9530 DA| 00000430: 54 41 20 37 36 2C 31 31 2C 31 39 32 2C 37 36 2C |TA 76,11,192,76,| 00000440: 39 36 2C 31 39 32 2C 30 2C 30 2C 30 0D 39 35 34 |96,192,0,0,0.954| 00000450: 30 20 44 41 54 41 20 30 2C 30 2C 31 37 34 2C 36 |0 DATA 0,0,174,6| 00000460: 2C 31 39 32 2C 33 32 2C 31 39 38 2C 32 35 35 0D |,192,32,198,255.| 00000470: 39 35 35 30 20 44 41 54 41 20 31 36 39 2C 30 2C |9550 DATA 169,0,| 00000480: 31 33 33 2C 31 36 38 2C 31 36 39 2C 32 32 34 2C |133,168,169,224,| 00000490: 31 33 33 0D 39 35 36 30 20 44 41 54 41 20 31 36 |133.9560 DATA 16| 000004A0: 39 2C 33 32 2C 32 30 37 2C 32 35 35 2C 32 30 31 |9,32,207,255,201| 000004B0: 2C 32 35 34 0D 39 35 37 30 20 44 41 54 41 20 32 |,254.9570 DATA 2| 000004C0: 30 38 2C 33 30 2C 33 32 2C 32 30 37 2C 32 35 35 |08,30,32,207,255| 000004D0: 2C 31 34 31 2C 37 2C 31 39 32 0D 39 35 38 30 20 |,141,7,192.9580 | 000004E0: 44 41 54 41 20 33 32 2C 32 30 37 2C 32 35 35 2C |DATA 32,207,255,| 000004F0: 31 34 31 2C 31 30 2C 31 39 32 2C 31 36 30 2C 30 |141,10,192,160,0| 00000500: 0D 39 35 39 30 20 44 41 54 41 20 31 37 33 2C 37 |.9590 DATA 173,7| 00000510: 2C 31 39 32 2C 31 34 35 2C 31 36 38 2C 33 32 2C |,192,145,168,32,| 00000520: 37 32 2C 31 39 32 0D 39 36 30 30 20 44 41 54 41 |72,192.9600 DATA| 00000530: 20 32 30 36 2C 31 30 2C 31 39 32 2C 32 30 38 2C | 206,10,192,208,| 00000540: 32 34 33 2C 37 36 2C 32 35 2C 31 39 32 0D 39 36 |243,76,25,192.96| 00000550: 31 30 20 44 41 54 41 20 31 36 30 2C 30 2C 31 34 |10 DATA 160,0,14| 00000560: 35 2C 31 36 38 2C 33 32 2C 37 32 2C 31 39 32 2C |5,168,32,72,192,| 00000570: 37 36 2C 32 35 0D 39 36 32 30 20 44 41 54 41 20 |76,25.9620 DATA | 00000580: 31 39 32 2C 32 33 30 2C 31 36 38 2C 32 30 38 2C |192,230,168,208,| 00000590: 32 2C 32 33 30 2C 31 36 39 2C 31 36 35 0D 39 36 |2,230,169,165.96| 000005A0: 33 30 20 44 41 54 41 20 31 36 39 2C 32 30 31 2C |30 DATA 169,201,| 000005B0: 32 35 35 2C 32 30 38 2C 31 31 2C 31 36 35 2C 31 |255,208,11,165,1| 000005C0: 36 38 0D 39 36 34 30 20 44 41 54 41 20 32 30 31 |68.9640 DATA 201| 000005D0: 2C 36 34 2C 32 30 38 2C 35 2C 31 30 34 2C 31 30 |,64,208,5,104,10| 000005E0: 34 2C 37 36 2C 32 30 34 0D 39 36 35 30 20 44 41 |4,76,204.9650 DA| 000005F0: 54 41 20 32 35 35 2C 39 36 2C 31 37 34 2C 36 2C |TA 255,96,174,6,| 00000600: 31 39 32 2C 33 32 2C 32 30 31 2C 32 35 35 0D 39 |192,32,201,255.9| 00000610: 36 36 30 20 44 41 54 41 20 31 36 39 2C 30 2C 31 |660 DATA 169,0,1| 00000620: 33 33 2C 31 36 38 2C 31 36 39 2C 32 32 34 2C 31 |33,168,169,224,1| 00000630: 33 33 2C 31 36 39 0D 39 36 37 30 20 44 41 54 41 |33,169.9670 DATA| 00000640: 20 31 32 30 2C 31 36 35 2C 31 2C 34 31 2C 32 35 | 120,165,1,41,25| 00000650: 33 2C 31 33 33 2C 31 2C 31 36 30 0D 39 36 38 30 |3,133,1,160.9680| 00000660: 20 44 41 54 41 20 30 2C 31 37 37 2C 31 36 38 2C | DATA 0,177,168,| 00000670: 31 34 31 2C 37 2C 31 39 32 2C 31 36 35 2C 31 0D |141,7,192,165,1.| 00000680: 39 36 39 30 20 44 41 54 41 20 39 2C 32 2C 31 33 |9690 DATA 9,2,13| 00000690: 33 2C 31 2C 38 38 2C 31 36 39 2C 31 2C 31 33 33 |3,1,88,169,1,133| 000006A0: 0D 39 37 30 30 20 44 41 54 41 20 31 36 38 2C 31 |.9700 DATA 168,1| 000006B0: 34 31 2C 31 30 2C 31 39 32 2C 31 36 30 2C 30 2C |41,10,192,160,0,| 000006C0: 31 37 33 2C 37 0D 39 37 31 30 20 44 41 54 41 20 |173,7.9710 DATA | 000006D0: 31 39 32 2C 31 34 31 2C 38 2C 31 39 32 2C 31 32 |192,141,8,192,12| 000006E0: 30 2C 31 36 35 2C 31 2C 34 31 0D 39 37 32 30 20 |0,165,1,41.9720 | 000006F0: 44 41 54 41 20 32 35 33 2C 31 33 33 2C 31 2C 31 |DATA 253,133,1,1| 00000700: 37 37 2C 31 36 38 2C 31 34 31 2C 37 2C 31 39 32 |77,168,141,7,192| 00000710: 0D 39 37 33 30 20 44 41 54 41 20 31 36 35 2C 31 |.9730 DATA 165,1| 00000720: 2C 39 2C 32 2C 31 33 33 2C 31 2C 38 38 2C 33 32 |,9,2,133,1,88,32| 00000730: 2C 31 39 32 0D 39 37 34 30 20 44 41 54 41 20 31 |,192.9740 DATA 1| 00000740: 39 32 2C 32 33 30 2C 31 36 38 2C 32 30 38 2C 32 |92,230,168,208,2| 00000750: 2C 32 33 30 2C 31 36 39 0D 39 37 35 30 20 44 41 |,230,169.9750 DA| 00000760: 54 41 20 31 36 35 2C 31 36 39 2C 32 30 31 2C 32 |TA 165,169,201,2| 00000770: 35 35 2C 32 30 38 2C 32 31 34 2C 31 36 35 0D 39 |55,208,214,165.9| 00000780: 37 36 30 20 44 41 54 41 20 31 36 38 2C 32 30 31 |760 DATA 168,201| 00000790: 2C 36 34 2C 32 30 38 2C 32 30 38 2C 33 32 2C 32 |,64,208,208,32,2| 000007A0: 31 32 2C 31 39 32 0D 39 37 37 30 20 44 41 54 41 |12,192.9770 DATA| 000007B0: 20 37 36 2C 32 30 34 2C 32 35 35 2C 31 37 33 2C | 76,204,255,173,| 000007C0: 37 2C 31 39 32 2C 32 30 35 2C 38 0D 39 37 38 30 |7,192,205,8.9780| 000007D0: 20 44 41 54 41 20 31 39 32 2C 32 30 38 2C 31 32 | DATA 192,208,12| 000007E0: 2C 32 33 38 2C 31 30 2C 31 39 32 2C 32 30 38 2C |,238,10,192,208,| 000007F0: 36 0D 39 37 39 30 20 44 41 54 41 20 32 30 36 2C |6.9790 DATA 206,| 00000800: 31 30 2C 31 39 32 2C 37 36 2C 32 33 39 2C 31 39 |10,192,76,239,19| 00000810: 32 2C 39 36 2C 31 37 33 0D 39 38 30 30 20 44 41 |2,96,173.9800 DA| 00000820: 54 41 20 31 30 2C 31 39 32 2C 32 30 31 2C 31 2C |TA 10,192,201,1,| 00000830: 32 30 38 2C 34 2C 33 32 2C 36 2C 31 39 33 0D 39 |208,4,32,6,193.9| 00000840: 38 31 30 20 44 41 54 41 20 39 36 2C 32 30 31 2C |810 DATA 96,201,| 00000850: 32 2C 32 30 38 2C 31 32 2C 33 32 2C 36 2C 31 39 |2,208,12,32,6,19| 00000860: 33 0D 39 38 32 30 20 44 41 54 41 20 33 32 2C 36 |3.9820 DATA 32,6| 00000870: 2C 31 39 33 2C 31 36 39 2C 31 2C 31 34 31 2C 31 |,193,169,1,141,1| 00000880: 30 2C 31 39 32 0D 39 38 33 30 20 44 41 54 41 20 |0,192.9830 DATA | 00000890: 39 36 2C 31 36 39 2C 32 35 34 2C 33 32 2C 32 31 |96,169,254,32,21| 000008A0: 30 2C 32 35 35 2C 31 37 33 2C 38 0D 39 38 34 30 |0,255,173,8.9840| 000008B0: 20 44 41 54 41 20 31 39 32 2C 33 32 2C 32 31 30 | DATA 192,32,210| 000008C0: 2C 32 35 35 2C 31 37 33 2C 31 30 2C 31 39 32 2C |,255,173,10,192,| 000008D0: 33 32 0D 39 38 35 30 20 44 41 54 41 20 32 31 30 |32.9850 DATA 210| 000008E0: 2C 32 35 35 2C 31 36 39 2C 31 2C 31 34 31 2C 31 |,255,169,1,141,1| 000008F0: 30 2C 31 39 32 2C 39 36 0D 39 38 36 30 20 44 41 |0,192,96.9860 DA| 00000900: 54 41 20 31 37 33 2C 38 2C 31 39 32 2C 32 30 31 |TA 173,8,192,201| 00000910: 2C 32 35 34 2C 32 30 38 2C 31 30 2C 33 32 0D 39 |,254,208,10,32.9| 00000920: 38 37 30 20 44 41 54 41 20 32 31 30 2C 32 35 35 |870 DATA 210,255| 00000930: 2C 31 36 39 2C 32 35 34 2C 33 32 2C 32 31 30 2C |,169,254,32,210,| 00000940: 32 35 35 0D 39 38 38 30 20 44 41 54 41 20 31 36 |255.9880 DATA 16| 00000950: 39 2C 31 2C 33 32 2C 32 31 30 2C 32 35 35 2C 39 |9,1,32,210,255,9| 00000960: 36 0D 39 38 39 30 20 45 4E 44 50 52 4F 43 20 49 |6.9890 ENDPROC I| 00000970: 4E 49 54 27 43 4F 4D 50 41 43 54 0D |NIT'COMPACT. |
9000 //.9010 PROC LOAD'COMPACT(NAME$) CL OSED.9020 IF PEEK(49152)<>76 THEN.9030 I NIT'COMPACT.9040 ENDIF .9050 DIM DS$ OF 2.9060 OPEN FILE 249,NAME$+".CRG",READ.9 070 DS$:=STATUS$.9080 CLEARSCREEN.9090 H IDETURTLE .9100 IF DS$="00" THEN.9110 PO KE 49158,249.9120 SYS 49152.9130 ENDIF . 9140 CLOSE FILE 249.9150 ENDPROC LOAD'CO MPACT.9160 //.9170 PROC SAVE'COMPACT(NAM E$) CLOSED.9180 IF PEEK(49152)<>76 THEN. 9190 INIT'COMPACT.9200 ENDIF .9210 DIM D S$ OF 2.9220 OPEN FILE 249,NAME$+".CRG", WRITE.9230 DS$:=STATUS$.9240 IF DS$="00" THEN.9250 POKE 49158,249.9260 SYS 49155 .9270 ENDIF .9280 CLOSE FILE 249.9290 EN DPROC SAVE'COMPACT.9300 //.9310 PROC CLE ARSCREEN CLOSED.9320 FULLSCREEN .9330 DI M SPACE$ OF 40.9340 SPACE$(1:40):="".935 0 FOR ROW#:=0 TO 24 DO.9360 PLOTTEXT 0,R OW#*8,SPACE$.9370 ENDFOR ROW#.9380 ENDPR OC CLEARSCREEN.9390 //.9400 PROC INIT'CO MPACT CLOSED.9410 TOTAL:=0; MEM:=49152.9 420 WHILE NOT EOD DO.9430 READ NUM.9440 POKE MEM,NUM.9450 MEM:+1; TOTAL:+NUM.946 0 ENDWHILE .9470 IF TOTAL<>36401 THEN.94 80 PRINT "DATA ERROR!".9490 CLOSE.9500 S TOP .9510 ENDIF .9520 //.9530 DATA 76,11 ,192,76,96,192,0,0,0.9540 DATA 0,0,174,6 ,192,32,198,255.9550 DATA 169,0,133,168, 169,224,133.9560 DATA 169,32,207,255,201 ,254.9570 DATA 208,30,32,207,255,141,7,1 92.9580 DATA 32,207,255,141,10,192,160,0 .9590 DATA 173,7,192,145,168,32,72,192.9 600 DATA 206,10,192,208,243,76,25,192.96 10 DATA 160,0,145,168,32,72,192,76,25.96 20 DATA 192,230,168,208,2,230,169,165.96 30 DATA 169,201,255,208,11,165,168.9640 DATA 201,64,208,5,104,104,76,204.9650 DA TA 255,96,174,6,192,32,201,255.9660 DATA 169,0,133,168,169,224,133,169.9670 DATA 120,165,1,41,253,133,1,160.9680 DATA 0, 177,168,141,7,192,165,1.9690 DATA 9,2,13 3,1,88,169,1,133.9700 DATA 168,141,10,19 2,160,0,173,7.9710 DATA 192,141,8,192,12 0,165,1,41.9720 DATA 253,133,1,177,168,1 41,7,192.9730 DATA 165,1,9,2,133,1,88,32 ,192.9740 DATA 192,230,168,208,2,230,169 .9750 DATA 165,169,201,255,208,214,165.9 760 DATA 168,201,64,208,208,32,212,192.9 770 DATA 76,204,255,173,7,192,205,8.9780 DATA 192,208,12,238,10,192,208,6.9790 D ATA 206,10,192,76,239,192,96,173.9800 DA TA 10,192,201,1,208,4,32,6,193.9810 DATA 96,201,2,208,12,32,6,193.9820 DATA 32,6 ,193,169,1,141,10,192.9830 DATA 96,169,2 54,32,210,255,173,8.9840 DATA 192,32,210 ,255,173,10,192,32.9850 DATA 210,255,169 ,1,141,10,192,96.9860 DATA 173,8,192,201 ,254,208,10,32.9870 DATA 210,255,169,254 ,32,210,255.9880 DATA 169,1,32,210,255,9 6.9890 ENDPROC INIT'COMPACT.
> CLICK IMAGE PREVIEW FOR FULL MODAL