|
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: 3347 (0xd13)
Notes: ZILOG_BASIC
Names: »DIG.NEW.BP«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »DIG.NEW.BP«
└─⟦5cd73ff62⟧ Bits:30006813 8" ZilogMCZ floppy NThun_0015 (OPERATOR'S SYSTEM TEXT IN ENGLISH gp)
└─ ⟦this⟧ »DIG.NEW.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »DIG.NEW.BP«
0x000…014 BasicHead {variables=0x00c4, stms=0x027c, f2=0x09bf, f3=0000000000000000000000000000}
0x014…0d8 [
0x014…0d8 [0x00]: VarDef {f0=0x8085, f1=0x4f, f2=0x22} C% 0x30
0x014…0d8 [0x01]: VarDef {f0=0xfefc, f1=0x5f, f2=0x30} FNQ% 0x2f
0x014…0d8 [0x02]: VarDef {f0=0xff34, f1=0x5f, f2=0x27} FNH% 0x2e
0x014…0d8 [0x03]: VarDef {f0=0x4600, f1=0x0f, f2=0x28} I% 0x2d
0x014…0d8 [0x04]: VarDef {f0=0x0100, f1=0x0f, f2=0x37} X% 0x2c
0x014…0d8 [0x05]: VarDef {f0=0x1020, f1=0x4f, f2=0x30} Q% 0x2b
0x014…0d8 [0x06]: VarDef {f0=0xffa4, f1=0x5f, f2=0x36} FNW% 0x2a
0x014…0d8 [0x07]: VarDef {f0=0x0734, f1=0x00, f2=0x41} B0$ 0x29
0x014…0d8 [0x08]: VarDef {f0=0x06e0, f1=0x01, f2=0x51} R1$ 0x28
0x014…0d8 [0x09]: VarDef {f0=0x06db, f1=0x0f, f2=0x40} A$ 0x27
0x014…0d8 [0x0a]: VarDef {f0=0x06d3, f1=0x02, f2=0x07} H2 0x26
0x014…0d8 [0x0b]: VarDef {f0=0x06cb, f1=0x01, f2=0x07} H1 0x25
0x014…0d8 [0x0c]: VarDef {f0=0x06c3, f1=0x00, f2=0x10} Q0 0x24
0x014…0d8 [0x0d]: VarDef {f0=0x06bb, f1=0x00, f2=0x0c} M0 0x23
0x014…0d8 [0x0e]: VarDef {f0=0x06b3, f1=0x00, f2=0x12} S0 0x22
0x014…0d8 [0x0f]: VarDef {f0=0x06ab, f1=0x09, f2=0x00} A9 0x21
0x014…0d8 [0x10]: VarDef {f0=0x06a3, f1=0x08, f2=0x00} A8 0x20
0x014…0d8 [0x11]: VarDef {f0=0x069b, f1=0x07, f2=0x00} A7 0x1f
0x014…0d8 [0x12]: VarDef {f0=0x0693, f1=0x06, f2=0x00} A6 0x1e
0x014…0d8 [0x13]: VarDef {f0=0x068b, f1=0x05, f2=0x00} A5 0x1d
0x014…0d8 [0x14]: VarDef {f0=0x0683, f1=0x04, f2=0x00} A4 0x1c
0x014…0d8 [0x15]: VarDef {f0=0x067b, f1=0x03, f2=0x00} A3 0x1b
0x014…0d8 [0x16]: VarDef {f0=0x0673, f1=0x02, f2=0x00} A2 0x1a
0x014…0d8 [0x17]: VarDef {f0=0x066b, f1=0x01, f2=0x00} A1 0x19
0x014…0d8 [0x18]: VarDef {f0=0x0663, f1=0x03, f2=0x02} C3 0x18
0x014…0d8 [0x19]: VarDef {f0=0x065b, f1=0x02, f2=0x02} C2 0x17
0x014…0d8 [0x1a]: VarDef {f0=0x0653, f1=0x01, f2=0x02} C1 0x16
0x014…0d8 [0x1b]: VarDef {f0=0x0622, f1=0x02, f2=0x59} Z2$ 0x15
0x014…0d8 [0x1c]: VarDef {f0=0x05f1, f1=0x01, f2=0x59} Z1$ 0x14
0x014…0d8 [0x1d]: VarDef {f0=0x0100, f1=0x03, f2=0x39} Z3% 0x13
0x014…0d8 [0x1e]: VarDef {f0=0x0000, f1=0x02, f2=0x39} Z2% 0x12
0x014…0d8 [0x1f]: VarDef {f0=0x0000, f1=0x01, f2=0x39} Z1% 0x11
0x014…0d8 [0x20]: VarDef {f0=0x05eb, f1=0x07, f2=0x41} B7$ 0x10
0x014…0d8 [0x21]: VarDef {f0=0x05e6, f1=0x06, f2=0x41} B6$ 0xf
0x014…0d8 [0x22]: VarDef {f0=0x05a6, f1=0x05, f2=0x41} B5$ 0xe
0x014…0d8 [0x23]: VarDef {f0=0x05a0, f1=0x04, f2=0x41} B4$ 0xd
0x014…0d8 [0x24]: VarDef {f0=0x059a, f1=0x03, f2=0x41} B3$ 0xc
0x014…0d8 [0x25]: VarDef {f0=0x0594, f1=0x02, f2=0x41} B2$ 0xb
0x014…0d8 [0x26]: VarDef {f0=0x058e, f1=0x01, f2=0x41} B1$ 0xa
0x014…0d8 [0x27]: VarDef {f0=0x0422, f1=0x21, f2=0x4d} N1$<214d> 0x9
0x014…0d8 [0x28]: VarDef {f0=0x0354, f1=0x21, f2=0xb3} T1%'<21b3> 0x8
0x014…0d8 [0x29]: VarDef {f0=0x02b0, f1=0x01, f2=0x93} T1' 0x7
0x014…0d8 [0x2a]: VarDef {f0=0x01e4, f1=0x22, f2=0x53} T2$<2253> 0x6
0x014…0d8 [0x2b]: VarDef {f0=0x0118, f1=0x21, f2=0x53} T1$<2153> 0x5
0x014…0d8 [0x2c]: VarDef {f0=0x00d8, f1=0x08, f2=0x45} F8$ 0x4
0x014…0d8 [0x2d]: VarDef {f0=0x0098, f1=0x07, f2=0x45} F7$ 0x3
0x014…0d8 [0x2e]: VarDef {f0=0x0058, f1=0x06, f2=0x45} F6$ 0x2
0x014…0d8 [0x2f]: VarDef {f0=0x0018, f1=0x05, f2=0x45} F5$ 0x1
0x014…0d8 [0x30]: VarDef {f0=0x0000, f1=0x0f, f2=0x41} B$ 0x0
0x014…0d8 ]
0x0d8…0dc Statement 34128 @0xd0a
0x0dc…0e0 Statement 34112 @0xd08
0x0e0…0e4 Statement 34096 @0xd04
0x0e4…0e8 Statement 34080 @0xcf8
0x0e8…0ec Statement 34064 @0xcf1
0x0ec…0f0 Statement 34052 @0xcda
0x0f0…0f4 Statement 34050 @0xcd0
0x0f4…0f8 Statement 34048 @0xc93
0x0f8…0fc Statement 33296 @0xc91
0x0fc…100 Statement 33280 @0xc8b
0x100…104 Statement 33152 @0xc75
0x104…108 Statement 33136 @0xc45
0x108…10c Statement 33120 @0xc3d
0x10c…110 Statement 33104 @0xc21
0x110…114 Statement 33088 @0xc1a
0x114…118 Statement 33072 @0xc18
0x118…11c Statement 33056 @0xc12
0x11c…120 Statement 33040 @0xbf8
0x120…124 Statement 33024 @0xbf6
0x124…128 Statement 32917 @0xbf0
0x128…12c Statement 32912 @0xbd6
0x12c…130 Statement 32901 @0xbd4
0x130…134 Statement 32896 @0xbce
0x134…138 Statement 32880 @0xbb4
0x138…13c Statement 32869 @0xbae
0x13c…140 Statement 32866 @0xb9c
0x140…144 Statement 32864 @0xb8e
0x144…148 Statement 32848 @0xb85
0x148…14c Statement 32832 @0xb80
0x14c…150 Statement 32816 @0xb78
0x150…154 Statement 32800 @0xb57
0x154…158 Statement 32789 @0xb55
0x158…15c Statement 32784 @0xb50
0x15c…160 Statement 32768 @0xb20
0x160…164 Statement 31040 @0xb1e
0x164…168 Statement 31024 @0xb1b
0x168…16c Statement 31008 @0xb15
0x16c…170 Statement 30992 @0xb0f
0x170…174 Statement 30976 @0xb09
0x174…178 Statement 30864 @0xb03
0x178…17c Statement 30848 @0xafd
0x17c…180 Statement 30832 @0xaf7
0x180…184 Statement 30816 @0xaf1
0x184…188 Statement 30800 @0xaeb
0x188…18c Statement 30784 @0xae5
0x18c…190 Statement 30768 @0xadf
0x190…194 Statement 30752 @0xad9
0x194…198 Statement 30736 @0xad3
0x198…19c Statement 30725 @0xac3
0x19c…1a0 Statement 30720 @0xa8d
0x1a0…1a4 Statement 29072 @0xa8b
0x1a4…1a8 Statement 28976 @0xa82
0x1a8…1ac Statement 28960 @0xa81
0x1ac…1b0 Statement 28949 @0xa7e
0x1b0…1b4 Statement 28944 @0xa64
0x1b4…1b8 Statement 28934 @0xa5f
0x1b8…1bc Statement 28933 @0xa5c
0x1bc…1c0 Statement 28928 @0xa39
0x1c0…1c4 Statement 28822 @0xa30
0x1c4…1c8 Statement 28820 @0xa2f
0x1c8…1cc Statement 28816 @0xa2e
0x1cc…1d0 Statement 28805 @0xa23
0x1d0…1d4 Statement 28802 @0xa16
0x1d4…1d8 Statement 28800 @0xa10
0x1d8…1dc Statement 28784 @0xa08
0x1dc…1e0 Statement 28774 @0xa07
0x1e0…1e4 Statement 28772 @0xa04
0x1e4…1e8 Statement 28770 @0xa01
0x1e8…1ec Statement 28768 @0x9fa
0x1ec…1f0 Statement 28752 @0x9e2
0x1f0…1f4 Statement 28736 @0x9da
0x1f4…1f8 Statement 28720 @0x9c8
0x1f8…1fc Statement 28709 @0x9c5
0x1fc…200 Statement 28704 @0x9c3
0x200…204 Statement 28694 @0x9bd
0x204…208 Statement 28693 @0x989
0x208…20c Statement 28672 @0x96c
0x20c…210 Statement 08448 @0x96b
0x210…214 Statement 08256 @0x962
0x214…218 Statement 08240 @0x95f
0x218…21c Statement 08229 @0x95c
0x21c…220 Statement 08224 @0x959
0x220…224 Statement 08208 @0x952
0x224…228 Statement 08197 @0x94f
0x228…22c Statement 08192 @0x936
0x22c…230 Statement 04208 @0x935
0x230…234 Statement 04176 @0x932
0x234…238 Statement 04160 @0x924
0x238…23c Statement 04144 @0x916
0x23c…240 Statement 04136 @0x909
0x240…244 Statement 04133 @0x907
0x244…248 Statement 04128 @0x901
0x248…24c Statement 04112 @0x8eb
0x24c…250 Statement 04096 @0x8e6
0x250…254 Statement 02400 @0x8e5
0x254…258 Statement 02389 @0x8e2
0x258…25c Statement 02384 @0x8dd
0x25c…260 Statement 02377 @0x8d9
0x260…264 Statement 02376 @0x8d3
0x264…268 Statement 02373 @0x8ca
0x268…26c Statement 02370 @0x8bf
0x26c…270 Statement 02368 @0x87c
0x270…274 Statement 02357 @0x866
0x274…278 Statement 02352 @0x826
0x278…27c Statement 02341 @0x810
0x27c…280 Statement 02338 @0x7fa
0x280…284 Statement 02336 @0x7b9
0x284…288 Statement 02320 @0x7b5
0x288…28c Statement 02304 @0x79a
0x28c…290 Statement 01685 @0x799
0x290…294 Statement 01680 @0x795
0x294…298 Statement 01669 @0x792
0x298…29c Statement 01664 @0x78f
0x29c…2a0 Statement 01653 @0x78b
0x2a0…2a4 Statement 01650 @0x77f
0x2a4…2a8 Statement 01649 @0x76f
0x2a8…2ac Statement 01648 @0x769
0x2ac…2b0 Statement 01641 @0x766
0x2b0…2b4 Statement 01640 @0x762
0x2b4…2b8 Statement 01639 @0x750
0x2b8…2bc Statement 01638 @0x74a
0x2bc…2c0 Statement 01636 @0x744
0x2c0…2c4 Statement 01634 @0x73d
0x2c4…2c8 Statement 01632 @0x739
0x2c8…2cc Statement 01621 @0x733
0x2cc…2d0 Statement 01616 @0x730
0x2d0…2d4 Statement 01600 @0x708
0x2d4…2d8 Statement 01589 @0x700
0x2d8…2dc Statement 01584 @0x6ef
0x2dc…2e0 Statement 01568 @0x6e3
0x2e0…2e4 Statement 01559 @0x6e1
0x2e4…2e8 Statement 01557 @0x6db
0x2e8…2ec Statement 01554 @0x69f
0x2ec…2f0 Statement 01552 @0x665
0x2f0…2f4 Statement 01542 @0x65f
0x2f4…2f8 Statement 01541 @0x65b
0x2f8…2fc Statement 01536 @0x628
0x2fc…300 Statement 00848 @0x61b
0x300…304 Statement 00832 @0x5e8
0x304…308 Statement 00816 @0x5bc
0x308…30c Statement 00800 @0x580
0x30c…310 Statement 00784 @0x555
0x310…314 Statement 00592 @0x513
0x314…318 Statement 00576 @0x4f9
0x318…31c Statement 00560 @0x4eb
0x31c…320 Statement 00544 @0x4d3
0x320…324 Statement 00528 @0x4b9
0x324…328 Statement 00512 @0x49c
0x328…32c Statement 00400 @0x480
0x32c…330 Statement 00384 @0x447
0x330…334 Statement 00368 @0x438
0x334…338 Statement 00336 @0x422
0x338…33c Statement 00325 @0x41b
0x33c…340 Statement 00320 @0x40d
0x340…344 Statement 00304 @0x3fc
0x344…348 Statement 00288 @0x3d0
0x348…34c Statement 00272 @0x3ac
0x34c…350 Statement 00256 @0x38c
0x350…354 Statement 00080 @0x354
0x354…38c 0050 REM VERSJON AREROKORT DIG.NEW FEBRUAR 1985 SVERRE TVEDT
0x38c…3ac 0100 COM ELEMENT var(B$) ( 20 ) [] ELEMENT var(F5$) ( 60 ) [] ELEMENT var(F6$) ( 60 ) [] ELEMENT var(F7$) ( 60 ) [] ELEMENT var(F8$) ( 60 ) [] EOS
0x3ac…3d0 0110 COM ELEMENT var(T1$<2153>) ( 20 8 ) [] ELEMENT var(T2$<2253>) ( 20 8 ) [] ELEMENT var(T1') ( 20 ) [] ELEMENT var(T1%'<21b3>) ( 20 5 ) [] ELEMENT var(N1$<214d>) ( 20 16 ) [] EOS
0x3d0…3fc 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
0x3fc…40d 0130 COM var(Z1%) var(Z2%) var(Z3%) ELEMENT var(Z1$) ( 45 ) [] ELEMENT var(Z2$) ( 45 ) [] EOS
0x40d…41b 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
0x41b…422 0145 COM var(S0) var(M0) var(Q0) var(H1) var(H2) EOS
0x422…438 0150 DIM ELEMENT var(A$) ( 1 ) [] ELEMENT var(R1$) ( %80 ) [] ELEMENT var(B0$) ( 51 ) [] EOS
0x438…447 0170 SYSTEM »LINELEN« COMMA %80 EOS
0x447…480 0180 LET var(B0$) COMMA »000000000000000000000000000000000000000000000000000« EOS
0x480…49c 0190 LET var(B1$) COMMA = ( 27 ) → af700167e2f3204d656d6f7279206c6f636b206f6e
0x49c…4b9 0200 LET var(B2$) COMMA = ( 27 ) → af700168e2f3204d656d6f7279206c6f636b206f6666
0x4b9…4d3 0210 LET var(B3$) COMMA = ( 27 ) → af700145e2f320424c414e4b20534b4a45524d
0x4d3…4eb 0220 LET var(B4$) COMMA = ( 27 ) → af700141e2f320435552534f52204f5050
0x4eb…4f9 0230 LET var(B6$) COMMA = ( 7 ) → aff32042656c6c
0x4f9…513 0240 LET var(B7$) COMMA = ( 10 ) → af71730d74afe2f3204c696e6a65736b696674
0x513…555 0250 LET var(B5$) COMMA »------------------------------------------------------------« EOS
0x555…580 0310 LET var(F5$) COMMA »#### ######## ##### ######## ########« EOS
0x580…5bc 0320 LET var(F6$) COMMA »###### ######## #########.DD #########.DD #########.DD« EOS
0x5bc…5e8 0330 LET var(F7$) COMMA »#########.DD #########.DD #########.DD« EOS
0x5e8…61b 0340 LET var(F8$) COMMA »###### #########.DD #########.DD #########.DD« EOS
0x61b…628 0350 LET var(S0) COMMA 40200 EOS
0x628…65b 0600 REM FUN ------ LES HUSTEMAER ELLER PARALLELL-KODER
0x65b…65f 0605 DEF var(FNW%) var(Q%) EOS
0x65f…665 0606 REM C
0x665…69f 0610 IF var(Q%) 1 EQ COMMA 15 = ( 10 ) → b5f2702a47692074656d6166696c206875736f707072657474696e67202852455455524e3d696e67656e29203a20f2f3
0x69f…6db 0612 ELSE 15 = ( 10 ) → b5f2703047692074656d6166696c20666f7220706172616c6c656c6c2d6b6f646572202852455455524e3d696e67656e29203a20f2f3
0x6db…6e1 0615 INPUT »« COMMA var(R1$) EOS
0x6e1…6e3 0617 PRINT EOS
0x6e3…6ef 0620 IF = ( var(R1$) ) LEN 0 EQ COMMA 5 0 EOS
0x6ef…700 0630 1607f26970073b4143433d494ee2f16df3
0x700…708 0635 IF var(X%) 0 EQ COMMA 0 var(Z1$) 6
0x708…730 0640 PRINT = ( 10 ) → b5f2701746696c656e20656b736973746572657220696b6b652021f251f24ef24ef2f3
0x730…733 0650 GOTO 6 6
0x733…739 0655 REM C
0x739…73d 0660 TRAP 0 0680
0x73d…744 0662 19400001f105f3
0x744…74a 0664 LINPUT 7# SEMI var(R1$) EOS
0x74a…750 0666 REM C
0x750…762 0667 IF = ( var(R1$) ) LEN 8 ?< COMMA 27 var(R1$) COMMA » « var(R1$) PLUS EOS
0x762…766 0668 ELSE 0 »\x00f\x06\x0bp\x03«
0x766…769 0669 GOTO var(H1) 6
0x769…76f 0670 REM C
0x76f…77f 0671 IF var(Q%) 1 EQ COMMA 27 var(Z1$) COMMA var(Z1$) »*« PLUS var(R1$) PLUS EOS
0x77f…78b 0672 ELSE 27 var(Z2$) COMMA var(Z2$) »*« PLUS var(R1$) PLUS EOS
0x78b…78f 0675 1a4000f3
0x78f…792 0680 TRAP 0 OFF
0x792…795 0685 1407f3
0x795…799 0690 RETURN var(I%) EOS
0x799…79a 0695 FNEND
0x79a…7b5 0900 REM FUN --------- HEADING
0x7b5…7b9 0910 DEF var(FNH%) EOS
0x7b9…7fa 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
0x7fa…810 0922 PRINT » Viak a/s -------+« EOS
0x810…826 0925 PRINT » |« SEMI = ( %76 ) → b5f270017cf3
0x826…866 0930 PRINT » |« SEMI = ( 40 ) → b5f27021532054204520522045204f2044204920472020202020566572736a6f6e20332e30f271736f4c0074b5f270017cf3
0x866…87c 0935 PRINT » |« SEMI = ( %76 ) → b5f270017cf3
0x87c…8bf 0940 PRINT » |« SEMI = ( 40 ) → b5f2702450726f6772616d203a2020442049204720202d2d20204469676974616c69736572696e67f271736f4c0074b5f270017cf3
0x8bf…8ca 0942 PRINT » +« SEMI EOS
0x8ca…8d3 0945 19400001f16f4500f3
0x8d3…8d9 0948 PRINT »-« SEMI EOS
0x8d9…8dd 0949 1a4000f3
0x8dd…8e2 0950 PRINT »+« EOS
0x8e2…8e5 0955 RETURN 0 EOS
0x8e5…8e6 0960 FNEND
0x8e6…8eb 1000 DEF var(FNQ%) var(R1$) EOS
0x8eb…901 1010 PRINT = ( 10 ) → b5f269f2700920284a2f4e29203a20f2f3
0x901…907 1020 INPUT »« COMMA var(A$) EOS
0x907…909 1025 PRINT EOS
0x909…916 1028 IF var(A$) »« EQ COMMA 27 var(A$) COMMA » « EOS
0x916…924 1030 IF = ( »Jj« var(A$) ) → aef10501f3
0x924…932 1040 IF = ( »Nn« var(A$) ) → aef10502f3
0x932…935 1050 GOTO 16 16
0x935…936 1070 FNEND
0x936…94f 2000 REM ------ MAIN PROGRAM
0x94f…952 2005 PRINT var(B2$) EOS
0x952…959 2010 LET var(X%) COMMA = var(FNH%) EOS
0x959…95c 2020 GOSUB 0 → 78
0x95c…95f 2025 GOSUB 0 → 80
0x95f…962 2030 GOSUB 0 »p\x05DIG.2\xf3\x07\x0bp\x1a SUB ----- R«
0x962…96b 2040 CHAIN »DIG.2« EOS
0x96b…96c 2100 END
0x96c…989 7000 REM SUB ----- READ DATA FILE
0x989…9bd 7015 PRINT var(B7$) SEMI = ( 10 ) → b5f2702747692066696c6e61766e20666f7220444154412d66696c20202e2e2e2e2e2e2e2e2e2e20203a20f2f3
0x9bd…9c3 7016 INPUT »« COMMA var(B$) EOS
0x9c3…9c5 7020 PRINT EOS
0x9c5…9c8 7025 1402f3
0x9c8…9da 7030 1602f24170073b4143433d494ee2f14003f3
0x9da…9e2 7040 IF var(C%) 0 EQ COMMA 34 EOS
0x9e2…9fa 7050 LET var(X%) COMMA = ( »Append-mode ?« ) var(FNQ%) EOS
0x9fa…a01 7060 IF var(X%) 2 EQ COMMA 34 EOS
0xa01…a04 7062 2002f3
0xa04…a07 7064 GOSUB 0 → 85
0xa07…a08 7066 DOEND
0xa08…a10 7070 ELSE 3 var(X%) 1 EQ COMMA 34 EOS
0xa10…a16 7080 REM C
0xa16…a23 7082 SPACE 2 SEMI 32760 EOS
0xa23…a2e 7085 IF = ( 2 ) → b1eff1008070
0xa2e…a2f 7090 DOEND
0xa2f…a30 7094 DOEND
0xa30…a39 7096 ELSE 3 var(C%) 2 EQ COMMA 34 EOS
0xa39…a5c 7100 PRINT = ( 10 ) → b5f2700646696c656e20f241f2700e20657220656e206e792066696c2ef3
0xa5c…a5f 7105 1402f3
0xa5f…a64 7106 1e41f16df3
0xa64…a7e 7110 1602f241700f3b4143433d4e45573b524c3d353132e2f14003f3
0xa7e…a81 7115 GOSUB 0 → 85
0xa81…a82 7120 DOEND
0xa82…a8b 7130 IF var(C%) 0 <> COMMA 0 0 »\xf3\x0bp3 «
0xa8b…a8d 7190 RETURN EOS
0xa8d…ac3 7800 REM SUB --------------- INNLESING AV TRAFO-KONSTANTER
0xac3…ad3 7805 1606f2700a5452414e532e44415441f3
0xad3…ad9 7810 INPUT 6# SEMI var(C1) EOS
0xad9…adf 7820 INPUT 6# SEMI var(C2) EOS
0xadf…ae5 7830 INPUT 6# SEMI var(C3) EOS
0xae5…aeb 7840 INPUT 6# SEMI var(A1) EOS
0xaeb…af1 7850 INPUT 6# SEMI var(A2) EOS
0xaf1…af7 7860 INPUT 6# SEMI var(A3) EOS
0xaf7…afd 7870 INPUT 6# SEMI var(A4) EOS
0xafd…b03 7880 INPUT 6# SEMI var(A5) EOS
0xb03…b09 7890 INPUT 6# SEMI var(A6) EOS
0xb09…b0f 7900 INPUT 6# SEMI var(A7) EOS
0xb0f…b15 7910 INPUT 6# SEMI var(A8) EOS
0xb15…b1b 7920 INPUT 6# SEMI var(A9) EOS
0xb1b…b1e 7930 1406f3
0xb1e…b20 7940 RETURN EOS
0xb20…b50 8000 REM SUB --------- INITIER TEGNEUTGANG ---------
0xb50…b55 8010 LET var(Z3%) COMMA 0 EOS
0xb55…b57 8015 PRINT EOS
0xb57…b78 8020 LET var(X%) COMMA = ( »Direkte plotterutgang « ) var(FNQ%) EOS
0xb78…b80 8030 IF var(X%) 1 <> COMMA 0 0 → 82
0xb80…b85 8040 LET var(Z3%) COMMA 1 EOS
0xb85…b8e 8050 1604f27003244850f3
0xb8e…b9c 8060 PRINT 4# SEMI »IN;CS9;« EOS
0xb9c…bae 8062 PRINT 4# SEMI »RO90;IP;IW;« EOS
0xbae…bb4 8065 REM C
0xbb4…bce 8070 PRINT = ( 10 ) → b5f2700f4749204d5d4c4553544f4b4b203a20f2f3
0xbce…bd4 8080 INPUT »« COMMA var(M0) EOS
0xbd4…bd6 8085 PRINT EOS
0xbd6…bf0 8090 PRINT = ( 10 ) → b5f2700f474920582d4d494e494d554d203a20f2f3
0xbf0…bf6 8095 INPUT »« COMMA var(H2) EOS
0xbf6…bf8 8100 PRINT EOS
0xbf8…c12 8110 PRINT = ( 10 ) → b5f2700f474920592d4d494e494d554d203a20f2f3
0xc12…c18 8120 INPUT »« COMMA var(H1) EOS
0xc18…c1a 8130 PRINT EOS
0xc1a…c21 8140 LET var(Q0) COMMA var(S0) var(M0) DIV EOS
0xc21…c3d 8150 LET var(X%) COMMA = ( »Korrekte verdier « ) var(FNQ%) EOS
0xc3d…c45 8160 IF var(X%) 1 <> COMMA 0 var(Q0) → 80
0xc45…c75 8170 LET var(X%) COMMA = ( »Skal plotteren ha alternativ rotasjon« ) var(FNQ%) EOS
0xc75…c8b 8180 IF var(X%) 1 EQ COMMA 15 4# SEMI »RO0;IP;IW;« EOS
0xc8b…c91 8200 REM C
0xc91…c93 8210 RETURN EOS
0xc93…cd0 8500 REM SUB SKRIV toppen av r}datafil med fast format, 7 records
0xcd0…cda 8502 LET var(I%) COMMA = ( var(B$) ) LEN EOS
0xcda…cf1 8504 PRINT 2# SEMI var(B$) SEMI » « SEMI ELEMENT var(B0$) ( 1 51 var(I%) SUB2 1 SUB2 ) [] EOS
0xcf1…cf8 8510 19400001f106f3
0xcf8…d04 8520 PRINT 2# SEMI ELEMENT var(B0$) ( 1 51 ) [] EOS
0xd04…d08 8530 1a4000f3
0xd08…d0a 8540 RETURN EOS
0xd0a…d13 8550 REM HALE