home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_027_19xx_-_de_Side_B.d64
/
labyrinth
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
11KB
|
362 lines
1 poke50257,16
10 poke53280,14:poke53281,14:poke56,128:clr
20 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
30 print"[221][151][172][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187][161][172][162][146][190][161][172][187][146][187][221]"
40 print"[221][152][188][188][146][162] [161][146][161][161][146][161][161][188][190][146][190][161][188][146][187] [161][188][190][146][190][221]"
50 print"[221][155][172][187][161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][172][188][146] [221]"
60 print"[221] [162][162][146] [162][162][146] [188][190] [188][162][162][146][190][188][190][188][190][221]"
70 print"[221] [221]"
80 print"[221][155][161][146][161] [190][188][146] [161][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187] [187][172][146] [161][188][161][146][161][188][187][172][146][190][161][146][161][161][146][161][221]"
90 print"[221][152][161][146][161] [161][188][190][146][161][161][188][190][146][190][188][188][190][146][190][161][188][190][146][190] [161][146][161] [161] [146][161] [161][146][161] [161][188][190][146][161][221]"
100 print"[221][151][161][146][161] [161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][146][161][188][146] [161][146][161] [161][146][161][187][146][161] [161][146][161] [161][146][161][161][146][161][221]"
110 print"[221][144][188][162][162][162][146][188][190][188][190][188][162][162][146] [188][190] [188][190][188][190] [162][162][146] [188][190][188][190] [188][190] [188][190][188][190][221]"
120 print"[221] [221]"
130 print"[221] von * * [200][203]-[211]oftware * * 1985 [221]"
140 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
150 print"[158][172][162][187]"
160 print"[161][211][146][161]pielanleitung"
170 print"[188][162][146][190]"
180 print"[153][172][162][187]"
190 print"[161][197][146][161]inzelspiel"
200 print"[188][162][146][190]"
210 print"[159][172][162][187]"
220 print"[161][196][146][161]oppelspiel"
230 print"[188][162][146][190]"
240 gett$
250 ift$="s"then290
260 ift$="e"then440
270 ift$="d"then780
280 goto240
290 poke53280,7:poke53281,7
300 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
310 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
320 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
330 print"[129] [218]iel des [211]pieles ist es, in moeglichst"
340 print"kurzer [218]eit den [215]eg durch das [204]abyrinth"
350 print"zu finden. [202]e schneller das gelingt,"
360 print"desto hoeher ist die [208]unktzahl."
370 print"[150] [199]esteuert wird entweder ueber die"
380 print"[212]astatur oder ueber [202]oystick."
390 print"[154] [196]er [211]pieler kann durch [196]ruecken der"
400 print"'[210][197][211][212][207][210][197]'-[212]aste aufgeben."
410 print"mit '[211][208][193][195][197]' zurueck zum [205]enue";
420 gett$:ift$<>" "then420
430 goto10
440 poke53280,13:poke53281,13
450 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
460 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
470 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
480 print"[197] i n z e l s p i e l"
490 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
500 poke828,0
510 print"[197]ingabe erfolgt ueber:"
520 print"[150][172][162][187]"
530 print"[161]1[146][161]...[212]astatur"
540 print"[188][162][146][190]"
550 print"[129][172][162][187]"
560 print"[161]2[146][161]...[202]oystick [208]ort 1"
570 print"[188][162][146][190]"
580 gett$
590 ift$="2"thenpoke829,0:goto1410
600 ift$<>"1"then580
610 poke829,1
620 poke53280,7:poke53281,7
630 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
640 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
650 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
660 fori=831to846:pokei,255:nexti
670 print"[129][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
680 gosub760:poke831,t:gett$:printt$
690 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
700 gosub760:poke833,t:gett$:printt$
710 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
720 gosub760:poke835,t:gett$:printt$
730 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
740 gosub760:poke837,t:gett$:printt$
750 goto1410
760 poke198,0:wait198,1:t=peek(197):fori=831to846:ift=peek(i)then760
770 nexti:return
780 poke53280,3:poke53281,3
790 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
800 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
810 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
820 print"[196] o p p e l s p i e l"
830 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
840 poke828,255
850 print"[156][197]ingabe erfolgt ueber:"
860 print"[154][221][211]pieler 1 [221][211]pieler 2"
870 print"[192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
880 print"[161]1[146][161][154][221][212]astatur [154][221][212]astatur"
890 print"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
900 print"[152][161]2[146][161][154][221][152][212]astatur [154][221][152][202]oystick [208]ort 2"
910 print"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
920 print"[151][161]3[146][161][154][221][151][202]oystick [208]ort 1[154][221][151][202]oystick [208]ort 2"
930 gett$
940 ift$="3"thenpoke829,0:poke830,0:goto1410
950 ift$="2"thenpoke829,1:poke830,0:goto1270
960 ift$<>"1"then930
970 poke829,1:poke830,1
980 poke53280,1:poke53281,1
990 print"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1000 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1010 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1020 print"[155][211]pieler 1"
1030 print"[184][184][184][184][184][184][184][184][184]"
1040 fori=831to846:pokei,255:nexti
1050 print"[154][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
1060 gosub760:poke831,t:gett$:printt$
1070 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
1080 gosub760:poke833,t:gett$:printt$
1090 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
1100 gosub760:poke835,t:gett$:printt$
1110 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
1120 gosub760:poke837,t:gett$:printt$
1130 print"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1140 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1150 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1160 print"[155][211]pieler 2"
1170 print"[184][184][184][184][184][184][184][184][184]"
1180 print"[154][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
1190 gosub760:poke839,t:gett$:printt$
1200 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
1210 gosub760:poke841,t:gett$:printt$
1220 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
1230 gosub760:poke843,t:gett$:printt$
1240 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
1250 gosub760:poke845,t:gett$:printt$
1260 goto1410
1270 poke53280,12:poke53281,12
1280 print"[151][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1290 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1300 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1310 fori=831to846:pokei,255:nexti
1320 print"[155][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
1330 gosub760:poke831,t:gett$:printt$
1340 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
1350 gosub760:poke833,t:gett$:printt$
1360 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
1370 gosub760:poke835,t:gett$:printt$
1380 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
1390 gosub760:poke837,t:gett$:printt$
1400 goto1410
1410 diman%(4,5)
1420 y%(1)=-40:y%(2)=-1:y%(3)=1:y%(4)=40
1430 an%(1,1)=107
1440 an%(1,2)=109
1450 an%(1,3)=113
1460 an%(1,4)=115
1470 an%(1,5)=125
1480 an%(2,1)=110
1490 an%(2,2)=113
1500 an%(2,3)=114
1510 an%(2,4)=115
1520 an%(2,5)=125
1530 an%(3,1)=107
1540 an%(3,2)=109
1550 an%(3,3)=112
1560 an%(3,4)=113
1570 an%(3,5)=114
1580 an%(4,1)=107
1590 an%(4,2)=110
1600 an%(4,3)=112
1610 an%(4,4)=114
1620 an%(4,5)=115
1630 dimze$(35):dimz%(14)
1640 z%(1)=107:ze$(17)="1334"
1650 z%(2)=109:ze$(19)="1331"
1660 z%(3)=110:ze$(20)="4224"
1670 z%(4)=112:ze$(22)="3434"
1680 z%(5)=113:ze$(23)="1232"
1690 z%(6)=114:ze$(24)="3234"
1700 z%(7)=115:ze$(25)="1244"
1710 z%(8)=125:ze$(35)="1221"
1720 z%(9)=91:ze$(1)="1234"
1730 dimr%(40)
1740 j=rnd(0)*40
1750 fori=jto40
1760 readr%(i)
1770 next
1780 fori=0toj-1
1790 readr%(i)
1800 next
1810 data2,3,4,2,3,3,4,2,3,4,2,3,4,2,4,3,2,3,2,3,4,3,2,3,4,1,2,3,4,2,4,3,2,3,4
1820 data2,4,1,2,3
1830 poke53280,14:poke53281,14
1840 print"[154][147] [193]ugenblick [204]abyrinth wird erstellt "
1850 fori=1104to1143
1860 pokei,160:pokei+840,160
1870 next
1880 fori=1104to1944step40
1890 pokei,160:pokei+39,160
1900 ifpeek(828)=0goto1920
1910 pokei+19,160:pokei+20,160
1920 next
1930 ifpeek(828)=0thenad%=1105+(rnd(0)*35):goto1950
1940 ad%=1105+(rnd(0)*15)
1950 pokead%,93:w%=1:gosub2360
1960 ad%=ad%+40:pokead%,91
1970 l1%=0:l2%=0::l3%=0:l4%=0
1980 ifl1%<39thenl1%=l1%+1:goto2000
1990 l1%=1
2000 p1%=peek(ad%)
2010 t%=val(mid$(ze$(p1%-90),r%(l1%),1))
2020 q%=ad%+y%(t%)
2030 p2%=peek(q%)
2040 ifp2%<>32goto2060
2050 goto2170
2060 ifp2%=160andq%<1945thenpokead%,91:q%=ad%+40:t%=4:goto2170
2070 ifp2%=160andq%>1944thenpokeq%,93:gosub2390:goto2190
2080 ifp2%>106andp2%<126andval(mid$(ze$(p2%-90),5-t%,1))=t%thenpokeq%,91:goto2180
2090 ifval(mid$(ze$(p2%-90),5-t%,1))=t%andx%<3thenx%=x%+1:goto2180
2100 ifx%>=3thenx%=0:q%=ad%+40:pokead%,91:t%=4:goto2170
2110 ifp2%=91thengoto2180
2120 ifp2%=160andq%>1944thenpokeq%,93:gosub2390:goto2190
2130 ifl2%<8thenl2%=l2%+1:goto1980
2140 l2%=0:fori=1943to1145step-1
2150 ifpeek(i)>106andpeek(i)<126thenpokei,91:ad%=i:t%=4:i=1145:next:goto2020
2160 next
2170 pokeq%,an%(5-t%,rnd(0)*5+1):poke1063,48+t%
2180 ad%=q%:goto1980
2190 fori=120to919
2200 ifpeek(1024+i)=32thenpoke1024+i,z%(rnd(0)*8+1)
2210 next
2220 fori=1to100
2230 l3%=rnd(0)*800+1104
2240 ifpeek(l3%)<>160andpeek(l3%)<>93thenpokel3%,91
2250 next
2260 ifpeek(828)=0then2340
2270 forx=0to19
2280 fory=0to23
2290 poke1084+x+y*40,peek(1064+x+y*40)
2300 poke55356+x+y*40,6
2310 poke55336+x+y*40,6
2320 next:next
2330 goto2420
2340 fori=55336to56295:pokei,6:next
2350 goto2420
2360 poke251,(ad%-40)and255
2370 poke252,(ad%-40)/256
2380 return
2390 poke253,(q%+40)and255
2400 poke254,(q%+40)/256
2410 return
2420 fori=0to14
2430 readz%(i)
2440 nexti
2450 fori=0to14
2460 readr%(i)
2470 nexti
2480 data110,112,125,109,93,93,93,91,64,64,64,107,115,113,114
2490 data12,6,9,3,5,5,5,15,10,10,10,7,13,11,14
2500 print" "
2510 fori=960to1022:reada:pokei,a:nexti
2520 data60,0,0,24,0,0,60,0,0,219,0,0,24,0,0,60,0,0,102,0,0,102,0,0,0,0,0,0,0
2530 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2540 fori=32768to33176:reada:pokei,a:nexti
2550 data162,16,189,61,3,72,41,7,168,185,109,129,157,62,3,104,74,74,74,41,7
2560 data168,185,109,129,73,255,157,61,3,202,202,208,224,138,160,6,153,78,3
2570 data136,208,250,120,169,96,141,20,3,169,128,141,21,3,169,140,141,24,3,169
2580 data129,141,25,3,173,14,221,9,128,141,14,221,169,0,141,11,221,141,10,221
2590 data141,9,221,141,8,221,88,169,0,141,83,3,141,84,3,96,160,0,162,0,173,61
2600 data3,208,19,173,1,220,74,176,1,136,74,176,1,200,74,176,1,202,74,176,1
2610 data232,173,61,3,240,60,173,63,3,141,0,220,173,64,3,45,1,220,208,1,136
2620 data173,65,3,141,0,220,173,66,3,45,1,220,208,1,200,173,67,3,141,0,220,173
2630 data68,3,45,1,220,208,1,202,173,69,3,141,0,220,173,70,3,45,1,220,208,1
2640 data232,140,79,3,142,80,3,173,60,3,240,107,169,255,141,0,220,141,1,220,160
2650 data0,162,0,173,62,3,208,19,173,0,220,74,176,1,136,74,176,1,200,74,176,1
2660 data202,74,176,1,232,173,62,3,240,60,173,71,3,141,0,220,173,72,3,45,1,220
2670 data208,1,136,173,73,3,141,0,220,173,74,3,45,1,220,208,1,200,173,75,3,141
2680 data0,220,173,76,3,45,1,220,208,1,202,173,77,3,141,0,220,173,78,3,45,1
2690 data220,208,1,232,140,81,3,142,82,3,169,89,248,56,237,9,221,8,216,72,41
2700 data15,9,48,141,21,4,104,74,74,74,74,9,48,141,20,4,169,58,141,19,4,169,2
2710 data40,237,10,221,216,72,41,15,9,48,141,18,4,104,16,5,169,255,141,84,3,76
2720 data126,234,1,2,4,8,16,32,64,128,120,169,49,141,20,3,169,234,141,21,3,169
2730 data71,141,24,3,169,254,141,25,3,88,96,72,173,13,221,48,5,169,255,141,83
2740 data3,104,64
2750 sys32768
2760 a1=peek(251)+peek(252)*256
2770 a2=a1+20
2780 e=peek(253)+peek(254)*256
2790 pokea1,93:pokee,93:ifpeek(828)<>0thenpokea2,93:pokee+20,93:e=e-40
2800 poke2040,15:poke2041,15:poke53287,13:poke53288,1
2810 poke53269,1-2*(peek(828)<>0)
2820 gosub3490:poke53265,27
2830 ifpeek(847)<>0thengosub2980
2840 ifpeek(848)<>0thengosub3020
2850 ifpeek(849)<>0thengosub3110
2860 ifpeek(850)<>0thengosub3150
2870 ifa1<>ethen2890
2880 fori=0to3:poke1064+i,peek(1042+i):nexti:a1=a1+40
2890 ifa2<>(e+20)then2910
2900 fori=0to3:poke1100+i,peek(1042+i):nexti:a2=a2+40
2910 if(a1=e+40)and(a2=e+60)then3450
2920 if(a1=e+40)and(peek(828)=0)then3450
2930 ifpeek(852)<>0then3450
2940 ifpeek(851)=0then2820
2950 fori=0to3:poke1064+i,peek(1042+i):nexti
2960 ifpeek(828)<>0thenfori=0to3:poke1100+i,peek(1042+i):nexti
2970 goto3450
2980 r=peek(847)
2990 ifr=1thenr%=2
3000 ifr=255thenr%=0
3010 goto3050
3020 r=peek(848)
3030 ifr=1thenr%=1
3040 ifr=255thenr%=3
3050 a%=a1:gosub3240
3060 ifr%=0thena1=a1-40
3070 ifr%=1thena1=a1+1
3080 ifr%=2thena1=a1+40
3090 ifr%=3thena1=a1-1
3100 return
3110 r=peek(849)
3120 ifr=1thenr%=2
3130 ifr=255thenr%=0
3140 goto3180
3150 r=peek(850)
3160 ifr=1thenr%=1
3170 ifr=255thenr%=3
3180 a%=a2:gosub3240
3190 ifr%=0thena2=a2-40
3200 ifr%=1thena2=a2+1
3210 ifr%=2thena2=a2+40
3220 ifr%=3thena2=a2-1
3230 return
3240 z=peek(a%)
3250 if(z=160)or(z=32)thenr%=4:return
3260 fori=0to14
3270 ifz%(i)=zthenz%=i
3280 nexti
3290 if(r%(z%)and(2^r%))=0thenr%=4:return
3300 ifr%=0thena%=a%-40
3310 ifr%=1thena%=a%+1
3320 ifr%=2thena%=a%+40
3330 ifr%=3thena%=a%-1
3340 z=peek(a%)
3350 if(z=160)or(z=32)thenr%=4:return
3360 fori=0to14
3370 ifz%(i)=zthenz%=i
3380 nexti
3390 ifr%=0thenr1%=2
3400 ifr%=1thenr1%=3
3410 ifr%=2thenr1%=0
3420 ifr%=3thenr1%=1
3430 if(r%(z%)and(2^r1%))=0thenr%=4
3440 return
3450 sys33141
3460 print"taste druecken !"
3470 poke198,0:wait198,1:poke198,0
3480 poke53269,0:run
3490 x1=(a1-1024)-int((a1-1024)/40)*40
3500 y1=int((a1-1024)/40):ify1>24theny1=24
3510 poke53249,y1*8+50
3520 xp=x1*8+24:poke53248,(xp)and(255)
3530 poke53264,(peek(53264)and254)or(int(xp/256))
3540 ifpeek(828)=0thenreturn
3550 x2=(a2-1024)-int((a2-1024)/40)*40
3560 y2=int((a2-1024)/40):ify2>24theny2=24
3570 poke53251,y2*8+50
3580 xp=x2*8+24:poke53250,(xp)and(255)
3590 poke53264,(peek(53264)and253)or(int(xp/256)*2)
3600 return