home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / geoCom.lnx / GEOCOM-demo (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  25.6 KB  |  361 lines
  1. geocom-DEMO
  2. prg FORMATTED geos FILE v1.0
  3. b=Hb(gi
  4. %GEOcOM      v1.4
  5. @fALK rEHWAGEN
  6. tHE ALTERNATIV PROGRAMMING SYSTEM FOR geos64/128
  7. (DEMO-VERSION)
  8. MAGE v
  9. ******
  10. dRIVE X:
  11. GEOcOM      v1.4
  12. tS{$7e}Y2@WZESUW{$7c}
  13. $z6nh?<-*wb0eq
  14. {$60},K'0
  15.  S$l,
  16. DISK ERROR:  $XX
  17. NO BLOCKS
  18. INVALID TRACK
  19. FULL DIRECTORY
  20. FILE NOT FOUND
  21. BAD bam
  22. INVALID RECORD
  23. OUT OF RECORDS
  24. STRUCTURE MISMATCH
  25. BUFFER OVERFLOW
  26. DEVICE NOT FOUND
  27. BAD GRAPHICS MODE
  28. OPENED FILE IN DRIVE
  29. DEVICE NOT FOUND
  30. FILE IS OPEN
  31. FILE IS NOT OPEN
  32. NO READ-FILE
  33. NO WRITE-FILE
  34. RECORDS ARE OPEN
  35. SIZE OVERFLOW
  36. GENERAL DISK ERROR
  37. pLEASE INSERT A NEW
  38. DISK IN DRIVE X.
  39. jjjj 
  40. M' 0
  41.  5l-
  42.  5lp
  43. W ; ;
  44. W n 
  45. P{$60} I$
  46. S ; 
  47. T' x 
  48. P S$l
  49. # ] 
  50. GEOcOM v1.4 REQUIRES A
  51. geos-KERNAL OF VERSION 1.3
  52. OR HIGHER.
  53.  B& H
  54.  B&L>
  55. V cMl
  56. {$60}wRITE iMAGE
  57. I 'I 
  58. lRDlJD
  59. /lh& 
  60. plWp gt
  61. s {$7b}M 
  62. [VTV+
  63. X {$7c}Kl
  64. ] js 
  65. hX gw 
  66.  =xlWw js 
  67. h oKH
  68. l-yl"F
  69. {$60}l7xh
  70. nO ERRORTEXT CREATED, BECAUSE
  71. GEOcOM IS NOT ON DISK.
  72. )Pjjjj{$60}
  73. ] ,L 
  74.  JG %ME
  75. ]]]]]^^^^^^^^{$60}_^]{$60}]E 
  76. {$60} cK rK
  77.  cK rK
  78. lJD UM
  79. {$60}IvD,p
  80. {$60} {$7b}M 
  81.  cK rKl
  82. h iK oK
  83.  rKlsC iK rK
  84. h dFH
  85. FlWwh
  86.  %M{$7d}@
  87. TlJDh
  88.  {$7b}M {$7c}K
  89. {$7b} WKl
  90. {$60} hJ 
  91. {$60} $J 
  92. 'lGF{$60} 
  93.  %MIu
  94.  %ME!
  95. {$60} iK 
  96. V cMHHl
  97. {$60} {$7b}Mlz&
  98. -?abcdefghilmnopqrstuvwABCDEHIJK@
  99. NNNNNOOOPPPQQQQRRRSTTTTTTUUUUUUUU.2;
  100. ddD,A
  101. ppend
  102. 0scD,A
  103. AlockA
  104. fsysB,I
  105. apacityA
  106. lassD
  107. 2loseF
  108. ",lrcol
  109. reate
  110. D,D,A
  111. !dreateD,G
  112. UeviceA
  113. ialogG
  114. "Miskn%
  115. trive
  116. ^nableA
  117. illB,
  118. classD,
  119. irstmenu
  120. loorC
  121. GreezeA
  122. osubE
  123. ardcopy
  124. FighB
  125. #gosubE
  126. #then
  127. ncludeD
  128. cnitf
  129. nitio
  130. nvert
  131. eftD,A
  132. jainloop
  133. enuG,A
  134. RidD,A,A
  135. oveB,B,B
  136. bject
  137. D,A,D,A
  138. tpendisk
  139. verlaymod
  140. -atternA
  141. %os"A,
  142. initH
  143. processG,A
  144. initA
  145. uitinp
  146. ecinfoF,A
  147. Becover
  148. {$7d}en%DtoD
  149. 'epeat
  150. [es$A
  151. menuG
  152. ightD,A
  153. inpD,E
  154. vectorB,E
  155. writeF
  156. prcolA,A
  157. fprite
  158. <prite
  159. $ascii
  160. $flagA
  161. D,D,D
  162. &witch
  163. extG,A
  164. JnfreezeA
  165. $Ipdatebam
  166. #PaitA
  167. exorA
  168. ";modA
  169. "kmodB
  170. B,A,B,A
  171. A,A,A,A
  172. itmap
  173. nterrupt
  174. indow
  175. rompt
  176. block
  177. eRRORS:
  178. cHARS:
  179. aPPLICATION OR DOCUMENT
  180. NOT IN DRIVE a OR b
  181. fALSE COMPUTER TYPE
  182. iNVALID TEXT VERSION
  183. cOMPILING ERROR:  $XX
  184. pLEASE SELECT OPTION:
  185. aNOTHER SOURCE TEXT
  186. sAVE PROGRAM
  187. tO DESKtOP
  188. rUN PROGRAM
  189. wITH TEXT TO GEOwRITE
  190. wITHOUT TEXT TO GEOwRITE
  191. wITH OBJECT TO oBJECTeDIT
  192. wITHOUT OBJECT TO oBJECTeDIT
  193. oBJECT dATA v1.0
  194. pLEASE ENTER FILENAME:
  195. GEOwRITE
  196. oBJECTeDIT
  197. aPPLICATION ON THIS SCREEN
  198. MODE NOT RUNABLE. cHANGE?
  199. sssss(
  200. $XXXX  
  201. $XXXX  
  202. (MAX. $XXXX)
  203. Nnbpiour/"UR
  204. GEOcOM      v1.4
  205. bytevar
  206. intvar
  207. realvar
  208. strvar
  209. label
  210. filevar
  211. object
  212. %            v1.0
  213. fALK rEHWAGEN   
  214. fILENAME ALREADY USED.
  215. oVERWRITE FILE?
  216. fALK rEHWAGEN
  217. oBJECTCODE
  218. FILQZ{$7d}
  219. {$60}UNDEFINED
  220. INTEGER
  221. STRING
  222. LABEL
  223. OBJECT
  224. BYTEROW
  225. INTROW
  226. REALROW
  227. STRROW
  228. cREATE ERRORTEXT?
  229. GEOcOM VERSION 1.4
  230.  (pd-DEMO) - (c) 1992-93 fALK rEHWAGEN
  231. d-04103 lEIPZIG, wINTERGARTENSTRA{$7e}E 2/107, PH.: (0341) 284343
  232. sRC. TEXT:
  233. pAGE:
  234. cMD'S:
  235. oBJ. FILE:
  236. mOD.:
  237. oBJ. CODE: 
  238. cODE AREA:
  239. cONSTANTS AREA:
  240. vARIABLES AREA:
  241. attention!
  242.  tHIS IS ONLY A pd-DEMO-VERSION OF
  243. /GEOcOM. fOLLOWING FUNCTIONS ARE NOT IMPLEMENTED:
  244. :* SAVING OF PROGRAMS
  245. e* CREATING OVERLAY PROGRAMS
  246. tcOMPLETE VERSION (PRICE: 59,- dm) AVAILABLE BY:
  247. d. d{$7c}HLER (guss), gORKISTR. 18, 04347 lPZ, gERMANY
  248. GEOcOM VERSION 1.4
  249.  (pd-DEMO) - (c) 1992-93 fALK rEHWAGEN
  250. d-04103 lEIPZIG, wINTERGARTENSTRA{$7e}E 2/107, PH.: (0341) 284343
  251. sRC. TEXT:
  252. pAGE:
  253. cMD'S:
  254. oBJECT FILE:
  255. mODULS:
  256. oBJECT CODE: 
  257. cODE AREA:
  258. cONSTANTS AREA:
  259. vARIABLES AREA:
  260. attention!
  261.  tHIS IST ONLY A pd-DEMO-VERSION OF
  262. /GEOcOM. fOLLOWING FUNCTIONS ARE NOT IMPLEMENTED:
  263. :* SAVING PROGRAMS
  264. e* CREATING OF OVERLAY PROGRAMS
  265. tcOMPLETE VERSION (PRICE: 59,- dm) AVAILABLE BY:
  266. dENIS d{$7c}HLER (guss), gORKISTRA{$7e}E 18, d-04347 lEIPZIG, gERMAY
  267. (l#(l6.
  268. 9(u(K(
  269. eRRORTEXT CAN'T BE CREATED
  270. AS A RESULT OF A DISK
  271. ERROR.
  272. COMMAND TOO LONG
  273. PICTURES AREN'T ALLOWED IN THE SOURCE TEXT
  274. BRACKETS TO DEEP (MAX. 7)
  275. VARIABLE NOT DECLARED
  276. TOO MANY VARIABLES WITH THE COMMAND (MAX. 16)
  277. FULL CONSTANTS AREA
  278. BINAR (%) OR HEXADECIMAL ($) EXPECT
  279. SYNTAX UNKNOWN
  280. FULL CODE AREA
  281. FULL VARIABLES AREA
  282. OPERATOR AS COMMAND
  283. COMMAND AS OPERATOR
  284. TO MANY VARIABLES NAMES (MAX. 127)
  285. if/while TOO DEEP (MAX. 40)
  286. NO OBJECT FILE EXISTING
  287. VARIABLES NAME NOT DECLARED
  288. OBJECT NOT IN OBJECT FILE
  289. TYPES AREN'T EQUAL (OBJECT,PROGRAM)
  290. TOO MANY OBJECT ADDRESSES (MAX. 128)
  291. FILE NOT FOUND OR FALSE FILE CLASS
  292. POINTER BUFFER FOR DIRECT VARIABLES OVERFLOW
  293. CODE AREA NOT OVER $5000
  294. START ADDRESS HIGHER THAN THE END ADDRESS
  295. COMMAND ONLY IN DEFINITION PART
  296. COMMAND ONLY IN DECLARATION PART
  297. FALSE TEXT VERSION OF include-FILE
  298. STRINGLENGHT ONLY IN RANGE OF 1 TO 254
  299. UNIMPLEMENTED STRING-CONTROL-CODE
  300. row-AREA ONLY IN RANGE OF 1 TO 65534
  301. GLOBAL AREA HAD TO DEFINED FIRST
  302. include-TEXTS MAXIMAL 1
  303. TO INCLUDING TEXT NOT FOUND
  304. REKURSIV INCLUDING OF TEXT NOT ALLOWED
  305. COMPILING THROUGH stop BREAKED
  306. PROGRAM-/BLOCK-END WIHT OPEN if/while-COMMAND
  307. CODE AREA NOT UNDER $2800
  308. endif/else/loop ONLY if/while
  309. ERROR BUFFER OVERFLOW
  310. dISKETTENFEHLER AUFGETRETEN
  311. tHANK YOU kATHLEEN! i LOVE YOU!!!
  312. dEMO-VERSION CAN'T SAVE PROGRAMS!
  313.  {$7c}. q.
  314. {$60}oPENING ERRORTEXT
  315. jjjj0
  316. {$60}_ERR
  317. wRITE iMAGE v1.1
  318. GEOwRITE    v1.1
  319. lV/eRROR #
  320.  tEXT: 
  321.     pAGE: 
  322.     cOMMANDS: 
  323.     cHARS: 
  324.  eRROR $
  325.  hELPTEXT:  
  326. lV/{$60}eARLY COMPILING END THROUGH ERROR $
  327. jjjj 
  328. 2l{$7c}.0
  329. L2 {$7c}.
  330. DOCNAME
  331. IOSTAT
  332. G'CURDRIVE
  333. DBSTAT
  334. F'STYLE
  335. PMODE
  336. SCRBUF
  337. NUMDRIVES
  338. &VERSION
  339. SCRFLAG
  340. H'GEOCOM
  341. LOADFLAG
  342. SCRCOLOR
  343. MENUNUM
  344. BACKWORD
  345. P'BACKBYTE
  346. R'MOUSEX
  347. MOUSEY
  348. DIRENTRY
  349. DRTYPE
  350. ICONFLAG
  351. FAULT
  352. MOUSEDATA
  353. BOOTFLAG
  354. NATION
  355. SYSFLAG
  356. SYSREG
  357. $APPREG
  358. $KEYDATA
  359. STRINGX
  360. STRINGY
  361.