|
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: 2431 (0x97f)
Notes: ZILOG_BASIC
Names: »PRINT.MAP.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »PRINT.MAP.BP«
0x000…014 BasicHead {variables=0x0060, stms=0x022c, f2=0x06df, f3=0000000000000000000000000000}
0x014…074 [
0x014…074 [0x00]: VarDef {f0=0x1270, f1=0x43, f2=0x2f} P3% 0x17
0x014…074 [0x01]: VarDef {f0=0x1260, f1=0x42, f2=0x2f} P2% 0x16
0x014…074 [0x02]: VarDef {f0=0x1250, f1=0x41, f2=0x2f} P1% 0x15
0x014…074 [0x03]: VarDef {f0=0x1240, f1=0x41, f2=0x31} R1% 0x14
0x014…074 [0x04]: VarDef {f0=0x1200, f1=0x4f, f2=0x23} D% 0x13
0x014…074 [0x05]: VarDef {f0=0x0990, f1=0x42, f2=0x31} R2% 0x12
0x014…074 [0x06]: VarDef {f0=0x0930, f1=0x4f, f2=0x29} J% 0x11
0x014…074 [0x07]: VarDef {f0=0x0860, f1=0x4f, f2=0x28} I% 0x10
0x014…074 [0x08]: VarDef {f0=0x0820, f1=0x4f, f2=0x25} F% 0xf
0x014…074 [0x09]: VarDef {f0=0x0800, f1=0x41, f2=0x2d} N1% 0xe
0x014…074 [0x0a]: VarDef {f0=0x0790, f1=0x40, f2=0x2d} N0% 0xd
0x014…074 [0x0b]: VarDef {f0=0x0780, f1=0x4f, f2=0x2d} N% 0xc
0x014…074 [0x0c]: VarDef {f0=0x0770, f1=0x4f, f2=0x21} B% 0xb
0x014…074 [0x0d]: VarDef {f0=0x0700, f1=0x4f, f2=0x26} G% 0xa
0x014…074 [0x0e]: VarDef {f0=0x0320, f1=0x4f, f2=0x37} X% 0x9
0x014…074 [0x0f]: VarDef {f0=0x0270, f1=0x5f, f2=0x20} FNA% 0x8
0x014…074 [0x10]: VarDef {f0=0x0170, f1=0x43, f2=0x22} C3% 0x7
0x014…074 [0x11]: VarDef {f0=0x0160, f1=0x42, f2=0x22} C2% 0x6
0x014…074 [0x12]: VarDef {f0=0x0150, f1=0x41, f2=0x22} C1% 0x5
0x014…074 [0x13]: VarDef {f0=0x0140, f1=0x5f, f2=0x22} FNC% 0x4
0x014…074 [0x14]: VarDef {f0=0x0120, f1=0x4f, f2=0x47} H$ 0x3
0x014…074 [0x15]: VarDef {f0=0x0110, f1=0x4f, f2=0x56} W$ 0x2
0x014…074 [0x16]: VarDef {f0=0x0102, f1=0x4f, f2=0x51} R$ 0x1
0x014…074 [0x17]: VarDef {f0=0x0100, f1=0x4f, f2=0x4f} P$ 0x0
0x014…074 ]
0x074…078 Statement 13200 @0x97d
0x078…07c Statement 13184 @0x97a
0x07c…080 Statement 13168 @0x974
0x080…084 Statement 13136 @0x971
0x084…088 Statement 13125 @0x96f
0x088…08c Statement 13120 @0x937
0x08c…090 Statement 13106 @0x935
0x090…094 Statement 13104 @0x92b
0x094…098 Statement 13088 @0x91c
0x098…09c Statement 13072 @0x918
0x09c…0a0 Statement 12944 @0x90c
0x0a0…0a4 Statement 12928 @0x8d7
0x0a4…0a8 Statement 12918 @0x8d5
0x0a8…0ac Statement 12916 @0x8cf
0x0ac…0b0 Statement 12912 @0x8c0
0x0b0…0b4 Statement 12896 @0x8bc
0x0b4…0b8 Statement 12864 @0x8b0
0x0b8…0bc Statement 12850 @0x87b
0x0bc…0c0 Statement 12848 @0x879
0x0c0…0c4 Statement 12840 @0x873
0x0c4…0c8 Statement 12656 @0x864
0x0c8…0cc Statement 12640 @0x860
0x0cc…0d0 Statement 12608 @0x854
0x0d0…0d4 Statement 12594 @0x81f
0x0d4…0d8 Statement 12592 @0x81d
0x0d8…0dc Statement 12584 @0x817
0x0dc…0e0 Statement 12576 @0x80b
0x0e0…0e4 Statement 12544 @0x804
0x0e4…0e8 Statement 12432 @0x801
0x0e8…0ec Statement 12419 @0x7ff
0x0ec…0f0 Statement 12416 @0x7ea
0x0f0…0f4 Statement 12406 @0x7df
0x0f4…0f8 Statement 12384 @0x7d9
0x0f8…0fc Statement 12373 @0x7a6
0x0fc…100 Statement 12336 @0x79b
0x100…104 Statement 12288 @0x789
0x104…108 Statement 08720 @0x787
0x108…10c Statement 08544 @0x77a
0x10c…110 Statement 08528 @0x767
0x110…114 Statement 08512 @0x756
0x114…118 Statement 08308 @0x717
0x118…11c Statement 08304 @0x705
0x11c…120 Statement 08288 @0x6f7
0x120…124 Statement 08272 @0x6e1
0x124…128 Statement 08256 @0x6d3
0x128…12c Statement 08240 @0x6bd
0x12c…130 Statement 08224 @0x6a8
0x130…134 Statement 08210 @0x695
0x134…138 Statement 08208 @0x686
0x138…13c Statement 08192 @0x676
0x13c…140 Statement 06544 @0x675
0x140…144 Statement 06536 @0x670
0x144…148 Statement 06534 @0x655
0x148…14c Statement 06528 @0x63a
0x14c…150 Statement 06513 @0x638
0x150…154 Statement 06496 @0x632
0x154…158 Statement 05777 @0x62f
0x158…15c Statement 05712 @0x62c
0x15c…160 Statement 05680 @0x624
0x160…164 Statement 05664 @0x61e
0x164…168 Statement 05650 @0x615
0x168…16c Statement 05632 @0x60f
0x16c…170 Statement 05376 @0x60c
0x170…174 Statement 05264 @0x607
0x174…178 Statement 05200 @0x604
0x178…17c Statement 05168 @0x5fc
0x17c…180 Statement 05152 @0x5f4
0x180…184 Statement 04976 @0x5f1
0x184…188 Statement 04960 @0x5e1
0x188…18c Statement 04944 @0x5e0
0x18c…190 Statement 04928 @0x5d9
0x190…194 Statement 04912 @0x5d6
0x194…198 Statement 04896 @0x5cf
0x198…19c Statement 04880 @0x5c9
0x19c…1a0 Statement 04870 @0x5c3
0x1a0…1a4 Statement 04704 @0x5c2
0x1a4…1a8 Statement 04691 @0x5b9
0x1a8…1ac Statement 04688 @0x57a
0x1ac…1b0 Statement 04672 @0x573
0x1b0…1b4 Statement 04656 @0x570
0x1b4…1b8 Statement 04640 @0x565
0x1b8…1bc Statement 04624 @0x55f
0x1bc…1c0 Statement 04608 @0x559
0x1c0…1c4 Statement 04400 @0x555
0x1c4…1c8 Statement 04386 @0x550
0x1c8…1cc Statement 04384 @0x547
0x1cc…1d0 Statement 04368 @0x53c
0x1d0…1d4 Statement 04352 @0x531
0x1d4…1d8 Statement 04242 @0x52d
0x1d8…1dc Statement 04240 @0x529
0x1dc…1e0 Statement 04176 @0x526
0x1e0…1e4 Statement 04162 @0x521
0x1e4…1e8 Statement 04160 @0x519
0x1e8…1ec Statement 04144 @0x513
0x1ec…1f0 Statement 04128 @0x4f7
0x1f0…1f4 Statement 04112 @0x4ec
0x1f4…1f8 Statement 04096 @0x4d5
0x1f8…1fc Statement 02320 @0x4d4
0x1fc…200 Statement 02048 @0x4d1
0x200…204 Statement 01936 @0x4ce
0x204…208 Statement 01920 @0x4c8
0x208…20c Statement 01904 @0x4bb
0x20c…210 Statement 01888 @0x4b6
0x210…214 Statement 01872 @0x4a6
0x214…218 Statement 01856 @0x478
0x218…21c Statement 01840 @0x46d
0x21c…220 Statement 01824 @0x43d
0x220…224 Statement 01792 @0x432
0x224…228 Statement 01680 @0x42c
0x228…22c Statement 01664 @0x429
0x22c…230 Statement 01648 @0x419
0x230…234 Statement 01632 @0x3f8
0x234…238 Statement 01616 @0x3ed
0x238…23c Statement 01600 @0x3e7
0x23c…240 Statement 01584 @0x3d8
0x240…244 Statement 01568 @0x3d5
0x244…248 Statement 01552 @0x3ae
0x248…24c Statement 01536 @0x3a3
0x24c…250 Statement 01432 @0x3a2
0x250…254 Statement 01430 @0x392
0x254…258 Statement 01428 @0x38f
0x258…25c Statement 01426 @0x388
0x25c…260 Statement 01424 @0x377
0x260…264 Statement 01408 @0x374
0x264…268 Statement 01392 @0x34d
0x268…26c Statement 01376 @0x342
0x26c…270 Statement 01360 @0x33e
0x270…274 Statement 01344 @0x339
0x274…278 Statement 01328 @0x333
0x278…27c Statement 01282 @0x330
0x27c…280 Statement 01280 @0x321
0x280…284 Statement 01152 @0x320
0x284…288 Statement 01136 @0x31d
0x288…28c Statement 01088 @0x302
0x28c…290 Statement 01072 @0x2e6
0x290…294 Statement 01056 @0x2d6
0x294…298 Statement 01040 @0x2d0
0x298…29c Statement 01024 @0x2bf
0x29c…2a0 Statement 00080 @0x2a0
0x2a0…2bf 0050 DIM ELEMENT var(P$) ( 57 ) [] ELEMENT var(R$) ( %150 ) [] ELEMENT var(W$) ( 15 ) [] ELEMENT var(H$) ( 10 %80 ) [] EOS
0x2bf…2d0 0400 REM ** OUTSCR **
0x2d0…2d6 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x2d6…2e6 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x2e6…302 0430 PRINT = ( 27 ) → af700146e2f271731f47e274aff271731f48e274aff2f3
0x302…31d 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e0046e374afe2f2f3
0x31d…320 0470 RETURN 0 EOS
0x320…321 0480 FNEND
0x321…330 0500 REM ** FIOP **
0x330…333 0502 DEF var(FNA%) EOS
0x333…339 0530 REM C
0x339…33e 0540 1401f102f3
0x33e…342 0550 TRAP ERR 0690
0x342…34d 0560 LET var(X%) COMMA = ( 4 7 5 ) var(FNC%) EOS
0x34d…374 0570 INPUT »*** GIVE DESTINATION-FILENAME : « COMMA var(W$) EOS
0x374…377 0580 1401f3
0x377…388 0590 1601f24370073b4143433d494ee2f14af3
0x388…38f 0592 IF var(X%) 2 EQ COMMA 34 EOS
0x38f…392 0594 1401f3
0x392…3a2 0596 1601f24370083b4143433d4e4557e2f3
0x3a2…3a3 0598 DOEND
0x3a3…3ae 0600 LET var(X%) COMMA = ( 4 8 5 ) var(FNC%) EOS
0x3ae…3d5 0610 INPUT »*** GIVE SOURCE-FILENAME : « COMMA var(W$) EOS
0x3d5…3d8 0620 1402f3
0x3d8…3e7 0630 1602f24370073b4143433d494ee2f3
0x3e7…3ed 0640 REM C
0x3ed…3f8 0650 LET var(X%) COMMA = ( 2 10 10 ) var(FNC%) EOS
0x3f8…419 0660 INPUT »*** O K ? (Y/N) : « COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x419…429 0670 IF ELEMENT var(W$) ( 1 1 ) [] »Y« <> COMMA 0 48 5
0x429…42c 0680 GOTO → 8007
0x42c…432 0690 REM C
0x432…43d 0700 LET var(X%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x43d…46d 0720 PRINT »%%% ERROR ON OPENING , ERRCODE =« SEMI = → b7f270052020252525f3
0x46d…478 0730 LET var(X%) COMMA = ( 2 17 5 ) var(FNC%) EOS
0x478…4a6 0740 INPUT »*** WILL YOU TRY AGAIN ? (Y/N) : « COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x4a6…4b6 0750 IF ELEMENT var(W$) ( 1 1 ) [] »Y« EQ COMMA 0 48 5
0x4b6…4bb 0760 1401f102f3
0x4bb…4c8 0770 LET var(X%) COMMA -1 EOS
0x4c8…4ce 0780 REM C
0x4ce…4d1 0790 TRAP ERR OFF
0x4d1…4d4 0800 RETURN var(X%) EOS
0x4d4…4d5 0910 FNEND
0x4d5…4ec 1000 REM ** MAIN PROGRAM **
0x4ec…4f7 1010 LET var(X%) COMMA = ( 1 4 25 ) var(FNC%) EOS
0x4f7…513 1020 PRINT »*** P R I N T ***« EOS
0x513…519 1030 LET var(X%) COMMA = var(FNA%) EOS
0x519…521 1040 IF var(X%) 0 ?< COMMA 0 var(B0x60) 25
0x521…526 1042 LET var(G%) COMMA 1 EOS
0x526…529 1050 GOSUB 0 48
0x529…52d 1090 RESTORE 1# EOS
0x52d…531 1092 RESTORE 2# EOS
0x531…53c 1100 PRINT 1# SEMI ELEMENT var(H$) ( 1 ) [] EOS
0x53c…547 1110 PRINT 1# SEMI ELEMENT var(H$) ( 2 ) [] EOS
0x547…550 1120 LET var(B%) COMMA var(N%) var(N0%) SUB2 var(N1%) SUB2 EOS
0x550…555 1122 LET var(F%) COMMA 2 EOS
0x555…559 1130 TRAP ERR 1600
0x559…55f 1200 REM C
0x55f…565 1210 195103f14ff3
0x565…570 1220 PRINT 1# SEMI ELEMENT var(H$) ( var(I%) ) [] EOS
0x570…573 1230 1a51f3
0x573…57a 1240 IF var(G%) 2 EQ COMMA 34 EOS
0x57a…5b9 1250 PRINT 1# SEMI » PT.ID THEM.CODE X Y Z « EOS
0x5b9…5c2 1253 PRINT 1# SEMI » « EOS
0x5c2…5c3 1260 DOEND
0x5c3…5c9 1306 195201f14ef3
0x5c9…5cf 1310 LINPUT 2# SEMI var(R$) EOS
0x5cf…5d6 1320 IF var(G%) 2 EQ COMMA 34 EOS
0x5d6…5d9 1330 GOSUB 0 32
0x5d9…5e0 1340 PRINT 1# SEMI var(P$) SEMI EOS
0x5e0…5e1 1350 DOEND
0x5e1…5f1 1360 PRINT 1# SEMI ELEMENT var(R$) ( var(R2%) = ( var(R$) ) LEN ) [] EOS
0x5f1…5f4 1370 1a52f3
0x5f4…5fc 1420 195101f14c50e3f3
0x5fc…604 1430 PRINT 1# SEMI » « EOS
0x604…607 1450 1a51f3
0x607…60c 1490 LET var(F%) COMMA 0 EOS
0x60c…60f 1500 GOTO 0 18
0x60f…615 1600 REM C
0x615…61e 1612 LET var(B%) COMMA var(N%) var(J%) SUB2 var(F%) SUB2 EOS
0x61e…624 1620 195101f14cf3
0x624…62c 1630 PRINT 1# SEMI » « EOS
0x62c…62f 1650 1a51f3
0x62f…632 1691 2001f3
0x632…638 1960 REM C
0x638…63a 1971 PRINT EOS
0x63a…655 1980 PRINT = ( 20 ) → b5f270112a2a2a205020522049204e2054202a2a2af3
0x655…670 1986 PRINT = ( 20 ) → b5f270112a2a2a20202045204e20442020202a2a2af3
0x670…675 1988 1401f102f3
0x675…676 1990 END
0x676…686 2000 REM ** EFELT **
0x686…695 2010 LET var(D%) COMMA = ( ELEMENT var(R$) ( 1 6 ) [] ) VAL EOS
0x695…6a8 2012 LET var(D%) COMMA var(D%) = ( var(D%) %100 DIV ) → a16f6400e4e3f3
0x6a8…6bd 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
0x6bd…6d3 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
0x6d3…6e1 2040 IF var(D%) 15 EQ COMMA 27 var(R2%) COMMA 50 COMMA var(P3%) COMMA 44 EOS
0x6e1…6f7 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
0x6f7…705 2060 IF var(D%) 19 EQ COMMA 27 var(R2%) COMMA 37 COMMA var(P2%) COMMA 45 EOS
0x705…717 2070 IF var(D%) 30 EQ COMMA 27 var(R1%) COMMA 15 COMMA var(R2%) COMMA 54 COMMA var(P1%) COMMA 10 EOS
0x717…756 2074 LET var(P$) COMMA » « EOS
0x756…767 2140 LET ELEMENT var(P$) ( var(P1%) 18 ) [] COMMA ELEMENT var(R$) ( 7 var(R1%) ) [] EOS
0x767…77a 2150 LET ELEMENT var(P$) ( var(P2%) var(P3%) ) [] COMMA ELEMENT var(R$) ( var(R1%) 1 PLUS var(R2%) ) [] EOS
0x77a…787 2160 LET ELEMENT var(R$) ( 1 var(R2%) ) [] COMMA » « EOS
0x787…789 2210 RETURN EOS
0x789…79b 3000 REM ** HEADING **
0x79b…7a6 3030 LET var(X%) COMMA = ( 4 12 5 ) var(FNC%) EOS
0x7a6…7d9 3055 PRINT »*** GIVE PAGE-HEADING , TYPE $ TO TERMINATE ***« EOS
0x7d9…7df 3060 194f01f10af3
0x7df…7ea 3076 INPUT »« COMMA ELEMENT var(H$) ( var(N1%) ) [] EOS
0x7ea…7ff 3080 IF ELEMENT var(H$) ( var(N1%) 1 1 ) [] »$« EQ COMMA 27 var(N1%) COMMA var(N1%) 10 PLUS EOS
0x7ff…801 3083 PRINT EOS
0x801…804 3090 1a4ff3
0x804…80b 3100 LET var(N1%) COMMA var(N1%) 1 SUB2 EOS
0x80b…817 3120 IF var(N1%) 10 > COMMA 27 var(N1%) COMMA var(N1%) 11 SUB2 EOS
0x817…81d 3128 REM C
0x81d…81f 3130 PRINT EOS
0x81f…854 3132 PRINT = ( 5 ) → b5f2702a2a2a2a20474956452046494c45205459504520284e4f524d414c3d31202c20444154413d322920203a20f2f3
0x854…860 3140 INPUT »« COMMA ELEMENT var(W$) ( 1 1 ) [] EOS
0x860…864 3160 TRAP ERR 3128
0x864…873 3170 LET var(G%) COMMA = ( ELEMENT var(W$) ( 1 1 ) [] ) VAL EOS
0x873…879 3228 REM C
0x879…87b 3230 PRINT EOS
0x87b…8b0 3232 PRINT = ( 5 ) → b5f2702a2a2a2a2047495645204e4f2e204f46204c494e455320594f552057414e54205045522050414745203a20f2f3
0x8b0…8bc 3240 INPUT »« COMMA ELEMENT var(W$) ( 1 3 ) [] EOS
0x8bc…8c0 3260 TRAP ERR 3228
0x8c0…8cf 3270 LET var(N0%) COMMA = ( ELEMENT var(W$) ( 1 3 ) [] ) VAL EOS
0x8cf…8d5 3274 REM C
0x8d5…8d7 3276 PRINT EOS
0x8d7…90c 3280 PRINT = ( 5 ) → b5f2702a2a2a2a204749564520544f54414c204e4f2e204f46204c494e4553205045522050414745202020203a20f2f3
0x90c…918 3290 INPUT »« COMMA ELEMENT var(W$) ( 1 3 ) [] EOS
0x918…91c 3310 TRAP ERR 3274
0x91c…92b 3320 LET var(N%) COMMA = ( ELEMENT var(W$) ( 1 3 ) [] ) VAL EOS
0x92b…935 3330 IF var(N%) var(N0%) var(N1%) PLUS → ebf1007033
0x935…937 3332 PRINT EOS
0x937…96f 3340 PRINT = ( 5 ) → b5f2702e25252520205041474520464f524d4154204f5554204f46204f52444552202c2054525920414741494e2020252525f3
0x96f…971 3345 PRINT EOS
0x971…974 3350 GOTO 40 50
0x974…97a 3370 REM C
0x97a…97d 3380 TRAP ERR OFF
0x97d…97f 3390 RETURN EOS