home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / hi-res demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.6 KB  |  85 lines
  1. 70 poke53280,0:poke53281,0:ifpeek(56)=136andpeek(36863)=142then100
  2. 80 poke56,136:clr:dv=peek(186):ifdv<8ordv>16thendv=8
  3. 90 load"hires writer 2",dv,1
  4. 100 sys35840:m=36218:p=36280:forj=0to4:readm$(j):next:ss$="                    "
  5. 110 tt$="hi-res writer
  6.  version 2.0 "
  7. 120 tt$=tt$+"
  8. "
  9. 130 print"":sysm,"{CBM-J}",1000
  10. 140 printtt$:print" l exit to LOADSTAR   q exit to BASIC "
  11. 150 forj=0to4:print" "chr$(j+49)" "left$(" "+m$(j)+ss$,30)
  12. 160 next
  13. 170 wait198,255:geta$:sysm,"",12
  14. 180 ifa$="q"thengosub480:end
  15. 190 ifa$="l"then500
  16. 200 ifa$<"1"ora$>"5"then170
  17. 210 on val(a$) goto 220,270,300,330,360
  18. 220 print"
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25. ":forj=1to3:print"";:fork=0to31
  26. 230 printchr$(k+j*32);:next:print:next
  27. 240 print"";:forj=160to191:printchr$(j);:next
  28. 250 poke198,0:wait198,255
  29. 260 print"":sysm,"",11:sysm,"{CBM-J}",479:goto170
  30. 270 print"
  31.  
  32.  
  33.  
  34.  
  35.  
  36. ":forj=2to5:print"";:fork=0to15
  37. 280 printchr$(k+j*16);:next:print:next
  38. 290 goto 250
  39. 300 print"
  40.  
  41.  
  42.  
  43.  
  44.  
  45. ":forj=2to5:print"";:fork=0to15
  46. 310 printchr$(k+j*16);:next:print:print:next
  47. 320 goto 250
  48. 330 print"
  49.  
  50.  
  51.  
  52.  
  53.  
  54. ":forj=10to28step2:print
  55. 340 print""j" ";:sysm,"*",j-1:next
  56. 350 goto250
  57. 360 a$=chr$(0)+"?"+chr$(119)+chr$(126)+chr$(103)+chr$(104)+"?"+chr$(0)
  58. 370 a$=a$+chr$(0)+chr$(252)+chr$(238)+chr$(126)+chr$(230)+chr$(22)
  59. 380 a$=a$+chr$(252)+chr$(0)
  60. 390 print"
  61.  
  62.  
  63.  
  64.  
  65.  
  66. ":forj=1to9:print
  67. 400 print""j" ";:sysp,a$,j:next
  68. 410 goto250
  69. 420 poke198,0:wait198,255:print"":sys35851:print
  70. 430 data normal (8x8) character set
  71. 440 data wide (16x8) character set
  72. 450 data large (16x16) character set
  73. 460 data multiple print demonstration
  74. 470 data pattern print demonstration
  75. 480 print"":poke788,49:sys35851
  76. 490 poke53281,0:poke646,8:return
  77. 500 gosub480:poke186,dv:poke56,160:clr:dv=peek(186)
  78. 510 goto60000
  79. 60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  80. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  81. 60020 next:print"":poke186,8:end
  82. 60030 q$=chr$(34):poke646,peek(53281):print""
  83. 60040 print"pO2048,0:pO44,8:pO43,1:pO56,160:pO55,0:clr:lO"q$a$q$","i
  84. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  85.