Hello world !

[CgX]

Hello !

Thank you Martin for activate my account on this forum !

My name is Christophe, I'm french (yay I will talk to Yves ASAP) , I have used Psion Org2 since my teenage in the 90's, because my father had one and also used it for his job ( he was Land Surveyor)
I learn OPL as my second programming language at the time (the first was BASIC from my Amstrad CPC), and my father finally buy me an LZ model for my birthday

Today I have always my LZ and I inherited my father's LZ64
I have also some Datapaks, a Rampack (with a soldered battery ), a CommsLink, and a Datapak Eraser

Happy to join you all in this forum !

Christophe.

[Martin]

Christophe Guilloux...

I knew your name was familiar, I've been wracking my brains to remember why. Then it came to me - You wrote the FlipSide puzzle game that I included in the LZ Games Compendium pack (here) that I make into a games pack for users with a spare 32k datapak.

For other members I've taken the liberty of attaching the FlipSide ZIP and the listing below. It is particularly interesting for those LZ/LZ64 users without a comms link as it is very short and can easily be typed in using the Prog menu.

Welcome Christophe, have you any more that you wish to share?
Sincerely
Martin
.

flipside.zip

Code: Select all

FLIPSIDE:
LOCAL X%,Y%,M%,I%,Q%,B%(24),c%,K%
UDG 0,31,17,17,17,17,17,17,31
UDG 1,31,21,27,21,27,21,27,31
kstat 2
at 8,1 :print"* FLIP-SIDE *";
at 8,3 :print "Number :"
WHILE I%<>24 :I%=I%+1 :B%(I%)=INT(RND*2) :ENDWH
X%=1 :Y%=1
A:: K%=0 :I%=0 :CURSOR OFF
at 16,3 :print c%;
WHILE I%<24
 AT 1,I%/6+1 :PRINT CHR$(B%(I%+1))+CHR$(B%(I%+2))+CHR$(B%(I%+3))+CHR$(B%(I%+4))+CHR$(B%(I%+5))+chr$(B%(I%+6))
 K%=K%+B%(I%+1)+B%(I%+2)+B%(I%+3)+B%(I%+4)+B%(I%+5)+B%(I%+6)
 I%=I%+6
ENDWH
IF K%=0 OR K%=24 :AT 8,2 :PRINT "* You Win *":beep 200,200 :get :return
endif
CURSOR ON
AT X%,Y%
M%=GET
IF M%=3 or M%=%c :Y%=Y%-1
 ELSEIF M%=4 :Y%=Y%+1
 ELSEIF M%=5 :X%=X%-1
 ELSEIF M%=6 :X%=X%+1
 ELSEIF M%=13 :GOTO X::
 ELSEIF M%=1 :STOP
ENDIF
IF X%=0 :X%=1
 ELSEIF X%=7 :X%=6
 ELSEIF Y%=0 :Y%=1
 ELSEIF Y%=5 :Y%=4
ENDIF
GOTO A::
X:: cursor off
Q%=6*(Y%-1)+X%
B%(Q%)=1-B%(Q%)
IF X%<>1 :B%(Q%-1)=1-B%(Q%-1)
ENDIF
IF X%<>6 :B%(Q%+1)=1-B%(Q%+1)
ENDIF

[CgX]

Yes it was me, what a conclusion

I was 17 at the time and I liked to have fun with OPL

Thank you for remembering me that piece of game !

[Martin]

'
I'm not sure if anyone else has tried it but I've tried many times and this is the best I can do!
.

FlipSideImageSmall.png

It's on (3) LZ Games Compendium (here) I can PM the OPK for anyone who wants to MAKE themselves a copy. It you don't have the facility or inclination to MAKE your own then I can do it for you if you send me a 32K pack.

Sincerely Martin

[Daren]

Looks like an interesting game, amazing that you did this at 17 years of age, also enjoyed reading your story Christophe.