home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / dialogbox.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  121 lines
  1. 100 step"dialogbox,p,w"
  2. 110 +$0402
  3. 120 tab(setpattern=$c139
  4. 130 tab(irectangle=$c19f
  5. 140 tab(mouseup=$c18a
  6. 150 tab(domenu=$c151
  7. 160 tab(redomenu=$c193
  8. 170 tab(dodlgbox=$c256
  9. 180 tab(enddlgbox=$c2bf
  10. 181 tab(desktop=$c22c
  11. 190 toreg0=2
  12. 200 toreg1=4
  13. 210 toreg2=6
  14. 220 toreg3=8
  15. 230 toreg4=10
  16. 240 toreg5=12
  17. 250 toreg6=14
  18. 260 toreg7=16
  19. 270 toreg8=18
  20. 280 toreg9=20
  21. 290 toreg10=22
  22. 300  (NULL)mouseup
  23. 310  mid$#$02
  24. 320  (NULL)setpattern
  25. 330  (NULL)irectangle
  26. 340 fn0
  27. 350 fn199
  28. 360 spc(0
  29. 370 spc(319
  30. 380  mid$#<(menue)
  31. 390  (NULL)reg0
  32. 400  mid$#>(menue)
  33. 410  (NULL)reg0+1
  34. 420  (NULL)domenu
  35. 430  (NULL)
  36. 440 menue fn0
  37. 450 fn14
  38. 460 spc(80
  39. 470 spc(240
  40. 480 fn0+3+0
  41. 490 spc(name1
  42. 500 fn0
  43. 510 spc(task1
  44. 520 spc(name2
  45. 530 fn0
  46. 540 spc(task2
  47. 541 spc(name3
  48. 542 fn0
  49. 543 spc(task3
  50. 550 task1 (NULL)redomenu
  51. 560 task11 mid$#<(box1)
  52. 570  (NULL)reg0
  53. 580  mid$#>(box1)
  54. 590  (NULL)reg0+1
  55. 600  mid$#<(filename)
  56. 610  (NULL)reg5
  57. 620  mid$#>(filename)
  58. 630  (NULL)reg5+1
  59. 640  mid$#$06
  60. 650  (NULL)reg7
  61. 660  mid$#<(classname)
  62. 670  (NULL)reg10
  63. 680  mid$#>(classname)
  64. 690  (NULL)reg10+1
  65. 700  (NULL)dodlgbox
  66. 710  (NULL)
  67. 720 task2 (NULL)redomenu
  68. 730  mid$#<(box2)
  69. 740  (NULL)reg0
  70. 750  mid$#>(box2)
  71. 760  (NULL)reg0+1
  72. 770  mid$#<(filename)
  73. 780  (NULL)reg5
  74. 790  mid$#>(filename)
  75. 800  (NULL)reg5+1
  76. 810  (NULL)dodlgbox
  77. 820  mid$reg0
  78. 830  str$#$04
  79. 840  (NULL)task11
  80. 850  (NULL)
  81. 851 task3 (NULL)desktop
  82. 860 box1 fn128+2
  83. 870 fn1
  84. 880 fn17
  85. 890 fn72
  86. 900 fn11
  87. 910 fn135
  88. 920 fn16
  89. 930 spc(name1
  90. 940 fn16
  91. 950 fn1
  92. 960 fn4
  93. 970 fn0
  94. 980 filename fn0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;platzhalter
  95. 990 classname fn0
  96. 1000 name1 not"auswahl"
  97. 1010 name2 not"file-check"
  98. 1011 name3 not"desktop"
  99. 1020 untername1 not"dateiname:"
  100. 1030 box2 fn0+2
  101. 1040 fn50
  102. 1050 fn100
  103. 1060 spc(80
  104. 1070 spc(230
  105. 1080 fn11
  106. 1090 fn50
  107. 1100 fn14
  108. 1110 spc(untername1
  109. 1120 fn12
  110. 1130 fn50
  111. 1140 fn28
  112. 1150 fn12
  113. 1160 fn3
  114. 1170 fn1
  115. 1180 fn32
  116. 1190 fn4
  117. 1200 fn12
  118. 1210 fn32
  119. 1220 fn0
  120. 1230 <
  121.