TEXTEDIT.LOGO
FILE INFORMATION
FILENAME(S): TEXTEDIT.LOGO
FILE TYPE(S): PRG
FILE SIZE: 597b
FIRST SEEN: 2025-11-30 16:23:23
APPEARS ON: 1 disk(s)
FILE HASH
de71e234cc74e58718d11a4a8e9860f4c157eb0cd170ab593ef70f5bd9d9744e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROGRAMM 127 2 | TEXTEDIT.LOGO | PRG | BrainSkull, Michi Christian | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 50 52 49 4E 54 2E 4D 45 4D 20 3A |. TO PRINT.MEM :| 00000010: 46 52 4F 4D 20 3A 45 4E 44 0D 20 49 46 20 3A 46 |FROM :END. IF :F| 00000020: 52 4F 4D 20 3D 20 3A 45 4E 44 20 53 54 4F 50 0D |ROM = :END STOP.| 00000030: 20 50 52 49 4E 54 31 20 43 48 41 52 20 2E 45 58 | PRINT1 CHAR .EX| 00000040: 41 4D 49 4E 45 20 3A 46 52 4F 4D 0D 20 50 52 49 |AMINE :FROM. PRI| 00000050: 4E 54 2E 4D 45 4D 20 3A 46 52 4F 4D 20 2B 20 31 |NT.MEM :FROM + 1| 00000060: 20 3A 45 4E 44 0D 45 4E 44 0D 0D 54 4F 20 50 52 | :END.END..TO PR| 00000070: 49 4E 54 54 45 58 54 0D 20 2E 4F 50 54 49 4F 4E |INTTEXT. .OPTION| 00000080: 20 22 50 52 49 4E 54 45 52 20 31 20 37 0D 20 50 | "PRINTER 1 7. P| 00000090: 52 49 4E 54 45 52 0D 20 53 48 4F 57 54 45 58 54 |RINTER. SHOWTEXT| 000000A0: 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 2E 4F 50 |. NOPRINTER. .OP| 000000B0: 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 |TION "PRINTER 1 | 000000C0: 30 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 46 |0.END..TO PRINTF| 000000D0: 49 4C 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 |ILE :FILE. .OPTI| 000000E0: 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 37 0D |ON "PRINTER 1 7.| 000000F0: 20 50 52 49 4E 54 45 52 0D 20 53 48 4F 57 46 49 | PRINTER. SHOWFI| 00000100: 4C 45 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 2E |LE. NOPRINTER. .| 00000110: 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 |OPTION "PRINTER | 00000120: 31 20 30 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F 57 |1 0.END..TO SHOW| 00000130: 54 45 58 54 0D 20 50 52 49 4E 54 2E 4D 45 4D 20 |TEXT. PRINT.MEM | 00000140: 38 31 39 32 20 28 20 2E 45 58 41 4D 49 4E 45 20 |8192 ( .EXAMINE | 00000150: 3A 45 4E 44 42 55 46 20 29 20 2B 20 32 35 36 20 |:ENDBUF ) + 256 | 00000160: 2A 20 28 20 2E 45 58 41 4D 49 4E 45 20 3A 45 4E |* ( .EXAMINE :EN| 00000170: 44 42 55 46 20 2B 20 31 20 29 0D 45 4E 44 0D 0D |DBUF + 1 ).END..| 00000180: 54 4F 20 53 48 4F 57 46 49 4C 45 20 3A 46 49 4C |TO SHOWFILE :FIL| 00000190: 45 0D 20 52 45 41 44 54 45 58 54 20 3A 46 49 4C |E. READTEXT :FIL| 000001A0: 45 0D 20 53 48 4F 57 54 45 58 54 0D 45 4E 44 0D |E. SHOWTEXT.END.| 000001B0: 0D 54 4F 20 52 45 41 44 54 45 58 54 20 3A 46 49 |.TO READTEXT :FI| 000001C0: 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 45 41 |LE. .OPTION "REA| 000001D0: 44 20 30 20 31 0D 20 52 45 41 44 20 3A 46 49 4C |D 0 1. READ :FIL| 000001E0: 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 45 41 44 |E. .OPTION "READ| 000001F0: 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 53 41 56 | 0 0.END..TO SAV| 00000200: 45 54 45 58 54 20 3A 46 49 4C 45 0D 20 2E 4F 50 |ETEXT :FILE. .OP| 00000210: 54 49 4F 4E 20 22 53 41 56 45 20 30 20 31 0D 20 |TION "SAVE 0 1. | 00000220: 53 41 56 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 |SAVE :FILE. .OPT| 00000230: 49 4F 4E 20 22 53 41 56 45 20 30 20 30 0D 45 4E |ION "SAVE 0 0.EN| 00000240: 44 0D 0D 4D 41 4B 45 20 22 45 4E 44 42 55 46 20 |D..MAKE "ENDBUF | 00000250: 28 38 36 29 0D |(86). |
. TO PRINT.MEM :FROM :END. IF :FROM = :E ND STOP. PRINT1 CHAR .EXAMINE :FROM. PRI NT.MEM :FROM + 1 :END.END..TO PRINTTEXT. .OPTION "PRINTER 1 7. PRINTER. SHOWTEXT . NOPRINTER. .OPTION "PRINTER 1 0.END..T O PRINTFILE :FILE. .OPTION "PRINTER 1 7. PRINTER. SHOWFILE. NOPRINTER. .OPTION " PRINTER 1 0.END..TO SHOWTEXT. PRINT.MEM 8192 ( .EXAMINE :ENDBUF ) + 256 * ( .EXA MINE :ENDBUF + 1 ).END..TO SHOWFILE :FIL E. READTEXT :FILE. SHOWTEXT.END..TO READ TEXT :FILE. .OPTION "READ 0 1. READ :FIL E. .OPTION "READ 0 0.END..TO SAVETEXT :F ILE. .OPTION "SAVE 0 1. SAVE :FILE. .OPT ION "SAVE 0 0.END..MAKE "ENDBUF (86).
> CLICK IMAGE PREVIEW FOR FULL MODAL