1000 REM##############################
1010 REM# ROWLY                 MAIN #
1020 REM#----------------------------#
1030 REM# COPYRIGHT 1987  BY MR-SOFT #
1040 REM#----------------------------#
1050 REM#        RONALD MAYER        #
1060 REM#         THENING 24         #
1070 REM#   A-4062 THENING/AUSTRIA   #
1080 REM##############################
1090 IFXX=0 AND PEEK(186)=8 THEN XX=1:LOAD"ROWLY CODES",8,1
1091 IFXX=0 AND PEEK(186)=1 THEN XX=1:LOAD"ROWLY CODES",1,1
1100 POKE56,110:CLR:V=53248:M=29952:SP=133
1110 POKEV+17,0:POKE56576,2:POKEV+24,15:POKE648,64:POKE808,225
1120 PRINT"[147]":POKEV+21,0:POKEV+28,31:POKEV+27,0:POKEV+23,0:POKEV+29,0
1130 POKEV+33,0:POKEV+32,0:POKEV+22,216:POKEV+34,2:POKEV+35,4
1140 IF PEEK(186)=1 THEN 1170: REM KASSETTE OHNE HIGHSCORE
1141 OPEN1,8,15:OPEN2,8,2,"ROWLY SCORES,S,R":INPUT#1,A,A$,X,X:IFA<>0THEN1160
1150 FORI=1TO5:INPUT#2,H$(I):NEXT
1160 CLOSE2:CLOSE1
1170 GOSUB1180:GOTO1490
1180 REM##############################
1190 REM# TITLE                      #
1200 REM##############################
1210 PRINT"[147][149][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][200][200][200][200][200][203][204]"
1220 PRINT"[214][156]MR[149][216][156]SOFT[149][216][156]PRESENTS[149][215]       [214][215]"
1230 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][200][200][200][200][200][200][205][206]"
1240 FORI=1TO3:PRINT"                         [201][202]":NEXT
1250 PRINT" [203][204][198][198][198][198][198][198][198][198][203][204][200][200][200][200][200][200][200][200][200][200][200][200][203][204]"
1260 PRINT"   [214][215][199][199][199][199][199][199][199][199][214][215]            [214][215]"
1270 PRINT" [205][206][200][200][200][200][200][200][200][200][205][206][200][200][200][200][200][200][200][200][200][200][200][200][205][206]"
1280 PRINT" [201][202]        [201][202]            [201][202]"
1290 PRINT" [201][202]      [203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]
1300 [153]" RIGHT$MID$      (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
1310 PRINT" [201][202]      [214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]
1320 [129]I[178]1[164]4:[153]" RIGHT$MID$      (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[130]
1330 [153]" RIGHT$MID$      (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
1340 PRINT" [201][202]"
1350 PRINT" [203][204][200][200][200][200][200][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
1360 PRINT" [214][215]       [214][156]@[149][216][156]1987[149][216][156]BY[149][216][156]RONALD[149][216][156]MAYER[149][215]"
1370 PRINT" [205][206][200][200][200][200][200][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
1380 POKEV+21,31:FORI=0TO4:POKE17400+I,251+I:NEXT:POKEV+37,15:POKEV+38,11
1390 POKEV+39,5:POKEV+40,14:POKEV+41,10:POKEV+42,12:POKEV+43,8
1400 POKEV,147:POKEV+2,171:POKEV+4,195:POKEV+6,219:POKEV+8,235
1410 FORI=1TO9STEP2:POKEV+I,0:NEXT:POKEV+23,31
1420 POKEV+17,27:POKE198,0
1430 FORI=1TO9STEP2:FORJ=10TO150STEP1.5:POKEV+I,J:NEXTJ:FORJ=150TO140STEP-1
1440 POKEV+I,J:NEXT:FORJ=140TO150STEP.5:POKEV+I,J:NEXTJ,I
1450 FORI=216TO223:POKE53270,I:FORJ=1TO9STEP4:POKEV+J,I-72:NEXTJ,I
1460 FORI=223TO216STEP-1:POKE53270,I:FORJ=1TO9STEP4:POKEV+J,I-72:NEXTJ,I
1470 IFPEEK(198)=0ANDPEEK(56320)=127THEN1450
1480 POKEV+21,0:RETURN
1490 REM##############################
1500 REM# MENU                       #
1510 REM##############################
1520 POKEV+17,0
1530 PRINT"[147][151]";
1540 PRINT"[203][212][212][212][212][212][212][212][212][212][212][212][212][204]"
1550 PRINT"[214][156]GAME[151][216][156]OPTIONS[151][215]"
1560 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][206]"
1570 PRINT"  [201][202]      [201][202]"
1580 PRINT"[203][212][204]  [203][204]      [203][204][200][200][200][200][200][200][200][203][212][212][212][212][212][212][204]"
1590 PRINT"[214][156]S[151][215]  [214][215]      [214][215]       [214][156]SCORES[151][215]"
1600 PRINT"[205][213][206]  [205][206]      [205][206][200][200][200][200][200][200][200][205][213][213][213][213][213][213][206]"
1610 PRINT"[203][212][204]    [201][202]                  [201][202]"
1620 PRINT"[214][156][160][151][215]    [201][202]                  [201][202]"
1630 PRINT"[214][156][160][151][215][200][203][212][212][212][212][212][204]              [203][212][212][212][204]"
1640 PRINT"[214][156][160][151][215] [214][156]SPEED[151][215][200][200][200][200][200][207]  [207][200][200][200][200][200][214][156]SEE[151][215]"
1650 PRINT"[214][156][160][151][215][200][205][213][213][213][213][213][206]     [217]  [217]     [205][213][213][213][206]"
1660 PRINT"[214][156][160][151][215]    [201][202]       [217]  [217]       [201][202]"
1670 PRINT"[205][213][206]    [201][202]       [217]  [217]       [201][202]"
1680 PRINT"[203][212][204]  [203][212][212][212][212][204]     [217]  [217]     [203][212][212][212][212][204]"
1690 PRINT"[214][156]F[151][215]  [214][156]PLAY[151][215][200][200][207]  [217]  [217]  [207][200][200][214][156]SAVE[151][215]"
1700 PRINT"[205][213][206]  [205][213][213][213][213][206]  [217]  [217]  [217]  [217]  [205][213][213][213][213][206]"
1710 PRINT" [217]           [217]  [217]  [217]  [217]"
1720 PRINT"[203][212][204]         [203][212][204][203][212][204][203][212][204][203][212][204]"
1730 PRINT"[214][255][215]         [214][255][215][214][255][215][214][255][215][214][255][215]"
1740 PRINT"[205][213][206]         [205][213][206][205][213][206][205][213][206][205][213][206]"
1750 POKE17400,237:POKEV+28,1:POKEV+37,15:POKEV+38,11:POKEV+39,12:POKEV,55
1760 POKEV+1,SP:POKEV+23,0:POKEV+21,1
1770 POKEV+17,27
1780 X=0
1790 POKE17201+X,95:J=PEEK(56320)
1800 FORI=1TO50:NEXT
1810 IFJ=119ANDX<9THENPOKE17201+X,94:X=X+3:GOTO1790
1820 IFJ=123ANDX>0THENPOKE17201+X,94:X=X-3:GOTO1790
1830 IFJ<>111THEN1790
1840 IFX=3THENGOSUB1890:WAIT56320,16,0:GOTO1790
1850 POKEV+21,0
1860 IFX=9THENGOSUB1980:GOTO1790
1870 IFX=0THEN2260
1880 IFX=6THEN2060
1890 REM##############################
1900 REM# GAME-SPEED                 #
1910 REM##############################
1920 POKE17204,94:POKE17189,95:WAIT56320,16,0
1930 X=PEEK(V+1)
1940 J=PEEK(56320):IFJ=126ANDX>116THENPOKEV+1,PEEK(V+1)-1:GOTO1930
1950 IFJ=125ANDX<150THENPOKEV+1,PEEK(V+1)+1:GOTO1930
1960 IFJ=<111THENPOKE17204,95:POKE17189,94:SP=PEEK(V+1):X=3:RETURN
1970 GOTO1930
1980 REM##############################
1990 REM# SAVE SCORES                #
2000 REM##############################
2010 IF PEEK (186)=1 THEN 2050 :REM KASSETTE KEIN HIGHSCORE
2011 POKEV+21,0:POKEV+17,0
2020 OPEN1,8,15,"S:ROWLY SCORES":CLOSE1
2030 OPEN2,8,2,"ROWLY SCORES,S,W"
2040 FORI=1TO5:PRINT#2,H$(I):NEXT
2050 CLOSE2:POKEV+21,1:POKEV+17,27:RETURN
2060 REM##############################
2070 REM# HERO LIST                  #
2080 REM##############################
2090 POKEV+17,0:PRINT"[147][155]";:POKEV+35,5
2100 PRINT"  [207][200][200][200][200][200][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][200][200][200][200][200][207]"
2110 PRINT"  [217]       [214][203][212][212][212][212][212][212][212][212][212][212][212][212][204][215]       [217]"
2120 PRINT"  [217] [207][200][200][200][200][200][214][214][216][216]GREATEST[155][216][216][215][215][200][200][200][200][200][207] [217]"
2130 PRINT"  [217] [217]     [214][214][216][216][216][216][216][216][216][216][216][216][216][216][215][215]     [217] [217]"
2140 PRINT"  [217] [217] [207][200][200][200][214][214][216][216][216]SCORES[155][216][216][216][215][215][200][200][200][207] [217] [217]"
2150 PRINT"  [217] [217] [217]   [214][205][213][213][213][213][213][213][213][213][213][213][213][213][206][215]   [217] [217] [217]"
2160 PRINT"  [217] [217] [217] [207][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][207] [217] [217] [217]"
2170 PRINT"  [217] [217] [217] [217]     [201][202]    [201][202]     [217] [217] [217] [217]"
2180 FORI=1TO5
2190 PRINT"[203][212][204][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][203][212][212][212][212][212][204]"
2200 PRINT"[214]"MID$(STR$(I),2)"[155][215] [214]"RIGHT$(H$(I),18)"[155][215] [214]"LEFT$(H$(I),5);
2210 PRINT"[155][215]"
2220 PRINT"[205][213][206][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][205][213][213][213][213][213][206]"
2230 NEXT
2240 POKEV+17,27
2250 WAIT56320,16,0:WAIT56320,16,16:POKEV+35,4:GOTO1490
2260 REM##############################
2270 REM# GAME                       #
2280 REM##############################
2290 RO=1:SS=315-SP*2:LI=3:POKEV+17,0:GOSUB2430
2300 FORI=900TO910:POKEI,0:NEXT
2310 RU=RO:POKE17312,48+LI-1
2320 IFRU<=5THEN2340
2330 IFRU>5THENRU=RU-5:SS=SS-5:GOTO2330
2340 IFSS<20THENSS=20
2350 ONRUGOSUB3520,3680,3820,3990,4040
2360 POKEV+17,27
2370 POKE904,SS          :REM SPEED
2380 POKE906,PO          :REM POINTS
2390 FORI=1TORO:SYSM+9:NEXT
2400 SYSM:SYSM+3
2410 GOSUB2600
2420 ONPEEK(902)GOTO2910,2670,2760
2430 REM##############################
2440 REM# SCREEN                     #
2450 REM##############################
2460 PRINT"[147][151]";
2470 PRINT"[203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][204]";
2480 PRINT"[214]@ADEDHJKJN[146][216]0:0:0:0:0:[146][215][198][198][214]JKDHDHQR[146][216]0:0:[146][215]";
2490 PRINT"[214]BCFGFILMOP[146][216][196][206][196][206][196][206][196][206][196][206][146][215][199][199][214]LMFIFILL[146][216][196][206][196][206][146][215]";
2500 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][206][149]";
2510 FORI=1TO17
2520 PRINT"[201][202]                                  [201][202]"
2530 NEXT
2540 PRINT"[201][202][149][193][193][193][193][195]                             [201][202]"
2550 PRINT"[151][203][212][212][212][212][212][212][212][212][204][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]";
2560 PRINT"[214][156]LIVES[151][216][156]00[151][215]  [214][156]TIME[151][216][155][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][151][215]";
2570 PRINT"[205][213][213][213][213][213][213][213][213][206][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][155]";
2580 POKE17383,78:POKE56295,11
2590 RETURN
2600 REM##############################
2610 REM# DESTROY ROWLY              #
2620 REM##############################
2630 X=PEEK(900)-1
2640 FORI=0TOXSTEP2
2650 POKE(PEEK(52000+I)*256+PEEK(52001+I))+41,32:IFPEEK(902)=3THENSYSM+6
2660 FORJ=1TO4:NEXTJ,I:RETURN
2670 REM##############################
2680 REM# KAMIKAZE                   #
2690 REM##############################
2700 PRINT"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
2710 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2720 PRINT"[214][216][216][216][156]NO!TIME!LEFT[151][216][216][216][215]"
2730 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2740 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
2750 GOTO3000
2760 REM##############################
2770 REM# NEXT LEVEL                 #
2780 REM##############################
2790 RO=RO+1
2800 PRINT"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
2810 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2820 PRINT"[214][216][156]LEVEL!!COMPLETED[151][216][215]"
2830 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2840 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
2850 SYSM+12:IFPEEK(902)=3THENSYSM+6:FORI=1TO20:NEXT:GOTO2850
2860 WAIT56320,16,0:WAIT56320,16,16:POKEV+17,0
2870 FORI=0TO9:POKE53000+I,PEEK(16436+I):POKE53040+I,PEEK(16476+I):NEXT
2880 GOSUB2430
2890 FORI=0TO9:POKE16436+I,PEEK(53000+I):POKE16476+I,PEEK(53040+I):NEXT
2900 GOTO2300
2910 REM##############################
2920 REM# OUT OF TIME                #
2930 REM##############################
2940 PRINT"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
2950 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2960 PRINT"[214][216][216][156]KAMIKAZE!!WORM[151][216][216][215]"
2970 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
2980 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
2990 GOTO3000
3000 REM##############################
3010 REM# LIFE LOST/GAME OVER        #
3020 REM##############################
3030 WAIT56320,16,0:WAIT56320,16,16:POKEV+17,0
3040 LI=LI-1:IFLI=0THEN3090
3050 FORI=0TO9:POKE53000+I,PEEK(16436+I):POKE53040+I,PEEK(16476+I):NEXT
3060 GOSUB2430
3070 FORI=0TO9:POKE16436+I,PEEK(53000+I):POKE16476+I,PEEK(53040+I):NEXT
3080 GOTO2300
3090 PRINT"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
3100 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
3110 PRINT"[214][216][216][216][216][156]GAME!!OVER[151][216][216][216][216][215]"
3120 PRINT"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
3130 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]":POKEV+17,27
3140 SC$="":FORI=0TO8STEP2:SC$=SC$+CHR$(PEEK(16436+I)-128):NEXT
3150 WAIT56320,16,16:WAIT56320,16,0
3160 IFSC$>LEFT$(H$(5),5)THEN3180
3170 GOTO1490
3180 REM##############################
3190 REM# NAME INPUT                 #
3200 REM##############################
3210 POKEV+17,0:PRINT"[147][151]";
3220 PRINT"[203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]
3230 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
3240 PRINT"[214][216][216][156]CONGRATULATIONS[151][216][216][215]
3250 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
3260 PRINT"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]
3270 [129]I[178]1[164]3:[153]"RIGHT$MID$   RIGHT$MID$":[130]
3280 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3290 [153]"(null)(null)CLRTHIS!IS!A!GREAT!SCOREPOKE(null)(null)"
3300 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3310 [129]I[178]1[164]3:[153]"RIGHT$MID$   RIGHT$MID$":[130]
3320 [153]"(null)(null)(null)(null)(null)(null)(null)LEFT$LEFT$LEFT$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3330 [153]"(null)CLR"SC$"POKE(null)   (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3340 [153]"(null)(null)(null)(null)(null)(null)(null)LEFT$LEFT$LEFT$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3350 [151]V[170]17,27
3360 H$[178]""
3370 [151]198,0:[146]198,1:[161]A$:[139]A$[178][199](13)[175][195](H$)[177]0[167]3450
3380 [139]A$[178][199](20)[175][195](H$)[177]0[167]H$[178][200](H$,[195](H$)[171]1):[137]3420
3390 [139]A$[178]" "[167]A$[178]"!":[137]3410
3400 [139]A$[179]"A"[176]A$[177]"Z"[167]3370
3410 H$[178]H$[170]A$
3420 [153]"CLR";[200](H$[170]"!!!!!!!!!!!!!!!!!!",18)
3430 [139][195](H$)[178]18[167]3450
3440 [137]3370
3450 H$[178]SC$[170][200](H$[170]"!!!!!!!!!!!!!!!!!!",18)
3460 [129]J[178]1[164]5:[139]H$[179]H$(J)[167][130]
3470 [129]I[178]6[164]J[170]1[169][171]1:H$(I)[178]H$(I[171]1):[130]
3480 H$(J)[178]H$:[137]2060
3490 [143]##############################
3500 [143]# ROOMS                      #
3510 [143]##############################
3520 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3530 [153]"(null)(null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null)(null) (null)(null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null)(null) (null)(null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null)(null)"
3540 [153]"TAN(null)(null) TANTANTANTAN (null)(null) (null)(null) TANTANTANTAN (null)(null) (null)(null) TANTANTANTAN (null)(null)TAN"
3550 [153]"TANRIGHT$MID$ (null)(null)(null)(null) RIGHT$MID$ RIGHT$MID$ (null)(null)(null)(null) RIGHT$MID$ RIGHT$MID$ (null)(null)(null)(null) RIGHT$MID$TAN"
3560 [153]"TAN(null)(null) (null)(null)(null)(null) (null)(null) (null)(null) (null)(null)(null)(null) (null)(null) (null)(null) (null)(null)(null)(null) (null)(null)TAN"
3570 [153]"TAN(null)(null)TAN(null)(null)(null)(null)TAN(null)(null)TAN(null)(null) (null)(null)(null)(null) (null)(null)TAN(null)(null)TAN(null)(null)(null)(null)TAN(null)(null)TAN"
3580 [153]"   TANTANTANTANTANTANTANTANTAN   (null)(null)(null)(null)   TANTANTANTANTANTANTANTANTAN
3590 PRINT" [208][209][198][198][198][198][198][198][198][198][198][198][198][198][214][215][214][215][198][198][198][198][198][198][198][198][198][198][198][198][208][209]
3600 [153]" (null)(null)CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$(null)(null)(null)(null)CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$CHR$(null)(null)
3610 PRINT"    [192][192][192][192][192][192][192]    [214][215][214][215]    [192][192][192][192][192][192][192]
3620 [153]"LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null)(null) (null)(null)(null)(null) (null)(null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$";
3630 [153]"  TANTANTANTANTANTANTANTAN  (null)(null) (null)(null)(null)(null) (null)(null)  TANTANTANTANTANTANTANTAN"
3640 [153]" (null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null) (null)(null) (null)(null)(null)(null) (null)(null) (null)LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$LEFT$(null)
3650 PRINT" [192] [192] [192] [192] [192] [192] [192] [192]  [192] [192] [192] [192] [192] [192] [192] [192]"
3660 PRINT"[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
3670 PO=90:RETURN
3680 PRINT"[208][209][192][208][209] [208][209][192][208][209][198][208][209][192][208][209] [208][209][198][208][209] [208][209][192][208][209] [208][209]"
3690 PRINT"[210][211] [210][211][192][210][211] [210][211][199][210][211] [210][211][192][210][211][199][210][211][192][210][211] [210][211][192][210][211]"
3700 PRINT"[203][204][200][200][200][200][200][203][204][203][204][203][204][200][200][200][200][200][200][203][204][203][204][203][204][203][204][200][200][200][200][200][200][200]";
3710 PRINT"[205][206][200][200][200][200][200][205][206][205][206][205][206][200][200][200][200][200][200][205][206][205][206][205][206][205][206][200][200][200][200][200][200][200]";
3720 PRINT"[201][202][192][192][192][192][192][201][202][201][202][201][202][192][192][192][192][192][192][201][202][201][202][201][202][201][202][192][192][192][192][192][192]"
3730 FORI=1TO4:PRINT"[201][202][192][207][207][207][192][201][202][201][202][201][202][192][207][207][207][207][192][201][202][201][202][201][202][201][202][192][207][207][207][207][192]":NEXT
3740 PRINT"[203][204] [203][212][204] [203][212][212][212][212][204] [203][212][212][204] [203][212][212][204][203][212][212][204] [203][212][212][204]"
3750 PRINT"[205][206][192][205][213][206][192][205][213][213][213][213][206] [205][213][213][206] [205][213][213][206][205][213][213][206][192][205][213][213][206][192]"
3760 PRINT"       [192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
3770 PRINT"[207][207] [207][200][207] [207][200][207][207][200][207][192][207][200][200][207][192][207][200][200][207][207][200][200][207] [207][200][200][207]"
3780 PRINT"       [192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
3790 PRINT"[207][207] [207][200][207] [207][200][207][207][200][207][192][207][200][200][207][192][207][200][200][207][207][200][200][207] [207][200][200][207]"
3800 PRINT"[192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
3810 PO=99:RETURN
3820 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][202][192][192][192][192][192][192][192][192][192][192][192][192][192]"
3830 PRINT"[203][212][212][212][212][212][212][204][192][203][212][212][212][212][212][212][204] [201][202] [203][212][212][212][204][192][203][212][212][212][204]"
3840 PRINT"[205][213][213][213][213][213][213][206][192][205][213][213][213][213][213][213][206] [201][202] [205][213][213][213][206][192][205][213][213][213][206]"
3850 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][202][192][192][192][192][192][192][192][192][192][192][192][192][192]"
3860 PRINT"[203][212][212][212][212][212][212][204][192][203][212][212][212][212][212][212][204] [201][202] [203][212][212][212][204][192][203][212][212][212][204]"
3870 PRINT"[205][213][213][213][213][213][213][206][192][205][213][213][213][213][213][213][206] [201][202] [205][213][213][213][206][192][205][213][213][213][206]"
3880 PRINT"                  [201][202]
3890 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) RIGHT$MID$ (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
3900 [153]"                  RIGHT$MID$
3910 PRINT" [207][207][207][200][200][200][200][200][200][200][200][207][192][207][200][200][200][200][203][212][212][204][200][200][200][200][200][207][192][207][207][192][207][207]"
3920 PRINT" [207][207][207][200][200][200][200][200][200][200][200][207][192][207][200][200][200][200][205][213][213][206][200][200][200][200][200][207][192][207][207][192][207][207]"
3930 PRINT" [203][204][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][203][204] "
3940 PRINT" [205][206][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][205][206] "
3950 PRINT
3960 PRINT" [203][204][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][203][204] "
3970 PRINT" [205][206][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][205][206] "
3980 PO=78:RETURN
3990 FORI=1TO7:PRINT" [192]   [192] [192]   [192] [192]      [192] [192]   [192] [192]   [192]"
4000 PRINT"[192][207][207] [207][207][192][207][207] [207][207][192][207][200][200][200][200][200][200][207][192][207][207] [207][207][192][207][207] [207][207][192]":NEXT
4010 PRINT" [207][207] [207][200][200][200][207] [207][207] [207][200][200][200][200][200][200][207] [207][207] [207][200][200][200][207] [207][207] "
4020 PRINT" [207][207] [207][200][200][200][207] [207][207] [207][200][200][200][200][200][200][207] [207][207] [207][200][200][200][207] [207][207] "
4030 PO=112:RETURN
4040 PRINT"         [192][192][192][192][192][192]     [192][192][192][192][192][192]"
4050 PRINT"[203][204][198][198][198][198][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][198][198][198][203][204]"
4060 PRINT"[205][206][199][199][199][199][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][199][199][199][205][206]"
4070 PRINT"[207]       [192][192][192][192][192][192]     [192][192][192][192][192][192]      [207]"
4080 PRINT"[207] [207][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][207] [207]"
4090 PRINT"[207] [207]     [192][192][192][192][192][192]     [192][192][192][192][192][192]    [207] [207]"
4100 PRINT"[207] [207] [207][200][200][200][200][200][200][200][200][200][200][207] [207][200][200][200][200][200][200][200][200][200][207] [207] [207]"
4110 PRINT"[207] [192] [207]   [192][192][192][192][192][192]     [192][192][192][192][192][192]  [207] [207] [207]"
4120 PRINT"[207] [207] [207] [203][204][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][203][204] [207] [207] [207]"
4130 PRINT"[207] [207] [207] [205][206][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][205][206] [207] [207] [207]"
4140 PRINT"[207] [207] [207]   [192][192][192][192][192][192]     [192][192][192][192][192][192]  [207] [192] [207]"
4150 PRINT"[207] [207] [207][200][200][200][200][200][200][200][200][200][200][207] [207][200][200][200][200][200][200][200][200][200][207] [207] [207]"
4160 PRINT"[207] [207]     [192][192][192][192][192][192]     [192][192][192][192][192][192]    [207] [207]"
4170 PRINT"[207] [207][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][207] [207]"
4180 PRINT"[207]       [192][192][192][192][192][192]     [192][192][192][192][192][192]      [207]"
4190 PRINT"[203][204][198][198][198][198][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][198][198][198][203][204]"
4200 PRINT"[205][206][199][199][199][199][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][199][199][199][205][206]"
4210 PRINT"[192][192][192][192][192][192]     [192][192][192][192][192][192]"
4220 PO=98:RETURN