1 REM Ins{nt av 4185
10 REM *******************************************************
20 REM *             H O P P A N D E   H [ S T               *
30 REM *                                                     *
40 REM *   ett program av  Gunilla Forssell  LIDING\  1983   *
50 REM *******************************************************
60 ; INP(4)
70 C%=0% : N%=16%
80 F%=17% : H%=25% : M5%=100%
90 DIM A$=900%,D1$=90%,C$=90%
100 ; CHR$(12)
110 FOR I%=1% TO 21% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
120 ; CUR(6%,18%)"`0"
130 ; CUR(7%,17%)'8#")p          8#d'
140 ; CUR(8%,15%)"`>!   k0        8!  i"
150 ; CUR(9%,4%)"`<',t    `8'      k4     `&     )"
160 ; CUR(10%,3%)'`?!  "m0`<#         #,p  8!       #d'
170 ; CUR(11%,2%)"8'     `?#              e.!"
180 ; CUR(12%,1%)'.!     x7                "-';
190 ; CUR(22%,0%)"***************************************"
200 ]%=4% : Q1%=0%
210 Z%=24% : C$="" : E%=0% : D1$="" : D$="" : Q%=Q%+1% : Q1%=Q1%+1% : IF Q%=]% THEN 420
220 A$=SPACE$(21%)
230 A$=A$+" HEJ!  H{r {r jag. Om Du trycker p} 'G' hoppar jag upp. Ju l{ngre Du trycker,"
240 A$=A$+" ju h|gre hoppar jag. Du f}r 5 +po{ng varje g}ng, som jag n}r marken efter ett hopp,"
250 A$=A$+" 10 -po{ng om jag tr{ffar hindret eller hoppar f|r l}ngt fram till framkanten."
260 A$=A$+SPACE$(24%)
270 Z%=2%
280 C%=C%+1%
290 IF C%=6% C%=1%
300 IF C%=1% GOSUB 1430
310 IF C%=2% GOSUB 1430
320 IF C%=3% GOSUB 1500
330 IF C%=4% GOSUB 1570
340 IF C%=5% GOSUB 1570
350 ; CUR(18%,1%)CHR$(135);MID$(A$,Z%,22%);CHR$(151);
360 Z%=Z%+1%
370 IF INP(56%)=199% OR INP(56%)=231% GOTO 410
380 FOR I=0 TO 50 : NEXT I
390 IF MID$(A$,Z%,22%)=SPACE$(22%) THEN 410
400 GOTO 280
410 Q%=0% : K%=0% : M7%=0%
420 ; CHR$(12%)
430 D%=0% : K%=0% : M%=0%
440 M6%=6% : M7%=M7%+1%
450 IF M7%>3% GOTO 2530
460 ; CHR$(12%)
470 FOR I%=0% TO 20% : ; : ; CHR$(151%); : NEXT I%
480 A%=2% : H%=27% : F%=17% : N%=15% : M%=0% : M1%=0% : M2%=0% : M3%=1% : M4%=0% : M6%=M6%-1%
490 IF M6%=0% THEN 440
500 ; CUR(22%,0%)"***************************************"
510 RANDOMIZE : C1%=16%-INT(10%*RND)
520 ; CUR(23%,0%)"DU HAR "D%" PO[NG OCH "M6%+5%*(3%-M7%)" SPEL KVAR";
530 M5%=6%*M6% : A%=A%+M7%
540 IF A%>81%-M7% AND M3%<12% GOTO 460
545 IF A%>81%-M7% THEN 590
550 FOR C5%=4%*C1% TO 65% : CLRDOT C5%,A%-M7% : NEXT C5%
560 FOR C5%=4%*C1% TO 65%
570 IF DOT(C5%,A%) GOTO 1380 ELSE SETDOT C5%,A%
580 NEXT C5%
590 ON M3% GOTO 610,740,780,830,820,930,1010,1060,1060,1110,1180,1220,1310
600 REM  SPRINGANDE H[ST 
610 M1%=M1%+1% : M2%=M2%+1%
620 IF M2%=3% M2%=1%
630 IF M1%>5% M1%=1%
640 IF INP(56%)=199% OR INP(56%)=231% M3%=2%
650 ON M1% GOTO 660,660,680,700,700
660 GOSUB 1430
670 GOTO 710
680 GOSUB 1500
690 GOTO 710
700 GOSUB 1570
710 IF M2%=2% GOTO 610
720 GOTO 530
730 REM  H[ST F\RE UPPHOPP 
740 GOSUB 2490
750 GOSUB 1500
760 M3%=3% : GOTO 530
770 REM  H[ST VID UPPHOPP 
780 GOSUB 2490
790 GOSUB 1730
800 M3%=4% : GOTO 530
810 REM  UPPHOPPANDE H[ST 
820 M5%=2%*M6%
830 GOSUB 2490
840 F%=F%-1% : H%=H%-1%
850 IF H%=2% GOTO 1380
860 GOSUB 1820
870 GOSUB 1920
880 GOSUB 2030
890 IF INP(56%)=199% OR INP(56%)=231% M3%=5% ELSE M3%=6%
900 IF F%<8% M3%=M3%+1%
910 GOTO 530
920 REM  UPPHOPPANDE H[ST EFTER SL[PPT TANG 'G' 
930 M5%=3%*M6%
940 GOSUB 2490
950 F%=F%-1% : H%=H%-1%
960 IF H%=2% GOTO 1380
970 GOSUB 1820
980 GOSUB 1920
990 M3%=M3%+1% : GOTO 530
1000 REM 
1010 M5%=6%*M6%
1020 GOSUB 2490
1030 GOSUB 2030
1040 M3%=M3%+1 : GOTO 530
1050 REM  H[ST \VER HINDER 
1060 GOSUB 2490
1070 IF M3%=8% F%=F%-3%
1080 GOSUB 1430
1090 M3%=M3%+1% : GOTO 530
1100 REM  H[ST VID NEDHOPP 
1110 M5%=6%*M6%
1120 GOSUB 2490
1130 F%=F%+2% : H%=H%-2%
1140 IF H%<3% GOTO 1380
1150 GOSUB 2330
1160 M3%=M3%+1% : GOTO 530
1170 REM 
1180 M5%=3%*M6% : GOSUB 2230
1190 M5%=3%*M6% : GOSUB 2140
1200 M3%=M3%+1% : GOTO 530
1210 REM  NEDHOPPANDE H[ST 
1220 H%=H%-1% : F%=F%+1% : M5%=2%*M6%
1230 IF H%<3% GOTO 1380
1240 IF F%=17% M3%=M3%+1%
1250 GOSUB 2490
1260 GOSUB 2330
1270 GOSUB 2220
1280 GOSUB 2140
1290 GOTO 530
1300 REM  H[ST VID MARK 
1310 M5%=6%*M6%
1320 GOSUB 2490
1330 GOSUB 2420
1335 ; CHR$(7)
1340 M3%=1% : D%=D%+5%
1350 IF 2%*H%>=A% GOTO 520
1360 GOTO 460
1370 REM  RAMLAD H[ST 
1380 FOR C5%=3%*C1% TO 65%
1390 CLRDOT C5%,A% : NEXT C5%
1400 GOSUB 2490
1410 F%=17% : GOSUB 1640
1420 M3%=1% : H%=27% : D%=D%-10% : GOTO 460
1430 ; CUR(F%,H%)"x|u      `$"
1440 ; CUR(F%+1%,H%)'# o}pppp<! '
1450 ; CUR(F%+2%,H%)"   ///5  "
1460 ; CUR(F%+3%,H%)' `&!   "+0 '
1470 ; CUR(F%+4%,H%)'8!       "d';
1480 FOR I%=0% TO M5% : NEXT I%
1490 RETURN 
1500 ; CUR(F%,H%)'x|u       0'
1510 ; CUR(F%+1%,H%)'# o}pppp<# '
1520 ; CUR(F%+2%,H%)'   ///5  '
1530 ; CUR(F%+3%,H%)'   5   +5  '
1540 ; CUR(F%+4%,H%)'   )0 `&   ';
1550 FOR I%=0% TO M5% : NEXT I%
1560 RETURN 
1570 ; CUR(F%,H%)'`|~0      '
1580 ; CUR(F%+1%,H%)'"!*tppp<#!'
1590 ; CUR(F%+2%,H%)'   ///5  '
1600 ; CUR(F%+3%,H%)' `&!   "k  '
1610 ; CUR(F%+4%,H%)' "d     :  ';
1620 FOR I%=0% TO M5% : NEXT I%
1630 RETURN 
1640 ; CUR(F%+2%,H%)"      `8"
1650 ; CUR(F%+3%,H%)"p|u"
1660 ; CUR(F%+4%,H%)'j%up "o,5';
1670 OUT 6%,227%
1680 FOR I%=0% TO 5000% : NEXT I%
1690 OUT 6%,0%
1700 FOR F1%=F%+2% TO F%+4%
1710 ; CUR(F1%,H%)"                "; : NEXT F1%
1720 RETURN 
1730 ; CUR(F%-2%,H%)"  `"
1740 ; CUR(F%-1%,H%)"*/0"
1750 ; CUR(F%,H%)"  {}p"
1760 ; CUR(F%+1%,H%)"  7+o|'#"
1770 ; CUR(F%+2%,H%)"  )  +o0"
1780 ; CUR(F%+3%,H%)'      "?'
1790 ; CUR(F%+4%,H%)"      `%";
1800 FOR I%=0% TO M5% : NEXT I%
1810 RETURN 
1820 ; CUR(F%-3%,H%+1%)"ot4"
1830 ; CUR(F%-2%,H%+1%)" k5"
1840 ; CUR(F%-1%,H%+1%)"?n0"
1850 ; CUR(F%,H%+1%)"! +0"
1860 ; CUR(F%+1%,H%+1%)"   kd"
1870 ; CUR(F%+2%,H%+1%)'    "'
1880 ; CUR(F%+3%,H%+1%)'    "5'
1890 ; CUR(F%+4%,H%+1%)"     j";
1900 FOR I%=0% TO M5% : NEXT I%
1910 RETURN 
1920 ; CUR(F%-4%,H%+1%)"p"
1930 ; CUR(F%-3%,H%+1%)"+}5"
1940 ; CUR(F%-2%,H%+1%)"pju"
1950 ; CUR(F%-1%,H%+1%)"7+t"
1960 ; CUR(F%,H%+1%)'  "t'
1970 ; CUR(F%+1%,H%+1%)"   *i"
1980 ; CUR(F%+2%,H%+1%)"    o0"
1990 ; CUR(F%+3%,H%+1%)"     e"
2000 ; CUR(F%+4%,H%+1%)"     *";
2010 FOR I%=0% TO M5% : NEXT I%
2020 RETURN 
2030 ; CUR(F%-4%,H%+1%)"|00"
2040 ; CUR(F%-3%,H%+1%)'"o5'
2050 ; CUR(F%-2%,H%+1%)"|z}"
2060 ; CUR(F%-1%,H%+1%)'%"o}'
2070 ; CUR(F%,H%+1%)"   o}0"
2080 ; CUR(F%+1%,H%+1%)'   "*'
2090 ; CUR(F%+2%,H%+1%)"    +4"
2100 ; CUR(F%+3%,H%+1%)"     i"
2110 ; CUR(F%+4%,H%+1%)'     "';
2120 FOR I%=0% TO M5% : NEXT I%
2130 RETURN 
2140 ; CUR(F%-2%,H%)"         8"
2150 ; CUR(F%-1%,H%)"      8a&"
2160 ; CUR(F%,H%)"    `~'"
2170 ; CUR(F%+1%,H%)" b|'"
2180 ; CUR(F%+2%,H%)" 'j?!"
2190 ; CUR(F%+3%,H%)" `&"
2200 ; CUR(F%+4%,H%)'8!';
2210 FOR I%=0% TO M5% : NEXT I%
2220 RETURN 
2230 ; CUR(F%-3%,H%)"         `"
2240 ; CUR(F%-2%,H%)"      `$8!"
2250 ; CUR(F%-1%,H%)"     x}>"
2260 ; CUR(F%,H%)" (|p~?#"
2270 ; CUR(F%+1%,H%)" >k'"
2280 ; CUR(F%+2%,H%)"  :!"
2290 ; CUR(F%+3%,H%)"`&"
2300 ; CUR(F%+4%,H%)"!";
2310 FOR I%=0% TO M5% : NEXT I%
2320 RETURN 
2330 ; CUR(F%-2%,H%)"       0`&"
2340 ; CUR(F%-1%,H%)"     `vx!"
2350 ; CUR(F%,H%)" `p x/!"
2360 ; CUR(F%+1%,H%)" xo?!"
2370 ; CUR(F%+2%,H%)" !j'"
2380 ; CUR(F%+3%,H%)" 8!"
2390 ; CUR(F%+4%,H%)"&";
2400 FOR I%=0% TO M5% : NEXT I%
2410 RETURN 
2420 ; CUR(F%,H%)"  0"
2430 ; CUR(F%+1%,H%)"h?tp|||'!"
2440 ; CUR(F%+2%,H%)"  j/#+/l0"
2450 ; CUR(F%+3%,H%)' `&      "'
2460 ; CUR(F%+4%,H%)" 5";
2470 FOR I%=0% TO M5% : NEXT I%
2480 RETURN 
2490 FOR F1%=F%-4% TO F%+4%
2500 ; CUR(F1%,H%)SPACE$(11);
2510 NEXT F1%
2520 RETURN 
2530 FOR I%=0% TO 4% : ; : ; CHR$(135%); : NEXT I%
2540 FOR I%=5% TO 19% : ; : ; CHR$(151%); : NEXT I%
2550 ; CUR(2%,0%)"***************************************"
2560 ; "VILL   DU   HA   ETT   N Y T T   PARTI?"
2570 ; "***************************************"
2580 ; CUR(22%,0%)"***************************************"
2590 ; "DU FICK "D%" PO[NG";
2600 H%=29% : F%=17% : M6%=70% : M8%=0%
2610 IF INP(56%)=202% OR INP(56%)=234% GOTO 410
2620 IF INP(56%)=206% OR INP(56%)=238% GOTO 2790
2630 GOSUB 2490
2640 M8%=M8%+1
2650 IF M8%=4% M8%=1%
2660 ON M8% GOTO 2670,2710,2750
2670 M5%=6%*M6% : H%=H%-3%
2680 IF H%<2% GOSUB 2490 : GOTO 2600
2690 GOSUB 1430
2700 GOTO 2610
2710 M5%=2%*M6% : H%=H%-2%
2720 IF H%<2% GOSUB 2490 : GOTO 2600
2730 GOSUB 1570
2740 GOTO 2610
2750 M5%=8%*M6% : H%=H%-2%
2760 IF H%<2% GOSUB 2490 : GOTO 2600
2770 GOSUB 1500
2780 GOTO 2610
2790 ; CUR(6%,5%)"DET VAR ALLT. TACK F\R I AFTON"; : GOTO 2790