home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9204a.d64 / window (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.