home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 68 / 068.d81 / quadrilation (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  15KB  |  394 lines
  1. 10 gosub1010:gosub1210:gosub5000:gosub2310:gosub5200:gosub1255:gosub1410
  2. 20 m=1:p=1:m1=0:p1=0:poke53248,28:poke53249,50:poke53250,60:poke53251,50
  3. 21 poke53252,28:poke53253,70:poke53254,60:poke53255,70:poke53264,255
  4. 22 poke53287,7:poke53288,7:poke53289,7:poke53290,7:poke36856,28:poke36857,29
  5. 23 poke36858,30:poke36859,31:poke53269,15
  6. 30 ifm<>m1thenonmgosub1586,1593,1560,1510,1610,1710,1810:m1=m
  7. 40 ifp<>p1thenonpgosub1910,2010,2110,2210:p1=p
  8. 50 geta$:ifa$=""then50
  9. 60 ifa$=chr$(133)then4410
  10. 70 ifa$=chr$(135)thenm=m+1:ifm>7thenm=1
  11. 80 ifa$=chr$(136)thenp=p+1:ifp>4thenp=1
  12. 90 ifa$<>chr$(134)then30
  13. 95 poke53269,0:poke36856,s1:poke36857,s2:poke36858,s3:poke36859,s4:poke36860,s5
  14. 96 poke36861,s1:poke53287,1
  15. 100 s1=0:s2=0:lv=0:gosub2410:ps=0
  16. 105 p=int(rnd(1)*8)+1:x=19:y=9:sc=1:sq=1:gosub2910
  17. 110 lv=lv+1:gosub3010:ifps>1then130
  18. 120 gosub4010:ifps<2then110
  19. 130 gosub1275:print"[147]";:goto4410
  20. 500 s=s1:p=36641:gosub600:s=s2:p=p+33:goto600
  21. 600 v=int(s/10000):s=s-10000*v:pokep,v+73:v=int(s/1000):s=s-1000*v:pokep+1,v+73
  22. 610 v=int(s/100):s=s-100*v:pokep+2,v+73:v=int(s/10):s=s-10*v:pokep+3,v+73
  23. 620 pokep+4,s+73:return
  24. 1000 rem load font, lower mem pointers
  25. 1010 ifi=0thenpoke52,128:poke56,128:clr:i=1:load"q.fnt",8,1
  26. 1015 ifi=1theni=2:load"q.ml",8,1
  27. 1020 ml=36864:sz=256:ts=ml+sz:nx=ts+sz:pr=nx+sz:cc=pr+sz:cm=cc+sz:sx=cm+sz
  28. 1030 sy=sx+sz:cl=sy+sz:ss=cl+sz:mj=39936:return
  29. 1100 rem restore mem pointers
  30. 1110 poke52,160:poke56,160:poke53269,0:clr
  31. 1120 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  32. 1130 ifer%<>63thenend
  33. 1140 load"hello connect",8
  34. 1200 rem switch to alt. font
  35. 1210 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1:poke53272,48
  36. 1220 poke648,140:poke53280,9:poke53281,9:print"[147]";
  37. 1230 poke53282,0:poke53283,12:poke53292,1:return
  38. 1250 rem switch to extended backgrounds
  39. 1255 poke53265,peek(53265)or64:poke53280,9:poke53281,9:return
  40. 1270 rem switch from extended backgrounds
  41. 1275 poke53265,peek(53265)and191:poke53280,0:poke53281,0:return
  42. 1300 rem switch to normal font
  43. 1310 poke56578,peek(56578)or3:poke56576,peek(56576)or3:poke53272,20
  44. 1320 poke648,4:poke53280,0:poke53281,0:print"[154][147]";
  45. 1330 return
  46. 1400 rem draw board
  47. 1405 print"[146]";:fori=1to9:print"@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a";
  48. 1406 print"bcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbc";:next:return
  49. 1410 print"[147]";:poke53280,9:poke53281,9:gosub1405
  50. 1430 print"[144]stttttu[155]hfefefefefefefefefefefefeg[144]stttttu";
  51. 1440 print"[144]v[196][154][219][220][221][144][196]w[149]d[158]?>=99?=5=5=99[149]d[158]?=109?=+*9[149]d[144]v[196][154][255][223][160][144][196]w";
  52. 1450 print"[144]v[154][201][201][201][201][201][144]w[149]d[158]<d#<<76<<73<<[149]d[158]76/.<<<()'[149]d[144]v[154][201][201][201][201][201][144]w";
  53. 1460 poke140*256+20*40+9,34
  54. 1470 print"[144]xyyyyyz[149]d[158];!$;:884:8884288-,8;:8&%[149]d[144]xyyyyyz";
  55. 1480 print"@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a";
  56. 1490 print"bcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbcbc";
  57. 1491 print"@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@a@";
  58. 1492 poke140*256+999,1:return
  59. 1500 rem draw mat 1
  60. 1510 gosub1405
  61. 1520 print"";:print"[155]dddddddddddddddddd[146]";
  62. 1522 print"[155]dddddddddddddddddd[146][195]";
  63. 1525 fori=1to6:print"[155]dddddddddddddddddd[146][193]";
  64. 1526 print"[155]dddddddddddddddddd[146][195]";
  65. 1530 next:print"[192][193][192][193][192][193][192][193][192][193][192][193][192][193][192][193][192][193]";:return
  66. 1550 rem draw mat 5
  67. 1560 gosub1405
  68. 1570 print"";:print"[155]dddddddddd[146]";
  69. 1572 print"[155]dddddddddd[146][195]";
  70. 1575 fori=1to4:print"[155]dddddddddd[146][193]";
  71. 1576 print"[155]dddddddddd[146][195]";
  72. 1580 next:print"[192][193][192][193][192][193][192][193][192][193]";:return
  73. 1585 rem draw mat 6
  74. 1586 gosub1405
  75. 1587 print"";:print"[155]dddddd[146]";
  76. 1588 print"[155]dddddd[146][195]";
  77. 1589 fori=1to3:print"[155]dddddd[146][193]";
  78. 1590 print"[155]dddddd[146][195]";
  79. 1591 next:print"[192][193][192][193][192][193]";:return
  80. 1592 rem draw mat 7
  81. 1593 gosub1405
  82. 1594 print"";:print"[155]dddddd[146]";
  83. 1595 print"[155]dddddd[146][195]";
  84. 1596 fori=1to3:print"[155]dddddd[146][193]";
  85. 1597 print"[155]dddddd[146][195]";
  86. 1598 next:print"[192][193][192][193][192][193]";:return
  87. 1600 rem draw mat 2
  88. 1610 gosub1405:print"[155]dddddddd";
  89. 1612 print"[155]dddddddddddd[146][195]";
  90. 1614 print"[155][146][192][155]dddddddddddd[146][193][192][193]";
  91. 1616 print"[155]dddddddddddddddddddd[146][195]";
  92. 1618 print"[155][146][192][155]dddddddddddddddddd[146][193][192][193]";
  93. 1620 print"[155]dddddddddddddddddd[146][195]";
  94. 1622 print"[155][146][192][155]dddddddddddddd[146][193][192][193]";
  95. 1624 print"[155]dddddddddddddd[146][195]";
  96. 1626 print"[155][146][192][155]dddddddddd[146][193][192][193]";
  97. 1628 print"[155]dddddddddd[146][195]";
  98. 1630 print"[155]dddddddddddddd";
  99. 1632 print"[155]dddddddddddddd[146][195]";
  100. 1634 print"[155]dddddddddddddddddd";
  101. 1636 print"[155]dddddddddddddddddd[146][195]";
  102. 1638 print"[155]dddddddddd[146][193][192][155]dddddddddd";
  103. 1640 print"[155]dddddd[146][195][194][195][194][195][194][195][194][155]dddddd[146][195]";
  104. 1642 print"[155]dddddd[146][193][192][193][192][155]dddddd";
  105. 1644 print"[155]dddd[146][195][194][195][194][155]dddd[146][195]";
  106. 1646 return
  107. 1700 rem draw mat 3
  108. 1710 gosub1405:print"";
  109. 1714 print"[155]dddddddddddddd";
  110. 1716 print"[155]dddddddddddddddddd";
  111. 1718 print"[155]dddddddddddddddddddddddddddd";
  112. 1720 print"[155]ddddd[146][194][195][194][155]dddddddddddddd[146][195][194][195][155]ddddd";
  113. 1722 print"[155]dddd[146][193][192][155]dddddddddddd[146][192][193][155]dddd[146][193]";
  114. 1724 print"[155]ddd[146][194][195][155]dddddddddd[146][195][194][155]ddd[146][195]";
  115. 1726 print"[155]ddd[146][192][155]dddddddddd[146][193][155]ddd[146][193]";
  116. 1728 print"[155]ddd[146][194][155]dddddddddd[146][195][155]ddd[146][195]";
  117. 1730 print"[155]ddd[146][192][155]dddddddddd[146][193][155]ddd[146][193]";
  118. 1732 print"[155]dddddddddddddddddddd[146][195]";
  119. 1734 print"[155]dddddddddddddddddddddddd[146][193]";
  120. 1736 print"[155]dddddddddddddddddddddddddddd[146][194][195]";
  121. 1738 print"[155]ddddddddd[146][192][193][192][193][192][193][192][193][155]ddddddddd[146][193][192]";
  122. 1740 print"[155]ddddddd[146][195][194][155]ddddddd[146][194][195]";
  123. 1742 print"[146][193][192][193][192][193][192][193][192][193][192][193][192][193][192]";:return
  124. 1800 rem draw mat 4
  125. 1810 gosub1405:print"";
  126. 1812 print"[155]dddddddddddddddddddd";
  127. 1814 print"[155]dddddddddddddddddddddd[146][193]";
  128. 1816 print"[155]dddddddddd[146][195][194][155]dddddddddd[146][195]";
  129. 1818 print"[155][146][192][193][192][155]ddddd[146][192][193][155]ddddd[146][193][192][193][192][193]";
  130. 1820 print"[155]dddddddddddddd";
  131. 1822 print"[155]dddddddddddddddd[146][192]