home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / pscardco.arc / BANNER.V (.txt) < prev    next >
Commodore BASIC  |  1993-04-28  |  2KB  |  56 lines
  1. 2 REM 20/SETUP
  2. 3 REM(null)
  3. 4 POKE788,194:POKE37150,2
  4. 5 GOTO18
  5. 6 REM(null) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) VAL. MID$. (null)RIGHT$(null)(null)VAL(null)(null) ASCOR LENATN(null)STR$LEN(null), RIGHT$NC.  -  1983
  6. 7 POKE788,194:POKE37150,2
  7. 8 REM(null)
  8. 11 PRINT" [157]";:FORI=0TO40:GETA$:IFA$<>""THENRETURN
  9. 14 NEXT:PRINT" [146][157]";:FORI=1TO30:GETA$:IFA$<>""THENPRINT" [157]";:RETURN
  10. 17 NEXT:GOTO11
  11. 18 REM(null)
  12. 19 REM(null)
  13. 20 PRINT"[147][144]":POKE36879,25
  14. 21 REM(null)
  15. 22 REM(null)
  16. 23 PRINTCHR$(14+128)CHR$(8)"BANNER HEADLINE"
  17. 26 PRINT"FOR THE  VIC-20"
  18. 29 PRINT"BY E.J. LIPPERT"
  19. 32 PRINT"FOR CARDCO, INC"
  20. 35 K=16:GOSUB77
  21. 36 IFFRE(0)<17000THENPRINT"[147]YOU HAVE INSUFFICIENT MEMORY. THIS PROGRAM  REQUIRES 16K"
  22. 37 IFFRE(0)<17000THENNEW
  23. 47 PRINT"[147]":POKE36879,25
  24. 50 PRINT""CHR$(14)"[211]PECIFY PRINTER TYPE"
  25. 53 PRINT" 1. [197]PSON  [205] [216]  [211]ERIES"
  26. 56 PRINT" 2. [197]PSON  [198] [216]  [211]ERIES"
  27. 59 PRINT" 3. [211][212][193][210] [199]EMINI [211]ERIES"
  28. 62 PRINT" 4. [208]ROWRITER OR [195][201]TOH"
  29. 65 PRINT"[197]NTER YOUR CHOICE NOW (1 TO 4 PLEASE)  ";
  30. 68 GOSUB11:PU=VAL(A$):IF(PU=0)OR(PU>4)THENGOTO68
  31. 71 PRINT"[147]":POKE53280,5
  32. 74 GOTO113
  33. 77 REM(null) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) VAL.MID$. (null)RIGHT$(null)(null)VAL(null)(null) ASCOR LENATN(null)STR$LEN(null), RIGHT$NC.  -  1983
  34. 78 POKE680,223:PRINT"PRESS ANY KEY[146]"
  35. 80 IFPEEK(36879)=31THENPOKE36879,25:GOTO86
  36. 81 POKE36879,PEEK(36879)+2
  37. 86 FORI=1TO20
  38. 89 GETA$:IFA$=""THENNEXT:GOTO95
  39. 92 GOTO104
  40. 95 PRINT"PRESS ANY KEY"
  41. 98 FORI=1TO20
  42. 101 GETA$:IFA$=""THENNEXT:GOTO78
  43. 104 POKE36879,25:RETURN
  44. 113 PRINT"[147][208]LEASE SELECT EITHER:"
  45. 116 PRINT"1. [199]OTHIC [211]TYLE [212]YPE"
  46. 119 PRINT"         [207][210]        "
  47. 122 PRINT"2. [205]AGNETIC [211]TYLE [212]YPE"
  48. 125 PRINT"[197]NTER [217]OUR [195]HOICE [206]OW"
  49. 128 GOSUB11:TS=VAL(A$):IF(TS=0)OR(TS>2)THENGOTO128
  50. 129 POKE((256*2)+(15*16)),PU:ONTSGOTO140,150
  51. 140 POKE198,6:POKE631,13:POKE632,147:POKE633,82:POKE634,85:POKE635,78:POKE636,13
  52. 141 PRINT"LOAD"CHR$(34)"GOTHIC/20"CHR$(34)",8[144]LOADING";:END
  53. 150 POKE198,6:POKE631,13:POKE632,147:POKE633,82:POKE634,85:POKE635,78:POKE636,13
  54. 151 PRINT"LOAD"CHR$(34)"MAGTYPE/20"CHR$(34)",8[144]LOADING";:END
  55. 152 POKE631,131:POKE198,1
  56.