ETRIANGLE
FILE INFORMATION
FILENAME(S): ETRIANGLE
FILE TYPE(S): SEQ
FILE SIZE: 646b
FIRST SEEN: 2025-11-30 21:07:03
APPEARS ON: 1 disk(s)
FILE HASH
fa49cf19f2bc52dc5891e3a99f6d1addcdfaf1f726d3ef5500f79b47f14ebe13
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY PET 02 | ETRIANGLE | SEQ | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 20 54 52 49 41 4E 47 4C 45 3A 0D 20 20 |... TRIANGLE:. | 00000010: 20 20 20 74 65 78 74 20 76 61 72 20 54 45 58 54 | text var TEXT| 00000020: 20 3B 0D 20 20 20 20 20 74 65 78 74 20 76 61 72 | ;. text var| 00000030: 20 42 55 46 46 20 3A 3A 20 22 22 20 3B 0D 20 20 | BUFF :: "" ;. | 00000040: 20 20 20 52 45 41 44 20 54 45 58 54 20 3B 0D 20 | READ TEXT ;. | 00000050: 20 20 20 20 55 50 53 4C 4F 50 45 20 3B 0D 20 20 | UPSLOPE ;. | 00000060: 20 20 20 44 4F 57 4E 53 4C 4F 50 45 20 2E 0D 0D | DOWNSLOPE ...| 00000070: 0D 0D 20 50 52 4F 47 52 41 4D 3A 0D 20 20 20 20 |.. PROGRAM:. | 00000080: 20 54 52 49 41 4E 47 4C 45 20 2E 0D 0D 0D 0D 20 | TRIANGLE ..... | 00000090: 52 45 41 44 20 54 45 58 54 3A 0D 20 20 20 20 20 |READ TEXT:. | 000000A0: 4C 49 4E 45 20 28 20 31 20 29 20 3B 0D 20 20 20 |LINE ( 1 ) ;. | 000000B0: 20 20 50 55 54 20 28 20 22 74 45 58 54 2C 50 4C | PUT ( "tEXT,PL| 000000C0: 45 41 53 45 3F 22 20 29 20 3B 0D 20 20 20 20 20 |EASE?" ) ;. | 000000D0: 4C 49 4E 45 20 28 20 31 20 29 20 3B 0D 20 20 20 |LINE ( 1 ) ;. | 000000E0: 20 20 47 45 54 20 28 20 54 45 58 54 20 29 20 3B | GET ( TEXT ) ;| 000000F0: 0D 20 20 20 20 20 4C 49 4E 45 20 28 20 33 20 29 |. LINE ( 3 )| 00000100: 20 2E 0D 0D 0D 0D 20 55 50 53 4C 4F 50 45 3A 0D | ..... UPSLOPE:.| 00000110: 20 20 20 20 20 77 68 69 6C 65 0D 20 20 20 20 20 | while. | 00000120: 20 20 54 45 58 54 20 3C 3E 20 22 22 0D 20 20 20 | TEXT <> "". | 00000130: 20 20 72 65 70 0D 20 20 20 20 20 20 20 4D 4F 56 | rep. MOV| 00000140: 45 20 54 4F 20 42 55 46 46 20 3B 0D 20 20 20 20 |E TO BUFF ;. | 00000150: 20 20 20 57 52 49 54 45 20 42 55 46 46 0D 20 20 | WRITE BUFF. | 00000160: 20 20 20 65 6E 64 72 65 70 20 2E 0D 0D 0D 0D 20 | endrep ..... | 00000170: 44 4F 57 4E 53 4C 4F 50 45 3A 0D 20 20 20 20 20 |DOWNSLOPE:. | 00000180: 77 68 69 6C 65 0D 20 20 20 20 20 20 20 42 55 46 |while. BUF| 00000190: 46 20 3C 3E 20 22 22 0D 20 20 20 20 20 72 65 70 |F <> "". rep| 000001A0: 0D 20 20 20 20 20 20 20 4D 4F 56 45 20 46 52 4F |. MOVE FRO| 000001B0: 4D 20 42 55 46 46 20 3B 0D 20 20 20 20 20 20 20 |M BUFF ;. | 000001C0: 57 52 49 54 45 20 42 55 46 46 0D 20 20 20 20 20 |WRITE BUFF. | 000001D0: 65 6E 64 72 65 70 20 2E 0D 0D 0D 0D 20 4D 4F 56 |endrep ..... MOV| 000001E0: 45 20 54 4F 20 42 55 46 46 3A 0D 20 20 20 20 20 |E TO BUFF:. | 000001F0: 42 55 46 46 20 69 6E 63 72 20 28 20 68 65 61 64 |BUFF incr ( head| 00000200: 20 54 45 58 54 20 29 20 3B 0D 20 20 20 20 20 54 | TEXT ) ;. T| 00000210: 45 58 54 20 3A 3D 20 74 61 69 6C 20 54 45 58 54 |EXT := tail TEXT| 00000220: 20 2E 0D 0D 0D 0D 20 57 52 49 54 45 20 42 55 46 | ..... WRITE BUF| 00000230: 46 3A 0D 20 20 20 20 20 50 55 54 20 28 20 42 55 |F:. PUT ( BU| 00000240: 46 46 20 29 20 3B 0D 20 20 20 20 20 4C 49 4E 45 |FF ) ;. LINE| 00000250: 20 28 20 31 20 29 20 2E 0D 0D 0D 0D 20 4D 4F 56 | ( 1 ) ..... MOV| 00000260: 45 20 46 52 4F 4D 20 42 55 46 46 3A 0D 20 20 20 |E FROM BUFF:. | 00000270: 20 20 42 55 46 46 20 3A 3D 20 74 61 69 6C 20 42 | BUFF := tail B| 00000280: 55 46 46 20 2E 0D |UFF .. |
... TRIANGLE:. TEXT VAR TEXT ;.
TEXT VAR BUFF :: "" ;. READ TEXT ;.
UPSLOPE ;. DOWNSLOPE ..... PROGR
AM:. TRIANGLE ..... READ TEXT:.
LINE ( 1 ) ;. PUT ( "TEXT,PLEASE?" )
;. LINE ( 1 ) ;. GET ( TEXT ) ;
. LINE ( 3 ) ..... UPSLOPE:. WHI
LE. TEXT <> "". REP. MOV
E TO BUFF ;. WRITE BUFF. ENDRE
P ..... DOWNSLOPE:. WHILE. BUF
F <> "". REP. MOVE FROM BUFF ;
. WRITE BUFF. ENDREP ..... MOV
E TO BUFF:. BUFF INCR ( HEAD TEXT )
;. TEXT := TAIL TEXT ..... WRITE BUF
F:. PUT ( BUFF ) ;. LINE ( 1 ) .
.... MOVE FROM BUFF:. BUFF := TAIL B
UFF ..
> CLICK IMAGE PREVIEW FOR FULL MODAL