home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac7_disk / gemma152 / gemexamp.les / windtext.bas (.txt) < prev   
Encoding:
Atari STOS Basic  |  1997-07-19  |  6.4 KB  |  146 lines
  1. 1 CLS
  2. 10 VARNAME
  3. 1000 REM Get file (in FILE$) and put into buffer$().
  4. 1001 VARNAME
  5. 1010 DIM
  6. 1020 OPEN IN
  7. 1021 VARNAME
  8. 1022 IF
  9. 1030 LINE INPUT
  10. 1040 INC
  11. 1042 IF
  12. 1060 GOTO
  13. 1065 CLOSE
  14. 1070 VARNAME
  15. 1071 VARNAME
  16. 1072 REM max horizontal size=1000=nolines
  17. 1080 RETURN
  18. 1090 REM expand tabs!
  19. 11 VARNAME
  20. 1100 VARNAME
  21. 1110 VARNAME
  22. 1120 IF
  23. 1130 VARNAME
  24. 1140 VARNAME
  25. 1150 GOTO
  26. 12 VARNAME
  27. 13 VARNAME
  28. 14 VARNAME
  29. 15 VARNAME
  30. 16 EXTENSION (Index #25) (Token 0xbc)
  31. 20 EXTENSION (Index #25) (Token 0xb8)
  32. 2000 REM Redraw routine(s)
  33. 2010 REM line=starting line number
  34. 2011 VARNAME
  35. 2012 VARNAME
  36. 2013 EXTENSION (Index #15) (Token 0x9e)
  37. 2014 EXTENSION (Index #15) (Token 0x80)
  38. 2020 FOR
  39. 2021 VARNAME
  40. 2022 VARNAME
  41. 2023 FOR
  42. 2024 VARNAME
  43. 2025 NEXT
  44. 2026 VARNAME
  45. 2030 EXTENSION (Index #15) (Token 0xa0)
  46. 2040 VARNAME
  47. 2050 NEXT
  48. 2060 EXTENSION (Index #15) (Token 0x9c)
  49. 2990 RETURN
  50. 30 VARNAME
  51. 3000 REM Up/down/left/right arrows...
  52. 3031 IF
  53. 3032 IF
  54. 3100 IF
  55. 3110 IF
  56. 3120 VARNAME
  57. 3130 VARNAME
  58. 3140 EXTENSION (Index #25) (Token 0xbc)
  59. 3250 REM v_hide_c : v_bar 1,MX,MY,MX+MW-1,MY+MH-1 : v_show_c : gosub 2000
  60. 3260 GOSUB
  61. 3261 REM J=wind_calc(1,MYCO,MX,MY,MW,MH,varptr(X2),varptr(Y2),varptr(W2),varptr(H2))
  62. 3301 REM frm_dial 3,0,0,0,0,X,Y,W,H
  63. 3990 RETURN
  64. 40 DIM
  65. 4000 REM Bring up fileselector!
  66. 4005 VARNAME
  67. 4010 VARNAME
  68. 4020 VARNAME
  69. 4030 VARNAME
  70. 4040 VARNAME
  71. 4050 IF
  72. 4051 IF
  73. 4060 VARNAME
  74. 4061 VARNAME
  75. 4070 IF
  76. 4071 DEC
  77. 4072 GOTO
  78. 4091 FOR
  79. 4092 IF
  80. 4093 NEXT
  81. 41 EXTENSION (Index #25) (Token 0x8c)
  82. 4100 RETURN
  83. 42 VARNAME
  84. 43 VARNAME
  85. 44 VARNAME
  86. 45 VARNAME
  87. 46 VARNAME
  88. 47 VARNAME
  89. 48 IF
  90. 49 IF
  91. 49999 END
  92. 5 VARNAME
  93. 50 IF
  94. 50000 REM   ************** GEM setup code (was autoexec.bas) *********
  95. 50010 VARNAME
  96. 50020 VARNAME
  97. 50021 VARNAME
  98. 50022 VARNAME
  99. 50030 VARNAME
  100. 50040 KEY
  101. 50050 CURS
  102. 50060 DIM
  103. 50070 VARNAME
  104. 50080 VARNAME
  105. 50090 VARNAME
  106. 50100 VARNAME
  107. 50110 TRAP
  108. 50120 VARNAME
  109. 50130 LOKE
  110. 50140 REM oke $4CE+4,leek(BSE+12)
  111. 50150 REM oke $4CE+8,leek(BSE+16)
  112. 50160 REM oke $4CE+12,leek(BSE+20)
  113. 50170 REM oke $4CE+16,leek(BSE+24)
  114. 50180 REM oke $4CE+20,leek(BSE+28)
  115. 50190 REM oke $4CE+24,leek(BSE+32)
  116. 50200 VARNAME
  117. 50210 EXTENSION (Index #15) (Token 0x9c)
  118. 50220 TRAP
  119. 50230 TRAP
  120. 50240 REM dreg(0) contains system memory free
  121. 50250 HIDE
  122. 50260 IF
  123. 50270 REM Poke 0 into the malloc buffer of GEMMA acc so it will realise we've nicked it's memory!!!
  124. 50280 LOKE
  125. 50290 REM attempts to set colours to be like those of the desktop
  126. 50300 IF
  127. 50310 DATA
  128. 50320 IF
  129. 50340 REM SET=76
  130. 50350 REM or ADDR=$400 to $600 step 4
  131. 50360 REM oke (BSE+OSET),ADDR
  132. 50370 REM SET=OSET+4
  133. 50380 REM ext
  134. 50390 CLICK
  135. 50400 RETURN
  136. 51 IF
  137. 6 VARNAME
  138. 64 GOTO
  139. 65 VARNAME
  140. 7 EXTENSION (Index #15) (Token 0x86)
  141. 70 EXTENSION (Index #25) (Token 0xba)
  142. 8 VARNAME
  143. 80 DEFAULT
  144. 9 VARNAME
  145. 90 END
  146.