64'er 1993 January/64er_Magazin_93-01_1993_Markt__Technik_de.d64/determinator

Commodore BASIC | 1993-01-01 | 1.1 KB | 21 lines

1 printchr$(14);chr$(8);"[147][158]";tab(14);"[196][197][212][197][210][205][201][206][193][212][207][210]":poke53280,0:poke53281,0
2 print"f1[146] [204]ineare [199]leichungen":print"f3[146] [209]uadratische [199]leichungen"
3 print"f5[146] [204]ineare [199]leichungssysteme":print"   mit zwei [214]ariablen":print"f7[146] [197]nde"
4 geta$:a$=a$+chr$(0):ifasc(a$)<133orasc(a$)>136then4
5 on asc(a$)-133goto9,14,19
6 print"[147]       a*x+b=0":gosub20:print"           a,b":print"ein.":inputa,b
7 ifa=0thenprint"[196]ieser [198]all ist nicht definiert!!!":wait198,1:goto1
8 print"[167][204]=[";-b/a;"]":wait198,1:goto 1
9 print"[147]       a*x^2+b*x+c=0":gosub20:print"           a,b,c":print"
10 [133]a,b,c:d[178]b[174]2[171]4[172]a[172]c:[139]a[178]0[167]a[178]b:b[178]c:[137]7
11 [139]d[177]0[167][153]"then(NULL)=[";([171]b[170][186](d))[173](2[172]a);";";([171]b[171][186](d))[173](2[172]a);"]":[146]198,1:[137]1
12 [139]d[178]0[167][153]"then(NULL)=[";[171]b[173]2[172]a;"]":[146]198,1:[137] 1
13 [153]"then(NULL)=[]":[146]198,1:[137]1
14 [153]"load       a1*x+b2*y+c1=0":[153]"       a2*x+b2*x+c2=0":[141]20:[153][163]11);"";
15 [153]"a1,b1,c1":[153][163]11)"a2,b2,c2":[153]"ein.":[133]a,b,c,a2,b2,c2:d[178]a[172]b2[171]a2[172]b
16 dx[178]b[172]c2[171]b2[172]c:dy[178]c[172]a2[171]c2[172]a:[139]d[179][177]0[167][153]"then(NULL)=[(";dx[173]d;"then";dy[173]d;")]":[146]198,1:[137]1
17 [139]dx[178]0[175]dy[178]0[167][153]"then(NULL)=[(xtheny)then";a1;"*x+";b1;"*y+";c1;"=0]":[146]198,1:[137]1
18 [153]"then(NULL)=[]":[146]198,1:[137]1
19 [158]64738:[143] sys-befehl kann durch <end> ersetzt werden
20 [153]"peekitte geben (NULL)ie die (NULL)oeffizienten in derascorm":[142]