DataMuseum.dk

Presents historical artifacts from the history of:

Zilog MCZ Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦1f1c78b63⟧ 

    Length: 3448 (0xd78)
    Notes: ZILOG_BASIC
    Names: »DIG.NEW.BP«

Derivation

└─⟦ac3165007⟧ Bits:30006826 8" ZilogMCZ floppy NThun_0049 (851129 Dig.New.BP Def.New.BP Trans.BP)
    └─⟦this⟧ »DIG.NEW.BP« 
└─⟦ec2a36bc1⟧ Bits:30006815 8" ZilogMCZ floppy NThun_0017 (OPERATIVSYSTEM 1/05 851203)
    └─⟦this⟧ »DIG.NEW.BP«

OctetView

0x000…014 BasicHead {variables=0x00c8, stms=0x0294, f2=0x0a08, f3=0000000000000000000000000000}
0x014…0dc [
0x014…0dc   [0x00]: VarDef {f0=0x2230, f1=0x4f, f2=0x38} Y% 0x31
0x014…0dc   [0x01]: VarDef {f0=0x8085, f1=0x4f, f2=0x22} C% 0x30
0x014…0dc   [0x02]: VarDef {f0=0xfefc, f1=0x5f, f2=0x30} FNQ% 0x2f
0x014…0dc   [0x03]: VarDef {f0=0xff34, f1=0x5f, f2=0x27} FNH% 0x2e
0x014…0dc   [0x04]: VarDef {f0=0x4600, f1=0x4f, f2=0x28} I% 0x2d
0x014…0dc   [0x05]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x2c
0x014…0dc   [0x06]: VarDef {f0=0x1020, f1=0x4f, f2=0x30} Q% 0x2b
0x014…0dc   [0x07]: VarDef {f0=0xffa4, f1=0x5f, f2=0x36} FNW% 0x2a
0x014…0dc   [0x08]: VarDef {f0=0x0734, f1=0x40, f2=0x41} B0$ 0x29
0x014…0dc   [0x09]: VarDef {f0=0x06e0, f1=0x41, f2=0x51} R1$ 0x28
0x014…0dc   [0x0a]: VarDef {f0=0x06db, f1=0x4f, f2=0x40} A$ 0x27
0x014…0dc   [0x0b]: VarDef {f0=0x06d3, f1=0x42, f2=0x07} H2 0x26
0x014…0dc   [0x0c]: VarDef {f0=0x06cb, f1=0x41, f2=0x07} H1 0x25
0x014…0dc   [0x0d]: VarDef {f0=0x06c3, f1=0x40, f2=0x10} Q0 0x24
0x014…0dc   [0x0e]: VarDef {f0=0x06bb, f1=0x40, f2=0x0c} M0 0x23
0x014…0dc   [0x0f]: VarDef {f0=0x06b3, f1=0x40, f2=0x12} S0 0x22
0x014…0dc   [0x10]: VarDef {f0=0x06ab, f1=0x49, f2=0x00} A9 0x21
0x014…0dc   [0x11]: VarDef {f0=0x06a3, f1=0x48, f2=0x00} A8 0x20
0x014…0dc   [0x12]: VarDef {f0=0x069b, f1=0x47, f2=0x00} A7 0x1f
0x014…0dc   [0x13]: VarDef {f0=0x0693, f1=0x46, f2=0x00} A6 0x1e
0x014…0dc   [0x14]: VarDef {f0=0x068b, f1=0x45, f2=0x00} A5 0x1d
0x014…0dc   [0x15]: VarDef {f0=0x0683, f1=0x44, f2=0x00} A4 0x1c
0x014…0dc   [0x16]: VarDef {f0=0x067b, f1=0x43, f2=0x00} A3 0x1b
0x014…0dc   [0x17]: VarDef {f0=0x0673, f1=0x42, f2=0x00} A2 0x1a
0x014…0dc   [0x18]: VarDef {f0=0x066b, f1=0x41, f2=0x00} A1 0x19
0x014…0dc   [0x19]: VarDef {f0=0x0663, f1=0x43, f2=0x02} C3 0x18
0x014…0dc   [0x1a]: VarDef {f0=0x065b, f1=0x42, f2=0x02} C2 0x17
0x014…0dc   [0x1b]: VarDef {f0=0x0653, f1=0x41, f2=0x02} C1 0x16
0x014…0dc   [0x1c]: VarDef {f0=0x0622, f1=0x42, f2=0x59} Z2$ 0x15
0x014…0dc   [0x1d]: VarDef {f0=0x05f1, f1=0x41, f2=0x59} Z1$ 0x14
0x014…0dc   [0x1e]: VarDef {f0=0x0100, f1=0x43, f2=0x39} Z3% 0x13
0x014…0dc   [0x1f]: VarDef {f0=0x0000, f1=0x42, f2=0x39} Z2% 0x12
0x014…0dc   [0x20]: VarDef {f0=0x0000, f1=0x41, f2=0x39} Z1% 0x11
0x014…0dc   [0x21]: VarDef {f0=0x05eb, f1=0x47, f2=0x41} B7$ 0x10
0x014…0dc   [0x22]: VarDef {f0=0x05e6, f1=0x46, f2=0x41} B6$ 0xf
0x014…0dc   [0x23]: VarDef {f0=0x05a6, f1=0x45, f2=0x41} B5$ 0xe
0x014…0dc   [0x24]: VarDef {f0=0x05a0, f1=0x44, f2=0x41} B4$ 0xd
0x014…0dc   [0x25]: VarDef {f0=0x059a, f1=0x43, f2=0x41} B3$ 0xc
0x014…0dc   [0x26]: VarDef {f0=0x0594, f1=0x42, f2=0x41} B2$ 0xb
0x014…0dc   [0x27]: VarDef {f0=0x058e, f1=0x41, f2=0x41} B1$ 0xa
0x014…0dc   [0x28]: VarDef {f0=0x0422, f1=0x41, f2=0x4d} N1$ 0x9
0x014…0dc   [0x29]: VarDef {f0=0x0354, f1=0x41, f2=0xb3} T1%' 0x8
0x014…0dc   [0x2a]: VarDef {f0=0x02b0, f1=0x41, f2=0x93} T1' 0x7
0x014…0dc   [0x2b]: VarDef {f0=0x01e4, f1=0x42, f2=0x53} T2$ 0x6
0x014…0dc   [0x2c]: VarDef {f0=0x0118, f1=0x41, f2=0x53} T1$ 0x5
0x014…0dc   [0x2d]: VarDef {f0=0x00d8, f1=0x48, f2=0x45} F8$ 0x4
0x014…0dc   [0x2e]: VarDef {f0=0x0098, f1=0x47, f2=0x45} F7$ 0x3
0x014…0dc   [0x2f]: VarDef {f0=0x0058, f1=0x46, f2=0x45} F6$ 0x2
0x014…0dc   [0x30]: VarDef {f0=0x0018, f1=0x45, f2=0x45} F5$ 0x1
0x014…0dc   [0x31]: VarDef {f0=0x0000, f1=0x4f, f2=0x41} B$ 0x0
0x014…0dc ]
0x0dc…0e0 Statement 34128 @0xd6f
0x0e0…0e4 Statement 34112 @0xd6d
0x0e4…0e8 Statement 34096 @0xd69
0x0e8…0ec Statement 34080 @0xd5d
0x0ec…0f0 Statement 34064 @0xd56
0x0f0…0f4 Statement 34052 @0xd3f
0x0f4…0f8 Statement 34050 @0xd35
0x0f8…0fc Statement 34048 @0xcf8
0x0fc…100 Statement 33296 @0xcf6
0x100…104 Statement 33280 @0xcf0
0x104…108 Statement 33152 @0xcda
0x108…10c Statement 33136 @0xcaa
0x10c…110 Statement 33120 @0xca2
0x110…114 Statement 33104 @0xc86
0x114…118 Statement 33088 @0xc7f
0x118…11c Statement 33072 @0xc7d
0x11c…120 Statement 33056 @0xc77
0x120…124 Statement 33040 @0xc5d
0x124…128 Statement 33024 @0xc5b
0x128…12c Statement 32917 @0xc55
0x12c…130 Statement 32912 @0xc3b
0x130…134 Statement 32901 @0xc39
0x134…138 Statement 32896 @0xc33
0x138…13c Statement 32880 @0xc19
0x13c…140 Statement 32869 @0xc13
0x140…144 Statement 32866 @0xc01
0x144…148 Statement 32864 @0xbf3
0x148…14c Statement 32848 @0xbea
0x14c…150 Statement 32832 @0xbe5
0x150…154 Statement 32816 @0xbdd
0x154…158 Statement 32800 @0xbbc
0x158…15c Statement 32789 @0xbba
0x15c…160 Statement 32784 @0xbb5
0x160…164 Statement 32768 @0xb85
0x164…168 Statement 31040 @0xb83
0x168…16c Statement 31024 @0xb80
0x16c…170 Statement 31008 @0xb7a
0x170…174 Statement 30992 @0xb74
0x174…178 Statement 30976 @0xb6e
0x178…17c Statement 30864 @0xb68
0x17c…180 Statement 30848 @0xb62
0x180…184 Statement 30832 @0xb5c
0x184…188 Statement 30816 @0xb56
0x188…18c Statement 30800 @0xb50
0x18c…190 Statement 30784 @0xb4a
0x190…194 Statement 30768 @0xb44
0x194…198 Statement 30752 @0xb3e
0x198…19c Statement 30736 @0xb38
0x19c…1a0 Statement 30725 @0xb28
0x1a0…1a4 Statement 30720 @0xaf2
0x1a4…1a8 Statement 29072 @0xaf0
0x1a8…1ac Statement 28976 @0xae7
0x1ac…1b0 Statement 28960 @0xae6
0x1b0…1b4 Statement 28949 @0xae3
0x1b4…1b8 Statement 28944 @0xac9
0x1b8…1bc Statement 28934 @0xac4
0x1bc…1c0 Statement 28933 @0xac1
0x1c0…1c4 Statement 28928 @0xa9e
0x1c4…1c8 Statement 28822 @0xa95
0x1c8…1cc Statement 28820 @0xa94
0x1cc…1d0 Statement 28816 @0xa93
0x1d0…1d4 Statement 28805 @0xa88
0x1d4…1d8 Statement 28802 @0xa7b
0x1d8…1dc Statement 28800 @0xa75
0x1dc…1e0 Statement 28784 @0xa6e
0x1e0…1e4 Statement 28777 @0xa6d
0x1e4…1e8 Statement 28776 @0xa6c
0x1e8…1ec Statement 28774 @0xa67
0x1ec…1f0 Statement 28772 @0xa5e
0x1f0…1f4 Statement 28770 @0xa5d
0x1f4…1f8 Statement 28768 @0xa5a
0x1f8…1fc Statement 28760 @0xa57
0x1fc…200 Statement 28758 @0xa4f
0x200…204 Statement 28756 @0xa1d
0x204…208 Statement 28754 @0xa16
0x208…20c Statement 28752 @0x9fe
0x20c…210 Statement 28736 @0x9f6
0x210…214 Statement 28720 @0x9e4
0x214…218 Statement 28709 @0x9e1
0x218…21c Statement 28704 @0x9df
0x21c…220 Statement 28694 @0x9d9
0x220…224 Statement 28693 @0x9a5
0x224…228 Statement 28672 @0x988
0x228…22c Statement 08448 @0x987
0x22c…230 Statement 08256 @0x97e
0x230…234 Statement 08240 @0x97b
0x234…238 Statement 08229 @0x978
0x238…23c Statement 08224 @0x975
0x23c…240 Statement 08208 @0x96e
0x240…244 Statement 08197 @0x96b
0x244…248 Statement 08192 @0x952
0x248…24c Statement 04208 @0x951
0x24c…250 Statement 04176 @0x94e
0x250…254 Statement 04160 @0x940
0x254…258 Statement 04144 @0x932
0x258…25c Statement 04136 @0x925
0x25c…260 Statement 04133 @0x923
0x260…264 Statement 04128 @0x91d
0x264…268 Statement 04112 @0x907
0x268…26c Statement 04096 @0x902
0x26c…270 Statement 02400 @0x901
0x270…274 Statement 02389 @0x8fe
0x274…278 Statement 02384 @0x8f9
0x278…27c Statement 02377 @0x8f5
0x27c…280 Statement 02376 @0x8ef
0x280…284 Statement 02373 @0x8e6
0x284…288 Statement 02370 @0x8db
0x288…28c Statement 02368 @0x898
0x28c…290 Statement 02357 @0x882
0x290…294 Statement 02352 @0x842
0x294…298 Statement 02341 @0x82c
0x298…29c Statement 02338 @0x816
0x29c…2a0 Statement 02336 @0x7d5
0x2a0…2a4 Statement 02320 @0x7d1
0x2a4…2a8 Statement 02304 @0x7b6
0x2a8…2ac Statement 01685 @0x7b5
0x2ac…2b0 Statement 01680 @0x7b1
0x2b0…2b4 Statement 01669 @0x7ae
0x2b4…2b8 Statement 01664 @0x7ab
0x2b8…2bc Statement 01653 @0x7a7
0x2bc…2c0 Statement 01650 @0x79b
0x2c0…2c4 Statement 01649 @0x78b
0x2c4…2c8 Statement 01648 @0x785
0x2c8…2cc Statement 01641 @0x782
0x2cc…2d0 Statement 01640 @0x77e
0x2d0…2d4 Statement 01639 @0x76c
0x2d4…2d8 Statement 01638 @0x766
0x2d8…2dc Statement 01636 @0x760
0x2dc…2e0 Statement 01634 @0x759
0x2e0…2e4 Statement 01632 @0x755
0x2e4…2e8 Statement 01621 @0x74f
0x2e8…2ec Statement 01616 @0x74c
0x2ec…2f0 Statement 01600 @0x724
0x2f0…2f4 Statement 01589 @0x71c
0x2f4…2f8 Statement 01584 @0x70b
0x2f8…2fc Statement 01568 @0x6ff
0x2fc…300 Statement 01559 @0x6fd
0x300…304 Statement 01557 @0x6f7
0x304…308 Statement 01554 @0x6bb
0x308…30c Statement 01552 @0x681
0x30c…310 Statement 01542 @0x67b
0x310…314 Statement 01541 @0x677
0x314…318 Statement 01536 @0x644
0x318…31c Statement 00848 @0x637
0x31c…320 Statement 00832 @0x604
0x320…324 Statement 00816 @0x5d8
0x324…328 Statement 00800 @0x59c
0x328…32c Statement 00784 @0x571
0x32c…330 Statement 00592 @0x52f
0x330…334 Statement 00576 @0x515
0x334…338 Statement 00560 @0x507
0x338…33c Statement 00544 @0x4ef
0x33c…340 Statement 00528 @0x4d5
0x340…344 Statement 00512 @0x4b8
0x344…348 Statement 00400 @0x49c
0x348…34c Statement 00384 @0x463
0x34c…350 Statement 00368 @0x454
0x350…354 Statement 00336 @0x43e
0x354…358 Statement 00325 @0x437
0x358…35c Statement 00320 @0x429
0x35c…360 Statement 00304 @0x418
0x360…364 Statement 00288 @0x3ec
0x364…368 Statement 00272 @0x3c8
0x368…36c Statement 00256 @0x3a8
0x36c…370 Statement 00080 @0x370
0x370…3a8 0050 REM  VERSJON AREROKORT DIG.NEW FEBRUAR 1985 SVERRE TVEDT 
0x3a8…3c8 0100 COM ELEMENT var(B$) ( 20 ) [] ELEMENT var(F5$) ( 60 ) [] ELEMENT var(F6$) ( 60 ) [] ELEMENT var(F7$) ( 60 ) [] ELEMENT var(F8$) ( 60 ) [] EOS
0x3c8…3ec 0110 COM ELEMENT var(T1$) ( 20 8 ) [] ELEMENT var(T2$) ( 20 8 ) [] ELEMENT var(T1') ( 20 ) [] ELEMENT var(T1%') ( 20 5 ) [] ELEMENT var(N1$) ( 20 16 ) [] EOS
0x3ec…418 0120 COM ELEMENT var(B1$) ( 2 ) [] ELEMENT var(B2$) ( 2 ) [] ELEMENT var(B3$) ( 2 ) [] ELEMENT var(B4$) ( 2 ) [] ELEMENT var(B5$) ( 60 ) [] ELEMENT var(B6$) ( 1 ) [] ELEMENT var(B7$) ( 2 ) [] EOS
0x418…429 0130 COM var(Z1%) var(Z2%) var(Z3%) ELEMENT var(Z1$) ( 45 ) [] ELEMENT var(Z2$) ( 45 ) [] EOS
0x429…437 0140 COM var(C1) var(C2) var(C3) var(A1) var(A2) var(A3) var(A4) var(A5) var(A6) var(A7) var(A8) var(A9) EOS
0x437…43e 0145 COM var(S0) var(M0) var(Q0) var(H1) var(H2) EOS
0x43e…454 0150 DIM ELEMENT var(A$) ( 1 ) [] ELEMENT var(R1$) ( %80 ) [] ELEMENT var(B0$) ( 51 ) [] EOS
0x454…463 0170 SYSTEM »LINELEN« COMMA %80 EOS
0x463…49c 0180 LET var(B0$) COMMA »000000000000000000000000000000000000000000000000000« EOS
0x49c…4b8 0190 LET var(B1$) COMMA = ( 27 )  → af700167e2f3204d656d6f7279206c6f636b206f6e
0x4b8…4d5 0200 LET var(B2$) COMMA = ( 27 )  → af700168e2f3204d656d6f7279206c6f636b206f6666
0x4d5…4ef 0210 LET var(B3$) COMMA = ( 27 )  → af700145e2f320424c414e4b20534b4a45524d
0x4ef…507 0220 LET var(B4$) COMMA = ( 27 )  → af700141e2f320435552534f52204f5050
0x507…515 0230 LET var(B6$) COMMA = ( 7 )  → aff32042656c6c
0x515…52f 0240 LET var(B7$) COMMA = ( 10 )  → af71730d74afe2f3204c696e6a65736b696674
0x52f…571 0250 LET var(B5$) COMMA »------------------------------------------------------------« EOS
0x571…59c 0310 LET var(F5$) COMMA »#### ######## ##### ######## ########« EOS
0x59c…5d8 0320 LET var(F6$) COMMA »###### ######## #########.DD #########.DD #########.DD« EOS
0x5d8…604 0330 LET var(F7$) COMMA »#########.DD #########.DD #########.DD« EOS
0x604…637 0340 LET var(F8$) COMMA »###### #########.DD #########.DD #########.DD« EOS
0x637…644 0350 LET var(S0) COMMA 40200 EOS
0x644…677 0600 REM  FUN ------ LES HUSTEMAER ELLER PARALLELL-KODER 
0x677…67b 0605 DEF var(FNW%) var(Q%) EOS
0x67b…681 0606 REM  C 
0x681…6bb 0610 IF var(Q%) 1 EQ COMMA 15 = ( 10 )  → b5f2702a47692074656d6166696c206875736f707072657474696e67202852455455524e3d696e67656e29203a20f2f3
0x6bb…6f7 0612 ELSE 15 = ( 10 )  → b5f2703047692074656d6166696c20666f7220706172616c6c656c6c2d6b6f646572202852455455524e3d696e67656e29203a20f2f3
0x6f7…6fd 0615 INPUT »« COMMA var(R1$) EOS
0x6fd…6ff 0617 PRINT EOS
0x6ff…70b 0620 IF = ( var(R1$) ) LEN 0 EQ COMMA 5 0 EOS
0x70b…71c 0630 1607f26970073b4143433d494ee2f16df3
0x71c…724 0635 IF var(X%) 0 EQ COMMA 0 var(Z1$) 6
0x724…74c 0640 PRINT = ( 10 )  → b5f2701746696c656e20656b736973746572657220696b6b652021f251f24ef24ef2f3
0x74c…74f 0650 GOTO 6 6
0x74f…755 0655 REM  C 
0x755…759 0660 TRAP 0 0680
0x759…760 0662 19400001f105f3
0x760…766 0664 LINPUT 7# SEMI var(R1$) EOS
0x766…76c 0666 REM  C 
0x76c…77e 0667 IF = ( var(R1$) ) LEN 8 ?< COMMA 27 var(R1$) COMMA » « var(R1$) PLUS EOS
0x77e…782 0668 ELSE 0 »\x00f\x06\x0bp\x03«
0x782…785 0669 GOTO var(H1) 6
0x785…78b 0670 REM  C 
0x78b…79b 0671 IF var(Q%) 1 EQ COMMA 27 var(Z1$) COMMA var(Z1$) »*« PLUS var(R1$) PLUS EOS
0x79b…7a7 0672 ELSE 27 var(Z2$) COMMA var(Z2$) »*« PLUS var(R1$) PLUS EOS
0x7a7…7ab 0675 1a4000f3
0x7ab…7ae 0680 TRAP 0 OFF
0x7ae…7b1 0685 1407f3
0x7b1…7b5 0690 RETURN var(I%) EOS
0x7b5…7b6 0695 FNEND
0x7b6…7d1 0900 REM   FUN --------- HEADING 
0x7d1…7d5 0910 DEF var(FNH%) EOS
0x7d5…816 0920 PRINT var(B3$) SEMI »     +- M A P D A T   F O T O G R A M M E T R I ----------« SEMI EOS
0x816…82c 0922 PRINT » Viak a/s -------+« EOS
0x82c…842 0925 PRINT »     |« SEMI = ( %76 )  → b5f270017cf3
0x842…882 0930 PRINT »     |« SEMI = ( 40 )  → b5f27021532054204520522045204f2044204920472020202020566572736a6f6e20332e30f271736f4c0074b5f270017cf3
0x882…898 0935 PRINT »     |« SEMI = ( %76 )  → b5f270017cf3
0x898…8db 0940 PRINT »     |« SEMI = ( 40 )  → b5f2702450726f6772616d203a2020442049204720202d2d20204469676974616c69736572696e67f271736f4c0074b5f270017cf3
0x8db…8e6 0942 PRINT »     +« SEMI EOS
0x8e6…8ef 0945 19400001f16f4500f3
0x8ef…8f5 0948 PRINT »-« SEMI EOS
0x8f5…8f9 0949 1a4000f3
0x8f9…8fe 0950 PRINT »+« EOS
0x8fe…901 0955 RETURN 0 EOS
0x901…902 0960 FNEND
0x902…907 1000 DEF var(FNQ%) var(R1$) EOS
0x907…91d 1010 PRINT = ( 10 )  → b5f269f2700920284a2f4e29203a20f2f3
0x91d…923 1020 INPUT »« COMMA var(A$) EOS
0x923…925 1025 PRINT EOS
0x925…932 1028 IF var(A$) »« EQ COMMA 27 var(A$) COMMA » « EOS
0x932…940 1030 IF = ( »Jj« var(A$) )  → aef10501f3
0x940…94e 1040 IF = ( »Nn« var(A$) )  → aef10502f3
0x94e…951 1050 GOTO 16 16
0x951…952 1070 FNEND
0x952…96b 2000 REM  ------  MAIN PROGRAM 
0x96b…96e 2005 PRINT var(B2$) EOS
0x96e…975 2010 LET var(X%) COMMA = var(FNH%) EOS
0x975…978 2020 GOSUB 0  → 78
0x978…97b 2025 GOSUB 0  → 80
0x97b…97e 2030 GOSUB 0 »p\x05DIG.2\xf3\x07\x0bp\x1a SUB ----- R«
0x97e…987 2040 CHAIN »DIG.2« EOS
0x987…988 2100 END
0x988…9a5 7000 REM  SUB ----- READ DATA FILE 
0x9a5…9d9 7015 PRINT var(B7$) SEMI = ( 10 )  → b5f2702747692066696c6e61766e20666f7220444154412d66696c20202e2e2e2e2e2e2e2e2e2e20203a20f2f3
0x9d9…9df 7016 INPUT »« COMMA var(B$) EOS
0x9df…9e1 7020 PRINT EOS
0x9e1…9e4 7025 1402f3
0x9e4…9f6 7030 1602f24170073b4143433d494ee2f14003f3
0x9f6…9fe 7040 IF var(C%) 0 EQ COMMA 34 EOS
0x9fe…a16 7050 LET var(X%) COMMA = ( »Append-mode ?« ) var(FNQ%) EOS
0xa16…a1d 7052 IF var(X%) 2 EQ COMMA 34 EOS
0xa1d…a4f 7054 LET var(Y%) COMMA = ( » ER DU SIKKER ? , husk indhold slettes« ) var(FNQ%) EOS
0xa4f…a57 7056 IF var(Y%) 1 EQ COMMA 34 EOS
0xa57…a5a 7058 2002f3
0xa5a…a5d 7060 GOSUB 0  → 85
0xa5d…a5e 7062 DOEND
0xa5e…a67 7064 ELSE 3 var(Y%) 2 EQ COMMA 34 EOS
0xa67…a6c 7066 LET var(X%) COMMA 1 EOS
0xa6c…a6d 7068 DOEND
0xa6d…a6e 7069 DOEND
0xa6e…a75 7070 IF var(X%) 1 EQ COMMA 34 EOS
0xa75…a7b 7080 REM  C 
0xa7b…a88 7082 SPACE 2 SEMI 32760 EOS
0xa88…a93 7085 IF = ( 2 )  → b1eff1008070
0xa93…a94 7090 DOEND
0xa94…a95 7094 DOEND
0xa95…a9e 7096 ELSE 3 var(C%) 2 EQ COMMA 34 EOS
0xa9e…ac1 7100 PRINT = ( 10 )  → b5f2700646696c656e20f241f2700e20657220656e206e792066696c2ef3
0xac1…ac4 7105 1402f3
0xac4…ac9 7106 1e41f16df3
0xac9…ae3 7110 1602f241700f3b4143433d4e45573b524c3d353132e2f14003f3
0xae3…ae6 7115 GOSUB 0  → 85
0xae6…ae7 7120 DOEND
0xae7…af0 7130 IF var(C%) 0 <> COMMA 0 0 »\xf3\x0bp3 «
0xaf0…af2 7190 RETURN EOS
0xaf2…b28 7800 REM  SUB --------------- INNLESING AV TRAFO-KONSTANTER 
0xb28…b38 7805 1606f2700a5452414e532e44415441f3
0xb38…b3e 7810 INPUT 6# SEMI var(C1) EOS
0xb3e…b44 7820 INPUT 6# SEMI var(C2) EOS
0xb44…b4a 7830 INPUT 6# SEMI var(C3) EOS
0xb4a…b50 7840 INPUT 6# SEMI var(A1) EOS
0xb50…b56 7850 INPUT 6# SEMI var(A2) EOS
0xb56…b5c 7860 INPUT 6# SEMI var(A3) EOS
0xb5c…b62 7870 INPUT 6# SEMI var(A4) EOS
0xb62…b68 7880 INPUT 6# SEMI var(A5) EOS
0xb68…b6e 7890 INPUT 6# SEMI var(A6) EOS
0xb6e…b74 7900 INPUT 6# SEMI var(A7) EOS
0xb74…b7a 7910 INPUT 6# SEMI var(A8) EOS
0xb7a…b80 7920 INPUT 6# SEMI var(A9) EOS
0xb80…b83 7930 1406f3
0xb83…b85 7940 RETURN EOS
0xb85…bb5 8000 REM  SUB --------- INITIER TEGNEUTGANG --------- 
0xbb5…bba 8010 LET var(Z3%) COMMA 0 EOS
0xbba…bbc 8015 PRINT EOS
0xbbc…bdd 8020 LET var(X%) COMMA = ( »Direkte plotterutgang « ) var(FNQ%) EOS
0xbdd…be5 8030 IF var(X%) 1 <> COMMA 0 0  → 82
0xbe5…bea 8040 LET var(Z3%) COMMA 1 EOS
0xbea…bf3 8050 1604f27003244850f3
0xbf3…c01 8060 PRINT 4# SEMI »IN;CS9;« EOS
0xc01…c13 8062 PRINT 4# SEMI »RO90;IP;IW;« EOS
0xc13…c19 8065 REM  C 
0xc19…c33 8070 PRINT = ( 10 )  → b5f2700f4749204d5d4c4553544f4b4b203a20f2f3
0xc33…c39 8080 INPUT »« COMMA var(M0) EOS
0xc39…c3b 8085 PRINT EOS
0xc3b…c55 8090 PRINT = ( 10 )  → b5f2700f474920582d4d494e494d554d203a20f2f3
0xc55…c5b 8095 INPUT »« COMMA var(H2) EOS
0xc5b…c5d 8100 PRINT EOS
0xc5d…c77 8110 PRINT = ( 10 )  → b5f2700f474920592d4d494e494d554d203a20f2f3
0xc77…c7d 8120 INPUT »« COMMA var(H1) EOS
0xc7d…c7f 8130 PRINT EOS
0xc7f…c86 8140 LET var(Q0) COMMA var(S0) var(M0) DIV EOS
0xc86…ca2 8150 LET var(X%) COMMA = ( »Korrekte verdier « ) var(FNQ%) EOS
0xca2…caa 8160 IF var(X%) 1 <> COMMA 0 var(Q0)  → 80
0xcaa…cda 8170 LET var(X%) COMMA = ( »Skal plotteren ha alternativ rotasjon« ) var(FNQ%) EOS
0xcda…cf0 8180 IF var(X%) 1 EQ COMMA 15 4# SEMI »RO0;IP;IW;« EOS
0xcf0…cf6 8200 REM  C 
0xcf6…cf8 8210 RETURN EOS
0xcf8…d35 8500 REM  SUB SKRIV toppen av r}datafil med fast format, 7 records 
0xd35…d3f 8502 LET var(I%) COMMA = ( var(B$) ) LEN EOS
0xd3f…d56 8504 PRINT 2# SEMI var(B$) SEMI » « SEMI ELEMENT var(B0$) ( 1 51 var(I%) SUB2 1 SUB2 ) [] EOS
0xd56…d5d 8510 19400001f106f3
0xd5d…d69 8520 PRINT 2# SEMI ELEMENT var(B0$) ( 1 51 ) [] EOS
0xd69…d6d 8530 1a4000f3
0xd6d…d6f 8540 RETURN EOS
0xd6f…d78 8550 REM  HALE

Reduced view