1 REM Ins{nd av Patrik Eveborn <4323> 1985-01-15 18.29.12 100 REM ----------------------- 110 REM Program DIKTER.GAM 120 REM Version 1.1 130 REM Datum 84-01-15 140 REM 150 REM (c) Patrik Eveborn 160 REM ABC-member 4323 170 REM MCA-member 64 180 REM ----------------------- 190 RANDOMIZE 200 FOR I=1 TO 7 210 FOR J=1 TO 10 220 READ A$(I,J) 230 NEXT J 240 NEXT I 250 ; 'Vill du ha dikterna p} printern'; : INPUT P$ 260 IF P$='J' THEN P=1 270 ; CHR$(12) 280 OPEN "pr:" ASFILE P : ; 'Avsluta med "N"' 290 FOR I=1 TO 7 300 IF I=5 THEN ; 310 IF P=1 THEN IF I=5 THEN ; #1 320 J=INT(10*RND) : IF J=0 THEN J=10 330 ; A$(I,J);' '; 340 IF P=1 THEN ; #P,A$(I,J);' '; 350 NEXT I 360 ; : ; 370 IF P=1 THEN ; #1 : ; #1 380 GET O$ 390 IF O$='N' THEN 490 400 GOTO 290 410 DATA Jag,Du,Kungen,Blomman,F}geln,[rtan,Hunden,Katten,St{daren,Loppan 420 DATA hoppar,springer,rullar,fiskar,skolkar,skriver,sopar,doppar,sitter,spottar 430 DATA fort,sakta,vackert,fult,snobbigt,klumpigt,larvigt,skickligt,d}ligt,h|gt 440 DATA vid,p},i,bredvid,under,framf|r,bakom,inuti,'till v{nster om','till h|ger om' 450 DATA 'en hamn',marken,gatan,skolan,skogen,havet,|n,huset,backen,vattnet 460 DATA 'en mulen','en varm','en rolig','en vacker','en kall','en sandig','en disig','en gr|n','en kylig','en brun' 470 DATA vinterdag,sommarkv{ll,h|stmorgon,v}rnatt,oktoberkv{ll,sommarmorgon,majdag,februarim}nad,sensommardag 480 DATA januarimorgon 490 ; #P : ; #P'Dikterna gjorda av programmet DIKTER.GAM' 500 CLOSE P