EFF
FILE INFORMATION
FILENAME(S): EFF
FILE TYPE(S): SEQ
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 16:59:43
APPEARS ON: 1 disk(s)
FILE HASH
0da89fecb553339ccf4e5f1c7983a59f1da6091f8aa70c36de53714e3f87aed6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLETJES 152 | EFF | SEQ | High Voltage Complete C64 Collection | 9 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 94 A5 06 31 2C 37 39 0D 2D 2D 2D 2D 2D 2D 2D 2D |...1,79.--------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 2D 0D 20 C8 45 54 20 56 4F 4C 47 45 |-----. .ET VOLGE| 00000060: 4E 44 20 50 52 4F 47 52 41 4D 4D 41 20 4B 41 4E |ND PROGRAMMA KAN| 00000070: 20 4D 45 54 20 43 4F 4D 50 4C 45 58 45 20 47 45 | MET COMPLEXE GE| 00000080: 54 41 4C 4C 45 4E 20 52 45 4B 45 4E 45 4E 2E 0D |TALLEN REKENEN..| 00000090: 20 20 47 45 54 41 4C 4C 45 4E 20 4B 55 4E 4E 45 | GETALLEN KUNNE| 000000A0: 4E 20 49 4E 47 45 56 4F 45 52 44 20 57 4F 52 44 |N INGEVOERD WORD| 000000B0: 45 4E 20 4F 50 20 34 20 4D 41 4E 49 45 52 45 4E |EN OP 4 MANIEREN| 000000C0: 2C 20 44 41 41 52 4E 41 20 4B 41 4E 20 4A 45 20 |, DAARNA KAN JE | 000000D0: 45 52 20 44 45 20 53 54 41 4E 44 41 41 52 44 20 |ER DE STANDAARD | 000000E0: 4F 50 45 52 41 54 49 45 53 20 2B 2C 2D 2C 2A 2C |OPERATIES +,-,*,| 000000F0: 2F 20 45 4E 20 C9 20 4D 45 45 20 44 4F 45 4E 2C |/ EN . MEE DOEN,| 00000100: 20 57 41 41 52 42 49 4A 20 C9 20 49 4E 56 45 52 | WAARBIJ . INVER| 00000110: 54 45 52 45 4E 20 49 53 2E 0D 0D 20 C5 45 4E 20 |TEREN IS... .EN | 00000120: 43 4F 4D 50 4C 45 58 20 47 45 54 41 4C 20 5A 49 |COMPLEX GETAL ZI| 00000130: 45 54 20 45 52 20 41 4C 53 20 56 4F 4C 47 54 20 |ET ER ALS VOLGT | 00000140: 55 49 54 3A 0D 0D 20 20 20 20 20 20 20 20 C3 41 |UIT:.. .A| 00000150: 3C 45 4E 54 45 52 3E 20 20 20 20 20 20 20 20 20 |<ENTER> | 00000160: 20 20 20 20 20 20 20 2D 3E 20 49 4E 56 4F 45 52 | -> INVOER| 00000170: 20 3A 20 41 2B 4A 42 20 28 43 41 52 54 45 47 49 | : A+JB (CARTEGI| 00000180: 41 41 4E 53 29 0D 20 20 28 2B 4A 2A 20 29 20 42 |AANS). (+J* ) B| 00000190: 3C 45 4E 54 45 52 3E 0D 0D 20 20 20 20 20 20 20 |<ENTER>.. | 000001A0: 20 D0 41 3C 45 4E 54 45 52 3E 20 20 20 20 20 20 | .A<ENTER> | 000001B0: 20 20 20 20 20 20 20 20 20 20 2D 3E 20 49 4E 56 | -> INV| 000001C0: 4F 45 52 20 3A 20 41 20 48 4F 45 4B 20 42 20 28 |OER : A HOEK B (| 000001D0: 50 4F 4C 41 49 52 2C 20 48 4F 45 4B 20 49 4E 20 |POLAIR, HOEK IN | 000001E0: 47 52 41 44 45 4E 29 0D 20 20 28 2A 45 5E 20 29 |GRADEN). (*E^ )| 000001F0: 20 42 3C 45 4E 54 45 52 3E 0D 0D 20 20 20 20 20 | B<ENTER>.. | 00000200: 20 20 C9 C3 41 3C 45 4E 54 45 52 3E 20 20 20 20 | ..A<ENTER> | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 2D 3E 20 49 | -> I| 00000220: 4E 56 4F 45 52 20 3A 20 31 2F 28 41 2B 4A 42 29 |NVOER : 1/(A+JB)| 00000230: 0D 20 20 28 2B 4A 2A 20 29 20 42 3C 45 4E 54 45 |. (+J* ) B<ENTE| 00000240: 52 3E 0D 0D 20 20 20 20 20 20 20 C9 D0 41 3C 45 |R>.. ..A<E| 00000250: 4E 54 45 52 3E 20 20 20 20 20 20 20 20 20 20 20 |NTER> | 00000260: 20 20 20 20 20 2D 3E 20 49 4E 56 4F 45 52 20 3A | -> INVOER :| 00000270: 20 31 2F 28 41 20 48 4F 45 4B 20 42 29 0D 20 20 | 1/(A HOEK B). | 00000280: 28 2A 45 5E 20 29 20 42 3C 45 4E 54 45 52 3E 0D |(*E^ ) B<ENTER>.| 00000290: 0D CE 2E C2 2E 20 C8 45 54 20 42 4F 56 45 4E 53 |..... .ET BOVENS| 000002A0: 54 41 41 4E 44 45 20 47 45 4C 44 54 20 4F 4F 4B |TAANDE GELDT OOK| 000002B0: 20 56 4F 4F 52 20 48 45 54 20 4D 41 54 52 49 58 | VOOR HET MATRIX| 000002C0: 50 52 4F 47 52 41 4D 4D 41 2E 0D 0D CE 55 20 4B |PROGRAMMA....U K| 000002D0: 41 4E 20 4A 45 20 2B 2C 2D 2C 2A 20 4F 46 20 2F |AN JE +,-,* OF /| 000002E0: 20 28 47 45 56 4F 4C 44 20 44 4F 4F 52 20 3C 45 | (GEVOLD DOOR <E| 000002F0: 4E 54 45 52 3E 29 20 49 4E 56 4F 45 52 45 4E 20 |NTER>) INVOEREN | 00000300: 45 4E 20 4E 4F 47 20 45 45 4E 20 43 4F 4D 50 4C |EN NOG EEN COMPL| 00000310: 45 58 20 47 45 54 41 4C 2C 20 44 41 41 52 4E 41 |EX GETAL, DAARNA| 00000320: 20 56 45 52 53 43 48 49 4A 4E 54 20 44 45 20 55 | VERSCHIJNT DE U| 00000330: 49 54 4B 4F 4D 53 54 20 49 4E 20 43 41 52 54 2E |ITKOMST IN CART.| 00000340: 20 45 4E 20 50 4F 4C 2E 20 56 4F 52 4D 20 4F 50 | EN POL. VORM OP| 00000350: 20 48 45 54 20 44 49 53 50 4C 41 59 2E 0D C1 4C | HET DISPLAY...L| 00000360: 53 20 44 45 5A 45 20 55 49 54 4B 4F 4D 53 54 20 |S DEZE UITKOMST | 00000370: 4E 4F 47 20 47 45 49 4E 56 45 52 54 45 45 52 44 |NOG GEINVERTEERD| 00000380: 20 4D 4F 45 54 20 57 4F 52 44 45 4E 20 2C 20 4B | MOET WORDEN , K| 00000390: 55 4E 20 4A 45 20 4E 4F 47 20 C9 20 47 45 42 52 |UN JE NOG . GEBR| 000003A0: 55 49 4B 45 4E 2E 0D 0D 2D 2D 2D 2D 2D 2D 2D 2D |UIKEN...--------| 000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003F0: 2D 2D 2D 2D 2D 0D 34 30 30 20 22 44 22 3A 4F 50 |-----.400 "D":OP| 00000400: 3D 30 3A 20 50 52 49 4E 54 20 22 DA 43 4F 4D 50 |=0: PRINT ".COMP| 00000410: 4C 45 58 20 42 45 52 45 4B 45 4E 45 4E 3A 22 3A |LEX BEREKENEN:":| 00000420: 20 55 53 49 4E 47 20 22 23 2E 23 23 23 5E 22 0D | USING "#.###^".| 00000430: 34 32 30 20 20 50 52 49 4E 54 20 58 31 3B 22 20 |420 PRINT X1;" | 00000440: 2B 4A 2A 22 3B 58 32 0D 34 32 32 20 20 50 52 49 |+J*";X2.422 PRI| 00000450: 4E 54 20 50 31 3B 22 20 2A 45 5E 22 3B 50 32 0D |NT P1;" *E^";P2.| 00000460: 34 32 35 20 4E 4F 3D 4F 50 3A 4F 50 3D 30 3A 20 |425 NO=OP:OP=0: | 00000470: 47 4F 53 55 42 20 31 35 30 30 0D 34 33 30 20 20 |GOSUB 1500.430 | 00000480: 49 46 20 5A 54 24 3D 22 2B 22 20 54 48 45 4E 20 |IF ZT$="+" THEN | 00000490: 20 4C 45 54 20 4F 50 3D 31 3A 20 47 4F 54 4F 20 | LET OP=1: GOTO | 000004A0: 34 32 35 0D 34 34 30 20 20 49 46 20 5A 54 24 3D |425.440 IF ZT$=| 000004B0: 22 2D 22 20 54 48 45 4E 20 20 4C 45 54 20 4F 50 |"-" THEN LET OP| 000004C0: 3D 32 3A 20 47 4F 54 4F 20 34 32 35 0D 34 35 30 |=2: GOTO 425.450| 000004D0: 20 20 49 46 20 5A 54 24 3D 22 2A 22 20 54 48 45 | IF ZT$="*" THE| 000004E0: 4E 20 20 4C 45 54 20 4F 50 3D 33 3A 20 47 4F 54 |N LET OP=3: GOT| 000004F0: 4F 20 34 32 35 0D 34 36 30 20 20 49 46 20 5A 54 |O 425.460 IF ZT| 00000500: 24 3D 22 2F 22 20 54 48 45 4E 20 20 4C 45 54 20 |$="/" THEN LET | 00000510: 4F 50 3D 34 3A 20 47 4F 54 4F 20 34 32 35 0D 34 |OP=4: GOTO 425.4| 00000520: 37 30 20 20 49 46 20 5A 54 24 3D 22 49 22 20 54 |70 IF ZT$="I" T| 00000530: 48 45 4E 20 20 4C 45 54 20 49 3D 31 3A 20 47 4F |HEN LET I=1: GO| 00000540: 53 55 42 20 31 35 39 30 3A 20 47 4F 54 4F 20 36 |SUB 1590: GOTO 6| 00000550: 30 30 0D 34 38 30 20 20 49 46 20 45 52 3D 31 20 |00.480 IF ER=1 | 00000560: 54 48 45 4E 20 34 32 30 0D 35 38 30 20 20 47 4F |THEN 420.580 GO| 00000570: 53 55 42 20 31 35 35 30 3A 20 47 4F 54 4F 20 36 |SUB 1550: GOTO 6| 00000580: 30 30 0D 35 39 30 20 20 47 4F 53 55 42 20 31 35 |00.590 GOSUB 15| 00000590: 38 30 0D 36 30 30 20 20 4F 4E 20 4E 4F 20 47 4F |80.600 ON NO GO| 000005A0: 54 4F 20 36 32 30 2C 36 33 30 2C 36 34 30 2C 36 |TO 620,630,640,6| 000005B0: 35 30 0D 36 31 30 20 58 33 3D 58 31 3A 58 34 3D |50.610 X3=X1:X4=| 000005C0: 58 32 3A 50 33 3D 50 31 3A 50 34 3D 50 32 3A 20 |X2:P3=P1:P4=P2: | 000005D0: 47 4F 54 4F 20 34 32 30 0D 36 32 30 20 4E 4F 3D |GOTO 420.620 NO=| 000005E0: 30 3A 58 31 3D 58 31 2B 58 33 3A 58 32 3D 58 32 |0:X1=X1+X3:X2=X2| 000005F0: 2B 58 34 3A 20 47 4F 54 4F 20 35 38 30 0D 36 33 |+X4: GOTO 580.63| 00000600: 30 20 4E 4F 3D 30 3A 58 31 3D 58 33 2D 58 31 3A |0 NO=0:X1=X3-X1:| 00000610: 58 32 3D 58 34 2D 58 32 3A 20 47 4F 54 4F 20 35 |X2=X4-X2: GOTO 5| 00000620: 38 30 0D 36 34 30 20 4E 4F 3D 30 3A 50 31 3D 50 |80.640 NO=0:P1=P| 00000630: 31 2A 50 33 3A 50 32 3D 50 32 2B 50 34 3A 20 47 |1*P3:P2=P2+P4: G| 00000640: 4F 54 4F 20 35 39 30 0D 36 35 30 20 4E 4F 3D 30 |OTO 590.650 NO=0| 00000650: 3A 50 31 3D 50 33 2F 50 31 3A 50 32 3D 50 34 2D |:P1=P3/P1:P2=P4-| 00000660: 50 32 3A 20 47 4F 54 4F 20 35 39 30 0D 2D 2D 2D |P2: GOTO 590.---| 00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D C4 45 5A 45 20 |----------..EZE | 000006C0: 53 55 42 52 4F 55 54 49 4E 45 20 49 53 20 56 4F |SUBROUTINE IS VO| 000006D0: 4F 52 20 48 45 54 20 49 4E 56 4F 45 52 45 4E 20 |OR HET INVOEREN | 000006E0: 56 41 4E 20 45 45 4E 20 43 4F 4D 50 4C 45 58 20 |VAN EEN COMPLEX | 000006F0: 47 45 54 41 4C 20 C3 2C D0 2C C9 C3 20 4F 46 20 |GETAL .,.,.. OF | 00000700: C9 D0 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....------------| 00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000750: 2D 0D 31 35 30 30 20 45 52 3D 30 3A 49 3D 30 3A |-.1500 ER=0:I=0:| 00000760: 49 4E 50 55 54 20 5A 54 24 3A 46 24 3D 4C 45 46 |INPUT ZT$:F$=LEF| 00000770: 54 24 20 28 5A 54 24 2C 31 29 0D 31 35 30 35 20 |T$ (ZT$,1).1505 | 00000780: 20 49 46 20 46 24 3D 22 49 22 20 54 48 45 4E 20 | IF F$="I" THEN | 00000790: 20 49 46 20 5A 54 24 3C 3E 22 49 22 20 54 48 45 | IF ZT$<>"I" THE| 000007A0: 4E 20 20 4C 45 54 20 5A 54 24 3D 20 4D 49 44 24 |N LET ZT$= MID$| 000007B0: 20 28 5A 54 24 2C 32 2C 31 35 29 3A 49 3D 31 3A | (ZT$,2,15):I=1:| 000007C0: 46 24 3D 20 4C 45 46 54 24 20 28 5A 54 24 2C 31 |F$= LEFT$ (ZT$,1| 000007D0: 29 0D 31 35 31 30 20 20 49 46 20 46 24 3D 22 50 |).1510 IF F$="P| 000007E0: 22 20 54 48 45 4E 20 31 35 36 30 0D 31 35 32 30 |" THEN 1560.1520| 000007F0: 20 20 49 46 20 46 24 3C 3E 22 43 22 20 54 48 45 | IF F$<>"C" THE| 00000800: 4E 20 20 4C 45 54 20 45 52 3D 31 3A 20 52 45 54 |N LET ER=1: RET| 00000810: 55 52 4E 20 0D 31 35 33 30 20 58 31 3D 20 56 41 |URN .1530 X1= VA| 00000820: 4C 20 28 20 4D 49 44 24 20 28 5A 54 24 2C 32 2C |L ( MID$ (ZT$,2,| 00000830: 20 4C 45 4E 20 5A 54 24 29 29 0D 31 35 34 30 20 | LEN ZT$)).1540 | 00000840: 20 49 4E 50 55 54 20 22 2B 4A 2A 20 22 3B 58 32 | INPUT "+J* ";X2| 00000850: 0D 31 35 35 30 20 20 49 46 20 58 31 3C 3E 30 20 |.1550 IF X1<>0 | 00000860: 4F 52 20 58 32 3C 3E 30 20 54 48 45 4E 20 20 4C |OR X2<>0 THEN L| 00000870: 45 54 20 50 31 3D 20 50 4F 4C 20 28 58 31 2C 58 |ET P1= POL (X1,X| 00000880: 32 29 3A 50 32 3D 5A 3A 20 47 4F 54 4F 20 31 35 |2):P2=Z: GOTO 15| 00000890: 39 30 0D 31 35 35 35 20 50 31 3D 30 3A 50 32 3D |90.1555 P1=0:P2=| 000008A0: 30 3A 20 52 45 54 55 52 4E 20 0D 31 35 36 30 20 |0: RETURN .1560 | 000008B0: 50 31 3D 20 56 41 4C 20 28 20 4D 49 44 24 20 28 |P1= VAL ( MID$ (| 000008C0: 5A 54 24 2C 32 2C 20 4C 45 4E 20 5A 54 24 29 29 |ZT$,2, LEN ZT$))| 000008D0: 0D 31 35 37 30 20 20 49 4E 50 55 54 20 22 2A 45 |.1570 INPUT "*E| 000008E0: 5E 20 22 3B 50 32 0D 31 35 38 30 20 58 31 3D 20 |^ ";P2.1580 X1= | 000008F0: 52 45 43 20 28 50 31 2C 50 32 29 3A 08 32 3D 5A |REC (P1,P2):.2=Z| 00000900: 3A 20 52 45 54 55 52 4E 20 0D 31 35 39 30 20 20 |: RETURN .1590 | 00000910: 49 46 20 49 3D 31 20 54 48 45 4E 20 20 4C 45 54 |IF I=1 THEN LET| 00000920: 20 49 3D 30 3A 50 31 3D 31 2F 50 31 3A 50 32 3D | I=0:P1=1/P1:P2=| 00000930: 2D 50 32 3A 20 47 4F 54 4F 20 31 35 38 30 0D 31 |-P2: GOTO 1580.1| 00000940: 36 30 30 20 20 52 45 54 55 52 4E 20 1A 2D 2D 2D |600 RETURN .---| 00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 5A 2D 2D 2D |------------Z---| 00000960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D CE 55 20 56 4F |----------..U VO| 000009A0: 4C 47 54 20 48 45 54 20 43 4F 4D 50 4C 45 58 45 |LGT HET COMPLEXE| 000009B0: 20 4D 41 54 52 49 58 20 50 52 4F 47 52 41 4D 4D | MATRIX PROGRAMM| 000009C0: 41 2E 0D C5 45 52 53 54 20 57 4F 52 44 54 20 4E |A...ERST WORDT N| 000009D0: 41 41 52 20 44 45 20 41 46 4D 45 54 49 4E 47 20 |AAR DE AFMETING | 000009E0: 56 41 4E 20 44 45 20 4D 41 54 52 49 58 20 47 45 |VAN DE MATRIX GE| 000009F0: 56 52 41 41 47 44 2C 20 42 56 2E 20 33 0D C8 49 |VRAAGD, BV. 3..I| 00000A00: 45 52 4E 41 20 4D 4F 45 54 20 4A 45 20 42 49 4A |ERNA MOET JE BIJ| 00000A10: 20 44 45 20 41 41 4E 47 45 47 45 56 45 4E 20 4D | DE AANGEGEVEN M| 00000A20: 41 54 52 49 58 20 50 4F 53 49 54 49 45 53 20 45 |ATRIX POSITIES E| 00000A30: 45 4E 20 43 4F 4D 50 4C 45 58 20 47 45 54 41 4C |EN COMPLEX GETAL| 00000A40: 20 49 4E 56 4F 45 52 45 4E 2E 0D CE 41 20 44 45 | INVOEREN...A DE| 00000A50: 20 47 52 4F 54 45 20 4D 41 54 52 49 58 20 56 4F | GROTE MATRIX VO| 00000A60: 45 52 20 4A 45 20 44 45 20 42 45 4B 45 4E 44 45 |ER JE DE BEKENDE| 00000A70: 20 41 43 48 54 45 52 20 48 45 54 20 3D 20 54 45 | ACHTER HET = TE| 00000A80: 4B 45 4E 20 49 4E 2C 20 48 45 54 20 50 52 4F 47 |KEN IN, HET PROG| 00000A90: 52 41 4D 4D 41 20 42 45 52 45 4B 45 4E 54 20 4E |RAMMA BEREKENT N| 00000AA0: 55 20 44 45 20 4F 4E 42 45 4B 45 4E 44 45 4E 2E |U DE ONBEKENDEN.| 00000AB0: 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 00000AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 33 |--------------.3| 00000B00: 30 30 30 20 22 5A 22 3A 20 43 4C 45 41 52 20 0D |000 "Z": CLEAR .| 00000B10: 33 30 31 30 20 20 49 4E 50 55 54 20 22 C7 52 4F |3010 INPUT ".RO| 00000B20: 4F 54 54 45 20 28 4E 2A 4E 29 20 22 3B 47 31 3A |OTTE (N*N) ";G1:| 00000B30: 47 32 3D 47 31 2A 32 0D 33 30 32 30 20 20 44 49 |G2=G1*2.3020 DI| 00000B40: 4D 20 4D 52 28 47 32 2C 47 32 29 2C 48 52 28 47 |M MR(G2,G2),HR(G| 00000B50: 32 2C 47 32 29 2C 55 43 28 47 32 29 2C 41 43 28 |2,G2),UC(G2),AC(| 00000B60: 47 32 29 0D 33 30 33 30 20 20 46 4F 52 20 41 3D |G2).3030 FOR A=| 00000B70: 31 20 54 4F 20 47 31 3A 20 46 4F 52 20 42 3D 31 |1 TO G1: FOR B=1| 00000B80: 20 54 4F 20 47 31 0D 33 30 33 32 20 20 49 46 20 | TO G1.3032 IF | 00000B90: 41 3C 3D 42 20 54 48 45 4E 20 33 30 34 30 0D 33 |A<=B THEN 3040.3| 00000BA0: 30 33 35 20 4D 52 28 41 2C 42 29 3D 4D 52 28 42 |035 MR(A,B)=MR(B| 00000BB0: 2C 41 29 3A 4D 52 28 41 2B 47 31 2C 42 2B 47 31 |,A):MR(A+G1,B+G1| 00000BC0: 29 3D 4D 52 28 42 2B 47 31 2C 41 2B 47 31 29 0D |)=MR(B+G1,A+G1).| 00000BD0: 33 30 33 37 20 4D 52 28 41 2B 47 31 2C 42 29 3D |3037 MR(A+G1,B)=| 00000BE0: 4D 52 28 42 2B 47 31 2C 41 29 3A 4D 52 28 41 2C |MR(B+G1,A):MR(A,| 00000BF0: 42 2B 47 31 29 3D 4D 52 28 42 2C 41 2B 47 31 29 |B+G1)=MR(B,A+G1)| 00000C00: 3A 20 47 4F 54 4F 20 33 30 36 30 0D 33 30 34 30 |: GOTO 3060.3040| 00000C10: 20 20 50 41 55 53 45 20 22 28 20 22 3B 20 43 48 | PAUSE "( "; CH| 00000C20: 52 24 20 28 41 2B 34 38 29 3B 22 20 2C 20 22 3B |R$ (A+48);" , ";| 00000C30: 20 43 48 52 24 20 28 42 2B 34 38 29 3B 22 20 29 | CHR$ (B+48);" )| 00000C40: 22 0D 33 30 35 30 20 20 47 4F 53 55 42 20 31 35 |".3050 GOSUB 15| 00000C50: 30 30 3A 20 49 46 20 45 52 3D 31 20 54 48 45 4E |00: IF ER=1 THEN| 00000C60: 20 33 30 34 30 0D 33 30 35 35 20 4D 52 28 41 2C | 3040.3055 MR(A,| 00000C70: 42 29 3D 58 31 3A 4D 52 28 41 2B 47 31 2C 42 29 |B)=X1:MR(A+G1,B)| 00000C80: 3D 58 32 3A 4D 52 28 41 2C 42 2B 47 31 29 3D 2D |=X2:MR(A,B+G1)=-| 00000C90: 58 32 3A 4D 52 28 41 2B 47 31 2C 42 2B 47 31 29 |X2:MR(A+G1,B+G1)| 00000CA0: 3D 58 31 0D 33 30 36 30 20 20 4E 45 58 54 20 42 |=X1.3060 NEXT B| 00000CB0: 3A 20 4E 45 58 54 20 41 0D 33 30 37 30 20 20 46 |: NEXT A.3070 F| 00000CC0: 4F 52 20 41 3D 31 20 54 4F 20 47 31 0D 33 30 38 |OR A=1 TO G1.308| 00000CD0: 30 20 20 50 41 55 53 45 20 22 2A D8 43 20 22 3B |0 PAUSE "*.C ";| 00000CE0: 20 43 48 52 24 20 28 41 2B 34 38 29 3A 20 47 4F | CHR$ (A+48): GO| 00000CF0: 53 55 42 20 31 35 30 30 3A 55 43 28 41 29 3D 58 |SUB 1500:UC(A)=X| 00000D00: 31 3A 55 43 28 41 2B 47 31 29 3D 58 32 0D 33 30 |1:UC(A+G1)=X2.30| 00000D10: 39 30 20 20 4E 45 58 54 20 41 0D 33 31 30 30 20 |90 NEXT A.3100 | 00000D20: 20 47 4F 53 55 42 20 33 35 30 30 0D 33 31 31 30 | GOSUB 3500.3110| 00000D30: 20 20 47 4F 53 55 42 20 33 38 30 30 0D 33 31 32 | GOSUB 3800.312| 00000D40: 30 20 20 55 53 49 4E 47 20 22 23 2E 23 23 23 5E |0 USING "#.###^| 00000D50: 22 3A 20 46 4F 52 20 41 3D 31 20 54 4F 20 47 31 |": FOR A=1 TO G1| 00000D60: 0D 33 31 33 30 20 58 31 3D 41 43 28 41 29 3A 58 |.3130 X1=AC(A):X| 00000D70: 32 3D 41 43 28 41 2B 47 31 29 3A 20 47 4F 53 55 |2=AC(A+G1): GOSU| 00000D80: 42 20 31 35 35 30 3A 58 33 3D 58 31 3A 58 34 3D |B 1550:X3=X1:X4=| 00000D90: 58 32 3A 50 33 3D 50 31 3A 50 34 3D 50 32 0D 33 |X2:P3=P1:P4=P2.3| 00000DA0: 31 34 30 20 20 50 52 49 4E 54 20 20 43 48 52 24 |140 PRINT CHR$| 00000DB0: 20 28 41 2B 34 38 29 3B 22 3A 22 3B 58 31 3B 22 | (A+48);":";X1;"| 00000DC0: 2B 4A 22 3B 58 32 0D 33 31 35 30 20 20 50 52 49 |+J";X2.3150 PRI| 00000DD0: 4E 54 20 20 43 48 52 24 20 28 41 2B 34 38 29 3B |NT CHR$ (A+48);| 00000DE0: 22 3A 22 3B 50 31 3B 22 45 5E 22 3B 50 32 0D 33 |":";P1;"E^";P2.3| 00000DF0: 31 36 30 20 20 4E 45 58 54 20 41 0D 33 31 37 30 |160 NEXT A.3170| 00000E00: 20 20 47 4F 54 4F 20 33 30 30 30 0D 2D 2D 2D 2D | GOTO 3000.----| 00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D C4 45 5A 45 20 52 |---------..EZE R| 00000E60: 4F 55 54 49 4E 45 20 49 4E 56 45 52 54 45 45 52 |OUTINE INVERTEER| 00000E70: 54 20 4D 41 54 52 49 58 20 CD D2 2E 0D 2D 2D 2D |T MATRIX ....---| 00000E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 33 35 30 30 20 |----------.3500 | 00000ED0: 20 46 4F 52 20 41 3D 31 20 54 4F 20 47 32 3A 20 | FOR A=1 TO G2: | 00000EE0: 46 4F 52 20 42 3D 31 20 54 4F 20 47 32 0D 33 35 |FOR B=1 TO G2.35| 00000EF0: 31 30 20 48 52 28 41 2C 42 29 3D 30 3A 20 49 46 |10 HR(A,B)=0: IF| 00000F00: 20 41 3D 42 20 54 48 45 4E 20 20 4C 45 54 20 48 | A=B THEN LET H| 00000F10: 52 28 41 2C 42 29 3D 31 0D 33 35 32 30 20 20 4E |R(A,B)=1.3520 N| 00000F20: 45 58 54 20 42 3A 20 4E 45 58 54 20 41 0D 33 35 |EXT B: NEXT A.35| 00000F30: 33 30 20 20 46 4F 52 20 41 3D 31 20 54 4F 20 47 |30 FOR A=1 TO G| 00000F40: 32 3A 20 46 4F 52 20 42 3D 31 20 54 4F 20 47 32 |2: FOR B=1 TO G2| 00000F50: 0D 33 35 34 30 20 20 49 46 20 41 3D 42 20 4F 52 |.3540 IF A=B OR| 00000F60: 20 4D 52 28 41 2C 41 29 3D 30 20 54 48 45 4E 20 | MR(A,A)=0 THEN | 00000F70: 33 36 30 30 0D 33 35 35 30 20 54 55 3D 2D 28 4D |3600.3550 TU=-(M| 00000F80: 52 28 42 2C 41 29 2F 4D 52 28 41 2C 41 29 29 0D |R(B,A)/MR(A,A)).| 00000F90: 33 35 36 30 20 20 46 4F 52 20 43 3D 31 20 54 4F |3560 FOR C=1 TO| 00000FA0: 20 47 32 0D 33 35 37 30 20 4D 52 28 42 2C 43 29 | G2.3570 MR(B,C)| 00000FB0: 3D 4D 52 28 42 2C 43 29 2B 54 55 2A 4D 52 28 41 |=MR(B,C)+TU*MR(A| 00000FC0: 2C 43 29 0D 33 35 38 30 20 48 52 28 42 2C 43 29 |,C).3580 HR(B,C)| 00000FD0: 3D 48 52 28 42 2C 43 29 2B 54 55 2A 48 52 28 41 |=HR(B,C)+TU*HR(A| 00000FE0: 2C 43 29 0D 33 35 39 30 20 20 4E 45 58 54 20 43 |,C).3590 NEXT C| 00000FF0: 0D 33 36 30 30 20 20 4E 45 58 54 20 42 3A 20 4E |.3600 NEXT B: N| 00001000: 45 58 54 20 41 0D 33 36 31 30 20 20 46 4F 52 20 |EXT A.3610 FOR | 00001010: 41 3D 31 20 54 4F 20 47 32 3A 54 55 3D 4D 52 28 |A=1 TO G2:TU=MR(| 00001020: 41 2C 41 29 3A 20 49 46 20 54 55 3D 30 20 54 48 |A,A): IF TU=0 TH| 00001030: 45 4E 20 33 36 33 30 0D 33 36 32 30 20 20 46 4F |EN 3630.3620 FO| 00001040: 52 20 42 3D 31 20 54 4F 20 47 32 3A 4D 52 28 41 |R B=1 TO G2:MR(A| 00001050: 2C 42 29 3D 48 52 28 41 2C 42 29 2F 54 55 3A 20 |,B)=HR(A,B)/TU: | 00001060: 4E 45 58 54 20 42 0D 33 36 33 30 20 20 4E 45 58 |NEXT B.3630 NEX| 00001070: 54 20 41 3A 20 52 45 54 55 52 4E 20 0D 2D 2D 2D |T A: RETURN .---| 00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D C4 45 5A 45 20 |----------..EZE | 000010D0: 52 4F 55 54 49 4E 45 20 42 45 52 45 4B 45 4E 20 |ROUTINE BEREKEN | 000010E0: CD D2 20 2A 20 D5 C3 0D 2D 2D 2D 2D 2D 2D 2D 2D |.. * ...--------| 000010F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001130: 2D 2D 2D 2D 2D 0D 33 38 30 30 20 20 46 4F 52 20 |-----.3800 FOR | 00001140: 41 3D 31 20 54 4F 20 47 32 3A 41 43 28 41 29 3D |A=1 TO G2:AC(A)=| 00001150: 30 3A 20 4E 45 58 54 20 41 0D 33 38 31 30 20 20 |0: NEXT A.3810 | 00001160: 46 4F 52 20 41 3D 31 20 54 4F 20 47 32 3A 20 46 |FOR A=1 TO G2: F| 00001170: 4F 52 20 42 3D 31 20 54 4F 20 47 32 0D 33 38 32 |OR B=1 TO G2.382| 00001180: 30 20 41 43 28 41 29 3D 41 43 28 41 29 2B 4D 52 |0 AC(A)=AC(A)+MR| 00001190: 28 41 2C 42 29 2A 55 43 28 42 29 0D 33 38 33 30 |(A,B)*UC(B).3830| 000011A0: 20 20 4E 45 58 54 20 42 3A 20 4E 45 58 54 20 41 | NEXT B: NEXT A| 000011B0: 3A 20 52 45 54 55 52 4E 20 0D 2D 2D 2D 2D 2D 2D |: RETURN .------| 000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001200: 2D 2D 2D 2D 2D 2D 2D 0D D4 48 41 54 27 53 20 41 |-------..HAT'S A| 00001210: 4C 4C 20 46 4F 4C 4B 53 2C 0D 20 C3 4F 50 59 52 |LL FOLKS,. .OPYR| 00001220: 49 47 48 54 20 31 39 38 37 20 D4 48 45 20 D7 48 |IGHT 1987 .HE .H| 00001230: 49 5A 2D 5A 41 52 44 53 20 C1 53 53 4F 43 49 41 |IZ-ZARDS .SSOCIA| 00001240: 54 49 4F 4E 0D 20 CE 4F 20 50 41 52 54 20 4F 46 |TION. .O PART OF| 00001250: 20 54 48 49 53 20 54 45 58 54 20 4D 41 59 20 42 | THIS TEXT MAY B| 00001260: 45 20 48 49 52 45 44 2C 20 53 4F 4C 44 20 4F 52 |E HIRED, SOLD OR| 00001270: 20 53 54 4F 4C 45 4E 20 57 49 54 48 4F 55 54 20 | STOLEN WITHOUT | 00001280: 57 52 49 54 54 45 4E 20 50 45 52 4D 49 53 53 49 |WRITTEN PERMISSI| 00001290: 4F 4E 20 4F 46 20 D4 48 45 20 D7 48 49 5A 2D 5A |ON OF .HE .HIZ-Z| 000012A0: 41 52 44 53 2E 0D 0D 20 C3 4F 50 59 20 4D 45 20 |ARDS... .OPY ME | 000012B0: 2C 20 50 4C 45 41 53 45 20 21 21 0D FF 54 20 57 |, PLEASE !!..T W| 000012C0: 52 49 54 54 45 4E 20 50 45 52 4D 49 53 53 49 4F |RITTEN PERMISSIO| 000012D0: 4E 20 4F 46 20 D4 48 45 20 D7 48 49 5A 2D 5A 41 |N OF .HE .HIZ-ZA| 000012E0: 52 44 53 2E 0D 0D 20 C3 4F 50 59 20 4D 45 20 2C |RDS... .OPY ME ,| 000012F0: 20 50 4C 45 41 53 45 20 21 21 0D | PLEASE !!. |
...1,79.--------------------------------
----------------------------------------
-----. HET VOLGEND PROGRAMMA KAN MET COM
PLEXE GETALLEN REKENEN.. GETALLEN KUNNE
N INGEVOERD WORDEN OP 4 MANIEREN, DAARNA
KAN JE ER DE STANDAARD OPERATIES +,-,*,
/ EN I MEE DOEN, WAARBIJ I INVERTEREN IS
... EEN COMPLEX GETAL ZIET ER ALS VOLGT
UIT:.. CA<ENTER> -
> INVOER : A+JB (CARTEGIAANS). (+J* ) B
<ENTER>.. PA<ENTER>
-> INVOER : A HOEK B (POLAIR, HOEK IN
GRADEN). (*E^ ) B<ENTER>.. ICA<EN
TER> -> INVOER : 1/(A+JB)
. (+J* ) B<ENTER>.. IPA<ENTER>
-> INVOER : 1/(A HOEK B).
(*E^ ) B<ENTER>..N.B. HET BOVENSTAANDE G
ELDT OOK VOOR HET MATRIXPROGRAMMA...NU K
AN JE +,-,* OF / (GEVOLD DOOR <ENTER>) I
NVOEREN EN NOG EEN COMPLEX GETAL, DAARNA
VERSCHIJNT DE UITKOMST IN CART. EN POL.
VORM OP HET DISPLAY..ALS DEZE UITKOMST
NOG GEINVERTEERD MOET WORDEN , KUN JE NO
G I GEBRUIKEN...------------------------
----------------------------------------
-------------.400 "D":OP=0: PRINT "ZCOMP
LEX BEREKENEN:": USING "#.###^".420 PRI
NT X1;" +J*";X2.422 PRINT P1;" *E^";P2.
425 NO=OP:OP=0: GOSUB 1500.430 IF ZT$="
+" THEN LET OP=1: GOTO 425.440 IF ZT$=
"-" THEN LET OP=2: GOTO 425.450 IF ZT$
="*" THEN LET OP=3: GOTO 425.460 IF ZT
$="/" THEN LET OP=4: GOTO 425.470 IF Z
T$="I" THEN LET I=1: GOSUB 1590: GOTO 6
00.480 IF ER=1 THEN 420.580 GOSUB 1550
: GOTO 600.590 GOSUB 1580.600 ON NO GO
TO 620,630,640,650.610 X3=X1:X4=X2:P3=P1
:P4=P2: GOTO 420.620 NO=0:X1=X1+X3:X2=X2
+X4: GOTO 580.630 NO=0:X1=X3-X1:X2=X4-X2
: GOTO 580.640 NO=0:P1=P1*P3:P2=P2+P4: G
OTO 590.650 NO=0:P1=P3/P1:P2=P4-P2: GOTO
590.-----------------------------------
----------------------------------------
--.DEZE SUBROUTINE IS VOOR HET INVOEREN
VAN EEN COMPLEX GETAL C,P,IC OF IP..----
----------------------------------------
---------------------------------.1500 E
R=0:I=0:INPUT ZT$:F$=LEFT$ (ZT$,1).1505
IF F$="I" THEN IF ZT$<>"I" THEN LET Z
T$= MID$ (ZT$,2,15):I=1:F$= LEFT$ (ZT$,1
).1510 IF F$="P" THEN 1560.1520 IF F$<
>"C" THEN LET ER=1: RETURN .1530 X1= VA
L ( MID$ (ZT$,2, LEN ZT$)).1540 INPUT "
+J* ";X2.1550 IF X1<>0 OR X2<>0 THEN L
ET P1= POL (X1,X2):P2=Z: GOTO 1590.1555
P1=0:P2=0: RETURN .1560 P1= VAL ( MID$ (
ZT$,2, LEN ZT$)).1570 INPUT "*E^ ";P2.1
580 X1= REC (P1,P2):.2=Z: RETURN .1590
IF I=1 THEN LET I=0:P1=1/P1:P2=-P2: GOT
O 1580.1600 RETURN .---------------Z---
----------------------------------------
------------------.NU VOLGT HET COMPLEXE
MATRIX PROGRAMMA..EERST WORDT NAAR DE A
FMETING VAN DE MATRIX GEVRAAGD, BV. 3.HI
ERNA MOET JE BIJ DE AANGEGEVEN MATRIX PO
SITIES EEN COMPLEX GETAL INVOEREN..NA DE
GROTE MATRIX VOER JE DE BEKENDE ACHTER
HET = TEKEN IN, HET PROGRAMMA BEREKENT N
U DE ONBEKENDEN..-----------------------
----------------------------------------
--------------.3000 "Z": CLEAR .3010 IN
PUT "GROOTTE (N*N) ";G1:G2=G1*2.3020 DI
M MR(G2,G2),HR(G2,G2),UC(G2),AC(G2).3030
FOR A=1 TO G1: FOR B=1 TO G1.3032 IF
A<=B THEN 3040.3035 MR(A,B)=MR(B,A):MR(A
+G1,B+G1)=MR(B+G1,A+G1).3037 MR(A+G1,B)=
MR(B+G1,A):MR(A,B+G1)=MR(B,A+G1): GOTO 3
060.3040 PAUSE "( "; CHR$ (A+48);" , ";
CHR$ (B+48);" )".3050 GOSUB 1500: IF E
R=1 THEN 3040.3055 MR(A,B)=X1:MR(A+G1,B)
=X2:MR(A,B+G1)=-X2:MR(A+G1,B+G1)=X1.3060
NEXT B: NEXT A.3070 FOR A=1 TO G1.308
0 PAUSE "*XC "; CHR$ (A+48): GOSUB 1500
:UC(A)=X1:UC(A+G1)=X2.3090 NEXT A.3100
GOSUB 3500.3110 GOSUB 3800.3120 USING
"#.###^": FOR A=1 TO G1.3130 X1=AC(A):X
2=AC(A+G1): GOSUB 1550:X3=X1:X4=X2:P3=P1
:P4=P2.3140 PRINT CHR$ (A+48);":";X1;"
+J";X2.3150 PRINT CHR$ (A+48);":";P1;"
E^";P2.3160 NEXT A.3170 GOTO 3000.----
----------------------------------------
---------------------------------.DEZE R
OUTINE INVERTEERT MATRIX MR..-----------
----------------------------------------
--------------------------.3500 FOR A=1
TO G2: FOR B=1 TO G2.3510 HR(A,B)=0: IF
A=B THEN LET HR(A,B)=1.3520 NEXT B: N
EXT A.3530 FOR A=1 TO G2: FOR B=1 TO G2
.3540 IF A=B OR MR(A,A)=0 THEN 3600.355
0 TU=-(MR(B,A)/MR(A,A)).3560 FOR C=1 TO
G2.3570 MR(B,C)=MR(B,C)+TU*MR(A,C).3580
HR(B,C)=HR(B,C)+TU*HR(A,C).3590 NEXT C
.3600 NEXT B: NEXT A.3610 FOR A=1 TO G
2:TU=MR(A,A): IF TU=0 THEN 3630.3620 FO
R B=1 TO G2:MR(A,B)=HR(A,B)/TU: NEXT B.3
630 NEXT A: RETURN .-------------------
----------------------------------------
------------------.DEZE ROUTINE BEREKEN
MR * UC.--------------------------------
----------------------------------------
-----.3800 FOR A=1 TO G2:AC(A)=0: NEXT
A.3810 FOR A=1 TO G2: FOR B=1 TO G2.382
0 AC(A)=AC(A)+MR(A,B)*UC(B).3830 NEXT B
: NEXT A: RETURN .----------------------
----------------------------------------
---------------.THAT'S ALL FOLKS,. COPYR
IGHT 1987 THE WHIZ-ZARDS ASSOCIATION. NO
PART OF THIS TEXT MAY BE HIRED, SOLD OR
STOLEN WITHOUT WRITTEN PERMISSION OF TH
E WHIZ-ZARDS... COPY ME , PLEASE !!..T W
RITTEN PERMISSION OF THE WHIZ-ZARDS... C
OPY ME , PLEASE !!.
> CLICK IMAGE PREVIEW FOR FULL MODAL