home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02043 / formular / menu.bas < prev    next >
BASIC Source File  |  1987-11-09  |  1KB  |  27 lines
  1. 1 LOCATE ,,0
  2. 9000 CLS: LOCATE 7,1
  3. 9050 BG1$=SPACE$(15)+STRING$(10,223)+SPACE$(2)+STRING$(12,223)+SPACE$(3)+STRING$(6,223)+SPACE$(6)+STRING$(6,223)
  4. 9060 BG2$=SPACE$(15)+STRING$(10,223)+SPACE$(2)+STRING$(13,223)+SPACE$(2)+STRING$(7,223)+SPACE$(4)+STRING$(7,223)
  5. 9070 BG3$=SPACE$(18)+STRING$(4,223)+SPACE$(6)+STRING$(3,223)+SPACE$(6)+STRING$(3,223)+SPACE$(3)+STRING$(7,223)+SPACE$(2)+STRING$(7,223)
  6. 9080 BG4$=SPACE$(18)+STRING$(4,223)+SPACE$(6)+STRING$(11,223)+SPACE$(4)+STRING$(16,223)
  7. 9090 BG5$=SPACE$(18)+STRING$(4,223)+SPACE$(6)+STRING$(11,223)+SPACE$(4)+STRING$(3,223)+SPACE$(2)+STRING$(6,223)+SPACE$(2)+STRING$(3,223)
  8. 9100 BG6$=SPACE$(18)+STRING$(4,223)+SPACE$(6)+STRING$(3,223)+SPACE$(6)+STRING$(3,223)+SPACE$(3)+STRING$(3,223)+SPACE$(3)+STRING$(4,223)+SPACE$(3)+STRING$(3,223)
  9. 9110 BG7$=SPACE$(15)+STRING$(10,223)+SPACE$(2)+STRING$(13,223)+SPACE$(2)+STRING$(5,223)+SPACE$(8)+STRING$(5,223)
  10. 9120 BG8$=SPACE$(15)+STRING$(10,223)+SPACE$(2)+STRING$(12,223)+SPACE$(3)+STRING$(5,223)+SPACE$(8)+STRING$(5,223)
  11. 9130 PRINT BG1$
  12. 9140 PRINT BG2$
  13. 9150 PRINT BG3$
  14. 9160 PRINT BG4$
  15. 9170 PRINT BG5$
  16. 9180 PRINT BG6$
  17. 9190 PRINT BG7$
  18. 9200 PRINT BG8$
  19. 9210 PRINT : PRINT TAB(33)"F R E E S O F T": PRINT: PRINT
  20. 9220 PRINT TAB(30)"[1] Programm laden": PRINT
  21. 9221 PRINT TAB(30)"[2] Erklärung laden": PRINT
  22. 9230 E$=INKEY$: IF E$="" THEN 9230
  23. 9231 IF E$="1" THEN GOSUB 9240: RUN "kfz"
  24. 9232 IF E$="2" THEN GOSUB 9240: RUN "ekl"
  25. 9233 GOTO 9230
  26. 9240 PRINT TAB(30)"Bitte warten...": RETURN
  27.