home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / menue-maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.