|
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: 1106 (0x452)
Notes: ZILOG_BASIC
Names: »VEJPLAN.BP«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »VEJPLAN.BP«
└─⟦5cd73ff62⟧ Bits:30006813 8" ZilogMCZ floppy NThun_0015 (OPERATOR'S SYSTEM TEXT IN ENGLISH gp)
└─ ⟦this⟧ »VEJPLAN.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »VEJPLAN.BP«
0x000…014 BasicHead {variables=0x0058, stms=0x00ec, f2=0x02fa, f3=0000000000000000000000000000}
0x014…06c [
0x014…06c [0x00]: VarDef {f0=0x0000, f1=0x0f, f2=0x40} A$ 0x15
0x014…06c [0x01]: VarDef {f0=0x0b00, f1=0x0f, f2=0x28} I% 0x14
0x014…06c [0x02]: VarDef {f0=0x0005, f1=0x4f, f2=0x45} F$ 0x13
0x014…06c [0x03]: VarDef {f0=0x0000, f1=0x4f, f2=0x05} F 0x12
0x014…06c [0x04]: VarDef {f0=0xffff, f1=0x4f, f2=0x0f} P 0x11
0x014…06c [0x05]: VarDef {f0=0x0000, f1=0x4f, f2=0x14} U 0x10
0x014…06c [0x06]: VarDef {f0=0x0000, f1=0x41, f2=0x40} A1$ 0xf
0x014…06c [0x07]: VarDef {f0=0x0065, f1=0x04, f2=0x17} X4 0xe
0x014…06c [0x08]: VarDef {f0=0x005d, f1=0x04, f2=0x18} Y4 0xd
0x014…06c [0x09]: VarDef {f0=0x0055, f1=0x03, f2=0x17} X3 0xc
0x014…06c [0x0a]: VarDef {f0=0x004d, f1=0x03, f2=0x18} Y3 0xb
0x014…06c [0x0b]: VarDef {f0=0x0045, f1=0x0f, f2=0x02} C 0xa
0x014…06c [0x0c]: VarDef {f0=0x003d, f1=0x0f, f2=0x01} B 0x9
0x014…06c [0x0d]: VarDef {f0=0xffff, f1=0x4f, f2=0x06} G 0x8
0x014…06c [0x0e]: VarDef {f0=0x0035, f1=0x02, f2=0x17} X2 0x7
0x014…06c [0x0f]: VarDef {f0=0x002d, f1=0x02, f2=0x18} Y2 0x6
0x014…06c [0x10]: VarDef {f0=0x0025, f1=0x01, f2=0x17} X1 0x5
0x014…06c [0x11]: VarDef {f0=0x001d, f1=0x01, f2=0x18} Y1 0x4
0x014…06c [0x12]: VarDef {f0=0x0015, f1=0x0f, f2=0x04} E 0x3
0x014…06c [0x13]: VarDef {f0=0x000d, f1=0x0f, f2=0x00} A 0x2
0x014…06c [0x14]: VarDef {f0=0x0005, f1=0x0f, f2=0x03} D 0x1
0x014…06c [0x15]: VarDef {f0=0xffff, f1=0x4f, f2=0x08} I 0x0
0x014…06c ]
0x06c…070 Statement 01360 @0x451
0x070…074 Statement 01334 @0x447
0x074…078 Statement 01332 @0x444
0x078…07c Statement 01330 @0x41f
0x07c…080 Statement 00896 @0x3fa
0x080…084 Statement 00880 @0x3d5
0x084…088 Statement 00864 @0x3c8
0x088…08c Statement 00848 @0x3bb
0x08c…090 Statement 00832 @0x3ae
0x090…094 Statement 00816 @0x3a1
0x094…098 Statement 00800 @0x392
0x098…09c Statement 00768 @0x36d
0x09c…0a0 Statement 00656 @0x360
0x0a0…0a4 Statement 00640 @0x353
0x0a4…0a8 Statement 00613 @0x341
0x0a8…0ac Statement 00608 @0x32e
0x0ac…0b0 Statement 00576 @0x309
0x0b0…0b4 Statement 00560 @0x2e5
0x0b4…0b8 Statement 00544 @0x2cf
0x0b8…0bc Statement 00529 @0x2cd
0x0bc…0c0 Statement 00528 @0x2cb
0x0c0…0c4 Statement 00512 @0x2c6
0x0c4…0c8 Statement 00401 @0x2c4
0x0c8…0cc Statement 00400 @0x2c1
0x0cc…0d0 Statement 00385 @0x2bf
0x0d0…0d4 Statement 00384 @0x29a
0x0d4…0d8 Statement 00369 @0x298
0x0d8…0dc Statement 00368 @0x295
0x0dc…0e0 Statement 00353 @0x293
0x0e0…0e4 Statement 00352 @0x26e
0x0e4…0e8 Statement 00336 @0x269
0x0e8…0ec Statement 00320 @0x245
0x0ec…0f0 Statement 00305 @0x243
0x0f0…0f4 Statement 00304 @0x240
0x0f4…0f8 Statement 00289 @0x23e
0x0f8…0fc Statement 00288 @0x21a
0x0fc…100 Statement 00273 @0x218
0x100…104 Statement 00272 @0x215
0x104…108 Statement 00257 @0x213
0x108…10c Statement 00256 @0x1ef
0x10c…110 Statement 00152 @0x1ed
0x110…114 Statement 00151 @0x1ea
0x114…118 Statement 00150 @0x1e8
0x118…11c Statement 00149 @0x1ce
0x11c…120 Statement 00145 @0x1cc
0x120…124 Statement 00144 @0x1c9
0x124…128 Statement 00113 @0x1c7
0x128…12c Statement 00112 @0x1ac
0x12c…130 Statement 00069 @0x1a3
0x130…134 Statement 00068 @0x1a0
0x134…138 Statement 00067 @0x192
0x138…13c Statement 00066 @0x190
0x13c…140 Statement 00065 @0x18e
0x140…144 Statement 00064 @0x17b
0x144…148 Statement 00048 @0x178
0x148…14c Statement 00033 @0x176
0x14c…150 Statement 00032 @0x170
0x150…154 Statement 00016 @0x160
0x154…158 Statement 00005 @0x158
0x158…160 0005 DIM ELEMENT var(A$) ( 1 ) [] EOS
0x160…170 0010 REM "VEJPLANER"
0x170…176 0020 195501f10af3
0x176…178 0021 PRINT EOS
0x178…17b 0030 1a55f3
0x17b…18e 0040 PRINT = ( 12 ) → b5f2700956454a504c414e4552f3
0x18e…190 0041 PRINT EOS
0x190…192 0042 PRINT EOS
0x192…1a0 0043 PRINT »PLANNUMMER« EOS
0x1a0…1a3 0044 INPUT var(D) EOS
0x1a3…1ac 0045 PRINT = ( 15 ) → b5f242f3
0x1ac…1c7 0070 PRINT »HVILKEN LAENGDE OENSKES« EOS
0x1c7…1c9 0071 PRINT EOS
0x1c9…1cc 0090 INPUT var(A) EOS
0x1cc…1ce 0091 PRINT EOS
0x1ce…1e8 0095 PRINT »HVILKEN HOEJDE OENSKES« EOS
0x1e8…1ea 0096 PRINT EOS
0x1ea…1ed 0097 INPUT var(E) EOS
0x1ed…1ef 0098 PRINT EOS
0x1ef…213 0100 PRINT »INDSET Y NEDERSTE HOEJRE HJOERNE« EOS
0x213…215 0101 PRINT EOS
0x215…218 0110 INPUT var(Y1) EOS
0x218…21a 0111 PRINT EOS
0x21a…23e 0120 PRINT »INDSET X NEDERSTE HOEJRE HJOERNE« EOS
0x23e…240 0121 PRINT EOS
0x240…243 0130 INPUT var(X1) EOS
0x243…245 0131 PRINT EOS
0x245…269 0140 PRINT SEMI »Y-KOORDINAT« SEMI = ( 20 ) → b5f2700b582d4b4f4f5244494e4154f3
0x269…26e 0150 PRINT var(Y1) COMMA var(X1) EOS
0x26e…293 0160 PRINT »INDSET Y NEDERSTE VENSTRE HJOERNE« EOS
0x293…295 0161 PRINT EOS
0x295…298 0170 INPUT var(Y2) EOS
0x298…29a 0171 PRINT EOS
0x29a…2bf 0180 PRINT »INDSET X NEDERSTE VENSTRE HJOERNE« EOS
0x2bf…2c1 0181 PRINT EOS
0x2c1…2c4 0190 INPUT var(X2) EOS
0x2c4…2c6 0191 PRINT EOS
0x2c6…2cb 0200 PRINT var(Y2) COMMA var(X2) EOS
0x2cb…2cd 0210 PRINT EOS
0x2cd…2cf 0211 PRINT EOS
0x2cf…2e5 0220 PRINT = ( 12 ) → b5f2700c4e594520484a4f45524e4552f3
0x2e5…309 0230 PRINT SEMI »Y-KOORDINAT« SEMI = ( 20 ) → b5f2700b582d4b4f4f5244494e4154f3
0x309…32e 0240 PRINT USING »######.DD« COMMA var(Y1) SEMI = ( 20 ) → b5f27570092323232323232e4444f146f3
0x32e…341 0260 LET var(B) COMMA = ( ( var(Y2) var(Y1) SUB2 ) ( var(X2) var(X1) SUB2 ) DIV ) → aaf3
0x341…353 0265 IF var(X1) var(X2) > COMMA 27 var(B) COMMA var(B) = ( 1 ) → aa04e4e2f3
0x353…360 0280 LET var(Y2) COMMA var(Y1) var(A) = ( var(B) ) → a9e4e2f3
0x360…36d 0290 LET var(X2) COMMA var(X1) var(A) = ( var(B) ) → a8e4e2f3
0x36d…392 0300 PRINT USING »######.DD« COMMA var(Y2) SEMI = ( 20 ) → b5f27570092323232323232e4444f148f3
0x392…3a1 0320 LET var(C) COMMA var(B) 1.5708 PLUS EOS
0x3a1…3ae 0330 LET var(Y3) COMMA var(Y2) var(E) = ( var(C) ) → a9e4e2f3
0x3ae…3bb 0340 LET var(X3) COMMA var(X2) var(E) = ( var(C) ) → a8e4e2f3
0x3bb…3c8 0350 LET var(Y4) COMMA var(Y1) var(E) = ( var(C) ) → a9e4e2f3
0x3c8…3d5 0360 LET var(X4) COMMA var(X1) var(E) = ( var(C) ) → a8e4e2f3
0x3d5…3fa 0370 PRINT USING »######.DD« COMMA var(Y3) SEMI = ( 20 ) → b5f27570092323232323232e4444f14df3
0x3fa…41f 0380 PRINT USING »######.DD« COMMA var(Y4) SEMI = ( 20 ) → b5f27570092323232323232e4444f14ff3
0x41f…444 0532 PRINT »OENSKES FLERE PLANER BEREGNET J/N« EOS
0x444…447 0534 INPUT var(A$) EOS
0x447…451 0536 IF var(A$) »J« EQ COMMA 0 var(I) 0
0x451…452 0550 END