home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh28b.d64
/
gt.menues
< prev
next >
Wrap
Text File
|
1995-03-30
|
11KB
|
617 lines
;
; **** ╚AUPTMENUE ****
;
:HAUPTM
INITMENU 0,13,0,254,8,VISIBLE,HORIZONTAL
MPOINT MTEXT1,SUBMENU,SUB1
MPOINT MTEXT2,SUBMENU,SUB2
MPOINT MTEXT3,SUBMENU,SUB3
MPOINT MTEXT4,SPRUNG,LEER1
MPOINT MTEXT5,SPRUNG,LEER1
MPOINT MTEXT6,SUBMENU,SUB6
MPOINT MTEXT7,SUBMENU,SUB7
MPOINT MTEXT8,SPRUNG,LEER1
;
; *** ═ENUE 1. GEOS ***
;
:SUB1
INITMENU 15,000,0,90,000,CLOSING,VERTIKAL
MPOINT MTEXT11,SPRUNG,RT11
MPOINT MTEXT12,SPRUNG,RT12
MPOINT PRG1,SPRUNG,RT13 ;BIS ZU
MPOINT PRG2,SPRUNG,RT14 ;8 ╚ILFS-
MPOINT PRG3,SPRUNG,RT15 ;╨ROGRAMME
MPOINT PRG4,SPRUNG,RT16
MPOINT PRG5,SPRUNG,RT17
MPOINT PRG6,SPRUNG,RT18
MPOINT PRG7,SPRUNG,RT19
MPOINT PRG8,SPRUNG,RT1A
;
; *** ═ENUE 2. ╨ARAMETER ***
;
:SUB2
INITMENU 15,100,28,75,6,CLOSING,VERTIKAL
MPOINT MTEXT21,SPRUNG,RT21
MPOINT MTEXT22,SUBMENU,SUB22
MPOINT MTEXT23,SUBMENU,SUB23
MPOINT MTEXT25,SUBMENU,SUB25
MPOINT MTEXT26,SUBMENU,SUB26
MPOINT MTEXT27,SPRUNG,RT27
;
; ** ═ENUE 2.2. ╥╙-232 **
;
:SUB22
INITMENU 15,86,76,131,5,CLOSING,VERTIKAL
MPOINT MTEXT221,SUBMENU,SUB221
MPOINT MTEXT222,SUBMENU,SUB222
MPOINT MTEXT223,SUBMENU,SUB223
MPOINT MTEXT224,SUBMENU,SUB224
MPOINT MTEXT225,SUBMENU,SUB225
;
; * ═ENUE 2.2.1. ┬AUDRATE *
;
:SUB221
INITMENU 15,100,132,182,6,CLOSING,VERTIKAL
MPOINT MTEXT2211,SPRUNG,RT2211
MPOINT MTEXT2212,SPRUNG,RT2212
MPOINT MTEXT2213,SPRUNG,RT2213
MPOINT MTEXT2214,SPRUNG,RT2214
MPOINT MTEXT2215,SPRUNG,RT2215
MPOINT MTEXT2216,SPRUNG,RT2216
;
; * ═ENUE 2.2.2. ─ATENBITS *
;
:SUB222
INITMENU 15,72,132,157,4,CLOSING,VERTIKAL
MPOINT MTEXT2221,SPRUNG,RT2221
MPOINT MTEXT2222,SPRUNG,RT2222
MPOINT MTEXT2223,SPRUNG,RT2223
MPOINT MTEXT2224,SPRUNG,RT2224
;
; * ═ENUE 2.2.3. ╨ARITAET *
;
:SUB223
INITMENU 15,86,132,237,5,CLOSING,VERTIKAL
MPOINT MTEXT2231,SPRUNG,RT2231
MPOINT MTEXT2232,SPRUNG,RT2232
MPOINT MTEXT2233,SPRUNG,RT2233
MPOINT MTEXT2234,SPRUNG,RT2234
MPOINT MTEXT2235,SPRUNG,RT2235
;
; * ═ENUE 2.2.4 ╙TOPBITS *
;
:SUB224
INITMENU 15,44,132,172,2,CLOSING,VERTIKAL
MPOINT MTEXT2241,SPRUNG,RT2241
MPOINT MTEXT2242,SPRUNG,RT2242
;
; * ═ENUE 2.2.5 ─UPLEX *
;
:SUB225
INITMENU 15,44,132,172,2,CLOSING,VERTIKAL
MPOINT MTEXT2251,SPRUNG,RT2251
MPOINT MTEXT2252,SPRUNG,RT2252
;
; ** ═ENUE 2.3 ┼CHO **
;
:SUB23
INITMENU 15,44,76,111,2,CLOSING,VERTIKAL
MPOINT MTEXT231,SPRUNG,RT231
MPOINT MTEXT232,SPRUNG,RT232
;
; ** ═ENUE 2.5. ╙ENDEN **
;
:SUB25
INITMENU 15,58,76,166,3,CLOSING,VERTIKAL
MPOINT MTEXT251,SUBMENU,SUB251
MPOINT MTEXT252,SUBMENU,SUB252
MPOINT MTEXT253,SUBMENU,SUB253
;
; * ═ENUE 2.5.1. ╘EMPO *
;
:SUB251
INITMENU 15,44,167,222,2,CLOSING,VERTIKAL
MPOINT MTEXT2511,SPRUNG,RT2511
MPOINT MTEXT2512,SPRUNG,RT2512
;
; * ═ENUE 2.5.2. ├╥ UNTERDRUECKEN *
;
:SUB252
INITMENU 15,44,167,207,2,CLOSING,VERTIKAL
MPOINT MTEXT2521,SPRUNG,RT2521
MPOINT MTEXT2522,SPRUNG,RT2522
;
; * ═ENUE 2.5.3. KONVERTIEREN *
;
:SUB253
INITMENU 15,44,167,207,2,CLOSING,VERTIKAL
MPOINT MTEXT2531,SPRUNG,RT2531
MPOINT MTEXT2532,SPRUNG,RT2532
;
; ** ═ENUE 2.6. ─RUCKER **
;
:SUB26
INITMENU 15,72,76,151,4,CLOSING,VERTIKAL
MPOINT MTEXT261,SUBMENU,SUB261
MPOINT MTEXT262,SUBMENU,SUB262
MPOINT MTEXT263,SUBMENU,SUB263
MPOINT MTEXT264,SUBMENU,SUB264
;
; * ═ENUE 2.6.1. ╟ERAETEADR. *
;
:SUB261
INITMENU 15,44,152,197,2,CLOSING,VERTIKAL
MPOINT MTEXT2611,SPRUNG,RT2611
MPOINT MTEXT2612,SPRUNG,RT2612
;
; * ═ENUE 2.6.2. ╙EKUNDAERADR. *
;
:SUB262
INITMENU 15,58,152,177,3,CLOSING,VERTIKAL
MPOINT MTEXT2621,SPRUNG,RT2621
MPOINT MTEXT2622,SPRUNG,RT2622
MPOINT MTEXT2623,SPRUNG,RT2623
;
; * ═ENUE 2.6.3. ┴SCII *
;
:SUB263
INITMENU 15,44,152,192,2,CLOSING,VERTIKAL
MPOINT MTEXT2631,SPRUNG,RT2631
MPOINT MTEXT2632,SPRUNG,RT2632
;
; * ═ENUE 2.6.4. ╠INEFEED *
;
:SUB264
INITMENU 15,44,152,192,2,CLOSING,VERTIKAL
MPOINT MTEXT2641,SPRUNG,RT2641
MPOINT MTEXT2642,SPRUNG,RT2642
;
; *** ═ENUE 3. ╙CHRIFT ***
;
:SUB3
INITMENU 15,44,78,148,2,CLOSING,VERTIKAL
MPOINT MTEXT31,SPRUNG,RT31
MPOINT MTEXT32,SPRUNG,RT32
;
; *** ═ENUE 6. ╞ILES ***
;
:SUB6
INITMENU 15,44,138,193,2,CLOSING,VERTIKAL
MPOINT MTEXT61,SUBMENU,SUB61
MPOINT MTEXT62,SUBMENU,SUB62
;
; ** ═ENUE 6.1. ╙ENDEN **
;
:SUB61
INITMENU 15,44,194,245,2,CLOSING,VERTIKAL
MPOINT MTEXT611,SUBMENU,SUB611
MPOINT MTEXT612,SPRUNG,LEER2
;
; * ═ENUE 6.1.1. ┴SCII *
;
:SUB611
INITMENU 15,44,245,300,2,CLOSING,VERTIKAL
MPOINT MTEXT6111,SPRUNG,RT6111
MPOINT MTEXT6112,SPRUNG,RT6112
;
; ** ═ENUE 6.2. ┼MPFANGEN **
;
:SUB62
INITMENU 15,44,194,249,2,CLOSING,VERTIKAL
MPOINT MTEXT621,SPRUNG,RT621
MPOINT MTEXT622,SPRUNG,LEER2
;
; *** ═ENUE 7. ╨UFFER ***
;
:SUB7
INITMENU 15,100,193,253,6,CLOSING,VERTIKAL
MPOINT MTEXT71,SUBMENU,SUB71
MPOINT MTEXT72,SPRUNG,RT72
MPOINT MTEXT73,SPRUNG,RT73
MPOINT MTEXT74,SPRUNG,RT74
MPOINT MTEXT75,SPRUNG,RT75
MPOINT MTEXT76,SPRUNG,RT76
;
; ** ═ENUE 7.1. OEFFNEN **
;
:SUB71
INITMENU 15,44,254,300,2,CLOSING,VERTIKAL
MPOINT MTEXT711,SPRUNG,RT711
MPOINT MTEXT712,SPRUNG,RT712
;
; ***********************
; *** ╘ABELLEN, ╔CONS ***
;
:PUFFERIC
ICONTAB 1,0,0
ICON PUFFERBM,256,2,16,11,PUFFERRT
;
:PRGIC
ICON PRGBM,0,0,24,13,PRGRT
;
:SEQIC
ICON SEQBM,0,0,24,13,SEQRT
;
:USRIC
ICON USRBM,0,0,24,13,USRRT
;
; *****************************
; *** ╘ABELLEN, ─IALOGBOXEN ***
;
; ** GEO╘ERM ╔NFO **
:INFOBOX
STDDIALBOX 1
AUSSRUECK
TEXTAUS 16,16,INFOTEXT
B NULL
; ** ─ISK MIT ╤UELLFILE EINLEGEN **
;
:QUELLDISK
STDDIALBOX 1
TEXTAUS 16,16,QUELLDTXT
FELD OK,8,72
FELD CANCEL,136,72
B NULL
; ** ┌IELDISK EINLEGEN **
;
:ZIELDISK
STDDIALBOX 1
TEXTAUS 16,16,ZIELDTXT
FELD OK,8,72
FELD CANCEL,136,72
B NULL
; ** ─ISK MIT GEO╘ERM EINLEGEN **
;
:URDISK
STDDIALBOX 1
TEXTAUS 16,16,URDTEXT
FELD OK,136,72
B NULL
; ** ╞ILE AUSWAEHLEN **
;
:CHOOSEFILE
STDDIALBOX 1
GETFILES 2,2
FELD OK,136,8
FELD CANCEL,136,72
B NULL
; ** ╞ILENAME EINGEBEN **
;
:FILENAME
STDDIALBOX 1
TEXTAUS 16,16,NAMETEXT
TEXTEIN 16,35,R5,16
FELD CANCEL,136,72
B NULL
; ** ╞ILETYP AUSWAEHLEN **
;
:FILETYP
STDDIALBOX 1
TEXTAUS 16,16,TYPTXT
USRICON 35,24,PRGIC
TEXTAUS 65,31,PRGTXT
USRICON 35,48,SEQIC
TEXTAUS 65,55,SEQTXT
USRICON 35,72,USRIC
TEXTAUS 65,79,USRTXT
B NULL
; ** FREIEN ╨UFFERPLATZ ANZEIGEN **
;
:SHOWFREE
STDDIALBOX 1
USRROUT FREERECHN
TEXTAUS 16,16,FREETEXT
FELD OK,136,72
B NULL
; ** ╪-═ODEM-┼MPFANG ABGEBROCHEN **
;
:EMPFABGEBR
STDDIALBOX 1
TEXTAUS 16,16,EMPFABTXT
FELD OK,136,72
B NULL
;
; **************************
; *** ╘ABELLEN, SONSTIGE ***
;
:LAHM12
W $C2D1
B 6
B $EA,$EA,$EA,$EA,$EA,$EA
W 0
:RESET12
W $C2D1
B 6
B $20,$30,$F9,$20,$ED,$F9
W 0
:LAHM13
W $C0E8
B 3
B $EA,$EA,$EA
W 0
:RESET13
W $C0E8
B 3
B $20,$44,$FD
W 0
;
; ****************************
; *** ╦OMPRIMIERTE ┬ITMAPS ***
;
:PUFFERBM
B $96,$FF,$FE
B $80,$03,$BC,$63,$92,$83,$92,$C3
B $94,$83,$90,$83,$B8,$8B,$80,$03
B $FF,$FF,$7F,$FF
;
:PRGBM
B $A7,$FF,$FF
B $FE,$80,$00,$03,$9E,$78,$E3,$9B
B $6D,$B3,$9B,$6D,$83,$9B,$6D,$83
B $9E,$79,$F3,$98,$79,$B3,$98,$6C
B $F3,$80,$00,$03,$80,$00,$03,$FF
B $FF,$FF,$7F,$FF,$FF
;
:SEQBM
B $A7,$FF,$FF
B $FE,$80,$00,$03,$8F,$79,$E3,$98
B $63,$33,$8C,$63,$33,$86,$7B,$33
B $83,$63,$33,$83,$63,$33,$9E,$79
B $E3,$80,$00,$63,$80,$00,$33,$FF
B $FF,$FF,$7F,$FF,$FF
;
:USRBM
B $A7,$FF,$FF
B $FE,$80,$00,$03,$9B,$3D,$E3,$9B
B $61,$B3,$9B,$31,$B3,$9B,$19,$B3
B $9B,$0D,$E3,$9B,$0D,$E3,$8F,$79
B $B3,$80,$00,$03,$80,$00,$03,$FF
B $FF,$FF,$7F,$FF,$FF
;
; *********************
; *** ╘EXTE, ═ENUES ***
;
:TEXTE
:MTEXT1
B "GEOS",NULL
;
:MTEXT11
B "GEO╘ERM ╔NFO",NULL
:MTEXT12
B "DESK╘OP",NULL
;
:MTEXT2
B "╨ARAMETER",NULL
;
;
:MTEXT21
B "LADEN",NULL
;
:MTEXT22
B "╥╙-232",NULL
;
:MTEXT221
B "┬AUDRATE",NULL
:MTEXT2211
B "50 ",NULL
:MTEXT2212
B "75 ",NULL
:MTEXT2213
B "150 ",NULL
:MTEXT2214
B "300 ",NULL
:MTEXT2215
B "600 ",NULL
:MTEXT2216
B "(1200) ",NULL
;
:MTEXT222
B "─ATENBITS",NULL
:MTEXT2221
B "5 ",NULL
:MTEXT2222
B "6 ",NULL
:MTEXT2223
B "7 ",NULL
:MTEXT2224
B "8 ",NULL
;
:MTEXT223
B "╨ARITAET",NULL
:MTEXT2231
B "KEINE (NO) ",NULL
:MTEXT2232
B "GERADE (EVEN) ",NULL
:MTEXT2233
B "UNGERADE (ODD) ",NULL
:MTEXT2234
B "GESETZT (MARK) ",NULL
:MTEXT2235
B "GELOESCHT (SPACE) ",NULL
;
:MTEXT224
B "╙TOPBITS",NULL
:MTEXT2241
B "EINS ",NULL
:MTEXT2242
B "ZWEI ",NULL
;
:MTEXT225
B "─UPLEX",NULL
:MTEXT2251
B "╓OLL ",NULL
:MTEXT2252
B "╚ALB ",NULL
;
:MTEXT23
B "┼CHO",NULL
:MTEXT231
B "AN ",NULL
:MTEXT232
B "AUS ",NULL
;
:MTEXT25
B "SENDEN",NULL
:MTEXT251
B "╘EMPO",NULL
:MTEXT2511
B "SCHNELL ",NULL
:MTEXT2512
B "LANGSAM ",NULL
:MTEXT252
B "├╥ UNTERDRUECKEN",NULL
:MTEXT2521
B "JA ",NULL
:MTEXT2522
B "NEIN ",NULL
:MTEXT253
B "KONVERTIEREN",NULL
:MTEXT2531
B "JA ",NULL
:MTEXT2532
B "NEIN ",NULL
;
:MTEXT26
B "─RUCKER",NULL
:MTEXT261
B "╟ERAETEADR.",NULL
:MTEXT2611
B "VIER ",NULL
:MTEXT2612
B "FUENF ",NULL
:MTEXT262
B "╙EKUNDAERADR.",NULL
:MTEXT2621
B "0 ",NULL
:MTEXT2622
B "1 ",NULL
:MTEXT2623
B "7 ",NULL
:MTEXT263
B "┴SCII",NULL
:MTEXT2631
B "JA ",NULL
:MTEXT2632
B "NEIN ",NULL
:MTEXT264
B "╠INEFEED",NULL
:MTEXT2641
B "JA ",NULL
:MTEXT2642
B "NEIN ",NULL
:MTEXT27
B "SPEICHERN",NULL
;
;
:MTEXT3
B "╙CHRIFT",NULL
:MTEXT31
B "┬╙╫",NULL
:MTEXT32
B "╒NIVERSITY 6",NULL
;
;
:MTEXT4
B "╒HR",NULL
;
;
:MTEXT5
B "╘ASTEN",NULL
;
;
:MTEXT6
B "╞ILES",NULL
;
:MTEXT61
B "SENDEN",NULL
:MTEXT611
B "┴SCII",NULL
:MTEXT6111
B "╘EXTSCRAP",NULL
:MTEXT6112
B "╙EQ.-╞ILE",NULL
:MTEXT612
B "╪-═ODEM",NULL
:MTEXT62
B "EMPFANGEN",NULL
:MTEXT621
B 128,"64-╞ILE",NULL
:MTEXT622
B "╟EOS-╞ILE",NULL
;
:MTEXT7
B "╨UFFER",NULL
:MTEXT71
B "OEFFNEN",NULL
:MTEXT711
B "LOESCHEN",NULL
:MTEXT712
B "ERWEITERN",NULL
:MTEXT72
B "SCHLIESSEN",NULL
:MTEXT73
B "╥ESTPLATZ",NULL
:MTEXT74
B "ANZEIGEN",NULL
:MTEXT75
B "DRUCKEN",NULL
:MTEXT76
B "SPEICHERN",NULL
;
:MTEXT8
B "╘ELNR.",NULL
;
; **************************
; *** ╘EXTE, ─IALOGBOXEN ***
;
:INFOTEXT
B ITALICON,BOLDON,"GEO╘ERM ╓1.1,",CR,CR
GOTOX 80
B PLAINTEXT,BOLDON,"GESCHRIEBEN VON:"
GOTOX 175
B PLAINTEXT,OUTLINE,"├ARSTEN",CR
GOTOX 175
B "├LASOHM",CR,CR,CR
GOTOX 80
B PLAINTEXT,"├OPYRIGHT 1988, ═ARKT&╘ECHNIK-╓ERLAG",NULL
;
:QUELLDTXT
B BOLDON,"┬ITTE DIE ─ISK MIT DEM GE-",CR,CR
GOTOX 80
B "WUENSCHTEN ╞ILE EINLEGEN.",NULL
;
:ZIELDTXT
B BOLDON,"┬ITTE DIE ─ISK EINLEGEN, AUF",CR,CR
GOTOX 80
B "DIE DAS ╞ILE GESCHRIEBEN",CR,CR
GOTOX 80
B "WERDEN SOLL.",NULL
;
:URDTEXT
B BOLDON,"┬ITTE ─ISKETTE EINLEGEN:",CR,CR
GOTOX 80
:URNAME
B " ",NULL
;
:NAMETEXT
B BOLDON,"┬ITTE DEN ╞ILENAMEN EINGEBEN:",NULL
;
:TYPTXT
B BOLDON,"┬ITTE ╞ILETYP WAEHLEN:",NULL
;
:PRGTXT
B BOLDON,"PROGRAMM",NULL
:SEQTXT
B BOLDON,"SEQUENTIELL",NULL
:USRTXT
B BOLDON,"USER",NULL
;
:FREETEXT
B BOLDON,"╞REIE ┬YTES IM ╨UFFER:",NULL
;
:EMPFABTXT
B BOLDON,"┼MPFANGEN UEBER ╪-═ODEM",CR,CR
GOTOX 80
B "WEGEN ╞EHLERS ABGEBROCHEN.",NULL
;