.LINPUT.40000
FILE INFORMATION
FILENAME(S): .LINPUT.40000
FILE TYPE(S): SEQ
FILE SIZE: 594b
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
20c50e5a9942c3ab4a0c0a28487362b8be470a33ee7912c3c8ad0f0daece7e40
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU JULY 1990 | .LINPUT.40000 | SEQ | DuncanTwain, UK CD | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 34 30 30 30 30 20 52 45 4D 22 20 C9 4E 50 |..40000 REM" .NP| 00000010: 55 54 20 49 4E 24 2C 20 4C 45 4E 54 48 20 4E 49 |UT IN$, LENTH NI| 00000020: 4E 2E 20 D2 45 54 55 52 4E 20 43 4B 59 20 4C 41 |N. .ETURN CKY LA| 00000030: 53 54 20 4B 45 59 20 48 49 54 2E 20 28 C3 29 20 |ST KEY HIT. (.) | 00000040: C1 2E CD 49 4C 4C 45 54 54 2E 0D 34 30 30 32 30 |...ILLETT..40020| 00000050: 20 49 4E 24 3D 22 22 0D 34 30 30 34 30 20 41 42 | IN$="".40040 AB| 00000060: 52 54 3D 33 20 3A 52 45 4D 22 20 C3 4F 44 45 20 |RT=3 :REM" .ODE | 00000070: 46 4F 52 20 C1 42 4F 52 54 20 4B 45 59 0D 34 30 |FOR .BORT KEY.40| 00000080: 30 36 30 20 50 52 49 4E 54 22 12 20 92 9D 22 3B |060 PRINT". ..";| 00000090: 0D 34 30 30 38 30 20 47 45 54 20 42 24 3A 49 46 |.40080 GET B$:IF| 000000A0: 20 42 24 3D 22 22 20 54 48 45 4E 20 34 30 30 38 | B$="" THEN 4008| 000000B0: 30 0D 34 30 31 30 30 20 43 4B 59 3D 41 53 43 28 |0.40100 CKY=ASC(| 000000C0: 42 24 29 0D 34 30 31 32 30 20 49 46 20 43 4B 59 |B$).40120 IF CKY| 000000D0: 3D 33 34 20 54 48 45 4E 20 34 30 30 38 30 0D 34 |=34 THEN 40080.4| 000000E0: 30 31 34 30 20 49 46 20 28 43 4B 59 20 41 4E 44 |0140 IF (CKY AND| 000000F0: 20 31 32 37 29 20 3E 33 31 20 54 48 45 4E 20 34 | 127) >31 THEN 4| 00000100: 30 32 34 30 20 3A 52 45 4D 22 20 CE 4F 54 20 41 |0240 :REM" .OT A| 00000110: 20 C3 D4 D2 CC 20 43 4F 44 45 2E 2E 0D 34 30 31 | .... CODE...401| 00000120: 36 30 20 49 46 20 43 4B 59 3D 32 30 20 41 4E 44 |60 IF CKY=20 AND| 00000130: 20 49 4E 24 3E 22 22 20 54 48 45 4E 20 49 4E 24 | IN$>"" THEN IN$| 00000140: 3D 4C 45 46 54 24 28 49 4E 24 2C 4C 45 4E 28 49 |=LEFT$(IN$,LEN(I| 00000150: 4E 24 29 2D 31 29 3A 50 52 49 4E 54 22 20 9D 9D |N$)-1):PRINT" ..| 00000160: 22 3B 3A 47 4F 54 4F 20 34 30 30 36 30 0D 34 30 |";:GOTO 40060.40| 00000170: 31 38 30 20 49 46 20 43 4B 59 3D 41 42 52 54 20 |180 IF CKY=ABRT | 00000180: 54 48 45 4E 20 49 4E 24 3D 22 22 0D 34 30 32 30 |THEN IN$="".4020| 00000190: 30 20 49 46 20 43 4B 59 3D 31 33 20 4F 52 20 43 |0 IF CKY=13 OR C| 000001A0: 4B 59 3D 41 42 52 54 20 54 48 45 4E 20 50 52 49 |KY=ABRT THEN PRI| 000001B0: 4E 54 22 20 22 3A 52 45 54 55 52 4E 0D 34 30 32 |NT" ":RETURN.402| 000001C0: 32 30 20 47 4F 54 4F 20 34 30 30 38 30 20 3A 52 |20 GOTO 40080 :R| 000001D0: 45 4D 22 20 C9 47 4E 4F 52 45 20 4F 54 48 45 52 |EM" .GNORE OTHER| 000001E0: 20 C3 D4 D2 CC 20 43 4F 44 45 53 2E 2E 0D 34 30 | .... CODES...40| 000001F0: 32 34 30 20 49 46 20 4C 45 4E 28 49 4E 24 29 3D |240 IF LEN(IN$)=| 00000200: 4E 49 4E 20 54 48 45 4E 20 34 30 30 38 30 0D 34 |NIN THEN 40080.4| 00000210: 30 32 36 30 20 49 4E 24 3D 49 4E 24 2B 42 24 0D |0260 IN$=IN$+B$.| 00000220: 34 30 32 38 30 20 50 52 49 4E 54 20 42 24 3B 0D |40280 PRINT B$;.| 00000230: 34 30 33 30 30 20 47 4F 54 4F 20 34 30 30 36 30 |40300 GOTO 40060| 00000240: 0D 34 30 33 32 30 20 3A 0D 0D 52 45 41 44 59 2E |.40320 :..READY.| 00000250: 0D 0D |.. |
..40000 REM" INPUT IN$, LENTH NIN. RETUR N CKY LAST KEY HIT. (C) A.MILLETT..40020 IN$="".40040 ABRT=3 :REM" CODE FOR ABOR T KEY.40060 PRINT". ..";.40080 GET B$:IF B$="" THEN 40080.40100 CKY=ASC(B$).4012 0 IF CKY=34 THEN 40080.40140 IF (CKY AND 127) >31 THEN 40240 :REM" NOT A CTRL CO DE...40160 IF CKY=20 AND IN$>"" THEN IN$ =LEFT$(IN$,LEN(IN$)-1):PRINT" ..";:GOTO 40060.40180 IF CKY=ABRT THEN IN$="".4020 0 IF CKY=13 OR CKY=ABRT THEN PRINT" ":RE TURN.40220 GOTO 40080 :REM" IGNORE OTHER CTRL CODES...40240 IF LEN(IN$)=NIN THEN 40080.40260 IN$=IN$+B$.40280 PRINT B$;. 40300 GOTO 40060.40320 :..READY...
> CLICK IMAGE PREVIEW FOR FULL MODAL