0 'Copyright Polar Engineering and Consulting 1985,1986 [72136,1443]
1 PRINT"Relocate to HIMEM - "254"("HIMEM-254")":INPUT"Press enter if okay";C$:IFC$>""THENMENU
2 CLEAR256,HIMEM-254:DEFINTA-Z:PC=HIMEM-2^16:READN:FORI=1TON:READX:IFX<256THENPOKEPC,X:PC=PC+1:GOTO4
3 POKEPC,(X+PC+2^14)MOD256:POKEPC+1,(X+PC+2^14+1)\256+128:PC=PC+2
4 NEXT:SAVEM"lcdplt",HIMEM,PC-1:MENU:DATA 228,195,16389,33,16609,254,1,159,60,50,192,252,34,153,251,42,57,246,229,30
5 DATA 0,205,16501,218,16494,46,1,38,1,205,197,115,205,124,66,42,57,246
6 DATA 235,205,64,116,33,193,252,22,0,243,205,162,116,251,205,197,115
7 DATA 6,6,33,193,252,58,192,252,183,229,196,16469,225,218,16447,229,205
8 DATA 16461,225,218,16439,35,5,194,16361,42,57,246,36,124,254,41,194
9 DATA 16320,229,30,3,205,16422,225,218,16414,58,192,252,183,202,16395
10 DATA 238,3,50,192,252,61,194,16292,44,125,254,9,194,16285,30,6,205,16390
11 DATA 225,195,124,66,22,0,42,153,251,25,78,35,94,35,86,195,16435,22,0
12 DATA 58,192,252,254,1,126,218,16401,202,16390,15,15,15,15,230,15,33
13 DATA 16422,95,25,126,30,9,42,153,251,25,78,13,250,63,109,35,94,35,86
14 DATA 35,235,190,235,194,16370,19,26,205,63,109,216,13,194,16376,201
15 DATA 0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,255,5,16396,2
16 DATA 16398,2,16397,3,16396,0,27,37,80,28,3,3,14,3,2,3,3,3