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

PIG.LOGO

FILE INFORMATION

FILENAME(S): PIG.LOGO

FILE TYPE(S): PRG

FILE SIZE: 432b

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

62146492cebacbff0a3b910a99404c59e7b58894b459250d5e13ba013a7d03b9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NG USERS 11A PIG.LOGO PRG Treasure Chest - OzzyC64 19 9 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 5B  |EMBER? :LETTER [|
00000120: 41 20 45 20 49 20 4F 20  55 20 59 5D 0D 45 4E 44  |A E I O U Y].END|
00000130: 0D 0D 54 4F 20 48 45 4C  50 0D 20 50 52 49 4E 54  |..TO HELP. PRINT|
00000140: 20 5B 54 59 50 45 20 50  49 47 5D 0D 45 4E 44 0D  | [TYPE PIG].END.|
00000150: 0D 54 4F 20 50 49 47 0D  20 50 52 20 5B 5D 0D 20  |.TO PIG. PR []. |
00000160: 50 52 20 5B 50 4C 45 41  53 45 20 54 59 50 45 20  |PR [PLEASE TYPE |
00000170: 49 4E 20 41 20 53 45 4E  54 45 4E 43 45 5D 0D 20  |IN A SENTENCE]. |
00000180: 50 52 20 50 49 47 53 45  4E 54 20 52 45 51 55 45  |PR PIGSENT REQUE|
00000190: 53 54 0D 45 4E 44 0D 0D  4D 41 4B 45 20 22 53 54  |ST.END..MAKE "ST|
000001A0: 41 52 54 55 50 20 5B 48  45 4C 50 5D 0D 00 00 FF  |ARTUP [HELP]....|

. 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 [A E I O U Y].END..TO HELP. PRINT
 [TYPE PIG].END..TO PIG. PR []. PR [PLEA
SE TYPE IN A SENTENCE]. PR PIGSENT REQUE
ST.END..MAKE "STARTUP [HELP]....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL