A downloadable game

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)



StatusReleased
Rating
Rated 4.5 out of 5 stars
(2 total ratings)
AuthorBASIC 10Liner
GenreAction
Tags8-Bit, Amstrad CPC, basic, basic10liner, schneider-cpc

Download

Download
10liner.dsk 190 kB
Download
alire.txt 1.9 kB
Download
list.txt 2.4 kB
Download
readme.txt 1.7 kB
Download
explications.txt 1.2 kB

Development log

Comments

Log in with itch.io to leave a comment.

I have a gameplay video if you need to add to the page.

Thank you! I added some other videos I found on your youtube channel. Thank you for supporting BASIC 10Liner contest :)

Would retropoke be interested in making an achievement set for it on RetroAchievements?

https://retroachievements.org/game/26485

I forwarded your question.