|
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: 3672 (0xe58)
Notes: ZILOG_BASIC
Names: »AER.FOR.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »AER.FOR.BP«
0x000…014 BasicHead {variables=0x002c, stms=0x02e0, f2=0x0b38, f3=0000000000000000000000000000}
0x014…040 [
0x014…040 [0x0]: VarDef {f0=0x0700, f1=0x0f, f2=0x28} I% 0xa
0x014…040 [0x1]: VarDef {f0=0x0000, f1=0x0f, f2=0x22} C% 0x9
0x014…040 [0x2]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x8
0x014…040 [0x3]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2b} L% 0x7
0x014…040 [0x4]: VarDef {f0=0xeae3, f1=0x5f, f2=0x42} FNC$ 0x6
0x014…040 [0x5]: VarDef {f0=0x00db, f1=0x0f, f2=0x52} S$ 0x5
0x014…040 [0x6]: VarDef {f0=0x00d6, f1=0x0f, f2=0x46} G$ 0x4
0x014…040 [0x7]: VarDef {f0=0x00cc, f1=0x0f, f2=0x4c} M$ 0x3
0x014…040 [0x8]: VarDef {f0=0x0078, f1=0x0f, f2=0x41} B$ 0x2
0x014…040 [0x9]: VarDef {f0=0x0054, f1=0x00, f2=0x46} G0$ 0x1
0x014…040 [0xa]: VarDef {f0=0x0000, f1=0x0f, f2=0x40} A$ 0x0
0x014…040 ]
0x040…044 Statement 39312 @0xe57
0x044…048 Statement 38192 @0xe55
0x048…04c Statement 38176 @0xe4f
0x04c…050 Statement 38160 @0xe2e
0x050…054 Statement 38144 @0xe1c
0x054…058 Statement 37136 @0xe1b
0x058…05c Statement 37120 @0xe18
0x05c…060 Statement 36992 @0xe0e
0x060…064 Statement 36976 @0xe0d
0x064…068 Statement 36960 @0xe0a
0x068…06c Statement 36944 @0xe03
0x06c…070 Statement 36928 @0xdf4
0x070…074 Statement 36912 @0xdee
0x074…078 Statement 36896 @0xdb4
0x078…07c Statement 36880 @0xda9
0x07c…080 Statement 36864 @0xd96
0x080…084 Statement 34201 @0xd94
0x084…088 Statement 34192 @0xd91
0x088…08c Statement 34176 @0xd80
0x08c…090 Statement 34160 @0xd6f
0x090…094 Statement 34144 @0xd5e
0x094…098 Statement 34048 @0xd4d
0x098…09c Statement 33941 @0xd47
0x09c…0a0 Statement 33936 @0xd44
0x0a0…0a4 Statement 33925 @0xd3e
0x0a4…0a8 Statement 33920 @0xd2d
0x0a8…0ac Statement 33904 @0xd1c
0x0ac…0b0 Statement 33888 @0xd0b
0x0b0…0b4 Statement 33872 @0xcfa
0x0b4…0b8 Statement 33856 @0xce9
0x0b8…0bc Statement 33840 @0xcdb
0x0bc…0c0 Statement 33824 @0xcd8
0x0c0…0c4 Statement 33808 @0xcd2
0x0c4…0c8 Statement 33792 @0xcc4
0x0c8…0cc Statement 33568 @0xcc1
0x0cc…0d0 Statement 33557 @0xcba
0x0d0…0d4 Statement 33365 @0xcb0
0x0d4…0d8 Statement 33344 @0xcaa
0x0d8…0dc Statement 33333 @0xc9a
0x0dc…0e0 Statement 33328 @0xc95
0x0e0…0e4 Statement 32917 @0xc94
0x0e4…0e8 Statement 32912 @0xc91
0x0e8…0ec Statement 32896 @0xc8b
0x0ec…0f0 Statement 32885 @0xc63
0x0f0…0f4 Statement 32880 @0xc31
0x0f4…0f8 Statement 32869 @0xc2a
0x0f8…0fc Statement 32864 @0xc23
0x0fc…100 Statement 32848 @0xc12
0x100…104 Statement 32838 @0xc07
0x104…108 Statement 32837 @0xbfc
0x108…10c Statement 32832 @0xbf6
0x10c…110 Statement 32816 @0xba8
0x110…114 Statement 32800 @0xb99
0x114…118 Statement 32789 @0xb67
0x118…11c Statement 32784 @0xb21
0x11c…120 Statement 32773 @0xb16
0x120…124 Statement 32768 @0xb00
0x124…128 Statement 29312 @0xafd
0x128…12c Statement 29296 @0xafa
0x12c…130 Statement 29280 @0xae9
0x130…134 Statement 29264 @0xad8
0x134…138 Statement 29248 @0xac7
0x138…13c Statement 29237 @0xac4
0x13c…140 Statement 29232 @0xaaa
0x140…144 Statement 29221 @0xaa4
0x144…148 Statement 29200 @0xa93
0x148…14c Statement 29184 @0xa86
0x14c…150 Statement 28944 @0xa6c
0x150…154 Statement 28928 @0xa5f
0x154…158 Statement 28784 @0xa5e
0x158…15c Statement 28768 @0xa5b
0x15c…160 Statement 28752 @0xa41
0x160…164 Statement 28736 @0xa34
0x164…168 Statement 28720 @0xa24
0x168…16c Statement 28704 @0xa19
0x16c…170 Statement 28688 @0xa16
0x170…174 Statement 28672 @0xa04
0x174…178 Statement 25936 @0xa01
0x178…17c Statement 25920 @0x9e7
0x17c…180 Statement 25904 @0x9da
0x180…184 Statement 25888 @0x9cf
0x184…188 Statement 25872 @0x9cc
0x188…18c Statement 25856 @0x9b8
0x18c…190 Statement 24592 @0x9b5
0x190…194 Statement 24576 @0x9a3
0x194…198 Statement 20889 @0x9a0
0x198…19c Statement 20880 @0x99d
0x19c…1a0 Statement 20576 @0x98c
0x1a0…1a4 Statement 20560 @0x97b
0x1a4…1a8 Statement 20549 @0x96a
0x1a8…1ac Statement 20544 @0x959
0x1ac…1b0 Statement 20528 @0x94c
0x1b0…1b4 Statement 20512 @0x941
0x1b4…1b8 Statement 20496 @0x93e
0x1b8…1bc Statement 20480 @0x92b
0x1bc…1c0 Statement 16793 @0x928
0x1c0…1c4 Statement 16784 @0x925
0x1c4…1c8 Statement 16480 @0x914
0x1c8…1cc Statement 16464 @0x903
0x1cc…1d0 Statement 16448 @0x8f2
0x1d0…1d4 Statement 16432 @0x8e1
0x1d4…1d8 Statement 16416 @0x8d4
0x1d8…1dc Statement 16400 @0x8d1
0x1dc…1e0 Statement 16384 @0x8be
0x1e0…1e4 Statement 12416 @0x8bb
0x1e4…1e8 Statement 12400 @0x8b8
0x1e8…1ec Statement 12384 @0x8a7
0x1ec…1f0 Statement 12368 @0x896
0x1f0…1f4 Statement 12352 @0x885
0x1f4…1f8 Statement 12320 @0x874
0x1f8…1fc Statement 12304 @0x871
0x1fc…200 Statement 12288 @0x85f
0x200…204 Statement 08224 @0x85d
0x204…208 Statement 08208 @0x83c
0x208…20c Statement 08192 @0x82b
0x20c…210 Statement 04128 @0x829
0x210…214 Statement 04112 @0x823
0x214…218 Statement 04096 @0x80f
0x218…21c Statement 01888 @0x80c
0x21c…220 Statement 01877 @0x7fb
0x220…224 Statement 01872 @0x7ea
0x224…228 Statement 01856 @0x7d9
0x228…22c Statement 01840 @0x7c8
0x22c…230 Statement 01829 @0x7b7
0x230…234 Statement 01824 @0x7a6
0x234…238 Statement 01814 @0x7a5
0x238…23c Statement 01812 @0x7a2
0x23c…240 Statement 01810 @0x79f
0x240…244 Statement 01808 @0x78c
0x244…248 Statement 01798 @0x782
0x248…24c Statement 01797 @0x77c
0x24c…250 Statement 01792 @0x76d
0x250…254 Statement 01616 @0x76a
0x254…258 Statement 01536 @0x75a
0x258…25c Statement 01413 @0x759
0x25c…260 Statement 01408 @0x756
0x260…264 Statement 01397 @0x719
0x264…268 Statement 01392 @0x713
0x268…26c Statement 01381 @0x6d7
0x26c…270 Statement 01376 @0x6d0
0x270…274 Statement 01365 @0x6c5
0x274…278 Statement 01360 @0x6bf
0x278…27c Statement 01349 @0x698
0x27c…280 Statement 01346 @0x688
0x280…284 Statement 01345 @0x687
0x284…288 Statement 01344 @0x684
0x288…28c Statement 01328 @0x679
0x28c…290 Statement 01319 @0x666
0x290…294 Statement 01317 @0x654
0x294…298 Statement 01301 @0x64a
0x298…29c Statement 01296 @0x644
0x29c…2a0 Statement 01280 @0x631
0x2a0…2a4 Statement 00921 @0x630
0x2a4…2a8 Statement 00914 @0x62d
0x2a8…2ac Statement 00913 @0x5ea
0x2ac…2b0 Statement 00912 @0x5a7
0x2b0…2b4 Statement 00896 @0x5a1
0x2b4…2b8 Statement 00880 @0x579
0x2b8…2bc Statement 00864 @0x547
0x2bc…2c0 Statement 00848 @0x540
0x2c0…2c4 Statement 00832 @0x539
0x2c4…2c8 Statement 00816 @0x528
0x2c8…2cc Statement 00800 @0x522
0x2cc…2d0 Statement 00784 @0x4d9
0x2d0…2d4 Statement 00768 @0x4c8
0x2d4…2d8 Statement 00512 @0x4c7
0x2d8…2dc Statement 00400 @0x4c4
0x2dc…2e0 Statement 00384 @0x4be
0x2e0…2e4 Statement 00368 @0x496
0x2e4…2e8 Statement 00352 @0x464
0x2e8…2ec Statement 00336 @0x45d
0x2ec…2f0 Statement 00320 @0x456
0x2f0…2f4 Statement 00304 @0x444
0x2f4…2f8 Statement 00288 @0x43e
0x2f8…2fc Statement 00272 @0x3f2
0x2fc…300 Statement 00256 @0x3e7
0x300…304 Statement 00144 @0x3d1
0x304…308 Statement 00096 @0x3b2
0x308…30c Statement 00080 @0x3ab
0x30c…310 Statement 00048 @0x3a5
0x310…314 Statement 00032 @0x37b
0x314…318 Statement 00018 @0x370
0x318…31c Statement 00017 @0x363
0x31c…320 Statement 00016 @0x320
0x320…363 0010 REM AER.FORMAT ZILOG
0x363…370 0011 SYSTEM »AUTOCROFF« EOS
0x370…37b 0012 SYSTEM »WARNOFF« EOS
0x37b…3a5 0020 DIM ELEMENT var(A$) ( %80 ) [] ELEMENT var(G0$) ( 32 ) [] ELEMENT var(B$) ( %80 ) [] ELEMENT var(M$) ( 6 ) [] ELEMENT var(G$) ( 1 ) [] ELEMENT var(S$) ( 1 ) [] EOS
0x3a5…3ab 0030 LET var(G$) COMMA »« EOS
0x3ab…3b2 0050 LET var(G$) COMMA »5« EOS
0x3b2…3d1 0060 DEF var(FNC$) var(L%) var(K%) 5 = ( 27 ) → af700159e271731f48e274afe271731f49e274afe2f3
0x3d1…3e7 0090 REM -----------------
0x3e7…3f2 0100 PRINT = ( 27 ) → aff2700145f3
0x3f2…43e 0110 PRINT = ( 5 1 ) var(FNC$) SEMI »GI FILNAVN FOR FERDIG FORMATERTE DATA :__________________« SEMI = ( 5 40 ) var(FNC$) SEMI EOS
0x43e…444 0120 LINPUT »« COMMA var(A$) EOS
0x444…456 0130 1601f24170083b4143433d4e4557e2f14af3
0x456…45d 0140 IF var(C%) 0 <> COMMA 34 EOS
0x45d…464 0150 PRINT = ( 7 ) → aff3
0x464…496 0160 PRINT = ( 22 1 ) var(FNC$) SEMI »FEIL I FILNAVN/FILEN EKSISTERER FRA F0R« EOS
0x496…4be 0170 PRINT = ( 23 1 ) var(FNC$) SEMI »TRYKK RETURN FOR A FORTSETTE« SEMI EOS
0x4be…4c4 0180 LINPUT »« COMMA var(A$) EOS
0x4c4…4c7 0190 GOTO → 9000
0x4c7…4c8 0200 DOEND
0x4c8…4d9 0300 REM ------------
0x4d9…522 0310 PRINT = ( 8 1 ) var(FNC$) SEMI »GI FILNAVN FOR REGISTRERTE DATA :_____________________« SEMI = ( 8 34 ) var(FNC$) SEMI EOS
0x522…528 0320 LINPUT »« COMMA var(A$) EOS
0x528…539 0330 1602f24170073b4143433d494ee2f14af3
0x539…540 0340 IF var(C%) 0 <> COMMA 34 EOS
0x540…547 0350 PRINT = ( 7 ) → aff3
0x547…579 0360 PRINT = ( 22 1 ) var(FNC$) SEMI »FEIL I FILNAVN/FILEN FINNES I K K E !!« EOS
0x579…5a1 0370 PRINT = ( 23 1 ) var(FNC$) SEMI »TRYKK RETURN FOR A FORTSETTE« SEMI EOS
0x5a1…5a7 0380 LINPUT »« COMMA var(A$) EOS
0x5a7…5ea 0390 PRINT = ( 22 1 ) var(FNC$) SEMI » « SEMI EOS
0x5ea…62d 0391 PRINT = ( 23 1 ) var(FNC$) SEMI » « SEMI EOS
0x62d…630 0392 GOTO 0 3
0x630…631 0399 DOEND
0x631…644 0500 REM --------------
0x644…64a 0510 LINPUT 2# SEMI var(A$) EOS
0x64a…654 0515 IF = ( 2 ) → b1f1000090
0x654…666 0525 REM -------------
0x666…679 0527 IF ELEMENT var(A$) ( 20 24 ) [] »MODNR« EQ COMMA 34 EOS
0x679…684 0530 LET var(M$) COMMA ELEMENT var(A$) ( 10 15 ) [] EOS
0x684…687 0540 GOTO 0 6
0x687…688 0541 DOEND
0x688…698 0542 REM -----------
0x698…6bf 0545 PRINT = ( 11 1 ) var(FNC$) SEMI »GI MODELLNR. :______« SEMI = ( 11 15 ) var(FNC$) SEMI EOS
0x6bf…6c5 0550 LINPUT »« COMMA var(M$) EOS
0x6c5…6d0 0555 IF = ( var(M$) ) LEN 6 <> COMMA 34 EOS
0x6d0…6d7 0560 PRINT = ( 7 ) → aff3
0x6d7…713 0565 PRINT = ( 22 1 ) var(FNC$) SEMI »FEIL ANTALL SIFFER, TRYKK RETURN FOR A FORTSETTE« SEMI EOS
0x713…719 0570 LINPUT »« COMMA var(S$) EOS
0x719…756 0575 PRINT = ( 22 1 ) var(FNC$) SEMI » « SEMI EOS
0x756…759 0580 GOTO var(G0$) 5
0x759…75a 0585 DOEND
0x75a…76a 0600 REM -----------
0x76a…76d 0650 GOSUB 0 → 80
0x76d…77c 0700 REM ----------
0x77c…782 0705 LINPUT 2# SEMI var(A$) EOS
0x782…78c 0706 IF = ( 2 ) → b1f1000090
0x78c…79f 0710 IF ELEMENT var(A$) ( 20 24 ) [] »MODNR« EQ COMMA 34 EOS
0x79f…7a2 0712 GOSUB 0 → 95
0x7a2…7a5 0714 GOTO 37 5
0x7a5…7a6 0716 DOEND
0x7a6…7b7 0720 IF ELEMENT var(A$) ( 20 21 ) [] »TP« EQ COMMA 0 0 »rAs«
0x7b7…7c8 0725 IF ELEMENT var(A$) ( 20 21 ) [] »PP« EQ COMMA 0 0 var(B0x65)
0x7c8…7d9 0730 IF ELEMENT var(A$) ( 20 21 ) [] »FP« EQ COMMA 0 0 var(B0x60)
0x7d9…7ea 0740 IF ELEMENT var(A$) ( 20 21 ) [] »AN« EQ COMMA 0 0 var(B0x50)
0x7ea…7fb 0750 IF ELEMENT var(A$) ( 20 21 ) [] »VA« EQ COMMA 0 0 var(A0x03)
0x7fb…80c 0755 IF ELEMENT var(A$) ( 20 21 ) [] »NY« EQ COMMA 0 0 48
0x80c…80f 0760 GOTO 0 7
0x80f…823 1000 REM ---------------
0x823…829 1010 PRINT 1# SEMI var(B$) EOS
0x829…82b 1020 RETURN EOS
0x82b…83c 2000 REM ------------
0x83c…85d 2010 LET var(B$) COMMA » « EOS
0x85d…85f 2020 RETURN EOS
0x85f…871 3000 REM -------------
0x871…874 3010 GOSUB 0 32
0x874…885 3020 LET ELEMENT var(B$) ( 3 6 ) [] COMMA ELEMENT var(A$) ( 12 15 ) [] EOS
0x885…896 3040 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 29 34 ) [] EOS
0x896…8a7 3050 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 42 47 ) [] EOS
0x8a7…8b8 3060 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 55 63 ) [] EOS
0x8b8…8bb 3070 GOSUB 0 16
0x8bb…8be 3080 GOTO 0 7
0x8be…8d1 4000 REM --------------
0x8d1…8d4 4010 GOSUB 0 32
0x8d4…8e1 4020 LET ELEMENT var(B$) ( 1 1 ) [] COMMA »9« EOS
0x8e1…8f2 4030 LET ELEMENT var(B$) ( 2 6 ) [] COMMA ELEMENT var(A$) ( 11 15 ) [] EOS
0x8f2…903 4040 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 29 34 ) [] EOS
0x903…914 4050 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 42 47 ) [] EOS
0x914…925 4060 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 55 63 ) [] EOS
0x925…928 4190 GOSUB 0 16
0x928…92b 4199 GOTO 0 7
0x92b…93e 5000 REM --------------
0x93e…941 5010 GOSUB 0 32
0x941…94c 5020 LET ELEMENT var(B$) ( 1 1 ) [] COMMA var(G$) EOS
0x94c…959 5030 LET ELEMENT var(B$) ( 2 2 ) [] COMMA »8« EOS
0x959…96a 5040 LET ELEMENT var(B$) ( 3 6 ) [] COMMA ELEMENT var(A$) ( 12 15 ) [] EOS
0x96a…97b 5045 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 29 34 ) [] EOS
0x97b…98c 5050 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 42 47 ) [] EOS
0x98c…99d 5060 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 55 63 ) [] EOS
0x99d…9a0 5190 GOSUB 0 16
0x9a0…9a3 5199 GOTO 0 7
0x9a3…9b5 6000 REM -------------
0x9b5…9b8 6010 GOTO 0 48
0x9b8…9cc 6500 REM ---------------
0x9cc…9cf 6510 GOSUB 0 32
0x9cf…9da 6520 LET ELEMENT var(B$) ( 1 1 ) [] COMMA var(G$) EOS
0x9da…9e7 6530 LET ELEMENT var(B$) ( 2 2 ) [] COMMA »4« EOS
0x9e7…a01 6540 IF ELEMENT var(A$) ( 24 24 ) [] »T« EQ COMMA 27 ELEMENT var(B$) ( 2 2 ) [] COMMA »5« EOS
0xa01…a04 6550 GOTO 0 ELEMENT
0xa04…a16 7000 REM -------------
0xa16…a19 7010 GOSUB 0 32
0xa19…a24 7020 LET ELEMENT var(B$) ( 1 1 ) [] COMMA var(G$) EOS
0xa24…a34 7030 IF ELEMENT var(A$) ( 22 23 ) [] »VA« EQ COMMA 34 EOS
0xa34…a41 7040 LET ELEMENT var(B$) ( 2 2 ) [] COMMA »2« EOS
0xa41…a5b 7050 IF ELEMENT var(A$) ( 24 24 ) [] »T« EQ COMMA 27 ELEMENT var(B$) ( 2 2 ) [] COMMA »3« EOS
0xa5b…a5e 7060 GOTO 0 ELEMENT
0xa5e…a5f 7070 DOEND
0xa5f…a6c 7100 LET ELEMENT var(B$) ( 2 2 ) [] COMMA »0« EOS
0xa6c…a86 7110 IF ELEMENT var(A$) ( 24 24 ) [] »P« EQ COMMA 27 ELEMENT var(B$) ( 2 2 ) [] COMMA »1« EOS
0xa86…a93 7200 REM --------
0xa93…aa4 7210 LET ELEMENT var(B$) ( 3 6 ) [] COMMA ELEMENT var(A$) ( 12 15 ) [] EOS
0xaa4…aaa 7225 194b03f106f3
0xaaa…ac4 7230 IF ELEMENT var(B$) ( var(I%) var(I%) ) [] » « EQ COMMA 27 ELEMENT var(B$) ( var(I%) var(I%) ) [] COMMA »0« EOS
0xac4…ac7 7235 1a4bf3
0xac7…ad8 7240 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 29 34 ) [] EOS
0xad8…ae9 7250 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 42 47 ) [] EOS
0xae9…afa 7260 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 55 63 ) [] EOS
0xafa…afd 7270 GOSUB 0 16
0xafd…b00 7280 GOTO 0 7
0xb00…b16 8000 REM -----------------
0xb16…b21 8005 PRINT = ( 27 ) → aff2700145f3
0xb21…b67 8010 PRINT = ( 5 1 ) var(FNC$) SEMI »********** P R O J E K S J O N S S E N T E R ***********« EOS
0xb67…b99 8015 PRINT = ( 7 1 ) var(FNC$) SEMI »********* MODELLNR :« SEMI var(M$) SEMI » ************« EOS
0xb99…ba8 8020 REM ----------
0xba8…bf6 8030 PRINT = ( 9 1 ) var(FNC$) SEMI »GI FILNAVN FOR GITTERMALING :______________________ (« SEMI var(G0$) SEMI »)« SEMI = ( 9 30 ) var(FNC$) SEMI EOS
0xbf6…bfc 8040 LINPUT »« COMMA var(A$) EOS
0xbfc…c07 8045 IF var(A$) »« EQ COMMA 27 var(A$) COMMA var(G0$) EOS
0xc07…c12 8046 IF var(A$) »« <> COMMA 27 var(G0$) COMMA var(A$) EOS
0xc12…c23 8050 1609f24170073b4143433d494ee2f14af3
0xc23…c2a 8060 IF var(C%) 0 > COMMA 34 EOS
0xc2a…c31 8065 PRINT = ( 7 ) → aff3
0xc31…c63 8070 PRINT = ( 22 1 ) var(FNC$) SEMI »FEIL I FILNAVN/FILEN EKSISTERER FRA F0R« EOS
0xc63…c8b 8075 PRINT = ( 23 1 ) var(FNC$) SEMI »TRYKK RETURN FOR A FORTSETTE« SEMI EOS
0xc8b…c91 8080 LINPUT »« COMMA var(A$) EOS
0xc91…c94 8090 GOTO 32 → 80
0xc94…c95 8095 DOEND
0xc95…c9a 8230 LET var(I%) COMMA 1 EOS
0xc9a…caa 8235 REM -----------
0xcaa…cb0 8240 LINPUT 9# SEMI var(A$) EOS
0xcb0…cba 8255 IF var(I%) %64 EQ COMMA 0 0 → 84
0xcba…cc1 8315 LET var(I%) COMMA var(I%) 1 PLUS EOS
0xcc1…cc4 8320 GOTO 53 → 82
0xcc4…cd2 8400 REM ---------
0xcd2…cd8 8410 LINPUT 9# SEMI var(A$) EOS
0xcd8…cdb 8420 GOSUB 0 32
0xcdb…ce9 8430 LET ELEMENT var(B$) ( 3 4 ) [] COMMA »00« EOS
0xce9…cfa 8440 LET ELEMENT var(B$) ( 1 2 ) [] COMMA ELEMENT var(M$) ( 1 2 ) [] EOS
0xcfa…d0b 8450 LET ELEMENT var(B$) ( 5 6 ) [] COMMA ELEMENT var(M$) ( 5 6 ) [] EOS
0xd0b…d1c 8460 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 10 15 ) [] EOS
0xd1c…d2d 8470 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 21 26 ) [] EOS
0xd2d…d3e 8480 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 32 37 ) [] EOS
0xd3e…d44 8485 PRINT 1# SEMI var(M$) EOS
0xd44…d47 8490 GOSUB 0 16
0xd47…d4d 8495 LINPUT 9# SEMI var(A$) EOS
0xd4d…d5e 8500 LET ELEMENT var(B$) ( 1 2 ) [] COMMA ELEMENT var(M$) ( 3 4 ) [] EOS
0xd5e…d6f 8560 LET ELEMENT var(B$) ( 8 13 ) [] COMMA ELEMENT var(A$) ( 10 15 ) [] EOS
0xd6f…d80 8570 LET ELEMENT var(B$) ( 15 20 ) [] COMMA ELEMENT var(A$) ( 21 26 ) [] EOS
0xd80…d91 8580 LET ELEMENT var(B$) ( 22 27 ) [] COMMA ELEMENT var(A$) ( 32 37 ) [] EOS
0xd91…d94 8590 GOSUB 0 16
0xd94…d96 8599 RETURN EOS
0xd96…da9 9000 REM --------------
0xda9…db4 9010 PRINT = ( 27 ) → aff2700145f3
0xdb4…dee 9020 PRINT = ( 5 1 ) var(FNC$) SEMI »SKAL FLERE FILER FORMATTERES ? (J/N) :_« SEMI = ( 5 39 ) var(FNC$) SEMI EOS
0xdee…df4 9030 LINPUT »« COMMA var(S$) EOS
0xdf4…e03 9040 IF var(S$) »J« <> var(S$) »N« <> AND COMMA 34 EOS
0xe03…e0a 9050 PRINT = ( 7 ) → aff3
0xe0a…e0d 9060 GOTO 32 → 90
0xe0d…e0e 9070 DOEND
0xe0e…e18 9080 IF var(S$) »J« EQ COMMA 0 0 3
0xe18…e1b 9100 GOSUB 0 → 95
0xe1b…e1c 9110 END
0xe1c…e2e 9500 REM -------------
0xe2e…e4f 9510 LET var(B$) COMMA » -99 0 0 0« EOS
0xe4f…e55 9520 PRINT 1# SEMI var(B$) EOS
0xe55…e57 9530 RETURN EOS
0xe57…e58 9990 END