home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac7_disk / gemma152 / gemexamp.les / autoexec.bas (.txt) next >
Encoding:
Atari STOS Basic  |  1997-07-14  |  1.7 KB  |  42 lines
  1. 50000 REM   ************** GEM setup code (was autoexec.bas) *********
  2. 50010 VARNAME
  3. 50020 VARNAME
  4. 50021 VARNAME
  5. 50022 VARNAME
  6. 50030 VARNAME
  7. 50040 KEY
  8. 50050 CURS
  9. 50060 DIM
  10. 50070 VARNAME
  11. 50080 VARNAME
  12. 50090 VARNAME
  13. 50100 VARNAME
  14. 50110 TRAP
  15. 50120 VARNAME
  16. 50130 LOKE
  17. 50140 REM oke $4CE+4,leek(BSE+12)
  18. 50150 REM oke $4CE+8,leek(BSE+16)
  19. 50160 REM oke $4CE+12,leek(BSE+20)
  20. 50170 REM oke $4CE+16,leek(BSE+24)
  21. 50180 REM oke $4CE+20,leek(BSE+28)
  22. 50190 REM oke $4CE+24,leek(BSE+32)
  23. 50200 VARNAME
  24. 50210 EXTENSION (Index #15) (Token 0x9c)
  25. 50220 TRAP
  26. 50230 TRAP
  27. 50240 REM dreg(0) contains system memory free
  28. 50250 HIDE
  29. 50260 IF
  30. 50270 REM Poke 0 into the malloc buffer of GEMMA acc so it will realise we've nicked it's memory!!!
  31. 50280 LOKE
  32. 50290 REM attempts to set colours to be like those of the desktop
  33. 50300 IF
  34. 50310 DATA
  35. 50320 IF
  36. 50340 REM SET=76
  37. 50350 REM or ADDR=$400 to $600 step 4
  38. 50360 REM oke (BSE+OSET),ADDR
  39. 50370 REM SET=OSET+4
  40. 50380 REM ext
  41. 50390 CLICK
  42.