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