Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1! ##################################
    2! #                                #
    3! #     This is a programme by     #
    4! #    * M A J O R - D A T A *     #
    5! # (C)1985 all rights reserved tv #
    6! #                                #
    7! ##################################
    8 WINDOW:INK 5:PAPER 4:BORDER 8:CLS
    9!
   10 PRINT "            "                
   20 PRINT " "CHR$(142)CHR$(191)"      ";
   30 PRINT CHR$(142)CHR$(191)"     
   40 PRINT ""CHR$(191)""CHR$(142)"          ";
   50 PRINT ""CHR$(142)
   60 PRINT " "CHR$(191)CHR$(142)"        "CHR$(142);
   70 PRINT "    "CHR$(191)" 
   80 PRINT "        "CHR$(142)"  "CHR$(191)""CHR$(142)"  ";
   90 PRINT "  "CHR$(191)""
  100 PRINT:INK 2:PAPER 8
  110 PRINT "             "
  120 PRINT "         "CHR$(191)""CHR$(142)
  130 PRINT "             "
  140 PRINT "               "CHR$(191)"  "CHR$(142)
  150 PRINT "                "CHR$(191)""CHR$(142)
  160 PRINT "             "CHR$(191)""CHR$(191)""CHR$(142)
  170 PRINT "              "CHR$(191)"" CHR$(142)" "CHR$(191);
  180 PRINT ""CHR$(142)
  190 PRINT:INK 5:PAPER 4
  200 PRINT "        "
  210 PRINT "     "CHR$(191)"            "
  220 PRINT "       "CHR$(142)"  "CHR$(191)" ";
  230 PRINT "         "CHR$(142)"  "CHR$(191)""
  240 PRINT "                         "
  250 PRINT "                 "
  260 PRINT "     "CHR$(142)"                   "
  270 PRINT ""CHR$(142)"           "
  280 PAUSE 20
  290 PRINT AT(6,33);""     
  300 PRINT AT(7,33);"R"     
  310 PRINT AT(8,33);""     
  350 DATA 216,2,172,1,216,2,-18,1,216,1,172,1,144,1,144,3,193,2,162,1 
  360 DATA 193,2,-18,1,193,1,162,1,144,1,144,3 
  370 DATA 193,1,144,1,144,.5,128,.5,114,1,144,1,96,2,114,1 
  380 INK 5:PAPER 7:RESTORE:AB=16:GOSUB 2150:PAUSE 10 
  381 PRINT AT(11,0);STRING$(40," "):FOR I=0 TO  8
  382 PRINT AT(11,I);" *** >> presents << ***"
  383 PAUSE 1
  384 NEXT I
  390 PAUSE 30:CLS
  398!##################################
  399!         CLIMB-ALPINE
  400!##################################
  401 FOR I=0 TO 23 STEP 2
  402 PRINT AT(I,0);STRING$(10,""):PRINT AT(I+1,0);STRING$(10,"")
  403 NEXT I
  404 PAUSE 20:PAPER 8:INK 1:PRINT AT(10,0);STRING$(160," "):PAUSE 20
  405 PRINT AT(11,6);"      " 
  406 PRINT AT(12,6);"          "
  407 PRINT AT(13,34);"" 
  408 PAUSE 50:CLS:INK 5:PAPER 8
  409 PRINT
  410 PRINT "This is an entertainment-game for you."
  415 PRINT
  420 PRINT "You should climb a mountain from a gorge" 
  425 PRINT
  430 PRINT "On top of the rock there's a helicopter"
  435 PRINT
  440 PRINT "to take you to a hotel."
  445 PRINT
  450 PRINT "But this is not so easy as you think!"
  455 PRINT
  460 PRINT "There are some stones falling down and"
  465 PRINT
  470 PRINT "you should jump left or right to go on"    
  475 PRINT
  480 PRINT "You can move with the cursor keys"
  481 PRINT
  482 PRINT "You will have three minutes to save"
  483 PRINT
  484 PRINT "your persons from the gorge"
  485 PRINT
  490 PRINT "Should we start? Depress any key!"
  500 A$=INKEY$
  510 IF LEN(A$)=0 THEN 500
  520 BEEP:INK 1:PAPER 7:CLS:RESTORE 370:AB= 8:GOSUB 2150
  530 INPUT "Your speed (1-fast,10-slow):";S:BEEP:BEEP
  535 C=0:D=0:M=0
  540 CLS
  550 PRINT AT(5,17);""
  560 PRINT AT(6,16);"        "
  570 PRINT AT(7,16);"          "
  580 PRINT AT(8,14);"            "
  590 PRINT AT(9,12);"              "
  600 PRINT AT(10,12);"               "
  610 PRINT AT(11,14);"               " 
  620 PRINT AT(12,14);"               "
  630 PRINT AT(13,13);"                "
  640 PRINT AT(14,13);"                 "
  650 PRINT AT(15,13);"                  "
  660 PRINT AT(16,12);"                    "
  670 PRINT AT(17,10);"                      "
  680 PRINT AT(18,10);"                       " 
  690 PRINT AT(19, 9);"                         "       
  700 PRINT AT(20,9);"                         "
  710 WINDOW 0,20,0,39:INK 1
  711 FOR G=1 TO 20
  712 PRINT AT(G,0);"":PRINT AT(G,39);""
  713 NEXT G
  715 PRINT AT(21,0);STRING$(120,"")
  720 INK 8:PRINT AT(23,5);"(C) m a j o r - D A T A 1 9 8 5"
  750 INPUT "How many persons? (1-7)";X:BEEP:BEEP
  755 IF X>7 OR X<1 THEN PRINT AT(1,0);"I said one to seven.":PAUSE 20:GOTO 540 
  757 PAUSE 10:PRINT AT(0,0);STRING$(40," ")
  758 POKE 29,0:POKE 30,0:POKE 31,0:E=E+1
  759 PRINT AT(0,0);STRING$(40 ,""):PRINT AT(0,10);" RUNDE :",E
  760 FOR I=1 TO 5 
  761 IF E>3 THEN 2500
  770 FOR J=1 TO X
  780  POKE-(4350-J),196
  790  POKE-(4310-J),157
  800 NEXT J
  810 OUT 136,128:OUT 128,7:OUT 128,153
  820 FOR QQ=1 TO 150 :NEXT QQ:OUT 128,3
  830 FOR J=1 TO X
  840  POKE-(4350-J),32
  850  POKE-(4310-J),32
  860 NEXT J:PAUSE 2
  870 NEXT I
  871 POKE-4346,196
  872 POKE-4306,157
  874 FOR I=1 TO 5
  875 PRINT AT(17,13);"stones falling":PAUSE 05:PRINT AT(17,13);STRING$(14," ") 
  876 PAUSE 05
  877 NEXT I
  881!##################################
  882!        STONES FALLING
  883!##################################
  890 A=INT(RND(1)* 7)+18
  900 FOR L=4840 TO 4320 STEP -40
  910 POKE-(L-A+40),32
  920 POKE-(L-A),207
  930 IF PEEK(-(L-A-40))=157 THEN 1490
  940 IF L=4320 THEN POKE-(4320+A),32 :GOTO 890
  950 FOR ZZ=1 TO S
  960  B=PEEK(36)
  970  IF B=0 THEN 1050 :ELSE B=B-7
  980  ON B GOSUB 1220,1290,1420,1360
 1050  IF PEEK(30)=3 THEN 1680
 1060 NEXT ZZ    
 1065 NEXT L
 1070!VICTORY
 1080 GOSUB 1960
 1090!       GOSUB 2150
 1100 PRINT AT(10,1);STRING$(38," ")
 1110 PRINT AT(11,1);"You have won." 
 1120 PRINT AT(12,1);STRING$(38," ")
 1130 PRINT AT(13,1);"All your persons are well."
 1140 PRINT AT(14,1);STRING$(38," ")
 1150 PRINT AT(15,1);"They thank you that you helped them."
 1160 PRINT AT(16,1);STRING$(38," ")
 1170 FOR AA=1 TO 100
 1180 PRINT AT(9,1);STRING$(38,"*")
 1190 PRINT AT(17,1);STRING$(38,"*")
 1200 FOR BB=1 TO 30:NEXT BB:BEEP:PRINT AT(9,0);STRING$(40," ")
 1210 PRINT AT(17,0);STRING$(40," "):NEXT AA:PAUSE 10:CLS:GOSUB 1770        
 1220!LEFT
 1225 POKE-(4346+C+D),32:POKE-(4306+C+D),32
 1230 C=C+1 : IF C>0 THEN C=C-1:GOTO 1280        
 1240 POKE -(4346+C+D),196
 1250 POKE -(4306+C+D),157
 1280 RETURN      
 1290!RIGHT
 1295 POKE -(4346+C+D),32:POKE -(4306+C+D),32
 1300 C=C-1:IF C<-11 THEN C=C+1:GOTO 1350
 1310 POKE -(4346+C+D),196
 1320 POKE -(4306+C+D),157
 1350 RETURN     
 1360!UP
 1362 IF C>4 THEN 1411
 1365 POKE-(4306+C+D),32
 1370 D=D+40:IF X<1 AND D=640 THEN 1070
 1375 IF D=640 THEN GOSUB 1960:C=0:D=0:GOTO 760
 1380 POKE -(4346+C+D),196
 1390 POKE -(4306+C+D),157
 1410 S=S-4
 1411 RETURN
 1420!DOWN
 1425 POKE -(4346+C+D),32
 1430 D=D-40:IF D<40 THEN 1480
 1440 POKE -(4346+C+D),196
 1450 POKE -(4306+C+D),157
 1470 S=S+4
 1480 RETURN     
 1490!CRASH
 1500 FOR K=1 TO 5
 1510 POKE -(L-A),141:BEEP
 1520 PAUSE 1
 1530 POKE -(L-A),207:BEEP
 1540 NEXT K:POKE -(L-A-40),32
 1550 POKE -(L-A-80),32:POKE -(L-A-120),32
 1560 PAUSE 10
 1570 FOR KK=1 TO INT(D/40)+40
 1580 IF L-40+KK*40=4320 THEN!AB= :!GOSUB 2150:GOTO 760  
 1590 POKE -(L-A-40-KK*40),154
 1600 POKE -(L-A-80-KK*40),201
 1610 POKE -(L-A-KK*40),32
 1620 POKE -(L-A+40-KK*40),207
 1625 POKE-(L-A+80-KK*40),32
 1630 POKE-(L-A+120-KK*40),32:NEXT KK
 1640 POKE -(4360-A),32
 1650 POKE -(4320-A),32
 1660 X=X-1:M=M+1:IF X<1 THEN 1680
 1665 C=0:D=0
 1670 GOTO 760
 1680!LOST
 1690 Q$=STRING$(38," "):PRINT AT(10,1);Q$
 1700 PRINT AT(11,1);"You lost ",M," men in the gorge."
 1710 PRINT AT(4,19);STRING$(M,"")
 1720 PRINT AT(12,1);Q$
 1730 PRINT AT(13,1);"Soon it will be better. Try again."
 1740 PRINT AT(14,1);Q$
 1750 PRINT AT(15,1);"You needed ",PEEK(30),":",PEEK(31)," minutes"
 1760 PRINT AT(16,1);Q$
 1770 PAUSE 20:INPUT " Do you want to play again (Y/N)?";C$ 
 1800 PRINT AT(17,33);"Thanks":PAUSE 10
 1810 IF C$="Y" THEN 1840
 1819 CLS:PRINT AT(11,0);STRING$(40,"#")
 1820 PRINT AT(13,0);"Good bye for today - hope you play again"
 1821 PRINT AT(15,0);STRING$(40,"#")
 1830 PAUSE 20:WINDOW:CLS:END
 1840 PAUSE 10:WINDOW:CLS
 1850 PRINT "Are you ready to start?"
 1860 PRINT "Depress any key to begin"
 1870 D$=INKEY$
 1880 IF LEN(D$)=0 THEN 1870:ELSE BEEP
 1890 GOTO 520
 1960!HELICOPTER
 1970 FOR K=31 TO 0 STEP-1
 1986 IF K= 18  THEN 1990:ELSE 2005
 1990 PAUSE 20:POKE -(4906+C),158:POKE -(4946+C),32 
 2000 PAUSE 10
 2005 V=1-V:IF V=1 THEN 2050
 2010 PRINT AT(1,K);"       "         
 2020 PRINT AT(2,K);" ",CHR$(142)," "
 2030 PRINT AT(3,K);"       "
 2040 PAUSE 2:GOTO 2090
 2050 PRINT AT(1,K);"     "
 2060 PRINT AT(2,K);" ",CHR$(142)," "
 2070 PRINT AT(3,K);"       "
 2080 PAUSE 2
 2090 NEXT K
 2100 FOR K=1 TO 3
 2110 PRINT AT(K,0);STRING$(40," ") 
 2120 NEXT K  
 2121 FOR K=1 TO 4
 2122 PRINT AT(K,0);"":PRINT AT(K,39);"" 
 2123 NEXT K
 2130 X=X-1
 2131 IF X<1 AND M=0 THEN 1100
 2132 IF X<1 THEN 1680
 2140 RETURN  
 2150!MELODY
 2160 OUT 136,128:T=200
 2170 FOR IQ=1 TO AB
 2180 READ H,L
 2190 GOSUB 2230
 2200 NEXT IQ
 2210 OUT 136,0
 2220 RETURN
 2230!TONERZEUGUNG
 2240 IF H=0 THEN 2260
 2250 IF H>0 THEN OUT 128,7:OUT 128,H:ELSE OUT 128,39:OUT 128,-H
 2260 FOR QQ=1 TO L*T:NEXT QQ
 2270 OUT 128,3
 2280 RETURN
 2500 WINDOW:INK 1:PAPER 8:CLS
 2505 PRINT AT(6,0);STRING$(40,"#")
 2510 PRINT AT(8,4);"A new play isn't possible."
 2520 PRINT AT(10,4);"If you want to play again,"
 2530 PRINT AT(12,4);"you should start by the RUN-key."
 2540 PRINT AT(14,4);"MAJOR-DATA thanks for playing"
 2550 PRINT AT(16,4);"this game and hopes you had fun."
 2560 PRINT AT(18,0);STRING$(40,"#")
 2570 PAUSE 20:PRINT AT(20,15);"Good bye"