home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9205.d64
/
menue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
727b
|
30 lines
12000 PRINT"[147] MENUE ";
12010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12020 PRINT""
12021 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12030 FORA=1TO5
12035 IFLEN(T$(A))>39THENPRINT"FEHLER"
12040 : PRINTSPC((40-LEN(T$(A)))/2);" ";T$(A);""
12050 NEXT A
12052 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12055 PRINT"BITTE MIT DEN CURSORTASTEN"
12056 PRINT"WAEHLEN UND MIT RETURN"
12057 PRINT"BESTAETIGEN"
12060 PO=1
12065 AW=1
12075 PRINT""
12080 FOR A = PO TO PO + 4
12085 : IF AW = A THEN PRINT"";
12090 : PRINTSPC((40-LEN(T$(A)))/2);" ";T$(A);""
12100 NEXT A
12110 GETA$
12111 J=PEEK(56320)
12113 IFJ=125THENA$=""
12114 IFJ=126THENA$="[145]"
12115 IFJ=111THENA$=CHR$(13)
12120 IFA$=""ANDAW<MTHENAW=AW+1:IFAW>PO+4ANDPO<MTHENPO=PO+1
12130 IFA$="[145]"ANDAW>1 THENAW=AW-1:IFAW<PO THENPO=PO-1
12135 IFA$=CHR$(13)THEN12150
12140 GOTO12075
12150 RETURN