home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / window (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  717b  |  47 lines
  1. 12000 ifl+b>40orl>38orl<0orb<3oro+h>24orh>24oro<0orh<3thenprint"window-fehler":return
  2. 12010 fora=1toh-2
  3. 12020 :  w$(a)=""
  4. 12030 next a
  5. 12040 for y = 1 to h
  6. 12050 : for x = 1 to b
  7. 12060 :   w$(y)=w$(y)+chr$(peek(1024+(o+y)*40+l+x))
  8. 12070 :   poke(1024+(o+y)*40+l+x),32
  9. 12080 : next x
  10. 12090 next y
  11. 12100 poke214,o+1
  12. 12110 poke211,l+1
  13. 12120 sys58732
  14. 12130 print"[207]";
  15. 12140 fora=1tob-2
  16. 12150 :  print"[183]";
  17. 12160 next a
  18. 12170 print"[208]"
  19. 12180 fora=1toh-2
  20. 12190 : poke214,a+o+1
  21. 12200 : poke211,l+1
  22. 12210 : sys58732
  23. 12220 : print"[180]";spc(b-2);"[170]"
  24. 12230 next a
  25. 12240 poke214,h+o
  26. 12250 poke211,l+1
  27. 12260 sys58732
  28. 12270 print"[204]";
  29. 12280 fora=1tob-2
  30. 12290 :  print"[175]";
  31. 12300 next a
  32. 12310 print"[186]"
  33. 12320 fora=1toh-2
  34. 12330 : poke214,o+a+1
  35. 12340 : poke211,l+2
  36. 12350 : sys58732
  37. 12360 : printleft$(t$(a),b-2)
  38. 12370 next a
  39. 12380 poke198,0:wait198,1
  40. 12390 for y = 1 to h
  41. 12400 : for x = 1 to b
  42. 12410 : a=asc(mid$(w$(y),x,1))
  43. 12420 :   poke(1024+(o+y)*40+l+x),a
  44. 12430 : next x
  45. 12440 next y
  46. 12450 return
  47.