0 REM *****************************
1 REM *                           *
2 REM *    G O L D F E V E R      *
3 REM *                           *
4 REM *       (C) 1987 BY         *
5 REM *                           *
6 REM *       HARALD FURTH        *
7 REM *                           *
8 REM *****************************
9 :
10 POKE55,.:POKE56,114:POKE53280,.:POKE53281,.:POKE53265,11:W=PEEK(186)
20 IFO=.THENO=1:LOAD"GF/M",W,1
22 IFO=1THENO=2:LOAD"GF/T",W,1
30 SYS29258:MU=.:DI=1
35 REM---------------------------------
36 REM GESCHWINDIGKEIT DER AUFZUEGE
37 REM---------------------------------
38 L1=1:L2=2:L3=3:L4=4:L5=5:L6=5:L7=5:L8=5
39 REM---------------------------------
40 ONL1GOSUB3000,3002,3004,3006,3008
41 ONL2GOSUB3500,3502,3504,3506,3508
42 ONL3GOSUB4000,4002,4004,4006,4008
43 ONL4GOSUB4500,4502,4504,4506,4508
44 ONL5GOSUB5000,5002,5004,5006,5008
45 ONL6GOSUB5500,5502,5504,5506,5508
46 ONL7GOSUB6000,6002,6004,6006,6008
47 ONL8GOSUB6500,6502,6504,6506,6508
50 FORI=1TO5:HF$=RIGHT$("000000"+MID$(STR$(1200-I*200),2),6)
60 N$(I)=HF$+"HFS       ":NEXT
160 IFPEEK(186)=1THEN310
190 OPEN1,8,15:OPEN2,8,2,"GF/SCORE,S,R":INPUT#1,A,B$,C,D:IFA<>.THEN280
220 FORI=1TO5:INPUT#2,N$(I):NEXT
280 CLOSE1:CLOSE2
310 GOSUB1780
340 POKE49236,.:POKE49237,.
350 POKE49238,1:POKE53265,11:PRINT"[147]":FA=6:FB=14:GOSUB2000:POKE211,6:POKE214,3
354 SYS58640:PRINT"[158][192][193][194][201][202][203][166]  [192][187][188][217][193][219][217][193][219][166] [167][217][193][219][192][193][218]";
355 PRINTSPC(13)"[195][196][197][195] [214][195]  [195][189][190][220][221] [220][221] [168][169][170][220][221] [220][223][174]";
356 PRINTSPC(13)"[198][199][200][163][164][165][198][199][161][198][191]@[146][207]  [255][199][161][171][172][173][255][199][161][207][175][176]";
358 PRINTSPC(13)"WRITTEN 1987 BY HARALD FURTH";
360 PRINTSPC(13)"[177][178][179]     START";
361 PRINTSPC(27)"[180][181][182]";
362 PRINTSPC(37)"[177][178][183]     PAUSE";
363 PRINTSPC(27)"[180][181][184]";
364 PRINTSPC(37)"[177][178][185]     MUSIC ON-OFF";
365 PRINTSPC(20)"[180][181][184]";
390 POKE53265,27:POKE49235,.
400 FORZE=.TO1000:IFPEEK(197)=4THEN430
410 NEXT:GOTO1180
430 POKE49158,1:POKE49238,.:POKE53278,.
460 POKE49170,.:WAIT49170,10
490 S=.:FORI=.TO5:S=S+PEEK(49157-I)*10^I:NEXT
520 S$=RIGHT$("000000"+MID$(STR$(S),2),6)
550 IFS$=>N$(5)THENDI=.:POKE49238,1:GOTO610
580 IFPEEK(49235)=.THEN350
590 GOTO340
610 PRINT"[147][159]        PLEASE ENTER YOUR NAME"
620 POKE211,14:POKE214,15:SYS58640:FORT=.TO9:POKE55950+T,4:NEXT
640 PRINT"----------"
670 PRINT
700 PRINTTAB(14)"----------"
730 PRINT"[158]     ABCDEFGHIJKLMNOPQRSTUVWXYZ. R E"
760 B1=35470:B2=5:B3=35661:B1$="<[157]>[145][145][145]":B2$=" [157] [145][145][145]"
790 PRINT"[145][145]"TAB(B2)B1$:POKE53265,27
820 J=PEEK(56320):IFJ=111ANDB2=35THEN1000
850 IFJ=111ANDB2=33ANDB1>35470THENPOKEB1-1,32:B1=B1-1:GOSUB1600
880 IFJ=111ANDB2<32THENPOKEB1,PEEK(B3):B1=B1+1:GOSUB1600
910 IFJ=123ANDB2>5THENPRINTTAB(B2)B2$:B2=B2-1:GOSUB1660
940 IFJ=119ANDB2<35THENPRINTTAB(B2)B2$:B2=B2+1:GOSUB1690
970 IFB1<35480THEN820
1000 N$="":FORI=.TO9:X=PEEK(35470+I)+64
1030 IFX=>96THENX=X-64
1060 N$=N$+CHR$(X):NEXT
1090 N$(.)=S$+N$
1120 FORI=1TO5:IFN$(.)<N$(I)THENNEXT
1150 FORZ=6TOI+1STEP-1:N$(Z)=N$(Z-1):NEXT:N$(I)=N$(.)
1180 POKE53265,11:PRINT"[147]":FA=2:FB=10:GOSUB2000:POKE211,9:POKE214,3:SYS58640
1190 PRINT"[159]BCD[146][201][202][203][192][193]A[146] [217][193][219][166][166] [167][217][193][219]";
1192 PRINTSPC(20)" [195] [195] [214][220][199][200] [220][221] [195][168][169][170][220][221]";
1194 PRINTSPC(21)" [207] [163][164][165][207]   [207]  [207][171][172][173][255][199][161]"
1210 PRINT:FORI=1TO5
1240 PRINT"[158]"I".   "RIGHT$(N$(I),10)"[156]  "LEFT$(N$(I),6):NEXT
1270 POKE53265,27
1360 IFPEEK(186)=1ORDI=1THEN1540
1390 IFPEEK(49235)=.THENPOKE49235,1:POKE54290,16:MU=1
1420 OPEN2,8,2,"@:GF/SCORE,S,W"
1450 FORI=1TO5:PRINT#2,N$(I):NEXT
1480 CLOSE2:DI=1:IFMU=1THENPOKE49235,.:MU=.:GOTO1540
1510 FORX=49236TO49237:POKEX,.:NEXT
1540 GOSUB1780:FORZE=.TO1000:IFPEEK(197)=4THEN430
1550 NEXT:GOTO350
1600 POKE54276,.:POKE54278,.:POKE54273,200:POKE54277,7:POKE54276,33
1630 FORU=.TO300:NEXT:RETURN
1660 GOSUB1720:PRINTTAB(B2)B1$:B3=B3-1:RETURN
1690 GOSUB1720:PRINTTAB(B2)B1$:B3=B3+1:RETURN
1720 POKE54276,.:POKE54278,.:POKE54273,5:POKE54277,7:POKE54276,17:RETURN
1780 FORI=1TO6:Q$=MID$(N$(1),I,1):Q=VAL(Q$):POKE49251+I,Q:NEXT:RETURN
2000 POKE53270,216:POKE53282,FA:POKE53283,FB:POKE646,10
2002 PRINT"[][][][][][][][][][][][][][][][][][][][]";
2010 FORX=.TO9:PRINT"[                                      ]";
2012 PRINT"]                                      [";:NEXT
2020 PRINT"[][][][][][][][][][][][][][][][][][][][]":RETURN
3000 V1=3:U1=.:GOTO3010
3002 V1=2:U1=.:GOTO3010
3004 V1=1:U1=.:GOTO3010
3006 V1=.:U1=.:GOTO3010
3008 V1=.:U1=1
3010 POKE29424,U1:POKE32133,V1:RETURN
3500 V2=3:U2=.:GOTO3510
3502 V2=2:U1=.:GOTO3510
3504 V2=1:U2=.:GOTO3510
3506 V2=.:U2=.:GOTO3510
3508 V2=.:U2=1
3510 POKE32708,U2:POKE49862,V2:RETURN
4000 V3=3:U3=.:GOTO4010
4002 V3=2:U3=.:GOTO4010
4004 V3=1:U3=.:GOTO4010
4006 V3=.:U3=.:GOTO4010
4008 V3=.:U3=1
4010 POKE32709,U3:POKE49863,V3:RETURN
4500 V4=3:U4=.:GOTO4510
4502 V4=2:U4=.:GOTO4510
4504 V4=1:U4=.:GOTO4510
4506 V4=.:U4=.:GOTO4510
4508 V4=.:U4=1
4510 POKE32710,U4:POKE49864,V4:RETURN
5000 V5=3:U5=.:GOTO5010
5002 V5=2:U5=.:GOTO5010
5004 V5=1:U5=.:GOTO5010
5006 V5=.:U5=.:GOTO5010
5008 V5=.:U5=1
5010 POKE32711,U5:POKE49865,V5:RETURN
5500 V6=3:U6=.:GOTO5510
5502 V6=2:U6=.:GOTO5510
5504 V6=1:U6=.:GOTO5510
5506 V6=.:U6=.:GOTO5510
5508 V6=.:U6=1
5510 POKE32712,U6:POKE49866,V6:RETURN
6000 V7=3:U7=.:GOTO6010
6002 V7=2:U7=.:GOTO6010
6004 V7=1:U7=.:GOTO6010
6006 V7=.:U7=.:GOTO6010
6008 V7=.:U7=1
6010 POKE32713,U7:POKE49867,V7:RETURN
6500 V8=3:U8=.:GOTO6510
6502 V8=2:U8=.:GOTO6510
6504 V8=1:U8=.:GOTO6510
6506 V8=.:U8=.:GOTO6510
6508 V8=.:U8=1
6510 POKE32714,U8:POKE49868,V8:RETURN