STRIP & CLEAN
FILE INFORMATION
FILENAME(S): STRIP & CLEAN
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
ab5b76c19e11ca890727df8fd733716cb0de1effe140b78971d8b54d42d5abcb
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | STRIP & CLEAN | PRG | DuncanTwain | 11 | 13 | DOWNLOAD FILE |
| RANS ISK2 | STRIP & CLEAN | PRG | DuncanTwain | 25 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 53 54 52 49 50 20 26 20 |..).... STRIP & | 00000010: 43 4C 45 41 4E 20 28 41 55 47 20 32 39 2F 38 34 |CLEAN (AUG 29/84| 00000020: 29 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 |) :./...:.| 00000030: 4F 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |O.... 0 STATEMEN| 00000040: 54 53 2C 20 32 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 2 FUNCTIONS.| 00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: | 00000070: 31 34 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |14.x...:...... K| 00000080: 45 59 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 |EYWORD ROUTI| 00000090: 4E 45 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 |NE LINE SER #| 000000A0: 00 C7 08 07 00 8F 20 46 2F 53 54 52 49 50 24 28 |...... F/STRIP$(| 000000B0: 20 20 20 53 54 52 49 50 20 20 20 20 33 39 38 34 | STRIP 3984| 000000C0: 20 20 20 20 30 34 35 00 EE 08 08 00 8F 20 46 2F | 045...... F/| 000000D0: 43 4C 45 41 4E 24 28 20 20 20 43 4C 45 41 4E 20 |CLEAN$( CLEAN | 000000E0: 20 20 20 33 39 38 38 20 20 20 20 30 34 36 00 F4 | 3988 046..| 000000F0: 08 09 00 3A 00 0E 09 0A 00 8F 20 55 2F 43 49 46 |...:...... U/CIF| 00000100: 43 48 52 20 28 32 35 36 30 2F 30 30 33 29 00 28 |CHR (2560/003).(| 00000110: 09 0B 00 8F 20 55 2F 43 49 46 4E 55 4D 20 28 34 |.... U/CIFNUM (4| 00000120: 30 39 32 2F 30 34 37 29 00 2E 09 0C 00 3A 00 55 |092/047).....:.U| 00000130: 09 0D 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========| 00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000150: 3D 3D 3D 3D 3D 00 5B 09 0E 00 3A 00 73 09 61 02 |=====.[...:.s.a.| 00000160: 2E C6 20 22 53 54 52 49 50 24 A8 43 4C 45 41 4E |.. "STRIP$.CLEAN| 00000170: 24 A8 22 00 8C 09 49 06 2E 57 B0 44 20 53 54 52 |$."...I..W.D STR| 00000180: 49 50 AB 31 2C 43 4C 45 41 4E AB 31 00 9F 09 00 |IP.1,CLEAN.1....| 00000190: 0A 43 8B 43 48 52 20 43 4D 50 20 23 24 35 42 00 |.C.CHR CMP #$5B.| 000001A0: AC 09 02 0A 42 43 43 20 43 49 43 31 00 B4 09 04 |....BCC CIC1....| 000001B0: 0A 43 4C 43 00 C1 09 06 0A 42 43 43 20 43 49 43 |.CLC.....BCC CIC| 000001C0: 32 00 D3 09 08 0A 43 49 43 31 20 43 4D 50 20 23 |2.....CIC1 CMP #| 000001D0: 24 34 31 00 E0 09 0A 0A 43 49 43 32 20 52 54 53 |$41.....CIC2 RTS| 000001E0: 00 E6 09 0C 0A 3B 00 F9 09 90 0F 53 54 52 49 50 |.....;.....STRIP| 000001F0: 20 4C 44 41 20 23 24 38 30 00 07 0A 92 0F 2E 42 | LDA #$80......B| 00000200: 59 54 45 20 24 32 43 00 18 0A 94 0F 43 4C 45 41 |YTE $2C.....CLEA| 00000210: 4E 20 4C 44 41 20 23 30 00 20 0A 96 0F 50 48 41 |N LDA #0. ...PHA| 00000220: 00 2E 0A 98 0F 4A 53 52 20 24 41 45 46 34 00 3C |.....JSR $AEF4.<| 00000230: 0A 9A 0F 4A 53 52 20 24 42 36 41 33 00 47 0A 9C |...JSR $B6A3.G..| 00000240: 0F 53 54 41 20 54 33 00 4F 0A 9E 0F 50 4C 41 00 |.STA T3.O...PLA.| 00000250: 5A 0A A0 0F 53 54 41 20 54 34 00 62 0A A2 0F 54 |Z...STA T4.b...T| 00000260: 58 41 00 6A 0A A4 0F 50 48 41 00 72 0A A6 0F 54 |XA.j...PHA.r...T| 00000270: 59 41 00 7A 0A A8 0F 50 48 41 00 85 0A AA 0F 4C |YA.z...PHA.....L| 00000280: 44 41 20 54 33 00 93 0A AC 0F 4A 53 52 20 24 42 |DA T3.....JSR $B| 00000290: 34 37 44 00 9B 0A AE 0F 50 4C 41 00 A7 0A B0 0F |47D.....PLA.....| 000002A0: 53 54 41 20 24 32 33 00 AF 0A B2 0F 50 4C 41 00 |STA $23.....PLA.| 000002B0: BB 0A B4 0F 53 54 41 20 24 32 32 00 C7 0A B6 0F |....STA $22.....| 000002C0: 53 54 58 20 24 32 34 00 D3 0A B8 0F 53 54 59 20 |STX $24.....STY | 000002D0: 24 32 35 00 DE 0A BA 0F 4C 44 58 20 23 30 00 E9 |$25.....LDX #0..| 000002E0: 0A BC 0F 53 54 58 20 54 35 00 F6 0A BE 0F 4C 44 |...STX T5.....LD| 000002F0: 59 20 23 24 46 46 00 03 0B C0 0F 43 4C 4E 31 20 |Y #$FF.....CLN1 | 00000300: 49 4E 59 00 0E 0B C2 0F 43 50 59 20 54 33 00 1B |INY.....CPY T3..| 00000310: 0B C4 0F 42 45 51 20 43 4C 4E 34 00 2B 0B C6 0F |...BEQ CLN4.+...| 00000320: 4C 44 41 20 28 24 32 32 29 2C 59 00 36 0B C8 0F |LDA ($22),Y.6...| 00000330: AF 20 23 24 37 46 00 44 0B CA 0F 4A 53 52 20 43 |. #$7F.D...JSR C| 00000340: 8B 43 48 52 00 51 0B CC 0F 42 43 53 20 43 4C 4E |.CHR.Q...BCS CLN| 00000350: 32 00 5F 0B CE 0F 4A 53 52 20 43 8B 4E 55 4D 00 |2._...JSR C.NUM.| 00000360: 6C 0B D0 0F 42 43 53 20 43 4C 4E 32 00 77 0B D2 |l...BCS CLN2.w..| 00000370: 0F 42 49 54 20 54 34 00 84 0B D4 0F 42 4D 49 20 |.BIT T4.....BMI | 00000380: 43 4C 4E 31 00 91 0B D6 0F 42 56 53 20 43 4C 4E |CLN1.....BVS CLN| 00000390: 31 00 9E 0B D8 0F 43 4D 50 20 23 24 32 30 00 AB |1.....CMP #$20..| 000003A0: 0B DA 0F 42 4E 45 20 43 4C 4E 31 00 B3 0B DC 0F |...BNE CLN1.....| 000003B0: 43 4C 43 00 C8 0B DE 0F 43 4C 4E 32 20 53 54 41 |CLC.....CLN2 STA| 000003C0: 20 28 24 32 34 2C 58 29 00 D3 0B E0 0F 4C 44 41 | ($24,X).....LDA| 000003D0: 20 54 34 00 DE 0B E2 0F AF 20 23 24 38 30 00 EB | T4...... #$80..| 000003E0: 0B E4 0F 42 43 53 20 43 4C 4E 33 00 F7 0B E6 0F |...BCS CLN3.....| 000003F0: B0 41 20 23 24 34 30 00 07 0C E8 0F 43 4C 4E 33 |.A #$40.....CLN3| 00000400: 20 53 54 41 20 54 34 00 12 0C EA 0F 49 4E 43 20 | STA T4.....INC | 00000410: 54 35 00 1E 0C EC 0F 49 4E 43 20 24 32 34 00 2B |T5.....INC $24.+| 00000420: 0C EE 0F 42 4E 45 20 43 4C 4E 31 00 37 0C F0 0F |...BNE CLN1.7...| 00000430: 49 4E 43 20 24 32 35 00 44 0C F2 0F 42 4E 45 20 |INC $25.D...BNE | 00000440: 43 4C 4E 31 00 54 0C F4 0F 43 4C 4E 34 20 4C 44 |CLN1.T...CLN4 LD| 00000450: 41 20 54 35 00 60 0C F6 0F 53 54 41 20 24 36 31 |A T5.`...STA $61| 00000460: 00 6E 0C F8 0F 4A 4D 50 20 24 42 34 43 41 00 74 |.n...JMP $B4CA.t| 00000470: 0C FA 0F 3B 00 87 0C FC 0F 43 8B 4E 55 4D 20 43 |...;.....C.NUM C| 00000480: 4D 50 20 23 22 3A 22 00 94 0C FE 0F 42 43 43 20 |MP #":".....BCC | 00000490: 43 49 4E 31 00 9C 0C 00 10 43 4C 43 00 A9 0C 02 |CIN1.....CLC....| 000004A0: 10 42 43 43 20 43 49 4E 32 00 BB 0C 04 10 43 49 |.BCC CIN2.....CI| 000004B0: 4E 31 20 43 4D 50 20 23 22 30 22 00 C8 0C 06 10 |N1 CMP #"0".....| 000004C0: 43 49 4E 32 20 52 54 53 00 CE 0C 08 10 3B 00 00 |CIN2 RTS.....;..| 000004D0: 00 |. |
..).... STRIP & CLEAN (AUG 29/84) :./...:.O.... 0 STATEMENTS, 2 FUNCTIONS. U...:.R.... KEYWORD CHARACTERS: 14.X...: . .... KEYWORD ROUTINE LINE SER # .G.... F/STRIP$( STRIP 3984 045. ..... F/CLEAN$( CLEAN 3988 046.. ...:...... U/CIFCHR (2560/003).(.... U/C IFNUM (4092/047).....:.U.... =========== =====================.[...:.S.A..F "STRI P$.CLEAN$."...I..W.D STRIP.1,CLEAN.1.... .C.CHR CMP #$5B.....BCC CIC1.....CLC.A.. .BCC CIC2.S...CIC1 CMP #$41.....CIC2 RTS .....;.....STRIP LDA #$80......BYTE $2C. ....CLEAN LDA #0. ...PHA.....JSR $AEF4.< ...JSR $B6A3.G...STA T3.O...PLA.Z. .STA T4.B...TXA.J...PHA.R...TYA.Z...PHA.....L DA T3.....JSR $B47D.....PLA.....STA $23. ....PLA.....STA $22.G...STX $24.S...STY $25.....LDX #0.....STX T5.....LDY #$FF.. ...CLN1 INY...B.CPY T3...D.BEQ CLN4.+.F. LDA ($22),Y.6.H.. #$7F.D.J.JSR C.CHR.Q.L .BCS CLN2._.N.JSR C.NUM.L.P.BCS CLN2.W.R .BIT T4...T.BMI CLN1...V.BVS CLN1...X.CM P #$20...Z.BNE CLN1.....CLC.H...CLN2 STA ($24,X).S...LDA T4...... #$80.....BCS C LN3......A #$40.....CLN3 STA T4.....INC T5.....INC $24.+...BNE CLN1.7...INC $25. D...BNE CLN1.T...CLN4 LDA T5.`...STA $61 .N...JMP $B4CA.T...;.....C.NUM CMP #":". ....BCC CIN1.....CLC.....BCC CIN2.....CI N1 CMP #"0".H...CIN2 RTS.N...;...
> CLICK IMAGE PREVIEW FOR FULL MODAL