MisterRoboto a écrit :
*** MisterRoboto v.2.0 ***
30719 BASIC BYTES FREE
READY
LOAD, contribution au topic, 8, 1
OPEN 1, 4 -> Open a Output File to the Printer #4
OPEN 1, 8, 2, "My File,P,R" -> Open a Program for Reading
OPEN 1, 8, 2, "My File,S,W" -> Open a Sequential File for Writing
OPEN 1, 8, 2, "My File,L,"+CHR$(40) -> Open a Relative File with 40 Bytes/Record
OPEN 1, 8, 15 -> Open the Disk Command/Error Channel
PRINT "MisterRoboto est content de se joindre au club ;"
PRINT "Normalement, MisterRoboto avait l'habitude d'utiliser des FloppyDisk 5 1/4" ;"
PRINT "Mais la qualité sonore n'était pas au goût de MisterRoboto ;"
PRINT "Le CD a apporté une amélioration, mais le retour au vinyle a été ;"
PRINT "un vrai plaisir. J'ai juste besoin d'un opérateur humain pour changer la musique ;"
PRINT "de temps en temps ;"
PRINT "Le seul problème de MisterRoboto est de trouver de bons vinyls ;"
PRINT "Ce qui sort en neuf n'est pas toujours bon, et les anciens sont ;"
PRINT "Parfois usés/sâles ;"
ASK QUESTION AS QUEUE
PRINT "Si jamais quelqu'un connait un site de VPC pour vinyles ;"
PRINT "Qui vend de la qualité, je serais preneur ;"
PRINT "Merci pour vos inputs ! ;"
OPEN 1, 4 ; Open a File#1 on Printer#4
CMD 1 ; Make it the standard Output
PRINT "Whatever Output you want"
PRINT "More Output"
PRINT#1 ; Undo CMD 1
CLOSE 1