File:3-D-labyrinth.zip

3-D Labyrinth (3-D Labyrintti)

File Summary

File	3-D Labyrinth
Version	1
File size	8 KB
Release date	September
Release year	1986
Type	Video game
Platform	Commodore 64
Requirements
License	[[:Finnish games:|]]

Game Summary

Developer	Tommi Timonen
Publisher	MikroBitti
Original release date
Original release year	[[:Finnish games:|]]
Genre	Puzzle
Subgenre	Labyrinth
Series	[[:Finnish games:|]]
Article	3-D Labyrinth
Website	{{{Website}}}

Screenshots

[[Image:|center|300px]]

[[{{{More screenshots}}}|More screenshots]]

Pulmapeli

Labyrintti

3-D-labyrinth.zip

{{{Competition}}}

{{{Tag_featured}}}

{{{Tag_bloody}}}

{{{Tag_level_editor}}}

{{{Tag_multiplayer}}}

{{{Tag_short}}}

Yes

{{{Tag_play}}}

{{{Tag_christmas}}}

{{{Tag_finnish_summer}}}

{{{Platform2}}}

{{{Platform3}}}

{{{Platform4}}}

{{{Platform5}}}

{{{Platform6}}}

{{{Platform7}}}

{{{Platform8}}}

{{{Platform9}}}

README

                         3-D Labyrintti
                        (3-D Labyrinth)
                        ================

                         [Commodore 64]

                    Programmer: Tommi Timonen
             Published: MikroBITTI (September 9/86)

                       Language: Finnish

Three-dimensional labyrinth is a game where the goal is to get
out of the labyrinth as fast as possible. You also have a map
at your disposal, but you can’t see where your current location
on it. Instead, there is a blinking arrow showing where the
exit is.

As you move through the labyrinth, you see everything in three
dimensions. The game is controlled either by buttons (forward =
space bar, left = Z, right= /, to view the map = Return, to
quit the game = L) or with Joystick port 2 (map = Fire,
L = to quit the game). The exit is marked as a black area on
the labyrinth wall. Important: it’s only visible when viewed
from front.

The game has 10 levels of difficulty, 0 = easiest, 9 = the most
difficult. The program randomly selects a different labyrinth
each time depending on the level of difficulty.

---------------------------------------------------------------
                             OHJEET
                   (Instructions in Finnish)
---------------------------------------------------------------

Kolmiulotteinen labyrintti on peli, jossa on tarkoituksena
päästä ulos labyrintistä mahdollisimman nopeasti. Käytettävissä
on myös labyrintin kartta. Kartasta ei kuitenkaan näe omaa
sijaintiaan. (Kartassa oleva vilkkuva nuoli osoittaa ulospääsy-
tien.)

Labyrintissä kulkiessaan näkee labyrinttinäkymän kolmiulottei-
sena. Peliä ohjataan joko näppäimillä (eteenpäin = välilyönti,
vasemmalle = Z, oikealle = /, kartan saa return-näppäimestä ja
luovutus = L) tai joystickilla portissa 2 (kartta = fire,
luovutus L-näppäimestä.) Ulospääsytie näkyy labyrintin seinässä
mustana kohtana. Huom. Se näkyy vain suoraan edestäpäin katsot-
tuna.

Pelissä on kymmenen vaikeusastetta, 0 = helpoin, 9 = vaikein.
Ohjelma arpoo joka kerta erilaisen labyrintin, jonka koko
riippuu vaikeusasteesta.

Ohjelman rakenne
----------------

1000-1290   Alkutekstit.
1300-1510   Labyrintin arpominen. Labyrintti arvotaan konekie-
            lisessä aliohjelmassa.
2000-8090   Piirretään labyrintin näkymä kolmiulotteisena kuva-
            ruutuun, käytetään konekielistä aliohjelmaa.
9000-9100   Ohjaus näppäimillä tai joystickillä.
10000-10040 Piirretään kartta kuvaruutuun, käytetään konekie-
            listä aliohjelmaa.
11000-11070 Pelaaja on päässyt pois labyrintistä.
12000-12040 Luovutus.
49152-52896 Konekielinen ohjelma data-riveillä.
60000-60210 Luetaan konekielinen ohjelma muistiin.

---------------------------------------------------------------
                            HUOMIOT
                            (Notes)
---------------------------------------------------------------

Ohjelmalistauksen erikoismerkit ovat muodossa
{clear}, {blue}, jne. ja voidaan muuntaa takaisin esimerkiksi
C64List-ohjelmalla:
http://www.commodoreserver.com/Downloads.asp

The special characters in the program listings are {clear},
{blue}, etc. and can be converted back with – for example –
C64List program:
http://www.commodoreserver.com/Downloads.asp

---------------------------------------------------------------
                         OHJELMALISTAUS
                       (Program Listing)
---------------------------------------------------------------

5 REM TT 19/06/85
10 POKE53280,6:POKE53281,6:PRINT"{clear}{$8e}{$08}"
20 DIMK$(24)
1000 PRINT"{clear}{down:8}             ODOTA!"
1200 GOSUB60000
1205 PRINT"{clear}{white}":POKE53281,6
1210 PRINT"{down:2}{right:3}ETEENPAIN   =   VALILYONTI"
1220 PRINT"{down}{right:3}VASEMMALLE  =   Z"
1230 PRINT"{down}{right:3}OIKEALLE    =   /"
1240 PRINT"{down}{right:3}KARTTA      =   RETURN"
1250 PRINT"{down}{right:3}LUOVUTUS    =   L"
1260 PRINT"{down:3}{right:3}ANNA VAIKEUSASTE (0-9)"
1270 GETA$:IFA$<"0"ORA$>"9"THEN1270
1280 PRINT"{up}{right:3}VAIKEUSASTE =   "A$"     "
1290 PRINT"{down}{right:3}ODOTA..."
1300 V=VAL(A$)
1310 POKE680,2*INT(3.5+1.777*V):POKE681,6+2*V
1320 SYS49552
1400 X=INT(RND(1)*PEEK(680)):Y=INT(RND(1)*PEEK(681))
1410 IFPEEK(50176+X+40*Y)<>160THEN1400
1420 S=INT(RND(1)*4)
1430 SX(1)=1:SX(3)=-1:SY(0)=-1:SY(2)=1
1500 TI$="000000"
1510 PRINT"{blue}{clear}"
2000 P=50055+X+40*Y
2010 POKE53265,11
2020 H=INT(P/256):POKE251,P-256*H:POKE252,H:POKE690,S:SYS49758
2030 K3=PEEK(685)
8000 PRINT"{home}{rvrs on}{blue}{down:15}{right}"MID$(TI$,3,2)":"RIGHT$(TI$,2)
8001 POKE53265,27
8005 IFS>0ORX>0THEN9000
8010 IFY=2ANDK3=0THENPRINT"{home}{right:19}{down:11}{black}{rvrs on}  {down}{left:2}  "
8020 IFY<>1THEN8050
8030 PRINT"{home}{right:15}{down:7}{rvrs on}{black}";
8040 FORA=1TO10:PRINT"          {down}{left:10}";:NEXT
8050 IFY>0THEN9000
8060 PRINT"{home}{black}{rvrs on}{down}";
8070 FORA=1TO22:PRINT"{right:9}                      {right:9}";:NEXT
8090 GOTO11000
9000 GETA$:IFA$<>""ANDPEEK(197)=64THEN9000
9001 A=NOT(PEEK(56320)AND31)
9005 PRINT"{home}{rvrs on}{blue}{down:15}{right}"MID$(TI$,3,2)":"RIGHT$(TI$,2)
9010 IF(A$=" "OR(AAND1))ANDK3=0THENX=X+SX(S):Y=Y+SY(S):GOTO2000
9020 IFA$="Z"OR(AAND4)THENS=(S-1)AND3:GOTO2000
9030 IFA$="/"OR(AAND8)THENS=(S+1)AND3:GOTO2000
9040 IFA$=CHR$(13)OR(AAND16)THEN10000
9050 IFA$="L"THEN12000
9100 GOTO9000
10000 PRINT"{white}{clear}":POKE53281,6:SYS49684:FORB=0TO5
10010 POKE1024,158:FORA=0TO500:NEXT
10020 POKE1024,160:FORA=0TO500:NEXT
10030 NEXT
10040 GOTO1510
11000 R$="{rvrs on}{black}"
11005 PRINT"{home}"R$"{right:14}{down:5}HALUATKO"
11010 PRINTR$"{down}{right:14}PELATA"
11020 PRINTR$"{down}{right:14}UUDELLEEN?"
11030 PRINTR$"{down}{right:16}(K/E)"
11040 GETA$:IFA$="K"THENRUN1205
11050 IFA$<>"E"THEN11040
11060 PRINT"{clear}"
11070 END
12000 PRINT"{white}{clear}":POKE53281,6:SYS49684
12010 POKE1024,158
12020 POKE1024+X+40*Y,170
12030 GETA$:IFA$=""THEN12030
12040 PRINT"{clear}":R$="{white}":GOTO11005
49152 DATAV=9VCE4T@,VX2P9CP3/,8T004LHOF,>EJ21N>FA,>KT5LH>LK,02>2BLHCM,6@9OKONBR0
49194 DATAG/W?@96/2,D/EIN;D/B,;J6M?0@08,;L9M<=2BL,JBT0@HVLW,@EHIRB6/2,D@J3ME@DQ1
49236 DATAD</IPLD/B,IPKECD0?Q,00P;L;M<G,P2C@08D/F,>O?000045,?6@045?06,2BLI9V6<>0
49278 DATAD/EIN;D/B,I7SD<RI;?,D<S50WM9R,OV<4XM11F,OLE4XDMBQ,?0V@G618G,?2E?2EB=56
49320 DATAI9VN2CON@,>IB?8O?8O,AM604L000,000000000,2BLS5P>L1,000069001,0690000@E0
49362 DATA@940@F17P,VCD0GQ4UK,NSW11FV=/,@G6U<?OPK,I5@N68TI8,NU00N2V=/,RSCM/I6>L5
49404 DATAN09EXNI/H,8EM@;B0NR,EWVSO700P,IRUF7;IS=,F3FI4VL77,M>MVO8NMF,D?53Q1V;L8
49446 DATAV<CVOX?@9,D@H50WM9R,HC6OUEVIN,?@9D@GI;?,3Q2VAVVBM,00PK2SNN5,OOJJW@6?V0
49488 DATANI@OKO>IB,HC6OUE16R,U3Q??0?0V,?3;17P?=A,?DB0;=;IT,M>U0/?03U,03NGA8NI17
49530 DATA03NGA/NUE,OPI>O<000,000000000,0000009O@,IRUD/BIT?,D/B50VM9R,3NGOTB?067
49572 DATAP3;09ODF>,HABIN9OUT,ON5NCM?20,565OVSON5,H?MORWON5,NC=OVSON5,H?AOSVON52
49614 DATANC1?200T<,OVSTHVS1K,S79I;?N67,ON?S5HS7/,I;@N68ON@,>MG000IQF,F46S3DI;A9
49656 DATANO8JQ2;K5,ME?03U4WV,03NGA4N02,03NGA6N<F,OPI>O<03U,04EGA40HX,04EGA50O99
49698 DATA04EGA60UC,04EGA712M,OPI>O0<PD,H8B<K9H=M,<EWHBX<@L,HH/BT;B4K,BO0B9VBIN1
49740 DATAB?8HX2<0T,HRP<66HME,<;AHH/<@L,03WK8IL77,MGF0?MK2;,NO6OOJIN<,6LN0/?IEG9
49782 DATAHX2NBRNGK,SBC1Q6R?W,4SAD<X?XD,VBMV>R0AG,VE303UV=F,12=/R4;KM,MILVCDI709
49824 DATA;4LIPGEC@,0@F0/?54D,IS<D@DHE6,D4;IT?H?Q,F4=DS<2@>,V1QHC6V<O,2E9I;?3PX1
49866 DATA66=V<C0@0,VE3R9FR3C,HC64QCNFE,DM>V3?3HG,1<S4T@VX2,D4X2S54WG,4TH4TH4TH8
49908 DATA4TH4TH4TH,4TH4TH4TH,4TH4THF/@,J>80@J0U3,SGWHBCJ>?,0@Q0U3R2E,KW3J>?0@M8
49950 DATA1K<A083<1,1BVDM;V3?,IRBSJ5SOP,0U3A081<@,J><0@J0U3,;QU1<@J><,0@PSOPTL/5
49992 DATAIN>EF40IN,K2@TFHIN>,EE<0INIXL,O920@M1QF,@I70@MIPT,NI3OKOHL1,H?23K2TG=3
50034 DATAHQN4T>MIF,IBDGUMNO;,UARK2@O92,0@M1QF@I7,0@MJSHNI3,OKOHL1H?2,3KITG=HQN0
50076 DATA4T>MIFI60,GUMNO;UAR,JBATFH>IB,CL=051000,000000000,000000000,OLE4XGNV<3
52224 DATA03UV=F/R4,NFW1P?UH3,4CA4AP4AP,4WV4TH4TH,4TH4TH00P,4TH4TH4TH,4TH4TH4FE6
52266 DATA4AP4AP000,JU6OKPHL/,H?B3K>TG=,511MIF4TH,4TH4TH4TH,4TH00PR/<,OL<TL6INS2
52308 DATAD;<IT>D?A,HQKH?B3K>,TG=511O2O,V>2R/<OL<,50KMIF4Q5,J>80@I3JC,0/81C44T@4
52350 DATAVX2D4XO=N,O9AO9AO9A,O9AO9AJ>8,0@P3JC10A,3U04T@VX2,D4XOCXOBP,OBPOBPOBP9
52392 DATAOBPJ>80@L,IS9TFHJ>=,0@H36W16K,29=4T@VX2,1I@D4XJ08,GUMNO;UH3,J<7O920@P9
52434 DATA0U3JNUOKP,HL0H?83KC,TG=HQN4T2,MIF2LF03R,OPKJD80@H,2AEIRBOKP,H?;IN?G?17
52476 DATA0O1OO2JD<,0@O2AEJU6,OKPH?;IN?,G?10OAOO2,JD<0@L1QF,1I>A08VOL,DM;V824V67
52518 DATAMIFGC0J>8,0@H3OV235,2?G4T@VX2,D4X4XF4TH,4THS=H2MI,T2J6?S235,2R<4T@VX24
52560 DATAD4XIRW2HV,H05IR24TH,GUMH05IR2,4TH2HVH05,H05IR24TH,4THJ>80@O,3OV23535P1
52602 DATA4T@VX2D4X,4XF4TH4TH,S=H2MIT2J,5V523535P,4T@VX2D4X,4XF2MHH05,4TH2MHH052
52644 DATA4WJ4TH2MH,H05H054TH,4TH05BD4X,4R<03GIL8,TFHHKXH?8,3K9TG=511,MIF2M62M66
52686 DATA2M6050JNU,TFHHKXH?;,3K?TG=511,MIFF8@F8@,F8@051J5V,O920@H0U3,IEWOKPINA0
52728 DATAEEU0T6TVC,J>=0@KJOL,TFHJ>=0@N,1>1?COO<B,ECE0U8IEW,TFHJ>G0@H,1JEA080LT1
52770 DATAH6;DM<V82,JHKTFHJ>G,0@O1JEA08,0LTI2NDM<,V82J5VTFH,INBEF40S8,I2B>IF29F5
52812 DATAU3MHPQJB4,0@G0B>SGP,U3NIN>ECN,Q7THBXJHK,TFHHKGEO3,0U7IEWTFH,IN>EE;0T78
52854 DATAJHKTFHIN>,EE<0T84V6,MIF2R6J>8,0@I4L@2L4,1C44T@VX2,D4X4XF4TH,4TH4TH4TH9
52896 DATA4THS=H3J3,S6744823<,V<CO6TVBM,2L41C44T@,VX200PS63,SCM3J3TKI,7>G04X0007
60000 IFPEEK(52933)=48ANDPEEK(52934)=204THENRETURN
60010 FORR=0TO22:GOSUB60100:NEXT
60020 FORR=0TO16:GOSUB60100:NEXT
60030 RETURN
60100 S=0:FORB=0TO6:READA$:FORE=0TO2
60110 L=0:GOSUB60200
60120 GOSUB60200
60130 GOSUB60200:S=S+L
60140 D=PEEK(63)+PEEK(64)*256+6*B+2*E
60150 H=INT(L/256):L=L-256*H
60160 POKED,L:POKED+1,H
60170 NEXT:NEXT:S=S-10*INT(S/10)
60180 IFS<>ASC(A$)-48THENPRINT"VIRHE RIVILLA:"PEEK(63)+PEEK(64)*256:END
60200 C=ASC(A$)-48:A$=MID$(A$,2):IFC=-1THENC=10
60210 L=L*41+C:RETURN

---------------------------------------------------------------
 https://zak.fi/                                 July 20, 2015
---------------------------------------------------------------

See also

• MikroBitti
• MikroBitti/fi