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
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
44 lines
9990 end:***********************
9991 ....** basic-windows * ** (w) 1993 by madrom *
9992 ....** (c) by nobody..... * ***********************
9993 benoetigte varibalen : (window) groesse : x,y=qx%,qy%
9994 breite, hoehe: b,h=qb%,qh% farbe : qf%
9995 benoetigte variablen : (text-win.) im window,revers : qt%,qr%
9996 text aus arrays nr.: qa% benoetigte arrays : qt$()
9997 :
10000 rem * setze virablen ****************
10001 for q=1to38:q1$=q1$+"[192]":q2$=q2$+" ":next:return
10002 rem * zeichne window ****************
10004 poke211,qx%:poke214,qy%:sys58640:qy=qy%+1
10006 q2%=qa%:poke 646,qf%
10008 print"[176]"left$(q1$,qb%)"[174]"
10010 for q1 = qy% to qy%+qh%-1
10015 printspc(qx%);
10020 poke 646,qf%:print"[221]";
10024 poke 646,qt%
10025 printleft$(qt$(qa%),qb%);
10026 if qb%-len(qt$(qa%))<1 then 10030
10027 printleft$(q2$,qb%-len(qt$(qa%)));
10030 poke 646,qf%:print"[221]"
10031 qa%=qa%+1:next
10032 printspc(qx%)"[173]"left$(q1$,qb%)"[189]"
10100 rem * auswahl-menue ***************
10102 poke211,qx%+1:poke214,qy:sys58640
10104 poke646,qr%
10105 print""left$(qt$(q2%),qb%);
10106 if qb%-len(qt$(q2%))<1 then 10110
10107 print""left$(q2$,qb%-len(qt$(q2%)))
10110 getqz$:if qz$="" then10110
10111 if qz$=""then gosub10230:q2%=q2%+1:qy=qy+1
10112 if qz$="[145]"then gosub10230:q2%=q2%-1:qy=qy-1
10117 if qz$=chr$(13)then qa%=q3%:return
10200 if qy>qy%+qh% then q2%=q2%-qh%:qy=qy%+1
10202 if qy=qy% then q2%=qa%-1:qy=qy+qh%
10229 goto10102
10230 poke211,qx%+1:poke214,qy:sys58640
10232 poke646,qt%
10233 print"[146]"left$(qt$(q2%),qb%);
10234 if qb%-len(qt$(q2%))<1 then return
10235 printleft$(q2$,qb%-len(qt$(q2%)))
10236 return