home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.statist (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  51 lines
  1. 0 co=7*4096:va=5*4096+6*256:ub=va+1627+12*4
  2. 7 dimge(5,5),um(5,5),cl(5),mu(5),p$(5):gosub10000:print"[155]":gosub50000
  3. 20 printtab(2);" ";p$(1):printtab(25);"[145] ";p$(2):printtab(2);" ";p$(3)
  4. 50 printtab(25);"[145] ";p$(4):print"+"
  5. 70 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  6. 80 print"+[157][157][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print"-"
  7. 85 print""tab(39);"[213][157][205][157][211][157][193][157][212][157][218]"
  8. 87 print""tab(39);"[199][157][197][157][215][157][201][157][206]":sysco,6,3:sysco,3
  9. 100 printchr$(cl(1));" ";tab(25);chr$(cl(2));" "
  10. 110 printchr$(cl(3));" ";tab(25);chr$(cl(4));" ":sysco,3:forc=1to4:forz=1to4
  11. 1010 ifge(c,z)=0then1060
  12. 1020 ba=int(ge(c,z)/gp*4):xp=(c-1)*9+(z-1)*2+3:yp=18:gosub40000
  13. 1060 nextz,c:forc=1to4:forz=1to4:ifum(c,z)=0then1160
  14. 1120 ba=int(um(c,z)/up*8):xp=(c-1)*9+(z-1)*2+3:yp=13:gosub40000
  15. 1160 nextz,c
  16. 5000 gosub30000:ifdu=99then35000
  17. 9999 goto5000
  18. 10000 rem
  19. 10003 fori=1to4:reada:cl(i)=a:next:fori=0to3:reada:mu(i)=a:next:nb=peek(co+5)+peek(co+6)*256
  20. 10010 fori=0to9:a=peek(nb+0+i):gosub60000:p$(1)=p$(1)+chr$(a)
  21. 10020 a=peek(nb+11+i):gosub60000:p$(2)=p$(2)+chr$(a)
  22. 10030 a=peek(nb+22+i):gosub60000:p$(3)=p$(3)+chr$(a)
  23. 10040 a=peek(nb+33+i):gosub60000:p$(4)=p$(4)+chr$(a):nexti:fori=1to4:forq=1to4
  24. 10075 du=va+7+(i-1)*67+(q-1)*4+14:da=du+16:ge(i,q)=peek(du+0)*mu(0)
  25. 10085 ge(i,q)=ge(i,q)+peek(du+1)*mu(1):ge(i,q)=ge(i,q)+peek(du+2)*mu(2)
  26. 10095 ge(i,q)=ge(i,q)+(peek(du+3)and127)*mu(3):um(i,q)=peek(da+0)*mu(0)
  27. 10105 um(i,q)=um(i,q)+peek(da+1)*mu(1):um(i,q)=um(i,q)+peek(da+2)*mu(2)
  28. 10111 um(i,q)=um(i,q)+(peek(da+3)and127)*mu(3):ifpeek(du+3)and128>0thenge(i,q)=-ge(i,q)
  29. 10120 nextq,i:fori=1to4:forq=1to4:ifgp<abs(ge(i,q))thengp=abs(ge(i,q))
  30. 10155 ifup<abs(um(i,q))thenup=abs(um(i,q))
  31. 10160 nextq,i:return
  32. 30000 rem
  33. 30030 poke2,0
  34. 30040 du=peek(2):ifdu=0then30040
  35. 30050 return
  36. 35000 rem
  37. 35035 sysco,25,1:zz=peek(va+2):a$="l.city"+str$(zz):sysco,1,a$,8
  38. 40000 rem
  39. 40030 print"";:ifba<0thenyp=yp+1
  40. 40040 u$=" [145][157]":d$=" [157]":fori=1toxp:print"";:nexti:fori=1toyp:print"";:nexti:printchr$(cl(c));
  41. 40090 fori=1toabs(ba):ifba>0thenprintu$;
  42. 40110 ifba<0thenprintd$;
  43. 40120 nexti:return
  44. 50000 rem
  45. 50025 sysco,3:sysco,4,3,0,2:sysco,7,96,40,21:sysco,6,3:return
  46. 60000 rem
  47. 60010 ifa>=0anda=<31thena=a+64:return
  48. 60020 ifa>=64anda<=95thena=a+128:return
  49. 60030 ifa=96thena=160
  50. 60040 return:data 31,30,152,28:data 1,256,65536,16777216
  51.