0 REM--AHOY!--JUNE ISSUE--ALPINER--PROG PAGE 47
1 REM *****  A L P I N E R  *****
2 REM ** DESIGNED BY-BOB LLORET **
3 REM **** FOR AHOY' MAGAZINE ****
4 REM ============================
10 PRINT "[147]":POKE 53280,6:POKE53281,0
20 PRINT TAB(18);"THE":PRINT TAB(11);"\ A L P I N E R \"
25 PRINT TAB(13);"[156]BY:BOB LLORET"
30 PRINT TAB(6);"NUMBER OF PLAYERS:";:INPUT NP
40 IF NP<1 OR NP>4 THEN 10
50 PRINT SPC(6);"[149]ENTER PLAYER'S FIRST NAMES"
55 FOR I=1 TO NP
60 PRINT TAB(6);"[158]PLAYER #";I;:INPUT NAME$(I)
70 NEXT I
98 REM ***  DIFFICULTY LEVEL  ***
99 REM ==========================
100 PRINT "[147]":POKE 53280,0:POKE 53281,7
110 PRINT TAB(10);"[149][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
120 PRINT TAB(10);"[194] * PLAYER LEVEL * [194]"
130 PRINT TAB(10);"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
140 PRINT "";TAB(13);"[1][146] AMATURE":PRINT TAB(13);"[156][2][146] PROFESSIONAL"
150 PRINT TAB(13);"[3][146] ALPINER":PRINT TAB(12);"[149]YOUR CHOICE [1-3][146]"
160 GET CH$:IF CH$="" THEN 160
170 IF CH$="1" THEN S=13:OBS=6
175 IF CH$="2" THEN S=12:OBS=5
180 IF CH$="3" THEN S=10:OBS=3
190 PRINT "[147]":POKE 53280,6:POKE 53281,3
200 PRINT "[144]   HOLD ON...I'M ARRANGING THE COURSE
210 [137] 1000
220 [141] 1200:[141] 900
225 [129] T[178]1 [164] NP
230 [153] "LOAD":[151] 53280,14:[151] 53281,1:X[178]160:Y[178]145:SC(T)[178]50000:M(T)[178]0:GA[178]0
235 [129] A[178]1 [164] 10:[153]:[130] A
240 [153] [163]12);"GET READY,";NAME$(T)
245 [129] A[178]1 [164] 11:[153]:[130] A
250 [151] V,X:[151] V[170]1,Y:[151] V[170]21,1
255 [129] D[178]1 [164] 1500:[130] D
260 SI[178]54272:[129] I[178]0 [164] 24:[151] SI[170]I,0:[130] I
265 [143] ****  MAIN 1ST LOOP  ****
266 [143] =========================
270 [129] COUNT[178]1 [164] 600:C[178][181]([187](0)[172]11)
280 [153] "";[163]C);[199](94);[163]C[170]28);[199](94)
285 [151]SI[170]24,3:[151]SI[170]5,64:[151]SI[170]6,130:[151]SI[170]1,17:[151]SI,37:[151]SI[170]4,129
290 [158](49400)
300 [139] [194](V[170]31)[175]X[178]X[167][151]2040,14:SC(T)[178]SC(T)[171]150:M(T)[178]M(T)[170]1
320 B[178]B[170]1:[139] B[177][178]S [167] C2[178][181]([187](0)[172]15)[170]10:[137] 340
330 [137] 350
340 [153]"ON";[163]C2);[199](95);[163]C2[170]5);[199](95):B[178]0:[151]2040,13:GA(T)[178]GA(T)[170]1
350 [130] COUNT
355 [143] ***  END OF RUN  ***
356 [143] ====================
360 [129] A[178]1 [164] 30:C[178][181]([187](0)[172]11):[153]"";[163]C);[199](94);[163]C[170]28);[199](94)
365 [130] A
370 [151] SI[170]4,16:[151] SI[170]1,0:[151] SI,0
380 LE$[178]"FIRST":[141] 800
385 [143] ****  SECOND LEG  ****
386 [143] ======================
390 [153] "LOAD":[151] 53280,14:[151] 53281,1:X[178]160:Y[178]145:M[178]0
400 [129] A[178]1 [164] 10:[153]:[130] A
410 [153] [163]12);"GET READY,";NAME$(T)
420 [129] A[178]1 [164] 11:[153]:[130] A
430 [151] V,X:[151] V[170]1,Y:[151] V[170]21,1
440 [129] D[178]1 [164] 1000:[130] D
450 [151]SI[170]24,2:[151]SI[170]5,64:[151]SI[170]6,130:[151]SI[170]1,17:[151]SI,37:[151]SI[170]4,129
455 [143] **** MAIN 2ND LOOP ****
456 [143] =======================
460 [129] COUNT[178]1 [164] 700:C[178][181]([187](0)[172]11):C1[178][181]([187](0)[172]15)[170]11
470 [153] "";[163]C);[199](94);[163]C[170]28);[199](94)
475 [139] B[178]OBS [167] 477
476 [137] 480
477 [153] [163]C1);"PRINT#";[199](96)
480 [158](49400)
490 [139] [194](V[170]31)[175]X[178]X [167] [151] 2040,14:SC(T)[178]SC(T)[171]250:M(T)[178]M(T)[170]1
500 B[178]B[170]1:[139] B[177][178]S [167] C2[178][181]([187](0)[172]15)[170]10:[137] 520
510 [137] 530
520 [153] "ON";[163]C2);[199](95);[163]C2[170]5);[199](95):B[178]0:[151] 2040,13
530 [130] COUNT
540 [129] A[178]1 [164] 25:C[178][181]([187](0)[172]11):[153] "";[163]C);[199](94);[163]C[170]28);[199](94)
545 [130] A
550 [151] SI[170]4,16:[151] SI[170]1,0:[151] SI,0
560 LE$[178]"SECOND":[141] 800
565 [143] ****  THIRD LEG  ****
566 [143] =====================
570 [153] "LOAD":[151] 53280,14:[151] 53281,1:X[178]160:Y[178]145:M[178]0
575 [129] A[178]1 [164] 10:[153]:[130] A
580 [153] [163]12);"GET READY,";NAME$(T)
585 [129] A[178]1 [164] 11:[153]:[130] A
590 [151] V,X:[151] V[170]1,Y:[151] V[170]21,1
595 [129] D[178]1 [164] 1000:[130] D
600 [151]SI[170]24,2:[151]SI[170]5,64:[151]SI[170]6,130:[151]SI[170]1,17:[151]SI,37:[151]SI[170]4,129
605 [143] **** MAIN 3RD LOOP ****
606 [143] =======================
610 [129] COUNT[178]1 [164] 800:C[178][181]([187](0)[172]11):C1[178][181]([187](0)[172]15)[170]9
620 [153] "";[163]C);[199](94);[163]C[170]28);[199](94)
630 [139] B[178]OBS [167] 650
640 [137] 660
650 [153] [163]C1);"PRINT#";[199](96);[163]C1[170]5);"VERIFYON";[199](100);[199](101);[199](102)
660 [158](49400)
670 [139] [194](V[170]31)[175]X[178]X [167] [151] 2040,14:SC(T)[178]SC(T)[171]350:M(T)[178]M(T)[170]1
680 B[178]B[170]1:[139] B[177][178]S [167] C2[178][181]([187](0)[172]15)[170]10:[137] 700
690 [137] 710
700 [153] "ON";[163]C2);[199](95);[163]C2[170]5);[199](95):B[178]0:[151] 2040,13
710 [130] COUNT
720 [129] A[178]1 [164] 25:C[178][181]([187](0)[172]11):[153] "";[163]C);[199](94);[163]C[170]28);[199](94)
730 [130] A
740 [151] SI[170]4,16:[151] SI[170]1,0:[151] SI,0
750 LE$[178]"THIRD":[141] 800
760 [139] LE$[178]"THIRD" [175] T[178]NP [167] [128]
770 [130] T
798 [143] ****  RUN RESULTS  ****
799 [143] =======================
800 [153] "LOAD":[151] V[170]21,0:[151] 53280,0:[151] 53281,6
810 [153] "STOP";[163]9);"* ";LE$;" LEG RESULTS *"
815 [153] "SYS   ";NAME$(1);":"
816 [153] "";[163]8);"NO. OF GATES....";GA(1)
817 [153] [163]8);"OBSTICLES HIT...";M(1)
818 [153] [163]8);"TOTAL SCORE.....";SC(1)
820 [139] T[179]2 [167] [129] A[178]1 [164] 16:[153]:[130] A:[137] 860
825 [153] "SYS   ";NAME$(2);":"
826 [153] "";[163]8);"NO. OF GATES....";GA(2)
827 [153] [163]8);"OBSTICLES HIT...";M(2)
828 [153] [163]8);"TOTAL SCORE.....";SC(2)
830 [139] T[179]3 [167] [129] A[178]1 [164] 12:[153]:[130] A:[137] 860
835 [153] "SYS   ";NAME$(3);":"
836 [153] "";[163]8);"NO. OF GATES....";GA(3)
837 [153] [163]8);"OBSTICLES HIT...";M(3)
838 [153] [163]8);"TOTAL SCORE.....";SC(3)
840 [139] T[179]4 [167] [129] A[178]1 [164] 8:[153]:[130] A:[137] 860
845 [153] "SYS   ";NAME$(4);":"
846 [153] "";[163]8);"NO. OF GATES....";GA(4)
847 [153] [163]8);"OBSTICLES HIT...";M(4)
848 [153] [163]8);"TOTAL SCORE.....";SC(4)
850 [129] A[178]1 [164] 3:[153]:[130] A
860 [139] LE$[179][177]"THIRD" [167] MSG$[178]"NEXT LEG COMING UP"
870 [139] LE$[178]"THIRD" [175] T[179][177]NP [167] MSG$[178]"NEXT PLAYER PLEASE"
880 [139] LE$[178]"THIRD" [175] T[178]NP [167] MSG$[178]"* FINAL RESULTS *"
885 CENT[178][181](40[171][195](MSG$))[173]2
890 [153] [163]CENT);"SYS";MSG$:[129] D[178]1 [164] 4500:[130] D:[142]
895 [156]:[128]
896 [143] ===============================
900 [129] I[178]1 [164] 101:[135] A:[151] 49151[170]I,A:[130] I
910 [129] I[178]1 [164] 19:[135] A:[151] 49399[170]I,A:[130] I:[142]
1000 [143] **** CHAR CHANGE ****
1005 [143] =====================
1010 [153] [199](142):[151] 52,48:[151] 56,48
1020 [151] 56334,[194](56334)[175]254:[151] 1,[194](1)[175]251
1030 [129] I[178]0 [164] 511:[151] I[170]12288,[194](I[170]53248):[130]
1040 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12
1050 [135] LOC:[139] LOC[178][171]1 [167] 1100
1060 [129] A[178]0 [164] 7:[135] CH:[151] LOC[170]A,CH:[130] A:[137] 1050
1070 [131] 12528,24,24,60,126,255,24,24,24
1080 [131] 12536,112,124,126,127,96,96,96,96
1090 [131] 12512,0,2,252,124,60,124,236,196
1100 [131] 12800,48,124,126,62,62,127,255,255
1110 [131] 12832,12,3,127,191,191,127,0,0
1120 [131] 12840,0,0,255,255,255,255,1,6
1130 [131] 12848,0,0,252,254,254,252,128,0,-1
1150 [137] 220
1198 [143] *** DATA FOR SPRITES ***
1199 [143] ========================
1200 V[178]53248:[151] 2040,13:[151] V[170]39,6:[151] V[170]28,3:[151] V[170]38,10:[151] V[170]37,9
1210 [129]A[178]0[164] 62:[135] CH:[151] 832[170]A,CH:[130] A
1220 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,190,0,0,190,0,0,255,0,15
1230 [131] 255,240,51,195,204,0,255,0,0,255,0,0,130,0,0,130
1240 [131] 0,0,130,0,0,130,0,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0
1250 [151] 2041,14:[151] V[170]40,6:[151] V[170]38,10:[151] V[170]37,9
1255 [129]A[178]0[164] 62:[135] CH:[151] 896[170]A,CH:[130] A
1260 [131] 0,0,0,0,0,0,0,0,0,0,192,192,8,51,192,8,15,192,8,12,192
1270 [131] 8,63,0,11,255,192,8,12,48,8,12,0,8,12,0,8,8,0,0,8,0,0,8,0
1280 [131] 0,8,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0
1300 [142]
1400 [131] 173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,38,173
1410 [131] 0,208,208,15,173,16,208,41,1,240,12,173,16,208,41,254,141,16
1420 [131] 208,206,0,208,96,173,16,208,9,1,162,63,141,16,208,142,0,208,96
1430 [131] 74,176,32,238,0,208,240,28,173,16,208,41,1,240,20,169,64,205
1440 [131] 0,208,208,13,173,16,208,41,254,162,0,141,16,208,142,0,208,96
1450 [131] 173,16,208,9,1,141,16,208,96
1460 [131] 32,0,192,32,0,192,32,0,192,32,0,192,96,32,0,192,76,5,193