1 REM SKI 7 DEVILS   G.FIELDS 10/84
2 RT$=CHR$(18):GOSUB2000:GOTO47000
3 POKE53281,15:POKE53280,15:PRINTCHR$(144)CHR$(147):POKE650,128
4 SV=54296:SH=54273:SL=54272:SA=54277:SS=54278:SW=54276:JS=56320:B%=32
8 TT$="[144]!+#":TB$="[144] $":RA$="<"
9 G1$="[144]*[192][192][192][144]*":G2$="[144]*[192][192][144]=[192][144]*":G3$="[144]*[192]<[192][192][144]*"
10 G5$="[144]*[192][192][144]*":G6$="[144]*[192][192][192][192][192][192][144]*"
11 PT$="[153];":PB$=">":RO$="[149]="
14 M%=1024:C=54272:L%=499:SP%=-40:H$=CHR$(19):BR=100:DH=46
50 GOSUB4000:GOSUB60:TI$="000000":GOTO412
60 FORD1=54272TO54296:POKED1,0:NEXTD1:RETURN
65 POKESV,0:POKESW,SW%+1:POKESV,15:POKESH,SH%:POKESL,SL%:POKESA,SA%:POKESS,SS%
66 POKESW,SW%:RETURN
70 PRINTCHR$(145)TAB(TA%)TT$SPC(10)G1$SPC(3)TT$SPC(3)PT$PT$:TG=TG+1
71 PRINTTAB(TA%)TB$SPC(19)TB$SPC(3)RA$PT$PT$:GOTO605
74 PRINTCHR$(145)TAB(TA%)PT$PT$PT$PT$SPC(6)G2$SPC(3)PT$PT$:TG=TG+1
75 PRINTTAB(TA%)PB$PB$PB$PB$SPC(15)PB$PB$:GOTO605
78 PRINTCHR$(145)TAB(TA%)PT$PT$SPC(6)PT$SPC(8)PT$PT$" "PT$:
79 PRINTTAB(TA%)PB$PB$SPC(6)PB$SPC(8)PB$PB$RO$PB$:GOTO605
80 XX%=INT(RND(0)*20)+4:PRINTTAB(XX%)")"
82 GOTO605
84 PRINTTAB(XX%)"[149]==[153];  [154]<<"G3$:TG=TG+1:GOTO605
88 PRINTTAB(PL%)G5$:TG=TG+1:GOTO605
90 PRINTTAB(TA%)PT$PT$G6$"[154]<":TG=TG+1:GOTO605
95 PRINTCHR$(145)TAB(TA%)TT$SPC(9)TT$
96 PRINTTAB(TA%)TB$RO$RO$PT$"[144]*[198][198][198][198][198][144]*"TB$"?"PT$:GOTO605
400 LC=LC+1:IFRP=32THEN412
406 IFRP=64THENSC=SC+1:GOTO412
408 IFRP=63THENDC=DC+1
412 POKEM%+L%,DH:POKEM%+L%+C,2:ER=M%+L%-40
420 IFK=0THENK=1:GOSUB5000
430 Q=PEEK(JS):Q=15-(QAND15):IFQ=0THEN540
432 IFQ=4THENDH=47:L%=L%-1:GOTO556
433 IFQ=8THENDH=77:L%=L%+1:GOTO556
434 IFQ=1THENBR=BR-9:S%=101-BR:PRINTCHR$(145)S%:IFBR<1THENBR=0
435 IFS%=110ANDQ=1THENGOSUB50000:K=1:GOSUB5000
436 IFQ=2THENBR=BR+9:S%=101-BR:IFS%>0THENPRINTCHR$(145)S%
540 GETQ$:IFQ$=""THENDH=46:RP=PEEK(M%+L%+40):GOTO557
554 IFQ$=","THENDH=47:L%=L%-1:GOTO556
555 IFQ$="."THENDH=77:L%=L%+1
556 RP=PEEK(M%+L%+40)
557 IFRP<>32THENIFRP<>64THENIFRP<>63THENGOSUB50000:K=1:GOSUB5000
558 IFQ$="S"THENBR=BR+9:S%=101-BR:IFS%>0THENPRINTCHR$(145)S%
560 IFQ$="F"THENBR=BR-9:S%=101-BR:PRINTCHR$(145)S%:IFBR<1THENBR=0
562 IFS%=110ANDQ$="F"THENGOSUB50000:K=1:GOSUB5000
600 POKESV,2:FORLP=0TOBR:NEXT:POKESV,0:IFTG>19THENEG%=EG%+1:GOTO604
601 IFTG<20THENPL%=INT(RND(0)*40):TA%=INT(RND(0)*8)+2
602 ONPL%GOTO70,74,78,80,84,95,88,90
603 PL%=0
604 PRINTTAB(2)";; ;"SPC(TA%+15)";  ; ;"
605 IFBR>100THENK=0:BR=100
608 IFTG>19THENIFEG%>15THEN1000
610 POKEER,B%
612 GOTO400
1000 FORX=0TO10:PRINTCHR$(145);:NEXT:PRINTTAB(12)CHR$(18)"[144][213][192][192][192][192][192][192][192][192][192][192][201]"
1001 PRINTTAB(12)CHR$(18)"[221]  FINISH  [221]"
1002 PRINTTAB(12)CHR$(18)"[202][192][192][192][192][192][192][192][192][192][192][203]":PRINT
1018 PRINTTAB(12)"[144]TOTAL GATES "TG:PRINTTAB(10)"TOTAL CLEARED "SC:PRINT:PRINT
1020 PRINTTAB(16)"TOTAL ?[144] "DC
1021 PRINTTAB(15)"DISTANCE "LC
1022 PRINTTAB(16)"[205][144] FALLS "TF
1024 SC=SC*100:DC=DC*1000:TF=TF*50:FS%=(LC/VAL(TI$))*100:FS%=(DC+SC)-(TF+FS%)
1025 PRINTTAB(12)"FINAL SCORE "FS%-CK%
1026 PRINTTAB(12)"RECORD TIME  "RIGHT$(TI$,4)
1028 PRINTTAB(7)CHR$(18)"WANT TO TRY AGAIN [Y/N]?"
1030 GETQ$:IFQ$="N"THENSYS64738
1031 IFQ$="F"THENRUN3
1032 IFQ$="Y"THENRUN3
1033 Q=PEEK(JS):Q=QAND16:IFQ=0THENRUN3
1034 GOTO1030
2000 PRINTCHR$(147):POKE53281,14:POKE53280,14
2001 PRINT:PRINTTAB(32)"WAIT":PRINTTAB(32)"WHILE":PRINTTAB(32)"THE"
2002 PRINTTAB(32)"SLOPES":PRINTTAB(32)"ARE":PRINTTAB(32)"CLEARED"CHR$(5)
2010 PRINTCHR$(19);
2020 PRINT"[213][192][192][192][192][192][192][192][192][201]      [201]            [213][192][201]"
2030 PRINT"[194]               [194]    [206]        [194]"
2040 PRINT"[194]               [194]   [206]         [194]"
2050 PRINT"[202][192][192][192][192][192][192][192][192][201]      [194]  [206]          [194]"
2060 PRINT"         [194]      [202] [206][205]          [194]"
2070 PRINT"         [194]      [213][206]  [205]         [194]"
2080 PRINT"         [194]      [194]    [205]        [194]"
2090 PRINT"         [194]      [194]     [205]       [194]"
2100 PRINT"[202][192][192][192][192][192][192][192][192][203]      [203]      [205]     [202][192][203]"
2109 PRINTTAB(14)RT$"[144][213][192][192][192][192][192][192][192][192][192][192][201]"
2110 PRINTTAB(14)RT$"[194]    THE   [194]"
2120 PRINTTAB(14)RT$"SEVEN DEVILS"
2121 PRINTTAB(14)RT$"[194] SKI RACE [194]"
2122 PRINTTAB(14)RT$"[202][192][192][192][192][192][192][192][192][192][192][203]"
2200 PRINT:PRINT:PRINTTAB(7)"USE JOYSTICK 2 OR KEYBOARD"
2210 PRINT:PRINT"[151]FASTER = [F] OR FORWARD   ";:PRINTRT$" TO START  "
2212 PRINT"[151]SLOWER = [S  OR    BACK   [RETURN] OR"
2214 PRINT"[151]LEFT   = [<] OR    LEFT   [F KEY]  OR"
2216 PRINT"[151]RIGHT  = [>] OR   RIGHT   FIRE BUTTON"
2220 PRINT:PRINT"BY G.FIELDS                     10/84":RETURN
4000 FORX=0TO5:PRINT:NEXT
4001 PRINTTAB(15)CHR$(28)CHR$(127)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][201]"CHR$(28)CHR$(169)
4002 PRINTTAB(15)"[144][170][221]SEVEN DEVILS[144][221][180]"
4003 PRINTTAB(15)"[170][221]  SKI RACE  [221][180]"
4004 PRINT"[153];;;; ;;[144]!+# [153];; ;[144][170][202][192][192][192][192][192][192][192][192][192][192][192][192][203][180] [153]   ; ;"
4005 PRINT">>>> >>[152][175][144]$[152][175][175]>> >[144][170])           ))[144][180] [149]=<;>;>"
4100 FORX=0TO9:PRINT:NEXT:RETURN
5000 GETQ$:Q=PEEK(JS):Q=QAND16:IFQ=0THEN5005
5002 IFQ$<>CHR$(13)THENIFQ$<>CHR$(70)THEN5000
5005 SH%=12:SL%=255:SA%=200:SS%=200:SW%=129:GOSUB65:POKESV,5
5010 POKEM%+L%,32:RETURN
6300 DATA059,000,000,008,028,012,062,124,062
6302 DATA061,000,000,000,056,124,127,239,255
6303 DATA060,000,040,040,016,056,108,056,000
6304 DATA042,129,255,129,255,129,129,129,129
6305 DATA033,001,007,097,048,220,007,056,007
6306 DATA043,002,036,025,138,089,049,241,049
6307 DATA035,016,012,048,065,170,004,056,224
6308 DATA062,126,191,126,191,062,255,153,024
6309 DATA037,132,068,189,189,102,020,012,004
6310 DATA038,160,080,040,060,118,147,009,004
6311 DATA039,161,129,161,185,245,017,002,004
6312 DATA040,004,136,080,056,088,136,004,002
6313 DATA041,153,090,102,024,024,060,036,102
6314 DATA036,059,172,104,056,056,056,108,175
6315 DATA046,036,036,189,189,102,036,036,036
6316 DATA047,002,100,235,054,060,024,048,224
6317 DATA077,064,038,215,108,060,024,012,007
6318 DATA095,003,014,030,022,053,110,104,192
6319 DATA105,192,112,120,104,172,118,022,003
6320 DATA063,005,005,138,114,118,250,114,218
6350 DATA-1
47000 POKE56,48:CLR
47004 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
47005 FORI=0TO2047:POKE12288+I,PEEK(53248+I):NEXT
47006 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
47007 READA:IFA=-1THEN47009
47008 FORI=0TO7:READB:POKE12288+A*8+I,B:NEXT:GOTO47007
47009 POKE53272,(PEEK(53272)AND240)OR12
47010 RUN3
50000 POKEM%+L%+40,32:POKEM%+L%+1,32:POKEM%+L%-1,32:TF=TF+1
50009 SV%=15:SH%=15:SL%=40:SA%=20:SS%=16:SW%=129:GOSUB65
50010 POKEM%+L%,37:POKEM%+L%+C,2:FORX=0TO100:NEXT
50019 SV%=15:SH%=0:SL%=200:SA%=10:SS%=0:SW%=33:GOSUB65
50020 POKEM%+L%,38:FORX=0TO250:NEXT
50025 IFRP=41THENCK%=CK%+80
50026 IFRP=60THENCK%=CK%+40
50030 POKEM%+L%,39:FORX=0TO150:NEXT
50040 POKEM%+L%,40:FORX=0TO150:NEXT
50050 GOSUB60:POKEM%+L%,41:FORX=0TO200:NEXT
50060 POKEM%+L%,46
50070 IFPEEK(M%+L%+80)<>32THENPOKEM%+L%,32:L%=L%+1:POKEM%+L%,46:GOTO50070
50080 POKEM%+L%+C,2
50090 BR=100:POKE198,0:RETURN