1 REM Ins{nt av 2771
10 REM .+--------------------------+
20 REM .!  Nerhackat 83-08-13      !
30 REM .!                          !
40 REM .!  ORDSPR]K.BAS            !
50 REM .!                          !
60 REM .!  av G|ran Olsson <2771>  !
70 REM .!                          !
80 REM .!  Tillkr}nglade ordspr}k  !
90 REM .!  med l|sningar.          !
100 REM !                          !
110 REM +--------------------------+
120 DIM A$=500
130 DIM C$=300
140 GOTO 2220
150 B$='KR]NGLIGA ORDSPR]K'
160 B=LEN(B$)
170 REM +-----------------------------+
180 REM ! UTSKRIFT AV UPPLYSNINGSSIDA !
190 REM ! BOKSTAV F\R BOKSTAV         !
200 REM +-----------------------------+
210 ; INP(3);CHR$(12)
220 ; TAB(9);
230 FOR I=1 TO B
240 ; MID$(B$,I,1); : REM .       +------+
250 FOR J=1 TO 100 : NEXT J : REM ! PAUS !
260 NEXT I : REM .                +------+
270 ; '     (START)'
280 ; TAB(0);
290 FOR I=0 TO 38 : ; '='; : FOR J=1 TO 150 : NEXT J : NEXT I
300 ; : ; 
310 A$='Du kommer att f} }tta stycken omgjorda'+CHR$(10,13)+'ordspr}k, d{r ett mera tillkr}nglat'+CHR$(10,13)
320 A$=A$+'ordval g|r att det inte {r lika l{tt'+CHR$(10,13)
330 A$=A$+'att f|rst} vad ordspr}ket egentligen'+CHR$(10,13)+'handlar om.'
340 A$=A$+CHR$(10,13)
350 A$=A$+'- Dessa ordspr}k {r ett urval av de,'+CHR$(10,13)+'som Text-TV publicerat under rubriken'+CHR$(10,13)
360 A$=A$+'Blandat.'+CHR$(10,13,10,13)+CHR$(10,13)+'CTRL-S = SVAR'+CHR$(10,13)+'CTRL-B = TA BORT SVAR'
370 A$=A$+CHR$(10,13)+'CTRL-N = N[STA ORDSPR]K'+CHR$(10,13)
380 A$=A$+'CTRL-F = F\REG]ENDE ORDSPR]K'+CHR$(10,13)+'CTRL-M (RETURN) = DENNA SIDA'+CHR$(10,13)
390 A$=A$+'CTRL-C = SLUTA'+CHR$(10,13)
400 A$=A$+CHR$(10,13,10,13)+'           Till ordspr}k  TRYCK CTRL-N'+CHR$(10,13)
410 A$=A$+'                          eller CTRL-F'
420 FOR I=1 TO LEN(A$)
430 ; MID$(A$,I,1); : REM .      +------+
440 FOR J=1 TO 50 : NEXT J : REM ! PAUS !
450 NEXT I : REM .               +------+
460 GOTO 560
470 REM +-----------------------------+
480 REM ! UTSKRIFT AV UPPLYSNINGSSIDA !
490 REM ! HELA SIDAN SAMTIDIGT        !
500 REM +-----------------------------+
510 ; CHR$(12)
520 ; TAB(9)B$+'     (START)'
530 FOR I=0 TO 38 : ; '='; : NEXT I
540 ; : ; 
550 ; A$;
560 FOR K=1 TO 100 : NEXT K
570 IF INP(56)-128=6 THEN 1780
580 IF INP(56)-128=14 THEN 590 ELSE 560
590 REM +------------------------+
600 REM ! UTSKRIFT AV ORDSPR]K 1 !
610 REM +------------------------+
620 P=1
630 GOSUB 1990
640 C$='Objekt, vilka kamofleras av ett'+CHR$(10,13)+'S{songsm{ssigt emballage av'+CHR$(10,13)
650 C$=C$+'kristallinisk art, blottl{gges vid'+CHR$(10,13)+'dettas |verg}ng till st|rre'+CHR$(10,13)
660 C$=C$+'molekyl{r r|rlighet.'
670 ; : ; : ; C$
680 GOSUB 2060
690 FOR K=1 TO 100 : NEXT K
700 IF INP(56)-128=13 THEN 470
710 IF INP(56)-128=6 THEN 470
720 IF INP(56)-128=14 THEN 760
730 IF INP(56)-128=2 THEN GOSUB 2160
740 IF INP(56)-128=19 THEN GOSUB 2110
750 GOTO 690
760 REM +------------------------+
770 REM ! UTSKRIFT AV ORDSPR]K 2 !
780 REM +------------------------+
790 P=2
800 GOSUB 1990
810 C$='En visuellt handikappad feminin'+CHR$(10,13)+'individ av de domisticerade'+CHR$(10,13)
820 C$=C$+'formerna av arten av sl{ktet'+CHR$(10,13)+'gallus kan likaledes excellera'+CHR$(10,13)
830 C$=C$+'i lokaliserandet av en liten'+CHR$(10,13)+'enhet av ett cerealt f|rem}l.'
840 ; : ; : ; C$
850 GOSUB 2060
860 FOR K=1 TO 100 : NEXT K
870 IF INP(56)-128=13 THEN 470
880 IF INP(56)-128=6 THEN 590
890 IF INP(56)-128=14 THEN 930
900 IF INP(56)-128=2 THEN GOSUB 2160
910 IF INP(56)-128=19 THEN GOSUB 2110
920 GOTO 860
930 REM +------------------------+
940 REM ! UTSKRIFT AV ORDSPR]K 3 !
950 REM +------------------------+
960 P=3
970 GOSUB 1990
980 C$='Den vokala manifestationen av'+CHR$(10,13)+'triumfk{nsla b|r uppskjutas'+CHR$(10,13)
990 C$=C$+'till hinsides |verskridandet'+CHR$(10,13)+'av ett akvatiskt fl|de av'+CHR$(10,13)
1000 C$=C$+'begr{nsade prominens.'
1010 ; : ; : ; C$
1020 GOSUB 2060
1030 FOR K=1 TO 100 : NEXT K
1040 IF INP(56)-128=13 THEN 470
1050 IF INP(56)-128=6 THEN 760
1060 IF INP(56)-128=14 THEN 1100
1070 IF INP(56)-128=2 THEN GOSUB 2160
1080 IF INP(56)-128=19 THEN GOSUB 2110
1090 GOTO 1030
1100 REM +------------------------+
1110 REM ! UTSKRIFT AV ORDSPR]K 4 !
1120 REM +------------------------+
1130 P=4
1140 GOSUB 1990
1150 C$='Kvantivativ vokalitet f|renas ofta'+CHR$(10,13)+'med ett objektivt sett ringa format'+CHR$(10,13)
1160 C$=C$+'hos p} planeten Tellus f|rekommande'+CHR$(10,13)+'individ.'
1170 ; : ; : ; C$
1180 GOSUB 2060
1190 FOR K=1 TO 100 : NEXT K
1200 IF INP(56)-128=13 THEN 470
1210 IF INP(56)-128=6 THEN 930
1220 IF INP(56)-128=14 THEN 1260
1230 IF INP(56)-128=2 THEN GOSUB 2160
1240 IF INP(56)-128=19 THEN GOSUB 2110
1250 GOTO 1190
1260 REM +------------------------+
1270 REM ! UTSKRIFT AV ORDSPR]K 5 !
1280 REM +------------------------+
1290 P=5
1300 GOSUB 1990
1310 C$='Personer vilka residera i lokaliteter'+CHR$(10,13)+'arkitektoniskt kreerande av en meta-'+CHR$(10,13)
1320 C$=C$+'stabil, transparent sm{lt produkt av'+CHR$(10,13)+'|verv{gande kiselsyra, b|r iaktaga'+CHR$(10,13)
1330 C$=C$+'abstinens i fr}ga om nyttjande av'+CHR$(10,13)+'sm{rre petrologiska enheter som'+CHR$(10,13)
1340 C$=C$+'projektiler.'
1350 ; : ; : ; C$
1360 GOSUB 2060
1370 FOR K=1 TO 100 : NEXT K
1380 IF INP(56)-128=13 THEN 470
1390 IF INP(56)-128=6 THEN 1100
1400 IF INP(56)-128=14 THEN 1440
1410 IF INP(56)-128=2 THEN GOSUB 2160
1420 IF INP(56)-128=19 THEN GOSUB 2110
1430 GOTO 1370
1440 REM +------------------------+
1450 REM ! UTSKRIFT AV ORDSPR]K 6 !
1460 REM +------------------------+
1470 P=6
1480 GOSUB 1990
1490 C$='Man b|r ej genom fysisk aktivitet'+CHR$(10,13)+'hastigt f|rflytta ur havet utvunna'+CHR$(10,13)
1500 C$=C$+'rikedomar av speciell sort till i'+CHR$(10,13)+'agrikulturella egendomar befintliga'+CHR$(10,13)
1510 C$=C$+'animala individer av utpr{glad art.'
1520 ; : ; : ; C$
1530 GOSUB 2060
1540 FOR K=1 TO 100 : NEXT K
1550 IF INP(56)-128=13 THEN 470
1560 IF INP(56)-128=6 THEN 1260
1570 IF INP(56)-128=14 THEN 1610
1580 IF INP(56)-128=2 THEN GOSUB 2160
1590 IF INP(56)-128=19 THEN GOSUB 2110
1600 GOTO 1540
1610 REM +------------------------+
1620 REM ! UTSKRIFT AV ORDSPR]K 7 !
1630 REM +------------------------+
1640 P=7
1650 GOSUB 1990
1660 C$='Att samtliga objekt, som reflekterar'+CHR$(10,13)+'majoriteten av den kortv}giga elektro-'+CHR$(10,13)
1670 C$=C$+'magnetiska str}lning som fr{ffar dess'+CHR$(10,13)+'yta, signifierar metallurgisk pondus'+CHR$(10,13)
1680 C$=C$+'{r en f|rhastad konklusion'
1690 ; : ; : ; C$
1700 GOSUB 2060
1710 FOR K=1 TO 100 : NEXT K
1720 IF INP(56)-128=13 THEN 470
1730 IF INP(56)-128=6 THEN 1440
1740 IF INP(56)-128=14 THEN 1780
1750 IF INP(56)-128=2 THEN GOSUB 2160
1760 IF INP(56)-128=19 THEN GOSUB 2110
1770 GOTO 1710
1780 REM +------------------------+
1790 REM ! UTSKRIFT AV ORDSPR]K 8 !
1800 REM +------------------------+
1810 P=8
1820 GOSUB 1990
1830 C$='Ocks} f|r sm} kok-utensilier av'+CHR$(10,13)+'begr{nsat format g{ller att de'+CHR$(10,13)
1840 C$=C$+'f|rsedda med yttre f|retr{den som'+CHR$(10,13)+'kan betraktas som avlyssningsattribut'+CHR$(10,13)
1850 C$=C$+'eller som gripredskap.'
1860 ; : ; : ; C$
1870 GOSUB 2060
1880 FOR K=1 TO 100 : NEXT K
1890 IF INP(56)-128=13 THEN 470
1900 IF INP(56)-128=6 THEN 1610
1910 IF INP(56)-128=14 THEN 470
1920 IF INP(56)-128=2 THEN GOSUB 2160
1930 IF INP(56)-128=19 THEN GOSUB 2110
1940 GOTO 1880
1950 REM +-----------------------+ 
1960 REM !  H[R KAN DU L[GGA IN  ! 
1970 REM !  FLER ORDSPR]K !!!!!  ! 
1980 REM +-----------------------+ 
1990 REM +----------------+
2000 REM ! ' \VERSKRIFT ' !
2010 REM +----------------+
2020 ; CHR$(12)
2030 ; TAB(9)B$+'       ('NUM$(P)+' )'
2040 FOR I=0 TO 38 : ; '='; : NEXT I
2050 RETURN 
2060 REM +-----------------------+
2070 REM ! ' SVARS-'P]MINNELSE'' !
2080 REM +-----------------------+
2090 ; CUR(14,0)'SVAR :' : ; '======' : ; : ; 'TRYCK CTRL-S' : ; 
2100 RETURN 
2110 REM +------------------+
2120 REM ! UTSKRIFT AV SVAR !
2130 REM +------------------+
2140 ; CUR(17,0)S$(P)
2150 RETURN 
2160 REM +--------------+
2170 REM ! TA BORT SVAR !
2180 REM +--------------+
2190 FOR I=16 TO 21 : FOR J=0 TO 38 : ; CUR(I,J)' ' : NEXT J : NEXT I
2200 ; CUR(17,0)'TRYCK CTRL-S'
2210 RETURN 
2220 REM +--------+
2230 REM ! SVAREN !
2240 REM +--------+
2250 S$(1)='  -  Det som g|ms i sn|,'+CHR$(10,13)+' kommer fram i t|.'
2260 S$(2)='  -  [ven en blind h|na'+CHR$(10,13)+' kan hitta korn.'
2270 S$(3)='  -  Man skall inte ropa hej'+CHR$(10,13)+' f|rr{n man {r |ver b{cken.'
2280 S$(4)='  -  Liten p} jorden'+CHR$(10,13)+' men stor i orden.'
2290 S$(5)='  -  Man ska inte kasta sten'+CHR$(10,13)+' n{r man sitter i glashus.'
2300 S$(6)='  -  Man ska inte kasta p{rlor'+CHR$(10,13)+' }t svin.           '
2310 S$(7)='  -  Allt {r inte guld'+CHR$(10,13)+' som glimmar.'
2320 S$(8)='  -  Sm} grytor har ocks} |ron.'+CHR$(10,13)+'                    '
2330 REM +-----------------------+ 
2340 REM !  H[R KAN DU L[GGA IN  ! 
2350 REM !  SVAR P] ORDSPR]K !!  ! 
2360 REM +-----------------------+ 
2370 GOTO 150