home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 53 / 64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64 / gra1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  37 lines
  1. 0 rem *********************************
  2. 1 rem **   menueauswahlprogramm      **
  3. 2 rem **   'gra1'                    **
  4. 3 rem **                             **
  5. 4 rem **-----------------------------**
  6. 5 rem **   dr.h.domes                **
  7. 6 rem **   josef marx str. 13        **
  8. 7 rem ** a 8043 graz/austria         **
  9. 8 rem ** update 2/90: bl, germany    **
  10. 9 rem *********************************
  11. 10 poke53280,0:poke53281,0:print"[147][155]":poke198,0
  12. 50 read an
  13. 100 dimmu$(an):di$(0)="[145][145][145]":di$(1)="":di$(2)="[145]":po$(1)=""
  14. 200 fori=0toan:readmu$(i):next
  15. 499 rem--------------------------------
  16. 500 ib=0:ie=an
  17. 520 gosub1000:ifi=7then(NULL)255:print"":sys42115
  18. 599 rem--------overlay pseudodirekt----
  19. 600 ifmu$(i-1)="[150] ende [155]"thenprint"[147]":end
  20. 610 print"[147][144]clr:l[207]";chr$(34);mu$(i-1);chr$(34);",8":print"r[213]"
  21. 620 poke631,19:fori=0to2:poke632+i,13:next:poke198,4:end
  22. 900 :end
  23. 999 rem--------------------------------
  24. 1000 print"[147]- ladeprogramm -";po$(1)
  25. 1200 fori=ibtoie:printmu$(i):print:next
  26. 1250 print"";po$(1):i=ib:print""mu$(i)
  27. 1500 getw$:ifw$<>"[145]"andw$<>""andw$<>chr$(13)then1500
  28. 1520 li=i
  29. 1540 ifw$=chr$(13)theni=i-ib+1:return
  30. 1550 ifw$=""theni=i+1:zi=1:ifi>ietheni=ie:zi=2
  31. 1560 ifw$="[145]"theni=i-1:zi=0:ifi<ibtheni=ib:zi=2
  32. 1600 print"[145]"mu$(li):printdi$(zi)""mu$(i)
  33. 1700 goto1500
  34. 1701 rem================================
  35. 5000 data 2
  36. 5010 data testdemo,statistik,"[150] ende [155]"
  37.