home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 May / 64er_Magazin_92-05_1992_Markt__Technik_de.d64 / menue (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  727 b   |  30 lines
  1. 12000 print"[147]                 menue                  ";
  2. 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]"
  3. 12020 print""
  4. 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]"
  5. 12030 fora=1to5
  6. 12035 iflen(t$(a))>39thenprint"fehler"
  7. 12040 :  printspc((40-len(t$(a)))/2);" ";t$(a);""
  8. 12050 next a
  9. 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]"
  10. 12055 print"bitte mit den cursortasten"
  11. 12056 print"waehlen und mit return"
  12. 12057 print"bestaetigen"
  13. 12060 po=1
  14. 12065 aw=1
  15. 12075 print""
  16. 12080 for a = po to po + 4
  17. 12085 :  if aw = a then print"";
  18. 12090 :  printspc((40-len(t$(a)))/2);" ";t$(a);""
  19. 12100 next a
  20. 12110 geta$
  21. 12111 j=peek(56320)
  22. 12113 ifj=125thena$=""
  23. 12114 ifj=126thena$="[145]"
  24. 12115 ifj=111thena$=chr$(13)
  25. 12120 ifa$=""andaw<mthenaw=aw+1:ifaw>po+4andpo<mthenpo=po+1
  26. 12130 ifa$="[145]"andaw>1 thenaw=aw-1:ifaw<po thenpo=po-1
  27. 12135 ifa$=chr$(13)then12150
  28. 12140 goto12075
  29. 12150 return
  30.