home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-04_1998_CSW_Side_B.d64 / config .mbs (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  60 lines
  1. 10 rem  *************************
  2. 20 rem  * midi-basic  anpassung *
  3. 30 rem  * (c) 1991 by r. buchty *
  4. 40 rem  *************************
  5. 50 (NULL):(NULL):(NULL) 0
  6. 60 (NULL):(NULL) 0,0,12:print"startparameter-editor fuer midibasic v5"
  7. 70 (NULL) 3,0:print"i. bildschirmfarben"
  8. 80 print"aendern (j/n)";a$:gosub 580:if a$<>"j" then 150
  9. 90 input"[145] hintergrund";hf
  10. 100 input" vordergrund";vf
  11. 110 input" zeichen    ";zf
  12. 120 (NULL) hf,vf,zf:print:print"farben ok (j/n)?":gosub 580
  13. 130 if a$<>"j" then (NULL) 0,0,12:goto 70
  14. 140 poke 35515,hf:poke 35516,vf:poke 35517,zf
  15. 150 gosub 590
  16. 160 (NULL)3,0:print"ii. f-tasten-belegung"
  17. 170 print"aendern (j/n)":gosub 580:if a$<>"j" then 310
  18. 180 for a=1 to 8:poke 781,3+a:sys 59903
  19. 190 (NULL) 3+a,1:print" f"a" (max. 12 zeichen)";:input f$(a)
  20. 200 if len(f$(a))>12 then 190
  21. 210 if f$(a)="" then 190
  22. 220 print"mit return abschliessen (j/n)":gosub 580
  23. 230 if a$="j" then f$(a)=f$(a)+":"+chr$(13)
  24. 240 next a
  25. 250 for a=1 to 4:c=2*a-1:for b=1 to len(f$(c))
  26. 260 poke 33344+(a-1)*15+b,asc(mid$(f$(c),b,1)):next b:for c=b to 15
  27. 270 poke 33344+(a-1)*15+c,0:next c:for b=1 to len(f$(2*a))
  28. 280 poke 33404+(a-1)*15+b,asc(mid$(f$(2*a),b,1)):next b:for c=b to 15
  29. 290 poke 33404+(a-1)*15+c,0:next c
  30. 300 next a
  31. 310 gosub 590
  32. 320 (NULL)3,0:print"iii. tastenwiederholung"
  33. 330 print"aendern (j/n)":gosub 580:if a$<>"j" then 360
  34. 340 print"tastenwiederholung (e)in oder (a)us?":gosub 580
  35. 350 poke 32955,0:if a$="e" then poke 32955,128
  36. 360 gosub 590
  37. 370 (NULL) 3,0:print"iv. f-tasten-interrupt"
  38. 380 print"aendern (j/n)?":gosub 580:if a$<>"j" then 410
  39. 390 print"f-tasten-belegung (e)in / (a)us?":gosub 580
  40. 400 poke 33239,49:poke 33240,234:if a$="e" then poke 33239,217:poke 33240,129
  41. 410 gosub 590:(NULL) 3,0:print"v. device":print"aendern (j/n)?":gosub 580
  42. 420 if a$<>"j" then 470
  43. 430 (NULL) 4,0:print"devicenummer (1:datasette, 8-11:floppy)"
  44. 440 input a$:a=val(a$):if a<8 then if a<>1 then 430
  45. 450 if a>11 then 430
  46. 460 a=val(a$):poke 34076,a
  47. 470 gosub 590:(NULL) 3,0
  48. 480 print"name, unter dem das veraenderte basic   abgespeichert werden soll:"
  49. 490 (NULL) 5,0:input n$:if len(n$)>16 or len(n$)=0 then 490
  50. 500 for a=1 to len(n$):a$=mid$(n$,a,1)
  51. 510 if a$="*" or a$="?" or a$=":" or a$="@" then 490
  52. 520 if asc(a$)<32 or (asc(a$)>127 and asc(a$)<160) then 490
  53. 530 next a
  54. 540 print"speichern auf (d)isk oder (t)ape?":gosub 580
  55. 550 x=8:if a$="t" then x=1
  56. 560 sys (57812)n$,x:poke 193,0:poke 194,128:poke 174,191:poke 175,138:sys 62957
  57. 570 end
  58. 580 poke 198,0:wait 198,1:get a$:return
  59. 590 z=peek(214):for x=z to 2 step -1:poke 781,x:sys59903:next x:return
  60.