1 SCREEN 0
3 COLOR 7, 1
5 CLS

10 LOCATE 2, 1
 PRINT "           ================================"
 PRINT "           =                              ="
 PRINT "           =        Towers of Hanoi       ="
 PRINT "           =                              ="
 PRINT "           =        (Hanoin Tornit)       ="
 PRINT "           =                              ="
 PRINT "           ================================"

 LOCATE 10, 1
 PRINT "   From table 'J' to table 'L'. Similar pile of blocks."
 PRINT "   If you try to put a bigger block above small block,"
 PRINT "   it is a 'Fatal Error' and your penalty is ten extra"
 PRINT "   moves. It is possible to solve Level 2 in one hour,"
 PRINT "   using 1,000 moves. Level 3 is more diddicult."

 LOCATE 16, 1
 PRINT "   Created By: Pasi Toivonen, FINLAND, October, 2024."

 LOCATE 19, 1
 PRINT "   1 - Difficult (eight blocks)."
 PRINT "   2 - Very difficult (nine blocks)."
 PRINT "   3 - Extreme difficult (ten blocks)."

12 LOCATE 23, 1
 INPUT "   Type '1' to '3' "; a$

20 IF a$ = "1" THEN
 lev% = 1
 cou% = 4
 GOTO 100
 END IF

21 IF a$ = "2" THEN
 lev% = 2
 cou% = 2
 GOTO 100
 END IF

22 IF a$ = "3" THEN
 cou% = 1
 lev% = 3
 GOTO 100

 ELSE
 LOCATE 23, 1
 PRINT "   Out of range.      "
 SLEEP 1
 GOTO 12
 END IF

100 CLS
 LOCATE 16, 6
 PRINT CHR$(218)

101 x% = 7

102 LOCATE 16, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 22 THEN
 GOTO 105

 ELSE
 GOTO 102
 END IF

105 LOCATE 16, 22
 PRINT CHR$(191)

110 LOCATE 17, 6
 PRINT CHR$(192)

111 x% = 7

112 LOCATE 17, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 22 THEN
 GOTO 115

 ELSE
 GOTO 112
 END IF

115 LOCATE 17, 22
 PRINT CHR$(217)

120 LOCATE 16, 31
 PRINT CHR$(218)

121 x% = 32

122 LOCATE 16, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 47 THEN
 GOTO 125

 ELSE
 GOTO 122
 END IF

125 LOCATE 16, 47
 PRINT CHR$(191)

130 LOCATE 17, 31
 PRINT CHR$(192)

131 x% = 32

132 LOCATE 17, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 47 THEN
 GOTO 135

 ELSE
 GOTO 132
 END IF

135 LOCATE 17, 47
 PRINT CHR$(217)

140 LOCATE 16, 56
 PRINT CHR$(218)

141 x% = 57

142 LOCATE 16, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 72 THEN
 GOTO 145

 ELSE
 GOTO 142
 END IF

145 LOCATE 16, 72
 PRINT CHR$(191)

150 LOCATE 17, 56
 PRINT CHR$(192)

151 x% = 57

152 LOCATE 17, x%
 PRINT CHR$(196)
 x% = x% + 1
 IF x% = 72 THEN
 GOTO 155

 ELSE
 GOTO 152
 END IF

155 LOCATE 17, 72
 PRINT CHR$(217)

160 LOCATE 17, 8
 PRINT CHR$(194)
 LOCATE 17, 9
 PRINT CHR$(194)

 LOCATE 18, 8
 PRINT CHR$(179)
 LOCATE 18, 9
 PRINT CHR$(179)

 LOCATE 19, 8
 PRINT CHR$(179)
 LOCATE 19, 9
 PRINT CHR$(179)

 LOCATE 20, 8
 PRINT CHR$(192)
 LOCATE 20, 9
 PRINT CHR$(217)

 LOCATE 17, 19
 PRINT CHR$(194)
 LOCATE 17, 20
 PRINT CHR$(194)

 LOCATE 18, 19
 PRINT CHR$(179)
 LOCATE 18, 20
 PRINT CHR$(179)

 LOCATE 19, 19
 PRINT CHR$(179)
 LOCATE 19, 20
 PRINT CHR$(179)

 LOCATE 20, 19
 PRINT CHR$(192)
 LOCATE 20, 20
 PRINT CHR$(217)

170 LOCATE 17, 33
 PRINT CHR$(194)
 LOCATE 17, 34
 PRINT CHR$(194)

 LOCATE 18, 33
 PRINT CHR$(179)
 LOCATE 18, 34
 PRINT CHR$(179)

 LOCATE 19, 33
 PRINT CHR$(179)
 LOCATE 19, 34
 PRINT CHR$(179)

 LOCATE 20, 33
 PRINT CHR$(192)
 LOCATE 20, 34
 PRINT CHR$(217)

 LOCATE 17, 44
 PRINT CHR$(194)
 LOCATE 17, 45
 PRINT CHR$(194)

 LOCATE 18, 44
 PRINT CHR$(179)
 LOCATE 18, 45
 PRINT CHR$(179)

 LOCATE 19, 44
 PRINT CHR$(179)
 LOCATE 19, 45
 PRINT CHR$(179)

 LOCATE 20, 44
 PRINT CHR$(192)
 LOCATE 20, 45
 PRINT CHR$(217)

180 LOCATE 17, 58
 PRINT CHR$(194)
 LOCATE 17, 59
 PRINT CHR$(194)

 LOCATE 18, 58
 PRINT CHR$(179)
 LOCATE 18, 59
 PRINT CHR$(179)

 LOCATE 19, 58
 PRINT CHR$(179)
 LOCATE 19, 59
 PRINT CHR$(179)

 LOCATE 20, 58
 PRINT CHR$(192)
 LOCATE 20, 59
 PRINT CHR$(217)

 LOCATE 17, 69
 PRINT CHR$(194)
 LOCATE 17, 70
 PRINT CHR$(194)

 LOCATE 18, 69
 PRINT CHR$(179)
 LOCATE 18, 70
 PRINT CHR$(179)

 LOCATE 19, 69
 PRINT CHR$(179)
 LOCATE 19, 70
 PRINT CHR$(179)

 LOCATE 20, 69
 PRINT CHR$(192)
 LOCATE 20, 70
 PRINT CHR$(217)

190 LOCATE 19, 14
 PRINT "J"

 LOCATE 19, 39
 PRINT "K"

 LOCATE 19, 64
 PRINT "L"

192 IF lev% = 1 THEN
 GOTO 200
 END IF

 IF lev% = 2 THEN
 GOTO 20200
 END IF

 IF lev% = 3 THEN
 GOTO 40200
 END IF

200 LOCATE 8, 14
 PRINT CHR$(5)

202 LOCATE 9, 13
 PRINT CHR$(8)

 LOCATE 9, 14
 PRINT CHR$(8)

 LOCATE 9, 15
 PRINT CHR$(8)

204 LOCATE 10, 12
 PRINT CHR$(176)

 LOCATE 10, 13
 PRINT CHR$(176)

 LOCATE 10, 14
 PRINT CHR$(176)

 LOCATE 10, 15
 PRINT CHR$(176)

 LOCATE 10, 16
 PRINT CHR$(176)

206 LOCATE 11, 11
 PRINT CHR$(177)

 LOCATE 11, 12
 PRINT CHR$(177)

 LOCATE 11, 13
 PRINT CHR$(177)

 LOCATE 11, 14
 PRINT CHR$(177)

 LOCATE 11, 15
 PRINT CHR$(177)

 LOCATE 11, 16
 PRINT CHR$(177)

 LOCATE 11, 17
 PRINT CHR$(177)

208 LOCATE 12, 10
 PRINT CHR$(178)

 LOCATE 12, 11
 PRINT CHR$(178)

 LOCATE 12, 12
 PRINT CHR$(178)

 LOCATE 12, 13
 PRINT CHR$(178)

 LOCATE 12, 14
 PRINT CHR$(178)

 LOCATE 12, 15
 PRINT CHR$(178)

 LOCATE 12, 16
 PRINT CHR$(178)

 LOCATE 12, 17
 PRINT CHR$(178)

 LOCATE 12, 18
 PRINT CHR$(178)

210 LOCATE 13, 9
 PRINT CHR$(205)

 LOCATE 13, 10
 PRINT CHR$(205)

 LOCATE 13, 11
 PRINT CHR$(205)

 LOCATE 13, 12
 PRINT CHR$(205)

 LOCATE 13, 13
 PRINT CHR$(205)

 LOCATE 13, 14
 PRINT CHR$(205)

 LOCATE 13, 15
 PRINT CHR$(205)

 LOCATE 13, 16
 PRINT CHR$(205)

 LOCATE 13, 17
 PRINT CHR$(205)

 LOCATE 13, 18
 PRINT CHR$(205)

 LOCATE 13, 19
 PRINT CHR$(205)

212 LOCATE 14, 8
 PRINT CHR$(219)

 LOCATE 14, 9
 PRINT CHR$(219)

 LOCATE 14, 10
 PRINT CHR$(219)

 LOCATE 14, 11
 PRINT CHR$(219)

 LOCATE 14, 12
 PRINT CHR$(219)

 LOCATE 14, 13
 PRINT CHR$(219)

 LOCATE 14, 14
 PRINT CHR$(219)

 LOCATE 14, 15
 PRINT CHR$(219)

 LOCATE 14, 16
 PRINT CHR$(219)

 LOCATE 14, 17
 PRINT CHR$(219)

 LOCATE 14, 18
 PRINT CHR$(219)

 LOCATE 14, 19
 PRINT CHR$(219)

 LOCATE 14, 20
 PRINT CHR$(219)

214 LOCATE 15, 7
 PRINT CHR$(220)

 LOCATE 15, 8
 PRINT CHR$(220)

 LOCATE 15, 9
 PRINT CHR$(220)

 LOCATE 15, 10
 PRINT CHR$(220)

 LOCATE 15, 11
 PRINT CHR$(220)

 LOCATE 15, 12
 PRINT CHR$(220)

 LOCATE 15, 13
 PRINT CHR$(220)

 LOCATE 15, 14
 PRINT CHR$(220)

 LOCATE 15, 15
 PRINT CHR$(220)

 LOCATE 15, 16
 PRINT CHR$(220)

 LOCATE 15, 17
 PRINT CHR$(220)

 LOCATE 15, 18
 PRINT CHR$(220)

 LOCATE 15, 19
 PRINT CHR$(220)

 LOCATE 15, 20
 PRINT CHR$(220)

 LOCATE 15, 21
 PRINT CHR$(220)

250 y% = 15
 x% = 64

251 pal% = SCREEN(y%, x%)

 IF pal% = 220 THEN
 y% = y% - 1
 GOTO 252

 ELSE
 GOTO 300
 END IF

252 pal% = SCREEN(y%, x%)

 IF pal% = 219 THEN
 y% = y% - 1
 GOTO 253

 ELSE
 GOTO 300
 END IF

253 pal% = SCREEN(y%, x%)

 IF pal% = 205 THEN
 y% = y% - 1
 GOTO 254

 ELSE
 GOTO 300
 END IF

254 pal% = SCREEN(y%, x%)

 IF pal% = 178 THEN
 y% = y% - 1
 GOTO 255

 ELSE
 GOTO 300
 END IF

255 pal% = SCREEN(y%, x%)

 IF pal% = 177 THEN
 y% = y% - 1
 GOTO 256

 ELSE
 GOTO 300
 END IF

256 pal% = SCREEN(y%, x%)

 IF pal% = 176 THEN
 y% = y% - 1
 GOTO 257

 ELSE
 GOTO 300
 END IF

257 pal% = SCREEN(y%, x%)

 IF pal% = 8 THEN
 y% = y% - 1
 GOTO 258

 ELSE
 GOTO 300
 END IF

258 pal% = SCREEN(y%, x%)

 IF pal% = 5 THEN
 GOTO 71000

 ELSE
 GOTO 300
 END IF

300 LOCATE 2, 35
 PRINT "Level:  1"

 LOCATE 3, 62
 PRINT "Counter: "; coun%

301 IF coun% > 600 THEN
 GOTO 70000
 END IF

307 LOCATE 22, 5
308 PRINT "                                          "
309 LOCATE 22, 5
310 INPUT "From (type 'J' to 'L' or 'Q' to quit) "; a$

 IF a$ = "j" THEN
 GOTO 1000
 END IF

 IF a$ = "k" THEN
 GOTO 2000
 END IF

 IF a$ = "l" THEN
 GOTO 3000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 300
 END IF

1000 REM Tarkasta J ylin palkki

1009 y% = 8
 x% = 14

1010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 1010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 14
 LOCATE y%, 7
 PRINT "               "
 GOTO 1020
 END IF

1020 LOCATE 22, 5
1021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 4000
 END IF

 IF a$ = "k" THEN
 GOTO 5000
 END IF

 IF a$ = "l" THEN
 GOTO 6000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 1020
 END IF

2000 REM Tarkasta K ylin palkki

2001 y% = 8
 x% = 39

2010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 2010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 39
 LOCATE y%, 32
 PRINT "               "
 GOTO 2020
 END IF

2020 LOCATE 22, 5
2021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 4000
 END IF

 IF a$ = "k" THEN
 GOTO 5000
 END IF

 IF a$ = "l" THEN
 GOTO 6000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 2020
 END IF

3000 REM Tarkasta L ylin palkki

3001 y% = 8
 x% = 64

3010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 3010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 64
 LOCATE y%, 57
 PRINT "               "
 GOTO 3020
 END IF

3020 LOCATE 22, 5
3021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 4000
 END IF

 IF a$ = "k" THEN
 GOTO 5000
 END IF

 IF a$ = "l" THEN
 GOTO 6000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 3020
 END IF

4000 REM Skannataan milla rivilla poydan J alin palkki

4001 y% = 15
 x% = 14

4005 pts% = SCREEN(y%, x%)
 
 IF pts% = 32 THEN
 GOTO 7000

 ELSE
 y% = y% - 1
 GOTO 4005
 END IF

5000 REM Skannataan milla rivilla poydan K alin palkki

5001 y% = 15
 x% = 39

5005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 7000

 ELSE
 y% = y% - 1
 GOTO 5005
 END IF

6000 REM Skannataan milla rivilla poydan L alin palkki

6001 y% = 15
 x% = 64

6005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 7000

 ELSE
 y% = y% - 1
 GOTO 6005
 END IF

7000 REM Minka kokoinen on se alin edellinen palkki?

7010 IF y% = 15 THEN
 GOTO 7100
 END IF

 IF y% = 14 THEN
 GOTO 7020
 END IF

 IF y% = 13 THEN
 GOTO 7030
 END IF

 IF y% = 12 THEN
 GOTO 7040
 END IF

 IF y% = 11 THEN
 GOTO 7050
 END IF

 IF y% = 10 THEN
 GOTO 7060
 END IF

 IF y% = 9 THEN
 GOTO 7070
 END IF

 IF y% = 8 THEN
 GOTO 7080
 END IF

7020 q% = SCREEN(15, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7030 q% = SCREEN(14, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7040 q% = SCREEN(13, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7050 q% = SCREEN(12, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7060 q% = SCREEN(11, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7070 q% = SCREEN(10, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7080 q% = SCREEN(9, x%)

 IF q% > pal% THEN
 GOTO 7100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 8000
 END IF

7100 REM Tunnista palkki joka kopioitiin ja printataan se

7101 IF pal% = 5 THEN
 GOTO 7110
 END IF

 IF pal% = 8 THEN
 GOTO 7120
 END IF

 IF pal% = 176 THEN
 GOTO 7130
 END IF

 IF pal% = 177 THEN
 GOTO 7140
 END IF

 IF pal% = 178 THEN
 GOTO 7150
 END IF

 IF pal% = 205 THEN
 GOTO 7160
 END IF

 IF pal% = 219 THEN
 GOTO 7170
 END IF

 IF pal% = 220 THEN
 GOTO 7180
 END IF

7110 REM Printtaa 1-palkki

 LOCATE y%, x%
 PRINT CHR$(pal%)
 GOTO 9000

7120 REM 2-palkki

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)
 GOTO 9000

7130 REM 3-palkki

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)
 GOTO 9000

7140 REM 4-palkki

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)
 GOTO 9000

7150 REM 5-palkki

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)
 GOTO 9000

7160 REM 6-palkki

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)
 
 LOCATE y%, x% + 5
 PRINT CHR$(pal%)
 GOTO 9000

7170 REM 7-palkki

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)
 GOTO 9000

7180 REM 8-palkki

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)
 GOTO 9000

8000 coun% = coun% + 10

 IF lpal% = 8 THEN
 GOTO 8200
 END IF

 IF lpal% = 176 THEN
 GOTO 8300
 END IF

 IF lpal% = 177 THEN
 GOTO 8400
 END IF

 IF lpal% = 178 THEN
 GOTO 8500
 END IF

 IF lpal% = 205 THEN
 GOTO 8600
 END IF

 IF lpal% = 219 THEN
 GOTO 8700
 END IF

 IF lpal% = 220 THEN
 GOTO 8800
 END IF

8200 REM 2-palkki

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)
 GOTO 9000

8300 REM 3-palkki

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)
 GOTO 9000

8400 REM 4-palkki

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)
 GOTO 9000

8500 REM 5-palkki

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)
 GOTO 9000

8600 REM 6-palkki

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)
 GOTO 9000

8700 REM 7-palkki

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)
 GOTO 9000

8800 REM 8-palkki

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)
 GOTO 9000

9000 coun% = coun% + 1
 GOTO 250

20000 REM ------------ Level 2 --------------

20200 LOCATE 7, 14
 PRINT CHR$(5)

20202 LOCATE 8, 13
 PRINT CHR$(8)

 LOCATE 8, 14
 PRINT CHR$(8)

 LOCATE 8, 15
 PRINT CHR$(8)

20204 LOCATE 9, 12
 PRINT CHR$(176)

 LOCATE 9, 13
 PRINT CHR$(176)

 LOCATE 9, 14
 PRINT CHR$(176)

 LOCATE 9, 15
 PRINT CHR$(176)

 LOCATE 9, 16
 PRINT CHR$(176)

20206 LOCATE 10, 11
 PRINT CHR$(177)

 LOCATE 10, 12
 PRINT CHR$(177)

 LOCATE 10, 13
 PRINT CHR$(177)

 LOCATE 10, 14
 PRINT CHR$(177)

 LOCATE 10, 15
 PRINT CHR$(177)

 LOCATE 10, 16
 PRINT CHR$(177)

 LOCATE 10, 17
 PRINT CHR$(177)

20208 LOCATE 11, 10
 PRINT CHR$(178)

 LOCATE 11, 11
 PRINT CHR$(178)

 LOCATE 11, 12
 PRINT CHR$(178)

 LOCATE 11, 13
 PRINT CHR$(178)

 LOCATE 11, 14
 PRINT CHR$(178)

 LOCATE 11, 15
 PRINT CHR$(178)

 LOCATE 11, 16
 PRINT CHR$(178)

 LOCATE 11, 17
 PRINT CHR$(178)

 LOCATE 11, 18
 PRINT CHR$(178)

20210 LOCATE 12, 9
 PRINT CHR$(205)

 LOCATE 12, 10
 PRINT CHR$(205)

 LOCATE 12, 11
 PRINT CHR$(205)

 LOCATE 12, 12
 PRINT CHR$(205)

 LOCATE 12, 13
 PRINT CHR$(205)

 LOCATE 12, 14
 PRINT CHR$(205)

 LOCATE 12, 15
 PRINT CHR$(205)

 LOCATE 12, 16
 PRINT CHR$(205)

 LOCATE 12, 17
 PRINT CHR$(205)

 LOCATE 12, 18
 PRINT CHR$(205)

 LOCATE 12, 19
 PRINT CHR$(205)

20212 LOCATE 13, 8
 PRINT CHR$(219)

 LOCATE 13, 9
 PRINT CHR$(219)

 LOCATE 13, 10
 PRINT CHR$(219)

 LOCATE 13, 11
 PRINT CHR$(219)

 LOCATE 13, 12
 PRINT CHR$(219)

 LOCATE 13, 13
 PRINT CHR$(219)

 LOCATE 13, 14
 PRINT CHR$(219)

 LOCATE 13, 15
 PRINT CHR$(219)

 LOCATE 13, 16
 PRINT CHR$(219)

 LOCATE 13, 17
 PRINT CHR$(219)

 LOCATE 13, 18
 PRINT CHR$(219)

 LOCATE 13, 19
 PRINT CHR$(219)

 LOCATE 13, 20
 PRINT CHR$(219)

20214 LOCATE 14, 7
 PRINT CHR$(220)

 LOCATE 14, 8
 PRINT CHR$(220)

 LOCATE 14, 9
 PRINT CHR$(220)

 LOCATE 14, 10
 PRINT CHR$(220)

 LOCATE 14, 11
 PRINT CHR$(220)

 LOCATE 14, 12
 PRINT CHR$(220)

 LOCATE 14, 13
 PRINT CHR$(220)

 LOCATE 14, 14
 PRINT CHR$(220)

 LOCATE 14, 15
 PRINT CHR$(220)

 LOCATE 14, 16
 PRINT CHR$(220)

 LOCATE 14, 17
 PRINT CHR$(220)

 LOCATE 14, 18
 PRINT CHR$(220)

 LOCATE 14, 19
 PRINT CHR$(220)

 LOCATE 14, 20
 PRINT CHR$(220)

 LOCATE 14, 21
 PRINT CHR$(220)

20216 LOCATE 15, 6
 PRINT CHR$(254)

 LOCATE 15, 7
 PRINT CHR$(254)

 LOCATE 15, 8
 PRINT CHR$(254)

 LOCATE 15, 9
 PRINT CHR$(254)

 LOCATE 15, 10
 PRINT CHR$(254)

 LOCATE 15, 11
 PRINT CHR$(254)

 LOCATE 15, 12
 PRINT CHR$(254)

 LOCATE 15, 13
 PRINT CHR$(254)

 LOCATE 15, 14
 PRINT CHR$(254)

 LOCATE 15, 15
 PRINT CHR$(254)

 LOCATE 15, 16
 PRINT CHR$(254)

 LOCATE 15, 17
 PRINT CHR$(254)

 LOCATE 15, 18
 PRINT CHR$(254)

 LOCATE 15, 19
 PRINT CHR$(254)

 LOCATE 15, 20
 PRINT CHR$(254)

 LOCATE 15, 21
 PRINT CHR$(254)

 LOCATE 15, 22
 PRINT CHR$(254)

20250 y% = 15
 x% = 64

20251 pal% = SCREEN(y%, x%)

 IF pal% = 254 THEN
 y% = y% - 1
 GOTO 20252

 ELSE
 GOTO 20300
 END IF

20252 pal% = SCREEN(y%, x%)

 IF pal% = 220 THEN
 y% = y% - 1
 GOTO 20253

 ELSE
 GOTO 20300
 END IF

20253 pal% = SCREEN(y%, x%)

 IF pal% = 219 THEN
 y% = y% - 1
 GOTO 20254

 ELSE
 GOTO 20300
 END IF

20254 pal% = SCREEN(y%, x%)

 IF pal% = 205 THEN
 y% = y% - 1
 GOTO 20255

 ELSE
 GOTO 20300
 END IF

20255 pal% = SCREEN(y%, x%)

 IF pal% = 178 THEN
 y% = y% - 1
 GOTO 20256

 ELSE
 GOTO 20300
 END IF

20256 pal% = SCREEN(y%, x%)

 IF pal% = 177 THEN
 y% = y% - 1
 GOTO 20257

 ELSE
 GOTO 20300
 END IF

20257 pal% = SCREEN(y%, x%)

 IF pal% = 176 THEN
 y% = y% - 1
 GOTO 20258

 ELSE
 GOTO 20300
 END IF

20258 pal% = SCREEN(y%, x%)

 IF pal% = 8 THEN
 y% = y% - 1
 GOTO 20259

 ELSE
 GOTO 20300
 END IF

20259 pal% = SCREEN(y%, x%)

 IF pal% = 5 THEN
 GOTO 71000

 ELSE
 GOTO 20300
 END IF

20300 LOCATE 2, 35
 PRINT "Level:  2"

 LOCATE 3, 62
 PRINT "Counter: "; coun%

20301 IF coun% > 1200 THEN
 GOTO 70000
 END IF

20307 LOCATE 22, 5
20308 PRINT "                                          "
20309 LOCATE 22, 5
20310 INPUT "From (type 'J' to 'L' or 'Q' to quit) "; a$

 IF a$ = "j" THEN
 GOTO 21000
 END IF

 IF a$ = "k" THEN
 GOTO 22000
 END IF

 IF a$ = "l" THEN
 GOTO 23000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 20300
 END IF

21000 REM Tarkasta J ylin palkki

21009 y% = 7
 x% = 14

21010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 20300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 21010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 14
 LOCATE y%, 6
 PRINT "                 "
 GOTO 21020
 END IF

21020 LOCATE 22, 5
21021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 24000
 END IF

 IF a$ = "k" THEN
 GOTO 25000
 END IF

 IF a$ = "l" THEN
 GOTO 26000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 21020
 END IF

22000 REM Tarkasta K ylin palkki

22001 y% = 7
 x% = 39

22010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 20300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 22010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 39
 LOCATE y%, 31
 PRINT "                 "
 GOTO 22020
 END IF

22020 LOCATE 22, 5
22021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 24000
 END IF

 IF a$ = "k" THEN
 GOTO 25000
 END IF

 IF a$ = "l" THEN
 GOTO 26000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 22020
 END IF

23000 REM Tarkasta L ylin palkki

23001 y% = 7
 x% = 64

23010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 20300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 23010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 64
 LOCATE y%, 56
 PRINT "                 "
 GOTO 23020
 END IF

23020 LOCATE 22, 5
23021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 24000
 END IF

 IF a$ = "k" THEN
 GOTO 25000
 END IF

 IF a$ = "l" THEN
 GOTO 26000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 23020
 END IF

24000 REM Skannataan milla rivilla poydan J alin palkki

24001 y% = 15
 x% = 14

24005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 27000

 ELSE
 y% = y% - 1
 GOTO 24005
 END IF

25000 REM Skannataan milla rivilla poydan K alin palkki

25001 y% = 15
 x% = 39

25005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 27000

 ELSE
 y% = y% - 1
 GOTO 25005
 END IF

26000 REM Skannataan milla rivilla poydan L alin palkki

26001 y% = 15
 x% = 64

26005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 27000

 ELSE
 y% = y% - 1
 GOTO 26005
 END IF

27000 REM Minka kokoinen on se alin edellinen palkki?

27010 IF y% = 15 THEN
 GOTO 27100
 END IF

 IF y% = 14 THEN
 GOTO 27020
 END IF

 IF y% = 13 THEN
 GOTO 27030
 END IF

 IF y% = 12 THEN
 GOTO 27040
 END IF

 IF y% = 11 THEN
 GOTO 27050
 END IF

 IF y% = 10 THEN
 GOTO 27060
 END IF

 IF y% = 9 THEN
 GOTO 27070
 END IF

 IF y% = 8 THEN
 GOTO 27080
 END IF

 IF y% = 7 THEN
 GOTO 27090
 END IF

27020 q% = SCREEN(15, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27030 q% = SCREEN(14, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27040 q% = SCREEN(13, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27050 q% = SCREEN(12, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27060 q% = SCREEN(11, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27070 q% = SCREEN(10, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27080 q% = SCREEN(9, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27090 q% = SCREEN(8, x%)

 IF q% > pal% THEN
 GOTO 27100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 28000
 END IF

27100 REM Tunnista palkki joka kopioitiin ja printataan se

27101 IF pal% = 5 THEN
 GOTO 27110
 END IF

 IF pal% = 8 THEN
 GOTO 27120
 END IF

 IF pal% = 176 THEN
 GOTO 27130
 END IF

 IF pal% = 177 THEN
 GOTO 27140
 END IF

 IF pal% = 178 THEN
 GOTO 27150
 END IF

 IF pal% = 205 THEN
 GOTO 27160
 END IF

 IF pal% = 219 THEN
 GOTO 27170
 END IF

 IF pal% = 220 THEN
 GOTO 27180
 END IF

 IF pal% = 254 THEN
 GOTO 27190
 END IF

27110 REM Printtaa 1-palkki

 LOCATE y%, x%
 PRINT CHR$(pal%)
 GOTO 29000

27120 REM 2-palkki

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)
 GOTO 29000

27130 REM 3-palkki

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)
 GOTO 29000

27140 REM 4-palkki

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)
 GOTO 29000

27150 REM 5-palkki

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)
 GOTO 29000

27160 REM 6-palkki

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)
 GOTO 29000

27170 REM 7-palkki

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)
 GOTO 29000

27180 REM 8-palkki

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)
 GOTO 29000

27190 REM 9-palkki

 LOCATE y%, x% - 8
 PRINT CHR$(pal%)

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)

 LOCATE y%, x% + 8
 PRINT CHR$(pal%)
 GOTO 29000

28000 coun% = coun% + 10

 IF lpal% = 8 THEN
 GOTO 28200
 END IF

 IF lpal% = 176 THEN
 GOTO 28300
 END IF

 IF lpal% = 177 THEN
 GOTO 28400
 END IF

 IF lpal% = 178 THEN
 GOTO 28500
 END IF

 IF lpal% = 205 THEN
 GOTO 28600
 END IF

 IF lpal% = 219 THEN
 GOTO 28700
 END IF

 IF lpal% = 220 THEN
 GOTO 28800
 END IF

 IF lpal% = 254 THEN
 GOTO 28900
 END IF

28200 REM 2-palkki

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)
 GOTO 29000

28300 REM 3-palkki

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)
 GOTO 29000

28400 REM 4-palkki

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)
 GOTO 29000

28500 REM 5-palkki

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)
 GOTO 29000

28600 REM 6-palkki

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)
 GOTO 29000

28700 REM 7-palkki

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)
 GOTO 29000

28800 REM 8-palkki

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)
 GOTO 29000

28900 REM 9-palkki

 LOCATE ly%, lx% - 8
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 8
 PRINT CHR$(lpal%)
 GOTO 29000

29000 coun% = coun% + 1
 GOTO 20250

40000 REM ------------ Level 3 --------------

40200 LOCATE 6, 14
 PRINT CHR$(5)

40202 LOCATE 7, 13
 PRINT CHR$(8)

 LOCATE 7, 14
 PRINT CHR$(8)

 LOCATE 7, 15
 PRINT CHR$(8)

40204 LOCATE 8, 12
 PRINT CHR$(176)

 LOCATE 8, 13
 PRINT CHR$(176)

 LOCATE 8, 14
 PRINT CHR$(176)

 LOCATE 8, 15
 PRINT CHR$(176)

 LOCATE 8, 16
 PRINT CHR$(176)

40206 LOCATE 9, 11
 PRINT CHR$(177)

 LOCATE 9, 12
 PRINT CHR$(177)

 LOCATE 9, 13
 PRINT CHR$(177)

 LOCATE 9, 14
 PRINT CHR$(177)

 LOCATE 9, 15
 PRINT CHR$(177)

 LOCATE 9, 16
 PRINT CHR$(177)

 LOCATE 9, 17
 PRINT CHR$(177)

40208 LOCATE 10, 10
 PRINT CHR$(178)

 LOCATE 10, 11
 PRINT CHR$(178)

 LOCATE 10, 12
 PRINT CHR$(178)

 LOCATE 10, 13
 PRINT CHR$(178)

 LOCATE 10, 14
 PRINT CHR$(178)

 LOCATE 10, 15
 PRINT CHR$(178)

 LOCATE 10, 16
 PRINT CHR$(178)

 LOCATE 10, 17
 PRINT CHR$(178)

 LOCATE 10, 18
 PRINT CHR$(178)

40210 LOCATE 11, 9
 PRINT CHR$(205)

 LOCATE 11, 10
 PRINT CHR$(205)

 LOCATE 11, 11
 PRINT CHR$(205)

 LOCATE 11, 12
 PRINT CHR$(205)

 LOCATE 11, 13
 PRINT CHR$(205)

 LOCATE 11, 14
 PRINT CHR$(205)

 LOCATE 11, 15
 PRINT CHR$(205)

 LOCATE 11, 16
 PRINT CHR$(205)

 LOCATE 11, 17
 PRINT CHR$(205)

 LOCATE 11, 18
 PRINT CHR$(205)

 LOCATE 11, 19
 PRINT CHR$(205)

40212 LOCATE 12, 8
 PRINT CHR$(219)

 LOCATE 12, 9
 PRINT CHR$(219)

 LOCATE 12, 10
 PRINT CHR$(219)

 LOCATE 12, 11
 PRINT CHR$(219)

 LOCATE 12, 12
 PRINT CHR$(219)

 LOCATE 12, 13
 PRINT CHR$(219)

 LOCATE 12, 14
 PRINT CHR$(219)

 LOCATE 12, 15
 PRINT CHR$(219)

 LOCATE 12, 16
 PRINT CHR$(219)

 LOCATE 12, 17
 PRINT CHR$(219)

 LOCATE 12, 18
 PRINT CHR$(219)

 LOCATE 12, 19
 PRINT CHR$(219)

 LOCATE 12, 20
 PRINT CHR$(219)

40214 LOCATE 13, 7
 PRINT CHR$(220)

 LOCATE 13, 8
 PRINT CHR$(220)

 LOCATE 13, 9
 PRINT CHR$(220)

 LOCATE 13, 10
 PRINT CHR$(220)

 LOCATE 13, 11
 PRINT CHR$(220)

 LOCATE 13, 12
 PRINT CHR$(220)

 LOCATE 13, 13
 PRINT CHR$(220)

 LOCATE 13, 14
 PRINT CHR$(220)

 LOCATE 13, 15
 PRINT CHR$(220)

 LOCATE 13, 16
 PRINT CHR$(220)

 LOCATE 13, 17
 PRINT CHR$(220)

 LOCATE 13, 18
 PRINT CHR$(220)

 LOCATE 13, 19
 PRINT CHR$(220)

 LOCATE 13, 20
 PRINT CHR$(220)

 LOCATE 13, 21
 PRINT CHR$(220)

40216 LOCATE 14, 6
 PRINT CHR$(242)

 LOCATE 14, 7
 PRINT CHR$(242)

 LOCATE 14, 8
 PRINT CHR$(242)

 LOCATE 14, 9
 PRINT CHR$(242)

 LOCATE 14, 10
 PRINT CHR$(242)

 LOCATE 14, 11
 PRINT CHR$(242)

 LOCATE 14, 12
 PRINT CHR$(242)

 LOCATE 14, 13
 PRINT CHR$(242)

 LOCATE 14, 14
 PRINT CHR$(242)

 LOCATE 14, 15
 PRINT CHR$(242)

 LOCATE 14, 16
 PRINT CHR$(242)

 LOCATE 14, 17
 PRINT CHR$(242)

 LOCATE 14, 18
 PRINT CHR$(242)

 LOCATE 14, 19
 PRINT CHR$(242)

 LOCATE 14, 20
 PRINT CHR$(242)

 LOCATE 14, 21
 PRINT CHR$(242)

 LOCATE 14, 22
 PRINT CHR$(242)

40218 LOCATE 15, 5
 PRINT CHR$(254)

 LOCATE 15, 6
 PRINT CHR$(254)

 LOCATE 15, 7
 PRINT CHR$(254)

 LOCATE 15, 8
 PRINT CHR$(254)

 LOCATE 15, 9
 PRINT CHR$(254)

 LOCATE 15, 10
 PRINT CHR$(254)

 LOCATE 15, 11
 PRINT CHR$(254)

 LOCATE 15, 12
 PRINT CHR$(254)

 LOCATE 15, 13
 PRINT CHR$(254)

 LOCATE 15, 14
 PRINT CHR$(254)

 LOCATE 15, 15
 PRINT CHR$(254)

 LOCATE 15, 16
 PRINT CHR$(254)

 LOCATE 15, 17
 PRINT CHR$(254)

 LOCATE 15, 18
 PRINT CHR$(254)

 LOCATE 15, 19
 PRINT CHR$(254)

 LOCATE 15, 20
 PRINT CHR$(254)

 LOCATE 15, 21
 PRINT CHR$(254)

 LOCATE 15, 22
 PRINT CHR$(254)

 LOCATE 15, 23
 PRINT CHR$(254)

40250 y% = 15
 x% = 64

40251 pal% = SCREEN(y%, x%)

 IF pal% = 254 THEN
 y% = y% - 1
 GOTO 40252

 ELSE
 GOTO 40300
 END IF

40252 pal% = SCREEN(y%, x%)

 IF pal% = 242 THEN
 y% = y% - 1
 GOTO 40253

 ELSE
 GOTO 40300
 END IF

40253 pal% = SCREEN(y%, x%)

 IF pal% = 220 THEN
 y% = y% - 1
 GOTO 40254

 ELSE
 GOTO 40300
 END IF

40254 pal% = SCREEN(y%, x%)

 IF pal% = 219 THEN
 y% = y% - 1
 GOTO 40255

 ELSE
 GOTO 40300
 END IF

40255 pal% = SCREEN(y%, x%)

 IF pal% = 205 THEN
 y% = y% - 1
 GOTO 40256

 ELSE
 GOTO 40300
 END IF

40256 pal% = SCREEN(y%, x%)

 IF pal% = 178 THEN
 y% = y% - 1
 GOTO 40257

 ELSE
 GOTO 40300
 END IF

40257 pal% = SCREEN(y%, x%)

 IF pal% = 177 THEN
 y% = y% - 1
 GOTO 40258

 ELSE
 GOTO 40300
 END IF

40258 pal% = SCREEN(y%, x%)

 IF pal% = 176 THEN
 y% = y% - 1
 GOTO 40259

 ELSE
 GOTO 40300
 END IF

40259 pal% = SCREEN(y%, x%)

 IF pal% = 8 THEN
 y% = y% - 1
 GOTO 40260

 ELSE
 GOTO 40300
 END IF

40260 pal% = SCREEN(y%, x%)

 IF pal% = 5 THEN
 GOTO 71000

 ELSE
 GOTO 40300
 END IF

40300 LOCATE 2, 35
 PRINT "Level:  3"

 LOCATE 3, 62
 PRINT "Counter: "; coun%

40301 IF coun% > 2400 THEN
 GOTO 70000
 END IF

40307 LOCATE 22, 5
40308 PRINT "                                          "
40309 LOCATE 22, 5
40310 INPUT "From (type 'J' to 'L' or 'Q' to quit) "; a$

 IF a$ = "j" THEN
 GOTO 41000
 END IF

 IF a$ = "k" THEN
 GOTO 42000
 END IF

 IF a$ = "l" THEN
 GOTO 43000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 40300
 END IF

41000 REM Tarkasta J ylin palkki

41009 y% = 6
 x% = 14

41010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 40300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 41010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 14
 LOCATE y%, 5
 PRINT "                   "
 GOTO 41020
 END IF

41020 LOCATE 22, 5
41021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 44000
 END IF

 IF a$ = "k" THEN
 GOTO 45000
 END IF

 IF a$ = "l" THEN
 GOTO 46000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 41020
 END IF

42000 REM Tarkasta K ylin palkki

42001 y% = 6
 x% = 39

42010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 40300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 42010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 39
 LOCATE y%, 30
 PRINT "                   "
 GOTO 42020
 END IF

42020 LOCATE 22, 5
42021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 44000
 END IF

 IF a$ = "k" THEN
 GOTO 45000
 END IF

 IF a$ = "l" THEN
 GOTO 46000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 42020
 END IF

43000 REM Tarkasta L ylin palkki

43001 y% = 6
 x% = 64

43010 pal% = SCREEN(y%, x%)

 IF pal% = 196 THEN
 LOCATE 22, 5
 PRINT " Empty.                                     "
 SLEEP 1
 GOTO 40300
 END IF

 IF pal% = 32 THEN
 y% = y% + 1
 GOTO 43010

 ELSE
 lpal% = pal%
 ly% = y%
 lx% = 64
 LOCATE y%, 55
 PRINT "                   "
 GOTO 43020
 END IF

43020 LOCATE 22, 5
43021 INPUT "To: (type 'J' to 'L' or 'Q' to quit)   "; a$

 IF a$ = "j" THEN
 GOTO 44000
 END IF

 IF a$ = "k" THEN
 GOTO 45000
 END IF

 IF a$ = "l" THEN
 GOTO 46000
 END IF

 IF a$ = "q" THEN
 GOTO 70000

 ELSE
 LOCATE 22, 5
 PRINT " Impossible.                                "
 SLEEP 1
 GOTO 43020
 END IF

44000 REM Skannataan milla rivilla poydan J alin palkki

44001 y% = 15
 x% = 14

44005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 47000

 ELSE
 y% = y% - 1
 GOTO 44005
 END IF

45000 REM Skannataan milla rivilla poydan K alin palkki

45001 y% = 15
 x% = 39

45005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 47000

 ELSE
 y% = y% - 1
 GOTO 45005
 END IF

46000 REM Skannataan milla rivilla poydan L alin palkki

46001 y% = 15
 x% = 64

46005 pts% = SCREEN(y%, x%)

 IF pts% = 32 THEN
 GOTO 47000

 ELSE
 y% = y% - 1
 GOTO 46005
 END IF

47000 REM Minka kokoinen on se alin edellinen palkki?

47010 IF y% = 15 THEN
 GOTO 47100
 END IF

 IF y% = 14 THEN
 GOTO 47020
 END IF

 IF y% = 13 THEN
 GOTO 47030
 END IF

 IF y% = 12 THEN
 GOTO 47040
 END IF

 IF y% = 11 THEN
 GOTO 47050
 END IF

 IF y% = 10 THEN
 GOTO 47060
 END IF

 IF y% = 9 THEN
 GOTO 47070
 END IF

 IF y% = 8 THEN
 GOTO 47080
 END IF

 IF y% = 7 THEN
 GOTO 47090
 END IF

 IF y% = 6 THEN
 GOTO 47095
 END IF

47020 q% = SCREEN(15, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47030 q% = SCREEN(14, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47040 q% = SCREEN(13, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47050 q% = SCREEN(12, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47060 q% = SCREEN(11, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47070 q% = SCREEN(10, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47080 q% = SCREEN(9, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47090 q% = SCREEN(8, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47095 q% = SCREEN(7, x%)

 IF q% > pal% THEN
 GOTO 47100

 ELSE
 LOCATE 22, 5
 PRINT " Fatal Error.                               "
 SLEEP 1
 GOTO 48000
 END IF

47100 REM Tunnista palkki joka kopioitiin ja printataan se

47101 IF pal% = 5 THEN
 GOTO 47110
 END IF

 IF pal% = 8 THEN
 GOTO 47120
 END IF

 IF pal% = 176 THEN
 GOTO 47130
 END IF

 IF pal% = 177 THEN
 GOTO 47140
 END IF

 IF pal% = 178 THEN
 GOTO 47150
 END IF

 IF pal% = 205 THEN
 GOTO 47160
 END IF

 IF pal% = 219 THEN
 GOTO 47170
 END IF

 IF pal% = 220 THEN
 GOTO 47180
 END IF

 IF pal% = 242 THEN
 GOTO 47190
 END IF

 IF pal% = 254 THEN
 GOTO 47195
 END IF

47110 REM Printtaa 1-palkki

 LOCATE y%, x%
 PRINT CHR$(pal%)
 GOTO 49000

47120 REM 2-palkki

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)
 GOTO 49000

47130 REM 3-palkki

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)
 GOTO 49000

47140 REM 4-palkki

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)
 GOTO 49000

47150 REM 5-palkki

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)
 GOTO 49000

47160 REM 6-palkki

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)
 GOTO 49000

47170 REM 7-palkki

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)
 GOTO 49000

47180 REM 8-palkki

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)
 GOTO 49000

47190 REM 9-palkki

 LOCATE y%, x% - 8
 PRINT CHR$(pal%)

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)

 LOCATE y%, x% + 8
 PRINT CHR$(pal%)
 GOTO 49000

47195 REM 10-palkki

 LOCATE y%, x% - 9
 PRINT CHR$(pal%)

 LOCATE y%, x% - 8
 PRINT CHR$(pal%)

 LOCATE y%, x% - 7
 PRINT CHR$(pal%)

 LOCATE y%, x% - 6
 PRINT CHR$(pal%)

 LOCATE y%, x% - 5
 PRINT CHR$(pal%)

 LOCATE y%, x% - 4
 PRINT CHR$(pal%)

 LOCATE y%, x% - 3
 PRINT CHR$(pal%)

 LOCATE y%, x% - 2
 PRINT CHR$(pal%)

 LOCATE y%, x% - 1
 PRINT CHR$(pal%)

 LOCATE y%, x%
 PRINT CHR$(pal%)

 LOCATE y%, x% + 1
 PRINT CHR$(pal%)

 LOCATE y%, x% + 2
 PRINT CHR$(pal%)

 LOCATE y%, x% + 3
 PRINT CHR$(pal%)

 LOCATE y%, x% + 4
 PRINT CHR$(pal%)

 LOCATE y%, x% + 5
 PRINT CHR$(pal%)

 LOCATE y%, x% + 6
 PRINT CHR$(pal%)

 LOCATE y%, x% + 7
 PRINT CHR$(pal%)

 LOCATE y%, x% + 8
 PRINT CHR$(pal%)

 LOCATE y%, x% + 9
 PRINT CHR$(pal%)
 GOTO 49000

48000 coun% = coun% + 10

 IF lpal% = 8 THEN
 GOTO 48200
 END IF

 IF lpal% = 176 THEN
 GOTO 48300
 END IF

 IF lpal% = 177 THEN
 GOTO 48400
 END IF

 IF lpal% = 178 THEN
 GOTO 48500
 END IF

 IF lpal% = 205 THEN
 GOTO 48600
 END IF

 IF lpal% = 219 THEN
 GOTO 48700
 END IF

 IF lpal% = 220 THEN
 GOTO 48800
 END IF

 IF lpal% = 242 THEN
 GOTO 48900
 END IF

 IF lpal% = 254 THEN
 GOTO 48950
 END IF

48200 REM 2-palkki

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)
 GOTO 49000

48300 REM 3-palkki

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)
 GOTO 49000

48400 REM 4-palkki

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)
 GOTO 49000

48500 REM 5-palkki

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)
 GOTO 49000

48600 REM 6-palkki

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)
 GOTO 49000

48700 REM 7-palkki

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)
 GOTO 49000

48800 REM 8-palkki

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)
 GOTO 49000

48900 REM 9-palkki

 LOCATE ly%, lx% - 8
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 8
 PRINT CHR$(lpal%)
 GOTO 49000

48950 REM 10-palkki

 LOCATE ly%, lx% - 9
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 8
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% - 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx%
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 1
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 2
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 3
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 4
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 5
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 6
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 7
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 8
 PRINT CHR$(lpal%)

 LOCATE ly%, lx% + 9
 PRINT CHR$(lpal%)
 GOTO 49000

49000 coun% = coun% + 1
 GOTO 40250

70000 SLEEP 1
 CLS
 LOCATE 3, 1

 PRINT "            ============================="
 PRINT "            =                           ="
 PRINT "            =         GAME OVER         ="
 PRINT "            =                           ="
 PRINT "            ============================="
 GOTO 70010

71000 SLEEP 1
 CLS

 LOCATE 3, 1
 PRINT "            ============================="
 PRINT "            =                           ="
 PRINT "            =     CONGRATULATIONS !     ="
 PRINT "            =                           ="
 PRINT "            ============================="

 LOCATE 10, 5
 PRINT "  You solved the game!"

 LOCATE 13, 5
 PRINT "  Score: "; 10000 - (coun% * cou%)

70010 LOCATE 15, 5
 PRINT "                                        "
 LOCATE 15, 5
 INPUT "  Want to play again (y/n)  "; a$

 IF a$ = "y" THEN
 GOTO 70020
 END IF

 IF a$ = "n" THEN
 GOTO 70030

 ELSE
 LOCATE 17, 5
 PRINT "   Out of range."
 SLEEP 1
 LOCATE 17, 5
 PRINT "                  "
 GOTO 70010
 END IF

70020 RUN

70030 END