home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 1520-BANNER-MAKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.8 KB  |  123 lines
  1. 1 POKE53280,0:POKE53281,0:GOSUB30000
  2. 2 PRINT"              PLEASE WAIT"
  3. 3 PRINT:PRINT"     WHILE I SET UP CHARACTER TABLE"
  4. 5 PRINTCHR$(142)
  5. 10 POKE52,48:POKE56,48:CLR
  6. 20 POKE56334,PEEK(56334)AND254
  7. 30 POKE1,PEEK(1)AND251
  8. 40 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
  9. 50 POKE1,PEEK(1)OR4
  10. 60 POKE56334,PEEK(56334)OR1
  11. 65 OPEN4,6:OPEN3,6,3:OPEN2,6,2:PRINT#3,0:PRINT#2,0
  12. 70 GOTO7000
  13. 80 Z=PC*8
  14. 90 FORX=1TO8
  15. 95 N=PEEK(X+12287+Z)
  16. 1010 IFN=>128THENN=N-128:B(X,1)=1:GOTO1020
  17. 1015 B(X,1)=0
  18. 1020 IFN=> 64THENN=N- 64:B(X,2)=1:GOTO1030
  19. 1025 B(X,2)=0
  20. 1030 IFN=> 32THENN=N- 32:B(X,3)=1:GOTO1040
  21. 1035 B(X,3)=0
  22. 1040 IFN=> 16THENN=N- 16:B(X,4)=1:GOTO1050
  23. 1045 B(X,4)=0
  24. 1050 IFN=>  8THENN=N-  8:B(X,5)=1:GOTO1060
  25. 1055 B(X,5)=0
  26. 1060 IFN=>  4THENN=N-  4:B(X,6)=1:GOTO1070
  27. 1065 B(X,6)=0
  28. 1070 IFN=>  2THENN=N-  2:B(X,7)=1:GOTO1080
  29. 1075 B(X,7)=0
  30. 1080 IFN=>1THENN=N-1:B(X,8)=1:GOTO2000
  31. 1085 B(X,8)=0
  32. 2000 NEXTX
  33. 2500 FORH=1TOZ5
  34. 2550 C=C+Z6
  35. 2999 IFJ1=1THEN FORJ=1TO2
  36. 3000 FORX=WITO1STEP-1
  37. 3005 FORV1=1TOC6
  38. 3010 IFJ1=1ANDB(X,H)=1THENPRINT#4,CS$;
  39. 3015 IFB(X,H)=1THENPRINT#4,CS$;:GOTO3025
  40. 3020 PRINT#4,C6$;
  41. 3021 IFJ1=1THEN PRINT#4,C6$;
  42. 3025 NEXTV1
  43. 4000 NEXTX:PRINT#4,""
  44. 4001 IFJ1=1THENNEXTJ
  45. 4050 IFC=1THEN2550
  46. 4060 C=0
  47. 4100 NEXTH
  48. 5000 NEXTL
  49. 7000 GOSUB20000
  50. 7005 PRINT"(ANY LETTERS NUMBERS & MOST PUNCTUATION)[145][145][145][145][145][145][145][145][145][145]"
  51. 7006 INPUT"ENTER BANNER STATEMENT";Q$
  52. 7007 PRINT"     [144]STANDBY"
  53. 7010 FORL=1TOLEN(Q$)
  54. 7020 P1$=MID$(Q$,L,1)
  55. 7030 READW$,I:IFW$="-1"THENRESTORE:GOTO7030
  56. 7040 IFW$=P1$THENPC=I:GOTO80
  57. 7050 GOTO7030
  58. 10000 DATA"A",1,"B",2,"C",3,"D",4,"E",5,"F",6,"G",7,"H",8,"I",9,"J",10,"K",11
  59. 10010 DATA"L",12,"M",13,"N",14,"O",15,"P",16,"Q",17,"R",18,"S",19,"T",20,"U",21
  60. 10020 DATA"V",22,"W",23,"X",24,"Y",25,"Z",26,"[",27,"\",28,"]",29,"^",30,"_",31
  61. 10030 DATA" ",32,"!",33,"'",39,"#",35,"$",36,"%",37,"&",38,"'",39,"(",40,")",41
  62. 10040 DATA"*",42,"+",43,",",44,"-",45,".",46,"/",47,"0",48,"1",49,"2",50,"3",51
  63. 10050 DATA"4",52,"5",53,"6",54,"7",55,"8",56,"9",57,":",58,";",59,"<",60,"=",61
  64. 10060 DATA">",62,"?",63,"6",54,"7",55,"8",56,"9",57,":",58,";",59,"<",60,"=",61
  65. 10070 DATA"-1",-1
  66. 20000 POKE53281,6:       PRINT"[147]   (RETURN =  [146])[145][145][145]"
  67. 20001 INPUT"ENTER BASE CHARACTER";BC$:IFBC$=""THENBC$="[223]"
  68. 20002 BC=ASC(BC$):PRINT"[147]";:POKE53281,0:PRINT"         SELECT  CHARACTER  SIZE"
  69. 20003 PRINT""
  70. 20005 PRINT"          **"
  71. 20006 PRINT"         ****"
  72. 20007 PRINT"         ****"
  73. 20008 PRINT"        **  **       *"
  74. 20009 PRINT"        **  **      ***"
  75. 20010 PRINT"        ******     ** **     *"
  76. 20011 PRINT"        **  **     *****    * *"
  77. 20012 PRINT"        **  **     ** **    ***"
  78. 20013 PRINT"        **  **     ** **    * *"
  79. 20014 PRINT
  80. 20015 PRINT"          1[146]          2[146]       3[146]"
  81. 20016 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  82. 20017 GETCS$:CS=VAL(CS$):IFCS$=""THEN20017
  83. 20018 IFCS<1ORCS>3THENPRINT"OUT OF RANGE":GOTO20017
  84. 20019 PRINT"[147]":POKE53281,6
  85. 20020 GOSUB50000:ONCSGOTO21000,22000,23000
  86. 20999 REM**C6=TALL
  87. 21000 CS$=CHR$(BC):Z5=8:Z6=1:WI=8:C6=4:C6$=" ":GOTO24000:REM C6 WAS 4
  88. 22000 CS$=CHR$(BC):Z5=8:Z6=1:WI=8:C6=2:C6$=" ":GOTO24000
  89. 23000 CS$=CHR$(BC):Z5=8:Z6=2:WI=8:C6=1:C6$=" ":GOTO24000
  90. 24000 RETURN
  91. 30000 PRINT"[147]"
  92. 30001 PRINTTAB(M)"*****    **   **   ** **   ** **** ****"
  93. 30002 PRINTTAB(M)"******  ****  **   ** **   ** **** ** **";
  94. 30003 PRINTTAB(M)"**  ** **  ** ***  ** ***  ** **   ** **";
  95. 30004 PRINTTAB(M)"*****  ****** **** ** **** ** ***  ** **";
  96. 30005 PRINTTAB(M)"*****  ****** ** **** ** **** ***  ****"
  97. 30006 PRINTTAB(M)"**  ** **  ** **  *** **  *** **   ** **";
  98. 30007 PRINTTAB(M)"****** **  ** **   ** **   ** **** ** **";
  99. 30008 PRINTTAB(M)"*****  **  ** **   ** **   ** **** ** **";
  100. 30009 PRINT"[158]BY J. BLESSING 2/23/84"
  101. 30010 PRINT"[158]MODIFIED FOR USE WITH 1520 ON 3/19/87"
  102. 30020 FORTM=1TO1500:NEXTTM:PRINT"":RETURN
  103. 50000 PRINT"[147]":PRINT"SELECT DENSITY:"
  104. 50010 PRINT"    1[146]  40 COLUMN"
  105. 50020 PRINT"    2[146]  80 COLUMN"
  106. 50030 PRINT"NOTE: 40 COLUMN:FAST PRINT"
  107. 50040 PRINT"      80 COLUMN:DARKER,TAKES LONGER"
  108. 50050 PRINT"         (BOTH ARE SAME SIZE)"
  109. 50060 GETD1$:IFD1$="1"ORD1$="2"THEN50070
  110. 50065 GOTO50060
  111. 50070 IFD1$="1"THENJ1=0:PRINT#3,1
  112. 50080 IFD1$="2"THENJ1=1:PRINT#3,0
  113. 51000 PRINT"[147]":POKE53281,11:  PRINT"SELECT COLOR:"
  114. 51010 PRINT"[144]    0[146]  BLACK"
  115. 51020 PRINT"    1[146]  BLUE"
  116. 51030 PRINT"    2[146]  GREEN"
  117. 51040 PRINT"    3[146]  RED"
  118. 51050 GETZ10$:Z10=VAL(Z10$):IFZ10$=""THEN51050
  119. 51060 IFZ10<0THEN51050
  120. 51065 IFZ10>3THEN51050
  121. 51070 PRINT#2,Z10:PRINT"[147]":POKE53281,14
  122. 60000 RETURN
  123.