home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 32 / Commodore_Disc_32_19xx_-_de.d64 / startmenue.c64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 10 rem startmenue.bas==========c64
  2. 20 rem (p) commodore disc team
  3. 30 rem ===========================
  4. 40 rem (c) by r. engelhardt   v3.5
  5. 50 rem (v) alfons mittelmeyer v2.0
  6. 60 rem
  7. 70 rem basic v2.0
  8. 80 rem c64
  9. 90 rem ===========================
  10. 100 goto200
  11. 110 b$="":fori=1to4:get#1,c$:next
  12. 120 get#1,c$:ifc$=chr$(199)thenreturn
  13. 130 ifc$<>chr$(34)then120
  14. 140 get#1,c$:ifc$<>chr$(34)thenb$=b$+c$:goto140
  15. 150 return
  16. 160 a$=""
  17. 170 get#1,c$:ifc$=chr$(32)then170
  18. 180 ifc$<>chr$(32)thena$=a$+c$:get#1,c$:goto180
  19. 185 get#1,c$:ifc$<>""then185
  20. 190 return
  21. 200 dimv$(207):dimy$(15)
  22. 210 open1,8,0,"$0"
  23. 220 gosub110
  24. 230 gosub110:ifc$=chr$(199)then260
  25. 240 gosub160
  26. 250 ifa$="prg"thenv$(x)=b$:x=x+1
  27. 255 goto230
  28. 260 close1
  29. 270 re$=chr$(0):rn$=chr$(18)
  30. 280 fl$=chr$(15):fo$=chr$(143)
  31. 290 bk$=chr$(0):rf$=chr$(146)
  32. 300 b$=chr$(32)
  33. 310 b2$=b$+b$:b4$=b2$+b2$
  34. 320 b5$=b4$+b$:b$=b5$+b5$
  35. 330 forx=0to15:y$(x)=chr$(65+x):nextx
  36. 340 printchr$(147)
  37. 350 printtab(10)rn$re$b$b$rf$bk$
  38. 360 printtab(10)rn$re$b5$"start-menue"b4$
  39. 370 printtab(10)rn$re$b$b$rf$bk$
  40. 380 print
  41. 390 forx=0to15step2:printrn$re$" "y$(x)" "rf$bk$" "v$(x+y);
  42. 400 printtab(20)rn$re$" "y$(x+1)" "rf$bk$" "v$(x+y+1)
  43. 401 iflen(v$(x+y+1))<>16thenprint
  44. 402 next
  45. 410 printtab(12)rn$re$fl$b$b5$rf$bk$fo$
  46. 420 printtab(12)rn$re$fl$b2$"waehle file"b2$rf$fo$bk$
  47. 430 printtab(12)rn$re$fl$b$b5$rf$bk$fo$
  48. 440 geta$:ifa$=""then440
  49. 445 ify>170then460
  50. 450 ifa$=chr$(13)ora$=chr$(17)theny=y+16:goto340
  51. 460 ify<16then480
  52. 470 ifa$="^"ora$=chr$(145)theny=y-16:goto340
  53. 480 ifa$<"a"ora$>"p"then440
  54. 490 a=asc(a$)-65
  55. 500 printchr$(147);:print"run"
  56. 510 print"l[207]"chr$(34)v$(a+y)chr$(34)",8"
  57. 520 poke631,19:poke632,17:poke633,13:poke634,19:poke635,13:poke198,5
  58. 530 rem ==========================
  59. 540 rem  p r o g r a m m e n d e
  60. 550 rem ==========================
  61.