01: ' Welcome to the file dummies.bas for Raptor Basic +
02: ' As you seen there is a black screen when you build it
03: ' it's because you're not a great coder !
04: '
05: ' All lessons in the same file... One day ; One fart ; One file
06: '
07: '
08: ' So where is the code ?
09: '' start here !
10: ''' comments
11: ' < one " ' " it's the code !
12: ''' comments
13: ''
14: '
15: '
16: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
17: ''''''''''''''''''''''''''''''''''Lesson 1''''''''''''''''''''''''''''''''''''
18: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
19: '
20: ' At the first you need to know what is the basic !
21: '
22: ' 1864: Thomas Blanchard a distinguished inventor, especially noted
23: ' for his lathe for turning irregular forms died at Boston, Mass.
24: ' A century later 1964 : The original BASIC language was designed on May 1st
25: ' by John Kemeny and Thomas Kurtz and implemented by a team of Dartmouth
26: ' students under their direction. The acronym BASIC comes from the name
27: ' of an unpublished paper by Thomas Kurtz. BASIC was designed to allow
28: ' students to write mainframe computer programs for the Dartmouth
29: ' Time-Sharing System. It was intended specifically for less technical
30: ' users who did not have or want the mathematical background previously
31: ' expected. Being able to use a computer to support teaching and research
32: ' was quite novel at the time.
33: '
34: ' Remember the real name of the college is Dartmouth and not Fartmouth !
35: ' Seems there is no common between Basic and Thomas Blanchard.
36: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
37: '
38: ' Simple program displaying " Hello Jagworld " :
39: '
40: ''
41: ''' 8x8 police size :
42: basic_r_indx=0
43: ''' color red :
44: basic_r_size=1
45: ''' near the middle of the screen :
46: rlocate 100,112
47: ''' display the text on the screen :
48: rprint "Hello Jagworld"
49: '''
50: ''
51: '
52: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
53: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
54: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
55: '
56: '
57: '
58: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
59: ''''''''''''''''''''''''''''''''''Lesson 2''''''''''''''''''''''''''''''''''''
60: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
61: '
62: ' without variables coding something good is impossible
63: ' dim is what we need !
64: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
65: 'dim a
66: 'a=1
67: 
68: 
69: 
70: 
71: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
72: ''''''''''''''''''''''''''''''Lesson 42,5'''''''''''''''''''''''''''''''''''''
73: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
74: 'dim paddy as int
75: 'dim a
76: 'dim b
77: 'basic_r_indx=0
78: 'basic_r_size=0
79: 'paddy=32
80: 'a=5
81: 'b=10
82: 'RLOCATE 15,10
83: 'RPRINT "JHL 15 is the best hockey game !"
84: 
85: 'RLOCATE 80,35
86: 'print a+b
87: 'rlocate 10,50
88: 'print " Fart ! ",paddy,"abcdefghijklmntuvwxyz",123.237462376
89: 'RLOCATE 30,100
90: 'RPRINT "Press joypad stuff and see numbers!"
91: 'RLOCATE 10,120
92: 'do
93: '   paddy=getpad(1)
94: '   if paddy<>0 then
95: '       RPRINTINT paddy
96: '   endif
97: '   rupdall(0)
98: 'loop
99: