home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 May
/
64er_Magazin_92-05_1992_Markt__Technik_de.d64
/
menue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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