10 REM ******************************
20 REM *  TVSPEL.ABC                *
30 REM *  av Jan Kristense          *
90 REM ******************************
95 DIM I%(30),I1%(360)
100 ; CHR$(12%)
110 Q$='GRAFIKSPEL' : Q1$='AV JAN KRISTENSEN'
120 ; CUR(1%,0%)STRING$(40%,45%)
130 FOR I%=1% TO 10% : ; CUR(0%,I%+10%)MID$(Q$,I%,1%)CHR$(7%);
140 FOR I1%=0% TO 350% : NEXT I1% : NEXT I%
150 FOR E%=1% TO 17% : ; CUR(4%,E%+8%)MID$(Q1$,E%,1%)CHR$(7%)
160 FOR I1%=0% TO 300% : NEXT I1% : NEXT E%
170 ; : ; 
180 ; "SPEL NR 1 = BREAKOUT UTAN HINDER"
190 ; "SPEL NR 2 = BREAKOUT  MED HINDER"
200 ; "SPEL NR 3 = FLIPPER"
210 ; : ; '0 = SLUT"'
220 ; : ; : ; "VILKET SPEL VILL DU HA?";
240 GET \$
250 RANDOMIZE 
260 IF \$="0" 280 ELSE 270
270 IF \$>"3" OR \$<"1" 240 ELSE 310
280 ; CHR$(12) : ; "TACK F\R DEN H[R G]NGEN"
290 ; : ; : END 
310 REM ****** TV-SPELET MURBRYTAREN **
320 M%=0%
330 ; CHR$(12)
340 ; TAB(13%)"TV-SPEL" : IF \$="2" 1290 ELSE IF \$="3" 1440 ELSE 350
350 ; TAB(13%)'BREAKOUT'
360 ; STRING$(40%,45%)
370 ; "N[R SPELET B\RJAR, KOMMER DET EN BOLL"
380 ; "FR]N SK[RMENS UNDRE DEL"
390 ; : ; "MED DE B]DA PILARNA P] TANGENTBORDET"
400 ; "SKALL DU STYRA DITT RACKET, S] ATT DU"
405 ; "TR[FFAR BOLLEN"
410 ; : ; "DU F]R PO[NG, N[R DU TAR BORT ETT"
420 ; "ELEMENT FR]N MUREN"
430 ; : ; "DU F]R 15 BOLLAR, SOM DU SKALL BRYTA"
440 ; "IGENOM 'MUREN' MED"
450 ; : ; "OM DU KLARAR AV ATT KOMMA IGENOM"
460 ; "F]R DU EN PO[NGSUMMA"
470 ; : ; "** LYCKA TILL **"
480 ; CUR(22%,0%)"TRYCK P] 'RETURN'";
490 GET S$
500 B%=15% : F%=0%
510 GOSUB 530 : IF \$='2' 1300 ELSE IF \$='3' 1550 ELSE 570
520 REM ** SUB GRAFISK **
530 ; CHR$(12%)
540 FOR I%=1% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
550 FOR I%=4% TO 70% : SETDOT I%,2% : SETDOT I%,79% : NEXT I% : IF \$='3' RETURN ELSE 560
560 FOR I%=2% TO 79% : FOR V%=5% TO 9% : SETDOT V%,I% : NEXT V% : NEXT I% : RETURN 
570 FOR I%=2% TO 10% : SETDOT 70%,I% : NEXT I%
580 FOR I%=70% TO 79% : SETDOT 70%,I% : NEXT I%
590 ; CUR(0%,10%)"0  tr{ff      bollar"
600 K%=42%
610 U%=0%
620 B%=B%-1%
630 IF B%<10% ; CUR(0%,21%)"   "
640 IF B%<0% 1140
650 ; CUR(0%,20%)B%
660 B2=RND*64+5 : B1=70
670 H2=INT(RND*4)/2-1 : H1=-1
680 IF B2<12% OR B2>68% B2=40%
690 SETDOT 71%,K%
700 SETDOT 71%,K%-1%
710 SETDOT 71%,K%-2%
720 SETDOT 71%,K%-3%
730 SETDOT 71%,K%-4%
740 SETDOT 71%,K%-5%
750 SETDOT 71%,K%-6%
760 IF INP(56%)=137% K%=K%+1% : IF K%>70% K%=70%
770 IF INP(56%)=136% K%=K%-1% : IF K%<16% K%=16%
780 IF K%<82% CLRDOT 71%,K%+1%
790 IF K%>7% CLRDOT 71%,K%-7%
800 SETDOT 71%,K%
810 SETDOT 71%,K%-6%
820 C1=B1+H1 : C2=B2+H2
830 IF U%>0% U%=U%+1% : IF U%>100% 610 ELSE FOR T=1 TO 7 : NEXT T : GOTO 760
840 IF C1>71% U%=1% : GOTO 870
850 IF DOT(C1,C2) THEN 910
860 SETDOT C1,C2
870 CLRDOT B1,B2
880 FOR I=1 TO 5 : NEXT I
890 B1=C1 : B2=C2
900 GOTO 760
910 IF C2<4% OR C2>78% H2=-H2
920 ; CHR$(7%) : IF \$='2' 1390 ELSE IF \$='3' 1610 ELSE 930
930 IF C1<11% H1=-H1
940 IF C1=70% H1=-H1
950 ; CHR$(7%)
960 I%=C2 : IF \$='3' 1670 ELSE 970
970 IF C1<5% C1=4 : GOTO 1180
980 IF C1=4% CLRDOT 4%,I% : F%=F%+1%
990 IF C1=5% CLRDOT 5%,I% : F%=F%+1%
1000 IF C1=6% CLRDOT 6%,I% : F%=F%+1%
1010 IF C1=7% CLRDOT 7%,I% : F%=F%+1%
1020 IF C1=8% CLRDOT 8%,I% : F%=F%+1%
1030 IF C1=9% CLRDOT 9%,I% : F%=F%+1%
1040 ; CUR(0%,9%);F%
1050 IF C1<>71% 820
1060 H1=-H1
1070 IF INT(C2)=K%-2% H2=.4
1080 IF INT(C2)=K%-1% H2=.5
1090 IF INT(C2)=K%-3% H2=-.5
1100 IF INT(C2)=K% H2=1
1110 IF INT(C2)=K%-4% H2=-1
1120 GOTO 820
1130 END 
1140 ; CUR(6%,4%);CHR$(135%); : IF \$='3' 1740 ELSE 1150
1150 ; "DET H[R KAN DU G\RA B[TTRE";CHR$(151);
1160 GOTO 1220
1170 REM ***** RESULTAT *****
1180 ; CUR(1%,2%)CHR$(135%)"DUR KLARADE DET MED "15%-B%" BOLLAR"CHR$(151%);
1190 S%=(B%+1%)*10%+F%
1200 ; CUR(6%,4%)CHR$(135%);
1210 ; "DETTA GER DIG "S%" PO[NG"CHR$(151%);
1220 ; CUR(12%,4%)CHR$(135%)"Vill du ha ett spel till (j/n)?"CHR$(151%);
1225 FOR I=0 TO 5000 : NEXT I
1230 GET A$
1240 IF A$="J" OR A$="j" 500
1250 ; CHR$(12%)
1260 ; "TACK F\R GOTT SPEL" : FOR I=1 TO 2500 : NEXT I
1270 GOTO 20
1280 REM *** TV-SPELET MURBRYTAREN ***
1290 ; TAB(8%)"BREAKOUT MED HINDER" : GOTO 360
1300 SETDOT 20%,3% : SETDOT 20%,10% : SETDOT 20%,20% : SETDOT 20%,30% : SETDOT 20%,40%
1310 SETDOT 20%,50% : SETDOT 20%,60% : SETDOT 20%,70% : SETDOT 20%,78%
1320 SETDOT 15%,5% : SETDOT 15%,15% : SETDOT 15%,25% : SETDOT 15%,35% : SETDOT 15%,45%
1330 SETDOT 15%,55% : SETDOT 15%,65% : SETDOT 15%,75%
1340 SETDOT 20%,4% : SETDOT 20%,11% : SETDOT 20%,21% : SETDOT 20%,31% : SETDOT 20%,41% : SETDOT 20%,51%
1350 SETDOT 20%,61% : SETDOT 20%,71%
1360 SETDOT 15%,6% : SETDOT 15%,16% : SETDOT 15%,26% : SETDOT 15%,36% : SETDOT 15%,46%
1370 SETDOT 15%,56% : SETDOT 15%,66% : SETDOT 15%,76%
1380 GOTO 570
1390 IF C1<11% H1=-H1
1400 IF C1=20% H1=-H1
1410 IF C1=15% H1=-H1
1415 GOTO 940
1420 REM **** TV-SPELET FLIPPER ****
1440 ; TAB(13%)"FLIPPER"
1450 ; STRING$(40%,45%)
1460 ; "N[R SPELET B\RJAR, KOMMER DET EN BOLL"
1470 ; "FR]N SK[RMENS UNDRE DEL"
1480 ; : ; "MED DE B]DA PILARNA P] TANGENTBORDET"
1490 ; "SKALL DU STYRA DITT RACKET, S] ATT DU"
1495 ; "TR[FFAR BOLLEN"
1500 ; : ; "DU F]R ETT PO[NG, N[R DU TAR BORT"
1510 ; "EN 'PUNKT' P] SK[RMEN"
1520 ; : ; "DU F]R 15 BOLLAR F\R ATT TA BORT ALLA"
1530 ; "'PUNKTERNA'"
1540 ; : ; "******** LYCKA TILL ********" : GOTO 480
1550 FOR I%=2% TO 79% : SETDOT 4%,I% : NEXT I%
1560 FOR S%=6% TO 76% STEP 3% : SETDOT 20%,S% : NEXT S%
1570 FOR S%=4% TO 78% STEP 3% : SETDOT 17%,S% : NEXT S%
1580 FOR S%=6% TO 76% STEP 3% : SETDOT 14%,S% : NEXT S%
1590 FOR S%=4% TO 78% STEP 3% : SETDOT 11%,S% : NEXT S%
1600 FOR S%=6% TO 76% STEP 4% : SETDOT 8%,S% : NEXT S% : GOTO 570
1610 IF C1<11% H1=-H1
1620 IF C1=20% H1=-H1
1630 IF C1=17% H1=-H1
1640 IF C1=14% H1=-H1
1650 IF C1=11% H1=-H1
1660 GOTO 940
1670 IF C1<4% C1=4% : GOTO 1800
1680 IF C1=20% THEN CLRDOT C1,C2 : F%=F%+1% : IF C2<3% OR C2>78% SETDOT C1,C2 : F%=F%-1% : H1=-H1
1690 IF C1=17% THEN CLRDOT C1,C2 : F%=F%+1% : IF C2<3% OR C2>78% SETDOT C1,C2 : F%=F%-1% : H1=-H1
1700 IF C1=14% THEN CLRDOT C1,C2 : F%=F%+1% : IF C2<3% OR C2>78% SETDOT C1,C2 : F%=F%-1% : H1=-H1
1710 IF C1=11% THEN CLRDOT C1,C2 : F%=F%+1% : IF C2<3% OR C2>78% SETDOT C1,C2 : F%=F%-1% : H1=-H1
1720 IF C1=8% THEN CLRDOT C1,C2 : F%=F%+1% : IF C2<3% OR C2>78% SETDOT C1,C2 : F%=F%-1% : H1=-H1
1730 GOTO 1040
1740 IF F%<20% ; "SLUT! DETTA L[R DU DIG ALDRIG"CHR$(151%); : GOTO 1220
1750 IF F%<40% ; "TR[NA MERA!!!"CHR$(151%); : GOTO 1220
1760 IF F%<60% ; "DU KAN B[TTRE,DET VET JAG!"CHR$(151%); : GOTO 1220
1770 IF F%<80% ; "BRAVO!!!!!"CHR$(151%); : GOTO 1220
1780 IF F%<100% ; "MYCKET BRA!!!!!!"CHR$(151%); : GOTO 1220
1790 IF F%>100% ; "HADE JAG H[NDER SKULLE JAG APPL]DERA"CHR$(151%); : GOTO 1220
1800 GOTO 1220