BASIC Vertical Scroller

Basic and Machine Language

Moderator: Moderators

Legacy
Vic 20 Enthusiast
Posts: 154
Joined: Wed Dec 31, 2008 4:01 pm

BASIC Vertical Scroller

Post by Legacy »

here is a vert scroller that needs some help:

Code: Select all

10 rem default val 36865,38 (pal)
20 poke 36879,8
30 print"[clr/yel]"
40 poke 36865,150
50 print "a long time ago in a"
60 print ""
70 print " galaxy far far away"
90 print ""
100 print "    was born the"
150 print ""
160 print "      mos 6502"
210 print ""
220 print "    microprocessor"
270 print ""
280 print " the rest is history"
300 for i = 149 to 0 step -.5
305 poke 36865,i
310 for t = 1 to 50:next
320 next i

Hehe, sorry RAIDER, thanks for the tip, I should've seen it myself but I was just happy to get the movement synch'd with production of text, didn't mean to make you look bad, your idea is much better and saved like 1000 lines of code! woot
Last edited by Legacy on Wed Feb 04, 2009 2:31 pm, edited 7 times in total.
DELETED

Post by DELETED »

DELETED
Richard James
Vic 20 Devotee
Posts: 269
Joined: Mon Feb 04, 2008 6:06 am

Post by Richard James »

Hey that is pretty Awesome for a BASIC program. Good use of technical knowledge applied to a simple piece of hardware can produce amazing effects. Your half way to creating a demo in BASIC.
Change is inevitable except from a vending machine.
DELETED

Post by DELETED »

DELETED
User avatar
orion70
VICtalian
Posts: 4341
Joined: Thu Feb 02, 2006 4:45 am
Location: Piacenza, Italy
Occupation: Biologist

Post by orion70 »

Very nice! It would be a perfect alternative to the "tele-type like" on-screen instructions seen in the loader of many tap games. While "tele-type" was more reminiscent of early 1980s computers, this style fits more with the "Star Wars" movie intro, thus being 1980sh again. :D
User avatar
Pedro Lambrini
Vic 20 Scientist
Posts: 1132
Joined: Mon Dec 01, 2008 11:36 am

Post by Pedro Lambrini »

Could be a really nice intro for a game. Bluestar (when's Bluestar 2 coming Kweepa?! :P) or Dragonwing with this scroller would be really cool.

Very impressive stuff. The VIC and the people in this scene never cease to amaze me! :)
rhurst
Omega Star Commander
Posts: 1371
Joined: Thu Jan 31, 2008 2:12 pm
Website: https://robert.hurst-ri.us
Location: Providence, RI
Occupation: Tech & Innovation

Post by rhurst »

MRaider:
Personally, I'd move the screen out of view and fully populate it with the desired text, and then start twiddling 36865 to scroll it vertically into view
Dude, what are you smoking? :shock: That's what's being done here. :roll:

Couldn't help myself, I batted cleanup in my heyday! :P
DELETED

Post by DELETED »

DELETED
DELETED

Post by DELETED »

DELETED
User avatar
Mike
Herr VC
Posts: 4842
Joined: Wed Dec 01, 2004 1:57 pm
Location: Munich, Germany
Occupation: electrical engineer

Post by Mike »

This one uses a smaller ball 8) :

Code: Select all

1 X=55:Y=60:DX=1:DY=1:@ON:@CLR
2 X2=X+DX:IFX2=0ORX2=159THENDX=-DX
3 Y2=Y+DY:IFY2=0ORY2=191THENDY=-DY
4 @0,X,Y:@1,X2,Y2:X=X2:Y=Y2:GOTO2
Run it with MINIGRAFIK active.
Last edited by Mike on Thu Feb 05, 2009 7:04 am, edited 1 time in total.
DELETED

Post by DELETED »

DELETED
User avatar
Mike
Herr VC
Posts: 4842
Joined: Wed Dec 01, 2004 1:57 pm
Location: Munich, Germany
Occupation: electrical engineer

Post by Mike »

I could add a POKE36879,25 somewhere. ;)
DELETED

Post by DELETED »

DELETED
User avatar
orion70
VICtalian
Posts: 4341
Joined: Thu Feb 02, 2006 4:45 am
Location: Piacenza, Italy
Occupation: Biologist

Post by orion70 »

It's interesting to see what can be done with the humble VIC in a few lines of BASIC code - wonder why they didn't use it back in the day for games intro, electronic journals, and so on.

Also, Minigrafik proves to be very powerful in everything concerning graphics (excuse my naïveté). BTW Mike, if you could post code in lower case, it would be better, because one can directly copy and paste it in VICE. :wink:
DELETED

Post by DELETED »

DELETED
Post Reply