1 REM *****************************
2 REM * TANGFEEL.BAC - 16 K Minne *
3 REM * 82-10-05 / VER 1.0        *
4 REM * (c) Alf Wirdling   <4230> *
5 REM *****************************
10 ; CHR$(12)TAB(10)"'TANGENT-FEELING'"
20 ; TAB(10)"================="
30 ; : ; "Spelet g}r ut p} att ha den r{tta       'feelingen' f|r hur l{nge en tangent"
40 ; "skall h}llas nedtryckt f|r att en punkt ska komma s} n{ra sk{rmens |verkant som"
50 ; "m|jligt."
60 ; "Du trycker p} vald tangent och n{r du   sl{pper den }ker punkten upp den"
70 ; "str{cka som motsvarar den tid du h}llit tangenten nedtryckt."
80 ; "Efter 10 ned-tryckningar f}r Du         slut-totalen."
90 ; : ; "TRYCK P] DEN TANGENT DU \NSKAR"
100 ; "SPELA MED "; : GET T$ : ; T$ : A1%=ASC(T$)+128% : A2%=A1%-128%
110 ; : ; "--- JU L[GRE SIFFRA, DESTO SNABBARE ---" : GOTO 140
120 ; : ; "Tryck RETURN f|r samma K[NSLIGHET"
130 ONERRORGOTO 300
140 ; : ; "TANGENTENS K[NSLIGHET (1-50) "; : INPUT D% : D2%=D%
150 ; : ; "DEMONSTRATION AV HASTIGHET" : FOR F=0 TO 2000 : NEXT F
160 GOSUB 280 : FOR I%=0% TO 66% : FOR J%=1% TO D%*1.05 : SETDOT 66%-I%,39% : NEXT J% : NEXT I%
170 IF INP(56%)=141% ; : ; "SLUT P] TANGENT-FEELING" : END ELSE S%=0% : GOSUB 280
180 FOR I%=1% TO 10% : T%=0%
190 ; CUR(23%,0%)"TRYCK: "T$" ("I%" )"; : SETDOT 66%,39%
200 IF INP(56%)<>A1% 200
210 IF INP(56%)<>A2% T%=T%+1% : GOTO 210
220 T%=66%-T%/D% : IF T%<0% ; CUR(23%,0%)"F\R L]NG TID      "; : ; CUR(23%,18%)" 0 "; : W%=0% ELSE 260
230 FOR F=0 TO 2000 : NEXT F : IF W%=1% CLRDOT T%,39%
240 NEXT I%
250 ; CUR(23%,19%)"SLUT-TOTAL:"S%"     " : GET T$ : M%=M%+1% : GOSUB 310 : GOTO 120
260 CLRDOT 66%,39% : SETDOT T%,39%
270 S%=S%+(66%-T%) : ; CUR(23%,18%);66%-T%;TAB(25%)" TOTALT:"S%; : W%=1% : GOTO 230
280 ; CHR$(12) : FOR G%=0% TO 22% : ; CUR(G%,3%)CHR$(151%) : NEXT G%
290 FOR G%=0% TO 22% : ; CUR(G%,0%)66%-G%*3%;CUR(G%,34%)CHR$(135%)66%-G%*3% : NEXT G% : RETURN 
300 D%=D2% : GOTO 150
310 IF N%<10% 330
320 FOR P2%=1% TO 9% : V%(P2%-1%)=V%(P2%) : V2%(P2%-1%)=V2%(P2%) : NEXT P2% : N%=9%
330 V%(N%)=S% : V2%(N%)=D% : ; : ; "De 10 sista omg}ngarna:" : ; : ; "       SLUT-TOTAL   K[NSLIGHET" : ; 
340 S%=0% : FOR P%=0% TO N% : ; "Omg}ng"M%-(N%-P%)":"V%(P%);TAB(23)V2%(P%) : S%=S%+V%(P%) : NEXT P% : N%=N%+1%
350 ; : ; "Totalt  :"S%;TAB(24)"-" : RETURN