10 REM WEIGHTLIFTER
20 GOSUB 2000 30 SC=0:WEIGHT=100 40 F=20 100 MODE 1:N=1 110 GOSUB 3000 120 GOSUB 1000 130 LOCATE 1,20: PRINT"SCORE : ";SC 140 LOCATE 20,4:PRINT"NOW LIFTING :";WEIGHT 145 IF INKEY$<>"" THEN GOTO 500 150 IF RND>0.008 THEN GOTO 150 160 Q=0 170 Q=Q+1:LOCATE Q,14 180 PRINT "*"; 185 FOR T=1 TO F:NEXT T 190 IF INKEY$<>"" THEN GOTO 400 200 IF Q<40 THEN GOTO 170 210 GOTO 500 400 IF Q<15 OR Q>22 THEN GOTO 500 410 IF N<4 THEN N=N+1:SC=SC+WEIGHT*N/10:LOCATE 1,14:PRINT " ":GOTO 110 420 LOCATE 25,6:PRINT "LIFTED !!!" 430 FOR B=1 TO 26 440 SOUND 1,B*20,10:BORDER B:NEXT B 450 WEIGHT=WEIGHT+10 460 IF F>1 THEN F=F-1 470 GOTO 100 500 REM FOUL LIFT 510 LOCATE 25,6:PRINT "FOUL" 520 FOR W=1 TO 200:NEXT W 530 LOCATE 1,23: PRINT "YOU MADE IT TO ";WEIGHT;" POUNDS" 540 IF INKEY$=" " THEN GOTO 540 550 IF INKEY$<>" " THEN GOTO 550 560 RUN 900 REM CLEAR WINDOW 910 WINDOW 1,10,1,10 920 CLS 930 WINDOW 1,40,1,25 990 RETURN 1000 REM DRAW LIFTER IN POSITION (N) 1010 GOSUB 900 1020 ON N GOTO 1100,1200,1300,1400 1100 PLOT 64,379:DRAW 64,349:DRAW 94,349:DRAW 94,379:DRAW 64,379 1110 PLOT 79,349:DRAW 79,300:DRAW 39,240:PLOT 79,300:DRAW 119,240 1120 PLOT 39,312:DRAW 39,320:DRAW 79,335:DRAW 119,320:DRAW 119,312 1130 PLOT 16,265:DRAW 142,265 1140 PLOT 17,240:DRAW 17,290:PLOT 18,240:DRAW 18,290:PLOT 19,240:DRAW 19,290 1150 PLOT 139,240:DRAW 139,290:PLOT 140,240:DRAW 140,290:PLOT 141,240:DRAW 141,290 1199 RETURN 1200 PLOT 64,364:DRAW 64,334:DRAW 94,334 :DRAW 94,364:DRAW 64,364 1210 PLOT 79,334:DRAW 79,290 1220 PLOT 39,240:DRAW 64,290:DRAW 94,290:DRAW 119,240 1230 PLOT 39,265:DRAW 39,273:DRAW 79,320:DRAW 119,273:DRAW 119,265 1240 PLOT 16,265:DRAW 142,265 1250 PLOT 17,240:DRAW 17,290:PLOT 18,240:DRAW 18,290:PLOT 19,240:DRAW 19,290 1260 PLOT 139,240:DRAW 139,290:PLOT 140,240:DRAW 140,290:PLOT 141,240:DRAW 141,290 1299 RETURN 1300 PLOT 64,379:DRAW 64,349:DRAW 94,349:DRAW 94,379:DRAW 64,379 1310 PLOT 79,349:DRAW 79,300:DRAW 39,240:PLOT 79,300:DRAW 119,240 1320 PLOT 52,341:DRAW 52,335:DRAW 60,312:DRAW 79,335:DRAW 98,312:DRAW 106,335:DRAW 106,341 1330 PLOT 16,341:DRAW 142,341 1340 PLOT 17,316:DRAW 17,367:PLOT 18,316 :DRAW 18,367:PLOT 19,316:DRAW 19,367 1350 PLOT 139,316:DRAW 139,367:PLOT 140,316:DRAW 140,367:PLOT 141,316:DRAW 141,367 1390 RETURN 1400 PLOT 64,379:DRAW 64,349:DRAW 94,349:DRAW 94,379:DRAW 64,379 1410 PLOT 79,349:DRAW 79,300:DRAW 39,240:PLOT 79,300:DRAW 119,240 1420 PLOT 52,379:DRAW 64,335:DRAW 94,335:DRAW 106,379 1430 PLOT 17,399:DRAW 17,367:DRAW 18,367:DRAW 18,399:DRAW 19,399:DRAW 19,367 1440 PLOT 139,399:DRAW 139,367:DRAW 140,367:DRAW 140,399:DRAW 141,399:DRAW 141,367 1450 PLOT 16,379::DRAW 142,379 1499 RETURN 2000 REM INSTRUCTIONS SUBROUTINE 2010 MODE 1 2020 LOCATE 10,1:PRINT "WEIGHTLIFTER" 2030 LOCATE 9,2:PRINT "==============" 2040 LOCATE 1,5:PRINT "In this game you try to help Feeble Fredas he attempts to lift weights" 2050 PRINT:PRINT "Unfortunately, his timing isn't all it could be, and so you need to tell him when he must move to the next stage of the lift." 2060 PRINT:PRINT "As the timing light flies across the screen, you must shout at Fred to lift while it is between the two critical points." 2070 LOCATE 13,20:PRINT " < SPACE > " 2080 IF INKEY$=" " THEN GOTO 2080 2090 IF INKEY$<> " " THEN GOTO 2090 2099 RETURN 3000 REM mark critical points 3010 INK 2,11 3020 PEN 2 3030 PLOT 1,192:DRAW 639,192:PLOT 1,174:DRAW 639,174 3040 LOCATE 15,13:PRINT CHR$(214) 3050 LOCATE 22,13:PRINT CHR$(215) 3060 LOCATE 15,15:PRINT CHR$(213) 3070 LOCATE 22,15:PRINT CHR$(212) 3090 INK 1,24:PEN 1:BORDER 5 3099 RETURN |