home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 23 / Tiger_Disk_023_19xx_Tiger-Crew-Disk_de_Side_B.d64 / windows.basic (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  44 lines
  1. 9990 end:***********************
  2. 9991 ....** basic-windows      *                 ** (w) 1993 by madrom *
  3. 9992 ....** (c) by nobody..... *                 ***********************
  4. 9993 benoetigte varibalen : (window)         groesse      : x,y=qx%,qy%
  5. 9994 breite, hoehe: b,h=qb%,qh%              farbe        : qf%
  6. 9995 benoetigte variablen : (text-win.)      im window,revers   : qt%,qr%
  7. 9996 text aus arrays nr.: qa%                benoetigte arrays  : qt$()
  8. 9997 :
  9. 10000 rem * setze virablen                        ****************
  10. 10001 for q=1to38:q1$=q1$+"[192]":q2$=q2$+" ":next:return
  11. 10002 rem * zeichne window                        ****************
  12. 10004 poke211,qx%:poke214,qy%:sys58640:qy=qy%+1
  13. 10006 q2%=qa%:poke 646,qf%
  14. 10008 print"[176]"left$(q1$,qb%)"[174]"
  15. 10010 for q1 = qy% to qy%+qh%-1
  16. 10015 printspc(qx%);
  17. 10020 poke 646,qf%:print"[221]";
  18. 10024 poke 646,qt%
  19. 10025 printleft$(qt$(qa%),qb%);
  20. 10026 if qb%-len(qt$(qa%))<1 then 10030
  21. 10027 printleft$(q2$,qb%-len(qt$(qa%)));
  22. 10030 poke 646,qf%:print"[221]"
  23. 10031 qa%=qa%+1:next
  24. 10032 printspc(qx%)"[173]"left$(q1$,qb%)"[189]"
  25. 10100 rem * auswahl-menue                         ***************
  26. 10102 poke211,qx%+1:poke214,qy:sys58640
  27. 10104 poke646,qr%
  28. 10105 print""left$(qt$(q2%),qb%);
  29. 10106 if qb%-len(qt$(q2%))<1 then 10110
  30. 10107 print""left$(q2$,qb%-len(qt$(q2%)))
  31. 10110 getqz$:if qz$="" then10110
  32. 10111 if qz$=""then gosub10230:q2%=q2%+1:qy=qy+1
  33. 10112 if qz$="[145]"then gosub10230:q2%=q2%-1:qy=qy-1
  34. 10117 if qz$=chr$(13)then qa%=q3%:return
  35. 10200 if qy>qy%+qh% then q2%=q2%-qh%:qy=qy%+1
  36. 10202 if qy=qy% then q2%=qa%-1:qy=qy+qh%
  37. 10229 goto10102
  38. 10230 poke211,qx%+1:poke214,qy:sys58640
  39. 10232 poke646,qt%
  40. 10233 print"[146]"left$(qt$(q2%),qb%);
  41. 10234 if qb%-len(qt$(q2%))<1 then return
  42. 10235 printleft$(q2$,qb%-len(qt$(q2%)))
  43. 10236 return
  44.