start tok64 d64-wfHALG 0 REM **** matematik hjaelper **** **** af kim h. hansen **** 1 FORt=1TO7:READgi$(t):NEXT 2 IFPEEK(194)=255THEN10 4 POKE194,255 5 GOTO1500 7 POKE53281,0:POKE53280,3 10 POKE53280,7:POKE53281,1:PRINT"{clear}{black}{reverse on}{right*4}*** matematik-hjaelpeprogram ***" 20 PRINT"{down*2}{reverse on} hovedmenu :" 30 PRINT"{down}{space*2}1.{space*7}er x et primtal" 40 PRINT"{down}{space*2}2.{space*7}kvadratroden af x" 50 PRINT"{down}{space*2}3.{space*7}gennemsnit" 60 PRINT"{down}{space*2}4.{space*7}x opl0ftet i y potens" 70 PRINT"{down}{space*2}5.{space*7}divisore{space*2}i x" 80 PRINT"{down}{space*2}6.{space*7}sum af divisore i x" 90 PRINT"{down}{space*2}7.{space*7}skriv en tabel" 100 PRINT"{down*2} ryk joysticket til det tal du 0nsker{space*5}og tryk paa knappen" 105 y=5:POKE56320,255 110 z=PEEK(56320):GETa$:a=VAL(a$) 111 IF(zAND1)=0THENy=y-2:IFy<5THENy=y+2 112 IF(zAND2)=0THENy=y+2:IFy>18THENy=y-2 113 IF(zAND16)=0THENa=PEEK(1026+y*40)-48:GOTO119 114 POKE1026+y*40,PEEK(1026+y*40)+128 115 POKE55298+y*40,2 117 FORt=1TO100:NEXTt:POKE1026+y*40,PEEK(1026+y*40)-128:FORt=1TO100:NEXTt 118 POKE55298+y*40,0 119 IFa<1ORa>7THEN110 120 FORt=1TO500:NEXT:PRINT"{clear}{down*5}{space*4}du valgte :{space*2}{red}{reverse on}"gi$(a) 130 FORt=1TO2000:NEXTt:POKE198,0:ONaGOSUB200,300,400,500,600,700,800 140 GOTO110 200 PRINT"{clear}{space*4}{black} *****{reverse on} er{space*2}x{space*2}et{space*2}primtal {reverse off}*****" 205 INPUT"{down*3} indtast x";b:p=0 210 FORt=1TOb:IFINT(b/t)=b/tTHENp=p+1 220 IFp>2THENPRINT"{down*2}det er ikke et primtal":GOTO240 225 NEXTt 230 PRINT"{down*2} det er et primtal" 240 GOSUB1000 250 IFq=1THEN10 260 GOTO200 300 PRINT"{clear}{space*2}{black}{space*4}**** {reverse on}kvadratroden af x{reverse off} ****" 310 INPUT"{down*2} skriv x";b:c=0 320 c=SQR(b) 330 PRINT"{down*3} kvadratroden af"b"er"c 340 GOSUB1000 350 IFq=1THEN10 360 GOTO300 400 PRINT"{clear} {black}{space*2}*****{reverse on} gennemsnit {reverse off}*****":CLR 410 INPUT"{down*2}hvor mange tal";b 411 IFb<2ORb>15THENPRINT"{down*3}min. 2{space*11}max. 15":GOTO410 420 DIMc(b):FORt=1TOb 430 PRINT"tal nr."t"=";:INPUTc(t):d=d+c(t):NEXTt 431 IFb>8THEN433 432 INPUT"{down} 0nskes en grafisk afbildning";i$:i$=LEFT$(i$,1):IFi$="j"THEN2100 433 y$="{space*40}" 435 PRINT"{home}{down*2}"y$y$y$y$y$y$y$y$y$y$y$y$ 440 e=d/b:PRINT"{home}{down*3}gennemsnit ="e 450 GOSUB1000 460 IFq=1THENRUN 470 GOTO400 500 PRINT"{clear} {black}{space*2}***** {reverse on}x opl0ftet i{space*2}y potens {reverse off}*****" 510 INPUT"{down*2}skriv x";b 520 INPUT"{down*2}skriv y";c 530 d=b^c 540 PRINT"{down*2}"b"opl0ftet i"c"potens ="d 550 GOSUB1000 560 IFq=1THEN10 570 GOTO500 600 PRINT"{clear}{space*4}{black}{space*2}*****{reverse on} divisore i x {reverse off}*****" 610 INPUT"skriv x";b 620 FORt=1TOb-1:IFINT(b/t)=b/tTHENPRINTt"{space*5}"; 621 NEXTt 630 GOSUB1000 640 IFq=1THEN10 650 GOTO600 700 PRINT"{clear}{space*2}{black} *****{reverse on} sum af divisore i x {reverse off}*****" 710 INPUT"{down*3}skriv x";b:d=0 720 FORt=1TOb-1:IFINT(b/t)=b/tTHENd=d+t 721 NEXT 730 PRINT"{down*2}summen af divisorene i"b"er"d 740 GOSUB1000 750 IFq=1THEN10 760 GOTO700 800 PRINT"{clear}{space*4}{black}*****{reverse on} skriv en tabel {reverse off}*****" 810 INPUT"{down*3}hvilken tabel";b 820 FORt=1TO1500:NEXTt:PRINT"{clear}" 830 FORt=1TO15:PRINTt*b,(t+15)*b,(t+30)*b,(t+45)*b 840 NEXT 850 GOSUB1000 860 IFq=1THEN10 870 GOTO800 1000 PRINT"{home}{down*17}":PRINT"{down} 1.{space*3}tilbage til hovedmenu." 1010 PRINT"{down} 2.{space*3}blive her." 1015 y=19 1020 z=PEEK(56320):GETa$:a=VAL(a$) 1025 IF(zAND16)=0THENa=PEEK(1025+y*40)-48 1030 IF(zAND1)=0THENy=y-2:IFy<19THENy=y+2 1040 IF(zAND2)=0THENy=y+2:IFy>21THENy=y-2 1045 POKE55297+y*40,2 1050 POKE1025+y*40,PEEK(1025+y*40)+128 1060 FORt=1TO150:NEXT:POKE1025+y*40,(PEEK(1025+y*40)-128):FORt=1TO150:NEXT 1065 POKE55297+y*40,PEEK(646) 1070 IFa<1ORa>2THENa=0:GOTO1020 1080 IFa=1ANDgi$(1)<>""THEN10 1081 IFa=1THENRUN 1090 IFa=2THENRETURN 1100 GOTO1000 1500 a$="-matematik hjaelper-{space*6}":POKE53281,1:POKE53280,13 1505 a$=a$+"dette program har 7 matematiske funktioner som frit kan v0lges" 1510 a$=a$+". man kan enten v0lge en funktion ved at trykke paa den paag0ldende" 1515 a$=a$+" tast.{space*3}men man kan ogsaa bruge et joystick i port ii til at v0lge" 1520 a$=a$+" funktionen." 1522 a$="{space*10}"+a$+"{space*10}" 1525 PRINT"{black}{clear}{down*4}"TAB(16)"(c) kcs" 1527 PRINT"{home}{down*5}"TAB(14)"{reverse on} {right*10} " 1530 PRINTTAB(14)"{reverse on} {right*10} " 1535 PRINTTAB(14)"{reverse on}{space*12}" 1540 FORt=1TOLEN(a$):PRINT"{home}{down*6}"TAB(15)MID$(a$,t,10):FORh=1TO70:NEXT:NEXT 1545 PRINT"{home}{down*10}{red}"TAB(16)"tryk {reverse on}f1{reverse off}" 1580 GETa$:z=(PEEK(56320)AND15):IFz=0THENa$="{f1}" 1585 IFa$="{f1}"THEN10 1590 GOTO1580 2000 DATA"er x et primtal","kvadratroden af x","gennemsnit" 2010 DATA"x opl0ftet i y potens","divisore i x","sum af divisore i x" 2020 DATA"skriv en tabel" 2100 PRINT"{clear}":READa$:IFa$<>"data"THEN2100 2110 FORt=680TO747:READj:POKEt,j:k=k+j:NEXT:k=k-7274 2120 IFkTHENPRINT"fejl" 2130 DATA"data",162,185,160,2,208,4,162,228,160,167,142,8,3,140,9,3 2140 DATA96,32,115,0,8,201,64,240,4,40,76,231,167,40,32,115 2150 DATA0,32,244,183,224,25,144,5,162,14,108,0,3,134,2,32 2160 DATA241,183,224,40,176,242,138,168,166,2,24,32,240,255,32,121 2170 DATA0,76,231,167 2180 SYS680:FORt=0TO39:@21,t:PRINT"{sh asterisk}":NEXT 2190 f=1 2195 FORt=1TOb:IFc(t)/f<20THENNEXT:GOTO2210 2200 IFf>1THENf=f+5:GOTO2195 2205 f=f+4:GOTO2195 2210 PRINT"{home}{space*2}hver {reverse on} {reverse off} svarer til"f"enheder" 2211 FORt=1TOb:c(t)=INT(c(t)/f):NEXT 2215 GOSUB2700 2220 FORt=1TOb:GOSUB2500:NEXT 2230 g=INT((d/b)/f+.5):GOSUB2600 2235 FORt=1TO1000:NEXT 2240 PRINT"{home}{space*40}{left*5}" 2250 PRINT"{home}{space*3}tryk en tast ":POKE198,0:WAIT198,1:PRINT"{clear}":GOTO433 2500 x=t*3:FORh=1TOc(t):@21-(h),x+4:PRINT"{reverse on} ":NEXT:@23,x+3:PRINTt:RETURN 2600 FORt=1TOg:@21-t,32:PRINT"{reverse on} ":NEXT:@23,32:PRINT"g":RETURN 2700 FORt=fTOf*19STEPf:@t/f+1,1:PRINTf*20-t:@t/f+1,5:PRINT" {sh -}":@t/f+1,34 2703 PRINT"{sh -}"f*20-t 2705 NEXT 2710 @t/f+1,6:PRINT"{cm e}":@t/f+1,34:PRINT"{cm e}":RETURN stop tok64 (bastext 1.0)