PicoMiteVGA MMBasic Version 5.07.03RC10
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather
                                                     
> ?not 3<7                                            
1                                                    
> ?not (3<7)                                          
0                                                    
> ?not 3
0
> ?inv 3
-4
> ?(not 3)<7
1
> ?3<7
1

> ?INV 3^2
16
> ?(INV 3)^2
16
> ?INV (3^2)
-10

5 Print "AS=AppleSoft, MM=MMBasic, GW=GW-BASIC"
10 Print 10,1 Or 1 And 0
20 Print 20,1 Or (1 And 0),"AS,GW"
30 Print 30,(1 Or 1) And 0,"MM"
40 Print 40,1 = 2 <> 0
50 Print 50,1 = (2 <> 0),"MM"
60 Print 60,(1 = 2) <> 0,"AS,GW"
70 Print 70,-1^2
80 Print 80,-(1^2),"GW"
90 Print 90,(-1)^2,"AS,MM"
100 Print 100,Not 3<7
110 Print 110,Not (3<7),"GW"
120 Print 120,(Not 3)<7,"AS,MM"

print("AS=AppleSoft, MM=MMBasic, GW=GW-BASIC")
print(10,1 or 1 and 0)
print(20,1 or (1 and 0),"AS,GW")
print(30,(1 or 1) and 0,"MM")
print(40,1 == 2 != 0)
print(50,1 == (2 != 0),"MM")
print(60,(1 == 2) != 0,"AS,GW")
print(70,-1**2)
print(80,-(1**2),"GW")
print(90,(-1)**2,"AS,MM")
print(100,not 3<7)
print(110,not (3<7),"GW")
print(120,(not 3)<7,"AS,MM")

SetPin gp6,fin
main
Do :Loop
CSub MAIN
00000013
'intprog
B086B510 681B4B0D 3201681A 17D3601A 9100210A 6809490A 0020AC03 4B094788
0020681B 4C084798 200A2100 47986823 21016823 4798200D BD10B006 10000388
10000330 1000032C 10000310
'main
681B4B07 447A4A07 4A07601A 23006811 6811600B 6811604B 6812608B 477060D3
100003C4 FFFFFFAB 10000388
End CSub

#include "PicoCFunctions.h"
static void intprog(void){
int *a=(int*)CFuncRam;
*a=*a+1;
char b[10];
IntToStr(b,*a,10);
MMPrintString(b);
putConsole(10,0);
putConsole(13,1);
}
void main(void){
CFuncInt1=(unsigned int)&intprog;
CFuncRam[0]=0;
CFuncRam[1]=0;
CFuncRam[2]=0;
CFuncRam[3]=0;
}

Sub my_exit()

 ausgabetext$="bye bye                  "
 text_setzen 0
 Print ESC"[2J";              ' CLS VT100
 Print ESC"[?25h";            ' Cursor visible
 Print ESC"[?6l";             ' Curor Pos 1
 Print ESC"[0m";              ' reset all VT100 attributes

 ' set original STRG-C again
 Option Break 3
 On key 3,0

 ' EOP
 End

End Sub

>
> new
> Option Break 3
> on key 3,0
> XMODEM RECEIVE
Saved 35872 bytes
>
>
> edit
[666] Sub format_ft(ft_nbr,_vorne$, _hinten$, _2zeile$)
Error : Invalid in a program
>