Um Smileys im Code zu vermeiden, und um den Code korrekt anzuzeigen, gibt es hier die CODE Funktion.
Bitte auch benutzen!
10 '==================================
20 '== WINDOW ==
30 '==PAR CLAUDE MASONI- VESOUL (70)==
40 '== 1986 ==
50 '== ECRIT POUR AMSTRAD MAGAZINE ==
60 '==================================
70 '
100 DEFINT a-z:INK 0,0:BORDER 0:INK 1,0
110 ON ERROR GOTO 710
120 |CLS' provoque une erreur si la routine n'est pas initialisee
130 ON ERROR GOTO 790 'traitement d'erreur normal
140 MEMORY(41600-(80*25*8))-2049
150 MODE 2:WINDOW 2,78,2,24:WINDOW#7,1,80,1,1:BORDER 0:PAPER #7,1:CLS#7
160 PLOT 1,1,1:DRAW 639,0:DRAW 639,399:DRAW 0,399:DRAW 0,0
170 a$=" DEMONSTRATION DE FENETRES ET MENUS DEROULANTS "
180 |PRINT,15,3,@A$,1
190 DATA"- INSTRUCTIONS RSX DISPONIBLES:"
200 DATA" -----------------------------"
210 DATA"- |WINDOW,gauche,droite,haut,bas"
220 DATA" Defini les dimensions de la fenetre et opere la sauvegarde de l'ecran et"
230 DATA" memoire (memes parametres que WINDOW du Basic)."
240 DATA"","- |CLS"
250 DATA" Efface la fenetre (remplie de INK 0)."
260 DATA"","- |CADRE"
270 DATA" Trace un cadre de couleur INK 1 autour de la fenetre."
280 DATA"","- |WIND, Numero de fenetre"
290 DATA" Cree une fenetre texte accessible par les commandes: LIST#n,?#n,CLS#n,etc."
300 DATA"","- |WINDOFF"
310 DATA" Efface la fenetre et restitue l'ecran original."
320 DATA"","- |PRINT,x,y,@TEXTE$,video"
330 DATA" Affiche rapidement TEXTE$ aux coordonnees X,Y de la couleur Video (0 ou 1)"
340 FOR i=5 TO 24
350 READ a$:|PRINT,2,i,@a$,0
360 NEXT
380 '
390 a$=" INFORMATIONS ":|PRINT,2,1,@a$,0
400 a$=" CATALOGUE " :|PRINT,17,1,@a$,1
410 INK 1,26:RESTORE 530
420 '
430 'INFOS
440 '
450 FOR t=1 TO 5000:NEXT
460 |WINDOW,2,17,2,5:|CLS:|CADRE
470 a$(1)=" INFOS ":a$(2)=" FIN ":|PRINT,3,3,@a$(1),1:|PRINT,3,4,@a$(2),0
480 FOR t=1 TO 500:NEXT:|PRINT,3,3,@a$(1),0:|PRINT,3,4,@a$(2),1
490 FOR i=1 TO 10:|PRINT,3,4,@a$(2),0:FOR t=1 TO 150:NEXT:|PRINT,3,4,@a$(2),1:FOR t=1 TO 150:NEXT:NEXT:|WINDOFF
500 FOR t=1 TO 1000:NEXT:|WINDOW,2,17,2,5:|CLS:|CADRE:|PRINT,3,3,@a$(1),1:|PRINT,3,4,@a$(2),0:FOR T=1 TO 500:NEXT
510 FOR i=1 TO 10:|PRINT,3,3,@a$(1),0:FOR t=1 TO 150:NEXT:|PRINT,3,3,@a$(1),1:FOR t=1 TO 150:NEXT:NEXT:|WINDOFF
520 '
530 DATA "WINDOWS","CLAUDE MASONI","pour","AMSTRAD MAGAZINE","Septembre 1986"
540 FOR i=1 TO 5:READ a$(i):x(i)=25+INT((30-LEN(a$(i)))/2):Y(I)=10+(i*2)-1:NEXT
550 |WINDOW,25,55,10,20:|CLS:|CADRE:FOR i=1 TO 5:|PRINT,x(i),Y(I),@A$(I),0:NEXT
560 FOR T=1 TO 10000:NEXT
570 |WINDOFF
580 '
590 'CATALOGUE
600 '
610 FOR t=1 TO 1000:NEXT: a$=" INFORMATIONS ":|PRINT,2,1,@a$,1:a$=" CATALOGUE " :|PRINT,17,1,@a$,0
620 FOR t=1 TO 5000:NEXT
630 |WINDOW,17,31,2,5:|CLS:|CADRE
640 a$(1)=" CATALOGUE ":a$(2)=" FIN ":|PRINT,18,3,@a$(1),1:|PRINT,18,4,@a$(2),0
650 FOR T=1 TO 500:NEXT:FOR i=1 TO 10:|PRINT,18,3,@a$(1),0:FOR t=1 TO 150:NEXT:|PRINT,18,3,@a$(1),1:FOR t=1 TO 150:NEXT:NEXT:|WINDOF
F
660 |WINDOW,9,51,3,23:|CLS:|CADRE:|WIND,6:CAT
670 FOR T=1 TO 10000:NEXT:|WINDOFF
680 '
690 '
700 FOR T=1 TO 20000:NEXT:GOTO 390
710 '--------------------------------
720 ' CHARGEMENT - INITIALISATION
730 '--------------------------------
740 LOAD "WINDOWs.BIN":CALL &A280
750 RESUME 130
760 '--------------------------------
770 ' TRAITEMENT DES ERREURS
780 '--------------------------------
790 IF ERR=33 THEN PRINT CHR$(24)"** ERREUR WINDOWS LIGNE:";ERL" **";CHR$(7);CHR$(24):END
800 PRINT"ERREUR ";ERR;"LIGNE "ERL:END