home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac9_disk / gemma172 / gemdemo4.bas (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1997-09-28  |  12.3 KB  |  165 lines
  1. 10 VARNAME
  2. 100 VARNAME
  3. 1000 VARNAME
  4. 1010 VARNAME
  5. 1020 VARNAME
  6. 1030 VARNAME
  7. 1040 VARNAME
  8. 1050 VARNAME
  9. 1060 EXTENSION (Index #3) (Token 0xbc)
  10. 1070 EXTENSION (Index #5) (Token 0x9e)
  11. 1080 EXTENSION (Index #3) (Token 0xb8)
  12. 1090 EXTENSION (Index #3) (Token 0x9c)
  13. 110 VARNAME
  14. 1100 EXTENSION (Index #5) (Token 0x9c)
  15. 1110 EXTENSION (Index #3) (Token 0x94)
  16. 1120 VARNAME
  17. 1130 RETURN
  18. 1140 REM Close a window
  19. 1150 REM mess3=window
  20. 1160 IF
  21. 1170 VARNAME
  22. 1180 EXTENSION (Index #3) (Token 0xba)
  23. 1190 IF
  24. 120 VARNAME
  25. 1200 VARNAME
  26. 1210 IF
  27. 1220 IF
  28. 1230 RETURN
  29. 1240 REM Open window+draw system colours in it!
  30. 1250 EXTENSION (Index #3) (Token 0x8e)
  31. 1260 VARNAME
  32. 1270 VARNAME
  33. 1280 VARNAME
  34. 1290 VARNAME
  35. 130 DIM
  36. 1300 VARNAME
  37. 1310 EXTENSION (Index #3) (Token 0xbc)
  38. 1320 VARNAME
  39. 1330 EXTENSION (Index #3) (Token 0xb8)
  40. 1340 VARNAME
  41. 1350 VARNAME
  42. 1360 VARNAME
  43. 1370 FOR
  44. 1380 EXTENSION (Index #5) (Token 0x82)
  45. 1390 VARNAME
  46. 140 VARNAME
  47. 1400 EXTENSION (Index #5) (Token 0x80)
  48. 1410 NEXT
  49. 1420 RETURN
  50. 1430 VARNAME
  51. 1440 VARNAME
  52. 1450 VARNAME
  53. 1460 VARNAME
  54. 1470 VARNAME
  55. 1480 VARNAME
  56. 1490 VARNAME
  57. 150 VARNAME
  58. 1500 VARNAME
  59. 1510 RETURN
  60. 1520 VARNAME
  61. 1530 IF
  62. 1540 REPEAT
  63. 1550 IF
  64. 1560 IF
  65. 1570 IF
  66. 1580 VARNAME
  67. 1590 UNTIL
  68. 160 VARNAME
  69. 1600 RETURN
  70. 170 VARNAME
  71. 180 VARNAME
  72. 190 VARNAME
  73. 20 HIDE
  74. 200 VARNAME
  75. 210 VARNAME
  76. 220 VARNAME
  77. 230 VARNAME
  78. 240 IF
  79. 250 GOTO
  80. 260 IF
  81. 270 IF
  82. 280 REM if TYPE=20 then TY=WINTYPE(MESS3) : J=wind_calc(1,MYCO,MESS4,MESS5,MESS6,MESS7,varptr(WINX),varptr(WINY),varptr(WINW),varptr(WINH)) : doke TREE+24*0+16,WINX : doke TREE+24*0+18,WINY : doke TREE+24*0+20,WINW : doke TREE+24*0+22,WINH : objc_draw TREE,0,10,WINX,WINY,WINW,WINH : XAB=WINX : YAB=WINY : WAB=WINW : HAB=WINH
  83. 290 IF
  84. 30 IF
  85. 300 IF
  86. 310 IF
  87. 320 RETURN
  88. 330 REM Got menu select!
  89. 340 IF
  90. 350 IF
  91. 360 IF
  92. 370 IF
  93. 380 IF
  94. 390 IF
  95. 40 GOSUB
  96. 400 IF
  97. 410 IF
  98. 420 RETURN
  99. 430 REM GEMMA info box
  100. 440 VARNAME
  101. 45 VARNAME
  102. 450 VARNAME
  103. 460 EXTENSION (Index #4) (Token 0x92)
  104. 470 VARNAME
  105. 480 EXTENSION (Index #3) (Token 0xa2)
  106. 490 EXTENSION (Index #3) (Token 0xa2)
  107. 50 DIM
  108. 500 EXTENSION (Index #3) (Token 0x9c)
  109. 510 VARNAME
  110. 520 EXTENSION (Index #3) (Token 0xa2)
  111. 530 EXTENSION (Index #3) (Token 0xa2)
  112. 540 VARNAME
  113. 550 RETURN
  114. 560 REM Window bit!
  115. 570 RETURN
  116. 580 VARNAME
  117. 590 VARNAME
  118. 60 LOKE
  119. 600 VARNAME
  120. 610 VARNAME
  121. 620 FOR
  122. 630 POKE
  123. 640 VARNAME
  124. 650 NEXT
  125. 660 POKE
  126. 670 RETURN
  127. 680 REM Play an saa, saa contains the value to play, saa$ is cookie!
  128. 690 TRAP
  129. 70 VARNAME
  130. 700 RETURN
  131. 710 REM Display alertbox
  132. 720 VARNAME
  133. 730 VARNAME
  134. 731 TRAP
  135. 732 VARNAME
  136. 733 VARNAME
  137. 740 RETURN
  138. 750 REM Display TEST dialog
  139. 760 VARNAME
  140. 770 EXTENSION (Index #4) (Token 0x92)
  141. 780 EXTENSION (Index #3) (Token 0xa2)
  142. 790 EXTENSION (Index #3) (Token 0xa2)
  143. 80 VARNAME
  144. 800 EXTENSION (Index #3) (Token 0x9c)
  145. 810 VARNAME
  146. 820 EXTENSION (Index #3) (Token 0xa2)
  147. 830 EXTENSION (Index #3) (Token 0xa2)
  148. 840 VARNAME
  149. 850 RETURN
  150. 860 REM Bring up fileselector!
  151. 870 VARNAME
  152. 880 VARNAME
  153. 890 VARNAME
  154. 90 EXTENSION (Index #3) (Token 0xa2)
  155. 900 VARNAME
  156. 910 VARNAME
  157. 920 IF
  158. 930 RETURN
  159. 940 REM Open formwindow!
  160. 950 VARNAME
  161. 960 EXTENSION (Index #4) (Token 0x92)
  162. 970 VARNAME
  163. 980 DOKE
  164. 990 VARNAME
  165.