GRAFIEKEN EN BAS

00000000: 01 08 25 08 E8 03 8F 20  2B 2B 2B 20 47 52 41 46  |..%.... +++ GRAF|
00000010: 49 45 4B 45 4E 20 45 4E  20 42 41 53 49 43 4F 44  |IEKEN EN BASICOD|
00000020: 45 20 2B 2B 2B 00 47 08  06 04 8F 20 20 20 20 41  |E +++.G....    A|
00000030: 41 4E 47 45 50 41 53 54  20 56 4F 4F 52 20 42 20  |ANGEPAST VOOR B |
00000040: 41 20 53 20 49 20 43 00  6F 08 1A 04 8D 32 31 33  |A S I C.o....213|
00000050: 30 3A 86 58 24 28 33 30  29 2C 58 28 33 30 29 2C  |0:.X$(30),X(30),|
00000060: 59 24 28 32 31 2C 33 30  29 2C 5A 28 33 30 29 00  |Y$(21,30),Z(30).|
00000070: 90 08 24 04 99 A3 35 29  3B 22 47 52 41 46 49 45  |..$...5);"GRAFIE|
00000080: 4B 45 4E 20 45 4E 20 42  41 53 49 43 4F 44 45 22  |KEN EN BASICODE"|
00000090: 00 B9 08 2E 04 99 22 48  4F 45 57 45 4C 20 42 41  |......"HOEWEL BA|
000000A0: 53 49 43 4F 44 45 20 42  45 53 43 48 49 4B 54 20  |SICODE BESCHIKT |
000000B0: 4F 56 45 52 20 45 45 4E  22 00 E5 08 38 04 99 22  |OVER EEN"...8.."|
000000C0: 42 45 50 45 52 4B 54 45  20 53 45 54 20 53 54 41  |BEPERKTE SET STA|
000000D0: 54 45 4D 45 4E 54 53 2C  20 49 53 20 48 45 54 20  |TEMENTS, IS HET |
000000E0: 54 4F 43 48 22 00 15 09  42 04 99 22 4D 4F 47 45  |TOCH"...B.."MOGE|
000000F0: 4C 49 4A 4B 20 48 49 45  52 4D 45 45 20 45 45 4E  |LIJK HIERMEE EEN|
00000100: 20 47 52 41 46 49 45 4B  20 54 45 20 50 4C 4F 54  | GRAFIEK TE PLOT|
00000110: 54 45 4E 2E 22 00 42 09  4C 04 99 22 56 4F 4F 52  |TEN.".B.L.."VOOR|
00000120: 20 45 4C 4B 45 20 43 4F  4D 50 55 54 45 52 20 53  | ELKE COMPUTER S|
00000130: 54 41 41 4E 20 55 49 54  47 45 42 52 45 49 44 45  |TAAN UITGEBREIDE|
00000140: 52 22 00 6E 09 56 04 99  22 4D 4F 47 45 4C 49 4A  |R".n.V.."MOGELIJ|
00000150: 4B 48 45 44 45 4E 20 54  45 52 20 42 45 53 43 48  |KHEDEN TER BESCH|
00000160: 49 4B 4B 49 4E 47 20 4F  4D 20 44 49 54 22 00 9C  |IKKING OM DIT"..|
00000170: 09 60 04 99 22 50 52 4F  47 52 41 4D 4D 41 20 54  |.`.."PROGRAMMA T|
00000180: 45 20 56 45 52 46 49 4A  4E 45 4E 2C 20 56 45 52  |E VERFIJNEN, VER|
00000190: 56 4F 4C 4D 41 4B 45 4E  20 45 4E 22 00 BE 09 6A  |VOLMAKEN EN"...j|
000001A0: 04 99 22 5A 45 4C 46 53  20 54 4F 54 41 41 4C 20  |.."ZELFS TOTAAL |
000001B0: 4F 4D 20 54 45 20 57 45  52 4B 45 4E 2E 22 00 EA  |OM TE WERKEN."..|
000001C0: 09 74 04 99 22 44 45 20  4F 55 54 50 55 54 20 56  |.t.."DE OUTPUT V|
000001D0: 41 4E 20 4D 41 58 2E 20  32 34 20 52 45 47 45 4C  |AN MAX. 24 REGEL|
000001E0: 53 20 45 4C 4B 20 4D 45  54 22 00 16 0A 7E 04 99  |S ELK MET"...~..|
000001F0: 22 54 45 4E 20 48 4F 4F  47 53 54 45 20 34 30 20  |"TEN HOOGSTE 40 |
00000200: 54 45 4B 45 4E 53 2C 20  53 54 41 41 54 20 54 4F  |TEKENS, STAAT TO|
00000210: 45 20 45 45 4E 22 00 42  0A 88 04 99 22 59 2D 41  |E EEN".B...."Y-A|
00000220: 53 20 4D 45 54 20 32 30  20 45 45 4E 48 45 44 45  |S MET 20 EENHEDE|
00000230: 4E 20 45 4E 20 45 45 4E  20 58 2D 41 53 20 4D 45  |N EN EEN X-AS ME|
00000240: 54 22 00 70 0A 92 04 99  22 33 30 20 45 45 4E 48  |T".p...."30 EENH|
00000250: 45 44 45 4E 20 56 4F 4F  52 20 45 45 4E 20 47 52  |EDEN VOOR EEN GR|
00000260: 41 46 49 45 4B 20 49 4E  20 31 2C 32 20 4F 46 22  |AFIEK IN 1,2 OF"|
00000270: 00 99 0A 9C 04 99 22 5A  45 4C 46 53 20 34 20 4B  |......"ZELFS 4 K|
00000280: 57 41 44 52 41 4E 54 45  4E 2E 22 3A 99 3A 8D 31  |WADRANTEN.":.:.1|
00000290: 39 34 30 3A 8D 32 31 33  30 00 C8 0A A6 04 99 3A  |940:.2130......:|
000002A0: 99 22 48 45 54 20 50 52  4F 47 52 41 4D 4D 41 20  |."HET PROGRAMMA |
000002B0: 49 53 20 54 48 41 4E 53  20 49 4E 47 45 52 49 43  |IS THANS INGERIC|
000002C0: 48 54 20 56 4F 4F 52 22  00 F5 0A B0 04 99 22 45  |HT VOOR"......"E|
000002D0: 45 4E 20 48 49 53 54 4F  47 52 41 4D 2E 20 55 20  |EN HISTOGRAM. U |
000002E0: 47 45 45 46 54 20 44 45  20 59 2D 57 41 41 52 44  |GEEFT DE Y-WAARD|
000002F0: 45 20 4F 50 22 00 25 0B  BA 04 99 22 56 4F 4F 52  |E OP".%...."VOOR|
00000300: 20 45 4C 4B 45 20 58 20  28 42 49 4A 56 2E 20 44  | ELKE X (BIJV. D|
00000310: 45 20 4D 41 41 4E 44 4F  4D 5A 45 54 54 45 4E 20  |E MAANDOMZETTEN |
00000320: 4F 56 45 52 22 00 50 0B  C4 04 99 22 31 39 38 31  |OVER".P...."1981|
00000330: 20 45 4E 20 31 39 38 32  29 2E 20 4E 41 20 48 45  | EN 1982). NA HE|
00000340: 54 20 54 4F 4E 45 4E 20  56 41 4E 20 48 45 54 22  |T TONEN VAN HET"|
00000350: 00 7F 0B CE 04 99 22 48  49 53 54 4F 47 52 41 4D  |......"HISTOGRAM|
00000360: 20 4B 52 49 4A 47 54 20  55 20 44 45 20 45 45 52  | KRIJGT U DE EER|
00000370: 53 54 45 20 31 35 20 58  2D 45 4E 20 54 45 22 00  |STE 15 X-EN TE".|
00000380: A5 0B D8 04 99 22 5A 49  45 4E 20 41 4C 53 20 53  |....."ZIEN ALS S|
00000390: 54 41 41 46 44 49 41 47  52 41 4D 2E 20 54 45 20  |TAAFDIAGRAM. TE |
000003A0: 55 57 45 52 22 00 D3 0B  E2 04 99 22 49 4E 53 50  |UWER"......"INSP|
000003B0: 49 52 41 54 49 45 20 56  4F 4C 47 54 20 44 41 4E  |IRATIE VOLGT DAN|
000003C0: 20 44 45 20 47 52 41 46  49 45 4B 20 56 41 4E 20  | DE GRAFIEK VAN |
000003D0: 44 45 22 00 F8 0B EC 04  99 22 53 49 4E 55 53 20  |DE"......"SINUS |
000003E0: 56 41 4E 20 30 20 54 4F  54 20 33 36 30 20 47 52  |VAN 0 TOT 360 GR|
000003F0: 41 44 45 4E 2E 22 3A 99  00 28 0C F6 04 99 22 42  |ADEN.":..(...."B|
00000400: 45 53 54 55 44 45 52 49  4E 47 20 56 41 4E 20 44  |ESTUDERING VAN D|
00000410: 45 20 4C 49 53 54 49 4E  47 20 47 45 45 46 54 20  |E LISTING GEEFT |
00000420: 49 4E 5A 49 43 48 54 22  00 55 0C 00 05 99 22 48  |INZICHT".U...."H|
00000430: 4F 45 20 48 49 45 52 4F  50 20 56 4F 4F 52 20 55  |OE HIEROP VOOR U|
00000440: 57 20 45 49 47 45 4E 20  54 4F 45 50 41 53 53 49  |W EIGEN TOEPASSI|
00000450: 4E 47 45 4E 22 00 7F 0C  0A 05 99 22 49 4E 20 54  |NGEN"......"IN T|
00000460: 45 20 48 41 4B 45 4E 2E  22 3A 99 3A 8D 31 39 34  |E HAKEN.":.:.194|
00000470: 30 3A 8D 32 31 33 30 3A  99 C7 28 31 34 37 29 00  |0:.2130:..(147).|
00000480: A7 0C 14 05 99 22 57 45  4C 4B 45 20 49 53 20 44  |....."WELKE IS D|
00000490: 45 20 4D 41 58 2E 20 59  2D 57 41 41 52 44 45 2C  |E MAX. Y-WAARDE,|
000004A0: 20 44 49 45 20 55 22 00  C4 0C 1E 05 85 22 49 4E  | DIE U"......"IN|
000004B0: 20 54 45 20 56 55 4C 4C  45 4E 20 48 45 45 46 54  | TE VULLEN HEEFT|
000004C0: 20 22 3B 4D 00 D5 0C 28  05 59 59 B2 B5 28 4D AD  | ";M...(.YY..(M.|
000004D0: 32 30 29 AA 31 00 EF 0C  32 05 8B 4D AD 32 30 B2  |20).1...2..M.20.|
000004E0: B5 28 4D AD 32 30 29 A7  59 59 B2 4D AD 32 30 00  |.(M.20).YY.M.20.|
000004F0: F5 0C 3C 05 99 00 20 0D  46 05 99 22 44 41 4E 20  |..<... .F.."DAN |
00000500: 56 45 52 54 45 47 45 4E  57 4F 4F 52 44 49 47 54  |VERTEGENWOORDIGT|
00000510: 20 45 4C 4B 45 20 59 2D  45 45 4E 48 45 49 44 22  | ELKE Y-EENHEID"|
00000520: 00 36 0D 50 05 99 22 44  45 20 57 41 41 52 44 45  |.6.P.."DE WAARDE|
00000530: 22 3B 59 59 3A 99 00 5A  0D 5A 05 99 22 57 45 4C  |";YY:..Z.Z.."WEL|
00000540: 4B 45 20 54 49 54 45 4C  20 28 4D 41 58 2E 20 33  |KE TITEL (MAX. 3|
00000550: 30 20 54 45 4B 45 4E 53  29 22 00 77 0D 64 05 99  |0 TEKENS)".w.d..|
00000560: 22 4B 52 49 4A 47 54 20  55 57 20 48 49 53 54 4F  |"KRIJGT UW HISTO|
00000570: 47 52 41 4D 20 3F 22 00  81 0D 6E 05 85 54 24 3A  |GRAM ?"...n..T$:|
00000580: 99 00 B0 0D 78 05 8B C3  28 54 24 29 B1 33 30 A7  |....x...(T$).30.|
00000590: 99 22 54 45 20 4C 41 4E  47 20 21 20 57 45 4C 4B  |."TE LANG ! WELK|
000005A0: 45 20 54 49 54 45 4C 20  3F 22 3A 89 31 33 39 30  |E TITEL ?":.1390|
000005B0: 00 D8 0D 82 05 99 22 47  45 45 46 20 4E 55 20 44  |......"GEEF NU D|
000005C0: 45 20 59 2D 57 41 41 52  44 45 20 56 4F 4F 52 20  |E Y-WAARDE VOOR |
000005D0: 45 4C 4B 45 20 58 2E 22  00 FA 0D 8C 05 99 22 28  |ELKE X."......"(|
000005E0: 55 20 4B 55 4E 54 20 53  54 4F 50 50 45 4E 20 4D  |U KUNT STOPPEN M|
000005F0: 45 54 20 27 53 27 29 22  3A 99 00 1C 0E 96 05 81  |ET 'S')":.......|
00000600: 49 B2 31 A4 33 30 3A 99  22 58 28 22 3B 49 3B 22  |I.1.30:."X(";I;"|
00000610: 29 3D 20 22 3B 3A 85 58  24 28 49 29 00 30 0E A0  |)= ";:.X$(I).0..|
00000620: 05 8B 58 24 28 49 29 B2  22 53 22 89 31 34 37 30  |..X$(I)."S".1470|
00000630: 00 66 0E AA 05 58 28 49  29 B2 B5 28 C5 28 58 24  |.f...X(I)..(.(X$|
00000640: 28 49 29 29 AD 59 59 AA  2E 35 29 3A 8F 20 28 2E  |(I)).YY..5):. (.|
00000650: 35 20 49 53 20 41 46 52  4F 4E 44 49 4E 47 53 46  |5 IS AFRONDINGSF|
00000660: 41 43 54 4F 52 29 00 94  0E B4 05 82 3A 99 22 55  |ACTOR)......:."U|
00000670: 20 48 45 42 54 20 4E 55  20 33 30 20 57 41 41 52  | HEBT NU 30 WAAR|
00000680: 44 45 4E 20 4F 50 47 45  47 45 56 45 4E 22 3A 89  |DEN OPGEGEVEN":.|
00000690: 31 34 38 30 00 A9 0E BE  05 81 4A B2 49 A4 33 30  |1480......J.I.30|
000006A0: 3A 58 28 4A 29 B2 30 3A  82 00 B9 0E C8 05 8D 31  |:X(J).0:.......1|
000006B0: 39 38 30 3A 8D 32 31 33  30 00 CE 0E D2 05 99 22  |980:.2130......"|
000006C0: 20 20 20 20 59 22 3B A3  31 30 29 3B 54 24 00 D8  |    Y";.10);T$..|
000006D0: 0E DC 05 8D 32 30 34 30  00 02 0F E6 05 99 A3 36  |....2040.......6|
000006E0: 29 3B 22 31 20 20 20 35  20 20 20 31 30 20 20 20  |);"1   5   10   |
000006F0: 31 35 20 20 20 32 30 20  20 20 32 35 20 20 20 33  |15   20   25   3|
00000700: 30 22 00 0C 0F F0 05 8D  32 31 32 30 00 28 0F FA  |0"......2120.(..|
00000710: 05 81 4B B2 32 A4 33 30  A9 32 3A 5A 28 4B 29 B2  |..K.2.30.2:Z(K).|
00000720: 58 28 4B AD 32 29 3A 82  00 4D 0F 04 06 81 4B B2  |X(K.2):..M....K.|
00000730: 31 A4 32 39 A9 32 3A 58  28 4B 29 B2 30 3A 58 28  |1.29.2:X(K).0:X(|
00000740: 4B AA 31 29 B2 5A 28 4B  AA 31 29 3A 82 00 63 0F  |K.1).Z(K.1):..c.|
00000750: 0E 06 8D 31 39 38 30 3A  8D 31 39 34 30 3A 8D 32  |...1980:.1940:.2|
00000760: 31 33 30 00 84 0F 18 06  99 22 20 20 20 20 59 22  |130......"    Y"|
00000770: 3B A3 31 30 29 3B 22 53  54 41 41 46 44 49 41 47  |;.10);"STAAFDIAG|
00000780: 52 41 4D 22 00 8E 0F 22  06 8D 32 30 34 30 00 B7  |RAM"..."..2040..|
00000790: 0F 2C 06 99 A3 37 29 3B  22 31 20 32 20 33 20 34  |.,...7);"1 2 3 4|
000007A0: 20 35 20 36 20 37 20 38  20 20 31 30 20 20 31 32  | 5 6 7 8  10  12|
000007B0: 20 20 20 20 31 35 22 00  C1 0F 36 06 8D 32 31 32  |    15"...6..212|
000007C0: 30 00 CF 0F 40 06 50 49  B2 34 AC C1 28 31 29 00  |0...@.PI.4..(1).|
000007D0: F6 0F 4A 06 81 49 B2 31  A4 32 38 3A 58 28 49 29  |..J..I.1.28:X(I)|
000007E0: B2 B5 28 31 30 AC BF 28  49 AC 50 49 AD 31 34 29  |..(10..(I.PI.14)|
000007F0: AA 2E 35 29 3A 82 00 25  10 54 06 8F 20 20 53 49  |..5):..%.T..  SI|
00000800: 4E 55 53 2D 46 55 4E 43  54 49 45 20 49 53 20 47  |NUS-FUNCTIE IS G|
00000810: 45 4E 4F 4D 45 4E 20 4F  56 45 52 20 58 28 32 38  |ENOMEN OVER X(28|
00000820: 29 3D 32 50 49 00 5A 10  5E 06 8F 20 20 53 49 4E  |)=2PI.Z.^..  SIN|
00000830: 28 49 2A 32 2A 50 49 2F  32 38 29 20 56 45 52 45  |(I*2*PI/28) VERE|
00000840: 45 4E 56 4F 55 44 49 47  44 20 54 4F 54 20 53 49  |ENVOUDIGD TOT SI|
00000850: 4E 28 49 2A 50 49 2F 31  34 29 00 86 10 68 06 8F  |N(I*PI/14)...h..|
00000860: 20 20 45 4C 4B 45 20 59  3D 30 2E 31 2C 20 57 41  |  ELKE Y=0.1, WA|
00000870: 41 52 44 4F 4F 52 20 46  41 43 54 4F 52 20 31 30  |ARDOOR FACTOR 10|
00000880: 20 4E 4F 44 49 47 00 B1  10 72 06 8F 20 20 2E 35  | NODIG...r..  .5|
00000890: 20 4F 46 20 57 45 4C 20  30 2E 35 20 49 53 20 56  | OF WEL 0.5 IS V|
000008A0: 4F 4F 52 20 44 45 20 41  46 52 4F 4E 44 49 4E 47  |OOR DE AFRONDING|
000008B0: 2E 00 B7 10 7C 06 3A 00  EE 10 86 06 8F 20 20 50  |....|.:......  P|
000008C0: 52 4F 42 45 45 52 20 5A  45 4C 46 20 45 45 4E 53  |ROBEER ZELF EENS|
000008D0: 20 44 45 20 43 4F 53 49  4E 55 53 2D 46 55 4E 43  | DE COSINUS-FUNC|
000008E0: 54 49 45 20 48 49 45 52  20 49 4E 20 54 45 00 26  |TIE HIER IN TE.&|
000008F0: 11 90 06 8F 20 20 57 45  52 4B 45 4E 2E 20 41 4C  |....  WERKEN. AL|
00000900: 53 20 55 20 55 57 20 45  49 47 45 4E 20 46 55 4E  |S U UW EIGEN FUN|
00000910: 43 54 49 45 53 20 4E 45  45 4D 54 2C 20 47 45 45  |CTIES NEEMT, GEE|
00000920: 46 20 45 4C 4B 45 00 5E  11 9A 06 8F 20 20 59 20  |F ELKE.^....  Y |
00000930: 44 41 4E 20 45 45 4E 20  44 45 45 4C 20 56 41 4E  |DAN EEN DEEL VAN|
00000940: 20 48 45 54 20 56 45 52  57 41 43 48 54 45 20 4D  | HET VERWACHTE M|
00000950: 41 58 49 4D 55 4D 20 45  4E 20 4E 45 45 4D 00 95  |AXIMUM EN NEEM..|
00000960: 11 A4 06 8F 20 20 5A 4F  56 45 45 4C 20 58 20 41  |....  ZOVEEL X A|
00000970: 4C 53 20 56 4F 4F 52 20  55 57 20 44 4F 45 4C 20  |LS VOOR UW DOEL |
00000980: 48 45 54 20 42 45 53 54  20 54 45 20 56 45 52 44  |HET BEST TE VERD|
00000990: 45 4C 45 4E 2E 00 CC 11  AE 06 8F 20 20 21 21 42  |ELEN.......  !!B|
000009A0: 45 44 45 4E 4B 2C 20 44  41 54 20 48 45 54 20 55  |EDENK, DAT HET U|
000009B0: 49 54 20 54 45 20 50 52  49 4E 54 45 4E 20 41 52  |IT TE PRINTEN AR|
000009C0: 52 41 59 20 4D 45 54 20  52 59 20 31 00 04 12 B8  |RAY MET RY 1....|
000009D0: 06 8F 20 20 20 20 42 45  47 49 4E 54 20 45 4E 20  |..    BEGINT EN |
000009E0: 55 57 20 42 45 43 49 4A  46 46 45 52 44 45 20 46  |UW BECIJFFERDE F|
000009F0: 55 4E 43 54 49 45 20 31  20 4F 4E 44 45 52 41 41  |UNCTIE 1 ONDERAA|
00000A00: 4E 20 4F 46 00 37 12 C2  06 8F 20 20 20 20 49 4E  |N OF.7....    IN|
00000A10: 20 48 45 54 20 4D 49 44  44 45 4E 20 48 45 45 46  | HET MIDDEN HEEF|
00000A20: 54 20 2D 20 5A 49 45 20  4F 4D 42 4F 55 57 20 49  |T - ZIE OMBOUW I|
00000A30: 4E 20 59 24 20 21 21 00  6F 12 CC 06 8F 20 20 41  |N Y$ !!.o....  A|
00000A40: 4C 53 20 55 20 44 45 20  4E 55 4C 2D 44 4F 4F 52  |LS U DE NUL-DOOR|
00000A50: 47 41 4E 47 45 4E 20 4F  56 45 52 20 45 45 4E 20  |GANGEN OVER EEN |
00000A60: 56 4F 4C 4C 45 20 59 2D  45 45 4E 48 45 49 44 00  |VOLLE Y-EENHEID.|
00000A70: A8 12 D6 06 8F 20 20 53  54 4F 52 45 4E 44 20 56  |.....  STOREND V|
00000A80: 49 4E 44 54 2C 20 53 4C  41 20 44 45 20 4E 55 4C  |INDT, SLA DE NUL|
00000A90: 2D 44 4F 4F 52 47 41 4E  47 52 45 47 45 4C 20 44  |-DOORGANGREGEL D|
00000AA0: 41 4E 20 4F 56 45 52 2E  00 AE 12 E0 06 3A 00 C7  |AN OVER......:..|
00000AB0: 12 EA 06 81 52 B2 31 30  A4 AB 31 30 A9 AB 31 3A  |....R.10..10..1:|
00000AC0: 81 4B B2 31 A4 32 38 00  E8 12 F4 06 8B 58 28 4B  |.K.1.28......X(K|
00000AD0: 29 B2 52 A7 59 24 28 31  31 AB 52 2C 4B 29 B2 22  |).R.Y$(11.R,K)."|
00000AE0: 2B 22 3A 89 31 38 30 30  00 FB 12 FE 06 59 24 28  |+":.1800.....Y$(|
00000AF0: 31 31 AB 52 2C 4B 29 B2  22 2E 22 00 04 13 08 07  |11.R,K).".".....|
00000B00: 82 4B 2C 52 00 14 13 12  07 8D 31 39 34 30 3A 8D  |.K,R......1940:.|
00000B10: 32 31 33 30 00 45 13 1C  07 99 22 20 20 20 20 59  |2130.E...."    Y|
00000B20: 22 3B A3 31 30 29 3B 22  53 49 4E 55 53 20 56 41  |";.10);"SINUS VA|
00000B30: 4E 20 30 20 54 4F 54 20  32 50 49 20 52 41 44 49  |N 0 TOT 2PI RADI|
00000B40: 41 4C 45 4E 22 00 51 13  26 07 81 52 B2 31 A4 32  |ALEN".Q.&..R.1.2|
00000B50: 31 00 6B 13 30 07 8B 52  B2 31 A7 99 22 20 20 20  |1.k.0..R.1.."   |
00000B60: 20 20 31 22 3B 3A 89 31  39 31 30 00 85 13 3A 07  |  1";:.1910...:.|
00000B70: 8B 52 B2 36 A7 99 22 20  20 20 30 2E 35 22 3B 3A  |.R.6.."   0.5";:|
00000B80: 89 31 39 31 30 00 B7 13  44 07 8B 52 B2 31 31 A7  |.1910...D..R.11.|
00000B90: 99 22 20 20 20 20 20 30  2D 2D 2D 2D 2D 2D 2B 2D  |."     0------+-|
00000BA0: 2D 2D 2D 2D 2D 2B 2D 2D  2D 2D 2D 2D 2B 2D 2D 2D  |-----+------+---|
00000BB0: 2D 2D 2D 2B 20 58 22 00  C6 13 4E 07 8B 52 B2 31  |---+ X"...N..R.1|
00000BC0: 31 89 31 39 32 30 00 E1  13 58 07 8B 52 B2 31 36  |1.1920...X..R.16|
00000BD0: A7 99 22 20 20 2D 30 2E  35 22 3B 3A 89 31 39 31  |.."  -0.5";:.191|
00000BE0: 30 00 FC 13 62 07 8B 52  B2 32 31 A7 99 22 20 20  |0...b..R.21.."  |
00000BF0: 20 20 2D 31 22 3B 3A 89  31 39 31 30 00 0B 14 6C  |  -1";:.1910...l|
00000C00: 07 99 22 20 20 20 20 20  21 22 3B 00 26 14 76 07  |.."     !";.&.v.|
00000C10: 81 4B B2 31 A4 33 30 3A  99 59 24 28 52 2C 4B 29  |.K.1.30:.Y$(R,K)|
00000C20: 3B 3A 82 4B 3A 99 00 2D  14 80 07 82 52 00 3F 14  |;:.K:..-....R.?.|
00000C30: 8A 07 81 49 B2 31 A4 35  30 30 30 3A 82 3A 80 00  |...I.1.5000:.:..|
00000C40: 53 14 94 07 8F 20 28 56  45 52 44 45 52 47 41 41  |S.... (VERDERGAA|
00000C50: 4E 3F 29 00 81 14 9E 07  85 22 56 45 52 44 45 52  |N?)......"VERDER|
00000C60: 47 41 41 4E 20 3F 20 44  52 55 4B 20 44 41 4E 20  |GAAN ? DRUK DAN |
00000C70: 52 45 54 55 52 4E 2D 54  4F 45 54 53 20 22 3B 51  |RETURN-TOETS ";Q|
00000C80: 24 00 89 14 A8 07 99 3A  8E 00 A6 14 B2 07 8F 20  |$......:....... |
00000C90: 28 50 4C 4F 54 2D 41 52  52 41 59 20 42 45 52 45  |(PLOT-ARRAY BERE|
00000CA0: 4B 45 4E 45 4E 29 00 BA  14 BC 07 81 52 B2 31 A4  |KENEN)......R.1.|
00000CB0: 32 30 3A 81 4B B2 31 A4  33 30 00 DD 14 C6 07 8B  |20:.K.1.30......|
00000CC0: 52 B2 32 30 AF 58 28 4B  29 B2 30 A7 59 24 28 52  |R.20.X(K).0.Y$(R|
00000CD0: 2C 4B 29 B2 22 2E 22 3A  89 32 30 32 30 00 00 15  |,K).".":.2020...|
00000CE0: D0 07 8B 28 32 31 AB 58  28 4B 29 29 B1 52 A7 59  |...(21.X(K)).R.Y|
00000CF0: 24 28 52 2C 4B 29 B2 22  2E 22 3A 89 32 30 32 30  |$(R,K).".":.2020|
00000D00: 00 10 15 DA 07 59 24 28  52 2C 4B 29 B2 22 58 22  |.....Y$(R,K)."X"|
00000D10: 00 1B 15 E4 07 82 4B 2C  52 3A 8E 00 41 15 EE 07  |......K,R:..A...|
00000D20: 8F 28 50 4C 4F 54 54 45  4E 20 48 49 53 54 4F 47  |.(PLOTTEN HISTOG|
00000D30: 52 41 4D 2F 53 54 41 41  46 44 49 41 47 52 41 4D  |RAM/STAAFDIAGRAM|
00000D40: 29 00 4D 15 F8 07 81 52  B2 31 A4 32 30 00 72 15  |).M....R.1.20.r.|
00000D50: 02 08 8B 28 32 31 AB 52  29 B1 39 A7 99 28 32 31  |...(21.R).9..(21|
00000D60: AB 52 29 3B A3 35 29 3B  22 21 22 3B 3A 89 32 30  |.R);.5);"!";:.20|
00000D70: 37 30 00 8B 15 0C 08 99  22 20 22 3B 28 32 31 AB  |70......" ";(21.|
00000D80: 52 29 3B A3 35 29 3B 22  21 22 3B 00 A6 15 16 08  |R);.5);"!";.....|
00000D90: 81 4B B2 31 A4 33 30 3A  99 59 24 28 52 2C 4B 29  |.K.1.30:.Y$(R,K)|
00000DA0: 3B 3A 82 4B 3A 99 00 AD  15 20 08 82 52 00 D1 15  |;:.K:.... ..R...|
00000DB0: 2A 08 99 A3 35 29 3B 22  30 22 3B 3A 81 49 B2 31  |*...5);"0";:.I.1|
00000DC0: A4 33 30 3A 99 22 2D 22  3B 3A 82 3A 99 22 20 58  |.30:."-";:.:." X|
00000DD0: 22 00 D7 15 34 08 8E 00  F6 15 3E 08 8F 20 28 50  |"...4.....>.. (P|
00000DE0: 4C 4F 54 2D 41 52 52 41  59 20 53 43 48 4F 4F 4E  |LOT-ARRAY SCHOON|
00000DF0: 4D 41 4B 45 4E 29 00 1C  16 48 08 81 49 B2 31 A4  |MAKEN)...H..I.1.|
00000E00: 32 31 3A 81 4A B2 31 A4  33 30 3A 59 24 28 49 2C  |21:.J.1.30:Y$(I,|
00000E10: 4A 29 B2 22 22 3A 82 4A  2C 49 3A 8E 00 2A 16 52  |J)."":.J,I:..*.R|
00000E20: 08 99 C7 28 31 34 37 29  3A 8E 00 00 00 2A 6B 9C  |...(147):....*k.|

..%.... +++ GRAFIEKEN EN BASICODE +++.G.
...    AANGEPAST VOOR B A S I C.O....213
0:.X$(30),X(30),Y$(21,30),Z(30)...$...5)
;"GRAFIEKEN EN BASICODE"......"HOEWEL BA
SICODE BESCHIKT OVER EEN"...8.."BEPERKTE
 SET STATEMENTS, IS HET TOCH"...B.."MOGE
LIJK HIERMEE EEN GRAFIEK TE PLOTTEN.".B.
L.."VOOR ELKE COMPUTER STAAN UITGEBREIDE
R".N.V.."MOGELIJKHEDEN TER BESCHIKKING O
M DIT"...`.."PROGRAMMA TE VERFIJNEN, VER
VOLMAKEN EN"...J.."ZELFS TOTAAL OM TE WE
RKEN."...T.."DE OUTPUT VAN MAX. 24 REGEL
S ELK MET"...~.."TEN HOOGSTE 40 TEKENS, 
STAAT TOE EEN".B...."Y-AS MET 20 EENHEDE
N EN EEN X-AS MET".P...."30 EENHEDEN VOO
R EEN GRAFIEK IN 1,2 OF"......"ZELFS 4 K
WADRANTEN.":.:.1940:.2130.H....:."HET PR
OGRAMMA IS THANS INGERICHT VOOR"......"E
EN HISTOGRAM. U GEEFT DE Y-WAARDE OP".%.
..."VOOR ELKE X (BIJV. DE MAANDOMZETTEN 
OVER".P.D.."1981 EN 1982). NA HET TONEN 
VAN HET"..N.."HISTOGRAM KRIJGT U DE EER
STE 15 X-EN TE"...X.."ZIEN ALS STAAFDIAG
RAM. TE UWER".S...."INSPIRATIE VOLGT DAN
 DE GRAFIEK VAN DE"......"SINUS VAN 0 TO
T 360 GRADEN.":..(...."BESTUDERING VAN D
E LISTING GEEFT INZICHT".U...."HOE HIERO
P VOOR UW EIGEN TOEPASSINGEN"....."IN T
E HAKEN.":.:.1940:.2130:.G(147)......"WE
LKE IS DE MAX. Y-WAARDE, DIE U".D...."IN
 TE VULLEN HEEFT ";M.U.(.YY..(M.20).1...
2..M.20..(M.20).YY.M.20...<... .F.."DAN 
VERTEGENWOORDIGT ELKE Y-EENHEID".6.P.."D
E WAARDE";YY:..Z.Z.."WELKE TITEL (MAX. 3
0 TEKENS)".W.D.."KRIJGT UW HISTOGRAM ?".
..N..T$:....X..C(T$).30.."TE LANG ! WELK
E TITEL ?":.1390.X...."GEEF NU DE Y-WAAR
DE VOOR ELKE X."......"(U KUNT STOPPEN M
ET 'S')":.......I.1.30:."X(";I;")= ";:.X
$(I).0. ..X$(I)."S".1470.F...X(I)..(E(X$
(I)).YY..5):. (.5 IS AFRONDINGSFACTOR)..
....:."U HEBT NU 30 WAARDEN OPGEGEVEN":.
1480......J.I.30:X(J).0:....H..1980:.213
0.N.R.."    Y";.10);T$.X....2040.......6
);"1   5   10   15   20   25   30"......
2120.(....K.2.30.2:Z(K).X(K.2):..M....K.
1.29.2:X(K).0:X(K.1).Z(K.1):..C....1980:
.1940:.2130......"    Y";.10);"STAAFDIAG
RAM"..."..2040...,...7);"1 2 3 4 5 6 7 8
  10  12    15".A.6..2120.O.@.PI.4.A(1).
..J..I.1.28:X(I)..(10..(I.PI.14)..5):..%
.T..  SINUS-FUNCTIE IS GENOMEN OVER X(28
)=2PI.Z.^..  SIN(I*2*PI/28) VEREENVOUDIG
D TOT SIN(I*PI/14)...H..  ELKE Y=0.1, WA
ARDOOR FACTOR 10 NODIG...R..  .5 OF WEL 
0.5 IS VOOR DE AFRONDING....|.:......  P
ROBEER ZELF EENS DE COSINUS-FUNCTIE HIER
 IN TE.&....  WERKEN. ALS U UW EIGEN FUN
CTIES NEEMT, GEEF ELKE.^....  Y DAN EEN 
DEEL VAN HET VERWACHTE MAXIMUM EN NEEM..
....  ZOVEEL X ALS VOOR UW DOEL HET BEST
 TE VERDELEN..L....  !!BEDENK, DAT HET U
IT TE PRINTEN ARRAY MET RY 1......    BE
GINT EN UW BECIJFFERDE FUNCTIE 1 ONDERAA
N OF.7.B..    IN HET MIDDEN HEEFT - ZIE 
OMBOUW IN Y$ !!.O.L..  ALS U DE NUL-DOOR
GANGEN OVER EEN VOLLE Y-EENHEID...V..  S
TOREND VINDT, SLA DE NUL-DOORGANGREGEL D
AN OVER......:.G....R.10..10..1:.K.1.28.
.....X(K).R.Y$(11.R,K)."+":.1800.....Y$(
11.R,K)."."......K,R......1940:.2130.E..
.."    Y";.10);"SINUS VAN 0 TOT 2PI RADI
ALEN".Q.&..R.1.21.K.0..R.1.."     1";:.1
910...:..R.6.."   0.5";:.1910...D..R.11.
."     0------+------+------+------+ X".
F.N..R.11.1920...X..R.16.."  -0.5";:.191
0...B..R.21.."    -1";:.1910...L.."     
!";.&.V..K.1.30:.Y$(R,K);:.K:..-....R.?.
...I.1.5000:.:..S.... (VERDERGAAN?).....
."VERDERGAAN ? DRUK DAN RETURN-TOETS ";Q
$......:....... (PLOT-ARRAY BEREKENEN)..
....R.1.20:.K.1.30...F..R.20.X(K).0.Y$(R
,K).".":.2020...P..(21.X(K)).R.Y$(R,K)."
.":.2020...Z.Y$(R,K)."X"......K,R:..A...
.(PLOTTEN HISTOGRAM/STAAFDIAGRAM).M....R
.1.20.R....(21.R).9..(21.R);.5);"!";:.20
70......" ";(21.R);.5);"!";......K.1.30:
.Y$(R,K);:.K:.... ..R.Q.*...5);"0";:.I.1
.30:."-";:.:." X".W.4.....>.. (PLOT-ARRA
Y SCHOONMAKEN)...H..I.1.21:.J.1.30:Y$(I,
J)."":.J,I:..*.R..G(147):....*K.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL