[Adventure-Fr] "La maison du professeur Folibus"

[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…

LaMaisonDuProfesseurFolibus.zip

(392.14 KiB) Downloaded 342 times

[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.

[mrtinb]

The ZX81 Pocket Book
https://mega.nz/#!wBJRFYRR!mLXTmIW-Q4m9 ... M2bGa094X4

[XavSnap]

Mange tak Martin !

[mrtinb]

Bon appétit

[XavSnap]

Hi,



"The city of Alzan." (English "run-time" program)

CityOfAlzan.zip

(31.95 KiB) Downloaded 339 times

Have Fun!

[XavSnap]

Hi,

"The Zx81 pocket book":

DONKEY.P

(1.49 KiB) Downloaded 314 times

INSTRING.P

(1.2 KiB) Downloaded 325 times

QUIZ.P

(2.05 KiB) Downloaded 335 times

SKIRUN.P

(2.91 KiB) Downloaded 315 times

[XavSnap]

PUTTING.P

(4.11 KiB) Downloaded 325 times

[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  

BIGCHAR1.P

(1.39 KiB) Downloaded 305 times

BIGCHAR2.P

(1.39 KiB) Downloaded 317 times

[XavSnap]

ETCH.P

(1.23 KiB) Downloaded 335 times

TROLLS.P

(3.49 KiB) Downloaded 329 times

CLOCK.P

(1.52 KiB) Downloaded 331 times