SAVE'SCREEN.L
FILE INFORMATION
FILENAME(S): SAVE'SCREEN.L
FILE TYPE(S): SEQ
FILE SIZE: 638b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
268c89d535bb5c34bf0ac41a3b8e88e0ef74c7e34ebc1751b960503fdb059bec
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | SAVE'SCREEN.L | SEQ | hedning, Mattias H00r | 27 | 0 | DOWNLOAD FILE |
| CCS COMAL | SAVE'SCREEN.L | SEQ | hedning, Mattias H00r | 27 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 53 41 56 45 27 53 |9000 PROC SAVE'S| 00000010: 43 52 45 45 4E 28 46 49 4C 45 4E 41 4D 45 24 29 |CREEN(FILENAME$)| 00000020: 20 0D 39 30 31 30 20 44 49 4D 20 4E 41 4D 45 24 | .9010 DIM NAME$| 00000030: 20 4F 46 20 32 30 0D 39 30 32 30 20 4E 41 4D 45 | OF 20.9020 NAME| 00000040: 24 3A 3D 46 49 4C 45 4E 41 4D 45 24 2B 22 2E 48 |$:=FILENAME$+".H| 00000050: 52 47 2C 57 2C 50 52 47 22 0D 39 30 33 30 20 4F |RG,W,PRG".9030 O| 00000060: 50 45 4E 20 46 49 4C 45 20 31 2C 4E 41 4D 45 24 |PEN FILE 1,NAME$| 00000070: 2C 57 52 49 54 45 0D 39 30 34 30 20 4D 4C 27 53 |,WRITE.9040 ML'S| 00000080: 43 52 27 53 41 56 45 0D 39 30 35 30 20 50 52 49 |CR'SAVE.9050 PRI| 00000090: 4E 54 20 46 49 4C 45 20 31 3A 20 43 48 52 24 28 |NT FILE 1: CHR$(| 000000A0: 30 29 2B 43 48 52 24 28 32 32 34 29 2C 0D 39 30 |0)+CHR$(224),.90| 000000B0: 36 30 20 46 4F 52 20 41 44 44 52 3A 3D 35 37 33 |60 FOR ADDR:=573| 000000C0: 34 34 20 54 4F 20 36 35 33 34 35 20 44 4F 0D 39 |44 TO 65345 DO.9| 000000D0: 30 37 30 20 42 49 54 27 4D 41 50 27 48 49 3A 3D |070 BIT'MAP'HI:=| 000000E0: 49 4E 54 28 41 44 44 52 2F 32 35 36 29 0D 39 30 |INT(ADDR/256).90| 000000F0: 38 30 20 42 49 54 27 4D 41 50 27 4C 4F 3A 3D 41 |80 BIT'MAP'LO:=A| 00000100: 44 44 52 2D 42 49 54 27 4D 41 50 27 48 49 2A 32 |DDR-BIT'MAP'HI*2| 00000110: 35 36 0D 39 30 39 30 20 50 4F 4B 45 20 38 33 39 |56.9090 POKE 839| 00000120: 2C 42 49 54 27 4D 41 50 27 4C 4F 0D 39 31 30 30 |,BIT'MAP'LO.9100| 00000130: 20 50 4F 4B 45 20 38 34 30 2C 42 49 54 27 4D 41 | POKE 840,BIT'MA| 00000140: 50 27 48 49 0D 39 31 31 30 20 53 59 53 20 38 32 |P'HI.9110 SYS 82| 00000150: 38 0D 39 31 32 30 20 50 52 49 4E 54 20 46 49 4C |8.9120 PRINT FIL| 00000160: 45 20 31 3A 20 43 48 52 24 28 50 45 45 4B 28 31 |E 1: CHR$(PEEK(1| 00000170: 30 30 30 29 29 2C 0D 39 31 33 30 20 45 4E 44 46 |000)),.9130 ENDF| 00000180: 4F 52 20 41 44 44 52 0D 39 31 34 30 20 43 4C 4F |OR ADDR.9140 CLO| 00000190: 53 45 20 46 49 4C 45 20 31 0D 39 31 35 30 20 45 |SE FILE 1.9150 E| 000001A0: 4E 44 50 52 4F 43 20 53 41 56 45 27 53 43 52 45 |NDPROC SAVE'SCRE| 000001B0: 45 4E 0D 39 31 36 30 20 2F 2F 0D 39 31 37 30 20 |EN.9160 //.9170 | 000001C0: 50 52 4F 43 20 4D 4C 27 53 43 52 27 53 41 56 45 |PROC ML'SCR'SAVE| 000001D0: 20 0D 39 31 38 30 20 46 4F 52 20 49 3A 3D 38 32 | .9180 FOR I:=82| 000001E0: 38 20 54 4F 20 38 35 30 20 44 4F 0D 39 31 39 30 |8 TO 850 DO.9190| 000001F0: 20 52 45 41 44 20 58 0D 39 32 30 30 20 50 4F 4B | READ X.9200 POK| 00000200: 45 20 49 2C 58 0D 39 32 31 30 20 45 4E 44 46 4F |E I,X.9210 ENDFO| 00000210: 52 20 49 0D 39 32 32 30 20 44 41 54 41 20 31 36 |R I.9220 DATA 16| 00000220: 35 2C 31 2C 31 34 31 2C 31 33 32 2C 33 2C 31 32 |5,1,141,132,3,12| 00000230: 30 2C 37 33 2C 37 2C 31 33 33 2C 31 2C 31 37 33 |0,73,7,133,1,173| 00000240: 2C 30 2C 30 2C 31 34 31 2C 32 33 32 2C 33 2C 31 |,0,0,141,232,3,1| 00000250: 37 33 2C 31 33 32 2C 33 2C 31 33 33 2C 31 2C 38 |73,132,3,133,1,8| 00000260: 38 2C 39 36 0D 39 32 33 30 20 45 4E 44 50 52 4F |8,96.9230 ENDPRO| 00000270: 43 20 4D 4C 27 53 43 52 27 53 41 56 45 0D |C ML'SCR'SAVE. |
9000 PROC SAVE'SCREEN(FILENAME$) .9010 D IM NAME$ OF 20.9020 NAME$:=FILENAME$+".H RG,W,PRG".9030 OPEN FILE 1,NAME$,WRITE.9 040 ML'SCR'SAVE.9050 PRINT FILE 1: CHR$( 0)+CHR$(224),.9060 FOR ADDR:=57344 TO 65 345 DO.9070 BIT'MAP'HI:=INT(ADDR/256).90 80 BIT'MAP'LO:=ADDR-BIT'MAP'HI*256.9090 POKE 839,BIT'MAP'LO.9100 POKE 840,BIT'MA P'HI.9110 SYS 828.9120 PRINT FILE 1: CHR $(PEEK(1000)),.9130 ENDFOR ADDR.9140 CLO SE FILE 1.9150 ENDPROC SAVE'SCREEN.9160 //.9170 PROC ML'SCR'SAVE .9180 FOR I:=82 8 TO 850 DO.9190 READ X.9200 POKE I,X.92 10 ENDFOR I.9220 DATA 165,1,141,132,3,12 0,73,7,133,1,173,0,0,141,232,3,173,132,3 ,133,1,88,96.9230 ENDPROC ML'SCR'SAVE.
> CLICK IMAGE PREVIEW FOR FULL MODAL