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

CONVERT.L

FILE INFORMATION

FILENAME(S): CONVERT.L

FILE TYPE(S): SEQ

FILE SIZE: 1.1K

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

APPEARS ON: 2 disk(s)

FILE HASH

3d52f83c055087ef4490bbe4df2ce1c369b38d2537d0064a3da3ea588e1f7399

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 43 4F 4E 56 45 52  |9000 PROC CONVER|
00000010: 54 28 41 4E 2C 52 45 46  20 41 4C 50 48 24 2C 52  |T(AN,REF ALPH$,R|
00000020: 45 46 20 4E 55 4D 42 29  20 43 4C 4F 53 45 44 0D  |EF NUMB) CLOSED.|
00000030: 39 30 31 30 20 5A 3A 3D  5A 4F 4E 45 0D 39 30 32  |9010 Z:=ZONE.902|
00000040: 30 20 5A 4F 4E 45 20 30  0D 39 30 33 30 20 44 49  |0 ZONE 0.9030 DI|
00000050: 4D 20 4F 4C 44 24 20 4F  46 20 31 32 0D 39 30 34  |M OLD$ OF 12.904|
00000060: 30 20 52 4F 57 3A 3D 50  45 45 4B 28 32 31 34 29  |0 ROW:=PEEK(214)|
00000070: 3B 20 43 4F 4C 3A 3D 50  45 45 4B 28 32 31 31 29  |; COL:=PEEK(211)|
00000080: 0D 39 30 35 30 20 50 43  3A 3D 50 45 45 4B 28 36  |.9050 PC:=PEEK(6|
00000090: 34 36 29 20 2F 2F 43 55  52 52 45 4E 54 20 50 45  |46) //CURRENT PE|
000000A0: 4E 43 4F 4C 4F 52 0D 39  30 36 30 20 42 43 3A 3D  |NCOLOR.9060 BC:=|
000000B0: 50 45 45 4B 28 35 33 32  38 31 29 2D 32 34 30 0D  |PEEK(53281)-240.|
000000C0: 39 30 37 30 20 50 45 4E  43 4F 4C 4F 52 20 42 43  |9070 PENCOLOR BC|
000000D0: 0D 39 30 38 30 20 50 52  49 4E 54 20 43 48 52 24  |.9080 PRINT CHR$|
000000E0: 28 31 39 29 2C 0D 39 30  39 30 20 4F 50 45 4E 20  |(19),.9090 OPEN |
000000F0: 46 49 4C 45 20 31 32 36  2C 22 22 2C 55 4E 49 54  |FILE 126,"",UNIT|
00000100: 20 33 2C 52 45 41 44 0D  39 31 30 30 20 49 4E 50  | 3,READ.9100 INP|
00000110: 55 54 20 46 49 4C 45 20  31 32 36 3A 20 4F 4C 44  |UT FILE 126: OLD|
00000120: 24 0D 39 31 31 30 20 43  4C 4F 53 45 20 46 49 4C  |$.9110 CLOSE FIL|
00000130: 45 20 31 32 36 0D 39 31  32 30 20 50 52 49 4E 54  |E 126.9120 PRINT|
00000140: 20 22 13 20 20 20 20 20  20 20 20 20 20 20 20 13  | ".            .|
00000150: 22 2C 0D 39 31 33 30 20  43 41 53 45 20 41 4E 20  |",.9130 CASE AN |
00000160: 4F 46 0D 39 31 34 30 20  57 48 45 4E 20 31 0D 39  |OF.9140 WHEN 1.9|
00000170: 31 35 30 20 49 46 20 41  4C 50 48 24 3D 22 22 20  |150 IF ALPH$="" |
00000180: 54 48 45 4E 0D 39 31 36  30 20 41 4C 50 48 24 3A  |THEN.9160 ALPH$:|
00000190: 3D 22 4E 56 22 0D 39 31  37 30 20 45 4C 53 45 20  |="NV".9170 ELSE |
000001A0: 0D 39 31 38 30 20 50 52  49 4E 54 20 41 4C 50 48  |.9180 PRINT ALPH|
000001B0: 24 2C 0D 39 31 39 30 20  45 4E 44 49 46 20 0D 39  |$,.9190 ENDIF .9|
000001C0: 32 30 30 20 57 48 45 4E  20 32 0D 39 32 31 30 20  |200 WHEN 2.9210 |
000001D0: 50 52 49 4E 54 20 4E 55  4D 42 2C 0D 39 32 32 30  |PRINT NUMB,.9220|
000001E0: 20 57 48 45 4E 20 33 0D  39 32 33 30 20 49 46 20  | WHEN 3.9230 IF |
000001F0: 4E 55 4D 42 3E 3D 30 20  41 4E 44 20 4E 55 4D 42  |NUMB>=0 AND NUMB|
00000200: 3C 3D 32 35 35 20 54 48  45 4E 0D 39 32 34 30 20  |<=255 THEN.9240 |
00000210: 50 52 49 4E 54 20 43 48  52 24 28 4E 55 4D 42 29  |PRINT CHR$(NUMB)|
00000220: 2C 0D 39 32 35 30 20 45  4C 53 45 20 0D 39 32 36  |,.9250 ELSE .926|
00000230: 30 20 41 4C 50 48 24 3A  3D 22 4E 56 22 0D 39 32  |0 ALPH$:="NV".92|
00000240: 37 30 20 45 4E 44 49 46  20 0D 39 32 38 30 20 4F  |70 ENDIF .9280 O|
00000250: 54 48 45 52 57 49 53 45  20 0D 39 32 39 30 20 41  |THERWISE .9290 A|
00000260: 4C 50 48 24 3A 3D 22 4E  56 22 0D 39 33 30 30 20  |LPH$:="NV".9300 |
00000270: 45 4E 44 43 41 53 45 20  0D 39 33 31 30 20 49 46  |ENDCASE .9310 IF|
00000280: 20 41 4C 50 48 24 3C 3E  22 4E 56 22 20 54 48 45  | ALPH$<>"NV" THE|
00000290: 4E 0D 39 33 32 30 20 50  55 4C 4C 27 53 43 52 45  |N.9320 PULL'SCRE|
000002A0: 45 4E 28 41 4E 2C 41 4C  50 48 24 2C 4E 55 4D 42  |EN(AN,ALPH$,NUMB|
000002B0: 29 0D 39 33 33 30 20 45  4E 44 49 46 20 0D 39 33  |).9330 ENDIF .93|
000002C0: 34 30 20 50 45 4E 43 4F  4C 4F 52 20 50 43 0D 39  |40 PENCOLOR PC.9|
000002D0: 33 35 30 20 50 52 49 4E  54 20 22 13 22 2C 4F 4C  |350 PRINT ".",OL|
000002E0: 44 24 0D 39 33 36 30 20  50 4F 4B 45 20 32 31 34  |D$.9360 POKE 214|
000002F0: 2C 52 4F 57 0D 39 33 37  30 20 50 4F 4B 45 20 32  |,ROW.9370 POKE 2|
00000300: 30 39 2C 28 31 30 32 34  2B 52 4F 57 2A 34 30 29  |09,(1024+ROW*40)|
00000310: 20 4D 4F 44 20 32 35 36  0D 39 33 38 30 20 50 4F  | MOD 256.9380 PO|
00000320: 4B 45 20 32 31 30 2C 28  31 30 32 34 2B 52 4F 57  |KE 210,(1024+ROW|
00000330: 2A 34 30 29 20 44 49 56  20 32 35 36 0D 39 33 39  |*40) DIV 256.939|
00000340: 30 20 50 4F 4B 45 20 32  31 31 2C 43 4F 4C 0D 39  |0 POKE 211,COL.9|
00000350: 34 30 30 20 5A 4F 4E 45  20 5A 0D 39 34 31 30 20  |400 ZONE Z.9410 |
00000360: 45 4E 44 50 52 4F 43 20  43 4F 4E 56 45 52 54 0D  |ENDPROC CONVERT.|
00000370: 39 34 32 30 20 2F 2F 0D  39 34 33 30 20 50 52 4F  |9420 //.9430 PRO|
00000380: 43 20 50 55 4C 4C 27 53  43 52 45 45 4E 28 41 4E  |C PULL'SCREEN(AN|
00000390: 2C 52 45 46 20 41 4C 50  48 41 24 2C 52 45 46 20  |,REF ALPHA$,REF |
000003A0: 4E 55 4D 42 45 52 29 20  43 4C 4F 53 45 44 0D 39  |NUMBER) CLOSED.9|
000003B0: 34 34 30 20 50 52 49 4E  54 20 43 48 52 24 28 31  |440 PRINT CHR$(1|
000003C0: 39 29 2C 0D 39 34 35 30  20 4F 50 45 4E 20 46 49  |9),.9450 OPEN FI|
000003D0: 4C 45 20 39 33 2C 22 22  2C 55 4E 49 54 20 33 2C  |LE 93,"",UNIT 3,|
000003E0: 52 45 41 44 0D 39 34 36  30 20 43 41 53 45 20 41  |READ.9460 CASE A|
000003F0: 4E 20 4F 46 0D 39 34 37  30 20 57 48 45 4E 20 31  |N OF.9470 WHEN 1|
00000400: 0D 39 34 38 30 20 49 4E  50 55 54 20 46 49 4C 45  |.9480 INPUT FILE|
00000410: 20 39 33 3A 20 4E 55 4D  42 45 52 0D 39 34 39 30  | 93: NUMBER.9490|
00000420: 20 57 48 45 4E 20 32 2C  33 0D 39 35 30 30 20 49  | WHEN 2,3.9500 I|
00000430: 4E 50 55 54 20 46 49 4C  45 20 39 33 3A 20 41 4C  |NPUT FILE 93: AL|
00000440: 50 48 41 24 0D 39 35 31  30 20 45 4E 44 43 41 53  |PHA$.9510 ENDCAS|
00000450: 45 20 0D 39 35 32 30 20  43 4C 4F 53 45 20 46 49  |E .9520 CLOSE FI|
00000460: 4C 45 20 39 33 0D 39 35  33 30 20 45 4E 44 50 52  |LE 93.9530 ENDPR|
00000470: 4F 43 20 50 55 4C 4C 27  53 43 52 45 45 4E 0D     |OC PULL'SCREEN. |

9000 PROC CONVERT(AN,REF ALPH$,REF NUMB)
 CLOSED.9010 Z:=ZONE.9020 ZONE 0.9030 DI
M OLD$ OF 12.9040 ROW:=PEEK(214); COL:=P
EEK(211).9050 PC:=PEEK(646) //CURRENT PE
NCOLOR.9060 BC:=PEEK(53281)-240.9070 PEN
COLOR BC.9080 PRINT CHR$(19),.9090 OPEN 
FILE 126,"",UNIT 3,READ.9100 INPUT FILE 
126: OLD$.9110 CLOSE FILE 126.9120 PRINT
 ".            .",.9130 CASE AN OF.9140 
WHEN 1.9150 IF ALPH$="" THEN.9160 ALPH$:
="NV".9170 ELSE .9180 PRINT ALPH$,.9190 
ENDIF .9200 WHEN 2.9210 PRINT NUMB,.9220
 WHEN 3.9230 IF NUMB>=0 AND NUMB<=255 TH
EN.9240 PRINT CHR$(NUMB),.9250 ELSE .926
0 ALPH$:="NV".9270 ENDIF .9280 OTHERWISE
 .9290 ALPH$:="NV".9300 ENDCASE .9310 IF
 ALPH$<>"NV" THEN.9320 PULL'SCREEN(AN,AL
PH$,NUMB).9330 ENDIF .9340 PENCOLOR PC.9
350 PRINT ".",OLD$.9360 POKE 214,ROW.937
0 POKE 209,(1024+ROW*40) MOD 256.9380 PO
KE 210,(1024+ROW*40) DIV 256.9390 POKE 2
11,COL.9400 ZONE Z.9410 ENDPROC CONVERT.
9420 //.9430 PROC PULL'SCREEN(AN,REF ALP
HA$,REF NUMBER) CLOSED.9440 PRINT CHR$(1
9),.9450 OPEN FILE 93,"",UNIT 3,READ.946
0 CASE AN OF.9470 WHEN 1.9480 INPUT FILE
 93: NUMBER.9490 WHEN 2,3.9500 INPUT FIL
E 93: ALPHA$.9510 ENDCASE .9520 CLOSE FI
LE 93.9530 ENDPROC PULL'SCREEN.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL