home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_B.d64 / menue (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 1610 poke788,52:poke53280,14:poke53281,6
  2. 1620 print"[147]           ich lade die datei":z=0:dimna$(144),nu$(144)
  3. 1630 close2:open2,8,2,"dat,s,r"
  4. 1640 z=z+1
  5. 1650 input#2,naa$
  6. 1660 ifright$(naa$,1)="8"thenna$(z)=left$(naa$,len(naa$)-1):nu$(z)=",8"
  7. 1670 ifright$(naa$,2)="81"thenna$(z)=left$(naa$,len(naa$)-2):nu$(z)=",8,1
  8. 1680 [139]st[178]64[167][160]2:[137]1700
  9. 1690 [137]1640
  10. 1700 [153]"load";:z[178]0
  11. 1710 [153]"              +  menue  waitsgn"
  12. 1720 [153]"             by simon & edy"
  13. 1730 [153][163]5)"syscursor down  naechstes element"
  14. 1740 [153][163]5)"syscursor up    vorheriges element"
  15. 1750 [153][163]5)"sysreturn       waehlen"
  16. 1760 [153]"    (NULL)tantantantantantantantantantantantantantantantanright$"
  17. 1770 [153]"    (NULL)                (NULL)"
  18. 1780 [153]"    mid$tantantantantantantantantantantantantantantantan(NULL)"
  19. 1790 [151]214,15:[151]211,5:[158]58640:[153]na$(1):z[178]1
  20. 1800 [161]t$:[139]t$[178]""[167]1800
  21. 1810 [139]t$[178]""[167]z[178]z[170]1:x[178]1:[141]1890:[137]1800
  22. 1820 [139]t$[178]"on"[167]z[178]z[171]1:x[178]2:[141]1890:[137]1800
  23. 1830 [139]t$[178][199](13)[167][137]1850
  24. 1840 [137]1800
  25. 1850 [153]"load";:[153]"load"[199](34)na$(z)[199](34)nu$(z)
  26. 1860 [153]"poke646,14:run"
  27. 1870 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
  28. 1880 [143] *** unterprog ***
  29. 1890 [139]z[178]0[167]z[178]1:[142]
  30. 1900 [139]na$(z)[178]""[175]x[178]2[167]z[178]z[170]1:[142]
  31. 1910 [139]z[178]145[167]z[178]144:[142]
  32. 1920 [139]na$(z)[178]""[175]x[178]1[167]z[178]z[171]1:[142]
  33. 1930 [151]214,15:[151]211,5:[158]58640:[153]"                "
  34. 1940 [151]214,15:[151]211,5:[158]58640:[153]na$(z):[142]
  35.