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

LG-PIG

FILE INFORMATION

FILENAME(S): LG-PIG

FILE TYPE(S): PRG

FILE SIZE: 429b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

9e080e533cc8961891ce58fa293fe9bc3eb04e537484046695bb866dc200d363

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-PIG PRG DuncanTwain 22 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 50 49 47  0D 20 50 52 20 5B 5D 0D  |. TO PIG. PR [].|
00000010: 20 50 52 20 5B 50 4C 45  41 53 45 20 54 59 50 45  | PR [PLEASE TYPE|
00000020: 20 49 4E 20 41 20 53 45  4E 54 45 4E 43 45 5D 0D  | IN A SENTENCE].|
00000030: 20 50 52 20 50 49 47 53  45 4E 54 20 52 45 51 55  | PR PIGSENT REQU|
00000040: 45 53 54 0D 45 4E 44 0D  0D 54 4F 20 48 45 4C 50  |EST.END..TO HELP|
00000050: 0D 20 50 52 49 4E 54 20  5B 54 59 50 45 20 50 49  |. PRINT [TYPE PI|
00000060: 47 5D 0D 45 4E 44 0D 0D  54 4F 20 56 4F 57 45 4C  |G].END..TO VOWEL|
00000070: 3F 20 3A 4C 45 54 54 45  52 0D 20 4F 55 54 50 55  |? :LETTER. OUTPU|
00000080: 54 20 4D 45 4D 42 45 52  3F 20 3A 4C 45 54 54 45  |T MEMBER? :LETTE|
00000090: 52 20 5B 41 20 45 20 49  20 4F 20 55 20 59 5D 0D  |R [A E I O U Y].|
000000A0: 45 4E 44 0D 0D 54 4F 20  50 49 47 57 4F 52 44 20  |END..TO PIGWORD |
000000B0: 3A 57 4F 52 44 0D 20 49  46 20 56 4F 57 45 4C 3F  |:WORD. IF VOWEL?|
000000C0: 20 46 49 52 53 54 20 3A  57 4F 52 44 20 54 48 45  | FIRST :WORD THE|
000000D0: 4E 20 4F 55 54 50 55 54  20 57 4F 52 44 20 3A 57  |N OUTPUT WORD :W|
000000E0: 4F 52 44 20 22 41 59 0D  20 4F 55 54 50 55 54 20  |ORD "AY. OUTPUT |
000000F0: 50 49 47 57 4F 52 44 20  57 4F 52 44 20 28 20 42  |PIGWORD WORD ( B|
00000100: 55 54 46 49 52 53 54 20  3A 57 4F 52 44 20 29 20  |UTFIRST :WORD ) |
00000110: 28 20 46 49 52 53 54 20  3A 57 4F 52 44 20 29 0D  |( FIRST :WORD ).|
00000120: 45 4E 44 0D 0D 54 4F 20  50 49 47 53 45 4E 54 20  |END..TO PIGSENT |
00000130: 3A 4C 49 53 54 0D 20 49  46 20 3A 4C 49 53 54 20  |:LIST. IF :LIST |
00000140: 3D 20 5B 5D 20 4F 55 54  50 55 54 20 5B 5D 0D 20  |= [] OUTPUT []. |
00000150: 4F 55 54 50 55 54 20 53  45 4E 54 45 4E 43 45 20  |OUTPUT SENTENCE |
00000160: 28 20 50 49 47 57 4F 52  44 20 46 49 52 53 54 20  |( PIGWORD FIRST |
00000170: 3A 4C 49 53 54 20 29 20  28 20 50 49 47 53 45 4E  |:LIST ) ( PIGSEN|
00000180: 54 20 42 55 54 46 49 52  53 54 20 3A 4C 49 53 54  |T BUTFIRST :LIST|
00000190: 20 29 0D 45 4E 44 0D 0D  4D 41 4B 45 20 22 53 54  | ).END..MAKE "ST|
000001A0: 41 52 54 55 50 20 5B 48  45 4C 50 5D 0D           |ARTUP [HELP].   |

. TO PIG. PR []. PR [PLEASE TYPE IN A SE
NTENCE]. PR PIGSENT REQUEST.END..TO HELP
. PRINT [TYPE PIG].END..TO VOWEL? :LETTE
R. OUTPUT MEMBER? :LETTER [A E I O U Y].
END..TO PIGWORD :WORD. IF VOWEL? FIRST :
WORD THEN OUTPUT WORD :WORD "AY. OUTPUT 
PIGWORD WORD ( BUTFIRST :WORD ) ( FIRST 
:WORD ).END..TO PIGSENT :LIST. IF :LIST 
= [] OUTPUT []. OUTPUT SENTENCE ( PIGWOR
D FIRST :LIST ) ( PIGSENT BUTFIRST :LIST
 ).END..MAKE "STARTUP [HELP].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL