1 REM Ins{nd av Conny Westh <7433> 1990-04-02 02.26.29 (KERMIT)
10 REM (C) Diddi Hellgren 1986 Sthlm
11 REM Detta program skapade den fantastiskt duktiga Didja Hellgren
12 REM efter bara en dags instruktioner av mig. Hon hade ALDRIG tidigare
13 REM anv{nt den BASIC som finns i ABC80 (men v{l i andra datorer)
14 REM Men eftersom hon inte {r medlem i ABC-klubben s} f}r jag skicka
15 REM in detta program till klubben.
16 REM
17 REM <7433> Conny Westh 1990-04-01
18 REM
19 REM Programmet testar hur bra man kan multiplikationstabellen
20 REM och ger sedan en viss po{ng som man kan anv{nda p} mindre barn
21 REM f|r att m{ta deras framsteg ({ven vuxna kan friska upp minnet
22 REM ibland med detta program)
29 REM ----------------------------------------------------------------
20 DIM I(5,6) : DIM J(5,6)
30 ; CHR$(12)
40 ; " * ";
50 FOR K=1 TO 5
60 RANDOMIZE
70 T(K)=INT(RND*9)+1
80 E(K)=T(K)
90 FOR F=1 TO K
100 IF T(K)=E(F) AND F<>K THEN 70
110 NEXT F
120 ; " "T(K);
130 NEXT K
140 ;
150 ; TAB(3);".........................."
160 ; TAB(3);"."
170 FOR K=1 TO 5
180 S(K)=INT(RND*9)+1
190 E(K)=S(K)
200 FOR F=1 TO K
210 IF S(K)=E(F) AND F<>K THEN 180
220 NEXT F
230 ; S(K);" ."
240 ; TAB(3);"."
250 NEXT K
260 FOR K=1 TO 5
270 X(K)=T(K)*S(K)
280 NEXT K
290 ;
300 ;
310 K=1
320 FOR K=1 TO 5
330 FOR J=1 TO 5
340 ; CUR(17,0);"VAD BLIR ";T(J);" * ";S(K);" ?"
350 ONERRORGOTO 400
360 INPUT D(J)
370 X(J)=T(J)*S(K)
380 IF D(J)=X(J) THEN ; CUR(22,10)," "
390 IF D(J)=X(J) THEN ; CUR(K*2+2,J*6-J+1);X(J)
400 IF D(J)<>X(J) THEN ; CUR(22,10);"FEL! F\RS\K IGEN." : P=P+1 : FOR N=0 TO 200 : OUT 6,3 : NEXT N : OUT 6,0
410 IF D(J)<>X(J) THEN GOTO 340
420 ; CUR(18,0)," "
430 NEXT J
440 NEXT K
450 ;
460 ; "GRATTIS! DU HAR FYLLT TABELLEN."
470 ;
480 ; "TRYCK P]