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