[Adventure-Fr] "La maison du professeur Folibus"
[Adventure-Fr] "La maison du professeur Folibus"
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…
"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…
Last edited by XavSnap on Fri Dec 13, 2019 10:26 am, edited 1 time in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
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.
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.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Mange tak Martin !
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Hi,
"The city of Alzan." (English "run-time" program) Have Fun!
"The city of Alzan." (English "run-time" program) Have Fun!
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Hi,
"The Zx81 pocket book":
"The Zx81 pocket book":
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Big characters:
Note: In VB81 XuR to add a special char, "RAND" for example, type "@40" in hexadecimal.
@80=inverted space.
Prog. #1:
Prog. #2:
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
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
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: [Adventure-Fr] "La maison du professeur Folibus"
Xavier ...on the Facebook groupe : "Zx81 France"(fr)