10 ' ******************  
20 " * MSX ON-LINE *
30 " *  
40 ' * H. VERSTEGEN *
50 ' * P. DIEDEREN *
60 *  *
70 * VELDHOVEN *
80 * 040-543778 *
90 ' * 040-534041 *
100 ''****•**•*■**■*****■*■*#*
110 CLS:WIDTH(40)
120 COLOR 15,4,4:SCREEN ,,,2 130 CLEAR 1000
140 GOSUB 1000 :REM Funktietoet
sen
150 FOR X=0 TO 2
160 FüR Y=11 TO 28
170 LOCATE Y,X:PRINT CHR$(223)
180 NEXT Y 190 NEXT X
200 LOCATE 12,1:PRINT" M.S.X. on-line
li
210 LOCATE 5,6:PRINT "Deze M.S.X.-com pu.ter staat in di-"
220 PRINT:PRINT"reete verbinding met een andere M.S.X.-"
230 PRINT:F'RINT"computer. "
240 LOCATE 5,12:PRINT "U kunt met dez e andere computer-"
250 PRINT: F'RINT"gebruiker communicere n middels de "
260 PRINT:PRINT"vraag- en antwoord-me thode. "
270 LOCATE 5,22:PRINT "Druk een toets in voor vervolg"
280 Z$=INKEY$:IF Z$="" THEN 280 290 CLS
300 LOCATE 5,2:PRINT "Het teken (v) a chter het woord"
310 PRINT:PRINT"VRAAG en ANTWOORD bet ekent TE VERZENDEN"
320 LOCATE 5,6:PRINT "Het teken (o) b etekent TE ONT-"
330 PRINT:PRINT"VANGEN."
340 LOCATE 5,22:PRINT "Druk een toets in voor vervolg"
350 Z$=INK'EY$: IF Z$="" THEN 350 360 CLS
370 L.0CATE 5,3:F'RINT "U dient eerst m et de andere"
380 PRINT:PRINT "computer-gebruiker a f te spreken wie "
390 PRINT:PRINT "als eerste gaat zend en en wie als"
400 PRINT:PRINT "eerste gaat ontvange n. "
410 L.0CATE 12, 15: PR INT "VRAAG: "
420 L.0CATE 2, 18:PRINT "Gaat U als eer ste zenden (J/N) ?"
430 Z$=INKEY$:IF Z$="" THEN 430 440 IF Z$="J" 0R Z$="j" THEN 450 ELSE CLS;GOTO 510 450 CLS
460 LOCATE 5,10:PRINT "Een ogenblik .
.... 5 . V. P . "
470 FÖF: T=1 TO 5000: NEXT T
480 CLS
490 GOSUB 1500 :' VRAAG(v)
500 GOSUB 2000 :' ANTWOORD(o)
510 GOSUB 2500 : ' VRAAG(o)
520 GOSUB 3000 :' ANTWOORD(v)
530 GOTO 490
1000 REM ***** FUNCTIETOETSEN *****
1010 KEY OFF
1020 FOR N=1 TO 10
1030 KEY N,""
1040 NEXT N 1050 RETURN
1500 REM ***** VRAAG (v) *****
1510 ER-0:LR=9
1520 GOSUB 4500 :' WISSEN REGELS
1530 GOSUB 5000 :' ST0PMELDIN6
1540 L.QCATE 0,0: PRINT "VRAAG (v) :" 1550 LOCATE O,2:LINEINPUT A$:B$="0" 1560 IF LEN <Af)>200 THEN 1570 ELSE 16 10
1570 ER-O:LR=9
1530 GOSUB 4500 :'WISSEN REGELS
1590 LOCATE 0,0:PRINT "VRAAG (v): (tekst is te lang)"
1600 GOTO 1550
1610 LOCATE 14,0:PRINT SPC(IS)
1620 GOSUB 3500 :' VERZENDEN
1630 RETURN
20ÖU REM ***** ANTWOORD (o) *****
2010 ER=1Ö:LR=22
2020 GOSUB 4500 :' WISSEN REGELS
2030 LOCATE 0,11:PRINT "ANTWOORD (o):
II
2040 Y=13
2050 GOSUB 4000 :' ONTVANGEN
2060 RETURN
2500 REM ***** VRAAG (o)*****
2510 ER=0:LR=9
2520 GOSUB 4500 :' WISSEN REGELS
2530 LOCATE 0,0:PRINT "VRAAG (o):" 2540 Y=2
2550 GOSUB 4000 :' ONTVANGEN
2560 RETURN
3000 REM ***** ANTWOORD (v) *****
3010 ER= i O;LR=22
3020 SOSUB 4500 :' WISSEN REGELS
3030 L.OCATE O, 11: PRINT "ANTWOORD (v) :
i!
3040 LOCATE O,13:LINEINPUT Af:B$="0" 3050 IF LEN(Af) >200 THEN 3060 ELSE 31 00
3060 ER=1O:LR=22
3070 GOSUB 4500 :' WISSEN REGELS
3080 LOCATE O, 11 .-PRINT "ANTWOORD Cv) : (tekst is te lang)"
3090 GOTO 3040
3100 LOCATE 16,11:PRINT SPCC18)
3110 GOSUB 3500 VERZENDEN
3120 RETURN
3500 REM ***** VERZENDEN *****
3510 OPEN "CAS:" FOR OUTPUT AS #1
3520 PRINT #1,Af
3530 PRINT #1 ,Bf
3540 CLOSE #1
3550 RETURN
4000 REM ***** ONTVANGEN *****
4010 OPEN "CAS:" FOR INPUT AS #1
4020 LINE INPUT #3, Af
4030 LINE INPUT #l,Bf
4040 LOCATE O,Y:PRINT Af
4050 IF B$="1" THEN 5580
4060 CLOSE #1
4070 RETURN
4500 REM ***** WISSEN REBELS ***** 4510 FOR X =ER TO LR 4520 LOCATE 0,X 4530 PRINT SPC(40);
4540 NE X T X 4550 RETURN
5000 REM ***** STOPMELDING *****
5010 LOCATE O,22:PRINT STRINGf(39,
) ;
5020 LOCATE 4,23: PRINT"<CTF:L> + <STOP > = stoppen"
5030 ON STOP GOSUB 5500 5040 STOP ON 5050 RETURN
5500 REM ***** STOPPEN *****
5510 ER=ü:LR-24
5520 GOSUB 4500 :' WISSEN REGELS
5530 Af ="DE ON-LINE VERBINDING IS VERBROKEN. "
5540 LOCATE 3,10:PRINT Af 5550 Bt="1"
5560 GOSUB 3500 :' VERZENDEN
5570 FOR T=1 TO 2000:NEXT T 5590 DEFUSR=&H3E:X=USR(0)
5590 ER-4:LR-22 5600 GOSUB 4500 5610 KEY ON 5620 CLOSE #1 5630 END