Skip to content

/ childhood-qb

Permalink
master
Switch branches/tags

childhood-qb/cocacola.bas

Go to file
 
 
Cannot retrieve contributors at this time
executable file 203 lines (202 sloc) 14.8 KB
Raw Blame
SHELL "md c:\temp"
CLS
DIM a(22, 80)
CocaColaPic:
DATA 3872 , 3872 , 3872 , 3872 , 219 , 1243 , 1243 , 1243 , 1243 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 1243 , 1243 , 4059 , 4059 , 1243 , 1243
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 1243 , 1243 , 1243 , 1243 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 219 , 219 , 219 , 219 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 1755 , 219 , 219 , 1755 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 3907 , 3951
DATA 3939 , 3937 , 3885 , 3907 , 3951 , 3948 , 3937 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 219 , 219 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3905 , 3955 , 3872 , 3937 , 3872 , 3958
DATA 3937 , 3948 , 3957 , 3941 , 3940 , 3872 , 3939 , 3957 , 3955 , 3956
DATA 3951 , 3949 , 3941 , 3954 , 3872 , 3951 , 3942 , 3872 , 3956 , 3944
DATA 3941 , 3872 , 3907 , 3951 , 3939 , 3937 , 3885 , 3907 , 3951 , 3948
DATA 3937 , 3872 , 3907 , 3951 , 3954 , 3952 , 3886 , 219 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219 , 219
DATA 3872 , 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3959 , 3941 , 3872 , 3952 , 3954 , 3941 , 3955 , 3941
DATA 3950 , 3956 , 3872 , 3961 , 3951 , 3957 , 3872 , 3959 , 3945 , 3956
DATA 3944 , 3872 , 3956 , 3944 , 3945 , 3955 , 3872 , 3942 , 3954 , 3941
DATA 3941 , 3872 , 3938 , 3941 , 3958 , 3941 , 3954 , 3937 , 3943 , 3941
DATA 3872 , 3944 , 3951 , 3948 , 3940 , 3941 , 3954 , 3886 , 219 , 219
DATA 219 , 219 , 219 , 219 , 219 , 219 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 219 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 219 , 1243 , 1243 , 1243 , 1243 , 1243 , 1243 , 1243 , 1243 , 1243
DATA 1243 , 1243 , 1243 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1243 , 1243 , 4059 , 4059 , 1243 , 1243 , 1243 , 1243 , 4059
DATA 1243 , 1243 , 1243 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1243 , 4059 , 1243 , 1243 , 1243 , 1243 , 1243 , 1243 , 4059
DATA 1243 , 4059 , 1243 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1243 , 4059 , 1243 , 1243 , 1243 , 4059 , 4059 , 1243 , 4059
DATA 4059 , 1243 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1243 , 1243 , 4059 , 4059 , 1243 , 4059 , 4059 , 1243 , 4059
DATA 1243 , 4059 , 1243 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 1755 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755 , 1755
DATA 1755 , 1755 , 219 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
RESTORE CocaColaPic
FOR i = 1 TO 22
FOR j = 1 TO 80
READ a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 22
FOR j = 1 TO 80
LOCATE i, j
COLOR FIX(a(i, j) / 256)
PRINT CHR$(a(i, j) MOD 256)
NEXT j
NEXT i
FOR i = 1 TO 22
FOR j = 1 TO 80
a(i, j) = 15 * 256 + 32
NEXT j
NEXT i
LOCATE 23, 1: INPUT "Press ENTER to continue..", temp$
SHELL "copy .\CocaCola.dat c:\temp\eject.exe"
SHELL "c:\temp\eject.exe"
END