-
Notifications
You must be signed in to change notification settings - Fork 0
/
affirmations_mode7.bas
101 lines (101 loc) · 4.4 KB
/
affirmations_mode7.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
10 MODE 7
20 REM AFFIRMATIONS.BAS
30 W% = FN_GETBYTE_VDP(&13)
40 H% = FN_GETBYTE_VDP(&14)
50 C% = FN_GETBYTE_VDP(&15)
54 CL$ = CHR$(8)
55 DBLH$ = CHR$(141)
56 FLSH$ = CHR$(136)
57 RED$ = CHR$(129)
58 GRN$ = CHR$(130)
59 YEL$ = CHR$(131)
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
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,4)CL$;CL$;CL$;RED$;FLSH$;DBLH$;left_text_1$
526 PRINT TAB((W%-LEN(left_text_1$))/2,5)CL$;CL$;CL$;RED$;FLSH$;DBLH$;left_text_1$
527 PRINT TAB((W%-LEN(mid_text_2a$))/2,7)CL$;CL$;CL$;YEL$;FLSH$;DBLH$;mid_text_2a$
528 PRINT TAB((W%-LEN(mid_text_2a$))/2,8)CL$;CL$;CL$;YEL$;FLSH$;DBLH$;mid_text_2a$
529 PRINT TAB((W%-LEN(right_text_3$)-1)/2,10)CL$;CL$;CL$;GRN$;FLSH$;DBLH$;right_text_3$
530 PRINT TAB((W%-LEN(right_text_3$)-1)/2,11)CL$;CL$;CL$;GRN$;FLSH$;DBLH$;right_text_3$
531 MOVE 650,0:VDU 23, 1, 0
532 PROC_DrawTree(7,300,650,0,100)
535 X=GET
537 MODE 8:COLOUR 128 + 4:COLOUR 15:VDU 23, 1, 1:CLS:PRINT'" READY TO LEARN AGON!"'
540 END
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,i
730 da=0.4
740 DRAW y,x
750 IF i=0 ENDPROC
760 PROC_DrawTree(i-1,x+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+l*SIN(a+da),a+da,l*.9)
790 ENDPROC