100 REM +-----------------------------+
110 REM !    V I R R E                !
120 REM !    =========                !
130 REM !                             !
140 REM ! (c) 1980-01-15 Per Lindberg !
150 REM !                             !
160 REM ! *** The mad programmer ***  !
170 REM ! *** strikes again !!!! ***  !
180 REM +-----------------------------+
190 ; CHR$(12%)CUR(10%,10%)'F|r hj{lp skriv "?"';
200 DATA "                              "
210 DATA "   hwg}    `w5   z{   `w5   z{"
220 DATA "    o{%     o5   *    o5   *"
230 DATA "   |~|4    ~}   h4   ~}   h4"
240 DATA "   ??5       j5      j5"
250 DATA "   555       j5      j5"
260 DATA "   555       j5      j5"
270 DATA "   555       j5      j5"
280 DATA "   !oo%!    ?o   *%   o?   jo%"
290 DATA "    jj      5j  `&j    j5   jj"
300 DATA "    jj     j j   )z    ji   j""4"
310 DATA "    jj     z j   ""j    j`5  j 5"
320 DATA "    .*$      .    .    .    .(%"
330 DATA "                                 "
340 DATA "            j{0   wu   j{0   wu"
350 DATA "            j?    %   j?    %"
360 DATA "            ~}   h4   ~}   h4"
370 DATA "               j5      j5"
380 DATA "               j5      j5"
390 DATA "               j5      j5"
400 DATA "               j5      j5"
410 DATA "            oo   *%   o?   j/5"
420 DATA "            jj        j""d  j 5"
430 DATA "            6j   hk    j8!  j j"
440 DATA "            5j   uj    j""   j j0"
450 DATA "            -*$   *$   *$   *$"
460 DATA "                            "
470 DATA "   hwg}      `<<t       pp0"
480 DATA "    o%      ""~7      *}y?"
490 DATA "   |~|4     pzp0      k!"
500 DATA "   ??5     5     5"
510 DATA "   555     555     775"
520 DATA "   555     555     555"
530 DATA "   555     555     555"
540 DATA "   !oo%!     %5!     %55"
550 DATA "    jj        jj        kk!"
560 DATA "    jj        jj        jj"
570 DATA "    jj        jj        jj"
580 DATA "    .*$       .j        jj"
590 DATA "               ""!       .""!"
600 DATA "                            "
610 DATA "   h}      `||t       pp0"
620 DATA "    o%      ""7      *?"
630 DATA "   |~|4     pzp0      k!"
640 DATA "   ??5     5     5"
650 DATA "   555     555     775"
660 DATA "   555     555     555"
670 DATA "   555     555     555"
680 DATA "   !oo%!     %5!     %55"
690 DATA "    jj        jj        kk!"
700 DATA "    jj        jj        jj"
710 DATA "    jj        jj        jj"
720 DATA "    .*$       .j        jj"
730 DATA "               ""!       .""!"
740 DATA "                       hwg}"
750 DATA "             hwg}       o{%      hwg}"
760 DATA "   `<<t       o%      |~|4      o%"
770 DATA "   ""~7      |~|4    `%5e     |~|4"
780 DATA "   x~|0     ??5    j 5j     ??5"
790 DATA "   ??5    `%5e    5 5 5    555"
800 DATA "   555    j 5j    % 5 %    555"
810 DATA "   555    * 5*      oo%      555"
820 DATA "   555      oo%       jj       !oo%!"
830 DATA "   !oo%!      jj        jj        jj"
840 DATA "   `&""d       jj        jj        jj"
850 DATA "   ""d`&       jj        jj        jj"
860 DATA "    .*$       .*$                 .*$"
870 DATA ""
880 DATA "                      `.m        `.m"
890 DATA "   hwg}      hwg}     6ho}     8iwg}"
900 DATA "    o%       o%     u o%     e o%"
910 DATA "   `~5     t     *}~|4    *}~|4"
920 DATA "   75     75     #?5     #?5"
930 DATA "   555     555      55      55"
940 DATA "   555     555      55      55"
950 DATA "   55%     %55      55      55"
960 DATA "   5oo%       oo%5      oo%!      oo%!"
970 DATA "   9!j        j )1      jj        jj"
980 DATA "   ""dj        j`&       jj        jj"
990 DATA "    #j        j""!       jj        jj"
1000 DATA "     *$       .         .*$       .*$"
1010 DATA ""
1020 DIM G$(21%,13%)=7%
1030 FOR I%=0% TO 12% : READ A$
1040 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1050 FOR J%=0% TO 3%
1060 G$(3%-J%,I%)=MID$(A$,11%+J%*5%,6%)
1070 NEXT J%
1080 G$(0%,I%)=RIGHT$(G$(0%,I%),3%)
1090 NEXT I%
1100 FOR I%=0% TO 12% : READ A$
1110 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1120 FOR J%=0% TO 3%
1130 G$(J%+4%,I%)=MID$(A$,12%+J%*5%,7%)
1140 NEXT J%
1150 G$(4%,I%)="  "+LEFT$(G$(4%,I%),4%)
1160 NEXT I%
1170 FOR I%=0% TO 13% : READ A$
1180 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1190 FOR J%=0% TO 2%
1200 G$(J%+8%,I%)=MID$(A$,3%+J%*10%,7%)
1210 NEXT J% : NEXT I%
1220 FOR I%=0% TO 13% : READ A$
1230 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1240 FOR J%=0% TO 2%
1250 G$(13%-J%,I%)=MID$(A$,3%+J%*10%,6%)
1260 NEXT J% : NEXT I%
1270 FOR I%=0% TO 13% : READ A$
1280 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1290 FOR J%=0% TO 2%
1300 G$(14%+J%,I%)=MID$(A$,3%+J%*10%,7%)
1310 NEXT J% : NEXT I%
1320 FOR I%=0% TO 13% : READ A$
1330 IF LEN(A$)<40% A$=A$+SPACE$(40%-LEN(A$))
1340 FOR J%=0% TO 3%
1350 G$(17%+J%,I%)=MID$(A$,3%+J%*10%,6%)
1360 NEXT J% : NEXT I%
1370 FOR I%=0% TO 20% : FOR J%=0% TO 13%
1380 IF LEN(G$(I%,J%))<7% G$(I%,J%)=G$(I%,J%)+SPACE$(7%-LEN(G$(I%,J%)))
1390 IF J%=13% G$(I%,J%)=LEFT$(G$(I%,J%),6%)
1400 NEXT J% : NEXT I%
1410 ; CHR$(12%); : FOR I%=0% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
1420 Y%=5% : X%=15%
1430 S%=0% : A%=8% : GOSUB 1890
1440 REM +-------------------------+
1450 REM !  M A I N   L O O P      !
1460 REM +-------------------------+
1470 REM ** RANDOM ? **
1480 IF R%=0% 1530 ELSE IF INP(56%) AND 128% R%=0% : GOTO 1530
1490 A1%=INSTR(1%,"ADWX",A$) : IF A1% IF RND>.3 GOTO 1540
1500 A$=MID$("ADXW12345 ",1%+10%*RND,1%)
1510 GOTO 1540
1520 REM ** NORMAL ! **
1530 ; CUR(0%,0%) : GET A$ : IF ASC(A$)>63% A$=CHR$(ASC(A$) AND 95%)
1540 A%=1%+INSTR(1%,"H?RADXWS4 1253",A$)
1550 ON A% GOTO 1480,2010,2010,1990,1570,1590,1610,1630,1650,1670,1730,1770,1790,1810,1840
1560 REM +----- LOOP-STYRNING -----+
1570 IF X%<4% GOSUB 1940 : GOTO 1480 ELSE IF S%=2% GOSUB 1950
1580 X%=X%-2% : FOR N%=1% TO 4% : A%=N%-N%/4%*4% : GOSUB 1890 : NEXT N% : S%=1% : GOTO 1480
1590 IF X%>29% GOSUB 1940 : GOTO 1480 ELSE IF S%=1% GOSUB 1950
1600 X%=X%+2% : FOR N%=1% TO 4% : A%=4%+N%-N%/4%*4% : GOSUB 1890 : NEXT N% : S%=2% : GOTO 1480
1610 IF Y%>9% 1480 ELSE IF S% GOSUB 1940
1620 FOR N%=1% TO 3% : A%=8%+N%+3%*(N%=3%) : Y%=Y%-(N%=3%) : GOSUB 1890 : NEXT N% : GOTO 1460
1630 IF Y%<1% 1480 ELSE IF S%=0% GOSUB 1970
1640 Y%=Y%-1% : FOR N%=0% TO 2% : A%=11%+N% : GOSUB 1890 : NEXT N% : S%=-1% : GOTO 1460
1650 IF S% GOSUB 1940
1660 GOTO 1480
1670 IF S% GOSUB 1940
1680 FOR N%=0% TO 3%+3%*RND : I%=1%+6%*RND : CLRDOT 3%*Y%+7%,2%*X%+8% : ON I% GOTO 1710,1710,1690,1690,1690,1690
1690 I%=25%+55%*RND : FOR M%=0% TO (100%-I%)/5%
1700 OUT 6%,121% : FOR J%=0% TO I% : NEXT J% : OUT 6%,0% : NEXT M% : GOTO 1720
1710 FOR J%=0% TO 110% : OUT 6%,-1%+4%*I% : NEXT J% : OUT 6%,0%
1720 SETDOT 3%*Y%+7%,2%*X%+8% : FOR J%=0% TO 200% : NEXT J% : NEXT N% : GOTO 1480
1730 IF S% GOSUB 1940
1740 FOR A%=14% TO 16% : IF A%=15% A%=16%
1750 GOSUB 1890 : NEXT A%
1760 OUT 6%,0% : OUT 6%,137% : A%=8% : GOSUB 1890 : GOTO 1480
1770 IF S% GOSUB 1940
1780 A%=17% : GOSUB 1890 : A%=8% : GOSUB 1890 : GOTO 1480
1790 IF S% GOSUB 1940
1800 A%=18% : GOSUB 1890 : A%=8% : GOSUB 1890 : GOTO 1480
1810 IF S% GOSUB 1940
1820 FOR N%=0% TO 1% : A%=19% : GOSUB 1890 : A%=20% : GOSUB 1890 : NEXT N%
1830 A%=19% : GOSUB 1890 : A%=8% : GOSUB 1890 : GOTO 1480
1840 IF S% GOSUB 1940
1850 A%=14% : GOSUB 1890 : A%=8% : GOSUB 1890 : GOTO 1480
1860 REM +-------------------------+
1870 REM !  END OF MAIN LOOP       !
1880 REM +-------------------------+
1890 FOR I%=0% TO 13%
1900 ; CUR(Y%+I%,X%)" "G$(A%,I%)" ";
1910 NEXT I%
1920 FOR ]=0 TO 200 : NEXT ]
1930 RETURN 
1940 IF S%=-1% A%=-4%*(RND>.5) : GOSUB 1890
1950 IF S% A%=8% : GOSUB 1890 : S%=0%
1960 RETURN 
1970 IF S%=0% A%=-4%*(RND>.5) : GOSUB 1890
1980 A%=13% : GOSUB 1890 : S%=-1% : RETURN 
1990 IF INP(56%) AND 128% 1990 ELSE R%=-1% : GOTO 1480
2000 REM +------HJ[LP------------+
2010 ; CHR$(12%);
2020 ; TAB(12%)"V I R R E"TAB(27%)"PL-80"
2030 ; TAB(11%)CHR$(151%)"#########"
2040 ; TAB(22%)"The mad programmer";
2050 ; TAB(22%)"strikes again!!"
2060 ; 
2070 ; 'Du kan styra gubben upp}t, ned}t,'
2080 ; '}t v{nster och }t h|ger med knapparna:'
2090 ; 
2100 ; '            W'
2110 ; '          A S D'
2120 ; '            X'
2130 ; '                         opp'
2140 ; 'Om du vill f} honom att h   a,'
2150 ; 'tryck p} <mellanslag>. Tangenten "S"'
2160 ; 'st{ller honom rakt fram.'
2170 ; 'Tangenterna "1" t.o.m. "5" inneh}ller' : ; 'n}gra olika |verraskningar.'
2180 ; 'Kommandot "R" f}r honom att sk|ta sig'
2190 ; 'sj{lv, tills du trycker p} n}gon annan'
2200 ; 'tangent.'
2210 ; ''
2220 ; '"?" och "H" ger denna hj{lpsida.'
2230 ; 
2240 ; 'Tryck p} <RETURN>, s} forts{tter vi.'CHR$(151%,8%);
2250 INPUTLINE A$
2260 ; CHR$(12%); : FOR I%=0% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
2270 GOTO 1420