5HN GH>F >~ dŽÉn# ¡ ******* SLALOME SKIING ******* x ¡ ‚ ¡ **** initialize values Œ Œ H(20),Q(20,2),U(20):  0,255 –! ·:± 26,3:«:ƒ"Slalome Skiing":ª ª ± 1,7:„ Z<>0 ‰ 210 ´( –"JOYSTICK CONTROL (YES OR NO)? ";A1$ ¾c S=2:„ A1$(;1,1)="Y" ´ A1$(;1,1)="y" ‰ S=1 ˆ ƒ"Use '<' and '>' repeatively for left and right." È! –"Number of players (1-5)? ";Z Ò0 –"SLOPE OF MOUNTAIN (0 STEEP - 100 FLAT)? ";E Ü6 –"Pickup speed (0 fast - 8 slow)? ";D1:D1=(9-D1)/10 æ ¡ **** clear pole data ð( Š I=0 ™ 20:Š J=0 ™ 2:Q(I,J)=0:‹ J:‹ I ú2 ¡ **** create positions for poles (alternating) & P=0:F=-1:Š Y=240 ™ 32 š -¼(Ì*15+35) 6 „ F=-1 ‰ X=300+¼(Ì*70):F=1 ˆ X=¼(Ì*70)+160:F=-1 + Q(P,0)=X:Q(P,1)=Y:Q(P,2)=F:P=P+1:‹ Y:R=1 "$ ¡ **** set up screen for hillside , ¸:P=0:± 1,15:ƒ [A64 45]; 6( ¡ **** set error for disqualification @ à 790 J ¡ **** draw in all poles T% ’ [Q(P,0),Q(P,1),Q(P,2)] 610:P=P+1 ^ „ Q(P,0)<>0 ‰ 340 h% ¡ **** wait for player to be ready r0 ± 1,16:ƒ"Player"R", press any key to start."; | „ Þ$="" ‰ 380 † ¡ **** initialize variables 0 T=0:K=1:A=5:B1=-1:V=255:W=255:X=255:Y=255:P=0 š ¡ **** main game loop ¤. S ’ 510,550:V=X:W=Y:X=X-A*¼(B1):Y=Y+¼(B1) ® Š I=0 ™ E:‹ I:T=T+1+E/50 ¸" G=-Æ:± 1,16:ƒ"Player"R": "; Â! ± 15,16:G=-Æ:ƒ"Time "T" "; Ì& ± 28,16:ƒ"Time Limit "G+300" "; Ö% „ K=-1 ‰ ± 50,16:ƒ"Disqualified!"; à2 „ Y4 ³ L<>8 ‰ 560  „ L=4 ‰ A=A-1 ˆ A=A+1  580  ¡ ***** input from keyboard & „ ¾(258)=44 ´ ¾(258)=46 ‰ 570 0 B1=B1-D1:• : „ ¾(258)=44:A=A-1 ˆ A=A+1 D „ B1<-1 ‰ B1=B1+D1 N • X ¡ **** draw in a pole bZ ž(M,N,G):O1=Í(N+1)/80+1:Ø M,N ™ M,N+¼(40/O1) ™ M+G*¼(20/O1),N+¼(36/O1) ™ M,N+¼(32/O1):• l& ¡ **** draw in a turned around pole v O1=Í(N+1)/80+1:ØR M,N+¼(40/O1) ™ M+G*¼(20/O1),N+¼(36/O1) ™ M,N+¼(32/O1):Ø M,N+¼(40/O1) ™ M-G*¼(20/O1),N+¼(36/O1),N+¼(36/O1) ™ M,N+¼(32/O1):• ŠP O1=Í(N+1)/80+1:ØR M,N ™ M,N+¼(40/O1) ™ M+G*¼(20/O1),N+¼(36/O1) ™ M,N+¼(32/O1) ”E Ø M,N ™ M+¼(80/O1)*G,N ™ M+¼(72/O1)*G,N-¼(8/O1) ™ M+¼(64/O1)*G,N:• ž* ¡ **** check postion as we go past pole ¨ ž (M,N,G) ² „ G=-1 ‰ 750 ¼ ¡ **** right facing pole Æ „ X>M ‰ 730 Ð K=-1:„ X>M-20 ‰ ’ 650 ˆ ’ 630 Ú • ä ¡ **** left facing pole î „ X510 ´ Y>33 ‰ ± 1009:ƒ"Disqualified";:K=-1  5 H(R)=T*K:R=R+1:Š I=0 ™ 1500:‹ I:A1$=Þ:„ R<=Z ‰ 300 * ¡ **** add up scores 4. Š I=1 ™ Z:„ H(I)>0 ‰ U(I)=U(I)+10000/H(I) > ‹ I H ¡ **** display scores R ·:± 28,2:«:ƒ"Scores":ª:ƒ \. Š I=1 ™ Z:ƒ ›(15)"Player";I[A20 46]U(I):‹ I f ¡ **** input for another go p ± 1,16 z5 ƒ"Press any key to continue, to restart"; „ A1$=Þ:„ A1$="" ‰ 900 Ž „ A1$=ß(13) ‰ 150 ˆ 240 ÿÿSLALOM€*(.9-Ì*.15) ® ‹ C ¸ ‹ D Â_ Š D=B ™ B+10:A1$=A0$(D):A1$=A1$(;A,A+20):F=Á(A1$,A2$):„ F=0 ‰ 500 ˆ „ Ì<.5 ‰ 500