Programmes | ||||
---|---|---|---|---|
Bombardier | Cercle | Division | Fonction | |
Old_Timer | Stars_Wars |
You can find in the page many programs I wrote for my PC-1350. All of them need my ULM 3 tools.
Notez bien: most tools have only french documentation. I will doing my best to make newer in both french and english for newer programs. Perasp, one day, everything will be in both language ... |
Cette page contient plusieurs programmes que j'ai ecrit pour mon PC-1350. Ils nécessitent la présence d'ULM 3.
|
Un petit jeu sympa écrit entierement en BASIC : le bombardier survole une ville qu'il doit detruire. A chaque passage, il dessend un peu, donc il faut reussir le bombardement sinon il s'écrasera dessus.
Lancement :[DEF][SPACE] ou RUN .
| Portabilité : ULM3 n'est utilisé que pour émetre des bips. Il suffit donc de supprimer les CALL pour que le programme fonctionne sur PC-1360, PC-1600, voir même sur PC-E500. |
Bombardier.bas 957 Octets |
Résoud graphiquement une equation trigonométrique.
[DEF][SPACE]
(éviter le RUN qui fera perdre une éventuelle précédente formule).
[ENTER]
si elle n'a pas changé).2*PI/4+10*K*PI/3
en RADIAN
*
par exemple).
(X<=2*PI) AND (X>0)
pour X appartenant à ]0;2PI].Df=1
Lancement :[DEF][SPACE] ou RUN .
|
Portabilité : La magorité des CALL peuvent être supprimés.
|
Cercle.bas 1188 Octets |
Divise un polynome de degré quelconque par (X-a).
Lancement :[DEF][SPACE] ou RUN .
|
Portabilité : ULM3 est utilisé pour obtenir des effets vidéo (inverse vidéo et redéfinition de caractères), ainsi que le GET. Ce doit être possible de supprimer ces dépendances mais il faut sans doute réécrire les 9/10eme du source. |
Division.bas 913 Octets |
Ce programme permet de tracer le graph d'une fonction. Il permet aussi de superposer plusieurs courbe.
GOTO "MENU"
: affiche un 'menu' contenant la liste des labels definis (cette liste),
F(X)
. Utilise un AREAD
donc saisir la valeur de X avant d'appeler ce label.
CLS ?
un 'O' effacera l'écran sinon nouveau tracé se superposera au précédent.
Portabilité : Bon courage ;-D
Fonction.bas 3022 Octets |
D'après un listing paru dans CNO #6.
Il s'agit pour chacun des 2 joueurs, en 3 minutes, de créer le plus de mots possibles avec les lettres qui apparaissent à l'écran, en suivant les r&egrace;gles suivantes :
Lancement :[DEF][SPACE] ou RUN .
|
Portabilité : le programme en langage machine se place en &5900 donc il faut une carte memoire. A moins de le placer dans la mémoire supperieur mais plus de place pour ULM3. Pas de problème, il n'est utilisé qu'a la ligne 180 pour faire un GET. Il faudra addapter le langage machine pour d'autres machines que le PC-1350. |
Goggle.bas 2772 Octets |
La présentation se trouve dans le Loader : attention, il se termine par un CHAIN
.
Le jeux lui même se trouve dans le second listing : il est totalement autonome.
D'après un listing pour PB 1000 paru dans CNO #6.
Lancement :[DEF][SPACE] ou RUN .
| Portabilité : Beaucoup de GET donc le source doit profondement remanier. |
Loader.bas 1108 Octets | Old_Timer.bas 2152 Octets |
Entierrement écrit en BASIC, mais quant même assez rapide.
Les touches [4][8][2][6] permettent de déplacer le viseur comme un rose des vents, et [5] tire sur la cible.
Mémoire : tel quel, il ne fonctionnera qu'avec une carte memoire. Cependant, en changeant les CALL de la ligne 10 (c&5DA8 qui reserve de la mémoire pour concerver une copie de l'écran) et des lignes 150,180,1300, il est peut être possible de le charger sur une machine sans extention. |
Lancement :[DEF][SPACE] ou RUN .
| Portabilité : ULM3 n'est utilisé que pour émetre des bips et pour mémoriser l'écran. Il suffit donc de supprimer les CALL et redessiner l'écran pour que le programme fonctionne sur PC-1360, PC-1600, voir même sur PC-E500. |
Stars_Wars.bas 4569 Octets |