TESTPROCS.LOGO

FILE INFORMATION

FILENAME(S): TESTPROCS.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.2K

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

APPEARS ON: 1 disk(s)

FILE HASH

2b78d1ac30c5b4c2d7e0162f4872a39b5a4812daef4d2149b6547dc262737a19

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CBM 64 LOGO	TESTPROCS.LOGO	PRG	DuncanTwain	6	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 30 54 4F 20 50 52 4F  55 54 20 3A 53 45 4E 54  |.0TO PROUT :SENT|
00000010: 45 4E 43 45 0D 20 49 46  20 3A 53 45 4E 54 45 4E  |ENCE. IF :SENTEN|
00000020: 43 45 20 3D 20 5B 5D 20  53 54 4F 50 0D 20 28 20  |CE = [] STOP. ( |
00000030: 50 52 49 4E 54 31 20 46  4C 49 50 20 46 49 52 53  |PRINT1 FLIP FIRS|
00000040: 54 20 3A 53 45 4E 54 45  4E 43 45 20 22 27 20 27  |T :SENTENCE "' '|
00000050: 20 29 0D 20 50 52 4F 55  54 20 42 55 54 46 49 52  | ). PROUT BUTFIR|
00000060: 53 54 20 3A 53 45 4E 54  45 4E 43 45 0D 45 4E 44  |ST :SENTENCE.END|
00000070: 0D 0D 54 4F 20 46 4C 49  50 20 3A 57 4F 52 44 0D  |..TO FLIP :WORD.|
00000080: 20 49 46 20 3A 57 4F 52  44 20 3D 20 22 20 53 54  | IF :WORD = " ST|
00000090: 4F 50 0D 20 49 46 20 4D  45 4D 42 45 52 3F 20 46  |OP. IF MEMBER? F|
000000A0: 49 52 53 54 20 3A 57 4F  52 44 20 5B 41 20 45 20  |IRST :WORD [A E |
000000B0: 49 20 4F 20 55 5D 20 4F  55 54 50 55 54 20 57 4F  |I O U] OUTPUT WO|
000000C0: 52 44 20 3A 57 4F 52 44  20 22 41 59 0D 20 4F 55  |RD :WORD "AY. OU|
000000D0: 54 50 55 54 20 46 4C 49  50 20 57 4F 52 44 20 42  |TPUT FLIP WORD B|
000000E0: 46 20 3A 57 4F 52 44 20  46 49 52 53 54 20 3A 57  |F :WORD FIRST :W|
000000F0: 4F 52 44 0D 45 4E 44 0D  0D 54 4F 20 50 49 47 0D  |ORD.END..TO PIG.|
00000100: 20 50 52 20 5B 54 59 50  45 20 49 4E 20 41 20 53  | PR [TYPE IN A S|
00000110: 45 4E 54 45 4E 43 45 5D  0D 20 50 52 4F 55 54 20  |ENTENCE]. PROUT |
00000120: 52 45 51 55 45 53 54 0D  45 4E 44 0D 0D 54 4F 20  |REQUEST.END..TO |
00000130: 46 4C 4F 50 20 3A 58 0D  20 49 46 20 3A 58 20 3D  |FLOP :X. IF :X =|
00000140: 20 31 36 20 53 54 4F 50  0D 20 42 47 20 3A 58 0D  | 16 STOP. BG :X.|
00000150: 20 46 4C 4F 50 20 3A 58  20 2B 20 31 0D 45 4E 44  | FLOP :X + 1.END|
00000160: 0D 0D 54 4F 20 42 4F 41  54 0D 20 48 55 4C 4C 0D  |..TO BOAT. HULL.|
00000170: 20 4D 41 53 54 0D 20 53  41 49 4C 0D 45 4E 44 0D  | MAST. SAIL.END.|
00000180: 0D 54 4F 20 4D 59 53 54  45 52 59 20 3A 58 0D 20  |.TO MYSTERY :X. |
00000190: 49 46 20 3A 58 20 3D 20  30 20 54 48 45 4E 20 53  |IF :X = 0 THEN S|
000001A0: 54 4F 50 0D 20 4D 59 53  54 45 52 59 20 3A 58 20  |TOP. MYSTERY :X |
000001B0: 2D 20 31 0D 20 50 52 20  3A 58 0D 45 4E 44 0D 0D  |- 1. PR :X.END..|
000001C0: 54 4F 20 53 51 20 3A 44  49 53 54 0D 20 52 45 50  |TO SQ :DIST. REP|
000001D0: 45 41 54 20 34 20 5B 46  44 20 3A 44 49 53 54 20  |EAT 4 [FD :DIST |
000001E0: 52 54 20 39 30 5D 0D 45  4E 44 0D 0D 54 4F 20 53  |RT 90].END..TO S|
000001F0: 50 49 4E 0D 20 52 45 50  45 41 54 20 31 32 20 5B  |PIN. REPEAT 12 [|
00000200: 53 51 55 41 52 45 20 52  54 20 31 35 5D 0D 45 4E  |SQUARE RT 15].EN|
00000210: 44 0D 0D 54 4F 20 4D 41  4E 0D 20 48 45 41 44 0D  |D..TO MAN. HEAD.|
00000220: 20 42 4F 44 59 0D 20 4C  45 47 53 0D 45 4E 44 0D  | BODY. LEGS.END.|
00000230: 0D 54 4F 20 53 51 55 41  52 45 20 3A 44 49 53 54  |.TO SQUARE :DIST|
00000240: 20 3A 44 45 50 54 48 0D  20 49 46 20 3A 44 45 50  | :DEPTH. IF :DEP|
00000250: 54 48 20 3D 20 30 20 53  54 4F 50 0D 20 52 45 50  |TH = 0 STOP. REP|
00000260: 45 41 54 20 34 20 5B 46  44 20 3A 44 49 53 54 20  |EAT 4 [FD :DIST |
00000270: 52 54 20 39 30 5D 0D 20  53 51 55 41 52 45 20 3A  |RT 90]. SQUARE :|
00000280: 44 49 53 54 20 2F 20 32  20 3A 44 45 50 54 48 20  |DIST / 2 :DEPTH |
00000290: 2D 20 31 0D 45 4E 44 0D  0D 54 4F 20 42 4F 44 59  |- 1.END..TO BODY|
000002A0: 0D 20 42 4B 20 32 35 0D  20 56 45 45 0D 20 42 4B  |. BK 25. VEE. BK|
000002B0: 20 32 35 0D 45 4E 44 0D  0D 54 4F 20 4C 45 47 53  | 25.END..TO LEGS|
000002C0: 0D 20 52 54 20 31 38 30  0D 20 56 45 45 0D 45 4E  |. RT 180. VEE.EN|
000002D0: 44 0D 0D 54 4F 20 56 45  45 0D 20 52 54 20 34 35  |D..TO VEE. RT 45|
000002E0: 0D 20 46 44 20 32 35 0D  20 42 4B 20 32 35 0D 20  |. FD 25. BK 25. |
000002F0: 4C 54 20 39 30 0D 20 46  44 20 32 35 20 42 4B 20  |LT 90. FD 25 BK |
00000300: 32 35 0D 20 52 54 20 34  35 0D 45 4E 44 0D 0D 54  |25. RT 45.END..T|
00000310: 4F 20 43 4F 55 4E 54 44  4F 57 4E 20 3A 58 0D 20  |O COUNTDOWN :X. |
00000320: 49 46 20 3A 58 20 3D 20  30 20 54 48 45 4E 20 53  |IF :X = 0 THEN S|
00000330: 54 4F 50 0D 20 50 52 49  4E 54 20 3A 58 0D 20 43  |TOP. PRINT :X. C|
00000340: 4F 55 4E 54 44 4F 57 4E  20 3A 58 20 2D 20 31 0D  |OUNTDOWN :X - 1.|
00000350: 45 4E 44 0D 0D 54 4F 20  4D 59 53 54 45 52 59 20  |END..TO MYSTERY |
00000360: 3A 58 0D 20 49 46 20 3A  58 20 3D 20 30 20 54 48  |:X. IF :X = 0 TH|
00000370: 45 4E 20 53 54 4F 50 0D  20 4D 59 53 54 45 52 59  |EN STOP. MYSTERY|
00000380: 20 3A 58 20 2D 20 31 0D  20 50 52 20 3A 58 0D 45  | :X - 1. PR :X.E|
00000390: 4E 44 0D 0D 54 4F 20 53  51 55 41 52 45 31 20 3A  |ND..TO SQUARE1 :|
000003A0: 44 49 53 54 20 3A 44 45  50 54 48 0D 20 49 46 20  |DIST :DEPTH. IF |
000003B0: 3A 44 45 50 54 48 20 3D  20 30 20 53 54 4F 50 0D  |:DEPTH = 0 STOP.|
000003C0: 20 52 45 50 45 41 54 20  34 20 5B 46 44 20 3A 44  | REPEAT 4 [FD :D|
000003D0: 49 53 54 20 53 51 55 41  52 45 31 20 3A 44 49 53  |IST SQUARE1 :DIS|
000003E0: 54 20 2F 20 32 20 3A 44  45 50 54 48 20 2D 20 31  |T / 2 :DEPTH - 1|
000003F0: 20 52 54 20 39 30 5D 0D  45 4E 44 0D 0D 54 4F 20  | RT 90].END..TO |
00000400: 50 4F 4C 59 20 3A 44 49  53 54 20 3A 41 4E 47 4C  |POLY :DIST :ANGL|
00000410: 45 0D 20 49 46 20 3A 44  49 53 54 20 3E 20 31 35  |E. IF :DIST > 15|
00000420: 30 20 53 54 4F 50 0D 20  46 44 20 3A 44 49 53 54  |0 STOP. FD :DIST|
00000430: 0D 20 52 54 20 3A 41 4E  47 4C 45 0D 20 50 4F 4C  |. RT :ANGLE. POL|
00000440: 59 20 3A 44 49 53 54 20  2B 20 35 20 3A 41 4E 47  |Y :DIST + 5 :ANG|
00000450: 4C 45 0D 45 4E 44 0D 0D  54 4F 20 48 45 41 44 0D  |LE.END..TO HEAD.|
00000460: 20 53 51 20 35 30 0D 20  52 54 20 39 30 0D 20 46  | SQ 50. RT 90. F|
00000470: 44 20 32 35 0D 20 4C 54  20 39 30 0D 45 4E 44 0D  |D 25. LT 90.END.|
00000480: 0D 54 4F 20 44 45 4D 4F  50 4F 4C 59 0D 20 44 52  |.TO DEMOPOLY. DR|
00000490: 41 57 0D 20 50 4F 4C 59  20 35 20 35 30 20 2B 20  |AW. POLY 5 50 + |
000004A0: 52 41 4E 44 4F 4D 20 38  30 0D 20 44 45 4D 4F 50  |RANDOM 80. DEMOP|
000004B0: 4F 4C 59 0D 45 4E 44 0D  0D                       |OLY.END..       |

.0TO PROUT :SENTENCE. IF :SENTENCE = [] 
STOP. ( PRINT1 FLIP FIRST :SENTENCE "' '
 ). PROUT BUTFIRST :SENTENCE.END..TO FLI
P :WORD. IF :WORD = " STOP. IF MEMBER? F
IRST :WORD [A E I O U] OUTPUT WORD :WORD
 "AY. OUTPUT FLIP WORD BF :WORD FIRST :W
ORD.END..TO PIG. PR [TYPE IN A SENTENCE]
. PROUT REQUEST.END..TO FLOP :X. IF :X =
 16 STOP. BG :X. FLOP :X + 1.END..TO BOA
T. HULL. MAST. SAIL.END..TO MYSTERY :X. 
IF :X = 0 THEN STOP. MYSTERY :X - 1. PR 
:X.END..TO SQ :DIST. REPEAT 4 [FD :DIST 
RT 90].END..TO SPIN. REPEAT 12 [SQUARE R
T 15].END..TO MAN. HEAD. BODY. LEGS.END.
.TO SQUARE :DIST :DEPTH. IF :DEPTH = 0 S
TOP. REPEAT 4 [FD :DIST RT 90]. SQUARE :
DIST / 2 :DEPTH - 1.END..TO BODY. BK 25.
 VEE. BK 25.END..TO LEGS. RT 180. VEE.EN
D..TO VEE. RT 45. FD 25. BK 25. LT 90. F
D 25 BK 25. RT 45.END..TO COUNTDOWN :X. 
IF :X = 0 THEN STOP. PRINT :X. COUNTDOWN
 :X - 1.END..TO MYSTERY :X. IF :X = 0 TH
EN STOP. MYSTERY :X - 1. PR :X.END..TO S
QUARE1 :DIST :DEPTH. IF :DEPTH = 0 STOP.
 REPEAT 4 [FD :DIST SQUARE1 :DIST / 2 :D
EPTH - 1 RT 90].END..TO POLY :DIST :ANGL
E. IF :DIST > 150 STOP. FD :DIST. RT :AN
GLE. POLY :DIST + 5 :ANGLE.END..TO HEAD.
 SQ 50. RT 90. FD 25. LT 90.END..TO DEMO
POLY. DRAW. POLY 5 50 + RANDOM 80. DEMOP
OLY.END..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL