LORES FUPLOT
FILE INFORMATION
FILENAME(S): LORES FUPLOT
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
ce035a109dfac2bdf8fc9f5681fd54620f45d18cb46e06e45870454e5c18c6f2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | LORES FUPLOT | PRG | DuncanTwain | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 64 00 52 45 4D 20 2A 2A 2A 2A 2A 2A |....d.REM ******| 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 2A 2A 2A 2A 2A 2A 00 5B |**************.[| 00000030: 08 6E 00 52 45 4D 20 2A 2A 2A 20 20 20 20 20 20 |.n.REM *** | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 20 20 20 20 20 20 2A 2A 2A 00 88 08 78 00 | ***...x.| 00000060: 52 45 4D 20 2A 2A 2A 20 20 20 20 20 46 55 4E 4B |REM *** FUNK| 00000070: 54 49 4F 4E 53 50 4C 4F 54 54 45 52 20 20 20 20 |TIONSPLOTTER | 00000080: 20 20 20 20 20 2A 2A 2A 00 B5 08 82 00 52 45 4D | ***.....REM| 00000090: 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | *** | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 2A 2A 2A 00 E2 08 8C 00 52 45 4D 20 2A 2A | ***.....REM **| 000000C0: 2A 20 20 20 20 20 4D 49 54 20 53 4B 41 4C 49 45 |* MIT SKALIE| 000000D0: 52 55 4E 47 20 20 20 20 20 20 20 20 20 20 20 2A |RUNG *| 000000E0: 2A 2A 00 0F 09 96 00 52 45 4D 20 2A 2A 2A 20 20 |**.....REM *** | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.| 00000110: 3C 09 A0 00 52 45 4D 20 2A 2A 2A 20 20 20 20 20 |<...REM *** | 00000120: 46 55 45 52 20 31 35 31 35 2C 31 35 32 35 20 45 |FUER 1515,1525 E| 00000130: 54 43 2E 20 20 20 20 20 20 2A 2A 2A 00 69 09 AA |TC. ***.i..| 00000140: 00 52 45 4D 20 2A 2A 2A 20 20 20 20 20 20 20 20 |.REM *** | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 2A 2A 2A 00 96 09 B4 00 52 45 | ***.....RE| 00000170: 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |M **************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 00 A7 09 BE 00 50 49 3D 33 2E |******.....PI=3.| 000001A0: 31 34 31 35 39 32 36 00 CD 09 C8 00 47 4F 53 55 |1415926.....GOSU| 000001B0: 42 34 35 30 20 20 3A 20 52 45 4D 20 47 52 45 4E |B450 : REM GREN| 000001C0: 5A 45 4E 20 45 52 4D 49 54 54 45 4C 4E 00 D9 09 |ZEN ERMITTELN...| 000001D0: D2 00 4F 50 45 4E 34 2C 34 00 E8 09 DC 00 46 4F |..OPEN4,4.....FO| 000001E0: 52 49 3D 31 54 4F 38 30 00 FF 09 E6 00 50 52 49 |RI=1TO80.....PRI| 000001F0: 4E 54 23 34 2C 43 48 52 24 28 32 34 39 29 3B 00 |NT#4,CHR$(249);.| 00000200: 08 0A F0 00 4E 45 58 54 00 1C 0A FA 00 50 52 49 |....NEXT.....PRI| 00000210: 4E 54 23 34 2C 43 48 52 24 28 38 29 00 33 0A 04 |NT#4,CHR$(8).3..| 00000220: 01 46 4F 52 41 3D 30 54 4F 32 2A 50 49 53 54 45 |.FORA=0TO2*PISTE| 00000230: 50 2E 31 00 40 0A 0E 01 47 4F 53 55 42 35 33 30 |P.1.@...GOSUB530| 00000240: 00 4F 0A 18 01 43 3D 42 2A 4D 59 2B 32 34 30 00 |.O...C=B*MY+240.| 00000250: 61 0A 22 01 48 42 3D 49 4E 54 28 43 2F 32 35 36 |a.".HB=INT(C/256| 00000260: 29 00 71 0A 2C 01 4C 42 3D 43 20 41 4E 44 32 35 |).q.,.LB=C AND25| 00000270: 35 00 8E 0A 36 01 49 46 43 3E 3D 32 33 35 41 4E |5...6.IFC>=235AN| 00000280: 44 43 3C 3D 32 34 35 54 48 45 4E 33 39 30 00 A2 |DC<=245THEN390..| 00000290: 0A 40 01 49 46 43 3C 3D 32 34 30 54 48 45 4E 33 |.@.IFC<=240THEN3| 000002A0: 36 30 00 E1 0A 4A 01 50 52 49 4E 54 23 34 2C 43 |60...J.PRINT#4,C| 000002B0: 48 52 24 28 31 35 29 43 48 52 24 28 32 37 29 43 |HR$(15)CHR$(27)C| 000002C0: 48 52 24 28 31 36 29 43 48 52 24 28 30 29 43 48 |HR$(16)CHR$(0)CH| 000002D0: 52 24 28 32 34 30 29 43 48 52 24 28 32 34 35 29 |R$(240)CHR$(245)| 000002E0: 3B 00 18 0B 54 01 50 52 49 4E 54 23 34 2C 43 48 |;...T.PRINT#4,CH| 000002F0: 52 24 28 32 37 29 43 48 52 24 28 31 36 29 43 48 |R$(27)CHR$(16)CH| 00000300: 52 24 28 48 42 29 43 48 52 24 28 4C 42 29 22 2A |R$(HB)CHR$(LB)"*| 00000310: 22 43 48 52 24 28 38 29 00 24 0B 5E 01 47 4F 54 |"CHR$(8).$.^.GOT| 00000320: 4F 34 30 30 00 5D 0B 68 01 50 52 49 4E 54 23 34 |O400.].h.PRINT#4| 00000330: 2C 43 48 52 24 28 31 35 29 43 48 52 24 28 32 37 |,CHR$(15)CHR$(27| 00000340: 29 43 48 52 24 28 31 36 29 43 48 52 24 28 48 42 |)CHR$(16)CHR$(HB| 00000350: 29 43 48 52 24 28 4C 42 29 22 2A 22 3B 00 9A 0B |)CHR$(LB)"*";...| 00000360: 72 01 50 52 49 4E 54 23 34 2C 43 48 52 24 28 32 |r.PRINT#4,CHR$(2| 00000370: 37 29 43 48 52 24 28 31 36 29 43 48 52 24 28 30 |7)CHR$(16)CHR$(0| 00000380: 29 43 48 52 24 28 32 34 30 29 43 48 52 24 28 32 |)CHR$(240)CHR$(2| 00000390: 34 35 29 43 48 52 24 28 38 29 00 A6 0B 7C 01 47 |45)CHR$(8)...|.G| 000003A0: 4F 54 4F 34 30 30 00 E5 0B 86 01 50 52 49 4E 54 |OTO400.....PRINT| 000003B0: 23 34 2C 43 48 52 24 28 31 35 29 43 48 52 24 28 |#4,CHR$(15)CHR$(| 000003C0: 32 37 29 43 48 52 24 28 31 36 29 43 48 52 24 28 |27)CHR$(16)CHR$(| 000003D0: 48 42 29 43 48 52 24 28 4C 42 29 22 2A 22 43 48 |HB)CHR$(LB)"*"CH| 000003E0: 52 24 28 38 29 00 EF 0B 90 01 4E 45 58 54 41 00 |R$(8).....NEXTA.| 000003F0: 04 0C 9A 01 50 52 49 4E 54 23 31 2C 43 48 52 24 |....PRINT#1,CHR$| 00000400: 28 31 35 29 00 0F 0C A4 01 43 4C 4F 53 45 31 00 |(15).....CLOSE1.| 00000410: 17 0C AE 01 45 4E 44 00 2A 0C B8 01 52 45 4D 20 |....END.*...REM | 00000420: 53 43 41 4C 49 45 52 55 4E 47 00 41 0C C2 01 46 |SCALIERUNG.A...F| 00000430: 4F 52 41 3D 30 54 4F 32 2A 50 49 53 54 45 50 2E |ORA=0TO2*PISTEP.| 00000440: 31 00 4E 0C CC 01 47 4F 53 55 42 35 33 30 00 61 |1.N...GOSUB530.a| 00000450: 0C D6 01 49 46 42 3E 4D 41 54 48 45 4E 4D 41 3D |...IFB>MATHENMA=| 00000460: 42 00 74 0C E0 01 49 46 42 3C 4D 49 54 48 45 4E |B.t...IFB<MITHEN| 00000470: 4D 49 3D 42 00 7D 0C EA 01 4E 45 58 54 00 A7 0C |MI=B.}...NEXT...| 00000480: F4 01 49 46 41 42 53 28 4D 49 29 3E 4D 41 54 48 |..IFABS(MI)>MATH| 00000490: 45 4E 4D 59 3D 32 33 33 2F 41 42 53 28 4D 49 29 |ENMY=233/ABS(MI)| 000004A0: 3A 52 45 54 55 52 4E 00 BC 0C FE 01 4D 59 3D 32 |:RETURN.....MY=2| 000004B0: 33 33 2F 4D 41 3A 52 45 54 55 52 4E 00 E4 0C 08 |33/MA:RETURN....| 000004C0: 02 52 45 4D 20 46 55 4E 4B 54 49 4F 4E 20 49 4E |.REM FUNKTION IN| 000004D0: 20 5A 45 49 4C 45 20 35 33 30 20 45 49 4E 53 45 | ZEILE 530 EINSE| 000004E0: 54 5A 45 4E 00 F1 0C 12 02 42 3D 53 49 4E 28 41 |TZEN.....B=SIN(A| 000004F0: 29 00 FC 0C 1C 02 52 45 54 55 52 4E 00 00 00 |).....RETURN... |
....D.REM ******************************
******.[.N.REM ***
***...X.REM *** FUNKTIONSPLO
TTER ***.....REM ***
***.....REM *** MI
T SKALIERUNG ***.....REM ***
***.<. .REM
*** FUER 1515,1525 ETC. ***.I..
.REM *** **
*.....REM ******************************
******.....PI=3.1415926.M.H.GOSUB450 :
REM GRENZEN ERMITTELN.Y.R.OPEN4,4.....FO
RI=1TO80.....PRINT#4,CHR$(249);.....NEXT
.....PRINT#4,CHR$(8).3...FORA=0TO2*PISTE
P.1.@...GOSUB530.O...C=B*MY+240.A.".HB=I
NT(C/256).Q.,.LB=C AND255...6.IFC>=235AN
DC<=245THEN390...@.IFC<=240THEN360...J.P
RINT#4,CHR$(15)CHR$(27)CHR$(16)CHR$(0)CH
R$(240)CHR$(245);...T.PRINT#4,CHR$(27)CH
R$(16)CHR$(HB)CHR$(LB)"*"CHR$(8).$.^.GOT
O400.].H.PRINT#4,CHR$(15)CHR$(27)CHR$(16
)CHR$(HB)CHR$(LB)"*";...R.PRINT#4,CHR$(2
7)CHR$(16)CHR$(0)CHR$(240)CHR$(245)CHR$(
8)...|.GOTO400.....PRINT#4,CHR$(15)CHR$(
27)CHR$(16)CHR$(HB)CHR$(LB)"*"CHR$(8)...
..NEXTA.....PRINT#1,CHR$(15).....CLOSE1.
....END.*...REM SCALIERUNG.A.B.FORA=0TO2
*PISTEP.1.N.L.GOSUB530.A.V.IFB>MATHENMA=
B.T...IFB<MITHENMI=B.}...NEXT.....IFABS(
MI)>MATHENMY=233/ABS(MI):RETURN.....MY=2
33/MA:RETURN.....REM FUNKTION IN ZEILE 5
30 EINSETZEN.....B=SIN(A).....RETURN...
> CLICK IMAGE PREVIEW FOR FULL MODAL