|
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: 336 (0x150)
Notes: ZILOG_BASIC
Names: »AFSTAND.BP«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »AFSTAND.BP«
└─⟦5cd73ff62⟧ Bits:30006813 8" ZilogMCZ floppy NThun_0015 (OPERATOR'S SYSTEM TEXT IN ENGLISH gp)
└─ ⟦this⟧ »AFSTAND.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »AFSTAND.BP«
0x000…014 BasicHead {variables=0x0020, stms=0x005c, f2=0x00c0, f3=0000000000000000000000000000}
0x014…034 [
0x014…034 [0x0]: VarDef {f0=0xdb00, f1=0x4f, f2=0x09} J 0x7
0x014…034 [0x1]: VarDef {f0=0x0000, f1=0x0f, f2=0x40} A$ 0x6
0x014…034 [0x2]: VarDef {f0=0x0020, f1=0x4f, f2=0x02} C 0x5
0x014…034 [0x3]: VarDef {f0=0x0025, f1=0x0f, f2=0x01} B 0x4
0x014…034 [0x4]: VarDef {f0=0x001d, f1=0x02, f2=0x17} X2 0x3
0x014…034 [0x5]: VarDef {f0=0x000d, f1=0x01, f2=0x17} X1 0x2
0x014…034 [0x6]: VarDef {f0=0x0015, f1=0x02, f2=0x18} Y2 0x1
0x014…034 [0x7]: VarDef {f0=0x0005, f1=0x01, f2=0x18} Y1 0x0
0x014…034 ]
0x034…038 Statement 00368 @0x14b
0x038…03c Statement 00352 @0x141
0x03c…040 Statement 00341 @0x13e
0x040…044 Statement 00339 @0x13c
0x044…048 Statement 00338 @0x11b
0x048…04c Statement 00336 @0x109
0x04c…050 Statement 00320 @0x107
0x050…054 Statement 00304 @0xf0
0x054…058 Statement 00288 @0xee
0x058…05c Statement 00272 @0xeb
0x05c…060 Statement 00256 @0xde
0x060…064 Statement 00144 @0xdc
0x064…068 Statement 00128 @0xd9
0x068…06c Statement 00112 @0xcc
0x06c…070 Statement 00096 @0xca
0x070…074 Statement 00080 @0xc7
0x074…078 Statement 00064 @0xba
0x078…07c Statement 00048 @0xb8
0x07c…080 Statement 00032 @0xb5
0x080…084 Statement 00016 @0xa8
0x084…088 Statement 00009 @0x9a
0x088…08c Statement 00008 @0x98
0x08c…090 Statement 00007 @0x90
0x090…098 0007 DIM ELEMENT var(A$) ( 1 ) [] EOS
0x098…09a 0008 PRINT EOS
0x09a…0a8 0009 PRINT »NY AFSTAND« EOS
0x0a8…0b5 0010 PRINT »INDS[T Y1« EOS
0x0b5…0b8 0020 INPUT var(Y1) EOS
0x0b8…0ba 0030 PRINT EOS
0x0ba…0c7 0040 PRINT »INDS[T X1« EOS
0x0c7…0ca 0050 INPUT var(X1) EOS
0x0ca…0cc 0060 PRINT EOS
0x0cc…0d9 0070 PRINT »INDS[T Y2« EOS
0x0d9…0dc 0080 INPUT var(Y2) EOS
0x0dc…0de 0090 PRINT EOS
0x0de…0eb 0100 PRINT »INDS[T X2« EOS
0x0eb…0ee 0110 INPUT var(X2) EOS
0x0ee…0f0 0120 PRINT EOS
0x0f0…107 0130 LET var(B) COMMA = ( ( var(Y2) var(Y1) SUB2 ) 2 POW ( var(X2) var(X1) SUB2 ) 2 POW PLUS ) SQR EOS
0x107…109 0140 PRINT EOS
0x109…11b 0150 PRINT »AFSTANDEN = « COMMA var(B) EOS
0x11b…13c 0152 PRINT »OENSKES FLERE BEREGNINGER J/N« EOS
0x13c…13e 0153 PRINT EOS
0x13e…141 0155 INPUT var(A$) EOS
0x141…14b 0160 IF var(A$) »J« EQ COMMA 0 8 0
0x14b…150 0170 CHAIN »S« EOS