1000 REM *** RADEN ***
1010 REM *** VERSIE NOVEMBER 1983 DOOR J.N. VERWOERD ***
1020 GOSUB 1380
1030 PRINT TAB(20)"***** RAAD HET WOORD *****"
1040 PRINT:PRINT:PRINT
1050 INPUT "WILT U INSTRUCTIES ? Y/<N> ";I$
1060 IF I$="Y" THEN GOSUB 1440
1070 GOSUB 1380
1080 T=0
1090 PRINT:PRINT:PRINT:PRINT
1100 PRINT "VOER EEN WOORD IN ....   : ";
1110 W$=""
1120 Q$=INKEY$:IF Q$="" THEN 1120
1130 IF Q$=CHR$(13) THEN 1170
1140 PRINT "-";
1150 W$=W$+Q$
1160 GOTO 1120
1170 WOORD$=W$
1180 AANTAL%=LEN(WOORD$)
1190 IF AANTAL%=0 THEN GOTO 1630
1200 LINKS$=LEFT$(WOORD$,1)
1210 RECHTS$=RIGHT$(WOORD$,1)
1220 GOSUB 1380
1230 PRINT TAB(20)"RAAD HET WOORD!"
1240 PRINT
1250 PRINT TAB(15)"HET BESTAAT UIT     ";AANTAL%; "     LETTERS"
1260 PRINT
1270 PRINT TAB(15)"DE EERSTE LETTER IS EEN      ";LINKS$
1280 PRINT
1290 PRINT TAB(15)"DE LAATSTE LETTER IS EEN     ";RECHTS$
1300 PRINT:PRINT
1310 INPUT "WAT IS HET WOORD .....";R$
1320 PRINT:PRINT
1330 T=T+1
1340 IF R$=W$ THEN 1350 ELSE GOTO 1360
1350 PRINT "GERADEN IN ";T;" BEURT(EN)":GOTO 1400
1360 PRINT "FOUT !!!   PROBEER HET NOG EENS ...."
1370 FOR I=1 TO 500:NEXT I:GOTO 1220
1380 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1390 RETURN
1400 INPUT "WILT U EEN NIEUW SPEL ? <Y>/N   ",X$
1410 IF X$="N" THEN GOTO 1420 ELSE GOTO 1070
1420 PRINT:PRINT:PRINT "EINDE PROGRAMMA"
1430 END
1440 PRINT CHR$(26):PRINT:PRINT
1450 PRINT "DIT IS EEN SPELLETJE VOOR 2 OF MEER PERSONEN"
1460 PRINT "OM WOORDEN TE RADEN....."
1470 PRINT 
1480 PRINT "EEN SPELER TOETST HET TE RADEN WOORD IN (DIT"
1490 PRINT "WOORD WORDT NIET ZICHTBAAR OP HET SCHERM !),"
1500 PRINT "WAARNA EEN MEDESPELER HET BETREFFENDE WOORD"
1510 PRINT "MOET RADEN."
1520 PRINT "TER VEREENVOUDIGING WORDT NOG AANGEGEVEN UIT"
1530 PRINT "HOEVEEL LETTERS HET WOORD BESTAAT, TERWIJL"
1540 PRINT "TEVENS WORDT AANGEGEVEN WAARUIT DE BEGIN- EN"
1550 PRINT "LAATSTE LETTER BESTAAN."
1560 PRINT
1570 PRINT "<Y> EN <N> GEEFT AAN DAT HETGEEN TUSSEN DE"
1580 PRINT "'<>' STAAT WORDT UITGEVOERD BIJ GEBRUIK VAN"
1590 PRINT "DE -RETURN- TOETS"
1600 PRINT:PRINT:PRINT
1610 INPUT "TOETS -RETURN- OM TE STARTEN.....  ";S$
1620 RETURN
1630 PRINT:PRINT:PRINT "FOUTE INVOER....."
1640 PRINT "U MOET EEN -WOORD- INTOETSEN !"
1650 PRINT "OPNIEUW BEGINNEN....."
1660 FOR I=1 TO 1500:NEXT I:GOTO 1020
...."
1640 PRINT "U MOET EEN -WOORD- INTOETSEN !"
1650 PRINT "OPNIEUW BEGINNEN....."
16