home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9205.d64 / menue (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  727b  |  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.