home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PRINT-AT-ROUTINE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  42 lines
  1. 0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN:    *:: C-64 LOOKING FORWARD TO 2000 ::*
  2. 10 :
  3. 20 POKE53280,6:POKE53281,6:GOSUB220:PRINT"[147]EZ PRINT AT ROUTINE...
  4. 30 [153]"- - - - - - - - - - - - - - - - - - - -":D[178]30
  5. 40 [153]"SYSZ,COL,ROW,"[199](34)"TEXT,STRINGS OR VARIABLES"[199](34)
  6. 45 [158]Z,5,4,"(PRINT STATEMENT IS NOT USED)":[141]
  7. 50 D[178]30:[158]Z,6,23,"YOU CAN PRINT WAY DOWN HERE":[141]
  8. 60 [158]Z,8,7,"BACK UP HERE!":[141]
  9. 70 [158]Z,22,17,"OR WAY OVER HERE!":[141]
  10. 80 [158]Z,4,11,"GO JUST ANY WHERE YOUR LIL' OLD
  11. 90 SYSZ,12,12,"HEART DESIRES.":GOSUB
  12. 100 C$="COWS=":SYSZ,15,14,C$:GOSUB
  13. 110 C=5:SYSZ,20,14,C:GOSUB
  14. 120 FORT=23TO4STEP-1:POKE781,T:SYS59903:NEXT
  15. 130 SYSZ,1,6,"TO USE, DO THIS [192]
  16. 140 [158]Z,2,8,"10 SYSZ,COL,ROW,"[199](34)"TEXT GOES HERE"[199](34)
  17. 150 [158]Z,2,9,"12 C$="[199](34)"COWS="[199](34)":SYSZ,COL,ROW,C$
  18. 160 SYSZ,2,10,"14 C=5:SYSZ,COL,ROW,C
  19. 170 [158]Z,2,13,"CAN ALSO BE USED FOR KEYBOARD
  20. 180 SYSZ,2,15,"CHARACTER ANIMATION..."
  21. 190 GOSUB260:SYSZ,2,12,"[154]HERE'S THE WHOLE PROGRAM [192]"
  22. 200 PRINT"    (MAY BE RELOCATED)":LIST220-240:END
  23. 220 Z=700:FORT=ZTOZ+26:READA:POKET,A:NEXT
  24. 230 DATA 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  25. 240 DATA 240,255,32,253,174,76,164,170,0
  26. 250 RETURN
  27. 260 SYSZ,9,20,"PRESS <SPACE> FOR DEMO"
  28. 270 GETG$:IFG$<>" "THEN270
  29. 280 FORJ=13TO22:POKE781,J:SYS59903:NEXT
  30. 290 FORJ=1    
  31. 11354 11,21,"[150][215][157][157][159][206][205][157][157][157][186][208] [144][209]":D=10:GOSUB
  32. 300 SYSZ,11,22,"[159][165][157][144][209] ":D=5:GOSUB:SYSZ,28,23,"[152][182][182][182][182][182]
  33. 310 [158]Z,11,22,"OPEN(null)CMD STOP(null)":D[178]1:[141]:Y[178]12
  34. 320 [129]T[178]1[164]20:[158]Z,Y,23," (null)":D[178].5:[141]
  35. 330 [139]T[177]14[167][151]54296,0:[151]54296,15
  36. 340 Y[178]Y[170]1:[130]:[158]Z,Y,23," "
  37. 350 [158]Z,12,21,"CONT'ONSYSSTRIKE!"
  38. 360 [158]Z,9,23,"  SQR(null)":D[178]20:[141]
  39. 365 [158]Z,12,21," ON       "
  40. 370 [158]Z,9,23,"SQR(null) STOP(null)":[141]:[130]J
  41. 380 [129]J[178]13[164]23:[151]781,J:[158]59903:[130]:[142]
  42.