home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / col20.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  84 lines
  1. 0 'COL20.BA - by William Naoki Kumai
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 70 GOTO180
  4. 80 CLS
  5. 90 IFEOF(1)THEN160ELSEXY!=Y+256*X
  6. 100 C=ASC(INPUT$(1,1)):IFC=13THEN130ELSEIFC<32THEN90
  7. 110 IFC<128THENCALLM2!,C-32,XY!ELSECALLM1!,C-128,XY!
  8. 120 X=X+12:IFX<240THEN90
  9. 130 X=0:Y=Y+16:IFY<64THEN90ELSEY=0
  10. 140 Q$=INKEY$:IFQ$=""THEN140
  11. 150 IFQ$<>CHR$(27)THEN80ELSEMENU
  12. 160 Q$=INKEY$:IFQ$=""THEN160
  13. 170 MENU
  14. 180 'CLEAR256,62870:DEFINTA-Z
  15. 190 FORXY!=62870!TO62958!:READC:POKEXY!,C:NEXT
  16. 200 M1!=62870!:M2!=62890!
  17. 210 FILES:INPUT"Filename";Q$
  18. 220 OPENQ$FORINPUTAS#1
  19. 230 GOTO80
  20. 240 'M1 (6 byte character)
  21. 250 DATA235        :'XCHG
  22. 260 DATA033,241,120:'LXI  H,CHTBL6
  23. 270 DATA006,000    :'MVI  B,0
  24. 280 DATA079        :'MOV  C,A
  25. 290 DATA009        :'DAD  B
  26. 300 DATA009        :'DAD  B
  27. 310 DATA009        :'DAD  B
  28. 320 DATA009        :'DAD  B
  29. 330 DATA009        :'DAD  B
  30. 340 DATA009        :'DAD  B
  31. 350 DATA006,006    :'MVI  B,6
  32. 360 DATA014,008    :'MVI  C,8
  33. 370 DATA195,186,245:'JMP  a:
  34. 380  M2 (5 BYTE CHARACTER)
  35. 390 DATA235        :'XCHG
  36. 400 DATA033,017,119:'LXI  H,CHRTBL
  37. 410 DATA006,000    :'MVI  B,0
  38. 420 DATA079        :'MOV  C,A
  39. 430 DATA009        :'DAD  B
  40. 440 DATA009        :'DAD  B
  41. 450 DATA009        :'DAD  B
  42. 460 DATA009        :'DAD  B
  43. 470 DATA009        :'DAD  B
  44. 480 DATA006,005    :'MVI  B,5
  45. 490 DATA014,008    :'MVI  C,8
  46. 500 DATA126        :'MOV  A,M
  47. 510 DATA213        :'PUSH D
  48. 520 DATA229        :'PUSH H
  49. 530 DATA213        :'PUSH D
  50. 540 DATA197        :'PUSH B
  51. 550 DATA015        :'RRC
  52. 560 DATA210,219,245:'JNC  c:
  53. 570 DATA245        :'PUSH PSW
  54. 580 DATA213        :'PUSH D
  55. 590 DATA205,076,116:'CALL PLOT
  56. 600 DATA209        :'POP  D
  57. 610 DATA213        :'PUSH D
  58. 620 DATA020        :'INR  D
  59. 630 DATA205,076,116:'CALL PLOT
  60. 640 DATA209        :'POP  D
  61. 650 DATA213        :'PUSH D
  62. 660 DATA028        :'INR  E
  63. 670 DATA205,076,116:'CALL PLOT
  64. 680 DATA209        :'POP  D
  65. 690 DATA020        :'INR  D
  66. 700 DATA028        :'INR  E
  67. 710 DATA205,076,116:'CALL PLOT
  68. 720 DATA241        :'POP  PSW
  69. 730 DATA193        :'POP  B
  70. 740 DATA209        :'POP  D
  71. 750 DATA028        :'INR  E
  72. 760 DATA028        :'INR  E
  73. 770 DATA013        :'DCR  C
  74. 780 DATA194,189,245:'JNZ  b:
  75. 790 DATA225        :'POP  H
  76. 800 DATA209        :'POP  D
  77. 810 DATA035        :'INX  H
  78. 820 DATA020        :'INR  D
  79. 830 DATA020        :'INR  D
  80. 840 DATA014,008    :'MVI  C,8
  81. 850 DATA005        :'DCR  B
  82. 860 DATA194,186,245:'JNZ  a:
  83. 870 DATA201        :'RET
  84.