3D
FILE INFORMATION
FILENAME(S): 3D
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-19 23:07:09
APPEARS ON: 1 disk(s)
FILE HASH
73c65b2e55dacd76aabae398de03bdd6e06c0658bcfa9d9a0adf56fd46ae01da
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPARTACO 6316004 | 3D | PRG | Bugjam - Argentina | 27 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 2A 20 |********.O....* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000050: 76 08 1E 00 8F 2A 20 45 4C 20 50 4C 4F 54 45 41 |v....* EL PLOTEA|
00000060: 44 4F 52 20 44 45 20 50 45 52 53 50 45 43 54 49 |DOR DE PERSPECTI|
00000070: 56 41 53 20 20 2A 00 9D 08 28 00 8F 2A 20 52 45 |VAS *...(..* RE|
00000080: 51 55 49 45 52 45 20 52 55 54 49 4E 41 53 20 44 |QUIERE RUTINAS D|
00000090: 45 20 50 4C 4F 54 45 4F 20 45 4E 20 2A 00 C4 08 |E PLOTEO EN *...|
000000A0: 32 00 8F 2A 20 20 20 20 20 20 20 4C 45 4E 47 55 |2..* LENGU|
000000B0: 41 4A 45 20 4D 41 51 55 49 4E 41 20 20 20 20 20 |AJE MAQUINA |
000000C0: 20 20 20 2A 00 EB 08 3C 00 8F 2A 20 20 20 20 20 | *...<..* |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 2A 00 12 09 46 00 | *...F.|
000000F0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 00 34 09 96 00 8F 20 49 4E 49 43 49 41 4C |**.4.... INICIAL|
00000120: 49 5A 41 43 49 4F 4E 20 44 45 20 56 41 52 49 41 |IZACION DE VARIA|
00000130: 42 4C 45 53 00 53 09 A0 00 48 49 B2 34 39 31 35 |BLES.S...HI.4915|
00000140: 32 3A 43 4F B2 34 39 31 37 33 3A 44 52 B2 34 39 |2:CO.49173:DR.49|
00000150: 31 35 35 00 7B 09 AA 00 4D 4F B2 34 39 31 36 31 |155.{...MO.49161|
00000160: 3A 50 52 B2 34 39 31 38 32 3A 44 4D B2 34 39 31 |:PR.49182:DM.491|
00000170: 36 37 3A 54 45 B2 34 39 31 37 39 00 90 09 B4 00 |67:TE.49179.....|
00000180: 43 44 24 B2 C7 28 31 37 29 3A 8D 20 35 30 30 30 |CD$..(17):. 5000|
00000190: 00 96 09 BE 00 3A 00 AB 09 C8 00 8B C2 28 48 49 |.....:.......(HI|
000001A0: AA 31 29 B2 31 39 34 A7 32 34 30 00 BC 09 D2 00 |.1).194.240.....|
000001B0: 93 22 48 49 52 45 53 22 2C 38 2C 31 00 C2 09 DC |."HIRES",8,1....|
000001C0: 00 3A 00 D3 09 E6 00 8F 20 50 41 52 41 4D 45 54 |.:...... PARAMET|
000001D0: 52 4F 53 00 ED 09 F0 00 4D B2 32 30 3A 8F 20 44 |ROS.....M.20:. D|
000001E0: 49 4D 45 4E 53 49 4F 4E 20 44 45 20 58 00 07 0A |IMENSION DE X...|
000001F0: FA 00 4E B2 31 36 3A 8F 20 44 49 4D 45 4E 53 49 |..N.16:. DIMENSI|
00000200: 4F 4E 20 44 45 20 59 00 1A 0A 04 01 86 5A 28 4D |ON DE Y......Z(M|
00000210: 2C 4E 29 2C 52 28 4D 2C 4E 29 00 31 0A 0E 01 86 |,N),R(M,N).1....|
00000220: 58 48 28 4D 29 2C 59 48 28 4E 29 2C 59 56 28 4E |XH(M),YH(N),YV(N|
00000230: 29 00 37 0A 18 01 3A 00 4D 0A 22 01 8F 20 44 41 |).7...:.M.".. DA|
00000240: 54 4F 53 20 41 20 50 4C 4F 54 45 41 52 00 66 0A |TOS A PLOTEAR.f.|
00000250: 2C 01 99 22 4F 52 47 41 4E 49 5A 41 4E 44 4F 20 |,.."ORGANIZANDO |
00000260: 44 41 54 4F 53 22 00 71 0A 36 01 81 58 B2 30 A4 |DATOS".q.6..X.0.|
00000270: 4D 00 7C 0A 40 01 81 59 B2 30 A4 4E 00 BB 0A 4A |M.|.@..Y.0.N...J|
00000280: 01 54 4D B2 BA 28 28 58 AB 31 30 29 AE 32 AA 28 |.TM..((X.10).2.(|
00000290: 59 AB 38 29 AE 32 29 3A 5A 28 58 2C 59 29 B2 31 |Y.8).2):Z(X,Y).1|
000002A0: 35 30 AB 54 4D AC 35 35 AA 54 4D AC 54 4D AC 38 |50.TM.55.TM.TM.8|
000002B0: AB 54 4D AC 54 4D AC 54 4D AD 33 00 C8 0A 54 01 |.TM.TM.TM.3...T.|
000002C0: 82 59 3A 99 58 3A 82 58 00 CE 0A 5E 01 3A 00 1A |.Y:.X:.X...^.:..|
000002D0: 0B 68 01 41 24 B2 22 54 4D 3D 53 51 52 28 28 58 |.h.A$."TM=SQR((X|
000002E0: 2D 31 30 29 5E 32 2B 28 59 2D 38 29 5E 32 29 22 |-10)^2+(Y-8)^2)"|
000002F0: 3A 41 31 24 B2 22 5A 28 58 2C 59 29 3D 31 35 30 |:A1$."Z(X,Y)=150|
00000300: 2D 54 4D 2A 35 35 2B 54 4D 2A 54 4D 2A 38 2D 54 |-TM*55+TM*TM*8-T|
00000310: 4D 2A 54 4D 2A 54 4D 2F 33 22 00 20 0B 72 01 3A |M*TM*TM/3". .r.:|
00000320: 00 61 0B 7C 01 8F 20 49 4E 53 45 52 54 45 20 4F |.a.|.. INSERTE O|
00000330: 54 52 41 53 20 45 58 50 52 45 53 49 4F 4E 45 53 |TRAS EXPRESIONES|
00000340: 20 45 4E 20 33 33 30 20 59 20 43 41 4D 42 49 45 | EN 330 Y CAMBIE|
00000350: 20 45 4C 20 54 49 54 55 4C 4F 20 45 4E 20 33 36 | EL TITULO EN 36|
00000360: 30 00 A4 0B 81 01 8F 28 43 41 4D 42 49 45 20 4C |0......(CAMBIE L|
00000370: 41 20 4C 49 4E 45 41 23 20 44 45 20 4C 41 20 46 |A LINEA# DE LA F|
00000380: 55 4E 43 49 4F 4E 20 44 45 53 45 41 44 41 20 59 |UNCION DESEADA Y|
00000390: 20 45 4C 20 54 49 54 55 4C 4F 20 44 45 20 41 42 | EL TITULO DE AB|
000003A0: 41 4A 4F 29 00 D2 0B 86 01 8F 20 5A 28 58 2C 59 |AJO)...... Z(X,Y|
000003B0: 29 3D 58 2A 58 2D 58 2A 58 2A 58 2F 32 32 2B 37 |)=X*X-X*X*X/22+7|
000003C0: 35 2A 59 2D 31 32 2A 59 2A 59 2B 59 2A 59 2A 59 |5*Y-12*Y*Y+Y*Y*Y|
000003D0: 2F 32 00 E6 0B 90 01 8F 20 41 24 3D 22 43 4F 4E |/2...... A$="CON|
000003E0: 54 4F 52 4E 4F 22 00 15 0C 9A 01 8F 20 5A 28 58 |TORNO"...... Z(X|
000003F0: 2C 59 29 3D 35 36 30 2D 45 58 50 28 53 51 52 28 |,Y)=560-EXP(SQR(|
00000400: 41 42 53 28 28 58 2D 31 30 29 2A 28 59 2D 38 29 |ABS((X-10)*(Y-8)|
00000410: 2F 32 29 29 29 00 2B 0C A4 01 8F 20 41 24 3D 22 |/2))).+.... A$="|
00000420: 53 48 45 4C 4C 20 52 4F 4F 46 22 00 5B 0C AE 01 |SHELL ROOF".[...|
00000430: 8F 20 54 4D 3D 53 51 52 28 58 2A 58 2B 31 2E 35 |. TM=SQR(X*X+1.5|
00000440: 2A 59 2A 59 29 3A 5A 28 58 2C 59 29 3D 31 30 2B |*Y*Y):Z(X,Y)=10+|
00000450: 53 49 4E 28 54 4D 29 2B 59 2F 34 00 78 0C B8 01 |SIN(TM)+Y/4.x...|
00000460: 8F 20 41 24 3D 22 4F 4E 44 41 53 20 44 45 20 47 |. A$="ONDAS DE G|
00000470: 52 41 56 45 44 41 44 22 00 BB 0C C2 01 8F 20 54 |RAVEDAD"...... T|
00000480: 4D 3D 53 51 52 28 28 58 2D 31 30 29 5E 32 2B 28 |M=SQR((X-10)^2+(|
00000490: 59 2D 38 29 5E 32 29 3A 5A 28 58 2C 59 29 3D 31 |Y-8)^2):Z(X,Y)=1|
000004A0: 35 30 2D 54 4D 2A 35 35 2B 54 4D 2A 54 4D 2A 38 |50-TM*55+TM*TM*8|
000004B0: 2D 54 4D 2A 54 4D 2A 54 4D 2F 33 00 CD 0C CC 01 |-TM*TM*TM/3.....|
000004C0: 8F 20 41 24 3D 22 53 50 4C 41 53 48 22 00 0B 0D |. A$="SPLASH"...|
000004D0: D6 01 8F 20 41 3D 32 30 2D 41 42 53 28 58 2D 31 |... A=20-ABS(X-1|
000004E0: 30 29 3A 42 3D 31 38 2D 41 42 53 28 59 2D 38 29 |0):B=18-ABS(Y-8)|
000004F0: 3A 5A 28 58 2C 59 29 3D 41 3A 49 46 42 3E 41 54 |:Z(X,Y)=A:IFB>AT|
00000500: 48 45 4E 5A 28 58 2C 59 29 3D 42 00 1C 0D E0 01 |HENZ(X,Y)=B.....|
00000510: 8F 20 41 24 3D 22 48 4F 55 53 45 22 00 53 0D EA |. A$="HOUSE".S..|
00000520: 01 8F 20 5A 28 58 2C 59 29 3D 59 2B 28 38 2D 59 |.. Z(X,Y)=Y+(8-Y|
00000530: 29 2A 28 28 58 3E 34 29 41 4E 44 28 58 3C 31 36 |)*((X>4)AND(X<16|
00000540: 29 29 2A 28 28 59 3E 33 29 41 4E 44 28 59 3C 31 |))*((Y>3)AND(Y<1|
00000550: 33 29 29 00 66 0D F4 01 8F 20 41 24 3D 22 50 4C |3)).f.... A$="PL|
00000560: 41 54 45 41 55 22 00 95 0D FE 01 8F 20 4F 20 4C |ATEAU"...... O L|
00000570: 45 45 52 20 52 45 53 55 4C 54 41 44 4F 53 20 45 |EER RESULTADOS E|
00000580: 4D 50 49 52 49 43 4F 53 20 44 45 20 4C 4F 53 20 |MPIRICOS DE LOS |
00000590: 44 41 54 4F 53 00 9B 0D 08 02 3A 00 AC 0D 12 02 |DATOS.....:.....|
000005A0: 8F 20 50 52 4F 59 45 43 43 49 4F 4E 00 CA 0D 1C |. PROYECCION....|
000005B0: 02 54 48 45 54 41 B2 36 30 3A 8F 20 41 4E 47 55 |.THETA.60:. ANGU|
000005C0: 4C 4F 20 44 45 46 41 55 4C 54 00 FE 0D 26 02 99 |LO DEFAULT...&..|
000005D0: 43 44 24 22 45 4E 54 52 45 20 45 4C 20 41 4E 47 |CD$"ENTRE EL ANG|
000005E0: 55 4C 4F 20 44 45 53 45 41 44 4F 2C 4F 20 50 52 |ULO DESEADO,O PR|
000005F0: 45 53 49 4F 4E 45 20 52 45 54 55 52 4E 22 00 14 |ESIONE RETURN"..|
00000600: 0E 30 02 99 22 50 41 52 41 20 36 30 20 47 52 41 |.0.."PARA 60 GRA|
00000610: 44 4F 53 3A 00 1D 0E 3A 02 85 20 54 48 00 2D 0E |DOS:...:.. TH.-.|
00000620: 44 02 54 48 B2 54 48 AC FF AD 31 38 30 00 3F 0E |D.TH.TH...180.?.|
00000630: 4E 02 54 4D 50 B2 31 32 30 AC BE 28 54 48 29 00 |N.TMP.120..(TH).|
00000640: 57 0E 58 02 58 47 52 49 44 B2 B5 28 28 33 30 39 |W.X.XGRID..((309|
00000650: AB 54 4D 29 AD 4D 29 00 6F 0E 62 02 59 47 52 49 |.TM).M).o.b.YGRI|
00000660: 44 B2 B5 28 39 36 AC BF 28 54 48 29 AD 4E 29 00 |D..(96..(TH).N).|
00000670: 80 0E 6C 02 59 53 54 50 B2 B5 28 54 4D AD 4E 29 |..l.YSTP..(TM.N)|
00000680: 00 86 0E 76 02 3A 00 9F 0E 80 02 8F 20 43 41 4C |...v.:...... CAL|
00000690: 43 55 4C 41 20 4C 4F 53 20 4F 46 46 53 45 54 00 |CULA LOS OFFSET.|
000006A0: AA 0E 8A 02 81 58 B2 30 A4 4D 00 BF 0E 94 02 58 |.....X.0.M.....X|
000006B0: 48 52 49 5A 28 58 29 B2 31 30 AA 58 AC 58 47 00 |HRIZ(X).10.X.XG.|
000006C0: C5 0E 9E 02 82 00 D0 0E A8 02 81 59 B2 30 A4 4E |...........Y.0.N|
000006D0: 00 E2 0E B2 02 59 48 52 49 5A 28 59 29 B2 59 AC |.....YHRIZ(Y).Y.|
000006E0: 59 53 00 F7 0E BC 02 59 56 45 52 54 28 59 29 B2 |YS.....YVERT(Y).|
000006F0: 31 30 AA 59 AC 59 47 00 FD 0E C6 02 82 00 03 0F |10.Y.YG.........|
00000700: D0 02 3A 00 19 0F DA 02 8F 20 45 53 43 41 4C 41 |..:...... ESCALA|
00000710: 20 56 45 52 54 49 43 41 4C 00 2F 0F E4 02 99 22 | VERTICAL./...."|
00000720: 44 41 54 4F 53 20 44 45 20 45 53 43 41 4C 41 00 |DATOS DE ESCALA.|
00000730: 3F 0F EE 02 56 53 43 41 4C 41 52 B2 39 45 39 00 |?...VSCALAR.9E9.|
00000740: 4A 0F F8 02 81 59 B2 30 A4 4E 00 59 0F 02 03 41 |J....Y.0.N.Y...A|
00000750: B2 30 3A 81 58 B2 30 A4 4D 00 70 0F 0C 03 8B 5A |.0:.X.0.M.p....Z|
00000760: 28 58 2C 59 29 B1 41 A7 41 B2 5A 28 58 2C 59 29 |(X,Y).A.A.Z(X,Y)|
00000770: 00 94 0F 16 03 82 3A 8F 20 45 4E 43 55 45 4E 54 |......:. ENCUENT|
00000780: 52 41 20 45 4C 20 50 55 4E 54 4F 20 4D 41 53 20 |RA EL PUNTO MAS |
00000790: 41 4C 54 4F 00 AD 0F 20 03 8B 41 A7 54 4D 50 B2 |ALTO... ..A.TMP.|
000007A0: 28 31 39 39 AB 59 56 28 59 29 29 AD 41 00 BE 0F |(199.YV(Y)).A...|
000007B0: 2A 03 8B 56 53 B1 54 4D A7 56 53 B2 54 4D 00 E2 |*..VS.TM.VS.TM..|
000007C0: 0F 34 03 82 3A 8F 20 53 45 4C 45 43 43 49 4F 4E |.4..:. SELECCION|
000007D0: 41 20 4C 41 20 45 53 43 41 4C 41 20 41 50 52 4F |A LA ESCALA APRO|
000007E0: 50 2E 00 E8 0F 3E 03 3A 00 03 10 48 03 8F 20 43 |P....>.:...H.. C|
000007F0: 41 4C 43 55 4C 41 20 4C 41 20 45 4C 45 56 41 43 |ALCULA LA ELEVAC|
00000800: 49 4F 4E 00 20 10 52 03 99 22 2E 2E 2E 48 41 43 |ION. .R.."...HAC|
00000810: 49 45 4E 44 4F 20 4C 41 20 45 53 43 41 4C 41 22 |IENDO LA ESCALA"|
00000820: 00 2B 10 5C 03 81 59 B2 30 A4 4E 00 38 10 66 03 |.+.\..Y.0.N.8.f.|
00000830: 54 4D B2 59 56 28 59 29 00 43 10 70 03 81 58 B2 |TM.YV(Y).C.p..X.|
00000840: 30 A4 4D 00 5B 10 7A 03 52 28 58 2C 59 29 B2 5A |0.M.[.z.R(X,Y).Z|
00000850: 28 58 2C 59 29 AC 56 53 AA 54 4D 00 64 10 84 03 |(X,Y).VS.TM.d...|
00000860: 82 58 2C 59 00 6A 10 8E 03 3A 00 82 10 98 03 8F |.X,Y.j...:......|
00000870: 20 42 4F 52 52 41 20 4C 41 20 50 41 4E 54 41 4C | BORRA LA PANTAL|
00000880: 4C 41 00 91 10 A2 03 9E 20 48 49 2C 30 2C 30 2C |LA...... HI,0,0,|
00000890: 38 00 9C 10 AC 03 9E 20 44 4D 2C 31 00 A2 10 B6 |8...... DM,1....|
000008A0: 03 3A 00 C7 10 C0 03 8F 20 50 4C 4F 54 45 41 20 |.:...... PLOTEA |
000008B0: 4C 41 53 20 4C 49 4E 45 41 53 20 48 4F 52 49 5A |LAS LINEAS HORIZ|
000008C0: 4F 4E 54 41 4C 45 53 00 D2 10 CA 03 81 59 B2 30 |ONTALES......Y.0|
000008D0: A4 4E 00 DF 10 D4 03 54 4D B2 59 48 28 59 29 00 |.N.....TM.YH(Y).|
000008E0: F5 10 DE 03 9E 20 4D 4F 2C 54 4D AA 31 30 2C 52 |..... MO,TM.10,R|
000008F0: 28 30 2C 59 29 00 00 11 E8 03 81 58 B2 31 A4 4D |(0,Y)......X.1.M|
00000900: 00 19 11 F2 03 9E 20 44 52 2C 54 4D AA 58 48 28 |...... DR,TM.XH(|
00000910: 58 29 2C 52 28 58 2C 59 29 00 22 11 FC 03 82 58 |X),R(X,Y)."....X|
00000920: 2C 59 00 28 11 06 04 3A 00 4B 11 10 04 8F 20 50 |,Y.(...:.K.... P|
00000930: 4C 4F 54 45 41 20 4C 41 53 20 4C 49 4E 45 41 53 |LOTEA LAS LINEAS|
00000940: 20 56 45 52 54 49 43 41 4C 45 53 00 56 11 1A 04 | VERTICALES.V...|
00000950: 81 58 B2 30 A4 4D 00 63 11 24 04 54 4D B2 58 48 |.X.0.M.c.$.TM.XH|
00000960: 28 58 29 00 76 11 2E 04 9E 20 4D 4F 2C 54 4D 2C |(X).v.... MO,TM,|
00000970: 52 28 58 2C 30 29 00 81 11 38 04 81 59 B2 31 A4 |R(X,0)...8..Y.1.|
00000980: 4E 00 9A 11 42 04 9E 20 44 52 2C 54 4D AA 59 48 |N...B.. DR,TM.YH|
00000990: 28 59 29 2C 52 28 58 2C 59 29 00 A3 11 4C 04 82 |(Y),R(X,Y)...L..|
000009A0: 59 2C 58 00 A9 11 56 04 3A 00 BF 11 60 04 8F 20 |Y,X...V.:...`.. |
000009B0: 44 49 42 55 4A 41 20 55 4E 41 20 43 41 4A 41 00 |DIBUJA UNA CAJA.|
000009C0: D2 11 6A 04 9E 20 4D 4F 2C 31 30 2C 52 28 30 2C |..j.. MO,10,R(0,|
000009D0: 30 29 00 E1 11 74 04 9E 20 44 52 2C 31 30 2C 32 |0)...t.. DR,10,2|
000009E0: 35 00 F3 11 7E 04 9E 20 44 52 2C 58 48 28 4D 29 |5...~.. DR,XH(M)|
000009F0: 2C 32 35 00 09 12 88 04 9E 20 44 52 2C 58 48 28 |,25...... DR,XH(|
00000A00: 4D 29 2C 52 28 4D 2C 30 29 00 1B 12 92 04 9E 20 |M),R(M,0)...... |
00000A10: 4D 4F 2C 58 48 28 4D 29 2C 32 35 00 36 12 9C 04 |MO,XH(M),25.6...|
00000A20: 9E 20 44 52 2C 58 48 28 4D 29 AA 59 48 28 4E 29 |. DR,XH(M).YH(N)|
00000A30: 2C 59 56 28 4E 29 00 52 12 A6 04 9E 20 44 52 2C |,YV(N).R.... DR,|
00000A40: 58 48 28 4D 29 AA 59 48 28 4E 29 2C 52 28 4D 2C |XH(M).YH(N),R(M,|
00000A50: 4E 29 00 58 12 B0 04 3A 00 65 12 BA 04 8F 20 54 |N).X...:.e.... T|
00000A60: 49 54 55 4C 4F 00 8C 12 C4 04 9E 20 43 4F 2C 31 |ITULO...... CO,1|
00000A70: 33 3A 9E 20 50 52 2C 31 2C 32 33 2C 41 24 3A 9E |3:. PR,1,23,A$:.|
00000A80: 20 50 52 2C 31 2C 32 34 2C 41 31 24 00 92 12 CE | PR,1,24,A1$....|
00000A90: 04 3A 00 B0 12 D8 04 8F 20 45 53 50 45 52 41 20 |.:...... ESPERA |
00000AA0: 50 41 52 41 20 4F 42 53 45 52 56 41 43 49 4F 4E |PARA OBSERVACION|
00000AB0: 00 BF 12 E2 04 92 31 39 38 2C 31 3A A1 42 24 00 |......198,1:.B$.|
00000AC0: C8 12 EC 04 9E 20 54 45 00 CE 12 F6 04 3A 00 FC |..... TE.....:..|
00000AD0: 12 00 05 99 43 44 24 22 50 52 45 53 49 4F 4E 45 |....CD$"PRESIONE|
00000AE0: 20 52 20 54 4F 20 52 45 56 45 45 52 20 45 4E 20 | R TO REVEER EN |
00000AF0: 4F 54 52 4F 20 41 4E 47 55 4C 4F 22 00 2A 13 0A |OTRO ANGULO".*..|
00000B00: 05 99 22 50 52 45 53 49 4F 4E 45 20 43 55 41 4C |.."PRESIONE CUAL|
00000B10: 51 55 49 45 52 20 54 45 43 4C 41 20 50 41 52 41 |QUIER TECLA PARA|
00000B20: 20 54 45 52 4D 49 4E 41 52 22 00 4A 13 0F 05 99 | TERMINAR".J....|
00000B30: 22 54 52 41 4E 53 46 45 52 45 4E 43 49 41 20 44 |"TRANSFERENCIA D|
00000B40: 45 20 44 41 54 4F 53 20 54 22 00 59 13 14 05 92 |E DATOS T".Y....|
00000B50: 31 39 38 2C 31 3A A1 42 24 00 69 13 1E 05 8B 42 |198,1:.B$.i....B|
00000B60: 24 B2 22 52 22 A7 35 34 30 00 7B 13 23 05 8B 42 |$."R".540.{.#..B|
00000B70: 24 B2 22 54 22 A7 9E 20 38 32 38 00 81 13 28 05 |$."T".. 828...(.|
00000B80: 80 00 A0 13 88 13 8F 20 44 41 54 41 20 4C 4F 41 |....... DATA LOA|
00000B90: 44 45 52 20 46 4F 52 20 50 49 43 54 52 41 4E 53 |DER FOR PICTRANS|
00000BA0: 00 A9 13 92 13 43 53 B2 30 00 C0 13 9C 13 81 49 |.....CS.0......I|
00000BB0: B2 38 32 38 A4 38 36 39 3A 87 41 3A 97 49 2C 41 |.828.869:.A:.I,A|
00000BC0: 00 CF 13 A6 13 43 53 B2 43 53 AA 41 3A 82 49 00 |.....CS.CS.A:.I.|
00000BD0: EF 13 AB 13 8B 20 43 53 B3 B1 36 35 37 33 20 A7 |..... CS..6573 .|
00000BE0: 99 22 44 41 54 41 20 45 52 52 4F 52 22 3A 80 00 |."DATA ERROR":..|
00000BF0: 1F 14 B0 13 9E 20 38 32 38 3A 99 22 54 52 41 4E |..... 828:."TRAN|
00000C00: 53 46 45 52 45 4E 43 49 41 20 52 45 41 4C 49 5A |SFERENCIA REALIZ|
00000C10: 41 44 41 22 3A 81 49 B2 31 A4 32 30 30 3A 82 00 |ADA":.I.1.200:..|
00000C20: 25 14 CE 13 8E 00 4A 14 E2 13 83 20 31 36 39 2C |%.....J.... 169,|
00000C30: 33 32 2C 31 33 33 2C 32 35 34 2C 31 36 39 2C 32 |32,133,254,169,2|
00000C40: 32 34 2C 31 33 33 2C 32 35 32 00 6C 14 EC 13 83 |24,133,252.l....|
00000C50: 20 31 36 39 2C 30 2C 31 33 33 2C 32 35 31 2C 31 | 169,0,133,251,1|
00000C60: 33 33 2C 32 35 33 2C 31 36 30 2C 30 00 8C 14 F6 |33,253,160,0....|
00000C70: 13 83 20 31 32 30 2C 31 36 35 2C 31 2C 37 32 2C |.. 120,165,1,72,|
00000C80: 34 31 2C 32 35 33 2C 31 33 33 2C 31 00 B2 14 00 |41,253,133,1....|
00000C90: 14 83 20 31 37 37 2C 32 35 31 2C 31 34 35 2C 32 |.. 177,251,145,2|
00000CA0: 35 33 2C 32 30 30 2C 32 30 38 2C 32 34 39 2C 32 |53,200,208,249,2|
00000CB0: 33 30 00 D6 14 0A 14 83 20 32 35 34 2C 32 33 30 |30...... 254,230|
00000CC0: 2C 32 35 32 2C 32 30 38 2C 32 34 33 2C 31 30 34 |,252,208,243,104|
00000CD0: 2C 31 33 33 2C 31 00 E2 14 14 14 83 20 38 38 2C |,133,1...... 88,|
00000CE0: 39 36 00 00 00 |96... |
..(....*********************************
.O....* *.
V....* EL PLOTEADOR DE PERSPECTIVAS *..
.(..* REQUIERE RUTINAS DE PLOTEO EN *.D.
2..* LENGUAJE MAQUINA *...<
..* *...F.
.*********************************.4....
INICIALIZACION DE VARIABLES.S. .HI.4915
2:CO.49173:DR.49155.{...MO.49161:PR.4918
2:DM.49167:TE.49179.....CD$.G(17):. 5000
.....:...H..B(HI.1).194.240...R.."HIRES"
,8,1.B...:.S.... PARAMETROS.....M.20:. D
IMENSION DE X.....N.16:. DIMENSION DE Y.
.....Z(M,N),R(M,N).1....XH(M),YH(N),YV(N
).7...:.M.".. DATOS A PLOTEAR.F.,.."ORGA
NIZANDO DATOS".Q.6..X.0.M.|.@..Y.0.N...J
.TM..((X.10).2.(Y.8).2):Z(X,Y).150.TM.55
.TM.TM.8.TM.TM.TM.3.H.T..Y:.X:.X.N.^.:..
.H.A$."TM=SQR((X-10)^2+(Y-8)^2)":A1$."Z(
X,Y)=150-TM*55+TM*TM*8-TM*TM*TM/3". .R.:
.A.|.. INSERTE OTRAS EXPRESIONES EN 330
Y CAMBIE EL TITULO EN 360......(CAMBIE L
A LINEA# DE LA FUNCION DESEADA Y EL TITU
LO DE ABAJO).R.... Z(X,Y)=X*X-X*X*X/22+7
5*Y-12*Y*Y+Y*Y*Y/2...... A$="CONTORNO"..
.... Z(X,Y)=560-EXP(SQR(ABS((X-10)*(Y-8)
/2))).+.... A$="SHELL ROOF".[.... TM=SQR
(X*X+1.5*Y*Y):Z(X,Y)=10+SIN(TM)+Y/4.X...
. A$="ONDAS DE GRAVEDAD"...B.. TM=SQR((X
-10)^2+(Y-8)^2):Z(X,Y)=150-TM*55+TM*TM*8
-TM*TM*TM/3.M.L.. A$="SPLASH"...V.. A=20
-ABS(X-10):B=18-ABS(Y-8):Z(X,Y)=A:IFB>AT
HENZ(X,Y)=B...... A$="HOUSE".S.... Z(X,Y
)=Y+(8-Y)*((X>4)AND(X<16))*((Y>3)AND(Y<1
3)).F.... A$="PLATEAU"...... O LEER RESU
LTADOS EMPIRICOS DE LOS DATOS.....:.....
. PROYECCION.J...THETA.60:. ANGULO DEFAU
LT...&..CD$"ENTRE EL ANGULO DESEADO,O PR
ESIONE RETURN"...0.."PARA 60 GRADOS:...:
.. TH.-.D.TH.TH...180.?.N.TMP.120..(TH).
W.X.XGRID..((309.TM).M).O.B.YGRID..(96..
(TH).N)...L.YSTP..(TM.N)...V.:...... CAL
CULA LOS OFFSET......X.0.M.....XHRIZ(X).
10.X.XG.E.....P....Y.0.N.....YHRIZ(Y).Y.
YS.....YVERT(Y).10.Y.YG...F.....P.:...Z.
. ESCALA VERTICAL./...."DATOS DE ESCALA.
?...VSCALAR.9E9.J....Y.0.N.Y...A.0:.X.0.
M.P....Z(X,Y).A.A.Z(X,Y)......:. ENCUENT
RA EL PUNTO MAS ALTO... ..A.TMP.(199.YV(
Y)).A...*..VS.TM.VS.TM...4..:. SELECCION
A LA ESCALA APROP....>.:...H.. CALCULA L
A ELEVACION. .R.."...HACIENDO LA ESCALA"
.+.\..Y.0.N.8.F.TM.YV(Y).C.P..X.0.M.[.Z.
R(X,Y).Z(X,Y).VS.TM.D....X,Y.J...:......
BORRA LA PANTALLA...... HI,0,0,8......
DM,1.....:.G.... PLOTEA LAS LINEAS HORIZ
ONTALES.R.J..Y.0.N...T.TM.YH(Y)...... MO
,TM.10,R(0,Y)......X.1.M...... DR,TM.XH(
X),R(X,Y)."....X,Y.(...:.K.... PLOTEA LA
S LINEAS VERTICALES.V....X.0.M.C.$.TM.XH
(X).V.... MO,TM,R(X,0)...8..Y.1.N...B..
DR,TM.YH(Y),R(X,Y)...L..Y,X...V.:...`..
DIBUJA UNA CAJA.R.J.. MO,10,R(0,0)...T..
DR,10,25...~.. DR,XH(M),25...... DR,XH(
M),R(M,0)...... MO,XH(M),25.6.... DR,XH(
M).YH(N),YV(N).R.... DR,XH(M).YH(N),R(M,
N).X...:.E.... TITULO...D.. CO,13:. PR,1
,23,A$:. PR,1,24,A1$...N.:...X.. ESPERA
PARA OBSERVACION......198,1:.B$.H.... TE
.N...:......CD$"PRESIONE R TO REVEER EN
OTRO ANGULO".*...."PRESIONE CUALQUIER TE
CLA PARA TERMINAR".J...."TRANSFERENCIA D
E DATOS T".Y....198,1:.B$.I....B$."R".54
0.{.#..B$."T".. 828...(... .... DATA LOA
DER FOR PICTRANS.....CS.0......I.828.869
:.A:.I,A.O...CS.CS.A:.I...... CS..6573 .
."DATA ERROR":....... 828:."TRANSFERENCI
A REALIZADA":.I.1.200:..%.N...J.... 169,
32,133,254,169,224,133,252.L.... 169,0,1
33,251,133,253,160,0...... 120,165,1,72,
41,253,133,1...... 177,251,145,253,200,2
08,249,230.V.... 254,230,252,208,243,104
,133,1...... 88,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL