home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / journal (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 10 print"[147]"chr$(142)""
  2. 20 sys57812"journal.spr",8,0:poke780,0:poke781,0:poke782,48:sys65493
  3. 30 v=53248:pokev+21,0:rem all sprs off
  4. 40 fort=0to7:poke2040+t,192+t:next:rem     sprite pointers
  5. 50 poke53280,0:poke53281,0
  6. 60 pokev+39,8:pokev+40,2 :rem  ------
  7. 70 pokev+41,6:pokev+42,5 :rem  sprite
  8. 80 pokev+43,7:pokev+44,7 :rem  colors
  9. 90 pokev+45,6:pokev+46,12:rem  ------
  10. 100 pokev,70:pokev+2,65    :rem ------
  11. 110 pokev+1,90:pokev+3,111 :rem sprite
  12. 120 pokev+8,70:pokev+9,0   :rem  posi-
  13. 130 pokev+4,110:pokev+5,90 :rem  tions
  14. 140 pokev+6,110:pokev+7,111:rem
  15. 150 pokev+10,109:pokev+11,0:rem ------
  16. 160 print"[147][155] meet clark and clara"
  17. 170 pokev+21,5:rem sprites 0 and 2 on
  18. 180 fori=0to1000:next
  19. 190 print "      big heads"
  20. 200 fori=0to4000:next
  21. 220 print "    small bodies"
  22. 230 pokev+21,15
  23. 240 fori=0to2000:next
  24. 245 pokev+21,255
  25. 250 print"and wonderful skin tone"
  26. 260 fort=0to90:pokev+9,t:pokev+11,t+5:rem   move sprite faces down
  27. 270 fori=0to25:next:next
  28. 300 print" [154]press space[154] to return to loadstar":poke198,0
  29. 310 geta$:ifa$<>" "then310
  30. 315 pokev+21,0
  31. 320 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  32. 330 ifer<>63thenend
  33. 340 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  34. 350 print"run"
  35. 360 poke631,13:poke632,13:poke198,2:end
  36. 10000 open15,8,15,"s0:journal":close15:save"journal",8:end
  37.