_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

PIG.LOGO

FILE INFORMATION

FILENAME(S): PIG.LOGO

FILE TYPE(S): PRG

FILE SIZE: 404b

FIRST SEEN: 2025-11-30 16:23:23

APPEARS ON: 1 disk(s)

FILE HASH

6f9466a61cb1f4f82d2ddf096f8f74c9c28406934e9af21959915fbcfa32a5b2

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PROGRAMM 127 2 PIG.LOGO PRG BrainSkull, Michi Christian 20 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 50 49 47  53 45 4E 54 20 3A 4C 49  |. TO PIGSENT :LI|
00000010: 53 54 0D 20 49 46 20 3A  4C 49 53 54 20 3D 20 5B  |ST. IF :LIST = [|
00000020: 5D 20 4F 55 54 50 55 54  20 5B 5D 0D 20 4F 55 54  |] OUTPUT []. OUT|
00000030: 50 55 54 20 53 45 4E 54  45 4E 43 45 20 28 20 50  |PUT SENTENCE ( P|
00000040: 49 47 57 4F 52 44 20 46  49 52 53 54 20 3A 4C 49  |IGWORD FIRST :LI|
00000050: 53 54 20 29 20 28 20 50  49 47 53 45 4E 54 20 42  |ST ) ( PIGSENT B|
00000060: 55 54 46 49 52 53 54 20  3A 4C 49 53 54 20 29 0D  |UTFIRST :LIST ).|
00000070: 45 4E 44 0D 0D 54 4F 20  50 49 47 57 4F 52 44 20  |END..TO PIGWORD |
00000080: 3A 57 4F 52 44 0D 20 49  46 20 56 4F 57 45 4C 3F  |:WORD. IF VOWEL?|
00000090: 20 46 49 52 53 54 20 3A  57 4F 52 44 20 54 48 45  | FIRST :WORD THE|
000000A0: 4E 20 4F 55 54 50 55 54  20 57 4F 52 44 20 3A 57  |N OUTPUT WORD :W|
000000B0: 4F 52 44 20 22 41 59 0D  20 4F 55 54 50 55 54 20  |ORD "AY. OUTPUT |
000000C0: 50 49 47 57 4F 52 44 20  57 4F 52 44 20 28 20 42  |PIGWORD WORD ( B|
000000D0: 55 54 46 49 52 53 54 20  3A 57 4F 52 44 20 29 20  |UTFIRST :WORD ) |
000000E0: 28 20 46 49 52 53 54 20  3A 57 4F 52 44 20 29 0D  |( FIRST :WORD ).|
000000F0: 45 4E 44 0D 0D 54 4F 20  56 4F 57 45 4C 3F 20 3A  |END..TO VOWEL? :|
00000100: 4C 45 54 54 45 52 0D 20  4F 55 54 50 55 54 20 4D  |LETTER. OUTPUT M|
00000110: 45 4D 42 45 52 3F 20 3A  4C 45 54 54 45 52 20 22  |EMBER? :LETTER "|
00000120: 41 45 49 4F 55 59 0D 45  4E 44 0D 0D 54 4F 20 48  |AEIOUY.END..TO H|
00000130: 45 4C 50 0D 20 50 52 49  4E 54 20 5B 54 59 50 45  |ELP. PRINT [TYPE|
00000140: 20 50 49 47 5D 0D 45 4E  44 0D 0D 54 4F 20 50 49  | PIG].END..TO PI|
00000150: 47 0D 20 50 52 20 5B 5D  0D 20 50 52 20 5B 50 4C  |G. PR []. PR [PL|
00000160: 45 41 53 45 20 54 59 50  45 20 49 4E 20 41 20 53  |EASE TYPE IN A S|
00000170: 45 4E 54 45 4E 43 45 5D  0D 20 50 52 20 50 49 47  |ENTENCE]. PR PIG|
00000180: 53 45 4E 54 20 52 45 51  55 45 53 54 0D 45 4E 44  |SENT REQUEST.END|
00000190: 0D 0D FF 20                                       |...             |

. TO PIGSENT :LIST. IF :LIST = [] OUTPUT
 []. OUTPUT SENTENCE ( PIGWORD FIRST :LI
ST ) ( PIGSENT BUTFIRST :LIST ).END..TO 
PIGWORD :WORD. IF VOWEL? FIRST :WORD THE
N OUTPUT WORD :WORD "AY. OUTPUT PIGWORD 
WORD ( BUTFIRST :WORD ) ( FIRST :WORD ).
END..TO VOWEL? :LETTER. OUTPUT MEMBER? :
LETTER "AEIOUY.END..TO HELP. PRINT [TYPE
 PIG].END..TO PIG. PR []. PR [PLEASE TYP
E IN A SENTENCE]. PR PIGSENT REQUEST.END
...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL