home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh65b.d64 / menue-maker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  195 lines
  1. 10 DIMNA$(144),NU$(144)
  2. 20 PRINTCHR$(142):PRINTCHR$(8)
  3. 30 GOTO1020
  4. 40 REM *** ANLEITUNG ***
  5. 50 PRINT"[147]";:PRINT
  6. 60 PRINTSPC(14)"ANLEITUNG
  7. 70 [153]
  8. 80 [153]"- DIESES PROGRAMM STELLT EIN MENU FUER
  9. 90 PRINT"  IHRE DISKETTEN HER UND SPEICHERT ES
  10. 100 [153]"  AB. SIE MUESSEN ALSO NACHHER NUR NOCH
  11. 110 PRINT"  DAS MENU LADEN,DAS PROGRAMM DAS SIE
  12. 120 [153]"  WUENSCHEN AUSWAEHLEN UND SCHON WIRD
  13. 130 PRINT"  ES IN DEN RECHNER GELADEN.
  14. 140 [153]
  15. 150 [153][166]11)"VORGEHENSWEISE
  16. 160 PRINT
  17. 170 PRINT"- WAEHLEN SIE ZUERST MENUPUNKT 2 UND
  18. 180 [153]"  BESTIMMEN SIE WELCHE PROGRAMME INS
  19. 190 PRINT"  MENU AUFGENOMMEN WERDEN SOLLEN.
  20. 200 [153]"  GLEICHZEITIG LEGEN SIE AUCH FEST,OB
  21. 210 PRINT"  ES MIT ,8 ODER MIT ,8,1 (MASCHINEN-
  22. 220 [153]"  PROGRAMME) GELADEN WERDEN SOLL.
  23. 230 PRINT"- WENN SIE DIESE ARBEIT ERLEDIGT HABEN,
  24. 240 [153]"  SIND SIE AUTOMATISCH WIEDER IM HAUPT-
  25. 250 PRINT"  MENU UND KOENNEN NUN MENUPUNKT 4 WAEH-";
  26. 260 PRINT"  LEN UM DAS MENU ABZUSPEICHERN ODER
  27. 270 [153]"  FALLS IHNEN BEI PUNKT 2 EIN FEHLER
  28. 280 PRINT"  UNTERLAUFEN IST,NOCHMALS VON VORNE
  29. 290 [153]"  BEGINNEN.ON"
  30. 300 [161]T$:[139]T$[178]""[167]300
  31. 310 [142]
  32. 320 :
  33. 330 :
  34. 340 [143] *** UEBERNEHMEN ***
  35. 350 [153]"LOAD";:A$[178]"":T$[178]"":IN[178]0:X[178]0:XX[178]0
  36. 360 [153]"F1 = ,8WAIT F3 = ,8,1WAIT F5 = NICHT UEBERNEHMEN"
  37. 370 [160]2:[159]2,8,15
  38. 380 [159]1,8,0,"$0"
  39. 390 [161]#1,A$,B$
  40. 400 [161]#1,A$,B$
  41. 410 [161]#1,A$,B$
  42. 420 C[178]0
  43. 430 [139] A$[179][177]"" [167] C[178][198](A$)
  44. 440 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256
  45. 450 [161]#1,B$:[139] ST[179][177]0 [167] 540
  46. 460 [139] B$[179][177][199](34)[167][137]450
  47. 470 [161]#1,B$:[139]B$[179][177][199](34)[175]B$[179][177]"<"[167]A$[178]A$[170]B$:[137] 550
  48. 480 [139]B$[179][177][199](34)[167] [137]470
  49. 490 [139]X[178]0[167]X[178]1:A$[178]"":[137]520
  50. 500 A$[178][201](A$,[195](A$)[171]1)
  51. 510 A$[178][200](A$,[195](A$)):[153]A$;:[141]570
  52. 520 [161]#1,B$:[139] B$[178][199](32) [167]520
  53. 530 [139] ST[178]0 [167] 400
  54. 540 [160]1:[153]"LOAD";:[142]
  55. 550 [139][195](A$)[177]20[167][137]540
  56. 560 [137]470
  57. 570 IN[178]IN[170]1:NA$(IN)[178]A$
  58. 580 [161]T$:[139]T$[178]""[167]580
  59. 590 [139]T$[178]"INPUT"[167]NU$(IN)[178]"8":[151]214,[194](214):[151]211,20:[158]58640:[153]",8WAIT"
  60. 600 [139]T$[178]"INPUT"[167][142]
  61. 610 [139]T$[178]"DIM"[167]NU$(IN)[178]"81":[151]214,[194](214):[151]211,20:[158]58640:[153]",8,1WAIT"
  62. 620 [139]T$[178]"DIM"[167][142]
  63. 630 [139]T$[178]"READ"[167]NA$(IN)[178]"":IN[178]IN[171]1:[151]214,[194](214):[151]211,20:[158]58640
  64. 640 [139]T$[178]"READ"[167][153]"NICHT UEBERNOMMENWAIT":[142]
  65. 650 [137]580
  66. 660 [142]
  67. 670 :
  68. 680 [143] *** DIRECTORY ***
  69. 690 [153]"LOAD";
  70. 700 [160]2:[159]2,8,15:X[178]0:A$[178]"":B$[178]"":C[178]0:LE$[178]""
  71. 710 [159]1,8,0,"$0"
  72. 720 [161]#1,A$,B$
  73. 730 [161]#1,A$,B$
  74. 740 [161]#1,A$,B$
  75. 750 C[178]0
  76. 760 [139] A$[179][177]"" [167] C[178][198](A$)
  77. 770 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256
  78. 780 [139]X[178]0[167]TB[178]2:[137]800
  79. 790 TB[178]5
  80. 800 [153][202]([196](C),2);[163]TB);
  81. 810 [161]#1,B$:[139] ST[179][177]0 [167] 950
  82. 820 [139] B$[179][177][199](34)[167][137]810
  83. 830 [139]X[178]0[167][153]"";
  84. 840 [153][199](34);:[153][199](34);:[153]"";
  85. 850 [161]#1,B$:[139]B$[179][177][199](34)[175]X[178]0[167][153]""B$;:[137]850:[137]870
  86. 860 [139]B$[179][177][199](34)[167][153]B$;:[137]850
  87. 870 [139]X[178]0[167][153]"";
  88. 880 [153][199](34);:[153][199](34);:[153]"";
  89. 890 [161]#1,B$:[139] B$[178][199](32) [167]890
  90. 900 [153] [163]24);:C$[178]""
  91. 910 C$[178]C$[170]B$:[161]#1,B$:[139] B$[179][177]""  [167] 910
  92. 920 LE$[178][200](C$,6):[139]X[178]0[167]X[178]1:[141]980:[153]"CMDCMDCMDCMD"LE$:[137]940
  93. 930 [153]LE$
  94. 940 [139] ST[178]0 [167] 730
  95. 950 [153]"CMDBLOCKS FREE":[160]1
  96. 960 [161]T$:[139]T$[178]""[167]960
  97. 970 T$[178]"":[142]
  98. 980 LE[178][195](C$):LE[178]6[171]LE
  99. 990 [129]I[178]1[164]LE:ZUS$[178]ZUS$[170]" ":[130]
  100. 1000 LE$[178]ZU$[170]LE$:[142]
  101. 1010 [143] *** TITEL ***
  102. 1020 [151] 53280,6 :[151] 53281,14:[153] [199](142)[199](147);
  103. 1030 [153]
  104. 1040 [153]"STOP (null)(null)(null)     (null)(null)(null) (null)(null)(null)(null)(null)(null)(null) (null)(null)(null)    (null)(null) (null)(null)    (null)(null)
  105. 1050 PRINT" qqqq   qqqq qqqqqqq qqqq   qq qq    qq
  106. 1060 [153]" qq qq qq qq qq"[166]6)"qq qq  qq qq    qq
  107. 1070 PRINT" qq  qqq  qq qq"SPC(6)"qq  qq qq qq    qq
  108. 1080 [153]" qq   q   qq qq"[166]6)"qq   qqqq qq    qq
  109. 1090 PRINT" qq"SPC(7)"qq qqqq    qq    qqq qq    qq
  110. 1100 [153]" qq"[166]7)"qq qq"[166]6)"qq     qq qq    qq
  111. 1110 PRINT" qq"SPC(7)"qq qq"SPC(6)"qq     qq qq    qq
  112. 1120 [153]" qq"[166]7)"qq qqqqqqq qq     qq qqqqqqqq
  113. 1130 PRINT" qq"SPC(7)"qq qqqqqqq qq     qq  qqqqqq
  114. 1140 [153]:[153]
  115. 1150 [153]"  ww     ww  wwww  ww  w wwwww wwww
  116. 1160 PRINT"  www   www ww  ww ww w  ww    ww  w
  117. 1170 [153]"  ww w w ww ww  ww www   ww    ww  w
  118. 1180 PRINT"  ww  w  ww wwwwww www   wwww  wwww
  119. 1190 [153]"  ww     ww ww  ww ww w  ww    ww w
  120. 1200 PRINT"  ww     ww ww  ww ww  w wwwww ww  w
  121. 1210 [153]
  122. 1220 [153]"    "[166]12)"SIMON (TEL 071/85 46 22)";
  123. 1230 [153]"     WRITTEN BY"[166]6)"&
  124. 1240 PRINT"    "SPC(12)"EDY   (TEL 071/85 50 46)";
  125. 1250 GETA$:IFA$=""THEN1250
  126. 1260 PRINT"[147]"
  127. 1270 PRINT,"  IHRE WAHL :"
  128. 1280 PRINT,"  1  DIRECTORY EINLESEN"
  129. 1290 PRINT,"  2  UEBERNEHMEN"
  130. 1300 PRINT,"  3  INFO"
  131. 1310 PRINT,"  4  MENU SPEICHERN"
  132. 1320 PRINT,"  5  ENDE"
  133. 1330 GET A$ :IF A$=""THEN 1330
  134. 1340 IF A$="1"THEN GOSUB690:GOTO1260
  135. 1350 IF A$="2"THEN GOSUB350:GOTO1260
  136. 1360 IF A$="3"THEN GOSUB50:GOTO1260
  137. 1370 IF A$="4"THEN GOTO1460
  138. 1380 IF A$="5"THEN1410
  139. 1390 GOTO1330
  140. 1400 REM *** ENDE ***
  141. 1410 POKE214,23:POKE211,11:SYS58640:PRINT"SIND SIE SICHER ?[145]"
  142. 1420 GETT$:IFT$="N"THEN1260
  143. 1430 IFT$="J"THENSYS64738
  144. 1440 GOTO1420
  145. 1450 REM *** DATEI SPEICHERN ***
  146. 1460 CLOSE15:OPEN15,8,15:PRINT#15,"S0:MSD":CLOSE15:CLOSE2:OPEN2,8,2,"MSD,S,W"
  147. 1470 Z=0
  148. 1480 Z=Z+1:IFZ=145THENCLOSE2:GOTO1530
  149. 1490 IFNA$(Z)=""THENCLOSE2:GOTO1530
  150. 1500 PRINT#2,NA$(Z);NU$(Z)
  151. 1510 GOTO1480
  152. 1520 REM *** MENU SPEICHERN ***
  153. 1530 CLOSE15:OPEN15,8,15:PRINT#15,"S0:MENU":CLOSE15:PRINT"[147][145]";:PRINT"RUN1600"
  154. 1540 PRINT"POKE43,PEEK(61)+1:POKE44,PEEK(62)"
  155. 1550 PRINT"SAVE"CHR$(34)"MENU"CHR$(34)",8"
  156. 1560 PRINT"POKE43,1:POKE44,8"
  157. 1570 PRINT"GOTO1260"
  158. 1580 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE636,13
  159. 1590 POKE637,13:POKE198,7:END
  160. 1600 STOP
  161. 1610 POKE53280,14:POKE53281,6
  162. 1620 PRINT"[147]           ICH LADE DIE DATEI":Z=0:DIMNA$(144),NU$(144)
  163. 1630 CLOSE2:OPEN2,8,2,"MSD,S,R"
  164. 1640 Z=Z+1
  165. 1650 INPUT#2,NAA$
  166. 1660 IFRIGHT$(NAA$,1)="8"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-1):NU$(Z)=",8"
  167. 1670 IFRIGHT$(NAA$,2)="81"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-2):NU$(Z)=",8,1
  168. 1680 [139]ST[178]64[167][160]2:[137]1700
  169. 1690 [137]1640
  170. 1700 [153]"LOAD";:Z[178]0
  171. 1710 [153]"              +MENU-MAKERWAITSGN"
  172. 1720 [153]"               BY SIMON & EDY"
  173. 1730 [153][163]5)"CURSOR UP    NAECHSTES ELEMENT"
  174. 1740 [153][163]5)"CURSOR DOWN  VORHERIGES ELEMENT"
  175. 1750 [153][163]5)"RETURN       WAEHLEN"
  176. 1760 [153]"    (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  177. 1770 [153]"    (null)                (null)"
  178. 1780 [153]"    MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  179. 1790 [151]214,15:[151]211,5:[158]58640:[153]NA$(1):Z[178]1
  180. 1800 [161]T$:[139]T$[178]""[167]1800
  181. 1810 [139]T$[178]"ON"[167]Z[178]Z[170]1:X[178]1:[141]1890:[137]1800
  182. 1820 [139]T$[178]""[167]Z[178]Z[171]1:X[178]2:[141]1890:[137]1800
  183. 1830 [139]T$[178][199](13)[167][137]1850
  184. 1840 [137]1800
  185. 1850 [153]"LOAD";:[153]"LOAD"[199](34)NA$(Z)[199](34)NU$(Z)
  186. 1860 [153]"POKE646,14:RUN"
  187. 1870 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
  188. 1880 [143] *** UNTERPROG ***
  189. 1890 [139]Z[178]0[167]Z[178]1:[142]
  190. 1900 [139]NA$(Z)[178]""[175]X[178]2[167]Z[178]Z[170]1:[142]
  191. 1910 [139]Z[178]145[167]Z[178]144:[142]
  192. 1920 [139]NA$(Z)[178]""[175]X[178]1[167]Z[178]Z[171]1:[142]
  193. 1930 [151]214,15:[151]211,5:[158]58640:[153]"                "
  194. 1940 [151]214,15:[151]211,5:[158]58640:[153]NA$(Z):[142]
  195.