home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac7_disk / gemma152 / gemexamp.les / window14.bas (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1997-07-16  |  7.4 KB  |  112 lines
  1. 10 VARNAME
  2. 100 VARNAME
  3. 110 VARNAME
  4. 120 EXTENSION (Index #25) (Token 0xbc)
  5. 130 VARNAME
  6. 140 VARNAME
  7. 150 VARNAME
  8. 160 VARNAME
  9. 170 EXTENSION (Index #25) (Token 0xbc)
  10. 175 EXTENSION (Index #15) (Token 0x9e)
  11. 180 EXTENSION (Index #25) (Token 0xb8)
  12. 185 EXTENSION (Index #15) (Token 0x9c)
  13. 190 DIM
  14. 200 VARNAME
  15. 210 VARNAME
  16. 220 VARNAME
  17. 230 VARNAME
  18. 240 VARNAME
  19. 250 VARNAME
  20. 260 VARNAME
  21. 270 IF
  22. 280 IF
  23. 290 IF
  24. 3 CLS
  25. 30 DIM
  26. 300 IF
  27. 310 REM 
  28. 320 IF
  29. 330 IF
  30. 340 IF
  31. 350 IF
  32. 360 IF
  33. 370 IF
  34. 380 REM f TYPE=24 then DUMMY=frm_alert(1,"[1][ "+str$(MESS3)+str$(MESS4)+" ][ OK ]")
  35. 390 IF
  36. 40 VARNAME
  37. 400 GOTO
  38. 41 EXTENSION (Index #25) (Token 0xa2)
  39. 410 VARNAME
  40. 420 EXTENSION (Index #25) (Token 0xba)
  41. 430 EXTENSION (Index #25) (Token 0xc0)
  42. 440 CURS
  43. 450 DEFAULT
  44. 460 IF
  45. 470 IF
  46. 480 IF
  47. 490 IF
  48. 5 GOSUB
  49. 50 VARNAME
  50. 500 IF
  51. 50000 REM   ************** GEM setup code (was autoexec.bas) *********
  52. 50010 VARNAME
  53. 50020 VARNAME
  54. 50021 VARNAME
  55. 50022 VARNAME
  56. 50030 VARNAME
  57. 50040 KEY
  58. 50050 CURS
  59. 50060 DIM
  60. 50070 VARNAME
  61. 50080 VARNAME
  62. 50090 VARNAME
  63. 50100 VARNAME
  64. 50110 TRAP
  65. 50120 VARNAME
  66. 50130 LOKE
  67. 50140 REM oke $4CE+4,leek(BSE+12)
  68. 50150 REM oke $4CE+8,leek(BSE+16)
  69. 50160 REM oke $4CE+12,leek(BSE+20)
  70. 50170 REM oke $4CE+16,leek(BSE+24)
  71. 50180 REM oke $4CE+20,leek(BSE+28)
  72. 50190 REM oke $4CE+24,leek(BSE+32)
  73. 50200 VARNAME
  74. 50210 EXTENSION (Index #15) (Token 0x9c)
  75. 50220 TRAP
  76. 50230 TRAP
  77. 50240 REM dreg(0) contains system memory free
  78. 50250 HIDE
  79. 50260 IF
  80. 50270 REM Poke 0 into the malloc buffer of GEMMA acc so it will realise we've nicked it's memory!!!
  81. 50280 LOKE
  82. 50290 REM attempts to set colours to be like those of the desktop
  83. 50300 IF
  84. 50310 DATA
  85. 50320 IF
  86. 50340 REM SET=76
  87. 50350 REM or ADDR=$400 to $600 step 4
  88. 50360 REM oke (BSE+OSET),ADDR
  89. 50370 REM SET=OSET+4
  90. 50380 REM ext
  91. 50390 CLICK
  92. 50400 RETURN
  93. 510 IF
  94. 520 IF
  95. 530 IF
  96. 540 IF
  97. 550 IF
  98. 560 IF
  99. 570 IF
  100. 580 IF
  101. 590 IF
  102. 600 IF
  103. 610 IF
  104. 620 IF
  105. 630 IF
  106. 640 IF
  107. 650 IF
  108. 660 RETURN
  109. 8 EXTENSION (Index #15) (Token 0x9c)
  110. 80 VARNAME
  111. 90 VARNAME
  112.