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

SCR2PETSCI.FUNC

FILE INFORMATION

FILENAME(S): SCR2PETSCI.FUNC

FILE TYPE(S): SEQ

FILE SIZE: 451b

FIRST SEEN: 2025-12-01 01:48:19

APPEARS ON: 2 disk(s)

FILE HASH

ae12f5ad0a4c6a93565f48dfdf6e23df67f90c39d342982be24cd2fa69787922

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMAL 2 SCR2PETSCI.FUNC SEQ hedning, Mattias H00r 23 1 DOWNLOAD FILE
CCS COMAL 2 SCR2PETSCI.FUNC SEQ hedning, Mattias H00r 23 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 2D  2D 2D 20 53 43 52 45 45  |9000 //--- SCREE|
00000010: 4E 20 43 4F 44 45 20 54  4F 20 50 45 54 41 53 43  |N CODE TO PETASC|
00000020: 49 49 2D 2D 0D 39 30 31  30 20 2F 2F 2D 2D 2D 20  |II--.9010 //--- |
00000030: 43 4F 4E 56 45 52 53 49  4F 4E 20 46 55 4E 43 54  |CONVERSION FUNCT|
00000040: 49 4F 4E 20 2D 2D 2D 2D  2D 0D 39 30 32 30 20 2F  |ION -----.9020 /|
00000050: 2F 0D 39 30 33 30 20 2F  2F 20 43 41 4C 4C 49 4E  |/.9030 // CALLIN|
00000060: 47 20 53 54 41 54 45 4D  45 4E 54 20 43 4F 55 4C  |G STATEMENT COUL|
00000070: 44 20 4C 4F 4F 4B 0D 39  30 34 30 20 2F 2F 20 4C  |D LOOK.9040 // L|
00000080: 49 4B 45 20 54 48 49 53  3A 0D 39 30 35 30 20 2F  |IKE THIS:.9050 /|
00000090: 2F 20 50 52 49 4E 54 20  43 48 52 24 28 53 43 52  |/ PRINT CHR$(SCR|
000000A0: 5F 50 45 54 53 43 49 28  4C 4F 43 29 29 2C 0D 39  |_PETSCI(LOC)),.9|
000000B0: 30 36 30 20 2F 2F 20 57  48 45 52 45 20 4C 4F 43  |060 // WHERE LOC|
000000C0: 20 49 53 20 41 20 53 43  52 45 45 4E 0D 39 30 37  | IS A SCREEN.907|
000000D0: 30 20 2F 2F 20 4C 4F 43  41 54 49 4F 4E 20 46 52  |0 // LOCATION FR|
000000E0: 4F 4D 20 31 30 32 34 20  54 4F 20 32 30 32 33 2E  |OM 1024 TO 2023.|
000000F0: 0D 39 30 38 30 20 2F 2F  0D 39 30 39 30 20 46 55  |.9080 //.9090 FU|
00000100: 4E 43 20 53 43 52 5F 50  45 54 53 43 49 28 4C 4F  |NC SCR_PETSCI(LO|
00000110: 43 29 20 0D 39 31 30 30  20 43 3A 3D 50 45 45 4B  |C) .9100 C:=PEEK|
00000120: 28 4C 4F 43 41 54 49 4F  4E 29 0D 39 31 31 30 20  |(LOCATION).9110 |
00000130: 49 46 20 43 3E 3D 36 35  20 41 4E 44 20 43 3C 3D  |IF C>=65 AND C<=|
00000140: 39 30 20 54 48 45 4E 0D  39 31 32 30 20 52 45 54  |90 THEN.9120 RET|
00000150: 55 52 4E 20 43 2B 33 32  0D 39 31 33 30 20 45 4C  |URN C+32.9130 EL|
00000160: 49 46 20 43 3C 33 32 20  4F 52 20 43 3E 39 30 20  |IF C<32 OR C>90 |
00000170: 54 48 45 4E 0D 39 31 34  30 20 52 45 54 55 52 4E  |THEN.9140 RETURN|
00000180: 20 43 2B 36 34 0D 39 31  35 30 20 45 4C 53 45 20  | C+64.9150 ELSE |
00000190: 0D 39 31 36 30 20 52 45  54 55 52 4E 20 43 0D 39  |.9160 RETURN C.9|
000001A0: 31 37 30 20 45 4E 44 49  46 20 0D 39 31 38 30 20  |170 ENDIF .9180 |
000001B0: 45 4E 44 46 55 4E 43 20  53 43 52 5F 50 45 54 53  |ENDFUNC SCR_PETS|
000001C0: 43 49 0D                                          |CI.             |

9000 //--- SCREEN CODE TO PETASCII--.901
0 //--- CONVERSION FUNCTION -----.9020 /
/.9030 // CALLING STATEMENT COULD LOOK.9
040 // LIKE THIS:.9050 // PRINT CHR$(SCR
_PETSCI(LOC)),.9060 // WHERE LOC IS A SC
REEN.9070 // LOCATION FROM 1024 TO 2023.
.9080 //.9090 FUNC SCR_PETSCI(LOC) .9100
 C:=PEEK(LOCATION).9110 IF C>=65 AND C<=
90 THEN.9120 RETURN C+32.9130 ELIF C<32 
OR C>90 THEN.9140 RETURN C+64.9150 ELSE 
.9160 RETURN C.9170 ENDIF .9180 ENDFUNC 
SCR_PETSCI.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL