-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathAFFIRMATIONS_REV2C.BAS
112 lines (112 loc) · 4.66 KB
/
AFFIRMATIONS_REV2C.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
10 MODE 8
20 REM AFFIRMATIONS.BAS
21 PROC_Setup
22 PROC_ShowAffirmation
23 PROC_DrawTree(7,300,650,0,100)
25 PROC_ExitToBASIC
26 END
29 DEF PROC_Setup
30 W% = FN_GETBYTE_VDP(&13)
40 H% = FN_GETBYTE_VDP(&14)
50 C% = FN_GETBYTE_VDP(&15)
55 DBLH$ = CHR$(141)
56 FLSH$ = CHR$(136)
60 bg=128+(RND(C%+1)-1)
70 fg=RND(C%+1)-1
80 IF fg + 128 = bg THEN fg=fg + 5
90 COLOUR bg:COLOUR fg:CLS
95 ENDPROC
97 DEF PROC_ShowAffirmation
100 PRINTTAB((W%-32)/2,1)"POSITIVE AFFIRMATION OF THE DAY"
110 REM PRINT "WIDTH OF SCREEN: ";W%
120 DIM AFFIRMATIONS$(31)
130 AFFIRMATIONS$(0) = "I AM CAPABLE OF ACHIEVING MY GOALS"
140 AFFIRMATIONS$(1) = "I AM WORTHY OF LOVE AND RESPECT"
150 AFFIRMATIONS$(2) = "I AM STRONG AND RESILIENT"
160 AFFIRMATIONS$(3) = "I AM CONFIDENT IN MY ABILITIES"
170 AFFIRMATIONS$(4) = "I AM A SOURCE OF STRENGTH FOR OTHERS"
180 AFFIRMATIONS$(5) = "I AM GROUNDED AND STEADY"
190 AFFIRMATIONS$(6) = "I AM COMMITTED TO MY PERSONAL GROWTH"
200 AFFIRMATIONS$(7) = "I AM RESPECTED AND VALUED"
210 AFFIRMATIONS$(8) = "I AM DESERVING OF SUCCESS AND HAPPINESS"
220 AFFIRMATIONS$(9) = "I AM FOCUSED AND DRIVEN"
230 AFFIRMATIONS$(10) = "I AM PROUD OF WHO I AM"
240 AFFIRMATIONS$(11) = "I AM CONSTANTLY LEARNING AND EVOLVING"
250 AFFIRMATIONS$(12) = "I AM IN CONTROL OF MY DESTINY"
260 AFFIRMATIONS$(13) = "I AM A LEADER AND INSPIRE OTHERS"
270 AFFIRMATIONS$(14) = "I AM COURAGEOUS IN THE FACE OF CHALLENGES"
280 AFFIRMATIONS$(15) = "I AM GRATEFUL FOR THE PRESENT MOMENT"
290 AFFIRMATIONS$(16) = "I AM BUILDING A LIFE OF ABUNDANCE"
300 AFFIRMATIONS$(17) = "I AM DESERVING OF LOVE AND RESPECT"
310 AFFIRMATIONS$(18) = "I AM AT PEACE WITH WHO I AM"
320 AFFIRMATIONS$(19) = "I AM A POSITIVE INFLUENCE ON THOSE AROUND ME"
330 AFFIRMATIONS$(20) = "I AM RESPONSIBLE AND DEPENDABLE"
340 AFFIRMATIONS$(21) = "I AM ALIGNED WITH MY PURPOSE"
350 AFFIRMATIONS$(22) = "I AM WORTHY OF ACHIEVING MY DREAMS"
360 AFFIRMATIONS$(23) = "I AM A SOURCE OF POSITIVITY AND LIGHT"
370 AFFIRMATIONS$(24) = "I AM SUCCESSFUL IN ALL AREAS OF MY LIFE"
380 AFFIRMATIONS$(25) = "I AM IN TUNE WITH MY INNER STRENGTH"
390 AFFIRMATIONS$(26) = "I AM A FORCE FOR GOOD IN THE WORLD"
400 AFFIRMATIONS$(27) = "I AM FILLED WITH ENERGY AND VITALITY"
410 AFFIRMATIONS$(28) = "I AM OPEN TO GROWTH AND TRANSFORMATION"
420 AFFIRMATIONS$(29) = "I AM CONFIDENT IN MY CHOICES"
430 AFFIRMATIONS$(30) = "I AM GRATEFUL FOR THE JOURNEY I AM ON"
440 AFFIRMATIONS$(31) = "I AM PROUD OF THE PERSON I AM BECOMING"
450 i=RND(32)-1
460 split% = INSTR(AFFIRMATIONS$(i), " ", LEN(AFFIRMATIONS$(i))/3)
480 PRINTTAB((W%-4)/2,2)"SAY:"
490 left_text_1$ = LEFT$(AFFIRMATIONS$(i), split%)
500 mid_text_2$ = MID$(AFFIRMATIONS$(i), split% + 1)
510 split_2 = INSTR(mid_text_2$, " ", LEN(mid_text_2$)/2)
515 mid_text_2a$ = LEFT$(mid_text_2$, split_2)
520 right_text_3$ = MID$(mid_text_2$, split_2 + 1)
525 PRINT TAB((W%-LEN(left_text_1$))/2,3);left_text_1$
526 REM PRINT TAB((W%-LEN(left_text_1$))/2,4);FLSH$;DBLH$;left_text_1$
527 PRINT TAB((W%-LEN(mid_text_2a$))/2,4);mid_text_2a$
528 REM PRINT TAB((W%-LEN(mid_text_2a$))/2,6);FLSH$;DBLH$;mid_text_2a$
529 PRINT TAB((W%-LEN(right_text_3$))/2,5);right_text_3$
530 REM PRINT TAB((W%-LEN(right_text_3$))/2,8);FLSH$;DBLH$;right_text_3$
531 MOVE 650,0:VDU 23, 1, 0
532 X=GET
535 ENDPROC
536 :
538 DEF PROC_ExitToBASIC
539 KEY = GET
540 end_text$ = "READY TO LEARN AGON!":end_text_length = LEN(end_text$)
541 MODE 8:COLOUR 128 + 4:COLOUR 9:VDU 23, 1, 1:CLS:PRINTTAB((W%-end_text_length)/2,1) end_text$':COLOUR 2
542 ENDPROC
543 :
550 REM GET SYSTEM VARIABLES
560 DEF FN_GETBYTE_VDP(V%)
570 A% = &A0
580 L% = V%
590 = USR(&FFF4)
600 :
601 REM TREE
602 REM Sourced from
603 REM https://youtu.be/EQrnlK37Qho?si=2tOtH_Lpx6kiC4mq&t=372
604 REM Uncomment line 125 for colour version
605 :
610 REM ------------RECURSIVE TREE------------
620 REM BY ANDY FANDANGO @PIXEL_FANDANGO
630 :
640 REM MODE 20
650 REM TIME=0
660 REM MOVE 0,500
670 REM PROC_DrawTree(7,300,500,0,100)
680 REM @%=&0002020A
690 REM PRINT "TIME TAKEN: "; TIME/100
700 REM @%=0
710 END
715 :
720 DEF PROC_DrawTree(i,x,y,a,l)
725 GCOL 0,RND(16)
730 da=RND(9)*0.1
732 IF i > 5 DRAW y,x+2 ELSE IF i > 3 DRAW y,x+1 ELSE DRAW y,x
734 IF i > 5 DRAW y,x-2 ELSE IF i > 3 DRAW y,x-1 ELSE DRAW y,x
740 REM DRAW y,x
750 IF i=0 ENDPROC
760 PROC_DrawTree(i-1,x+RND(l)*COS(a-da),y+l*SIN(a-da),a-da,l*.9)
770 MOVE y,x
780 PROC_DrawTree(i-1,x+l*COS(a+da),y+RND(l)*SIN(a+da),a+da,l*.9)
790 ENDPROC