Page 1 of 2
[Adventure-Fr] "La maison du professeur Folibus"
Posted: Thu Dec 12, 2019 1:00 am
by XavSnap
Hi,
"La maison du professeur Folibus" is a text adventure game from Alain Brégeon. (listing in the french magazine #24 Micro-Systèmes 1982)
An adventure game, using a little ASM routine, to avoid to spend room then the GOSUB/RETURN is used!
Have fun…
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Fri Dec 13, 2019 8:44 am
by XavSnap
Hi,
The main Basic adventure routines are peek-up from "The ZX81 pocket book" (or "Le petit livre du ZX81" PSI) from Phipps Associates.
https://www.worldofspectrum.org/infosee ... d=2000454
[edit: 404 error]
/// Zip updated.
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Fri Dec 13, 2019 10:42 am
by mrtinb
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Fri Dec 13, 2019 11:33 am
by XavSnap
Mange tak Martin !
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Fri Dec 13, 2019 12:12 pm
by mrtinb
Bon appétit
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Sat Dec 14, 2019 1:09 am
by XavSnap
Hi,
"The city of Alzan." (English "run-time" program)
Have Fun!
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Sat Dec 14, 2019 8:28 pm
by XavSnap
Hi,
"The Zx81 pocket book":
- DONKEY.P
- (1.49 KiB) Downloaded 349 times
- QUIZ.P
- (2.05 KiB) Downloaded 364 times
- SKIRUN.P
- (2.91 KiB) Downloaded 337 times
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Sat Dec 14, 2019 9:32 pm
by XavSnap
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Sat Dec 14, 2019 10:44 pm
by XavSnap
Big characters:
Note: In VB81 XuR to add a special char, "RAND" for example, type "@40" in hexadecimal.
@80=inverted space.
Prog. #1:
Code: Select all
100 REM PRINT BIG HELLO
110 LET A$="HELLO"
120 LET XX=12
130 LET YY=26
140 GOSUB 9300
150 STOP
9300 REM PLOT AS INTO BIG CHARACTERS
9305 FOR A=1 TO LEN A$
9310 LET XC=CODE A$(A)
9315 GOSUB 9340
9320 LET XX=XX+8
9325 NEXT A
9330 RETURN
9340 FOR Y=YY TO YY-7 STEP -1
9345 LET ROW=PEEK (7680+8*XC+YY-Y)
9350 LET SHR=128
9355 FOR X=XX TO XX+7
9360 LET Z=INT (ROW/SHR)
9365 LET ROW=ROW-Z*SHR
9370 LET SHR=SHR/2
9375 IF Z THEN PLOT X,Y
9380 NEXT X
9385 NEXT Y
9390 RETURN
Prog. #2:
Code: Select all
100 REM PRINT BIG HELLO
110 LET A$="HELLO"
120 LET XX=12
130 LET YY=26
140 GOSUB 9300
150 STOP
9300 REM PLOT A$ INTO BIG CHARACTERS
9305 LET Z$="@80@40@20@10@08@04@02@01"
9310 FOR A=1 TO LEN A$
9315 LET XC=CODE A$(A)
9320 GOSUB 9340
9325 LET XX=XX+8
9330 NEXT A
9335 RETURN
9340 FOR Y=YY TO YY-7 STEP -1
9345 LET X$= CHR$ (PEEK (7680+8*XC+YY-Y))
9350 FOR X=1 TO 8
9355 IF X$<Z$(X) THEN GOTO 9370
9360 PLOT XX+X-1,Y
9365 LET X$=CHR$ (CODE X$-CODE Z$(X))
9370 NEXT X
9375 NEXT Y
9380 RETURN
Re: [Adventure-Fr] "La maison du professeur Folibus"
Posted: Mon Dec 16, 2019 3:23 am
by XavSnap
- ETCH.P
- (1.23 KiB) Downloaded 370 times
- TROLLS.P
- (3.49 KiB) Downloaded 356 times
- CLOCK.P
- (1.52 KiB) Downloaded 368 times