CIRC
FILE INFORMATION
FILENAME(S): CIRC
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:26:13
APPEARS ON: 1 disk(s)
FILE HASH
9ac30c003e732b1202f641e795e5fcfaf6b3e0897999821439a53d5d4d44509a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1 | CIRC | PRG | DuncanTwain | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 01 00 97 20 35 32 2C 31 32 34 3A 97 |..=.... 52,124:.|
00000010: 20 35 36 2C C2 28 35 32 29 3A 89 20 31 30 30 20 | 56,.(52):. 100 |
00000020: 20 20 3A 8F 20 44 52 41 41 49 45 4E 2E 20 20 20 | :. DRAAIEN. |
00000030: 20 20 20 64 72 20 44 45 4D 4F 2D 31 2E 00 84 08 | dr DEMO-1....|
00000040: 02 00 89 20 32 30 30 20 20 20 20 20 3A 8F 20 20 |... 200 :. |
00000050: 50 52 4F 47 52 41 4D 20 43 49 52 43 2E 20 20 20 |PROGRAM CIRC. |
00000060: 20 20 20 20 20 3A 52 45 4D 20 56 45 52 53 49 45 | :REM VERSIE|
00000070: 5A 45 54 2E 20 20 20 20 32 35 20 4E 4F 56 2E 31 |ZET. 25 NOV.1|
00000080: 39 39 30 2E 00 C2 08 03 00 89 20 33 30 30 20 20 |990....... 300 |
00000090: 20 20 20 3A 8F 20 20 4A 2E 48 2E 56 41 4E 20 52 | :. J.H.VAN R|
000000A0: 49 4A 4E 2E 20 20 20 20 20 20 20 20 3A 52 45 4D |IJN. :REM|
000000B0: 20 50 52 49 4E 54 64 7F 20 54 45 4B 45 4E 49 4E | PRINTd. TEKENIN|
000000C0: 47 2E 00 11 09 04 00 8F 20 20 2D 2D 2D 2D 2D 2D |G....... ------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 20 20 |--------- |
000000F0: 20 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 | DIT PROGRAMMA |
00000100: 4D 41 41 4B 54 20 4D 41 47 4E 45 54 49 53 43 48 |MAAKT MAGNETISCH|
00000110: 45 00 60 09 05 00 8F 20 20 56 45 4C 44 4C 49 4A |E.`.... VELDLIJ|
00000120: 4E 45 4E 20 4F 50 20 48 45 54 20 53 43 48 45 52 |NEN OP HET SCHER|
00000130: 4D 2C 20 5A 4F 41 4C 53 20 20 20 20 20 20 20 20 |M, ZOALS |
00000140: 20 56 45 52 4F 4F 52 5A 41 41 4B 54 20 44 4F 4F | VEROORZAAKT DOO|
00000150: 52 20 4F 4E 45 49 4E 44 49 47 20 4C 41 4E 47 45 |R ONEINDIG LANGE|
00000160: 00 AD 09 06 00 8F 20 20 64 08 48 54 45 20 53 54 |...... d.HTE ST|
00000170: 52 4F 4F 4D 44 52 41 44 45 4E 2C 20 4C 4F 4F 44 |ROOMDRADEN, LOOD|
00000180: 64 08 48 54 20 20 20 20 20 20 20 20 20 20 4F 50 |d.HT OP|
00000190: 20 48 45 54 20 53 43 48 45 52 4D 20 47 45 44 41 | HET SCHERM GEDA|
000001A0: 43 48 54 2C 20 45 4E 20 57 41 41 52 2D 00 F8 09 |CHT, EN WAAR-...|
000001B0: 07 00 8F 20 20 56 41 4E 20 44 45 20 50 4C 41 41 |... VAN DE PLAA|
000001C0: 54 53 20 28 58 2C 59 29 2C 20 44 45 20 52 49 43 |TS (X,Y), DE RIC|
000001D0: 48 54 49 4E 47 20 20 20 20 20 20 20 20 28 2B 20 |HTING (+ |
000001E0: 56 41 4E 20 4A 45 20 41 46 29 20 45 4E 20 44 45 |VAN JE AF) EN DE|
000001F0: 20 53 54 45 52 4B 54 45 00 44 0A 08 00 8F 20 20 | STERKTE.D.... |
00000200: 4B 55 4E 4E 45 4E 20 57 4F 52 44 45 4E 20 47 45 |KUNNEN WORDEN GE|
00000210: 4B 4F 5A 45 4E 2E 20 44 52 55 4B 20 3C 52 55 4E |KOZEN. DRUK <RUN|
00000220: 3E 20 20 20 20 20 20 20 45 4E 20 44 45 20 43 4F |> EN DE CO|
00000230: 4D 50 55 54 45 52 20 44 4F 45 54 20 44 45 20 52 |MPUTER DOET DE R|
00000240: 45 53 54 2E 00 93 0A 09 00 8F 20 20 4E 2E 42 2E |EST....... N.B.|
00000250: 20 45 52 20 57 4F 52 44 45 4E 20 56 52 41 47 45 | ER WORDEN VRAGE|
00000260: 4E 20 47 45 53 54 45 4C 44 2E 20 20 20 20 20 20 |N GESTELD. |
00000270: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ------------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000290: 2D 2D 2D 00 D9 0A 0A 00 50 56 B2 30 3A 58 50 B2 |---.....PV.0:XP.|
000002A0: B5 28 58 30 AA 2E 35 29 3A 59 50 B2 B5 28 59 30 |.(X0..5):YP..(Y0|
000002B0: AA 2E 35 29 3A 58 51 B2 B5 28 58 31 AA 2E 35 29 |..5):XQ..(X1..5)|
000002C0: 3A 59 51 B2 B5 28 59 31 AA 2E 35 29 20 3A 8F 20 |:YQ..(Y1..5) :. |
000002D0: 4C 49 4A 4E 20 30 2D 31 2E 00 06 0B 0B 00 8B 20 |LIJN 0-1....... |
000002E0: 58 50 B3 30 20 B0 20 58 50 B1 33 31 39 20 B0 20 |XP.0 . XP.319 . |
000002F0: 58 51 B3 30 20 B0 20 58 51 B1 33 31 39 20 A7 20 |XQ.0 . XQ.319 . |
00000300: 50 56 B2 31 3A 8E 00 33 0B 0C 00 8B 20 59 50 B3 |PV.1:..3.... YP.|
00000310: 30 20 B0 20 59 50 B1 31 39 39 20 B0 20 59 51 B3 |0 . YP.199 . YQ.|
00000320: 30 20 B0 20 59 51 B1 31 39 39 20 A7 20 50 56 B2 |0 . YQ.199 . PV.|
00000330: 31 3A 8E 00 4A 0B 0D 00 64 03 20 58 50 2C 59 50 |1:..J...d. XP,YP|
00000340: 2C 58 51 2C 59 51 2C 31 3A 8E 00 72 0B 0F 00 49 |,XQ,YQ,1:..r...I|
00000350: 24 B2 C7 28 31 29 AA C4 28 49 29 3A 64 6F 20 58 |$..(1)..(I):do X|
00000360: AB 31 30 2C 59 AA 35 2C 49 24 2C 31 2C 31 2C 38 |.10,Y.5,I$,1,1,8|
00000370: 3A 8E 00 B1 0B 11 00 81 20 57 B2 30 20 A4 20 31 |:....... W.0 . 1|
00000380: 3A 64 02 20 58 AB 31 AA 57 AA 57 2C 59 AB 31 2C |:d. X.1.W.W,Y.1,|
00000390: 31 3A 64 02 20 58 AB 31 AA 57 AA 57 2C 59 AA 31 |1:d. X.1.W.W,Y.1|
000003A0: 2C 31 3A 82 20 57 3A 64 02 20 58 2C 59 2C 31 3A |,1:. W:d. X,Y,1:|
000003B0: 8E 00 E0 0B 13 00 99 20 C7 28 31 34 37 29 C7 28 |....... .(147).(|
000003C0: 31 35 36 29 3A 81 20 49 B2 30 20 A4 20 39 3A 99 |156):. I.0 . 9:.|
000003D0: 3A 82 20 49 3A 99 20 22 20 20 20 22 4B 24 3A 8E |:. I:. " "K$:.|
000003E0: 00 2E 0C 14 00 48 58 B2 30 3A 48 59 B2 30 3A 50 |.....HX.0:HY.0:P|
000003F0: 46 B2 36 33 2E 36 36 32 3A 48 56 B2 30 20 20 20 |F.63.662:HV.0 |
00000400: 20 20 20 20 20 3A 8F 20 56 45 4C 44 20 28 48 58 | :. VELD (HX|
00000410: 28 58 2C 59 29 2C 48 59 28 58 2C 59 29 29 3B 53 |(X,Y),HY(X,Y));S|
00000420: 54 45 52 4B 54 45 20 48 28 58 2C 59 29 2E 00 77 |TERKTE H(X,Y)..w|
00000430: 0C 15 00 81 20 55 B2 31 20 A4 20 4E 3A 58 4D B2 |.... U.1 . N:XM.|
00000440: 58 AB 58 47 28 55 29 3A 59 4D B2 59 AB 59 47 28 |X.XG(U):YM.Y.YG(|
00000450: 55 29 20 3A 8F 20 45 45 4E 48 45 49 44 53 56 45 |U) :. EENHEIDSVE|
00000460: 43 54 4F 52 20 28 46 58 28 58 2C 59 29 2C 46 59 |CTOR (FX(X,Y),FY|
00000470: 28 58 2C 59 29 29 2E 00 A9 0C 16 00 43 46 B2 49 |(X,Y))......CF.I|
00000480: 28 55 29 AD 28 58 4D AC 58 4D AA 59 4D AC 59 4D |(U).(XM.XM.YM.YM|
00000490: 29 3A 48 58 B2 48 58 AB 43 46 AC 59 4D 3A 48 59 |):HX.HX.CF.YM:HY|
000004A0: B2 48 59 AA 43 46 AC 58 4D 00 E7 0C 17 00 82 20 |.HY.CF.XM...... |
000004B0: 55 3A 48 B2 BA 28 48 58 AC 48 58 AA 48 59 AC 48 |U:H..(HX.HX.HY.H|
000004C0: 59 29 3A 8B 20 48 B2 30 20 A7 20 48 56 B2 31 3A |Y):. H.0 . HV.1:|
000004D0: 8E 20 20 20 3A 8F 20 56 45 4C 44 53 54 45 52 4B |. :. VELDSTERK|
000004E0: 54 45 20 4E 55 4C 2E 00 2E 0D 18 00 46 58 B2 48 |TE NUL......FX.H|
000004F0: 58 AD 48 3A 46 59 B2 48 59 AD 48 3A 48 58 B2 48 |X.H:FY.HY.H:HX.H|
00000500: 58 AC 50 46 3A 48 59 B2 48 59 AC 50 46 3A 48 B2 |X.PF:HY.HY.PF:H.|
00000510: 48 AC 50 46 3A 8E 20 20 20 20 20 3A 8F 20 56 45 |H.PF:. :. VE|
00000520: 4C 44 53 54 2E 4E 49 45 54 20 4E 55 4C 2E 00 6A |LDST.NIET NUL..j|
00000530: 0D 1E 00 58 B2 58 4F 3A 59 B2 59 4F 3A 8D 20 32 |...X.XO:Y.YO:. 2|
00000540: 30 3A 8B 20 48 56 B2 31 20 A7 20 8E 20 20 3A 8F |0:. HV.1 . . :.|
00000550: 20 50 55 4E 54 20 28 58 4E 2C 59 4E 29 20 55 49 | PUNT (XN,YN) UI|
00000560: 54 20 28 58 4F 2C 59 4F 29 2E 00 9A 0D 1F 00 44 |T (XO,YO)......D|
00000570: 53 B2 47 46 AD 48 3A 4F 58 B2 46 58 3A 4F 59 B2 |S.GF.H:OX.FX:OY.|
00000580: 46 59 3A 58 4E B2 58 4F AA 44 53 AC 4F 58 3A 59 |FY:XN.XO.DS.OX:Y|
00000590: 4E B2 59 4F AA 44 53 AC 4F 59 00 C7 0D 20 00 58 |N.YO.DS.OY... .X|
000005A0: B2 58 4E 3A 59 B2 59 4E 3A 8D 20 32 30 3A 42 4E |.XN:Y.YN:. 20:BN|
000005B0: B2 46 58 AC 4F 59 AB 46 59 AC 4F 58 3A 8B 20 42 |.FX.OY.FY.OX:. B|
000005C0: 4E B2 30 20 A7 20 8E 00 E5 0D 21 00 42 4E B2 46 |N.0 . ....!.BN.F|
000005D0: 58 AC 4F 59 AB 46 59 AC 4F 58 3A 8B 20 42 4E B2 |X.OY.FY.OX:. BN.|
000005E0: 30 20 A7 20 8E 00 29 0E 22 00 42 52 B2 28 46 58 |0 . ..).".BR.(FX|
000005F0: AC 28 58 AB 58 4F 29 AA 46 59 AC 28 59 AB 59 4F |.(X.XO).FY.(Y.YO|
00000600: 29 29 AD 42 4E 3A 58 4E B2 58 4F AB 28 46 59 AB |)).BN:XN.XO.(FY.|
00000610: 4F 59 29 AC 42 52 3A 59 4E B2 59 4F AA 28 46 58 |OY).BR:YN.YO.(FX|
00000620: AB 4F 58 29 AC 42 52 3A 8E 00 60 0E 28 00 81 20 |.OX).BR:..`.(.. |
00000630: 58 B2 30 20 A4 20 33 31 30 20 A9 20 31 30 3A 81 |X.0 . 310 . 10:.|
00000640: 20 59 B2 30 20 A4 20 31 39 30 20 A9 20 31 30 3A | Y.0 . 190 . 10:|
00000650: 64 02 20 58 2C 59 2C 31 3A 82 20 59 3A 82 20 58 |d. X,Y,1:. Y:. X|
00000660: 00 88 0E 29 00 81 20 58 B2 34 30 20 A4 20 32 38 |...).. X.40 . 28|
00000670: 30 20 A9 20 34 30 3A 81 20 59 B2 32 30 20 A4 20 |0 . 40:. Y.20 . |
00000680: 31 38 30 20 A9 20 34 30 00 B8 0E 2A 00 64 02 20 |180 . 40...*.d. |
00000690: 58 AB 32 2C 59 2C 31 3A 64 02 20 58 AB 31 2C 59 |X.2,Y,1:d. X.1,Y|
000006A0: 2C 31 3A 64 02 20 58 AA 31 2C 59 2C 31 3A 64 02 |,1:d. X.1,Y,1:d.|
000006B0: 20 58 AA 32 2C 59 2C 31 00 E8 0E 2B 00 64 02 20 | X.2,Y,1...+.d. |
000006C0: 58 2C 59 AB 32 2C 31 3A 64 02 20 58 2C 59 AB 31 |X,Y.2,1:d. X,Y.1|
000006D0: 2C 31 3A 64 02 20 58 2C 59 AA 31 2C 31 3A 64 02 |,1:d. X,Y.1,1:d.|
000006E0: 20 58 2C 59 AA 32 2C 31 00 F6 0E 2C 00 82 20 59 | X,Y.2,1...,.. Y|
000006F0: 3A 82 20 58 3A 8E 00 19 0F 2D 00 81 20 55 B2 30 |:. X:....-.. U.0|
00000700: 20 A4 20 33 31 39 20 A9 20 32 3A 64 02 20 55 2C | . 319 . 2:d. U,|
00000710: 31 30 30 2C 31 3A 82 20 55 00 3E 0F 2E 00 81 20 |100,1:. U.>.... |
00000720: 55 B2 30 20 A4 20 31 39 39 20 A9 20 32 3A 64 02 |U.0 . 199 . 2:d.|
00000730: 20 31 36 30 2C 55 2C 31 3A 82 20 55 3A 8E 00 78 | 160,U,1:. U:..x|
00000740: 0F 32 00 58 41 24 B2 C9 28 C4 28 31 30 30 30 AA |.2.XA$..(.(1000.|
00000750: 58 29 2C 33 29 3A 8B 20 58 41 24 B2 58 42 24 20 |X),3):. XA$.XB$ |
00000760: A7 20 35 35 20 20 20 3A 8F 20 64 59 4B 53 42 4F |. 55 :. dYKSBO|
00000770: 56 2E 43 4F 4F 52 44 2E 00 A4 0F 33 00 4B 24 B2 |V.COORD....3.K$.|
00000780: 58 43 24 AA 58 42 24 AA 22 2E 22 3A 64 6F 20 35 |XC$.XB$.".":do 5|
00000790: 2C 33 37 2C 4B 24 2C 30 2C 31 2C 38 3A 58 42 24 |,37,K$,0,1,8:XB$|
000007A0: B2 58 41 24 00 C8 0F 34 00 4B 24 B2 58 43 24 AA |.XA$...4.K$.XC$.|
000007B0: 58 42 24 AA 22 2E 22 3A 64 6F 20 35 2C 33 37 2C |XB$.".":do 5,37,|
000007C0: 4B 24 2C 31 2C 31 2C 38 00 EE 0F 37 00 59 41 24 |K$,1,1,8...7.YA$|
000007D0: B2 C9 28 C4 28 31 30 30 30 AA 59 29 2C 33 29 3A |..(.(1000.Y),3):|
000007E0: 8B 20 59 41 24 B2 59 42 24 20 A7 20 35 38 00 1A |. YA$.YB$ . 58..|
000007F0: 10 38 00 4B 24 B2 59 43 24 AA 59 42 24 AA 22 2E |.8.K$.YC$.YB$.".|
00000800: 22 3A 64 6F 20 35 2C 34 35 2C 4B 24 2C 30 2C 31 |":do 5,45,K$,0,1|
00000810: 2C 38 3A 59 42 24 B2 59 41 24 00 3E 10 39 00 4B |,8:YB$.YA$.>.9.K|
00000820: 24 B2 59 43 24 AA 59 42 24 AA 22 2E 22 3A 64 6F |$.YC$.YB$.".":do|
00000830: 20 35 2C 34 35 2C 4B 24 2C 31 2C 31 2C 38 00 44 | 5,45,K$,1,1,8.D|
00000840: 10 3A 00 8E 00 90 10 3C 00 4C B2 34 39 31 35 32 |.:.....<.L.49152|
00000850: 3A 4D B2 4C AA 36 3A 4E B2 4D AA 36 3A 4F B2 4E |:M.L.6:N.M.6:O.N|
00000860: AA 36 3A 50 B2 4F AA 36 20 20 20 20 20 20 20 20 |.6:P.O.6 |
00000870: 3A 8F 20 4D 41 43 48 49 4E 45 43 4F 44 45 20 43 |:. MACHINECODE C|
00000880: 4F 44 2E 44 45 54 45 43 41 20 4C 45 5A 45 4E 2E |OD.DETECA LEZEN.|
00000890: 00 CA 10 3D 00 97 4C AA 30 2C 31 36 39 3A 97 4C |...=..L.0,169:.L|
000008A0: AA 31 2C 30 30 31 3A 97 4C AA 32 2C 31 36 32 3A |.1,001:.L.2,162:|
000008B0: 97 4C AA 33 2C 30 30 38 3A 97 4C AA 34 2C 31 36 |.L.3,008:.L.4,16|
000008C0: 30 3A 97 4C AA 35 2C 30 30 31 00 04 11 3E 00 97 |0:.L.5,001...>..|
000008D0: 4D AA 30 2C 30 33 32 3A 97 4D AA 31 2C 31 38 36 |M.0,032:.M.1,186|
000008E0: 3A 97 4D AA 32 2C 32 35 35 3A 97 4D AA 33 2C 31 |:.M.2,255:.M.3,1|
000008F0: 37 33 3A 97 4D AA 34 2C 31 38 38 3A 97 4D AA 35 |73:.M.4,188:.M.5|
00000900: 2C 30 30 32 00 3E 11 3F 00 97 4E AA 30 2C 31 36 |,002.>.?..N.0,16|
00000910: 32 3A 97 4E AA 31 2C 31 38 39 3A 97 4E AA 32 2C |2:.N.1,189:.N.2,|
00000920: 31 36 30 3A 97 4E AA 33 2C 30 30 32 3A 97 4E AA |160:.N.3,002:.N.|
00000930: 34 2C 30 33 32 3A 97 4E AA 35 2C 31 38 39 00 78 |4,032:.N.5,189.x|
00000940: 11 40 00 97 4F AA 30 2C 32 35 35 3A 97 4F AA 31 |.@..O.0,255:.O.1|
00000950: 2C 31 36 39 3A 97 4F AA 32 2C 30 30 30 3A 97 4F |,169:.O.2,000:.O|
00000960: AA 33 2C 31 36 32 3A 97 4F AA 34 2C 32 35 35 3A |.3,162:.O.4,255:|
00000970: 97 4F AA 35 2C 31 36 30 00 B2 11 41 00 97 50 AA |.O.5,160...A..P.|
00000980: 30 2C 32 35 35 3A 97 50 AA 31 2C 30 33 32 3A 97 |0,255:.P.1,032:.|
00000990: 50 AA 32 2C 32 31 33 3A 97 50 AA 33 2C 32 35 35 |P.2,213:.P.3,255|
000009A0: 3A 97 50 AA 34 2C 30 39 36 3A 97 50 AA 35 2C 30 |:.P.4,096:.P.5,0|
000009B0: 30 30 00 E5 11 42 00 4E 24 B2 22 43 4F 44 2E 44 |00...B.N$."COD.D|
000009C0: 45 54 45 43 41 22 3A 4C B2 C3 28 4E 24 29 3A 97 |ETECA":L..(N$):.|
000009D0: 20 37 30 30 2C 4C 3A 4C 46 B2 30 3A 81 20 49 B2 | 700,L:LF.0:. I.|
000009E0: 31 20 A4 20 4C 00 1A 12 43 00 97 20 37 30 30 AA |1 . L...C.. 700.|
000009F0: 49 2C C6 28 CA 28 4E 24 2C 49 2C 31 29 29 3A 82 |I,.(.(N$,I,1)):.|
00000A00: 20 49 3A 9E 20 34 39 31 35 32 3A 8B 20 53 54 B3 | I:. 49152:. ST.|
00000A10: B1 36 34 20 A7 20 4C 46 B2 31 00 20 12 44 00 8E |.64 . LF.1. .D..|
00000A20: 00 55 12 64 00 86 20 58 47 28 39 29 2C 59 47 28 |.U.d.. XG(9),YG(|
00000A30: 39 29 2C 49 28 39 29 2C 58 58 28 31 39 39 29 2C |9),I(9),XX(199),|
00000A40: 59 59 28 31 39 39 29 2C 58 42 28 31 39 29 2C 59 |YY(199),XB(19),Y|
00000A50: 42 28 31 39 29 00 8C 12 65 00 4B 24 B2 22 57 41 |B(19)...e.K$."WA|
00000A60: 43 48 54 20 45 56 45 4E 2E 22 3A 8D 31 39 3A 99 |CHT EVEN.":.19:.|
00000A70: 3A 8D 36 30 3A 8B 4C 46 B2 31 A7 99 22 4C 41 41 |:.60:.LF.1.."LAA|
00000A80: 44 46 4F 55 54 2E 22 3A 89 32 33 35 00 AF 12 66 |DFOUT.":.235...f|
00000A90: 00 99 3A 99 20 22 20 20 4D 41 43 48 49 4E 45 43 |..:. " MACHINEC|
00000AA0: 4F 44 45 20 47 45 4C 41 44 45 4E 2E 22 3A 99 00 |ODE GELADEN.":..|
00000AB0: D1 12 67 00 85 20 22 41 41 4E 54 41 4C 20 47 45 |..g.. "AANTAL GE|
00000AC0: 4C 45 49 44 45 52 53 20 28 31 2E 2E 39 29 22 3B |LEIDERS (1..9)";|
00000AD0: 4E 00 FF 12 68 00 8B 20 4E B3 31 20 B0 20 4E B1 |N...h.. N.1 . N.|
00000AE0: 39 20 A7 20 99 3A 99 20 22 20 20 20 4E 20 49 53 |9 . .:. " N IS|
00000AF0: 20 46 4F 55 54 21 22 3A 99 3A 89 20 31 30 33 00 | FOUT!":.:. 103.|
00000B00: 19 13 69 00 52 24 B2 C7 28 31 35 37 29 3A 81 20 |..i.R$..(157):. |
00000B10: 55 B2 31 20 A4 20 4E 3A 99 00 57 13 6A 00 99 20 |U.1 . N:..W.j.. |
00000B20: 22 50 4C 41 41 54 53 20 58 20 56 41 4E 20 47 45 |"PLAATS X VAN GE|
00000B30: 4C 45 49 44 45 52 22 55 3B 52 24 22 2C 20 49 4E |LEIDER"U;R$", IN|
00000B40: 20 43 4D 22 3A 85 20 22 28 2D 33 39 2E 2E 2E 2B | CM":. "(-39...+|
00000B50: 33 39 29 22 3B 58 56 00 84 13 6B 00 8B 20 B6 28 |39)";XV...k.. .(|
00000B60: 58 56 29 B1 33 39 20 A7 20 99 3A 99 20 22 20 20 |XV).39 . .:. " |
00000B70: 20 58 20 49 53 20 46 4F 55 54 21 22 3A 99 3A 89 | X IS FOUT!":.:.|
00000B80: 20 31 30 36 00 C2 13 6C 00 99 20 22 50 4C 41 41 | 106...l.. "PLAA|
00000B90: 54 53 20 59 20 56 41 4E 20 47 45 4C 45 49 44 45 |TS Y VAN GELEIDE|
00000BA0: 52 22 55 3B 52 24 22 2C 20 49 4E 20 43 4D 22 3A |R"U;R$", IN CM":|
00000BB0: 85 20 22 28 2D 32 34 2E 2E 2E 2B 32 34 29 22 3B |. "(-24...+24)";|
00000BC0: 59 56 00 EF 13 6D 00 8B 20 B6 28 59 56 29 B1 32 |YV...m.. .(YV).2|
00000BD0: 34 20 A7 20 99 3A 99 20 22 20 20 20 59 20 49 53 |4 . .:. " Y IS|
00000BE0: 20 46 4F 55 54 21 22 3A 99 3A 89 20 31 30 38 00 | FOUT!":.:. 108.|
00000BF0: 20 14 6E 00 99 20 22 53 54 52 4F 4F 4D 20 44 4F | .n.. "STROOM DO|
00000C00: 4F 52 20 47 45 4C 45 49 44 45 52 22 55 3A 85 20 |OR GELEIDER"U:. |
00000C10: 22 28 2D 31 30 2E 2E 2E 2B 31 30 29 22 3B 49 56 |"(-10...+10)";IV|
00000C20: 00 54 14 6F 00 8B 20 49 56 B3 AB 31 30 20 B0 20 |.T.o.. IV..10 . |
00000C30: 49 56 B1 AA 31 30 20 A7 20 99 3A 99 20 22 20 20 |IV..10 . .:. " |
00000C40: 20 49 20 49 53 20 46 4F 55 54 21 22 3A 99 3A 89 | I IS FOUT!":.:.|
00000C50: 20 31 31 30 00 7E 14 70 00 58 47 28 55 29 B2 34 | 110.~.p.XG(U).4|
00000C60: AC 58 56 AA 31 36 30 3A 59 47 28 55 29 B2 31 30 |.XV.160:YG(U).10|
00000C70: 30 AB 34 AC 59 56 3A 49 28 55 29 B2 49 56 00 92 |0.4.YV:I(U).IV..|
00000C80: 14 71 00 82 20 55 3A 8B 20 4E B2 31 20 A7 20 31 |.q.. U:. N.1 . 1|
00000C90: 31 38 00 BB 14 72 00 47 56 B2 30 3A 81 20 55 B2 |18...r.GV.0:. U.|
00000CA0: 31 20 A4 20 4E 3A 81 20 56 B2 55 20 A4 20 4E 3A |1 . N:. V.U . N:|
00000CB0: 8B 20 55 B2 56 20 A7 20 31 31 37 00 E4 14 73 00 |. U.V . 117...s.|
00000CC0: 8B 20 A8 28 58 47 28 55 29 B2 58 47 28 56 29 20 |. .(XG(U).XG(V) |
00000CD0: AF 20 59 47 28 55 29 B2 59 47 28 56 29 29 20 A7 |. YG(U).YG(V)) .|
00000CE0: 20 31 31 37 00 12 15 74 00 99 3A 99 20 22 47 45 | 117...t..:. "GE|
00000CF0: 4C 45 49 44 45 52 53 22 55 22 45 4E 22 56 22 56 |LEIDERS"U"EN"V"V|
00000D00: 41 4C 4C 45 4E 20 53 41 4D 45 4E 2E 22 3A 47 56 |ALLEN SAMEN.":GV|
00000D10: B2 31 00 2B 15 75 00 82 20 56 3A 82 20 55 3A 8B |.1.+.u.. V:. U:.|
00000D20: 20 47 56 B2 31 20 A7 20 32 33 35 00 58 15 76 00 | GV.1 . 235.X.v.|
00000D30: 99 3A 99 20 22 42 45 47 49 4E 50 55 4E 54 45 4E |.:. "BEGINPUNTEN|
00000D40: 20 28 43 4D 29 20 56 41 4E 20 56 45 4C 44 4C 49 | (CM) VAN VELDLI|
00000D50: 4A 4E 45 4E 2E 22 3A 99 00 7C 15 78 00 85 20 22 |JNEN.":..|.x.. "|
00000D60: 41 41 4E 54 41 4C 20 56 45 4C 44 4C 49 4A 4E 45 |AANTAL VELDLIJNE|
00000D70: 4E 20 28 31 2E 2E 31 39 29 22 3B 4D 00 A1 15 79 |N (1..19)";M...y|
00000D80: 00 8B 20 4D B3 31 20 B0 20 4D B1 31 39 20 A7 20 |.. M.1 . M.19 . |
00000D90: 99 20 22 46 4F 55 54 21 22 3A 99 3A 89 20 31 32 |. "FOUT!":.:. 12|
00000DA0: 30 00 C2 15 7A 00 81 20 56 B2 31 20 A4 20 4D 3A |0...z.. V.1 . M:|
00000DB0: 99 3A 99 20 22 56 45 4C 44 4C 49 4A 4E 22 56 22 |.:. "VELDLIJN"V"|
00000DC0: 3A 22 00 ED 15 7B 00 85 20 22 58 20 28 2D 33 39 |:"...{.. "X (-39|
00000DD0: 2E 2E 2B 33 39 29 20 45 4E 20 59 20 28 2D 32 34 |..+39) EN Y (-24|
00000DE0: 2E 2E 2B 32 34 29 22 3B 58 56 2C 59 56 00 1B 16 |..+24)";XV,YV...|
00000DF0: 7C 00 8B 20 B6 28 58 56 29 B1 33 39 20 B0 20 B6 ||.. .(XV).39 . .|
00000E00: 28 59 56 29 B1 32 34 20 A7 20 99 20 22 46 4F 55 |(YV).24 . . "FOU|
00000E10: 54 21 22 3A 99 3A 89 20 31 32 33 00 64 16 7D 00 |T!":.:. 123.d.}.|
00000E20: 58 42 B2 34 AC 58 56 AA 31 36 30 3A 59 42 B2 31 |XB.4.XV.160:YB.1|
00000E30: 30 30 AB 34 AC 59 56 3A 46 56 B2 30 3A 81 20 55 |00.4.YV:FV.0:. U|
00000E40: B2 31 20 A4 20 4E 20 3A 8F 20 56 45 4C 44 20 4D |.1 . N :. VELD M|
00000E50: 41 47 20 4E 49 45 54 20 4F 50 20 47 45 4C 45 49 |AG NIET OP GELEI|
00000E60: 44 45 52 2E 00 A5 16 7E 00 8B 20 28 58 42 B2 58 |DER....~.. (XB.X|
00000E70: 47 28 55 29 20 AF 20 59 42 B2 59 47 28 55 29 29 |G(U) . YB.YG(U))|
00000E80: 20 A7 20 99 20 22 56 45 4C 44 20 44 4F 4F 52 20 | . . "VELD DOOR |
00000E90: 47 45 4C 45 49 44 45 52 2E 22 3A 55 B2 4E AA 31 |GELEIDER.":U.N.1|
00000EA0: 3A 46 56 B2 31 00 BA 16 7F 00 82 20 55 3A 8B 20 |:FV.1...... U:. |
00000EB0: 46 56 B2 31 20 A7 20 31 32 33 00 D4 16 80 00 58 |FV.1 . 123.....X|
00000EC0: 42 28 56 29 B2 58 42 3A 59 42 28 56 29 B2 59 42 |B(V).XB:YB(V).YB|
00000ED0: 3A 82 20 56 00 08 17 82 00 64 1A 20 31 31 2C 31 |:. V.....d. 11,1|
00000EE0: 35 3A 64 01 20 31 35 2C 31 31 3A 8D 20 34 30 3A |5:d. 15,11:. 40:|
00000EF0: 8D 20 34 35 20 3A 8F 20 52 41 53 54 45 52 20 45 |. 45 :. RASTER E|
00000F00: 4E 20 41 53 53 45 4E 2E 00 36 17 84 00 64 6F 20 |N ASSEN..6...do |
00000F10: 32 30 2C 31 2C 22 02 22 AA 22 20 20 C3 49 4A 46 |20,1,"."." .IJF|
00000F20: 45 52 53 20 49 4E 20 C1 4D 50 45 52 45 53 2E 22 |ERS IN .MPERES."|
00000F30: 2C 31 2C 31 2C 38 00 69 17 86 00 64 6F 20 31 35 |,1,1,8.i...do 15|
00000F40: 2C 39 2C 22 02 22 AA 22 31 30 20 43 4D 20 54 55 |,9,"."."10 CM TU|
00000F50: 53 53 45 4E 20 54 57 45 45 20 4B 52 55 49 53 45 |SSEN TWEE KRUISE|
00000F60: 4E 2E 22 2C 31 2C 31 2C 38 00 AD 17 88 00 81 20 |N.",1,1,8...... |
00000F70: 55 B2 31 20 A4 20 4E 3A 58 B2 58 47 28 55 29 3A |U.1 . N:X.XG(U):|
00000F80: 59 B2 59 47 28 55 29 3A 49 B2 49 28 55 29 20 3A |Y.YG(U):I.I(U) :|
00000F90: 8F 20 47 45 4C 45 49 44 45 52 53 20 64 02 54 45 |. GELEIDERS d.TE|
00000FA0: 4E 20 4D 45 54 20 53 54 52 4F 4F 4D 2E 00 E8 17 |N MET STROOM....|
00000FB0: 8A 00 8D 20 31 37 3A 8D 20 31 35 3A 82 20 55 3A |... 17:. 15:. U:|
00000FC0: 48 46 B2 33 30 20 20 20 20 20 20 3A 8F 20 42 45 |HF.30 :. BE|
00000FD0: 4E 41 44 45 52 20 44 53 3D 2B 33 30 2F 48 20 4F |NADER DS=+30/H O|
00000FE0: 46 20 2D 33 30 2F 48 2E 00 2C 18 8C 00 81 20 56 |F -30/H..,.... V|
00000FF0: B2 31 20 A4 20 4D 3A 4C B2 30 3A 52 56 B2 30 3A |.1 . M:L.0:RV.0:|
00001000: 47 46 B2 48 46 3A 58 41 B2 58 42 28 56 29 3A 59 |GF.HF:XA.XB(V):Y|
00001010: 41 B2 59 42 28 56 29 20 20 20 20 20 20 20 20 3A |A.YB(V) :|
00001020: 8F 20 42 45 47 49 4E 50 55 4E 54 2E 00 72 18 96 |. BEGINPUNT..r..|
00001030: 00 58 4E B2 58 41 3A 59 4E B2 59 41 3A 56 4C B2 |.XN.XA:YN.YA:VL.|
00001040: 30 3A 89 20 31 36 30 20 20 20 20 20 20 20 20 20 |0:. 160 |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 3A 8F 20 45 45 52 53 54 45 20 4D 41 41 | :. EERSTE MAA|
00001070: 4C 2E 00 B3 18 9B 00 8B 20 56 4C B2 30 20 A7 20 |L....... VL.0 . |
00001080: 56 4C B2 31 20 20 20 20 20 20 20 20 20 20 20 20 |VL.1 |
00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010A0: 20 20 20 20 20 20 20 20 3A 8F 20 4C 55 53 56 4C | :. LUSVL|
000010B0: 41 47 2E 00 D5 18 A0 00 58 4F B2 58 4E 3A 59 4F |AG......XO.XN:YO|
000010C0: B2 59 4E 3A 58 58 28 4C 29 B2 58 4F 3A 59 59 28 |.YN:XX(L).XO:YY(|
000010D0: 4C 29 B2 59 4F 00 EB 18 A2 00 8D 20 33 30 3A 8B |L).YO...... 30:.|
000010E0: 20 48 56 B2 30 20 A7 20 31 37 30 00 26 19 A4 00 | HV.0 . 170.&...|
000010F0: 8B 20 56 4C B2 30 20 A7 20 31 39 30 20 20 20 20 |. VL.0 . 190 |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001110: 3A 8F 20 4F 4D 47 45 56 49 4E 47 20 42 45 47 49 |:. OMGEVING BEGI|
00001120: 4E 50 55 4E 54 2E 00 5B 19 A6 00 8B 20 52 56 B2 |NPUNT..[.... RV.|
00001130: 31 20 A7 20 31 39 30 20 20 20 20 20 20 20 20 20 |1 . 190 |
00001140: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 52 49 | :. RI|
00001150: 43 48 54 49 4E 47 56 4C 41 47 2E 00 A0 19 A8 00 |CHTINGVLAG......|
00001160: 47 46 B2 AB 48 46 3A 52 56 B2 31 3A 89 20 31 35 |GF..HF:RV.1:. 15|
00001170: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 |
00001180: 20 3A 8F 20 4F 50 4E 49 45 55 57 20 4D 41 41 52 | :. OPNIEUW MAAR|
00001190: 20 41 4E 44 45 52 45 20 4B 41 4E 54 20 4F 50 2E | ANDERE KANT OP.|
000011A0: 00 CE 19 AA 00 58 30 B2 58 4F 3A 59 30 B2 59 4F |.....X0.XO:Y0.YO|
000011B0: 3A 58 31 B2 58 4E 3A 59 31 B2 59 4E 3A 8D 20 31 |:X1.XN:Y1.YN:. 1|
000011C0: 30 3A 8B 20 50 56 B2 31 20 A7 20 31 36 36 00 E6 |0:. PV.1 . 166..|
000011D0: 19 AC 00 4C B2 4C AA 31 3A 8B 20 4C B1 31 39 39 |...L.L.1:. L.199|
000011E0: 20 A7 20 31 39 30 00 1D 1A AF 00 8B 20 B6 28 58 | . 190...... .(X|
000011F0: 4E AB 58 41 29 B1 44 53 20 A7 20 31 35 35 20 20 |N.XA).DS . 155 |
00001200: 20 20 20 20 20 20 20 20 20 3A 8F 20 4C 49 4A 4E | :. LIJN|
00001210: 20 41 4C 20 47 45 53 4C 4F 54 45 4E 3F 00 35 1A | AL GESLOTEN?.5.|
00001220: B4 00 8B 20 B6 28 59 4E AB 59 41 29 B1 44 53 20 |... .(YN.YA).DS |
00001230: A7 20 31 35 35 00 46 1A B9 00 8B 20 56 4C B2 30 |. 155.F.... VL.0|
00001240: 20 A7 20 31 36 30 00 4E 1A BE 00 82 20 56 00 5D | . 160.N.... V.]|
00001250: 1A C3 00 64 66 20 35 3A 89 20 32 33 35 00 7F 1A |...df 5:. 235...|
00001260: C8 00 94 20 22 54 45 22 2C 38 3A 99 3A 99 20 22 |... "TE",8:.:. "|
00001270: 47 45 52 45 44 20 4E 41 41 52 20 54 45 2E 22 00 |GERED NAAR TE.".|
00001280: A4 1A CD 00 95 20 22 54 45 22 2C 38 3A 99 3A 99 |..... "TE",8:.:.|
00001290: 20 22 54 45 20 47 45 43 4F 4E 54 52 4F 4C 45 45 | "TE GECONTROLEE|
000012A0: 52 44 2E 22 00 BD 1A D2 00 9F 20 35 2C 38 2C 31 |RD."...... 5,8,1|
000012B0: 35 2C 22 53 30 3A 43 49 52 43 2F 4F 22 00 D8 1A |5,"S0:CIRC/O"...|
000012C0: D7 00 98 35 2C 20 22 52 30 3A 43 49 52 43 2F 4F |...5, "R0:CIRC/O|
000012D0: 3D 30 3A 43 49 52 43 22 00 EF 1A DC 00 98 35 2C |=0:CIRC"......5,|
000012E0: 20 22 52 30 3A 43 49 52 43 3D 30 3A 54 45 22 00 | "R0:CIRC=0:TE".|
000012F0: F7 1A E1 00 A0 20 35 00 17 1B E6 00 99 3A 99 20 |..... 5......:. |
00001300: 22 56 45 52 53 49 45 5A 45 54 20 43 49 52 43 20 |"VERSIEZET CIRC |
00001310: 4B 4C 41 41 52 2E 22 00 1D 1B EB 00 80 00 56 1B |KLAAR.".......V.|
00001320: 2C 01 97 20 36 38 31 2C 32 32 34 3A 97 20 33 32 |,.. 681,224:. 32|
00001330: 34 39 30 2C 32 30 3A 9E 20 33 32 30 30 30 20 20 |490,20:. 32000 |
00001340: 20 3A 8F 20 50 52 49 4E 54 64 7F 20 64 01 2D 53 | :. PRINTd. d.-S|
00001350: 43 48 45 52 4D 2E 00 5C 1B 31 01 80 00 00 00 |CHERM..\.1..... |
..=.... 52,124:. 56,B(52):. 100 :. DRA
AIEN. DR DEMO-1....... 200 :.
PROGRAM CIRC. :REM VERSIEZET.
25 NOV.1990..B.... 300 :. J.H.VAN R
IJN. :REM PRINTD TEKENING.......
-------------------------------
DIT PROGRAMMA MAAKT MAGNETISCHE.`....
VELDLIJNEN OP HET SCHERM, ZOALS
VEROORZAAKT DOOR ONEINDIG LANGE......
D.HTE STROOMDRADEN, LOODD.HT OP
HET SCHERM GEDACHT, EN WAAR-...... VAN
DE PLAATS (X,Y), DE RICHTING (+
VAN JE AF) EN DE STERKTE.D.... KUNNEN W
ORDEN GEKOZEN. DRUK <RUN> EN DE CO
MPUTER DOET DE REST....... N.B. ER WORD
EN VRAGEN GESTELD. ------------
-------------------.Y...PV.0:XP..(X0..5)
:YP..(Y0..5):XQ..(X1..5):YQ..(Y1..5) :.
LIJN 0-1....... XP.0 . XP.319 . XQ.0 . X
Q.319 . PV.1:..3.... YP.0 . YP.199 . YQ.
0 . YQ.199 . PV.1:..J...D. XP,YP,XQ,YQ,1
:..R...I$.G(1).D(I):DO X.10,Y.5,I$,1,1,8
:....... W.0 . 1:D. X.1.W.W,Y.1,1:D. X.1
.W.W,Y.1,1:. W:D. X,Y,1:....... G(147)G(
156):. I.0 . 9:.:. I:. " "K$:......HX.
0:HY.0:PF.63.662:HV.0 :. VELD (HX
(X,Y),HY(X,Y));STERKTE H(X,Y)..W.... U.1
. N:XM.X.XG(U):YM.Y.YG(U) :. EENHEIDSVE
CTOR (FX(X,Y),FY(X,Y))......CF.I(U).(XM.
XM.YM.YM):HX.HX.CF.YM:HY.HY.CF.XM......
U:H..(HX.HX.HY.HY):. H.0 . HV.1:. :. V
ELDSTERKTE NUL......FX.HX.H:FY.HY.H:HX.H
X.PF:HY.HY.PF:H.H.PF:. :. VELDST.NIE
T NUL..J...X.XO:Y.YO:. 20:. HV.1 . . :.
PUNT (XN,YN) UIT (XO,YO)......DS.GF.H:O
X.FX:OY.FY:XN.XO.DS.OX:YN.YO.DS.OY.G. .X
.XN:Y.YN:. 20:BN.FX.OY.FY.OX:. BN.0 . ..
..!.BN.FX.OY.FY.OX:. BN.0 . ..).".BR.(FX
.(X.XO).FY.(Y.YO)).BN:XN.XO.(FY.OY).BR:Y
N.YO.(FX.OX).BR:..`.(.. X.0 . 310 . 10:.
Y.0 . 190 . 10:D. X,Y,1:. Y:. X...).. X
.40 . 280 . 40:. Y.20 . 180 . 40...*.D.
X.2,Y,1:D. X.1,Y,1:D. X.1,Y,1:D. X.2,Y,1
...+.D. X,Y.2,1:D. X,Y.1,1:D. X,Y.1,1:D.
X,Y.2,1...,.. Y:. X:....-.. U.0 . 319 .
2:D. U,100,1:. U.>.... U.0 . 199 . 2:D.
160,U,1:. U:..X.2.XA$.I(D(1000.X),3):.
XA$.XB$ . 55 :. DYKSBOV.COORD....3.K$.
XC$.XB$.".":DO 5,37,K$,0,1,8:XB$.XA$.H.4
.K$.XC$.XB$.".":DO 5,37,K$,1,1,8...7.YA$
.I(D(1000.Y),3):. YA$.YB$ . 58...8.K$.YC
$.YB$.".":DO 5,45,K$,0,1,8:YB$.YA$.>.9.K
$.YC$.YB$.".":DO 5,45,K$,1,1,8.D.:.....<
.L.49152:M.L.6:N.M.6:O.N.6:P.O.6
:. MACHINECODE COD.DETECA LEZEN..J.=..L.
0,169:.L.1,001:.L.2,162:.L.3,008:.L.4,16
0:.L.5,001...>..M.0,032:.M.1,186:.M.2,25
5:.M.3,173:.M.4,188:.M.5,002.>.?..N.0,16
2:.N.1,189:.N.2,160:.N.3,002:.N.4,032:.N
.5,189.X.@..O.0,255:.O.1,169:.O.2,000:.O
.3,162:.O.4,255:.O.5,160...A..P.0,255:.P
.1,032:.P.2,213:.P.3,255:.P.4,096:.P.5,0
00...B.N$."COD.DETECA":L.C(N$):. 700,L:L
F.0:. I.1 . L...C.. 700.I,F(J(N$,I,1)):.
I:. 49152:. ST..64 . LF.1. .D...U.D.. X
G(9),YG(9),I(9),XX(199),YY(199),XB(19),Y
B(19)...E.K$."WACHT EVEN.":.19:.:.60:.LF
.1.."LAADFOUT.":.235...F..:. " MACHINEC
ODE GELADEN.":..Q.G.. "AANTAL GELEIDERS
(1..9)";N...H.. N.1 . N.9 . .:. " N IS
FOUT!":.:. 103...I.R$.G(157):. U.1 . N:
..W.J.. "PLAATS X VAN GELEIDER"U;R$", IN
CM":. "(-39...+39)";XV...K.. .(XV).39 .
.:. " X IS FOUT!":.:. 106.B.L.. "PLAA
TS Y VAN GELEIDER"U;R$", IN CM":. "(-24.
..+24)";YV...M.. .(YV).24 . .:. " Y IS
FOUT!":.:. 108. .N.. "STROOM DOOR GELEI
DER"U:. "(-10...+10)";IV.T.O.. IV..10 .
IV..10 . .:. " I IS FOUT!":.:. 110.~.P
.XG(U).4.XV.160:YG(U).100.4.YV:I(U).IV..
.Q.. U:. N.1 . 118...R.GV.0:. U.1 . N:.
V.U . N:. U.V . 117...S.. .(XG(U).XG(V)
. YG(U).YG(V)) . 117...T..:. "GELEIDERS"
U"EN"V"VALLEN SAMEN.":GV.1.+.U.. V:. U:.
GV.1 . 235.X.V..:. "BEGINPUNTEN (CM) VA
N VELDLIJNEN.":..|.X.. "AANTAL VELDLIJNE
N (1..19)";M...Y.. M.1 . M.19 . . "FOUT!
":.:. 120.B.Z.. V.1 . M:.:. "VELDLIJN"V"
:"...{.. "X (-39..+39) EN Y (-24..+24)";
XV,YV...|.. .(XV).39 . .(YV).24 . . "FOU
T!":.:. 123.D.}.XB.4.XV.160:YB.100.4.YV:
FV.0:. U.1 . N :. VELD MAG NIET OP GELEI
DER....~.. (XB.XG(U) . YB.YG(U)) . . "VE
LD DOOR GELEIDER.":U.N.1:FV.1..... U:.
FV.1 . 123.T...XB(V).XB:YB(V).YB:. V....
.D. 11,15:D. 15,11:. 40:. 45 :. RASTER E
N ASSEN..6...DO 20,1,"."." CIJFERS IN A
MPERES.",1,1,8.I...DO 15,9,"."."10 CM TU
SSEN TWEE KRUISEN.",1,1,8...... U.1 . N:
X.XG(U):Y.YG(U):I.I(U) :. GELEIDERS D.TE
N MET STROOM....... 17:. 15:. U:HF.30
:. BENADER DS=+30/H OF -30/H..,.... V
.1 . M:L.0:RV.0:GF.HF:XA.XB(V):YA.YB(V)
:. BEGINPUNT..R...XN.XA:YN.YA:VL.
0:. 160 :. EE
RSTE MAAL....... VL.0 . VL.1
:. LUSVLAG..U. .
XO.XN:YO.YN:XX(L).XO:YY(L).YO...... 30:.
HV.0 . 170.&.... VL.0 . 190
:. OMGEVING BEGINPUNT..[.... RV.
1 . 190 :. RICHTINGVL
AG.. ...GF..HF:RV.1:. 150
:. OPNIEUW MAAR ANDERE KANT OP..N...X0.
XO:Y0.YO:X1.XN:Y1.YN:. 10:. PV.1 . 166..
...L.L.1:. L.199 . 190...... .(XN.XA).DS
. 155 :. LIJN AL GESLOTEN?.5.
... .(YN.YA).DS . 155.F.... VL.0 . 160.N
.... V.].C.DF 5:. 235..H.. "TE",8:.:. "
GERED NAAR TE."...M.. "TE",8:.:. "TE GEC
ONTROLEERD."...R.. 5,8,15,"S0:CIRC/O".X.
W..5, "R0:CIRC/O=0:CIRC"......5, "R0:CIR
C=0:TE"..... 5......:. "VERSIEZET CIRC
KLAAR.".......V.,.. 681,224:. 32490,20:.
32000 :. PRINTD D.-SCHERM..\.1.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL