home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8510.d64 / hypra-text (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  22KB  |  752 lines
  1. 0 GOTO10
  2. 1 IFPEEK(198)>0THENGETA$:RETURN
  3. 2 GOSUB30600:GOTO1
  4. 3 PRINT" + [194]ITTE WARTEN + [201]CH  A R B E I T E  + ":RETURN
  5. 4 POKE908,0:POKE918,30:POKE920,11:POKE917,36:POKE924,0:A$="":RETURN
  6. 5 SYS50176,A$,A$:F=PEEK(913):RETURN
  7. 9 GOTO30001
  8. 10 GOTO 22000
  9. 11 GOSUB31000:POKE650,128:POKE2,184
  10. 12 GOSUB40000
  11. 14 PRINT:L$=A6$
  12. 15 KL=1:PRINTCHR$(14)
  13. 17 DIMA$(600):AN=0:MAX=600
  14. 26 PRINT"[147]";PT$;""
  15. 27 GOTO100
  16. 30 A$=LEFT$(A$,LEN(A$)-1):RETURN
  17. 31 IFRIGHT$(A$,1)=" "THENGOSUB30:GOTO31
  18. 32 RETURN
  19. 40 A$=LEFT$(A$(T),LEN(A$(T))-1):RETURN
  20. 70 REM ** UNTERPROGRAMM **
  21. 71 PRINT:PRINT"[199]EBEN SIE EIN,VON WELCHER [218]EILENNR      (0=[193]NFANG)"
  22. 72 INPUTV:IFV=0THENV=1
  23. 73 PRINT"[199]EBEN SIE EIN,BIS ZU WELCHER [218]EILENNR   (0=[197]NDE)"
  24. 74 INPUTB:IFB>MAXTHENPRINT"[218]U GROSS !":GOTO74
  25. 75 IFB=0THENB=AN
  26. 79 RETURN
  27. 80 PRINT"":RETURN
  28. 90 PRINTLEFT$(A6$,MB):RETURN
  29. 95 GOSUB80:FORI=1TO4:GOSUB90:NEXT:GOSUB80:RETURN
  30. 100 PRINT"[147]";PT$;:CLOSE2:CLOSE15:CLOSE5:POKE198,0:BA=0:DR=0:BR=0:SP=0
  31. 101 IFAN/MAX>0.7THENB1$=""+STR$(INT((AN/MAX)*100))+" % [214][207][204][204] !!![146]":X=FRE(9)
  32. 102 IFAN/MAX>0.7THENB2$="[5] = [211]PEICHERN[146]":B3$="[193][195][200][212][213][206][199][146]":SP=1
  33. 103 V$(50)=D$:V$(47)=BA$:V$(46)=STR$(RR):V$(45)=STR$(RR+RR*(MW/100))
  34. 104 V$(44)=STR$(RR*(MW/100))
  35. 105 POKE54296,0:IFPEEK(1022)=200THENAM=2
  36. 107 PRINT"";PT$;
  37. 109 POKE53265,27
  38. 110 PRINT"  [196]ATUM: ";D$
  39. 111 GOSUB300:PRINT""
  40. 112 PRINT" [221] [211]YSTEM    [146] :";B1$
  41. 113 PRINT" [221] [197]MPFEHLUNG[146] :";B2$
  42. 114 PRINT" [221]           [146] :";B3$
  43. 115 PRINT" [221] [212]EXT NAME  :";T1$
  44. 116 PRINT" [221] [208]LATZ      :";MAX-AN;"[218]EILEN FREI"
  45. 120 REM ** MENU **
  46. 125 PRINT"-1-  [212]EXT ERSTELLEN"
  47. 130 PRINT"-2-  [212]EXT AENDERN"
  48. 132 PRINT"-3-  [208]ROFIPRINT LADEN"
  49. 134 PRINT"-4-  [194]ILDSCHIRMAUSGABE"
  50. 135 PRINT"-5-  [193]RBEITEN MIT [196]ISKETTE "
  51. 136 PRINT"-6-  ";FU$
  52. 137 PRINT"-7-  [193]RBEITEN MIT [214]ARIABLEN"
  53. 145 PRINT"[196]IE [198]UNKTIONSTASTEN"
  54. 147 PRINT"F1= [197]INGABE F3=[194]ILDSCHIRMAUSGABE"
  55. 148 PRINT"F5= [197]NDE   ";
  56. 149 IFSP=1THENGOSUB30601
  57. 150 GETA$:IFA$=""THEN150
  58. 154 IFA$="[134]"THEN7000
  59. 155 IFA$="[133]"THEN1015
  60. 156 IFA$="[135]"THEN8000
  61. 197 IFVAL(A$)<1ORVAL(A$)>8THEN150
  62. 199 X=VAL(A$):ONXGOTO1000,2000,56100,7100,5000,20000,9700
  63. 200 GOTO 100
  64. 260 RETURN
  65. 300 REM ** BS AUFBAU **
  66. 301 IFBA=1THENRETURN
  67. 310 A1$=" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  68. 320 A2$=" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  69. 330 A3$=" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  70. 340 A4$=" [221][221]"
  71. 350 PRINT"":PRINTA1$:PRINTA4$:PRINTA4$:PRINTA4$:PRINTA2$
  72. 360 PRINTA4$:PRINTA4$:PRINTA2$
  73. 370 FORT=1TO9:PRINTA4$:NEXT:PRINTA2$
  74. 380 PRINTA4$:PRINTA4$:PRINTA4$:PRINTA3$;
  75. 499 BA=1:RETURN
  76. 1000 PRINT"[147]";PT$
  77. 1001 PRINT" * * [212]EXTPROGRAMM     * *  [197]INGABE  * * [146]";:TA=0:TA$=""
  78. 1003 PRINT"=1=  [197]INGABE DES [212]EXTES"
  79. 1004 PRINT"=2= [197]INGABE DES [212]EXTNAMES"
  80. 1005 PRINT"=3= [197]INGABE UEBER [205]ASKE"
  81. 1007 PRINT"=4= [212]EXT LOESCHEN"
  82. 1008 PRINT"=5= [196]EN [212]EXT AUSFUELLEN":PRINT"=6= [197]INGABE [212]ABULATORZEILE"
  83. 1009 GOSUB1
  84. 1010 IFA$="0"ORA$="[133]"THEN100
  85. 1011 B1$="[193]ENDERN [2]":B2$="[211]PEICHERN [5]":T=VAL(A$)
  86. 1013 IFT=0THEN1009
  87. 1014 ONTGOTO1015,1850,33000,1300,9400,1830,100
  88. 1015 PRINT"[147]";PT$:PRINT" * *  [212]EXTPROGRAMM    * *  [197]INGABE  * * [146]";:TA=0
  89. 1016 B1$="[193]ENDERN   [2]"
  90. 1017 B2$="[211]PEICHERN [5]"
  91. 1018 B3$="[193]NSEHEN   [F3]"
  92. 1020 A=AN:GOTO2014
  93. 1040 IFK1$="[212][193][211][212][197][206][146] F7=[200][197][204][208]           F5=[218]EILE HOCH"THEN1050
  94. 1046 K1$="[212][193][211][212][197][206][146] F7=[200][197][204][208]           F5=[218]EILE HOCH"
  95. 1047 K2$="[200]OME = [212]ABULATOR    [210][197][212][213][210][206]=[218]EILE RUNTER"
  96. 1048 K3$="CRSR HOCH = [215]ORT VOR    :CRSR => RECHTS"
  97. 1049 K4$="CRSR RUNTER=[215]ORT ZURUECK:CRSR <= LINKS":RETURN
  98. 1050 K1$="[198]UNKTIONST.[146] F1=[197]NDE : F2=[197]INFUEGEN"
  99. 1051 K2$="F3= [218]EILEN [204]OESCHEN : F4=[194]LOCK COPIEREN"
  100. 1052 K3$="F5=[218]EILE HOCH       : F6=[211]EITE +/-"
  101. 1053 K4$="F7=[200][197][204][208]   [146]          : F8=[194]LOCK LADEN":RETURN
  102. 1100 FORI=G8TOMAX
  103. 1110 GOSUB1400
  104. 1120 IFLEN(A$(I+1))<M8THENRETURN
  105. 1130 NEXT:RETURN
  106. 1300 GOSUB1301:GOTO1000
  107. 1301 PRINT"[147]";PT$;"          [212]EXT LOESCHEN                 "
  108. 1302 PRINT"[194]IST DU SICHER? [J/(N)] ":GOSUB1:IFA$<>"J"THEN100
  109. 1305 PRINT"":FORT=1TOMAX:PRINT"[145]";T:A$(T)="":NEXT
  110. 1310 AN=0:RETURN
  111. 1400 B=LEN(A$(I)):FORA=M8TO1STEP-1
  112. 1410 IFMID$(A$(I),A,1)=" "ORMID$(A$(I),A,1)="[160]"THEN1430
  113. 1420 NEXT:PRINT"[218]EILE ZU LANG:FEHLER":RETURN
  114. 1430 A$(I+1)=RIGHT$(A$(I),B-A)+" "+A$(I+1):A$(I)=LEFT$(A$(I),A)
  115. 1450 RETURN
  116. 1460 PRINT"[147]":FORT=0TOAN:PRINTA$(T):NEXT:PRINT"[145][145]"
  117. 1470 RETURN
  118. 1830 PRINT"[147]";PT$
  119. 1831 INPUT"[205]AXIMALE [218]EILELAENGE (39)";M8:GOSUB1832:GOTO1000
  120. 1832 M8=M8+2:IFM8<10THENM8=39
  121. 1833 PRINT"[147]";PT$:PRINT"[197]INGABE [212]ABULATORZEILE":PRINT"!=[211]TART +=[212]AB.[211]TOP -=[206]ICHT
  122. 1834 T7$[178][200](T7$,[195](T7$)[171]1)
  123. 1835 A$[178][200](T7$,M8):[141]9:T7$[178]A$
  124. 1840 M8[178]M8[171]2:T7$[178][200](T7$[170]"----------------------------------------",M8[171]1)
  125. 1841 [129]T[178]1[164][195](T7$):[139][202](T7$,T,1)[178]"!"[167]CB[178]T
  126. 1842 [130]:T7$[178]T7$[170]"!":[151]917,M8
  127. 1845 [142]
  128. 1850 [153]"LOAD(null)EXTNAME":A$[178]T1$:[141]9:T1$[178]A$:[137]1000
  129. 2000 [153]"LOAD";PT$
  130. 2001 [153]" + + (null)EXTPROGRAMM     + +  ATNENDERN  + + WAIT";:[153]"ATNENDERN [1]WAIT"
  131. 2002 [153]"  >0< (null)ENU":[153]"  >1< (null)EXT AENDERN"
  132. 2003 [153]"  >2< (null)ORT TAUSCH"
  133. 2005 [153]"  >3< (null)EXT LOESCHEN"
  134. 2006 [141]1
  135. 2008 [139]A$[178]"0"[176]A$[178]"INPUT"[167]100
  136. 2009 B1$[178]"(null)PEICHERN [5]":B2$[178]"ATNNSEHEN   [F3]":B3$[178]"LEFT$ILFE     [F7]"
  137. 2010 T[178][197](A$):[139]T[179]1[176]T[177]3[167]2006
  138. 2011 [145]T[137]2012,2900,1300
  139. 2012 [141]80:[153]" 0 = VALNDE : 1 = ATNNFANG"
  140. 2013 [133]"ATNB (null)EILE";A:A[178]A[171]1:[139]A[178][171]1[167]A[178]AN
  141. 2014 [141]1046
  142. 2020 A[178]A[170]1:[139]A[177]AN[167]AN[178]A
  143. 2030 [139]A[179]1[167]A[178]1
  144. 2031 Y[178]T:A$[178]A$(A)
  145. 2040 EE[178]1:A$[178]A$(A):G8[178]A:[141]30000
  146. 2041 [139]U9[178]1[167]A$(A[170]1)[178][200](A6$,CB[171]1)[170]R$[170]" "[170]A$(A[170]1):U9[178]2
  147. 2050 A$(A)[178]A$:[139][195](A$(A))[177]M8[167]2040
  148. 2060 [139]A$(A)[178]">"[167]A$(A)[178]""
  149. 2061 PP[178]A:[139]F[178]3[167]2600
  150. 2062 [139]F[178]7[167][141]1040:[137]2030
  151. 2063 [139]IN[178]1[175]F[179][177]0[167]IN[178]0:[141]2560:[139]F[178]1[167]F[178]0
  152. 2064 [139]F[178]1[167]EE[178]0:[137]100
  153. 2065 [139]F[178]6[167]2200
  154. 2070 [139]IN[178]1[167][141]2350
  155. 2071 [139]F[178]2[167]2500
  156. 2072 [139]F[178]4[167]2800
  157. 2073 [139]F[178]8[167]2100
  158. 2075 [139]F[178]5[167]A[178]A[171]1:[137]2030
  159. 2080 A$[178]A$(A):Y[178]T:[137]2020
  160. 2100 [153]" * * (null)EXTPROGRAMM    * * PEEKLOCK LADEN * *"
  161. 2110 [141]95:[141]4:[151]920,22
  162. 2120 [153]"(null)AME DES PEEKLOCKES":[141]5:[139]F[178]1[167]2020
  163. 2121 A$[178]">"[170]BA$[170]"??????"[170]A$
  164. 2125 [160]2:[160]5:[159]2,FA,15:[159]5,FA,2,A$[170]",S,R":[141]34000:[139]EN[179][177]0[167]2100
  165. 2130 [132]5,Z:[141]2530
  166. 2140 [129]T[178]1[164]Z:[141]34100:[141]34000:[139]A$[178]">"[167]A$[178]""
  167. 2150 A$(PP[170]T)[178]A$:[130]:[160]2:[160]5:A[178]A[170]Z:[141]2560:[137]2020
  168. 2200 [141]95
  169. 2201 [153]"F5= (null)EITE + "
  170. 2202 [153]"F6= (null)EITE -    "
  171. 2203 [153]"PEEKITTE WAEHLEN"
  172. 2210 [141]1:[139]A$[178]"INPUT"[167]A[178]A[171]1:[137]2020
  173. 2220 [139]A$[178]"READ"[167]A[178]A[170]10:[137]2020
  174. 2230 [139]A$[178]"IF"[167]A[178]A[171]12:[137]2020
  175. 2240 [137]2210
  176. 2300 Z[178]1:[141]2530
  177. 2320 A$(A[170]1)[178][201](A$(A),[195](A$(A))[171][194](925)):CC[178]999:IN[178]1
  178. 2330 A$(A)[178][200](A$(A),[194](925))
  179. 2340 [139][200](A$(A[170]1),1)[178]" "[167]A$(