home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 28 / 64er_Magazin_Sonderheft_28_19xx_Markt__Technik_de_Side_B.d64 / gt.menues < prev    next >
Text File  |  2022-10-26  |  11KB  |  617 lines
  1. ;
  2. ; **** Hauptmenue ****
  3. ;
  4. :hauptm
  5. initmenu 0,13,0,254,8,visible,horizontal
  6. mpoint mtext1,submenu,sub1
  7. mpoint mtext2,submenu,sub2
  8. mpoint mtext3,submenu,sub3
  9. mpoint mtext4,sprung,leer1
  10. mpoint mtext5,sprung,leer1
  11. mpoint mtext6,submenu,sub6
  12. mpoint mtext7,submenu,sub7
  13. mpoint mtext8,sprung,leer1
  14. ;
  15. ; *** Menue 1. geos ***
  16. ;
  17. :sub1
  18. initmenu 15,000,0,90,000,closing,vertikal
  19. mpoint mtext11,sprung,rt11
  20. mpoint mtext12,sprung,rt12
  21. mpoint prg1,sprung,rt13    ;bis zu
  22. mpoint prg2,sprung,rt14    ;8 Hilfs-
  23. mpoint prg3,sprung,rt15    ;Programme
  24. mpoint prg4,sprung,rt16
  25. mpoint prg5,sprung,rt17
  26. mpoint prg6,sprung,rt18
  27. mpoint prg7,sprung,rt19
  28. mpoint prg8,sprung,rt1a
  29. ;
  30. ; *** Menue 2. Parameter ***
  31. ;
  32. :sub2
  33. initmenu 15,100,28,75,6,closing,vertikal
  34. mpoint mtext21,sprung,rt21
  35. mpoint mtext22,submenu,sub22
  36. mpoint mtext23,submenu,sub23
  37. mpoint mtext25,submenu,sub25
  38. mpoint mtext26,submenu,sub26
  39. mpoint mtext27,sprung,rt27
  40. ;
  41. ; ** Menue 2.2. RS-232 **
  42. ;
  43. :sub22
  44. initmenu 15,86,76,131,5,closing,vertikal
  45. mpoint mtext221,submenu,sub221
  46. mpoint mtext222,submenu,sub222
  47. mpoint mtext223,submenu,sub223
  48. mpoint mtext224,submenu,sub224
  49. mpoint mtext225,submenu,sub225
  50. ;
  51. ; * Menue 2.2.1. Baudrate *
  52. ;
  53. :sub221
  54. initmenu 15,100,132,182,6,closing,vertikal
  55. mpoint mtext2211,sprung,rt2211
  56. mpoint mtext2212,sprung,rt2212
  57. mpoint mtext2213,sprung,rt2213
  58. mpoint mtext2214,sprung,rt2214
  59. mpoint mtext2215,sprung,rt2215
  60. mpoint mtext2216,sprung,rt2216
  61. ;
  62. ; * Menue 2.2.2. Datenbits *
  63. ;
  64. :sub222
  65. initmenu 15,72,132,157,4,closing,vertikal
  66. mpoint mtext2221,sprung,rt2221
  67. mpoint mtext2222,sprung,rt2222
  68. mpoint mtext2223,sprung,rt2223
  69. mpoint mtext2224,sprung,rt2224
  70. ;
  71. ; * Menue 2.2.3. Paritaet *
  72. ;
  73. :sub223
  74. initmenu 15,86,132,237,5,closing,vertikal
  75. mpoint mtext2231,sprung,rt2231
  76. mpoint mtext2232,sprung,rt2232
  77. mpoint mtext2233,sprung,rt2233
  78. mpoint mtext2234,sprung,rt2234
  79. mpoint mtext2235,sprung,rt2235
  80. ;
  81. ; * Menue 2.2.4 Stopbits *
  82. ;
  83. :sub224
  84. initmenu 15,44,132,172,2,closing,vertikal
  85. mpoint mtext2241,sprung,rt2241
  86. mpoint mtext2242,sprung,rt2242
  87. ;
  88. ; * Menue 2.2.5 Duplex *
  89. ;
  90. :sub225
  91. initmenu 15,44,132,172,2,closing,vertikal
  92. mpoint mtext2251,sprung,rt2251
  93. mpoint mtext2252,sprung,rt2252
  94. ;
  95. ; ** Menue 2.3 Echo **
  96. ;
  97. :sub23
  98. initmenu 15,44,76,111,2,closing,vertikal
  99. mpoint mtext231,sprung,rt231
  100. mpoint mtext232,sprung,rt232
  101. ;
  102. ; ** Menue 2.5. Senden **
  103. ;
  104. :sub25
  105. initmenu 15,58,76,166,3,closing,vertikal
  106. mpoint mtext251,submenu,sub251
  107. mpoint mtext252,submenu,sub252
  108. mpoint mtext253,submenu,sub253
  109. ;
  110. ; * Menue 2.5.1. Tempo *
  111. ;
  112. :sub251
  113. initmenu 15,44,167,222,2,closing,vertikal
  114. mpoint mtext2511,sprung,rt2511
  115. mpoint mtext2512,sprung,rt2512
  116. ;
  117. ; * Menue 2.5.2. CR unterdruecken *
  118. ;
  119. :sub252
  120. initmenu 15,44,167,207,2,closing,vertikal
  121. mpoint mtext2521,sprung,rt2521
  122. mpoint mtext2522,sprung,rt2522
  123. ;
  124. ; * Menue 2.5.3. konvertieren *
  125. ;
  126. :sub253
  127. initmenu 15,44,167,207,2,closing,vertikal
  128. mpoint mtext2531,sprung,rt2531
  129. mpoint mtext2532,sprung,rt2532
  130. ;
  131. ; ** Menue 2.6. Drucker **
  132. ;
  133. :sub26
  134. initmenu 15,72,76,151,4,closing,vertikal
  135. mpoint mtext261,submenu,sub261
  136. mpoint mtext262,submenu,sub262
  137. mpoint mtext263,submenu,sub263
  138. mpoint mtext264,submenu,sub264
  139. ;
  140. ; * Menue 2.6.1. Geraeteadr. *
  141. ;
  142. :sub261
  143. initmenu 15,44,152,197,2,closing,vertikal
  144. mpoint mtext2611,sprung,rt2611
  145. mpoint mtext2612,sprung,rt2612
  146. ;
  147. ; * Menue 2.6.2. Sekundaeradr. *
  148. ;
  149. :sub262
  150. initmenu 15,58,152,177,3,closing,vertikal
  151. mpoint mtext2621,sprung,rt2621
  152. mpoint mtext2622,sprung,rt2622
  153. mpoint mtext2623,sprung,rt2623
  154. ;
  155. ; * Menue 2.6.3. Ascii *
  156. ;
  157. :sub263
  158. initmenu 15,44,152,192,2,closing,vertikal
  159. mpoint mtext2631,sprung,rt2631
  160. mpoint mtext2632,sprung,rt2632
  161. ;
  162. ; * Menue 2.6.4. Linefeed *
  163. ;
  164. :sub264
  165. initmenu 15,44,152,192,2,closing,vertikal
  166. mpoint mtext2641,sprung,rt2641
  167. mpoint mtext2642,sprung,rt2642
  168. ;
  169. ; *** Menue 3. Schrift ***
  170. ;
  171. :sub3
  172. initmenu 15,44,78,148,2,closing,vertikal
  173. mpoint mtext31,sprung,rt31
  174. mpoint mtext32,sprung,rt32
  175. ;
  176. ; *** Menue 6. Files ***
  177. ;
  178. :sub6
  179. initmenu 15,44,138,193,2,closing,vertikal
  180. mpoint mtext61,submenu,sub61
  181. mpoint mtext62,submenu,sub62
  182. ;
  183. ; ** Menue 6.1. Senden **
  184. ;
  185. :sub61
  186. initmenu 15,44,194,245,2,closing,vertikal
  187. mpoint mtext611,submenu,sub611
  188. mpoint mtext612,sprung,leer2
  189. ;
  190. ; * Menue 6.1.1. Ascii *
  191. ;
  192. :sub611
  193. initmenu 15,44,245,300,2,closing,vertikal
  194. mpoint mtext6111,sprung,rt6111
  195. mpoint mtext6112,sprung,rt6112
  196. ;
  197. ; ** Menue 6.2. Empfangen **
  198. ;
  199. :sub62
  200. initmenu 15,44,194,249,2,closing,vertikal
  201. mpoint mtext621,sprung,rt621
  202. mpoint mtext622,sprung,leer2
  203. ;
  204. ; *** Menue 7. Puffer ***
  205. ;
  206. :sub7
  207. initmenu 15,100,193,253,6,closing,vertikal
  208. mpoint mtext71,submenu,sub71
  209. mpoint mtext72,sprung,rt72
  210. mpoint mtext73,sprung,rt73
  211. mpoint mtext74,sprung,rt74
  212. mpoint mtext75,sprung,rt75
  213. mpoint mtext76,sprung,rt76
  214. ;
  215. ; ** Menue 7.1. oeffnen **
  216. ;
  217. :sub71
  218. initmenu 15,44,254,300,2,closing,vertikal
  219. mpoint mtext711,sprung,rt711
  220. mpoint mtext712,sprung,rt712
  221. ;
  222. ; ***********************
  223. ; *** Tabellen, Icons ***
  224. ;
  225. :pufferic
  226. icontab 1,0,0
  227. icon pufferbm,256,2,16,11,pufferrt
  228. ;
  229. :prgic
  230. icon prgbm,0,0,24,13,prgrt
  231. ;
  232. :seqic
  233. icon seqbm,0,0,24,13,seqrt
  234. ;
  235. :usric
  236. icon usrbm,0,0,24,13,usrrt
  237. ;
  238. ; *****************************
  239. ; *** Tabellen, Dialogboxen ***
  240. ;
  241. ; ** geoTerm Info **
  242. :infobox
  243. stddialbox 1
  244. aussrueck
  245. textaus 16,16,infotext
  246. b null
  247. ; ** Disk mit Quellfile einlegen **
  248. ;
  249. :quelldisk
  250. stddialbox 1
  251. textaus 16,16,quelldtxt
  252. feld ok,8,72
  253. feld cancel,136,72
  254. b null
  255. ; ** Zieldisk einlegen **
  256. ;
  257. :zieldisk
  258. stddialbox 1
  259. textaus 16,16,zieldtxt
  260. feld ok,8,72
  261. feld cancel,136,72
  262. b null
  263. ; ** Disk mit geoTerm einlegen **
  264. ;
  265. :urdisk
  266. stddialbox 1
  267. textaus 16,16,urdtext
  268. feld ok,136,72
  269. b null
  270. ; ** File auswaehlen **
  271. ;
  272. :choosefile
  273. stddialbox 1
  274. getfiles 2,2
  275. feld ok,136,8
  276. feld cancel,136,72
  277. b null
  278. ; ** Filename eingeben **
  279. ;
  280. :filename
  281. stddialbox 1
  282. textaus 16,16,nametext
  283. textein 16,35,r5,16
  284. feld cancel,136,72
  285. b null
  286. ; ** Filetyp auswaehlen **
  287. ;
  288. :filetyp
  289. stddialbox 1
  290. textaus 16,16,typtxt
  291. usricon 35,24,prgic
  292. textaus 65,31,prgtxt
  293. usricon 35,48,seqic
  294. textaus 65,55,seqtxt
  295. usricon 35,72,usric
  296. textaus 65,79,usrtxt
  297. b null
  298. ; ** freien Pufferplatz anzeigen **
  299. ;
  300. :showfree
  301. stddialbox 1
  302. usrrout freerechn
  303. textaus 16,16,freetext
  304. feld ok,136,72
  305. b null
  306. ; ** X-Modem-Empfang abgebrochen **
  307. ;
  308. :empfabgebr
  309. stddialbox 1
  310. textaus 16,16,empfabtxt
  311. feld ok,136,72
  312. b null
  313. ;
  314. ; **************************
  315. ; *** Tabellen, sonstige ***
  316. ;
  317. :lahm12
  318. w $c2d1
  319. b 6
  320. b $ea,$ea,$ea,$ea,$ea,$ea
  321. w 0
  322. :reset12
  323. w $c2d1
  324. b 6
  325. b $20,$30,$f9,$20,$ed,$f9
  326. w 0
  327. :lahm13
  328. w $c0e8
  329. b 3
  330. b $ea,$ea,$ea
  331. w 0
  332. :reset13
  333. w $c0e8
  334. b 3
  335. b $20,$44,$fd
  336. w 0
  337. ;
  338. ; ****************************
  339. ; *** Komprimierte Bitmaps ***
  340. ;
  341. :pufferbm
  342. b $96,$ff,$fe
  343. b $80,$03,$bc,$63,$92,$83,$92,$c3
  344. b $94,$83,$90,$83,$b8,$8b,$80,$03
  345. b $ff,$ff,$7f,$ff
  346. ;
  347. :prgbm
  348. b $a7,$ff,$ff
  349. b $fe,$80,$00,$03,$9e,$78,$e3,$9b
  350. b $6d,$b3,$9b,$6d,$83,$9b,$6d,$83
  351. b $9e,$79,$f3,$98,$79,$b3,$98,$6c
  352. b $f3,$80,$00,$03,$80,$00,$03,$ff
  353. b $ff,$ff,$7f,$ff,$ff
  354. ;
  355. :seqbm
  356. b $a7,$ff,$ff
  357. b $fe,$80,$00,$03,$8f,$79,$e3,$98
  358. b $63,$33,$8c,$63,$33,$86,$7b,$33
  359. b $83,$63,$33,$83,$63,$33,$9e,$79
  360. b $e3,$80,$00,$63,$80,$00,$33,$ff
  361. b $ff,$ff,$7f,$ff,$ff
  362. ;
  363. :usrbm
  364. b $a7,$ff,$ff
  365. b $fe,$80,$00,$03,$9b,$3d,$e3,$9b
  366. b $61,$b3,$9b,$31,$b3,$9b,$19,$b3
  367. b $9b,$0d,$e3,$9b,$0d,$e3,$8f,$79
  368. b $b3,$80,$00,$03,$80,$00,$03,$ff
  369. b $ff,$ff,$7f,$ff,$ff
  370. ;
  371. ; *********************
  372. ; *** Texte, Menues ***
  373. ;
  374. :texte
  375. :mtext1
  376. b "geos",null
  377.  ;
  378.  :mtext11
  379.  b "geoTerm Info",null
  380.  :mtext12
  381.  b "deskTop",null
  382.  ;
  383. :mtext2
  384. b "Parameter",null
  385.  ;
  386.  ;
  387.  :mtext21
  388.  b "laden",null
  389.  ;
  390.  :mtext22
  391.  b "RS-232",null
  392.   ;
  393.   :mtext221
  394.   b "Baudrate",null
  395.    :mtext2211
  396.    b "50      ",null
  397.    :mtext2212
  398.    b "75      ",null
  399.    :mtext2213
  400.    b "150     ",null
  401.    :mtext2214
  402.    b "300     ",null
  403.    :mtext2215
  404.    b "600     ",null
  405.    :mtext2216
  406.    b "(1200)  ",null
  407.   ;
  408.   :mtext222
  409.   b "Datenbits",null
  410.    :mtext2221
  411.    b "5  ",null
  412.    :mtext2222
  413.    b "6  ",null
  414.    :mtext2223
  415.    b "7  ",null
  416.    :mtext2224
  417.    b "8  ",null
  418.   ;
  419.   :mtext223
  420.   b "Paritaet",null
  421.    :mtext2231
  422.    b "keine (no)         ",null
  423.    :mtext2232
  424.    b "gerade (even)      ",null
  425.    :mtext2233
  426.    b "ungerade (odd)     ",null
  427.    :mtext2234
  428.    b "gesetzt (mark)     ",null
  429.    :mtext2235
  430.    b "geloescht (space)  ",null
  431.   ;
  432.   :mtext224
  433.   b "Stopbits",null
  434.    :mtext2241
  435.    b "eins  ",null
  436.    :mtext2242
  437.    b "zwei  ",null
  438.   ;
  439.   :mtext225
  440.   b "Duplex",null
  441.    :mtext2251
  442.    b "Voll  ",null
  443.    :mtext2252
  444.    b "Halb  ",null
  445.  ;
  446.  :mtext23
  447.  b "Echo",null
  448.   :mtext231
  449.   b "an   ",null
  450.   :mtext232
  451.   b "aus  ",null
  452.  ;
  453.  :mtext25
  454.  b "senden",null
  455.   :mtext251
  456.   b "Tempo",null
  457.    :mtext2511
  458.    b "schnell  ",null
  459.    :mtext2512
  460.    b "langsam  ",null
  461.   :mtext252
  462.   b "CR unterdruecken",null
  463.    :mtext2521
  464.    b "ja    ",null
  465.    :mtext2522
  466.    b "nein  ",null
  467.   :mtext253
  468.   b "konvertieren",null
  469.    :mtext2531
  470.    b "ja    ",null
  471.    :mtext2532
  472.    b "nein  ",null
  473.  ;
  474.  :mtext26
  475.  b "Drucker",null
  476.   :mtext261
  477.   b "Geraeteadr.",null
  478.    :mtext2611
  479.    b "vier   ",null
  480.    :mtext2612
  481.    b "fuenf  ",null
  482.   :mtext262
  483.   b "Sekundaeradr.",null
  484.    :mtext2621
  485.    b "0  ",null
  486.    :mtext2622
  487.    b "1  ",null
  488.    :mtext2623
  489.    b "7  ",null
  490.   :mtext263
  491.   b "Ascii",null
  492.    :mtext2631
  493.    b "ja    ",null
  494.    :mtext2632
  495.    b "nein  ",null
  496.   :mtext264
  497.   b "Linefeed",null
  498.    :mtext2641
  499.    b "ja    ",null
  500.    :mtext2642
  501.    b "nein  ",null
  502.  :mtext27
  503.  b "speichern",null
  504. ;
  505. ;
  506. :mtext3
  507. b "Schrift",null
  508.  :mtext31
  509.  b "BSW",null
  510.  :mtext32
  511.  b "University 6",null
  512. ;
  513. ;
  514. :mtext4
  515. b "Uhr",null
  516. ;
  517. ;
  518. :mtext5
  519. b "Tasten",null
  520. ;
  521. ;
  522. :mtext6
  523. b "Files",null
  524.  ;
  525.  :mtext61
  526.  b "senden",null
  527.   :mtext611
  528.   b "Ascii",null
  529.    :mtext6111
  530.    b "Textscrap",null
  531.    :mtext6112
  532.    b "Seq.-File",null
  533.   :mtext612
  534.   b "X-Modem",null
  535.  :mtext62
  536.  b "empfangen",null
  537.   :mtext621
  538.   b 128,"64-File",null
  539.   :mtext622
  540.   b "Geos-File",null
  541. ;
  542. :mtext7
  543. b "Puffer",null
  544.  :mtext71
  545.  b "oeffnen",null
  546.   :mtext711
  547.   b "loeschen",null
  548.   :mtext712
  549.   b "erweitern",null
  550.  :mtext72
  551.  b "schliessen",null
  552.  :mtext73
  553.  b "Restplatz",null
  554.  :mtext74
  555.  b "anzeigen",null
  556.  :mtext75
  557.  b "drucken",null
  558.  :mtext76
  559.  b "speichern",null
  560. ;
  561. :mtext8
  562. b "Telnr.",null
  563. ;
  564. ; **************************
  565. ; *** Texte, Dialogboxen ***
  566. ;
  567. :infotext
  568. b italicon,boldon,"geoTerm V1.1,",cr,cr
  569. gotox 80
  570. b plaintext,boldon,"geschrieben von:"
  571. gotox 175
  572. b plaintext,outline,"Carsten",cr
  573. gotox 175
  574. b "Clasohm",cr,cr,cr
  575. gotox 80
  576. b plaintext,"Copyright 1988, Markt&Technik-Verlag",null
  577. ;
  578. :quelldtxt
  579. b boldon,"Bitte die Disk mit dem ge-",cr,cr
  580. gotox 80
  581. b "wuenschten File einlegen.",null
  582. ;
  583. :zieldtxt
  584. b boldon,"Bitte die Disk einlegen, auf",cr,cr
  585. gotox 80
  586. b "die das File geschrieben",cr,cr
  587. gotox 80
  588. b "werden soll.",null
  589. ;
  590. :urdtext
  591. b boldon,"Bitte Diskette einlegen:",cr,cr
  592. gotox 80
  593. :urname
  594. b "                ",null
  595. ;
  596. :nametext
  597. b boldon,"Bitte den Filenamen eingeben:",null
  598. ;
  599. :typtxt
  600. b boldon,"Bitte Filetyp waehlen:",null
  601. ;
  602. :prgtxt
  603. b boldon,"programm",null
  604. :seqtxt
  605. b boldon,"sequentiell",null
  606. :usrtxt
  607. b boldon,"user",null
  608. ;
  609. :freetext
  610. b boldon,"Freie Bytes im Puffer:",null
  611. ;
  612. :empfabtxt
  613. b boldon,"Empfangen ueber X-Modem",cr,cr
  614. gotox 80
  615. b "wegen Fehlers abgebrochen.",null
  616. ;
  617.