10-Lignes 4en1 (Amstrad CPC) by retropoke

AUTHOR : Philippe MOULIN (retropoke)

BLOG : retropoke.canalblog.com

INCLUDED FILE : readme.txt (this file translated with google translate)

alire.txt (this text in french)

list.txt (contains the program listing)

10liner.dsk (the game is on it)

picture.gif (game screen)

COMPUTER : AMSTRAD CPC 464/664/6128

CATEGORY : "EXTREME-256"

EMULATOR : WinApe 2.0

LANGUAGE : Locomotive BASIC

USE : Keyboard and or Joystick

EXPLANATIONS :

1 - Insert the diskette [10liner.dsk]

2 - Type, RUN"COMPIL

  - To list the program, type 2* on [ESC] from the MENU and type: LIST+[ENTER]

THE GAME :

- It is 4 games in 1 that can be played with the JOYSTICK or the keyboard.

- MENU

- Use [UP] and [DOWN] arrow keys or joystick to move

  USE the [SPACEBAR] or [FIRE] to validate

- 100 A L(HEURE

- Use the [LEFT] and [RIGHT] arrow keys or the joystick

  Avoid cars and do not drive in fields

  Once the game is over, press [SPACE] or [FIRE] to return to the MENU

- ALPHABET RACER

- Use the 4 arrow keys or the joystick to move around

  Hit [SPACE] or [FIRE] to return to MENU

  You can move in 8 directions

  Collect the letters of the alphabet in order

  With each stage, the game becomes more and more difficult

- TAQUIN CLASSIC

- Use the 4 arrow keys or the joystick to move the letters

  Hit [SPACE] or [FIRE] to return to MENU

  Reconstitute the alphabet in order as on the real game of TAQUIN

- RETRO SQUASH

- Use the [LEFT] and [RIGHT] arrow keys or the joystick

  Bounce the ball to score maximum points

  At the beginning, you are allocated 10 balls

  When you are out of bullets, hit [SPACE] or [FIRE] to return to the MENU

AUTEUR : Philippe MOULIN (retropoke)

BLOG : retropoke.canalblog.com

FICHIER INCLUS : alire.txt (ce fichier)

readme.txt (ce fichier traduit avec google translate)

list.txt (contient le listing du programme)

10liner.dsk (le jeu y est dessus)

picture.gif (écrans du jeu)

ORDINATEUR : AMSTRAD CPC 464/664/6128

CATEGORIE : "EXTREME-256"

EMULATEUR : WinApe 2.0

LANGUE : Locomotive BASIC

UTILISATION : Clavier et ou Joystick

EXPLICATIONS :

1 - Inserrer la disquette [10liner.dsk]

2 - Tapez, RUN"COMPIL

- Pour lister le programme, tapez 2* sur [ESC] depuis le MENU et tapez: LIST+[ENTER]

LE JEU :

- Il s'agit de 4 jeux en 1 que l'on peut jouer avec le JOYSTICK ou le clavier.

- MENU

- Utilisez les touches fléchées [HAUT] et [BAS] ou le joystick pour vous déplacer

  UTILISEZ la [BARRE ESPACE] ou [FIRE] pour valider

- 100 A L'HEURE

- Utilisez les touches fléchées [GAUCHE] et [DROITE] ou le joystick

  Evitez les voitures et ne roulez pas dans les champs

  Une fois la partie finie, tapez sur [ESPACE] ou [FIRE] pour retourner au MENU

- ALPHABET RACER

- Utilisez les 4 touches fléchées ou le joystick pour vous déplacer

  Tapez sur [ESPACE] ou [FIRE] pour retourner au MENU

  Vous pouvez vous déplacer dans les 8 directions

  Récupérez dans l'ordre, les lettres de l'alphabet

  A chaque étape, le jeu devient de plus en plus difficile

- TAQUIN CLASSIC

- Utilisez les 4 touches fléchées ou le joystick pour déplacer les lettres

  Tapez sur [ESPACE] ou [FIRE] pour retourner au MENU

  Reconstituez l'alphabet dans l'ordre comme sur le vrai jeu de TAQUIN

- RETRO SQUASH

- Utilisez les touches fléchées [GAUCHE] et [DROITE] ou le joystick

  Faites rebondir la balle pour amrquer le maximum de point

  Au commencement, 10 balles vous sont attribuées

    Quand vous n'avez plus de balle, tapez sur [ESPACE] ou [FIRE] pour retourner au MENU

P. Moulin

1 DEFINT a-z:CALL &BC02:MODE 0:PEN 13:PAPER 0:DEF FNi(v,m,p,c,l,x,y)=MIN(m,MAX(p,v+(INKEY(c)AND INKEY(x))-(INKEY(l)AND INKEY(y)))):DEF FNt=INKEY(47)AND INKEY(77):m$(1)="1OO A L' HEURE":m$(2)="ALPHABET RACER":m$(3)="TAQUIN CLASSIC":m$(4)=" RETRO SQUASH "
2 PRINT,," * 10-LIGNES 4en1 *":PEN 4:WHILE FNt:j=FNi(j,4,1,2,0,73,72):WHILE c<>j:FOR a=1 TO 4:LOCATE 3,6+a*3:PAPER 15*-(j=a):PRINT" "m$(a)" ":c=j:NEXT:WEND:WEND:PAPER 0:CLS:PRINT" R{tropoke pr{sente"SPACE$(163)m$(j):CALL &BB03:CALL &BB06:ON j GOTO 3,5,7,9
3 MODE 0:INK 0,9:INK 2,13:c=12:d=8:v=9:SYMBOL 255,24,&A5,&DB,&A5,36,&BD,&E7,&BD:v$=CHR$(255):WINDOW#2,8,15,1,25:PAPER#2,2:WHILE d:k=k+1:PRINT CHR$(30)" KM"k:WHILE r<220:CLS#2:WINDOW#2,d,d+7,1,1:LOCATE 1+d+RND*5,1:t=1+t:WHILE t>v:t=0:PEN 3+RND*4:PRINT v$;
4 WEND:SOUND 1,1,1:s=s+1:PRINT CHR$(11):PEN 1:LOCATE c,25:PRINT v$:WHILE TEST(c*32-8,20)=0:PEN 3:PRINT CHR$(30)SPC(5)"Score:"s:WHILE FNt:SOUND 5,RND*99,4,,,,30:WEND:RUN:WEND:c=FNi(c,19,4,1,8,75,74):d=MIN(12,MAX(6,d-1+RND*2)):r=r+1:WEND:r=0:v=v+(v>1):WEND
5 MODE 1:g=1:ORIGIN 0,0,0,639,399,64:CLG 3:WHILE g<27:DIM z(40,20):ORIGIN 0,0,9,630,390,75:CLG 0:PEN 2:FOR b=1 TO g:s=0:WHILE s=0:x=2+RND*37:y=3+RND*17:s=z(x,y)=0:WEND:z(x,y)=b:LOCATE x,y:PRINT CHR$(64+b):NEXT:c=21:l=2:d=1:WHILE d<=g:LOCATE c,l:PEN 1
6 WHILE FNt=0:RUN:WEND:PRINT CHR$(&F8+RND*3):x=FNi(c,39,2,1,8,75,74):y=FNi(l,20,2,2,0,73,72):q=z(x,y):SOUND 5,q*35,1:WHILE q=d:d=d+1:q=0:WEND:WHILE q=0:c=x:l=y:z(x,y)=50:q=1:WEND:WEND:g=g+1:ERASE z:WEND:WHILE FNt:LOCATE 17,23:PRINT" GENIAL ":WEND:RUN
7 MODE 0:PEN 4:a$=". ":z$=a$:FOR a=1 TO 26:z$=CHR$(91-a)+z$:MOVE a*64+12,50:DRAWR 0,318,-(a<9)*3:MOVE 78,a*80-32:DRAWR 448,0:b$="":WHILE INSTR(a$,b$)>0:b$=CHR$(65+RND*25):WEND:a$=b$+a$:NEXT:c=7:l=3:WHILE a$<>z$:FOR y=1 TO 4:FOR x=2 TO 8:LOCATE x*2,y*5
8 PRINT MID$(a$,x-8+y*7,1):NEXT x,y:z=c+l*7:x=c:y=l:WHILE x+y=c+l:c=FNi(c,7,1,8,1,74,75):l=FNi(l,3,0,0,2,72,73):WHILE FNt=0:RUN:WEND:WEND:w=c+l*7:MID$(a$,z,1)=MID$(a$,w):MID$(a$,w)=" ":p=1+p:SOUND 1,6:PRINT CHR$(30),p:WEND:INK 3,6,9:WHILE FNt:WEND:RUN
9 INK 2,9:t$=CHR$(131):WHILE r<10:MODE 1:PEN 3:PRINT,"P:"p,"B:"9-r:FOR a=2 TO 3:WINDOW#2,a,41-a,a,22:PAPER#2,a-1:CLS#2:NEXT:x=19:v=4+2*RND*15:w=22:m=1:n=-1:WHILE w<23:PEN 3:LOCATE x,23:PRINT" "t$t$" ":x=FNi(x,37,1,1,8,75,74):o=v<4 OR v>37:m=m*(1+2*o)
10 q=w<4:n=n*(1+2*q):SOUND-o-q,999,2:WHILE TEST((v+m)*16-8,411-(w+n)*16)=3:SOUND 3,333,2:n=-n:p=p+1:LOCATE 16,1:PRINT p:WEND:v=v+m:w=w+n:CALL &BD19:CLS#2:WINDOW#2,v,v,w,w:PRINT#2,"O";:WEND:PEN-(r=9):PRINT SPC(15)"FIN DE JEU":WHILE FNt:WEND:r=r+1:WEND:RUN

---------- texte original (français)

Ligne 1 : 

- CALL &BC02 permet de réinitialiser les couleurs par défaut

- DEF FNi() création d'une fonction qui incrémente ou décrémente une variable suivant l'appui des touches fléchées ou du joystick

Ligne 2 :

- Affichage du menu 

- Attente de la sélection d'un jeu avec le clavier ou le joystick

- Affichage du jeu sélectionné et attente d'appui d'une touche

- ON j GOTO 3, 5, 7, 9 redirige sur la ligne suivant la sélection du jeu

Ligne 3 et 4 : (100 A L'HEURE)

Ligne 5 et 6 : (ALPHABET RACER)

Ligne 7 et 8 : (TAQUIN CLASSIC)

Ligne 9 et 10 : (RETRO SQUASH)

------- traduction google (français > anglais)

Line 1 :

- CALL &BC02 resets default colors

- DEF FNi() creation of a function which increments or decrements a variable depending on the pressing of the arrow keys or the joystick

Line 2:

- Menu display

- Waiting for game selection with keyboard or joystick

- Display of the selected game and waiting for a key press

- ON j GOTO 3, 5, 7, 9 redirects to the line following the selection of the game

Line 3 et 4 : (100 A L'HEURE)

Line 5 et 6 : (ALPHABET RACER)

Line 7 et 8 : (TAQUIN CLASSIC)

Line 9 et 10 : (RETRO SQUASH)