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

ASCII INPUT

FILE INFORMATION

FILENAME(S): ASCII INPUT

FILE TYPE(S): SEQ

FILE SIZE: 402b

FIRST SEEN: 2025-11-30 18:12:10

APPEARS ON: 1 disk(s)

FILE HASH

2034a3386d4acedee13f5e042aa27e51a0aad104d70900c2a3abb6b2e8d32e1e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 65 S 1 ASCII INPUT SEQ Sailor, Ganheden 28 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 0D 35 30 30 30 30 20  51 39 24 3D 22 22 3A 55  |..50000 Q9$="":U|
00000010: 39 3D 35 33 32 38 30 3A  50 4F 4B 45 31 39 38 2C  |9=53280:POKE198,|
00000020: 30 0D 35 30 30 31 30 20  47 45 54 41 24 0D 35 30  |0.50010 GETA$.50|
00000030: 30 32 30 20 50 4F 4B 45  36 34 36 2C 52 4E 44 28  |020 POKE646,RND(|
00000040: 31 29 2A 31 35 2B 31 3A  50 52 49 4E 54 22 A4 9D  |1)*15+1:PRINT"..|
00000050: 22 3B 3A 49 46 41 24 3D  22 22 54 48 45 4E 35 30  |";:IFA$=""THEN50|
00000060: 30 31 30 0D 35 30 30 33  30 20 49 46 41 24 3D 43  |010.50030 IFA$=C|
00000070: 48 52 24 28 31 33 29 54  48 45 4E 50 52 49 4E 54  |HR$(13)THENPRINT|
00000080: 22 20 22 3A 52 45 54 55  52 4E 0D 35 30 30 34 30  |" ":RETURN.50040|
00000090: 20 49 46 28 41 24 3D 43  48 52 24 28 32 30 29 41  | IF(A$=CHR$(20)A|
000000A0: 4E 44 4C 45 4E 28 51 39  24 29 29 54 48 45 4E 51  |NDLEN(Q9$))THENQ|
000000B0: 39 24 3D 4C 45 46 54 24  28 51 39 24 2C 4C 45 4E  |9$=LEFT$(Q9$,LEN|
000000C0: 28 51 39 24 29 2D 31 29  3A 47 4F 54 4F 35 30 30  |(Q9$)-1):GOTO500|
000000D0: 38 30 0D 35 30 30 35 30  20 49 46 4C 45 4E 28 51  |80.50050 IFLEN(Q|
000000E0: 39 24 29 3E 3D 4C 39 25  54 48 45 4E 54 39 25 3D  |9$)>=L9%THENT9%=|
000000F0: 50 45 45 4B 28 55 39 29  3A 50 4F 4B 45 55 39 2C  |PEEK(U9):POKEU9,|
00000100: 31 3A 50 4F 4B 45 55 39  2C 54 39 25 3A 47 4F 54  |1:POKEU9,T9%:GOT|
00000110: 4F 35 30 30 31 30 0D 35  30 30 36 30 20 49 46 41  |O50010.50060 IFA|
00000120: 24 3C 22 20 22 4F 52 28  41 24 3E 43 48 52 24 28  |$<" "OR(A$>CHR$(|
00000130: 31 32 37 29 41 4E 44 41  24 3C 43 48 52 24 28 31  |127)ANDA$<CHR$(1|
00000140: 36 30 29 29 4F 52 41 24  3D 43 48 52 24 28 33 34  |60))ORA$=CHR$(34|
00000150: 29 54 48 45 4E 35 30 30  31 30 0D 35 30 30 37 30  |)THEN50010.50070|
00000160: 20 51 39 24 3D 51 39 24  2B 41 24 0D 35 30 30 38  | Q9$=Q9$+A$.5008|
00000170: 30 20 50 52 49 4E 54 22  05 22 41 24 3B 3A 47 4F  |0 PRINT"."A$;:GO|
00000180: 54 4F 35 30 30 31 30 0D  0A 52 45 41 44 59 2E 0D  |TO50010..READY..|
00000190: 0A 0D                                             |..              |

..50000 Q9$="":U9=53280:POKE198,0.50010 
GETA$.50020 POKE646,RND(1)*15+1:PRINT"..
";:IFA$=""THEN50010.50030 IFA$=CHR$(13)T
HENPRINT" ":RETURN.50040 IF(A$=CHR$(20)A
NDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1)
:GOTO50080.50050 IFLEN(Q9$)>=L9%THENT9%=
PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010.5
0060 IFA$<" "OR(A$>CHR$(127)ANDA$<CHR$(1
60))ORA$=CHR$(34)THEN50010.50070 Q9$=Q9$
+A$.50080 PRINT"."A$;:GOTO50010..READY..
..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL