home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / windows (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  52 lines
  1. 5 poke53280,5:poke53281,5:poke646,0
  2. 10 print"[147][215]indow - [205]anager"
  3. 20 dim st(10):wi=0:zi=49152:st(wi)=zi
  4. 30 forj=1to23:fori=0to38:print"a";:next:print:next:print"";
  5. 35 zl=5:sp=3:br=5:ho=5
  6. 40 for x=1to5:gosub1100
  7. 45 sp=sp+1:fori=1to5:zl=zl+1:gosub1000:print"12345":next:sp=sp-1:zl=zl-5
  8. 50 zl=zl+2:sp=sp+3
  9. 55 next:print:print," [212]aste druecken! [144]"
  10. 57 zl=zl-2:sp=sp-3
  11. 60 getx$:ifx$=""then60
  12. 70 for x=1to5:gosub1600
  13. 80 getx$:ifx$=""then80
  14. 90 zl=zl-2:sp=sp-3
  15. 95 next
  16. 100 zl=20:sp=10:gosub1000:print"[144]aaaaaaaaaaaaaaaaa"
  17. 999 end
  18. 1000 print"";:ifzl=0then1020
  19. 1010 fori9=1tozl:print:next
  20. 1020 printtab(sp);
  21. 1030 return
  22. 1040 :
  23. 1100 gosub1500:gosub1000
  24. 1110 print"[176]";:ifbr=0then1130
  25. 1120 fori9=1tobr:print"[192]";:next
  26. 1130 print"[174]":ifho=0then1150
  27. 1140 fori9=1toho:printtab(sp)"[221]"tab(sp+br+1)"[221]":next
  28. 1150 printtab(sp)"[173]";:ifbr=0then1170
  29. 1160 fori9=1tobr:print"[192]";:next
  30. 1170 print"[189]"
  31. 1180 return
  32. 1190 :
  33. 1500 qu=1024+40*zl+sp:an=br+1:ifwithenzi=st(wi)
  34. 1510 fori9=0toho+1:gosub2100:qu=qu+40:zi=zi+an+1:next
  35. 1520 wi=wi+1:st(wi)=zi+1
  36. 1530 return
  37. 1540 :
  38. 1600 zi=1024+40*zl+sp:an=br+1:ifwithenqu=st(wi-1)
  39. 1610 fori9=0toho+1:gosub2100:qu=qu+an+1:zi=zi+40:next
  40. 1620 ifst(wi)=0thenreturn
  41. 1630 st(wi)=0:wi=wi-1:qu=st(wi)
  42. 1640 return
  43. 1650 :
  44. 2100 z=zi:gosub2200:poke53,lo:poke54,hi
  45. 2105 z=qu:gosub2200:poke781,lo:poke782,hi
  46. 2110 poke780,an+1:sys46728
  47. 2120 return
  48. 2130 :
  49. 2200 hi=int(z/256):lo=z-hi*256
  50. 2210 return
  51. 2220 :
  52.