home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
titel-master
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
201 lines
10 REM *******************************
20 REM TITEL - MASTER
30 REM ================
40 REM WRITTEN BY: RUDOLF SUSSMANN
50 REM
60 REM (C) 1986 MARKT & TECHNIK VERLAG
70 REM *******************************
80 DIMR$(15):DIMRL(15):DIMN$(15):DIMNL(15):DIMT$(15):DIMZR$(15):DIMM$(15,39)
90 SI=54272:FL=SI:FH=SI+1:WE=SI+4:A=SI+5:H=SI+6:L=SI+24:HI=34:LO=207
100 REM *********************
110 REM ANLEITUNG
120 REM *********************
130 POKE53280,12:POKE53281,12:PRINT"[147]"CHR$(14)
140 PRINT"[196]IE [193]NGABEN FUER DIE [212]ITELEI SIND IN
150 [153]"FOLGENDER (null)EIHENFOLGE ZU MACHEN:
160 PRINT"-[194]ESTIMMUNG DER [200]INTERGRUND- UND DER
170 [153]" (null)CHRIFTFARBE;
180 PRINT"-[194]EZEICHNUNG DER [210]UBRIKEN (Z.[194]. [203]AMERA);
190 [153]"-VALINGABE DER (null)AMEN;
200 PRINT"-[193]NGABE EINES [212]ONES.
210 [153]"(null)ENN NUR (null)VAL(null)(null)(null)(null) WAIT GEDRUECKT WIRD, IST
220 PRINT"DIE [197]INGABE IN DIESER [210]UBRIK BEENDET.
230 [153]" (null)EITER ==> (null)ASTE DRUECKEN "
240 [143] ****************************
250 [143] HINTERGRUNDFARBE
260 [143] ****************************
270 [161]A$:[139]A$[178]""[167]270
280 RL[178]0:NL[178]0:NB[178]0
290 [141]1820
300 [153]" "F
310 [133]"ON(null)UMMER DER LEFT$INTERGRUNDFARBE";F
320 [139]F[179]0[176]F[177]15[167][153]" (null)UR (null)AHLEN ZWISCHEN 0 UND 15! ONONON":[137]300
330 [153]"LOAD":[151]53280,F:[151]53281,F
340 [143] *************************
350 [143] SCHRIFTFARBE
360 [143] *************************
370 [139]F[178]0[167][153]"CLR":[137]390
380 [153]"STOP"
390 [141]1820
400 [153]" "S
410 [133]"ON(null)UMMER DER (null)CHRIFTFARBE";S
420 [139]S[179]0[176]S[177]15[167][153]" (null)UR (null)AHLEN ZWISCHEN 0 UND 15! ONONON":[137]400
430 [139]F[179][177]S[167]460
440 [153]" (null)CHRIFTFARBE UND LEFT$INTERGRUND SIND "
450 [153]" IDENTISCH! PEEKITTE NEU WAEHLEN! ":[137] 400
460 [145]S[170]1[137] 470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620
470 [153]"STOP":[137]630
480 [153]"":[137]630
490 [153]"":[137]630
500 [153]"OPEN":[137]630
510 [153]"CLR":[137]630
520 [153]"":[137]630
530 [153]"":[137]630
540 [153]"SYS":[137]630
550 [153]"FOR":[137]630
560 [153]"VERIFY":[137]630
570 [153]"DEF":[137]630
580 [153]"POKE":[137]630
590 [153]"PRINT#":[137]630
600 [153]"PRINT":[137]630
610 [153]"CONT":[137]630
620 [153]"LIST"
630 [153]"LOADSTR$IES IST DIE (null)CHRIFTFARBE"
640 [153]" ATNLLES IN (null)RDNUNG ? "
650 [161]A$:[139]A$[178]""[167]650
660 [139]A$[178]"N"[167]130
670 [139]A$[179][177]"J"[167]650
680 [143] ********************
690 [143] RUBRIKEN
700 [143] ********************
710 [153]"LOAD":R[178]1
720 [153]""[163]13)[200](R$(R),25)
730 [153]"ON"R;:[133]"CMD. (null)UBRIK";R$(R)
740 RL(R)[178][195](R$(R))
750 [139]RL(R)[179]26[167]800
760 [153]" VALINGABE ZU LANG! (null)EITER MIT (null)VAL(null)(null)(null)(null) "
770 [161]A$:[139]A$[179][177][199](13)[167]770
780 [153]"ON "
790 RL(R)[178]0:[137]720
800 [139]RL(R)[177]RL[167]RL[178]RL(R)
810 [139]R$(R)[179][177]""[167]R[178]R[170]1:[137]720
820 [153]"ON "
830 [153]" ATNLLES IN (null)RDNUNG? "
840 [161]A$:[139]A$[178]""[167]840
850 [139]A$[178]"N"[167]710
860 [139]A$[179][177]"J"[167]840
870 [143] ***************************
880 [143] EINGABE DER NAMEN
890 [143] ***************************
900 [153]"LOAD":[129]N[178]1[164]R[171]1
910 [153]""[163]RL(N)[170]2)N$(N)
920 [153]"ON"R$(N);:[133]N$(N)
930 NL(N)[178][195](N$(N))
940 [139]NL(N)[170]RL(N)[179]38[167]990
950 [153]" VALINGABE ZU LANG! (null)EITER MIT >(null)VAL(null)(null)(null)(null)< "
960 [161]A$:[139]A$[179][177][199](13)[167]960
970 [153]"ONON "
980 N$(N)[178][200](N$(N),37[171]RL(N)):[137]910
990 [139]NL(N)[177]NL[167]NL[178]NL(N)
1000 [130]N
1010 [153]" ATNLLES IN (null)RDNUNG? "
1020 [161]A$:[139]A$[178]""[167]1020
1030 [139]A$[178]"N"[167]900
1040 [139]A$[179][177]"J"[167]1020
1050 [143] ********************
1060 [143] MUSIKTON
1070 [143] ********************
1080 [153]"LOADPEEKESTIMMUNG DES (null)ONES"
1090 [153]" "HI
1100 [133]"ONLEFT$I-PEEKYTE";HI
1110 [139]HI[179]1[176]HI[177]255[167][153]"ON":[137]1100
1120 [153]" "LO
1130 [133]"ON(null)O-PEEKYTE";LO
1140 [143] *** AUSGABE ***
1150 [139]LO[179]1[176]LO[177]255[167][153]"ON":[137]1130
1160 [153]" "WA
1170 [133]"ON(null)ELCHE (null)ELLENFORM (17-33-65-129)";WA
1180 [139]WA[178]0[176]WA[178]17[176]WA[178]33[176]WA[178]65[176]WA[178]129[167]1200
1190 [153]"ON":[137]1170
1200 [129]VE[178]1[164]10:[141]1920:[130]VE
1210 [153]" ATNLLES IN (null)RDNUNG? "
1220 [161]A$:[139]A$[178]""[167]1220
1230 [139]A$[178]"N"[167]1080
1240 [139]A$[179][177]"J"[167]1220
1250 [143] *****************************
1260 [143] BILDSCHIRMPARAMETER
1270 [143] *****************************
1280 [153]"LOADPEEKILDSCHIRMPARAMETER":NB[178]0
1290 [139]RL[170]NL[177]37[167]1350
1300 [153]" (null)OLLEN DIE (null)AMEN UNTEREINANDER STEHEN? "
1310 [161]A$:[139]A$[178]""[167]1310
1320 [139]A$[178]"N"[167]1350
1330 [139]A$[179][177]"J"[167]1310
1340 NB[178]1
1350 [153]"RIGHT$N WELCHER (null)EILE SOLL DIE (null)ITELEI
1360 PRINT" "ZE
1370 INPUT"[145]BEGINNEN (0-23)";ZE
1380 IFZE<0ORZE>23THENPRINT"[145][145][145][145][145][145]":GOTO 1350
1390 PRINT" "LF
1400 INPUT"[145][218]AHL DER [204]EERZEILEN ";LF
1410 PRINT" [193]CHTUNG! [146] [196]ER [194]ILDSCHIRM BLEIBT
1420 [153]"NACH DER ASCESTLEGUNG DER CHR$ESCHWINDIGKEIT
1430 PRINT"FUER CA. 10 [211]EKUNDEN LEER. [196]ANN BEGINNT"
1440 PRINT"DIE [212]ITELEI ZU LAUFEN."
1450 PRINT" "G
1460 INPUT"[145][199]ESCHWINDIGKEIT ";G
1470 REM *******************
1480 REM AUSGABE
1490 REM *******************
1500 PRINT"[147]":FORW=0TO5000:NEXTW
1510 FORPO=0TOZE:PRINT:NEXTPO
1520 FORX=1TOR-1
1530 IFNB<1THEN1580
1540 ZR$="......................................"
1550 ZR$(X)=LEFT$(ZR$,37-NL-RL(X))
1560 T$(X)=R$(X)+": "+ZR$(X)+N$(X)
1570 GOTO1590
1580 T$(X)=R$(X)+": "+N$(X)
1590 L=LEN(T$(X))
1600 FORY=1TOL
1610 M$(X,Y)=MID$(T$(X),Y,1)
1620 PRINT"[145]"TAB(Y-1)M$(X,Y)
1630 IFM$(X,Y)=CHR$(32)THEN1660
1640 IFM$(X,Y)=CHR$(46)THEN1670
1650 GOSUB1920
1660 FORW=1TOG*20:NEXTW
1670 NEXTY
1680 FORW=0TOG*20:NEXTW
1690 FORV=0TOLF:PRINT:NEXTV
1700 NEXTX
1710 WAIT198,1
1720 FORZ=1TO25:PRINT:FORW=1TOG:NEXTW:NEXTZ:POKE198,0
1730 WAIT198,1:PRINT"[147][215]IEDERHOLUNG?"
1740 GETA$:IFA$=""THEN1740
1750 IFA$="J"THEN230
1760 IFA$="N"THENSYS64738
1770 GOTO1740
1780 REM *************************
1790 REM UNTERPROGRAMM
1800 REM FARBNAMEN
1810 REM *************************
1820 PRINT"[147]":FORZ=0TO15
1830 READF$
1840 PRINTZ" = "F$
1850 NEXTZ:RESTORE:RETURN
1860 DATASCHWARZ,WEISS,ROT,TUERKIS,VIOLETT,GRUEN,BLAU,GELB,ORANGE,BRAUN,HELLROT
1870 DATAGRAU 1,GRAU 2,HELLGRUEN,HELLBLAU,GRAU 3
1880 REM *************************
1890 REM UNTERPROGRAMM
1900 REM TONERZEUGUNG
1910 REM *************************
1920 IFWA=0THENRETURN
1930 POKEL,15
1940 POKEA,1*16+5
1950 POKEH,0*16+0
1960 POKEFH,HI:POKEFL,LO
1970 POKEWE,WA
1980 FORT=1TO030:NEXTT
1990 POKEWE,0
2000 RETURN