|
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 - metrics - download
Length: 2556 (0x9fc)
Notes: ZILOG_BASIC
Names: »PRINT.MAP.BP«
└─⟦8ff4bf6ca⟧ Bits:30006821 8" ZilogMCZ floppy NThun_0029 (MAPDAT-DIG/PLOT 18/10-82 Tilpasset for bruk pÅ MCZ 1/35 Ny versjon av PREPARE)
└─⟦this⟧ »PRINT.MAP.BP«
0x000…014 BasicHead {variables=0x0064, stms=0x0240, f2=0x0744, f3=0000000000000000000000000000}
0x014…078 [
0x014…078 [0x00]: VarDef {f0=0x1200, f1=0x4f, f2=0x46} G$ 0x18
0x014…078 [0x01]: VarDef {f0=0x3900, f1=0x43, f2=0x2f} P3% 0x17
0x014…078 [0x02]: VarDef {f0=0x1300, f1=0x42, f2=0x2f} P2% 0x16
0x014…078 [0x03]: VarDef {f0=0x0100, f1=0x41, f2=0x2f} P1% 0x15
0x014…078 [0x04]: VarDef {f0=0x1800, f1=0x41, f2=0x31} R1% 0x14
0x014…078 [0x05]: VarDef {f0=0x1f00, f1=0x4f, f2=0x23} D% 0x13
0x014…078 [0x06]: VarDef {f0=0x3f00, f1=0x42, f2=0x31} R2% 0x12
0x014…078 [0x07]: VarDef {f0=0x2200, f1=0x4f, f2=0x29} J% 0x11
0x014…078 [0x08]: VarDef {f0=0x2300, f1=0x4f, f2=0x28} I% 0x10
0x014…078 [0x09]: VarDef {f0=0x0200, f1=0x4f, f2=0x25} F% 0xf
0x014…078 [0x0a]: VarDef {f0=0x0400, f1=0x41, f2=0x2d} N1% 0xe
0x014…078 [0x0b]: VarDef {f0=0x3c00, f1=0x40, f2=0x2d} N0% 0xd
0x014…078 [0x0c]: VarDef {f0=0x4600, f1=0x4f, f2=0x2d} N% 0xc
0x014…078 [0x0d]: VarDef {f0=0x2200, f1=0x4f, f2=0x21} B% 0xb
0x014…078 [0x0e]: VarDef {f0=0x0200, f1=0x4f, f2=0x26} G% 0xa
0x014…078 [0x0f]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x9
0x014…078 [0x10]: VarDef {f0=0xfe57, f1=0x5f, f2=0x20} FNA% 0x8
0x014…078 [0x11]: VarDef {f0=0x0170, f1=0x43, f2=0x22} C3% 0x7
0x014…078 [0x12]: VarDef {f0=0x0160, f1=0x42, f2=0x22} C2% 0x6
0x014…078 [0x13]: VarDef {f0=0x0150, f1=0x41, f2=0x22} C1% 0x5
0x014…078 [0x14]: VarDef {f0=0xfe73, f1=0x5f, f2=0x22} FNC% 0x4
0x014…078 [0x15]: VarDef {f0=0x00ea, f1=0x4f, f2=0x47} H$ 0x3
0x014…078 [0x16]: VarDef {f0=0x00d7, f1=0x4f, f2=0x56} W$ 0x2
0x014…078 [0x17]: VarDef {f0=0x003d, f1=0x4f, f2=0x51} R$ 0x1
0x014…078 [0x18]: VarDef {f0=0x0000, f1=0x4f, f2=0x4f} P$ 0x0
0x014…078 ]
0x078…07c Statement 13200 @0x9fa
0x07c…080 Statement 13184 @0x9f7
0x080…084 Statement 13168 @0x9f1
0x084…088 Statement 13136 @0x9ee
0x088…08c Statement 13125 @0x9ec
0x08c…090 Statement 13120 @0x9b4
0x090…094 Statement 13106 @0x9b2
0x094…098 Statement 13104 @0x9a8
0x098…09c Statement 13088 @0x999
0x09c…0a0 Statement 13072 @0x995
0x0a0…0a4 Statement 12944 @0x989
0x0a4…0a8 Statement 12928 @0x954
0x0a8…0ac Statement 12918 @0x952
0x0ac…0b0 Statement 12916 @0x94c
0x0b0…0b4 Statement 12912 @0x93d
0x0b4…0b8 Statement 12896 @0x939
0x0b8…0bc Statement 12864 @0x92d
0x0bc…0c0 Statement 12850 @0x8f8
0x0c0…0c4 Statement 12848 @0x8f6
0x0c4…0c8 Statement 12840 @0x8f0
0x0c8…0cc Statement 12656 @0x8e1
0x0cc…0d0 Statement 12640 @0x8dd
0x0d0…0d4 Statement 12608 @0x8d1
0x0d4…0d8 Statement 12594 @0x89c
0x0d8…0dc Statement 12592 @0x89a
0x0dc…0e0 Statement 12584 @0x894
0x0e0…0e4 Statement 12576 @0x888
0x0e4…0e8 Statement 12544 @0x881
0x0e8…0ec Statement 12432 @0x87e
0x0ec…0f0 Statement 12419 @0x87c
0x0f0…0f4 Statement 12416 @0x867
0x0f4…0f8 Statement 12406 @0x85c
0x0f8…0fc Statement 12384 @0x856
0x0fc…100 Statement 12373 @0x823
0x100…104 Statement 12336 @0x818
0x104…108 Statement 12288 @0x806
0x108…10c Statement 08720 @0x804
0x10c…110 Statement 08544 @0x7f7
0x110…114 Statement 08528 @0x7e4
0x114…118 Statement 08512 @0x7d3
0x118…11c Statement 08308 @0x794
0x11c…120 Statement 08304 @0x782
0x120…124 Statement 08288 @0x774
0x124…128 Statement 08272 @0x75e
0x128…12c Statement 08256 @0x750
0x12c…130 Statement 08240 @0x73a
0x130…134 Statement 08224 @0x725
0x134…138 Statement 08210 @0x712
0x138…13c Statement 08208 @0x703
0x13c…140 Statement 08192 @0x6f3
0x140…144 Statement 06544 @0x6f2
0x144…148 Statement 06536 @0x6ed
0x148…14c Statement 06534 @0x6d2
0x14c…150 Statement 06528 @0x6b7
0x150…154 Statement 06513 @0x6b5
0x154…158 Statement 06496 @0x6af
0x158…15c Statement 05777 @0x6ac
0x15c…160 Statement 05712 @0x6a9
0x160…164 Statement 05680 @0x6a1
0x164…168 Statement 05664 @0x69b
0x168…16c Statement 05650 @0x692
0x16c…170 Statement 05632 @0x68c
0x170…174 Statement 05376 @0x689
0x174…178 Statement 05264 @0x684
0x178…17c Statement 05200 @0x681
0x17c…180 Statement 05168 @0x679
0x180…184 Statement 05152 @0x671
0x184…188 Statement 04976 @0x66e
0x188…18c Statement 04965 @0x663
0x18c…190 Statement 04962 @0x662
0x190…194 Statement 04928 @0x650
0x194…198 Statement 04912 @0x64d
0x198…19c Statement 04896 @0x646
0x19c…1a0 Statement 04888 @0x645
0x1a0…1a4 Statement 04887 @0x642
0x1a4…1a8 Statement 04886 @0x63c
0x1a8…1ac Statement 04885 @0x62d
0x1ac…1b0 Statement 04881 @0x629
0x1b0…1b4 Statement 04880 @0x623
0x1b4…1b8 Statement 04870 @0x61d
0x1b8…1bc Statement 04704 @0x61c
0x1bc…1c0 Statement 04691 @0x613
0x1c0…1c4 Statement 04689 @0x5d2
0x1c4…1c8 Statement 04688 @0x593
0x1c8…1cc Statement 04672 @0x58c
0x1cc…1d0 Statement 04656 @0x589
0x1d0…1d4 Statement 04640 @0x57e
0x1d4…1d8 Statement 04624 @0x578
0x1d8…1dc Statement 04608 @0x572
0x1dc…1e0 Statement 04386 @0x56d
0x1e0…1e4 Statement 04384 @0x564
0x1e4…1e8 Statement 04368 @0x559
0x1e8…1ec Statement 04352 @0x54e
0x1ec…1f0 Statement 04242 @0x54a
0x1f0…1f4 Statement 04240 @0x546
0x1f4…1f8 Statement 04176 @0x543
0x1f8…1fc Statement 04162 @0x53e
0x1fc…200 Statement 04160 @0x536
0x200…204 Statement 04144 @0x530
0x204…208 Statement 04128 @0x514
0x208…20c Statement 04112 @0x509
0x20c…210 Statement 04096 @0x4f2
0x210…214 Statement 02320 @0x4f1
0x214…218 Statement 02048 @0x4ee
0x218…21c Statement 01936 @0x4eb
0x21c…220 Statement 01920 @0x4e5
0x220…224 Statement 01904 @0x4d8
0x224…228 Statement 01888 @0x4d3
0x228…22c Statement 01872 @0x4c3
0x22c…230 Statement 01856 @0x495
0x230…234 Statement 01840 @0x48a
0x234…238 Statement 01824 @0x45a
0x238…23c Statement 01792 @0x44f
0x23c…240 Statement 01680 @0x449
0x240…244 Statement 01664 @0x446
0x244…248 Statement 01648 @0x436
0x248…24c Statement 01632 @0x415
0x24c…250 Statement 01616 @0x40a
0x250…254 Statement 01600 @0x404
0x254…258 Statement 01584 @0x3f5
0x258…25c Statement 01568 @0x3f2
0x25c…260 Statement 01552 @0x3cb
0x260…264 Statement 01536 @0x3c0
0x264…268 Statement 01432 @0x3bf
0x268…26c Statement 01430 @0x3aa
0x26c…270 Statement 01428 @0x3a7
0x270…274 Statement 01426 @0x3a0
0x274…278 Statement 01424 @0x38f
0x278…27c Statement 01408 @0x38c
0x27c…280 Statement 01392 @0x365
0x280…284 Statement 01376 @0x35a
0x284…288 Statement 01360 @0x356
0x288…28c Statement 01344 @0x351
0x28c…290 Statement 01328 @0x34b
0x290…294 Statement 01282 @0x348
0x294…298 Statement 01280 @0x339
0x298…29c Statement 01152 @0x338
0x29c…2a0 Statement 01136 @0x335
0x2a0…2a4 Statement 01088 @0x31a
0x2a4…2a8 Statement 01072 @0x2fe
0x2a8…2ac Statement 01056 @0x2ee
0x2ac…2b0 Statement 01040 @0x2e8
0x2b0…2b4 Statement 01024 @0x2d7
0x2b4…2b8 Statement 00080 @0x2b8
0x2b8…2d7 0050 DIM ELEMENT var(P$) ( 57 ) [] ELEMENT var(R$) ( %150 ) [] ELEMENT var(W$) ( 15 ) [] ELEMENT var(H$) ( 10 %80 ) [] EOS
0x2d7…2e8 0400 REM ** OUTSCR **
0x2e8…2ee 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x2ee…2fe 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x2fe…31a 0430 PRINT = ( 27 ) → af700146e2f271731f47e274aff271731f48e274aff2f3
0x31a…335 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e0046e374afe2f2f3
0x335…338 0470 RETURN 0 EOS
0x338…339 0480 FNEND
0x339…348 0500 REM ** FIOP **
0x348…34b 0502 DEF var(FNA%) EOS
0x34b…351 0530 REM C
0x351…356 0540 1401f102f3
0x356…35a 0550 TRAP ERR 0690
0x35a…365 0560 LET var(X%) COMMA = ( 4 7 5 ) var(FNC%) EOS
0x365…38c 0570 INPUT »*** GIVE DESTINATION-FILENAME : « COMMA var(W$) EOS
0x38c…38f 0580 1401f3
0x38f…3a0 0590 1601f24370073b4143433d494ee2f14af3
0x3a0…3a7 0592 IF var(X%) 2 EQ COMMA 34 EOS
0x3a7…3aa 0594 1401f3
0x3aa…3bf 0596 1601f27002302f43e270083b4143433d4e4557e2f3
0x3bf…3c0 0598 DOEND
0x3c0…3cb 0600 LET var(X%) COMMA = ( 4 8 5 ) var(FNC%) EOS
0x3cb…3f2 0610 INPUT »*** GIVE SOURCE-FILENAME : « COMMA var(W$) EOS
0x3f2…3f5 0620 1402f3
0x3f5…404 0630 1602f24370073b4143433d494ee2f3
0x404…40a 0640 REM C
0x40a…415 0650 LET var(X%) COMMA = ( 2 10 10 ) var(FNC%) EOS
0x415…436 0660 INPUT »*** O K ? (Y/N) : « COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x436…446 0670 IF ELEMENT var(W$) ( 1 1 ) [] »Y« <> COMMA 0 48 5
0x446…449 0680 GOTO → 8007
0x449…44f 0690 REM C
0x44f…45a 0700 LET var(X%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x45a…48a 0720 PRINT »%%% ERROR ON OPENING , ERRCODE =« SEMI = → b7f270052020252525f3
0x48a…495 0730 LET var(X%) COMMA = ( 2 17 5 ) var(FNC%) EOS
0x495…4c3 0740 INPUT »*** WILL YOU TRY AGAIN ? (Y/N) : « COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x4c3…4d3 0750 IF ELEMENT var(W$) ( 1 1 ) [] »Y« EQ COMMA 0 48 5
0x4d3…4d8 0760 1401f102f3
0x4d8…4e5 0770 LET var(X%) COMMA -1 EOS
0x4e5…4eb 0780 REM C
0x4eb…4ee 0790 TRAP ERR OFF
0x4ee…4f1 0800 RETURN var(X%) EOS
0x4f1…4f2 0910 FNEND
0x4f2…509 1000 REM ** MAIN PROGRAM **
0x509…514 1010 LET var(X%) COMMA = ( 1 4 25 ) var(FNC%) EOS
0x514…530 1020 PRINT »*** P R I N T ***« EOS
0x530…536 1030 LET var(X%) COMMA = var(FNA%) EOS
0x536…53e 1040 IF var(X%) 0 ?< COMMA 0 var(B0x60) 25
0x53e…543 1042 LET var(G%) COMMA 1 EOS
0x543…546 1050 GOSUB 0 48
0x546…54a 1090 RESTORE 1# EOS
0x54a…54e 1092 RESTORE 2# EOS
0x54e…559 1100 PRINT 1# SEMI ELEMENT var(H$) ( 1 ) [] EOS
0x559…564 1110 PRINT 1# SEMI ELEMENT var(H$) ( 2 ) [] EOS
0x564…56d 1120 LET var(B%) COMMA var(N%) var(N0%) SUB2 var(N1%) SUB2 EOS
0x56d…572 1122 LET var(F%) COMMA 2 EOS
0x572…578 1200 REM C
0x578…57e 1210 195103f14ff3
0x57e…589 1220 PRINT 1# SEMI ELEMENT var(H$) ( var(I%) ) [] EOS
0x589…58c 1230 1a51f3
0x58c…593 1240 IF var(G%) 2 EQ COMMA 34 EOS
0x593…5d2 1250 PRINT 1# SEMI » PT.ID THEM.CODE X Y Z « EOS
0x5d2…613 1251 PRINT 1# SEMI » =========================================================« EOS
0x613…61c 1253 PRINT 1# SEMI » « EOS
0x61c…61d 1260 DOEND
0x61d…623 1306 195201f14ef3
0x623…629 1310 LINPUT 2# SEMI var(R$) EOS
0x629…62d 1311 TRAP 0 1600
0x62d…63c 1315 IF ELEMENT var(R$) ( 1 1 ) [] »*« EQ COMMA 34 EOS
0x63c…642 1316 PRINT 1# SEMI var(R$) EOS
0x642…645 1317 GOTO 6 19
0x645…646 1318 DOEND
0x646…64d 1320 IF var(G%) 2 EQ COMMA 34 EOS
0x64d…650 1330 GOSUB 0 32
0x650…662 1340 PRINT 1# SEMI var(P$) SEMI ELEMENT var(R$) ( var(R2%) = ( var(R$) ) LEN ) [] EOS
0x662…663 1362 DOEND
0x663…66e 1365 IF var(G%) 1 EQ COMMA 15 1# SEMI var(R$) EOS
0x66e…671 1370 1a52f3
0x671…679 1420 195101f14c50e3f3
0x679…681 1430 PRINT 1# SEMI » « EOS
0x681…684 1450 1a51f3
0x684…689 1490 LET var(F%) COMMA 0 EOS
0x689…68c 1500 GOTO 0 18
0x68c…692 1600 REM C
0x692…69b 1612 LET var(B%) COMMA var(N%) var(J%) SUB2 var(F%) SUB2 EOS
0x69b…6a1 1620 195101f14cf3
0x6a1…6a9 1630 PRINT 1# SEMI » « EOS
0x6a9…6ac 1650 1a51f3
0x6ac…6af 1691 2001f3
0x6af…6b5 1960 REM C
0x6b5…6b7 1971 PRINT EOS
0x6b7…6d2 1980 PRINT = ( 20 ) → b5f270112a2a2a205020522049204e2054202a2a2af3
0x6d2…6ed 1986 PRINT = ( 20 ) → b5f270112a2a2a20202045204e20442020202a2a2af3
0x6ed…6f2 1988 1401f102f3
0x6f2…6f3 1990 END
0x6f3…703 2000 REM ** EFELT **
0x703…712 2010 LET var(D%) COMMA = ( ELEMENT var(R$) ( 1 6 ) [] ) VAL EOS
0x712…725 2012 LET var(D%) COMMA var(D%) = ( var(D%) %100 DIV ) → a16f6400e4e3f3
0x725…73a 2020 LET var(R1%) COMMA 24 COMMA var(R2%) COMMA 63 COMMA var(P1%) COMMA 1 COMMA var(P2%) COMMA 19 COMMA var(P3%) COMMA 57 EOS
0x73a…750 2030 IF var(D%) 14 EQ COMMA 27 var(R1%) COMMA 15 COMMA var(R2%) COMMA 41 COMMA var(P1%) COMMA 10 COMMA var(P3%) COMMA 44 EOS
0x750…75e 2040 IF var(D%) 15 EQ COMMA 27 var(R2%) COMMA 50 COMMA var(P3%) COMMA 44 EOS
0x75e…774 2050 IF var(D%) 18 EQ COMMA 27 var(R1%) COMMA 15 COMMA var(R2%) COMMA 28 COMMA var(P1%) COMMA 10 COMMA var(P2%) COMMA 45 EOS
0x774…782 2060 IF var(D%) 19 EQ COMMA 27 var(R2%) COMMA 37 COMMA var(P2%) COMMA 45 EOS
0x782…794 2070 IF var(D%) 30 EQ COMMA 27 var(R1%) COMMA 15 COMMA var(R2%) COMMA 54 COMMA var(P1%) COMMA 10 EOS
0x794…7d3 2074 LET var(P$) COMMA » « EOS
0x7d3…7e4 2140 LET ELEMENT var(P$) ( var(P1%) 18 ) [] COMMA ELEMENT var(R$) ( 7 var(R1%) ) [] EOS
0x7e4…7f7 2150 LET ELEMENT var(P$) ( var(P2%) var(P3%) ) [] COMMA ELEMENT var(R$) ( var(R1%) 1 PLUS var(R2%) ) [] EOS
0x7f7…804 2160 LET ELEMENT var(R$) ( 1 var(R2%) ) [] COMMA » « EOS
0x804…806 2210 RETURN EOS
0x806…818 3000 REM ** HEADING **
0x818…823 3030 LET var(X%) COMMA = ( 4 12 5 ) var(FNC%) EOS
0x823…856 3055 PRINT »*** GIVE PAGE-HEADING , TYPE $ TO TERMINATE ***« EOS
0x856…85c 3060 194f01f10af3
0x85c…867 3076 INPUT »« COMMA ELEMENT var(H$) ( var(N1%) ) [] EOS
0x867…87c 3080 IF ELEMENT var(H$) ( var(N1%) 1 1 ) [] »$« EQ COMMA 27 var(N1%) COMMA var(N1%) 10 PLUS EOS
0x87c…87e 3083 PRINT EOS
0x87e…881 3090 1a4ff3
0x881…888 3100 LET var(N1%) COMMA var(N1%) 1 SUB2 EOS
0x888…894 3120 IF var(N1%) 10 > COMMA 27 var(N1%) COMMA var(N1%) 11 SUB2 EOS
0x894…89a 3128 REM C
0x89a…89c 3130 PRINT EOS
0x89c…8d1 3132 PRINT = ( 5 ) → b5f2702a2a2a2a20474956452046494c45205459504520284e4f524d414c3d31202c20444154413d322920203a20f2f3
0x8d1…8dd 3140 INPUT »« COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x8dd…8e1 3160 TRAP ERR 3128
0x8e1…8f0 3170 LET var(G%) COMMA = ( ELEMENT var(W$) ( 1 1 ) [] ) VAL EOS
0x8f0…8f6 3228 REM C
0x8f6…8f8 3230 PRINT EOS
0x8f8…92d 3232 PRINT = ( 5 ) → b5f2702a2a2a2a2047495645204e4f2e204f46204c494e455320594f552057414e54205045522050414745203a20f2f3
0x92d…939 3240 INPUT »« COMMA ELEMENT var(W$) ( 1 3 ) [] EOS
0x939…93d 3260 TRAP ERR 3228
0x93d…94c 3270 LET var(N0%) COMMA = ( ELEMENT var(W$) ( 1 3 ) [] ) VAL EOS
0x94c…952 3274 REM C
0x952…954 3276 PRINT EOS
0x954…989 3280 PRINT = ( 5 ) → b5f2702a2a2a2a204749564520544f54414c204e4f2e204f46204c494e4553205045522050414745202020203a20f2f3
0x989…995 3290 INPUT »« COMMA ELEMENT var(W$) ( 1 3 ) [] EOS
0x995…999 3310 TRAP ERR 3274
0x999…9a8 3320 LET var(N%) COMMA = ( ELEMENT var(W$) ( 1 3 ) [] ) VAL EOS
0x9a8…9b2 3330 IF var(N%) var(N0%) var(N1%) PLUS → ebf1007033
0x9b2…9b4 3332 PRINT EOS
0x9b4…9ec 3340 PRINT = ( 5 ) → b5f2702e25252520205041474520464f524d4154204f5554204f46204f52444552202c2054525920414741494e2020252525f3
0x9ec…9ee 3345 PRINT EOS
0x9ee…9f1 3350 GOTO 40 50
0x9f1…9f7 3370 REM C
0x9f7…9fa 3380 TRAP ERR OFF
0x9fa…9fc 3390 RETURN EOS