Sokoban

Sokoban is a one-player strategy game. The object of Sokoban is to push all the rocks (blue circles) onto the goals (gray squares). A rock cannot be pushed into a wall or into another rock.

Source Listing

// // Program: Sokoban // Author: Bruce Clark // Common Int border color = 6 Common Int digit color = 14 Common Int goal color = 8 Common Int rock color = 9 Common Int soko color = 13 Common Int text color = 7 Common Int wall color = 4 Common Int rocks, sx, sy, level = 0 Common Int2 moves mazes @; set up @ Do start @; n = -1 Do k = wait key (); If (k >= 97 And k <= 122) k = k - 32 If (k >= 48 And k <= 57) // 0-9 n = digit (n, k - 48) Continue End if tabxy (78,1); cwrite(" ", digit color, 0) If (k = 13 And n > 0 And n <= 85) Break // Enter If (k = 27) quit // Esc If (k = 73) instructions @ // I = instructions If (k = 82) start @ // R = restart level If (k = 328) move ( 0, -1) @ // up arrow If (k = 331) move (-1, 0) @ // left arrow If (k = 333) move ( 1, 0) @ // right arrow If (k = 336) move ( 0, 1) @ // down arrow n = -1 If (rocks = 0) Break Loop If (n > 0) level = n - 2 level = level + 1 If (level >= 85) quit Loop Int digit (Int n, Int d) Common Int digit color tabxy (79,1); cwrite(i to t (d), digit color, 0) If (n < 0) Return d tabxy (78,1); cwrite(i to t (n % 10), digit color, 0) Return (n * 10 + d) % 100 Task move (Int dx, Int dy) Common Int m[42][27], sx, sy x = sx + dx; y = sy + dy If (m[x][y] > 2) move rock (x, y, x + dx, y + dy) @ If (m[x][y] < 2) move soko (x, y) @ Task move rock (Int x1, Int y1, Int x2, Int y2) Common Int m[42][27], goal color, rocks If (m[x2][y2] >= 2) Return m[x1][y1] = m[x1][y1] - 3 rocks = rocks + m[x1][y1] - m[x2][y2] m[x2][y2] = m[x2][y2] + 3 tabxy (20,1); cwrite (i to t (rocks), text color, 0) cwrite (" ", text color, 0) draw rock (x2 * 16 - 16, y2 * 16 + 48) @ draw tile (x1 * 16 - 16, y1 * 16 + 48, m[x1][y1] * goal color) @ Task move soko (Int x, Int y) Common Int m[42][27], goal color, sx, sy Common Int2 moves draw soko (x * 16 - 16, y * 16 + 48) @ draw tile (sx * 16 - 16, sy * 16 + 48, m[sx][sy] * goal color) @ sx = x; sy = y If (moves = 999 999 999) Return moves = moves + 1 tabxy (32,1); cwrite (i2 to t (moves), text color, 0) cwrite (" ", text color, 0) Task draw soko (Int x, Int y) Common Int soko color line color (soko color) Do n = -1, 1 line (x, y+4+n, x+10-n, y+14) line (x, y+10-n, x+10-n, y) line (x+4+n, y, x+14, y+10-n) line (x+4+n, y+14, x+14, y+4+n) Loop Task draw rock (Int x, Int y) Common Int rock color solid color (rock color) solid circle (x+7, y+7, 7) Task draw tile (Int x, Int y, Int c) solid color (c) solid rectangle (x, y, x+14, y+14) Task draw maze Common Int m[42][27], level, rocks, sx, sy Common Int goal color, rock color, wall color Common Int2 moves Do y = 1, 25 Do x = 1, 40 z = m[x][y] % 3 If (z = 0) draw tile (x * 16 - 16, y * 16 + 48, 0) @ If (z = 1) draw tile (x * 16 - 16, y * 16 + 48, goal color) @ If (z = 2) draw tile (x * 16 - 16, y * 16 + 48, wall color) @ If (m[x][y] > 2) draw rock (x * 16 - 16, y * 16 + 48) @ If (x = sx And y = sy) draw soko (x * 16 - 16, y * 16 + 48) @ Loop Loop pad (8, 1, i to t (level+1), 4) @ pad (20, 1, i to t (rocks), 4) @ pad (32, 1, i2 to t (moves), 10) @ Task pad (Int x, Int y, Text t, Int n) Common Int text color tabxy (x, y) cwrite (t, text color, 0) cwrite (extract (" ", length (t), n), text color, 0) Task start Common Int2 moves set up maze @ moves = 0 draw maze @ Task set up maze Common Int i[85], m[42][27], level, rocks, sx, sy Common Int column, end, position, left, row Common Text r[1140] row = i[level] If (level < 84) end = i[level+1] Else end = 1140 column = ascii (r[row]) - 64; position = 1 rocks = 0 Do y = 1, 25 left = 0 Do x = 1, 40 m[x][y] = maze(x) If (m[x][y] = 3) rocks = rocks + 1 If (m[x][y] > 4) m[x][y] = m[x][y] - 5 sx = x; sy = y End if Loop row = row + 1; position = 0 Loop Int maze (Int x) Common Int column, end, position, last, left, row Common Text r[1140] If (row >= end Or x < column) Return 0 If (left > 0) left = left - 1 Return last End if If (position >= length (r[row])) Return 0 z = ascii (extract (r[row], position)); position = position + 1 If (z < 64) last = z - 48 Else left = z - 65 Return last Task set up Common Int m[42][27] Do x = 0, 41 m[x][0] = 2; m[x][26] = 2 Loop Do y = 0, 26 m[0][y] = 2; m[41][y] = 2 Loop refresh @ Task refresh Common Int border color, text color graph on; cls tabxy (1,1); cwrite ("Level: Rocks: Moves:", text color, 0) tabxy (1,2); cwrite ("Keys: arrows move I instruct", text color, 0) cwrite ("ions 0-9 enter level number", text color, 0) tabxy (7,3); cwrite ("Esc quit R restart ", text color, 0) cwrite ("level Enter go to level", text color, 0) line color (border color) Do n = 0, 1 line (0, 61-n, 638, 61-n) Loop Task instructions graph off; cls Display "The object of Sokoban is to push all t", Display "he rocks (blue circles) onto the goals" Display "(gray squares). A rock cannot be pus", Display "hed into a wall or into another rock.\n" Display "Use the arrow keys to move. Starting", Display " at a different level works like a TV" Display "remote control: use the 0-9 keys to e", Display "nter the level number, then press the" Display "Enter key. The digits can be cleared b", Display "y pressing the space bar, or by moving" Display "with the arrow keys.\n" Display "This version only checks for a win (al", Display "l rocks on goals), but not a loss, so" Display "you will have to use the R key to restart or Esc to quit.\n" Display "All of the 85 levels are solvable, ", Display "but several are quite challenging.\n" Display "This version of Sokoban was inspired ", Display "by the Gforth version. (Gforth is an" Display "implementation of the programming langu", Display "age Forth.) The maze definitions were" Display "adapted from the Gforth version, but", Display " the programs themselves bear little" Display "resemblance to each other.\n" pause refresh @ draw maze @ // To add additional levels: // // A. Currently, the total number of maze rows (for all levels) is 1140. // When adding rows, this number must be updated in four places: // 1. The Common Text r[1140] line in the task set up maze // 2. The Else end = 1140 line in the task set up maze // 3. The Common Text r[1140] line in the function maze // 4. The Common Text r[1140] line in the task mazes // Just add the additional maze row data (see the maze definitions below) // to the array r[] and update the total number of rows as described // above. It is recommended that the maze be defined without using A-Z to // repeat (like level 1), and once the maze has been tested, A-Z can be // used (like levels 2-85) and then re-test the maze. The leftmost column // for levels 1-85 was chosen so that the maze would be centered, left to // right. It is also recommended that the maze be defined so that the // leftmost column is the first column, and once the maze has been tested, // then adjust the leftmost column as desired. // // B. Currently, the total number of levels is 85. When adding levels, this // number must be updated in four places: // 1. The If (k = 13 And n > 0 And n <= 85) line in the main loop // 2. The If (level >= 85) quit line in the main loop // 3. The line that includes Common Int i[85] in the task set up maze // 4. The Common Int i[85] line in the task mazes // The first row of level n is r[i[n-1]], so the first row(s) of any new // level(s) must be added to the array i[]. // Maze definitions // // The first character (of the first row) is the leftmost column of the maze // (A = 1st column, B = 2nd column, etc.). After that the characters are: // // 0 = floor // 1 = goal // 2 = wall // 3 = rock (on floor) // 4 = rock on goal // 5 = soko (on floor) // 6 = soko on goal // A-Z = repeat the last number 1-26 more times // // The intent of using A-Z to repeat was to allow the source code to be // viewed without spoiling the surprise of any mazes that haven't been // played yet. // Task mazes Common Int i[85] Common Text r[1140] i[0]=0 r[0]="K000022222" r[1]= "000020002" r[2]= "000023002" r[3]= "0022200322" r[4]= "0020030302" r[5]= "2220202202000222222" r[6]= "2000202202222200112" r[7]= "2030030000000000112" r[8]= "2222202220252200112" r[9]= "0000200000222222222" r[10]="00002222222" i[1]=11;r[11]="N2K" r[12]="21A0A20D2B";r[13]="21A0A2030A30A2" r[14]="21A0A232C0A2";r[15]="21A0C502A0A2" r[16]="21A0A2020A302A";r[17]="2E02A30302" r[18]="0A2030A3030302";r[19]="0A20C20D2" r[20]="0A2K" i[2]=21;r[21]="L0G2G" r[22]="0G20D52";r[23]="0G2032302A" r[24]="0G2030A32";r[25]="0G2A30302" r[26]="2H030202B";r[27]="21C0A2A030A30A2" r[28]="2A1B0C30A30B2";r[29]="21C0A2I" r[30]="2G" i[3]=31;r[31]="K0J2G" r[32]="0J20A1C2";r[33]="2K0A1C2" r[34]="20C20A3030B1C2";r[35]="203B230A3020A1C2" r[36]="20A30D3020A1C2";r[37]="203A02303032G" r[38]="20A3020D2";r[39]="2A02H" r[40]="20C20C2A";r[41]="20D30B2A" r[42]="20A3A23A0A52";r[43]="20C20C2A" r[44]="2J" i[4]=45;r[45]="L0G2D" r[46]="0G20B2D";r[47]="0G20232A0A2" r[48]="0G20D302";r[49]="2H02B0B2" r[50]="21C0A2A030A32B";r[51]="21C0C303A02A" r[52]="21C0A2A30A3052";r[53]="2H0A30A2A" r[54]="0G203030A2";r[55]="0G2B02A02" r[56]="0I20C2";r[57]="0I2E" i[5]=58;r[58]="O2E0A2B" r[59]="21A0A202A52A";r[60]="21A0A2B0B2" r[61]="21A0D3A02";r[62]="21A0A2020302" r[63]="21A2B020302";r[64]="2C030230A2" r[65]="0B20A320302";r[66]="0B2030A30A2" r[67]="0B20A2A0B2";r[68]="0B2H" i[6]=69;r[69]="N0F2D" r[70]="02F0B2A";r[71]="2A02052A03A02" r[72]="20C30E2";r[73]="20A30A2B0B2" r[74]="2B02D32B";r[75]="2030A2B01A2" r[76]="203030301B2";r[77]="20C2B1B2" r[78]="203A02021B2";r[79]="20A2B02D" r[80]="2C" i[7]=81;r[81]="M0A2C" r[82]="0A20A2J";r[83]="0A20C30B30302" r[84]="0A203203020A30A2";r[85]="0A20A3030A20C2" r[86]="2B032020A2C02";r[87]="252303030A2A0B2" r[88]="20C302320B202";r[89]="20B30C3030302" r[90]="2D0A2H";r[91]="0A20E2" r[92]="0A20E2";r[93]="0A21E2" r[94]="0A21E2";r[95]="0A21E2" r[96]="0A2G" i[8]=97;r[97]="L0I2F" r[98]="0I20A1B2";r[99]="0E2D0A1B2" r[100]="0E20E1012";r[101]="0E20A2A0A1B2" r[102]="0E2A02A0A1B2";r[103]="0D2B02G" r[104]="0D203B02A";r[105]="02D0A30302D" r[106]="2A0B23030B20B2";r[107]="25030A30C30A302" r[108]="2E03A0302D";r[109]="0D20E2" r[110]="0D2G" i[9]=111;r[111]="K02B0A2L" r[112]="2A52C0F20B2";r[113]="203A0B3A0A30301B2" r[114]="20A3B20C30A21B2";r[115]="2030B203A03A021B2" r[116]="2B0B20A30C21B2";r[117]="20D2030303021B2" r[118]="20C2E02B1B2";r[119]="2A020A20A3030A21B2" r[120]="20A2A0203A03032A1A2";r[121]="201A2020A30E212" r[122]="201A20203B03B0212";r[123]="2D020F20212" r[124]="0C202H0212";r[125]="0C20J212" r[126]="0C2N" i[10]=127;r[127]="K0I2C" r[128]="0D2C020A2";r[129]="0B2B052B302" r[130]="0A2A0E30A2";r[131]="02A0A303A2A02A" r[132]="020A232A0D2";r[133]="02020303A0202B" r[134]="020B3020A20302D";r[135]="2C0C20A3A020B2" r[136]="2C02A030H2";r[137]="210C2B0A2G" r[138]="21A01A202C";r[139]="21B212" r[140]="21D2";r[141]="2F" i[11]=142;r[142]="L2O" r[143]="20M2";r[144]="20202E0D2" r[145]="2020A303030320A2";r[146]="2020B3530B2A02A" r[147]="2020A303032B1B2";r[148]="2020B3030A2A1B2" r[149]="202B3B0302A1B2";r[150]="20D202A02A1B2" r[151]="2D0B2A02A1B2";r[152]="0C2D0D2B" r[153]="0G20D2";r[154]="0G2F" i[12]=155;r[155]="M2D02C" r[156]="21B2020A2C";r[157]="21B2B0A30A2" r[158]="21C2A030A32B";r[159]="2A1C2A0B30A2" r[160]="2B1B02A030302";r[161]="202A0C20A30A2" r[162]="20A2A0202B02C";r[163]="203020230A30C2" r[164]="20A305030C30A2";r[165]="20B20303A0302B" r[166]="20A2E0A2B";r[167]="202A0C2C" r[168]="2B" i[13]=169;r[169]="K0B2H" r[170]="0A2A0B2A0A2E";r[171]="2B0D20A20C2B" r[172]="20A3023020A20A1B02";r[173]="202032532A020212102" r[174]="20A20230A20C10102";r[175]="2030C302020212102" r[176]="20B2A0A2A303010102";r[177]="203020B20A23212102" r[178]="2A030A30B30A31B02";r[179]="02302E0C2A0A2" r[180]="020A20C2I";r[181]="02C" i[14]=182;r[182]="L0F2F" r[183]="02F0D2";r[184]="020D2035302" r[185]="023A020B2H";r[186]="0202B1E2A0B2" r[187]="020B31E2A0202";r[188]="0202B1E0D2" r[189]="2A0B2C02B0232A";r[190]="20A230B20A30A202" r[191]="20A303B0A2032A02";r[192]="20B30302B3A0202" r[193]="2D0D30B202";r[194]="0C2B02B0B202" r[195]="0E20D20B2";r[196]="0E2G0A2" r[197]="0L2C" i[15]=198;r[198]="L0B2G" r[199]="0B20B20A2";r[200]="0B20A30B2" r[201]="02B0230B2C";r[202]="020A30A2A30B2" r[203]="020A2050302032";r[204]="020A20E302C" r[205]="02A02C32A0D2";r[206]="020321D2020B2" r[207]="020A31A4A103202B";r[208]="2A0A21D20B2" r[209]="20B2B02F";r[210]="203A0A20A2" r[211]="20A20D2";r[212]="2E0B2" r[213]="0D2D" i[16]=214;r[214]="N2D" r[215]="20B2A";r[216]="20C20A2C" r[217]="2030A2C0A2";r[218]="20A3A030B32" r[219]="2B50230C2A";r[220]="020A2A0A30302A" r[221]="02030A2A02A012";r[222]="020A232A30A212" r[223]="02B0B31A2A12";r[224]="0A20C2141B2" r[225]="0A203A021D2";r[226]="0A20A2H" r[227]="0A20A2";r[228]="0A2C" i[17]=229;r[229]="M0B2I" r[230]="0B21A0A20B2";r[231]="0B21A0E2" r[232]="0B21A0A20A2C";r[233]="0A2F0A20A2A" r[234]="0A20K2";r[235]="0A20A20A2A0A20A2" r[236]="2C02A0A2C02A";r[237]="20A30A2D020A2" r[238]="202030A30A2030A2";r[239]="20530A30B20B2A" r[240]="2C02A02F";r[241]="0B20C2" r[242]="0B2E" i[18]=243;r[243]="K0D2J" r[244]="0D20A10A20B2";r[245]="0D20210C502" r[246]="02D02A1A202C";r[247]="2A0A201A2B0D2B" r[248]="203021B0B3020A302";r[249]="20C1A02A0A2A02A02" r[250]="2C32A3203020B202";r[251]="0A2A020C2303A0202" r[252]="0A20A302020A2032A02";r[253]="0A20N2" r[254]="0A20A2J0A2";r[255]="0A2C0H2C" i[19]=256;r[256]="K0A2E" r[257]="0A20B52C";r[258]="2D030B2" r[259]="20B2A0C2C";r[260]="203020A2A0C2" r[261]="203020A2D02";r[262]="2A030A30C202" r[263]="2A030302B0202";r[264]="2A020A30A20202" r[265]="2A0202320B202";r[266]="2A02B0B20202E" r[267]="20A30A2C02021C2";r[268]="20C30C30B1A212" r[269]="2C30A32030B1C2";r[270]="20F20A2A01C2" r[271]="2R" i[20]=272;r[272]="K0C2I" r[273]="2D0G2C";r[274]="20D20B30A2502" r[275]="202F32C0A2B";r[276]="2020C2A020A2301A2" r[277]="202030D20A20A212";r[278]="202030A20D2301A2" r[279]="2020A2B02A0D212";r[280]="202B0A20A20A2301A2" r[281]="2020C20A2C0A212";r[282]="20230B30A30A2301A2" r[283]="20C3020303020A212";r[284]="2C032B0C2301A2" r[285]="0B20C3A02B1C2";r[286]="0B20E2A02E" r[287]="0B2G" i[21]=288;r[288]="M2H" r[289]="20F2";r[290]="20F2C" r[291]="2A02C020A2";r[292]="2A0252A0C2" r[293]="203B030A3A2";r[294]="20A202A030A2" r[295]="20A202A0A302C";r[296]="2C0A3B0320A2" r[297]="020B2A0B1C2";r[298]="02020B2021A012" r[299]="020B20202A1B2";r[300]="02D030A21B2" r[301]="0D2A0B2D";r[302]="0E2D" i[22]=303;r[303]="K2E0D2C" r[304]="20C2F0A2D";r[305]="20B320A20A30A20B2" r[306]="20A30A30A30203030A2";r[307]="2A3030B2052030C2" r[308]="20A302J02A";r[309]="2020B21F2032" r[310]="202A0A201E20A2";r[311]="2020B31G302" r[312]="20203021C01A20A2";r[313]="20A3032C32C032" r[314]="2030B2B030B30A2A";r[315]="2030D3030A30C2" r[316]="2A02E0302D02";r[317]="20H20F2" r[318]="2R" i[23]=319;r[319]="K0C2F" r[320]="0C20A20A2C";r[321]="2D0323020A2A" r[322]="21A020A20A20B2";r[323]="21A020323020A32C" r[324]="210A20D230A20A2";r[325]="21A0B320A2030C2" r[326]="21A520A230230A20A2";r[327]="21A020320D320A2" r[328]="21A020A23A230A20A2A";r[329]="21A020320A20A3230A2" r[330]="21A020A20A20B20B2";r[331]="2A102C0A2D0B2" r[332]="02C0A2C0B2D" i[24]=333;r[333]="K2N" r[334]="21I0A12C";r[335]="21I3A120A2" r[336]="2J3020B2A";r[337]="20E30A30D302" r[338]="2A02C0B20A3020A2";r[339]="20E20B2A0A202A" r[340]="20A320A202A0A2B02A";r[341]="2030232B0C2B02A" r[342]="2B0A3020A20A2B02A";r[343]="2B0C302A020A202A" r[344]="02030A20A30A3030B2";r[345]="020A30A323B0A20B2" r[346]="020A20A30E2D";r[347]="02052A0A20A20A2" r[348]="02M" i[25]=349;r[349]="K2C" r[350]="20A2M";r[351]="20A20B1A21E2" r[352]="20A20202D01B2";r[353]="2A320C1G2" r[354]="20B2A32E0A2C";r[355]="203020D2E502" r[356]="2A302030B2E0A2";r[357]="20A3023B2A0F2" r[358]="20E20C23232B";r[359]="202C023D0C2" r[360]="2020C30D20B2";r[361]="2020B2A0G2B" r[362]="202E32E0302";r[363]="20G20C20B2" r[364]="2I0C2D" i[26]=365;r[365]="M02F" r[366]="020A20A2D";r[367]="2A0A20A21B2B" r[368]="20A320A21B0A2";r[369]="203023A01B0A2" r[370]="20A320A21B012";r[371]="20B2032G" r[372]="2A30F30302";r[373]="2A0A20A3A020B2" r[374]="02E0A2A3A52";r[375]="0E20E2A" r[376]="0E2G" i[27]=377;r[377]="K02P" r[378]="021B0B20C20B2A";r[379]="2A1D0A32A0202302" r[380]="21E20A30A20C2";r[381]="21E20A20A2020A2" r[382]="2H030A3030A2";r[383]="0A20D232A302A32A" r[384]="02A0B30C2030C2";r[385]="020A2A02B020A2A302" r[386]="020303A0D30A30A2";r[387]="02030C32A302E" r[388]="02F0A502A";r[389]="0F2E" i[28]=390;r[390]="L0H2D" r[391]="0D2D0B2";r[392]="0C2A030A30A2C" r[393]="2D030A30302A12";r[394]="20F3A0A2A1A2" r[395]="20A2E02B1A02";r[396]="2A020A20C21B02" r[397]="2030B20C21B02";r[398]="2502302A02C1B2" r[399]="2C0A303A0A2A1A2";r[400]="0B2A0A3030A31B2" r[401]="0C203A0A3020A12";r[402]="0C20B3030A2C" r[403]="0C2E0B2";r[404]="0H2D" i[29]=405;r[405]="K2D" r[406]="20B2A";r[407]="2030A2H" r[408]="2A02020F2E";r[409]="2A020B323250A20B2" r[410]="20A20E3020B302";r[411]="20A2B02H02A" r[412]="20A2A01A41D0202A";r[413]="2A02A04141A4140202A" r[414]="2032I02A302";r[415]="20A30B30A30C30A2" r[416]="20A20B20B20B20A2";r[417]="2R" i[30]=418;r[418]="K0F2J" r[419]="0F20B20D2";r[420]="2D0A20D30302" r[421]="20B2D032A0202A";r[422]="20302A0B202A030A2" r[423]="2030A53A0202A3B02";r[424]="2A02B0B202A0C2" r[425]="2A020B2B02D32";r[426]="2A020D30A21C2" r[427]="20A2B02A03021C2A";r[428]="2030B3020B21A3102" r[429]="20A2A03020A2A1C02";r[430]="2D0B2E1B2A" r[431]="0C2D0C2D" i[31]=432;r[432]="L0A2C" r[433]="0A20A2H";r[434]="02A0A2A0A20B2" r[435]="020A3203530B2C";r[436]="0230A30A2030320A2A" r[437]="2A0A32A023030D2";r[438]="20A20A2020B3B0A2" r[439]="2030C30A32A02C";r[440]="2030302320A20A2" r[441]="2A0A2B0A2B302";r[442]="020A21C0D2" r[443]="02C1E2C";r[444]="0B21C2C" r[445]="0B21B2A";r[446]="0B21B2" r[447]="0B2D" i[32]=448;r[448]="N0E2C" r[449]="0A2D0A2";r[450]="02A0D32" r[451]="2A030A2A02B";r[452]="2530302030A2" r[453]="2C02A0B32";r[454]="021C230302" r[455]="021C20B32";r[456]="021C0A3A02A" r[457]="021B02030B2";r[458]="02E3030A2" r[459]="0E20B2B";r[460]="0E2302B" r[461]="0E20A2";r[462]="0E2C" i[33]=463;r[463]="O2K" r[464]="2A0D2A0A2";r[465]="2A0B30B302" r[466]="2C02A03A02";r[467]="20B3020C2" r[468]="203B0202C";r[469]="20B2020302A" r[470]="20A20A20A302";r[471]="20320320C2" r[472]="20B1A202C";r[473]="2C1A030252" r[474]="21D203202";r[475]="2A1C20A302" r[476]="2B1A2A0C2";r[477]="2K" i[34]=478;r[478]="N02H" r[479]="021C0B2A";r[480]="0212120A302A" r[481]="2A1C202052A";r[482]="201C20A20A2A" r[483]="20D2302A302";r[484]="2A02B0A30C2" r[485]="0230A3030320A2";r[486]="02020A30302A02" r[487]="020A2B0A2A0A2";r[488]="020C2A02A02A" r[489]="020A3020A30A2";r[490]="02B3030B2B" r[491]="0B20A2D";r[492]="0B2C" i[35]=493;r[493]="K2K02E" r[494]="20B20C202B1C2";r[495]="20B3A20B50A1D2" r[496]="20B202B0B201C2";r[497]="2A02A02B0A20A1C2" r[498]="0203030D20202C";r[499]="020A3032A0A20E2" r[500]="2C020A2C0202A02";r[501]="20A20230B2A020C2" r[502]="2030A30A202A020B2A";r[503]="20203030C2020B2" r[504]="20A302A02A0202D";r[505]="203A0D3A0A2" r[506]="2A02A02B030A2";r[507]="020C2020C2" r[508]="02E02E" i[36]=509;r[509]="K0K2D" r[510]="2D0A2E0B2";r[511]="20B2C0A3030302" r[512]="2030B2A02A02A0A2A";r[513]="20B3030D30A302" r[514]="2B030A2A02A0D2A";r[515]="0A202D02D3A02" r[516]="02A32D052A0D2";r[517]="02030A2B32B030A2A" r[518]="02030A20B2B0A2B";r[519]="0203A03020B3A02" r[520]="020D20B2A0A2";r[521]="02F1A012B" r[522]="0C21H2";r[523]="0C21H2" r[524]="0C2J" i[37]=525;r[525]="K2J" r[526]="21E0B2H";r[527]="21E0B20A2A0B2" r[528]="21A2B030C30D2";r[529]="21B0303020B2A0B2" r[530]="21B232D0C20A2";r[531]="2B0C20B230A2302" r[532]="0A20A3A03030A32A0A2";r[533]="0A20A30B232302A302" r[534]="0A2B02A020C2A0A2";r[535]="0B20A30302A02E" r[536]="0B20C30A30A2";r[537]="0B2A0B2020B2" r[538]="0C2D52D";r[539]="0G2B" i[38]=540;r[540]="O0E2C" r[541]="2F052";r[542]="20D30A2" r[543]="20B32A032";r[544]="2A321B202" r[545]="02031B0A2";r[546]="0202101202A" r[547]="020B202302";r[548]="0230A30C2" r[549]="020A2F";r[550]="02C" i[39]=551;r[551]="K0L2E" r[552]="02L1C2";r[553]="2A0B2A0D2A1C2" r[554]="20A3A2A0A3052A1C2";r[555]="20E3A0320A1C2" r[556]="20A302A03A020201B2";r[557]="20A302A030A20A1C2" r[558]="2A02D02B02A12B";r[559]="2A0B30A302A0B10A2" r[560]="2032B0A202D02B";r[561]="20B30B20F2" r[562]="20A302303032B0A2";r[563]="203B2030B202C" r[564]="20C20A3A02";r[565]="2E0B2B" r[566]="0D2D" i[40]=567;r[567]="L0C2K" r[568]="0C20I2A";r[569]="0C20A2023A030A2" r[570]="0C2302320A2A052";r[571]="0B2A02A02030202A" r[572]="0B20B30230A202";r[573]="0B20B2030B202" r[574]="0B2A03030B2A02";r[575]="0B20A20A2A0A302" r[576]="0B20C2A03A202";r[577]="2E3A0B20B2" r[578]="21C20A2G";r[579]="2121B02A" r[580]="21C0B2";r[581]="21C0B2" r[582]="2H" i[41]=583;r[583]="K0J2D" r[584]="0I2A0B2A";r[585]="0H2A0D2" r[586]="0G2A0A3A0A2";r[587]="0F2A03A0A302" r[588]="0F2030C302";r[589]="2C0B20B3A02D" r[590]="20A2G02A0C2";r[591]="210K3B52" r[592]="21202F02A0B2A";r[593]="21202F1023032A" r[594]="21J020C2";r[595]="2M0A302" r[596]="0L2A0A2A";r[597]="0M2C" i[42]=598;r[598]="L0D2G" r[599]="0A2C0E2E";r[600]="0A20C2A03030B52" r[601]="0A202A02A32303032A";r[602]="2B01E20A3A02A" r[603]="20B1E20A20B2";r[604]="20201E230A30A2" r[605]="20231E03A20302";r[606]="20B2B02B30A302A" r[607]="2B0A30A30A30A302";r[608]="0A20A30A30A30A302" r[609]="0A2E0B2E";r[610]="0F2D" i[43]=611;r[611]="K0G2F" r[612]="0C2D0A20A2C";r[613]="0C20B20B30C2" r[614]="02C023A02A02A0A2";r[615]="2A0E2020A2A02B" r[616]="20A2B03230A30A30A2";r[617]="21B0C202A0A20B2" r[618]="21B20C50202B02A";r[619]="21B20A2B0A30A30A2" r[620]="2G02A0B20B2";r[621]="0I2H" i[44]=622;r[622]="K02D" r[623]="020B2";r[624]="020202F" r[625]="020E352E";r[626]="020302A302B0B2" r[627]="0202C030C302";r[628]="0202D020A2302C" r[629]="2A0A2C02A30E2";r[630]="20A320A30A202A02A02" r[631]="20H2021B202";r[632]="2E0A2B0A1B0A2" r[633]="0D2C02021B202";r[634]="0I202B0202" r[635]="0I20F2";r[636]="0I2H" i[45]=637;r[637]="N2I" r[638]="20G2C";r[639]="202E020A2A" r[640]="2020303030A302";r[641]="20F230B2" r[642]="2B30A3A20A2B";r[643]="0A20A2A02032A" r[644]="0A2A320B3052";r[645]="0B20A30302B" r[646]="0B2020B30A2";r[647]="0B202A0B202" r[648]="0A2A0A2D02";r[649]="0A20H2" r[650]="0A21F2B";r[651]="0A21F2" r[652]="0A2H" i[46]=653;r[653]="L0H2C" r[654]="02H0A2A";r[655]="2A0A30E302D" r[656]="20B2A02A0B2A1B2";r[657]="2023A0303A232A1B2" r[658]="2020B50B20B1B2";r[659]="20A3202B3A0B1B2" r[660]="2030A3A0A302A1C2";r[661]="2B30F2F" r[662]="0A20A2F";r[663]="0A2C" i[47]=664;r[664]="N0A2H" r[665]="0A241424142";r[666]="0A214141412" r[667]="0A241414142";r[668]="0A214141412" r[669]="0A241414142";r[670]="0A2B0B2B" r[671]="0C20B2";r[672]="2E02E" r[673]="20J2";r[674]="2030303030302" r[675]="2A0303030302A";r[676]="023030303032" r[677]="020B3530B2";r[678]="020A2D0A2" r[679]="02C0B2C" i[48]=680;r[680]="M0F2C" r[681]="0F20A2A";r[682]="0F20B2A" r[683]="0F203A02A";r[684]="0D2B30A302A" r[685]="0A2C0C30B2";r[686]="2B0A202D0A2" r[687]="20C2021C302";r[688]="2020B301C202" r[689]="20A30202141A202";r[690]="2B0A2C02B02" r[691]="0A2C0530A2A32A";r[692]="0D2B030D2" r[693]="0F20A2A0B2";r[694]="0F2H" i[49]=695;r[695]="K0E2K" r[696]="0D2A1A0C20B2";r[697]="0C2A1A4030C302" r[698]="0B2A1A4120202032A";r[699]="0B21A4120202030A2" r[700]="2C1B20A20C202";r[701]="20A2A020I2" r[702]="20530302B0A20B2A";r[703]="2030B30B2020B2" r[704]="2B3A0B202020202";r[705]="0A20B30B20202D" r[706]="0A203202D0E2";r[707]="0A230B20B20C202" r[708]="0A20A2B0B2A0D2";r[709]="0A20A20E20C2A" r[710]="0A2C0E2E" i[50]=711;r[711]="N2H" r[712]="20F2";r[713]="20A30B32" r[714]="2C0C2";r[715]="0B2030A2A" r[716]="2C0B302";r[717]="21A0302A02C" r[718]="21A0A32A0C2";r[719]="21A0C30C2" r[720]="212B32B0252";r[721]="212020D2B" r[722]="2B02F" i[51]=723;r[723]="K2S" r[724]="20A2I0D52";r[725]="20320C20D2E" r[726]="20E2C0B20A2B";r[727]="2D0H20A2B" r[728]="20B30H20A2B";r[729]="20A32C0A20B20C2" r[730]="202020A21A232B0A202";r[731]="202023021A20A30A3A02" r[732]="20E21A20A20B202";r[733]="20B20A21A20A20B202" r[734]="2S" i[52]=735;r[735]="K2S" r[736]="20O2B";r[737]="20320B302A0A30C2A" r[738]="20C32B0C203A02A";r[739]="212B0D30302A0A2A" r[740]="21B20A20A20C230A2";r[741]="21A2A3A2C030A20B2" r[742]="21B20E302A0A2B";r[743]="21B30A2B0A20C202" r[744]="2A1A0A320A2A0B2A502";r[745]="2B120M2" r[746]="2S" i[53]=747;r[747]="K2S" r[748]="20B20C20B20B252";r[749]="2030E30B30B202" r[750]="2A02B1A2A02B0D2";r[751]="20B21C2320A32B02" r[752]="203021C20A30A30302";r[753]="20B21C20202030302" r[754]="20B2A1A2A0B2320B2";r[755]="2A32A0C2A0A20A232A" r[756]="20B30A30D20A20A2";r[757]="20B20C20B20D2" r[758]="2S" i[54]=759;r[759]="K2S" r[760]="20C52A0E20B2A";r[761]="20C2A0C30C302A" r[762]="20A2B1C202020A2B";r[763]="20B21C20202030B2" r[764]="2B021B20A20F2";r[765]="2A0A2A120D30B302" r[766]="2A0A30302B0A20202B";r[767]="2A030F202030B2" r[768]="2C030A320202020302";r[769]="2C0H2020A2A" r[770]="2S" i[55]=771;r[771]="K2S" r[772]="20A20A2A0C20B52B";r[773]="2A0C30C2032B0A2" r[774]="2A320302A3203030C2";r[775]="20B320C30E2B" r[776]="202A0B302B0A21C2";r[777]="202032020202021C2A" r[778]="20C303020A21C2B";r[779]="2A302B0A3021C2C" r[780]="20A2030G2E";r[781]="20E2020C2E" r[782]="2S" i[56]=783;r[783]="K2S" r[784]="250D2B0B20A20A2";r[785]="202020A20A30A30D2" r[786]="2D0D2030323202";r[787]="2121A20C2A3030C2" r[788]="21D0C30B20B2A";r[789]="21D0C2B32A32B" r[790]="2121A20C30C20B2";r[791]="2D0D20A230A302" r[792]="2D0A20A30C30302";r[793]="2D0A20A20A20A20A2" r[794]="2S" i[57]=795;r[795]="K2S" r[796]="2A1B0B2A020C20A2";r[797]="21C0H302A02" r[798]="21C2020232B30C2";r[799]="21B20C20F202" r[800]="2A120A23020D32A02";r[801]="20A20A2030302B0A302" r[802]="20D30A3020A202A02";r[803]="2A0202A023A20320A202" r[804]="20A20B303020E2A";r[805]="20C20D20A20B52" r[806]="2S" i[58]=807;r[807]="K2S" r[808]="20B20A25202A0A2D";r[809]="202020A30C30A2D" r[810]="2020C2E030A2B";r[811]="20B20A21C20A3A0A2" r[812]="2A32A32A1C20E2";r[813]="20E21C2A32A32A" r[814]="20A3A0A21C20E2";r[815]="2030A30A20A20A2B0A2" r[816]="2D0A30B30C30A2";r[817]="2D020C20A20B2A" r[818]="2S" i[59]=819;r[819]="K2S" r[820]="20D2B1A2B0D2";r[821]="203A0A2B1A2B0A3502" r[822]="20A202A1E20A30A2";r[823]="20D21E20A30A2" r[824]="2C0A2B1A2E302";r[825]="20B3B021A20C20A2" r[826]="20320B30A30A3A02302";r[827]="20A20A2A030A2A0A20A2" r[828]="2030C302A030C302";r[829]="20A20A2A0C2A0A20A2" r[830]="2S" i[60]=831;r[831]="K2S" r[832]="20C20A2020A20A20A2";r[833]="20520202A030B30B2A" r[834]="2C020C20A2030B2";r[835]="20C202A02302A02A02" r[836]="20E30B30B30B2";r[837]="21A2B3A2A032A302A02" r[838]="21A2120A2030B3020A2";r[839]="21C203A0B2A302C" r[840]="21C20A2D0E2";r[841]="21B2B0G2A0A2" r[842]="2S" i[61]=843;r[843]="K2S" r[844]="21C20F20A20A2";r[845]="21C202030A30E2" r[846]="21C02A0A3202032302";r[847]="21B20B30B320A30A2" r[848]="21A2C0A2030B3A0A2";r[849]="20E2C02C02B" r[850]="20G20B20D2";r[851]="202A0B20B302030302" r[852]="202A0C302A030A30A2";r[853]="20D520D20B202" r[854]="2S" i[62]=855;r[855]="K2S" r[856]="21C2B0J2";r[857]="21C2D020A23202A" r[858]="21C2B0B230A30B2";r[859]="21C2B0C30A23A2A" r[860]="2A0A2C0320A23030A2";r[861]="2A0A2C0A30A30A20A2" r[862]="250A2C32B32A030A2";r[863]="2A0G20A20A30A2" r[864]="2A0B2B0A20A30A2C";r[865]="2G0A20A20D2" r[866]="2S" i[63]=867;r[867]="K2S" r[868]="20D20D521B2B";r[869]="20D20E2A1B2A" r[870]="2020202A32A02A01C2";r[871]="20B3020B3B0A1C2" r[872]="2B32B03A0A2B02A12";r[873]="20D30A20C202C" r[874]="20A30A20A2B0A2020A2";r[875]="2A0232A0C30A3A0B2" r[876]="20B302A0B20A2020A2";r[877]="20D20C20A20C2" r[878]="2S" i[64]=879;r[879]="K2S" r[880]="20D20A21B250C2";r[881]="2020F1C20C2" r[882]="20A30A20B21C20B2";r[883]="202A32C02A1C20A2" r[884]="2030B30A20A21B20A2";r[885]="203A020B20B203A0A2" r[886]="2B0A3B20B3A0A30A2";r[887]="2030A20A20C20320A2" r[888]="20B320A20F30A2";r[889]="20A20C20C20A20A2" r[890]="2S" i[65]=891;r[891]="K2S" r[892]="2D52B12A1B2A0A2";r[893]="2D30A1A21B20C2" r[894]="2C0C1E20A302";r[895]="2B0A3021D2A0202A" r[896]="2A0A3A202D0A30302";r[897]="2A032030C2A0A3A0A2" r[898]="2A0A20A20C2030A302";r[899]="2A0B3A02B0232A0B2" r[900]="2A0320E3030A302A";r[901]="2B0C20C20C2B" r[902]="2S" i[66]=903;r[903]="K2S" r[904]="250D20B20F2";r[905]="2A02B02A0A2C0202A" r[906]="20C2020A3A0F2";r[907]="20A2020203020302A02A" r[908]="20D3020A23A020B2";r[909]="20A2B0A20E2A02A" r[910]="21A21203020A3020C2";r[911]="21A2120A30202A03A0A2" r[912]="21C2A0B3A0A30A202";r[913]="21D2A0G20A2" r[914]="2S" i[67]=915;r[915]="K2S" r[916]="20A20E20B20B2A";r[917]="2032030302A1B30A302" r[918]="20A30A202A1C2030A2";r[919]="202A0302A1C20B302" r[920]="2030C21C2A030B2";r[921]="2032A0A21B20F2" r[922]="20B3B2A32A0A2B02A";r[923]="202020A20B20A20C2" r[924]="203020A30A2A0F2";r[925]="20C20C250F2" r[926]="2S" i[68]=927;r[927]="K2S" r[928]="20A20A2020C20A20A2";r[929]="20B30E3030D2" r[930]="2A020A232B32A0A2A02";r[931]="20B30D30A20A30A2" r[932]="202B32A320B2030B2";r[933]="2020B3030A2E032" r[934]="2030A3A030A252121B2";r[935]="2020D20A202121B2" r[936]="202I021D2";r[937]="20K21D2" r[938]="2S" i[69]=939;r[939]="K2S" r[940]="20A20D20A2A0C2A";r[941]="20320B3020D2A0A2" r[942]="2030A30A21A20D302";r[943]="203030A21C20B202A" r[944]="20320A21E2B0302";r[945]="20B20A21C20A230A2" r[946]="2030A2C1A20B20B2";r[947]="2A030B2A0202030A32A" r[948]="2B030C32530320B2";r[949]="2C0B20F20B2" r[950]="2S" i[70]=951;r[951]="K2S" r[952]="20E1C20C2C";r[953]="20E1C0G2" r[954]="20202I0D2";r[955]="20230B20E2B1A2" r[956]="20A30B23A2B0B21A2";r[957]="20302B030B30B21A2" r[958]="203020B303020A2A1A2";r[959]="20A20A3A020302A0B2A" r[960]="252A0320A30A30D2A";r[961]="2A0F2A0B20A2B" r[962]="2S" i[71]=963;r[963]="K2S" r[964]="20G20B25020A2";r[965]="203A0A23A202020A2A02" r[966]="20A20303023A020D2";r[967]="2A020A20A202020A20A2" r[968]="20B2A0F20D2";r[969]="20B203020B20B20A2" r[970]="203023020B20A3021A2";r[971]="2A3020A2C0C21B2" r[972]="20A30I21C2";r[973]="20B20A20D21D2" r[974]="2S" i[72]=975;r[975]="K2S" r[976]="20D20B2D0C2";r[977]="2A030A20B2C0A30A2" r[978]="2C03A0B21A20A20A2";r[979]="20A30A30A2A1A2C02A" r[980]="2030B2B1C0B3A02";r[981]="20A2320B1C2020302" r[982]="2020A20301A2B320B2";r[983]="2020B3021A20B2A0A2" r[984]="20B320A2C0B2032A";r[985]="2020A20C520E2A" r[986]="2S" i[73]=987;r[987]="K2S" r[988]="20B20B20C20B252";r[989]="20B30A30D2030202" r[990]="2A32032B020C3A202";r[991]="20A20A212B0A23030A2" r[992]="20A2321C20A202B02";r[993]="2030A21D2A0C202" r[994]="2A30A2121C23A030A2";r[995]="20A2E1A2A020A202" r[996]="20A30H302B02";r[997]="20B20B20G202" r[998]="2S" i[74]=999;r[999]="K2S" r[1000]="20202020B252A0B202";r[1001]="20L30C2" r[1002]="20A2A3202D030202A";r[1003]="2A0C2A1D20A20A2" r[1004]="2A32A321D2B32302";r[1005]="20B202A1D20A202A" r[1006]="20A30C2A1A2A0A20A2";r[1007]="203020B30B30A3B02" r[1008]="2A030A32020A20A30B2";r[1009]="20B2A0B20A20E2" r[1010]="2S" i[75]=1011;r[1011]="N2E0A2D" r[1012]="20C20A20B2";r[1013]="2030A2C0302" r[1014]="2030E30A2";r[1015]="20A2B52B302" r[1016]="2I02B";r[1017]="21A0B2A0D2" r[1018]="21A0B2A30C2";r[1019]="21A0B2A030B2" r[1020]="21A0B2A030B2";r[1021]="21A0D3030A2" r[1022]="2B0A2H";r[1023]="0A2C" i[76]=1024;r[1024]="K0F2J" r[1025]="0F20H2";r[1026]="0F20C3030A2" r[1027]="2E020302D02";r[1028]="20C2D030A2A32" r[1029]="20F3030E2";r[1030]="20I2A02A02" r[1031]="20C2A52D02A02";r[1032]="20C2C0B202A02A" r[1033]="21C20E2030B2";r[1034]="21C20E20D2" r[1035]="2E0E2F" i[77]=1036;r[1036]="K2L" r[1037]="20J2";r[1038]="202B03A0C2" r[1039]="20B2030A30A2";r[1040]="20A32C32E" r[1041]="20302A0G2D";r[1042]="20A3A030G1B2" r[1043]="2B02A03A20D1B2";r[1044]="0A202A0B20D1B2" r[1045]="0A20E20D1B2";r[1046]="0A2B52L" r[1047]="0C2B" i[78]=1048;r[1048]="K0A2P" r[1049]="2B52A0H1B2";r[1050]="20C20H1B2" r[1051]="2030A20H1B2";r[1052]="203A020H1B2" r[1053]="2A0302B32I";r[1054]="0202B0A302" r[1055]="2A0B30A302";r[1056]="20A3020A302" r[1057]="2030A20C2";r[1058]="20A3020C2" r[1059]="20C20C2";r[1060]="2J" i[79]=1061;r[1061]="K0M2D" r[1062]="0D2I0B2";r[1063]="0D20G20B2" r[1064]="0D20A3030C3A02";r[1065]="0D202D02A0302" r[1066]="0D23A0B232A0302";r[1067]="0D202B0202A30A2" r[1068]="2E02B03030C2";r[1069]="21C0G2A0B2" r[1070]="21C0G2E";r[1071]="21C0G2" r[1072]="2J52A";r[1073]="0I2B" i[80]=1074;r[1074]="L0C2E" r[1075]="02C0C2";r[1076]="020C2A02" r[1077]="02030D2";r[1078]="2B02C02G" r[1079]="20A30B302A0A1B2";r[1080]="20B3A03A0C1B2" r[1081]="20C30A32A0A1B2";r[1082]="2A52A02A02A0A1B2" r[1083]="02B0A30A2G";r[1084]="020B3A0A2" r[1085]="020C20A2";r[1086]="02H" i[81]=1087;r[1087]="L2F02H" r[1088]="20D2020B2A0A2";r[1089]="202B02020B30B2" r[1090]="2020302B0B30B2";r[1091]="20B3A0E2A302" r[1092]="20C2C0B2A0A2";r[1093]="252K02A" r[1094]="2B1A0C2D302";r[1095]="0A21A0C2C0B2" r[1096]="0A21A0F3A0A2";r[1097]="0A21A0C2C0302" r[1098]="0A21A0C20A20B2";r[1099]="0A2G0A2D" i[82]=1100;r[1100]="M2F" r[1101]="20D2I";r[1102]="20D20C20A2A" r[1103]="2030B20B3030A2";r[1104]="20A30A20A302A0A2" r[1105]="203A0A2A3030C2";r[1106]="2A020A2A02F" r[1107]="2A020A2A0C1B2";r[1108]="20A230F1B2" r[1109]="20B3A0E1B2";r[1110]="20D2A520A1B2" r[1111]="2O" i[83]=1112;r[1112]="K2K" r[1113]="20E20B2A";r[1114]="2030A30B20A2E" r[1115]="2C0A2D0E2";r[1116]="021A0A20D2C02" r[1117]="0212C0A2C0C2";r[1118]="021C0C20A302C" r[1119]="0201B20B203B20A2A";r[1120]="2B12C02A0A3530B2" r[1121]="20D2D03020C2";r[1122]="20212030E32B302" r[1123]="20212G0A20A302";r[1124]="2021A0G2A0A302" r[1125]="20202F0302020A2";r[1126]="20B20D20F2A" r[1127]="2D0D2I" i[84]=1128;r[1128]="K2S" r[1129]="2020D20I2";r[1130]="20F30A2A02B02A" r[1131]="2D0A2A0B30A30B2";r[1132]="2A1A2A0A2020302020A2" r[1133]="21C0A30D2A3202A";r[1134]="21C0A32D0B232A" r[1135]="2A1A2020A20B20A30A2";r[1136]="2B12020A30B30A2052" r[1137]="2A0A30A3020B20A2C";r[1138]="2A0F2J" r[1139]="2S"

How To Run The Program If you're feeling ambitious and have nothing better to do, you could just copy the source listing by hand! However, there is a much easier way to do it: Copy the source listing into the Windows Clipboard Paste the Clipboard into a new text document Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.