1 REM **************************** 2 REM * * 3 REM * HINDERL\P * 4 REM * * 5 REM * Fredrik Ull`n * 6 REM * * 7 REM * 1980-07-11 * 8 REM * * 9 REM **************************** 10 ; CHR$(12);TAB(12%);"HINDERL\P F.U. 80-07-11" 11 ; TAB(10%);CHR$(151%);"###########" 12 ; : ; "F|rs|k styra den r|rliga punkten fr}n" 13 ; "hinderna vilka ritas upp p} sk{rmen." : ; 14 ; "Du styr punkten med U och N vilka mot-" : ; "svarar Upp och Ned." : ; : ; "Du anger sj{lv punktens hastighet." 15 ; : ; "LYCKA TILL!" : ; : ; "TRYCK P] RETURN N[R DU [R REDO!" 16 INPUTLINE O$ 17 ; CHR$(12);"VILKEN HASTIGHET P] BOLLEN(1-3) "; : INPUT V% : ; : ; 18 IF V%<1% OR V%>3% THEN 17 19 ; : ; "OM 3 SEKUNDER KAN DU B\RJA!" : FOR X=1 TO 3000 : NEXT X 20 RANDOMIZE 21 R1%=35% : K1%=4% 22 ; CHR$(12); : FOR I=0 TO 23 : ; CUR(I,0);CHR$(151%); : NEXT I 23 SETDOT R1%,K1% 24 FOR X=1 TO (4%-V%)*10 : NEXT X 25 IF RND<.9 OR K1%>=69 THEN 33 26 X1%=R1%-INT(RND*12%) : X2%=R1%+INT(RND*12%) 27 IF X1%<0% THEN X1%=0% 28 IF X2%>70% THEN X2%=70% 29 FOR G%=X1% TO X2% 30 SETDOT G%,K1%+8% 31 NEXT G% 32 ; CUR(0,1);CHR$(7) 33 CLRDOT R1%,K1% 34 IF INP(56%)=85%+128% AND R1%>1% THEN R1%=R1%-1% 35 IF INP(56%)=78%+128% AND R1%<69% THEN R1%=R1%+1% 36 IF INP(56%)=85+128% OR INP(56%)=78+128% THEN 38 37 K1%=K1%+1% 38 IF K1%=79% THEN 41 39 IF DOT(R1%,K1%) THEN 59 40 GOTO 23 41 FOR H%=1% TO 3% : FOR X%=1% TO 30% 42 OUT 6,3,5,0 43 OUT 6,57 : OUT 6,57 44 NEXT X% 45 OUT 6,0 : FOR X=1 TO 30 : NEXT X 46 NEXT H% 47 FOR X%=1% TO 90% 48 OUT 6%,3%,5%,0 49 OUT 6,57 : OUT 6,57 50 NEXT X% 51 FOR X%=1% TO 150% 52 OUT 6,3,5,0 53 OUT 6,57 : OUT 6,57 54 NEXT X% 55 ; CHR$(12);"GRATTIS!" : ; : ; "DU KLARADE DIG IGENOM!" 56 ; : ; "VILL DU SPELA IGEN (JA/NEJ)"; : INPUT Q$ : IF (ASC(Q$) AND 223%)=78% THEN 57 ELSE 17 57 ; : ; "O.K." 58 END 59 OUT 6,75 60 SETDOT R1%;K1% 61 FOR X=1 TO 2000 : NEXT X 62 OUT 6,0 63 ; CHR$(12);"TYV[RR!" : ; : ; "DU KLARADE DIG INTE IGENOM!" 64 GOTO 56