|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2991 (0xbaf)
Notes: ZILOG_BASIC
Names: »AKSER.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »AKSER.BP«
0x000…014 BasicHead {variables=0x00a4, stms=0x0234, f2=0x08c3, f3=0000000000000000000000000000}
0x014…0b8 [
0x014…0b8 [0x00]: VarDef {f0=0x0036, f1=0x47, f2=0x40} A7$ 0x28
0x014…0b8 [0x01]: VarDef {f0=0x0100, f1=0x47, f2=0x28} I7% 0x27
0x014…0b8 [0x02]: VarDef {f0=0x0000, f1=0x41, f2=0x24} E1% 0x26
0x014…0b8 [0x03]: VarDef {f0=0x0000, f1=0x41, f2=0x39} Z1% 0x25
0x014…0b8 [0x04]: VarDef {f0=0x0000, f1=0x41, f2=0x38} Y1% 0x24
0x014…0b8 [0x05]: VarDef {f0=0x0000, f1=0x41, f2=0x37} X1% 0x23
0x014…0b8 [0x06]: VarDef {f0=0x0000, f1=0x4f, f2=0x24} E% 0x22
0x014…0b8 [0x07]: VarDef {f0=0x0000, f1=0x4f, f2=0x39} Z% 0x21
0x014…0b8 [0x08]: VarDef {f0=0x0000, f1=0x4f, f2=0x38} Y% 0x20
0x014…0b8 [0x09]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x1f
0x014…0b8 [0x0a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0e} O 0x1e
0x014…0b8 [0x0b]: VarDef {f0=0x0300, f1=0x4f, f2=0x20} A% 0x1d
0x014…0b8 [0x0c]: VarDef {f0=0x0100, f1=0x41, f2=0x2f} P1% 0x1c
0x014…0b8 [0x0d]: VarDef {f0=0x0000, f1=0x49, f2=0x21} B9% 0x1b
0x014…0b8 [0x0e]: VarDef {f0=0xaaaa, f1=0x43, f2=0x22} C3% 0x1a
0x014…0b8 [0x0f]: VarDef {f0=0xaaaa, f1=0x42, f2=0x22} C2% 0x19
0x014…0b8 [0x10]: VarDef {f0=0xaaaa, f1=0x41, f2=0x22} C1% 0x18
0x014…0b8 [0x11]: VarDef {f0=0xefdf, f1=0x5f, f2=0x22} FNC% 0x17
0x014…0b8 [0x12]: VarDef {f0=0x0000, f1=0x47, f2=0x45} F7$ 0x16
0x014…0b8 [0x13]: VarDef {f0=0x004c, f1=0x49, f2=0x00} A9 0x15
0x014…0b8 [0x14]: VarDef {f0=0x0044, f1=0x48, f2=0x00} A8 0x14
0x014…0b8 [0x15]: VarDef {f0=0x003c, f1=0x47, f2=0x00} A7 0x13
0x014…0b8 [0x16]: VarDef {f0=0x0064, f1=0x43, f2=0x02} C3 0x12
0x014…0b8 [0x17]: VarDef {f0=0x00dc, f1=0x45, f2=0x19} Z5 0x11
0x014…0b8 [0x18]: VarDef {f0=0x00ac, f1=0x46, f2=0x00} A6 0x10
0x014…0b8 [0x19]: VarDef {f0=0x00a4, f1=0x45, f2=0x00} A5 0xf
0x014…0b8 [0x1a]: VarDef {f0=0x009c, f1=0x44, f2=0x00} A4 0xe
0x014…0b8 [0x1b]: VarDef {f0=0x005c, f1=0x42, f2=0x02} C2 0xd
0x014…0b8 [0x1c]: VarDef {f0=0x00d4, f1=0x45, f2=0x18} Y5 0xc
0x014…0b8 [0x1d]: VarDef {f0=0x0094, f1=0x43, f2=0x00} A3 0xb
0x014…0b8 [0x1e]: VarDef {f0=0x008c, f1=0x42, f2=0x00} A2 0xa
0x014…0b8 [0x1f]: VarDef {f0=0x0084, f1=0x41, f2=0x00} A1 0x9
0x014…0b8 [0x20]: VarDef {f0=0x0054, f1=0x41, f2=0x02} C1 0x8
0x014…0b8 [0x21]: VarDef {f0=0x00cc, f1=0x45, f2=0x17} X5 0x7
0x014…0b8 [0x22]: VarDef {f0=0x007c, f1=0x4f, f2=0x19} Z 0x6
0x014…0b8 [0x23]: VarDef {f0=0x00c4, f1=0x44, f2=0x19} Z4 0x5
0x014…0b8 [0x24]: VarDef {f0=0x0074, f1=0x4f, f2=0x18} Y 0x4
0x014…0b8 [0x25]: VarDef {f0=0x00bc, f1=0x44, f2=0x18} Y4 0x3
0x014…0b8 [0x26]: VarDef {f0=0x006c, f1=0x4f, f2=0x17} X 0x2
0x014…0b8 [0x27]: VarDef {f0=0x00b4, f1=0x44, f2=0x17} X4 0x1
0x014…0b8 [0x28]: VarDef {f0=0xefc7, f1=0x5f, f2=0x23} FND% 0x0
0x014…0b8 ]
0x0b8…0bc Statement 36912 @0xbad
0x0bc…0c0 Statement 36896 @0xbaa
0x0c0…0c4 Statement 36880 @0xb9c
0x0c4…0c8 Statement 36864 @0xb7e
0x0c8…0cc Statement 33328 @0xb7c
0x0cc…0d0 Statement 33312 @0xb71
0x0d0…0d4 Statement 33168 @0xb6f
0x0d4…0d8 Statement 33152 @0xb5d
0x0d8…0dc Statement 33136 @0xb3d
0x0dc…0e0 Statement 33120 @0xb27
0x0e0…0e4 Statement 33104 @0xb15
0x0e4…0e8 Statement 33088 @0xaf5
0x0e8…0ec Statement 33072 @0xadf
0x0ec…0f0 Statement 33056 @0xacd
0x0f0…0f4 Statement 33040 @0xaad
0x0f4…0f8 Statement 33024 @0xa97
0x0f8…0fc Statement 32848 @0xa7b
0x0fc…100 Statement 32772 @0xa76
0x100…104 Statement 32768 @0xa48
0x104…108 Statement 21824 @0xa46
0x108…10c Statement 21808 @0xa1b
0x10c…110 Statement 21792 @0x9f0
0x110…114 Statement 21776 @0x9c5
0x114…118 Statement 21760 @0x9a6
0x118…11c Statement 20816 @0x9a4
0x11c…120 Statement 20800 @0x9a1
0x120…124 Statement 20784 @0x99b
0x124…128 Statement 20768 @0x995
0x128…12c Statement 20752 @0x98f
0x12c…130 Statement 20736 @0x989
0x130…134 Statement 20624 @0x983
0x134…138 Statement 20608 @0x97d
0x138…13c Statement 20592 @0x977
0x13c…140 Statement 20576 @0x971
0x140…144 Statement 20560 @0x96b
0x144…148 Statement 20544 @0x965
0x148…14c Statement 20528 @0x95f
0x14c…150 Statement 20512 @0x959
0x150…154 Statement 20496 @0x948
0x154…158 Statement 20480 @0x91f
0x158…15c Statement 06208 @0x91e
0x15c…160 Statement 06192 @0x8f6
0x160…164 Statement 06176 @0x8f4
0x164…168 Statement 06160 @0x8bb
0x168…16c Statement 06144 @0x8b9
0x16c…170 Statement 06032 @0x8b3
0x170…174 Statement 06016 @0x8b0
0x174…178 Statement 06000 @0x8ad
0x178…17c Statement 05984 @0x8a8
0x17c…180 Statement 05968 @0x8a5
0x180…184 Statement 05952 @0x8a3
0x184…188 Statement 05936 @0x886
0x188…18c Statement 05920 @0x84c
0x18c…190 Statement 05904 @0x80f
0x190…194 Statement 05888 @0x7d2
0x194…198 Statement 05778 @0x7d0
0x198…19c Statement 05776 @0x7c3
0x19c…1a0 Statement 05760 @0x7c0
0x1a0…1a4 Statement 05749 @0x7bd
0x1a4…1a8 Statement 05744 @0x7b7
0x1a8…1ac Statement 05728 @0x7b5
0x1ac…1b0 Statement 05719 @0x7b1
0x1b0…1b4 Statement 05718 @0x792
0x1b4…1b8 Statement 05712 @0x756
0x1b8…1bc Statement 05680 @0x753
0x1bc…1c0 Statement 05664 @0x750
0x1c0…1c4 Statement 05648 @0x72f
0x1c4…1c8 Statement 05632 @0x71d
0x1c8…1cc Statement 05504 @0x71a
0x1cc…1d0 Statement 05477 @0x708
0x1d0…1d4 Statement 05472 @0x6f8
0x1d4…1d8 Statement 05461 @0x6f1
0x1d8…1dc Statement 05456 @0x6ee
0x1dc…1e0 Statement 05445 @0x6e7
0x1e0…1e4 Statement 05440 @0x6df
0x1e4…1e8 Statement 05424 @0x6d2
0x1e8…1ec Statement 05415 @0x6cf
0x1ec…1f0 Statement 05413 @0x6c8
0x1f0…1f4 Statement 05408 @0x6c5
0x1f4…1f8 Statement 05392 @0x6c2
0x1f8…1fc Statement 05376 @0x6bd
0x1fc…200 Statement 05264 @0x6b6
0x200…204 Statement 05248 @0x6ae
0x204…208 Statement 05232 @0x6a1
0x208…20c Statement 05184 @0x69f
0x20c…210 Statement 05168 @0x68f
0x210…214 Statement 05152 @0x657
0x214…218 Statement 05136 @0x655
0x218…21c Statement 05120 @0x634
0x21c…220 Statement 04944 @0x631
0x220…224 Statement 04896 @0x61b
0x224…228 Statement 04880 @0x609
0x228…22c Statement 04869 @0x5fc
0x22c…230 Statement 04864 @0x5ef
0x230…234 Statement 04624 @0x5ec
0x234…238 Statement 04608 @0x5da
0x238…23c Statement 04501 @0x5cd
0x23c…240 Statement 04496 @0x5c0
0x240…244 Statement 04480 @0x5b0
0x244…248 Statement 04464 @0x5a9
0x248…24c Statement 04448 @0x5a6
0x24c…250 Statement 04416 @0x59e
0x250…254 Statement 04400 @0x591
0x254…258 Statement 04389 @0x58e
0x258…25c Statement 04384 @0x587
0x25c…260 Statement 04373 @0x584
0x260…264 Statement 04368 @0x581
0x264…268 Statement 04352 @0x57c
0x268…26c Statement 04240 @0x575
0x26c…270 Statement 04224 @0x56d
0x270…274 Statement 04208 @0x560
0x274…278 Statement 04192 @0x53b
0x278…27c Statement 04176 @0x519
0x27c…280 Statement 04160 @0x4e1
0x280…284 Statement 04144 @0x4ac
0x284…288 Statement 04128 @0x4aa
0x288…28c Statement 04112 @0x481
0x28c…290 Statement 04096 @0x476
0x290…294 Statement 01416 @0x475
0x294…298 Statement 01415 @0x472
0x298…29c Statement 01413 @0x46f
0x29c…2a0 Statement 01408 @0x442
0x2a0…2a4 Statement 01376 @0x431
0x2a4…2a8 Statement 01360 @0x420
0x2a8…2ac Statement 01344 @0x40f
0x2ac…2b0 Statement 01296 @0x402
0x2b0…2b4 Statement 01280 @0x3ff
0x2b4…2b8 Statement 01152 @0x3fe
0x2b8…2bc Statement 01136 @0x3fb
0x2bc…2c0 Statement 01088 @0x3e0
0x2c0…2c4 Statement 01072 @0x3c4
0x2c4…2c8 Statement 01056 @0x3b4
0x2c8…2cc Statement 01040 @0x3ae
0x2cc…2d0 Statement 01024 @0x39d
0x2d0…2d4 Statement 00544 @0x378
0x2d4…2d8 Statement 00528 @0x36b
0x2d8…2dc Statement 00512 @0x358
0x2dc…2e0 Statement 00288 @0x350
0x2e0…2e4 Statement 00272 @0x32d
0x2e4…2e8 Statement 00256 @0x325
0x2e8…2ec Statement 00016 @0x2ec
0x2ec…325 0010 REM AKSER ZILOG
0x325…32d 0100 DIM ELEMENT var(F7$) ( 50 ) [] EOS
0x32d…350 0110 LET var(F7$) COMMA »######### ######### #########« EOS
0x350…358 0120 DIM ELEMENT var(A7$) ( 2 ) [] EOS
0x358…36b 0200 REM INITIALISERING
0x36b…378 0210 LET var(A7) COMMA 0 COMMA var(A8) COMMA 0 COMMA var(A9) COMMA 1 EOS
0x378…39d 0220 LET var(C1) COMMA 500000 COMMA var(C2) COMMA 500000 COMMA var(C3) COMMA 500000 EOS
0x39d…3ae 0400 REM ** OUTSCR **
0x3ae…3b4 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x3b4…3c4 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x3c4…3e0 0430 PRINT = ( 27 ) → af700146e2f271731f5ae274aff271731f5be274aff2f3
0x3e0…3fb 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → aff271736f4e0059e374aff2f3
0x3fb…3fe 0470 RETURN 0 EOS
0x3fe…3ff 0480 FNEND
0x3ff…402 0500 DEF var(FND%) EOS
0x402…40f 0510 LET var(X4) COMMA var(X) COMMA var(Y4) COMMA var(Y) COMMA var(Z4) COMMA var(Z) EOS
0x40f…420 0540 LET var(X5) COMMA var(C1) var(A1) var(X4) MULT PLUS var(A2) var(Y4) MULT PLUS var(A3) var(Z4) MULT PLUS EOS
0x420…431 0550 LET var(Y5) COMMA var(C2) var(A4) var(X4) MULT PLUS var(A5) var(Y4) MULT PLUS var(A6) var(Z4) MULT PLUS EOS
0x431…442 0560 LET var(Z5) COMMA var(C3) var(A7) var(X4) MULT PLUS var(A8) var(Y4) MULT PLUS var(A9) var(Z4) MULT PLUS EOS
0x442…46f 0580 PRINT USING var(F7$) COMMA = ( 4 ) → b5f27007444953504c4159f271731a74b5f248f271732e74b5f24df271733b74b5f252f2f3
0x46f…472 0585 GOSUB 32 → 82
0x472…475 0587 RETURN 1 EOS
0x475…476 0588 FNEND
0x476…481 1000 LET var(B9%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x481…4aa 1010 PRINT » DEFINISJON AV AKSER OG RETNINGER« EOS
0x4aa…4ac 1020 PRINT EOS
0x4ac…4e1 1030 PRINT » REGISTRER ET PUNKT MED REGISTRERINGSPEDALEN« EOS
0x4e1…519 1040 PRINT » BEVEG DERETTER MAALEMERKET NORDOVER I MODELLEN« EOS
0x519…53b 1050 PRINT » BRUK BARE DET ENE RATTET« EOS
0x53b…560 1060 PRINT » REGISTRER SAA ET PUNKT TIL.« EOS
0x560…56d 1070 1d7005504544414cf101f25df3
0x56d…575 1080 IF var(P1%) 1 ?< COMMA 0 »«si»qs\x07t\xaf\xf3\x1b^\xf1\x00\xf3«soh»P\x80«soh»«
0x575…57c 1090 PRINT = ( 7 ) → aff3
0x57c…581 1100 LET var(A%) COMMA 0 EOS
0x581…584 1110 GOSUB var(A5) → 80
0x584…587 1115 GOSUB 0 → 80
0x587…58e 1120 PRINT var(X) COMMA var(Y) COMMA var(Z) EOS
0x58e…591 1125 GOSUB 0 → 90
0x591…59e 1130 1d7005504544414cf101f25df3
0x59e…5a6 1140 IF var(P1%) 1 ?< COMMA 0 48 17
0x5a6…5a9 1160 GOSUB 0 → 80
0x5a9…5b0 1170 PRINT var(X) COMMA var(Y) COMMA var(Z) EOS
0x5b0…5c0 1180 IF = ( var(X) ) ?ABS = ( var(Y) ) ?ABS ?< COMMA 0 0 19
0x5c0…5cd 1190 LET var(A1) COMMA 1 COMMA var(A2) COMMA 0 COMMA var(A3) COMMA 0 EOS
0x5cd…5da 1195 LET var(A4) COMMA 0 COMMA var(A5) COMMA 1 COMMA var(A6) COMMA 0 EOS
0x5da…5ec 1200 IF var(X) 0 ?< COMMA 27 var(A1) COMMA -1 EOS
0x5ec…5ef 1210 GOTO 0 20
0x5ef…5fc 1300 LET var(A1) COMMA 0 COMMA var(A2) COMMA 1 COMMA var(A3) COMMA 0 EOS
0x5fc…609 1305 LET var(A4) COMMA 1 COMMA var(A5) COMMA 0 COMMA var(A6) COMMA 0 EOS
0x609…61b 1310 IF var(Y) 0 ?< COMMA 27 var(A2) COMMA -1 EOS
0x61b…631 1320 REM AKSERETNING FOR Y
0x631…634 1350 GOSUB 0 → 90
0x634…655 1400 PRINT »A1=« SEMI var(A1) SEMI » A2=« SEMI var(A2) SEMI » A3=« SEMI var(A3) EOS
0x655…657 1410 PRINT EOS
0x657…68f 1420 PRINT »REGISTRER TO PUNKT PAA SAMME MAATE MED BEVEGELSE FRA« EOS
0x68f…69f 1430 PRINT »VEST MOT 0ST« EOS
0x69f…6a1 1440 PRINT EOS
0x6a1…6ae 1470 1d7005504544414cf101f25df3
0x6ae…6b6 1480 IF var(P1%) 1 ?< COMMA 0 »«si»qs\x07t\xaf\xf3\x1b^\xf1\x00\xf3«soh»P\x80«soh»\x00\x80«si»C«
0x6b6…6bd 1490 PRINT = ( 7 ) → aff3
0x6bd…6c2 1500 LET var(A%) COMMA 0 EOS
0x6c2…6c5 1510 GOSUB var(A5) → 80
0x6c5…6c8 1520 GOSUB 0 → 80
0x6c8…6cf 1525 PRINT var(X) COMMA var(Y) COMMA var(Z) EOS
0x6cf…6d2 1527 GOSUB 0 → 90
0x6d2…6df 1530 1d7005504544414cf101f25df3
0x6df…6e7 1540 IF var(P1%) 1 ?< COMMA 0 48 21
0x6e7…6ee 1545 PRINT = ( 7 ) → aff3
0x6ee…6f1 1550 GOSUB 0 → 80
0x6f1…6f8 1555 PRINT var(X) COMMA var(Y) COMMA var(Z) EOS
0x6f8…708 1560 IF = ( var(X) ) ?ABS = ( var(Y) ) ?ABS > COMMA 0 0 22
0x708…71a 1565 IF var(Y) 0 ?< COMMA 27 var(A5) COMMA -1 EOS
0x71a…71d 1580 GOTO 16 22
0x71d…72f 1600 IF var(X) 0 ?< COMMA 27 var(A4) COMMA -1 EOS
0x72f…750 1610 PRINT »A4=« SEMI var(A4) SEMI » A5=« SEMI var(A5) SEMI » A6=« SEMI var(A6) EOS
0x750…753 1620 GOSUB 0 var(A8)
0x753…756 1630 GOSUB 0 var(A5)
0x756…792 1650 PRINT »KONTROLLER NAA AT TELLERETNING ER RIKTIG PAA BEGGE AKSER« EOS
0x792…7b1 1656 PRINT »TRYKK ESC NAAR DU ER FERDIG« EOS
0x7b1…7b5 1657 TRAP ESC 1690
0x7b5…7b7 1660 PRINT EOS
0x7b7…7bd 1670 LET var(I7%) COMMA = var(FND%) EOS
0x7bd…7c0 1675 GOSUB 0 → 80
0x7c0…7c3 1680 GOTO »\x0bp
--------
«si»\xf3«si»p9STIL«
0x7c3…7d0 1690 REM --------
0x7d0…7d2 1692 PRINT EOS
0x7d2…80f 1700 PRINT »STILL LINJALENE I A8 PA 200 OG DE ROTERENDE TELLERENE PAA« EOS
0x80f…84c 1710 PRINT »NULL SAMT Z SKALAEN OG GLASSMALESTOKKEN PAA EN RUND VERDI« EOS
0x84c…886 1720 PRINT »TRYKK RETURN NAAR DU ER KLAR. TELLEVERKET BLIR DA SATT« EOS
0x886…8a3 1730 PRINT »TIL 500000 PAA ALLE AKSER« EOS
0x8a3…8a5 1740 PRINT EOS
0x8a5…8a8 1750 INPUT var(A7$) EOS
0x8a8…8ad 1760 LET var(A%) COMMA 0 EOS
0x8ad…8b0 1770 GOSUB var(A5) → 80
0x8b0…8b3 1780 GOSUB 0 → 80
0x8b3…8b9 1790 LET var(I7%) COMMA = var(FND%) EOS
0x8b9…8bb 1800 PRINT EOS
0x8bb…8f4 1810 PRINT » NAA KAN DU STARTE GITTERMAALING MED INDAT.AER« EOS
0x8f4…8f6 1820 PRINT EOS
0x8f6…91e 1830 PRINT » LYKKE TIL !!!!! (DET TRENGS)« EOS
0x91e…91f 1840 END
0x91f…948 5000 REM SUBRUTINTE FOR AA SKRIVE ATRANS.DATA
0x948…959 5010 1601f2700b415452414e532e44415441f3
0x959…95f 5020 PRINT 1# SEMI var(C1) EOS
0x95f…965 5030 PRINT 1# SEMI var(C2) EOS
0x965…96b 5040 PRINT 1# SEMI var(C3) EOS
0x96b…971 5050 PRINT 1# SEMI var(A1) EOS
0x971…977 5060 PRINT 1# SEMI var(A2) EOS
0x977…97d 5070 PRINT 1# SEMI var(A3) EOS
0x97d…983 5080 PRINT 1# SEMI var(A4) EOS
0x983…989 5090 PRINT 1# SEMI var(A5) EOS
0x989…98f 5100 PRINT 1# SEMI var(A6) EOS
0x98f…995 5110 PRINT 1# SEMI var(A7) EOS
0x995…99b 5120 PRINT 1# SEMI var(A8) EOS
0x99b…9a1 5130 PRINT 1# SEMI var(A9) EOS
0x9a1…9a4 5140 1401f3
0x9a4…9a6 5150 RETURN EOS
0x9a6…9c5 5500 REM SUBRUTINE FOR A8 SKALERING
0x9c5…9f0 5510 LET var(A1) COMMA var(A1) 0.5 MULT COMMA var(A2) COMMA var(A2) 0.5 MULT COMMA var(A3) COMMA var(A3) 0.5 MULT EOS
0x9f0…a1b 5520 LET var(A4) COMMA var(A4) 0.5 MULT COMMA var(A5) COMMA var(A5) 0.5 MULT COMMA var(A6) COMMA var(A6) 0.5 MULT EOS
0xa1b…a46 5530 LET var(A7) COMMA var(A7) 0.5 MULT COMMA var(A8) COMMA var(A8) 0.5 MULT COMMA var(A9) COMMA var(A9) 0.5 MULT EOS
0xa46…a48 5540 RETURN EOS
0xa48…a76 8000 REM ** SUBROUTINE TO READ FROM COUNTCART ***
0xa76…a7b 8004 LET var(A%) COMMA 3 EOS
0xa7b…a97 8050 1d700654454c4c4552f15ef260f161f162f163f164f165f166f167f3
0xa97…aad 8100 IF var(X1%) %128 > COMMA 27 var(X1%) COMMA var(X1%) 256 SUB2 EOS
0xaad…acd 8110 IF var(X%) 0 ?< COMMA 27 var(X) COMMA var(X1%) 65534 MULT 65534 PLUS var(X%) PLUS EOS
0xacd…adf 8120 ELSE 27 var(X) COMMA var(X1%) 65534 MULT var(X%) PLUS EOS
0xadf…af5 8130 IF var(Y1%) %128 > COMMA 27 var(Y1%) COMMA var(Y1%) 256 SUB2 EOS
0xaf5…b15 8140 IF var(Y%) 0 ?< COMMA 27 var(Y) COMMA var(Y1%) 65534 MULT 65534 PLUS var(Y%) PLUS EOS
0xb15…b27 8150 ELSE 27 var(Y) COMMA var(Y1%) 65534 MULT var(Y%) PLUS EOS
0xb27…b3d 8160 IF var(Z1%) %128 > COMMA 27 var(Z1%) COMMA var(Z1%) 256 SUB2 EOS
0xb3d…b5d 8170 IF var(Z%) 0 ?< COMMA 27 var(Z) COMMA var(Z1%) 65534 MULT 65534 PLUS var(Z%) PLUS EOS
0xb5d…b6f 8180 ELSE 27 var(Z) COMMA var(Z1%) 65534 MULT var(Z%) PLUS EOS
0xb6f…b71 8190 RETURN EOS
0xb71…b7c 8220 PRINT = ( 27 ) → af700141e2f3
0xb7c…b7e 8230 RETURN EOS
0xb7e…b9c 9000 REM SUBRUTINE FOR FORSINKELSE
0xb9c…baa 9010 196801f16e0100000000000084f3
0xbaa…bad 9020 1a68f3
0xbad…baf 9030 RETURN EOS