BASIC Musings

[Opry99er]

This is a ripoff of a Sometimes99er BASIC musing from way back. =) He created the brick scrolling, and I simply added the text and the SPRITE.

 

 

 

 

1 CALL CLEAR :: CALL SCREEN(2)
10 GOSUB 6030
100 CALL MAGNIFY(3)
110 CALL CHAR(96,"0F1F1C1C1E1F0F03030307070202020384C4241424C4841FC43C040480804070")
120 CALL CHAR(100,"0F1F1C1C1E1F0F03030307070303030380C0201020C18204A8502840000080E0")
130 CALL CHAR(104,"0F1F1C1C1E1F0F03030307070305080E80C0201020C080000040FF4080008070")
140 CALL CLEAR
150 CALL SCREEN(2)
151 DISPLAY AT(15,10):"THE LEGEND";
152 DISPLAY AT(17,6):"OF BERYL REICHARDT";
153 FOR I=5 TO 8 :: CALL COLOR(I,16,1) :: NEXT I
160 CALL CHAR(33,"FF")
170 CALL HCHAR(1,1,40,256)
180 CALL HCHAR(8,1,33,32)
190 CALL COLOR(1,15,1)
200 CALL COLOR(2,15,7)
210 CALL SPRITE(#1,96,2,42,100)
220 CALL PATTERN(#1,96)
230 CALL CHAR(40,"FF202020FF020202")
240 CALL CHAR(40,"FF404040FF040404")
250 CALL PATTERN(#1,100)
260 CALL CHAR(40,"FF808080FF080808")
270 CALL CHAR(40,"FF010101FF10101")
280 CALL PATTERN(#1,104)
290 CALL CHAR(40,"FF020202FF20202")
300 CALL CHAR(40,"FF040404FF40404")
310 CALL PATTERN(#1,100)
320 CALL CHAR(40,"FF080808FF80808")
330 CALL CHAR(40,"FF101010FF010101")
340 GOTO 220
6030 REM  CHARACTER DEFINITIONS
6032 CALL CHAR(32,"0")
6033 CALL CHAR(33,"18181818001818")
6034 CALL CHAR(34,"333366")
6035 CALL CHAR(35,"6666FF66FF6666")
6036 CALL CHAR(36,"183E603C067C18")
6037 CALL CHAR(37,"62660C18306646")
6038 CALL CHAR(38,"3C663C3867663F")
6039 CALL CHAR(39,"0C0C18")
6040 CALL CHAR(40,"0C18303030180C")
6041 CALL CHAR(41,"30180C0C0C183")
6042 CALL CHAR(42,"00663CFF3C66")
6043 CALL CHAR(43,"0018187E1818")
6044 CALL CHAR(44,"000000000018183")
6045 CALL CHAR(45,"0000006E3B")
6046 CALL CHAR(46,"00000000001818")
6047 CALL CHAR(47,"0003060C18306")
6048 CALL CHAR(48,"3E63676B73633E")!NUMBERS
6049 CALL CHAR(49,"0C1C0C0C0C0C3F")
6050 CALL CHAR(50,"3E63630E38637F")
6051 CALL CHAR(51,"3E63630E63633E")
6052 CALL CHAR(52,"060E1E267F0606")
6053 CALL CHAR(53,"7F63607E03633E")
6054 CALL CHAR(54,"3E63607E63633E")
6055 CALL CHAR(55,"7F63060C18183C")
6056 CALL CHAR(56,"3E63633E63633E")
6057 CALL CHAR(57,"3E63633F03633E")
6058 CALL CHAR(58,"001818001818")
6059 CALL CHAR(59,"0018180018183")
6060 CALL CHAR(60,"0E18306030180E")
6061 CALL CHAR(61,"00007E007E")
6062 CALL CHAR(62,"70180C060C187")
6063 CALL CHAR(63,"7E6303061C001818")
6064 CALL CHAR(64,"3C666E6E60623C")
6065 CALL CHAR(65,"1C36637F636363")
6066 CALL CHAR(66,"6E73637E63637E")
6067 CALL CHAR(67,"1E33606060331E")
6068 CALL CHAR(68,"6C76636363667C")
6069 CALL CHAR(69,"7F31303C30317F")
6070 CALL CHAR(70,"7F31303C303078")
6071 CALL CHAR(71,"1E33606763371D")
6072 CALL CHAR(72,"6363637F636363")
6073 CALL CHAR(73,"3C18181818183C")
6074 CALL CHAR(74,"1F06060606663C")
6075 CALL CHAR(75,"66666C786C6763")
6076 CALL CHAR(76,"7830606063637E")
6077 CALL CHAR(77,"63777F6B636363")
6078 CALL CHAR(78,"63737B6F676363")
6079 CALL CHAR(79,"1C36636363361C")
6080 CALL CHAR(80,"6E73637E60606")
6081 CALL CHAR(81,"1C36636B67361D")
6082 CALL CHAR(82,"6E73637E6C6763")
6083 CALL CHAR(83,"3E63603E03633E")
6084 CALL CHAR(84,"7E5A181818183C")
6085 CALL CHAR(85,"7333636363763C")
6086 CALL CHAR(86,"73336363663C18")
6087 CALL CHAR(87,"7333636B7F7763")
6088 CALL CHAR(88,"6363361C366363")
6089 CALL CHAR(89,"336363361C787")
6090 CALL CHAR(90,"7F63061C33637E")
10000 RETURN

 

 

Edited March 3, 2011 by Opry99er

[Opry99er]

Wow--- I didn't estimate you had so many frames.... That's why it looks so damn smooth. Great job, buddy.

[unhuman]

Hrmmm - maybe we should compile our entries for BoCC - that'd be my first foray into asm - such a great cheat

 

The nice thing is--TI BASIC compiles nicely with Wilhelm's compiler. . It would be assembly speed

 

Didn't you say Wilhelm was willing to open source this if someone would take it over? I nominate you to add sprites and then you won't believe the stuff that'll pour out of me.

 

-H

[Opry99er]

One must be a very proficient assembly programmer to do such a thing. =) That excludes me... I'm a hack at best

[Tursi]

Greenwalker!

 

http://www.youtube.com/watch?v=TmeViPYgi5g

 

hehe.. nice animation, Bones!

[sometimes99er]

Basic musing with Speech Wave 2.4

 

 

EDIT: Media removed.

Edited November 15, 2013 by sometimes99er

[+OLD CS1]

Basic musing with Speech Wave 2.4

 

 

Big fibber!

[sometimes99er]

 

Basic musing with Speech Wave 2.4

 

Big fibber!

 

Was just supposed to be a bit of fun, a surprise and perhaps inspirational.