home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dimension 64 14
/
Dimension_64_Nr.14_19xx_-_de_Side_B.d64
/
rowly
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
327 lines
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