KOALA.L
FILE INFORMATION
FILENAME(S): KOALA.L
FILE TYPE(S): SEQ
FILE SIZE: 357b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
2afcb66c6e0b4aac2905329d42a22ac38006a00e4f7aae3ee902f5c69598b4ce
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | KOALA.L | SEQ | hedning, Mattias H00r | 25 | 0 | DOWNLOAD FILE |
| CCS COMAL | KOALA.L | SEQ | hedning, Mattias H00r | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 4B 4F 41 4C 41 28 |9000 PROC KOALA(| 00000010: 50 2C 52 45 46 20 58 2C 52 45 46 20 59 2C 52 45 |P,REF X,REF Y,RE| 00000020: 46 20 4C 42 2C 52 45 46 20 52 42 29 20 43 4C 4F |F LB,REF RB) CLO| 00000030: 53 45 44 0D 39 30 31 30 20 4A 3A 3D 31 35 2D 50 |SED.9010 J:=15-P| 00000040: 45 45 4B 28 33 2D 50 4F 52 54 2B 35 36 33 31 39 |EEK(3-PORT+56319| 00000050: 29 20 4D 4F 44 20 31 36 0D 39 30 32 30 20 4C 42 |) MOD 16.9020 LB| 00000060: 3A 3D 46 41 4C 53 45 3B 20 52 42 3A 3D 46 41 4C |:=FALSE; RB:=FAL| 00000070: 53 45 0D 39 30 33 30 20 49 46 20 4A 3D 34 20 54 |SE.9030 IF J=4 T| 00000080: 48 45 4E 20 4C 42 3A 3D 54 52 55 45 0D 39 30 34 |HEN LB:=TRUE.904| 00000090: 30 20 49 46 20 4A 3D 38 20 54 48 45 4E 20 52 42 |0 IF J=8 THEN RB| 000000A0: 3A 3D 54 52 55 45 0D 39 30 35 30 20 43 3A 3D 35 |:=TRUE.9050 C:=5| 000000B0: 36 33 32 30 0D 39 30 36 30 20 53 3A 3D 35 34 32 |6320.9060 S:=542| 000000C0: 37 32 0D 39 30 37 30 20 50 4F 4B 45 20 43 2B 31 |72.9070 POKE C+1| 000000D0: 33 2C 31 0D 39 30 38 30 20 44 3A 3D 50 45 45 4B |3,1.9080 D:=PEEK| 000000E0: 28 43 2B 32 29 0D 39 30 39 30 20 50 4F 4B 45 20 |(C+2).9090 POKE | 000000F0: 43 2B 32 2C 31 39 32 0D 39 31 30 30 20 50 4F 4B |C+2,192.9100 POK| 00000100: 45 20 43 2C 36 34 2A 50 0D 39 31 31 30 20 58 3A |E C,64*P.9110 X:| 00000110: 3D 50 45 45 4B 28 53 2B 32 35 29 3B 20 59 3A 3D |=PEEK(S+25); Y:=| 00000120: 32 35 35 2D 50 45 45 4B 28 53 2B 32 36 29 0D 39 |255-PEEK(S+26).9| 00000130: 31 32 30 20 50 4F 4B 45 20 43 2B 32 2C 44 0D 39 |120 POKE C+2,D.9| 00000140: 31 33 30 20 50 4F 4B 45 20 43 2B 31 33 2C 31 32 |130 POKE C+13,12| 00000150: 39 0D 39 31 34 30 20 45 4E 44 50 52 4F 43 20 4B |9.9140 ENDPROC K| 00000160: 4F 41 4C 41 0D |OALA. |
9000 PROC KOALA(P,REF X,REF Y,REF LB,REF RB) CLOSED.9010 J:=15-PEEK(3-PORT+56319 ) MOD 16.9020 LB:=FALSE; RB:=FALSE.9030 IF J=4 THEN LB:=TRUE.9040 IF J=8 THEN RB :=TRUE.9050 C:=56320.9060 S:=54272.9070 POKE C+13,1.9080 D:=PEEK(C+2).9090 POKE C+2,192.9100 POKE C,64*P.9110 X:=PEEK(S+ 25); Y:=255-PEEK(S+26).9120 POKE C+2,D.9 130 POKE C+13,129.9140 ENDPROC KOALA.
> CLICK IMAGE PREVIEW FOR FULL MODAL