ORDER4.LOGO
FILE INFORMATION
FILENAME(S): ORDER4.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 16:23:23
APPEARS ON: 1 disk(s)
FILE HASH
38a0235b59d822a788b9b73b107bd81656d4f5b3e1780a20c3f2406c68f53087
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROGRAMM 127 2 | ORDER4.LOGO | PRG | BrainSkull, Michi Christian | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 44 4F 20 3A 53 54 45 50 0D 20 50 |. TO DO :STEP. P| 00000010: 45 4E 55 50 0D 20 46 4F 52 57 41 52 44 20 32 35 |ENUP. FORWARD 25| 00000020: 0D 20 4C 45 46 54 20 39 30 0D 20 46 4F 52 57 41 |. LEFT 90. FORWA| 00000030: 52 44 20 32 35 0D 20 52 49 47 48 54 20 39 30 0D |RD 25. RIGHT 90.| 00000040: 20 50 45 4E 44 4F 57 4E 0D 20 4F 52 44 45 52 34 | PENDOWN. ORDER4| 00000050: 20 3A 53 54 45 50 0D 45 4E 44 0D 0D 54 4F 20 4F | :STEP.END..TO O| 00000060: 52 44 45 52 34 20 3A 53 54 45 50 0D 20 4C 45 46 |RDER4 :STEP. LEF| 00000070: 54 20 39 30 20 46 4F 52 57 41 52 44 20 3A 53 54 |T 90 FORWARD :ST| 00000080: 45 50 20 4C 45 46 54 20 39 30 20 46 4F 52 57 41 |EP LEFT 90 FORWA| 00000090: 52 44 20 3A 53 54 45 50 20 52 49 47 48 54 20 39 |RD :STEP RIGHT 9| 000000A0: 30 20 46 4F 52 57 41 52 44 20 3A 53 54 45 50 20 |0 FORWARD :STEP | 000000B0: 4C 45 46 54 20 39 30 20 46 4F 52 57 41 52 44 20 |LEFT 90 FORWARD | 000000C0: 3A 53 54 45 50 20 4C 45 46 54 20 39 30 20 46 4F |:STEP LEFT 90 FO| 000000D0: 52 57 41 52 44 20 3A 53 54 45 50 20 52 49 47 48 |RWARD :STEP RIGH| 000000E0: 54 20 39 30 20 46 4F 52 57 41 52 44 20 3A 53 54 |T 90 FORWARD :ST| 000000F0: 45 50 20 52 49 47 48 54 20 39 30 20 46 4F 52 57 |EP RIGHT 90 FORW| 00000100: 41 52 44 20 3A 53 54 45 50 20 4C 45 46 54 20 39 |ARD :STEP LEFT 9| 00000110: 30 20 46 4F 52 57 41 52 44 20 3A 53 54 45 50 20 |0 FORWARD :STEP | 00000120: 4C 45 46 54 20 39 30 20 46 4F 52 57 41 52 44 20 |LEFT 90 FORWARD | 00000130: 3A 53 54 45 50 20 4C 45 46 54 20 39 30 20 46 4F |:STEP LEFT 90 FO| 00000140: 52 57 41 52 44 20 3A 53 54 45 50 20 52 49 47 48 |RWARD :STEP RIGH| 00000150: 54 20 39 30 20 46 4F 52 57 41 52 44 20 3A 53 54 |T 90 FORWARD :ST| 00000160: 45 50 20 52 49 47 48 54 20 39 30 20 46 4F 52 57 |EP RIGHT 90 FORW| 00000170: 41 52 44 20 3A 53 54 45 50 20 4C 45 46 54 20 39 |ARD :STEP LEFT 9| 00000180: 30 20 46 4F 52 57 41 52 44 20 3A 53 54 45 50 20 |0 FORWARD :STEP | 00000190: 52 49 47 48 54 20 39 30 20 46 4F 52 57 41 52 44 |RIGHT 90 FORWARD| 000001A0: 20 3A 53 54 45 50 20 52 49 47 48 54 20 39 30 20 | :STEP RIGHT 90 | 000001B0: 46 4F 52 57 41 52 44 20 3A 53 54 45 50 0D 20 4F |FORWARD :STEP. O| 000001C0: 52 44 45 52 34 20 3A 53 54 45 50 20 2B 20 28 20 |RDER4 :STEP + ( | 000001D0: 3A 53 54 45 50 20 2F 20 35 30 20 29 0D 45 4E 44 |:STEP / 50 ).END| 000001E0: 0D 0D 54 4F 20 53 41 56 45 54 45 58 54 20 3A 46 |..TO SAVETEXT :F| 000001F0: 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 |ILE. .OPTION "SA| 00000200: 56 45 20 30 20 31 0D 20 53 41 56 45 20 3A 46 49 |VE 0 1. SAVE :FI| 00000210: 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 |LE. .OPTION "SAV| 00000220: 45 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 52 45 |E 0 0.END..TO RE| 00000230: 41 44 54 45 58 54 20 3A 46 49 4C 45 0D 20 2E 4F |ADTEXT :FILE. .O| 00000240: 50 54 49 4F 4E 20 22 52 45 41 44 20 30 20 31 0D |PTION "READ 0 1.| 00000250: 20 52 45 41 44 20 3A 46 49 4C 45 0D 20 2E 4F 50 | READ :FILE. .OP| 00000260: 54 49 4F 4E 20 22 52 45 41 44 20 30 20 30 0D 45 |TION "READ 0 0.E| 00000270: 4E 44 0D 0D 54 4F 20 53 48 4F 57 46 49 4C 45 20 |ND..TO SHOWFILE | 00000280: 3A 46 49 4C 45 0D 20 52 45 41 44 54 45 58 54 20 |:FILE. READTEXT | 00000290: 3A 46 49 4C 45 0D 20 53 48 4F 57 54 45 58 54 0D |:FILE. SHOWTEXT.| 000002A0: 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 46 49 4C |END..TO PRINTFIL| 000002B0: 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E |E :FILE. .OPTION| 000002C0: 20 22 50 52 49 4E 54 45 52 20 31 20 37 0D 20 50 | "PRINTER 1 7. P| 000002D0: 52 49 4E 54 45 52 0D 20 53 48 4F 57 46 49 4C 45 |RINTER. SHOWFILE| 000002E0: 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 2E 4F 50 |. NOPRINTER. .OP| 000002F0: 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 |TION "PRINTER 1 | 00000300: 30 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F 57 54 45 |0.END..TO SHOWTE| 00000310: 58 54 0D 20 50 52 49 4E 54 2E 4D 45 4D 20 38 31 |XT. PRINT.MEM 81| 00000320: 39 32 20 28 20 2E 45 58 41 4D 49 4E 45 20 3A 45 |92 ( .EXAMINE :E| 00000330: 4E 44 42 55 46 20 29 20 2B 20 32 35 36 20 2A 20 |NDBUF ) + 256 * | 00000340: 28 20 2E 45 58 41 4D 49 4E 45 20 3A 45 4E 44 42 |( .EXAMINE :ENDB| 00000350: 55 46 20 2B 20 31 20 29 0D 45 4E 44 0D 0D 54 4F |UF + 1 ).END..TO| 00000360: 20 50 52 49 4E 54 54 45 58 54 0D 20 2E 4F 50 54 | PRINTTEXT. .OPT| 00000370: 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 37 |ION "PRINTER 1 7| 00000380: 0D 20 50 52 49 4E 54 45 52 0D 20 53 48 4F 57 54 |. PRINTER. SHOWT| 00000390: 45 58 54 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 |EXT. NOPRINTER. | 000003A0: 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 |.OPTION "PRINTER| 000003B0: 20 31 20 30 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 | 1 0.END..TO PRI| 000003C0: 4E 54 2E 4D 45 4D 20 3A 46 52 4F 4D 20 3A 45 4E |NT.MEM :FROM :EN| 000003D0: 44 0D 20 49 46 20 3A 46 52 4F 4D 20 3D 20 3A 45 |D. IF :FROM = :E| 000003E0: 4E 44 20 53 54 4F 50 0D 20 50 52 49 4E 54 31 20 |ND STOP. PRINT1 | 000003F0: 43 48 41 52 20 2E 45 58 41 4D 49 4E 45 20 3A 46 |CHAR .EXAMINE :F| 00000400: 52 4F 4D 0D 20 50 52 49 4E 54 2E 4D 45 4D 20 3A |ROM. PRINT.MEM :| 00000410: 46 52 4F 4D 20 2B 20 31 20 3A 45 4E 44 0D 45 4E |FROM + 1 :END.EN| 00000420: 44 0D 0D 4D 41 4B 45 20 22 45 4E 44 42 55 46 20 |D..MAKE "ENDBUF | 00000430: 28 38 36 29 0D |(86). |
. TO DO :STEP. PENUP. FORWARD 25. LEFT 9 0. FORWARD 25. RIGHT 90. PENDOWN. ORDER4 :STEP.END..TO ORDER4 :STEP. LEFT 90 FOR WARD :STEP LEFT 90 FORWARD :STEP RIGHT 9 0 FORWARD :STEP LEFT 90 FORWARD :STEP LE FT 90 FORWARD :STEP RIGHT 90 FORWARD :ST EP RIGHT 90 FORWARD :STEP LEFT 90 FORWAR D :STEP LEFT 90 FORWARD :STEP LEFT 90 FO RWARD :STEP RIGHT 90 FORWARD :STEP RIGHT 90 FORWARD :STEP LEFT 90 FORWARD :STEP RIGHT 90 FORWARD :STEP RIGHT 90 FORWARD :STEP. ORDER4 :STEP + ( :STEP / 50 ).END ..TO SAVETEXT :FILE. .OPTION "SAVE 0 1. SAVE :FILE. .OPTION "SAVE 0 0.END..TO RE ADTEXT :FILE. .OPTION "READ 0 1. READ :F ILE. .OPTION "READ 0 0.END..TO SHOWFILE :FILE. READTEXT :FILE. SHOWTEXT.END..TO PRINTFILE :FILE. .OPTION "PRINTER 1 7. P RINTER. SHOWFILE. NOPRINTER. .OPTION "PR INTER 1 0.END..TO SHOWTEXT. PRINT.MEM 81 92 ( .EXAMINE :ENDBUF ) + 256 * ( .EXAMI NE :ENDBUF + 1 ).END..TO PRINTTEXT. .OPT ION "PRINTER 1 7. PRINTER. SHOWTEXT. NOP RINTER. .OPTION "PRINTER 1 0.END..TO PRI NT.MEM :FROM :END. IF :FROM = :END STOP. PRINT1 CHAR .EXAMINE :FROM. PRINT.MEM : FROM + 1 :END.END..MAKE "ENDBUF (86).
> CLICK IMAGE PREVIEW FOR FULL MODAL